use Pod::Html; use File::Copy; use Win32::GUI; @toindex = qw( guioptions guiconcepts ); opendir(D, ".."); while($infile = readdir(D)) { next unless $infile =~ /\.pm$/i and $infile !~ /^GUI\.pm$/i; ($outfile = $infile) =~ s/\.pm$/.pod/i; copy("../$infile", "pod/$outfile"); $infile =~ s/\.pm$//i; print "found support_pack: $infile\n"; push(@support_pack, $infile); } closedir(D); open(P, "gui.new"); $found = "no"; $ver = Win32::GUI::Version(); ($mday,$mon,$year) = (localtime)[3..5]; @monthname = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ); $date = sprintf("%02d %3s %4d", $mday, $monthname[$mon], $year+1900); while(

) { if(/Support packages/i) { print N $_; $found = "yes"; } if($found ne "no") { if(/^=back/) { print N $_; $found = "no"; } if($found eq "yes") { print N "\n\n=over 4\n\n"; foreach $p (@support_pack) { ($n = $p) =~ s/^/Win32::GUI::/; print N "=item *\n\nL<$n|$p/>\n\n"; } $found = "done"; } } else { s/^Version:\s+.*/Version: B<$ver>, $date/io and print "found VERSION on line $.\n"; print N $_; } } close(P); close(N); unlink("gui.pod"); rename("gui.new", "gui.pod"); system("copy *.pod pod"); chdir("./pod"); opendir(D, "."); @files = readdir(D); foreach $infile (sort @files) { next unless $infile =~ /\.pod$/i; ($outfile = $infile) =~ s/\.pod$/.html/i; pod2html( "--htmlroot=.", "--podpath=.", "--infile=./$infile", "--outfile=../html/$outfile", "--noindex", ); } closedir(D); chdir(".."); foreach $file (@toindex) { open(P, "pod/$file.pod"); @poddata =

; close(P); $index = Pod::Html::scan_headings(\%sections, @poddata); $index =~ s/

  • .*\n//; 1 while ($index =~ s/