Changeset 1818

Show
Ignore:
Timestamp:
09/18/06 00:24:19 (2 years ago)
Author:
whmoseley
Message:

First pass at trying to get this working again.
Seems like something is broken because the @links
array is empty after generating the html files,
and frankly, understanding all the magic in this code is
slow.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/swish_website/Plugin/My/POD.pm

    r1698 r1818  
    260260 
    261261sub validate_links { 
    262     my $all_files_processed = $My::POD::stash->get( 'self.config.all'); 
     262    # Maybe this was some hack to get at the config?? 
     263    #my $all_files_processed = $My::POD::stash->get( 'self.config.all'); 
     264    my $config = shift; 
     265    my $all_files_processed = $config->{all}; 
     266 
    263267 
    264268    for my $link ( @links ) { 
    265269        my ($name, $fragment) = split /#/, $link->{href}, 2; 
     270 
    266271 
    267272        # If processing all files then can check for page links 

  • trunk/swish_website/bin/build

    r1817 r1818  
    1010# 
    1111# Script to build the swish-e web site and pod docs.  Based on 
    12 # script written by Peter Karman.  Peter made it look to simple, so 
     12# script written by Peter Karman.  Peter made it look too simple, so 
    1313# I rewrote it to make it much more complex. 
    1414# 
    …… 
    2121# 
    2222# Questions/TODO 
    23 #   Should utime the output files to match timestamp of input 
     23#   Should utime the output files to match timestamp of input? 
    2424#   Might be useful is reading from cvs or where someone's machine 
    2525#   might be off in time 
    …… 
    261261    unshift @INC, $plugin_dir; 
    262262 
     263    require My::POD; 
     264 
    263265 
    264266    # Build include paths - reverse so -includ=foo will be pre-pended to path 
    …… 
    274276 
    275277    my $dest = File::Spec->rel2abs( $config->dest ); 
     278 
     279    mkdir $dest unless -e $dest; 
     280 
    276281    die "destination directory [$dest] does not exist\n" unless -e $dest; 
    277282    die "destination directory [$dest] is not a directory\n" unless -d $dest; 
    …… 
    486491    shift @$include_path;  # remove source dir. 
    487492 
    488     return;  # Not sure what happended below to make this not work on sunsite 
    489493 
    490494    # Check all the L<> links 
    491     My::Pod::View::HTML::validate_links() 
     495    My::Pod::View::HTML::validate_links($config) 
    492496        if $update_index; # and $config->verbose; 
    493497}