#!/usr/bin/perl $in_page = 0; while (<>) { chomp; if (/^photosrc:(.+)/) { $photosrc = $1; if (-d $photosrc) { if (opendir(DIR, $photosrc)) { while ($file = readdir(DIR)) { -f "$photosrc/$file" || next; $lfile = $file; $lfile =~ tr/A-Z/a-z/; $file{$lfile} = $file; } closedir(DIR); } } next; } if (/^title:([^:]*):([^:]*):(.*)/) { $index = $1; $dir = $2; $title = $3; next; } if (/^main:(.*)/) { $heading = $1; next; } if (/^page:([^:]*):(.*)/) { $pagefile = $1; push(@pages, $pagefile); $heading{$pagefile} = $2; $tag{$pagefile} = $heading{$pagefile}; $contents{$pagefile} = ""; $photos{$pagefile} = ""; $in_page = 1; next; } if (/^tag:(.*)/) { $tag{$pagefile} = $1; next; } if (/^photo:(.*)/) { $in_page = 0; $photo = $1; $photos{$pagefile} = join(":", split(/:/, $photos{$pagefile}), $photo); next; } if ($in_page) { $contents{$pagefile} .= $_ . "\n"; } else { $photo{"$pagefile:$photo"} .= $_ . "\n"; } } open(INDEX, ">${index}.html") || die "Can't create index $index.html: $!\n"; select(INDEX); print < $title

$heading

%s\n", $dir, $pagefile, $heading{$pagefile}); } print < EOF select(STDOUT); close(INDEX); foreach $i (0..$#pages) { $pagefile = $pages[$i]; open(PAGE, ">${dir}/${pagefile}.html") || die "Can't write to ${dir}/${pagefile}.html: $!\n"; select(PAGE); print < $title
EOF if ($i) { $top1 = "Previous page:"; $bot1 = sprintf("%s", $pages[$i-1], $tag{$pages[$i-1]}); } else { $top1 = $bot1 = ' '; } if ($i == $#pages) { $top2 = $bot2 = ' '; } else { $top2 = "Next page:"; $bot2 = sprintf("%s", $pages[$i+1], $tag{$pages[$i+1]}); } $ptitle = $heading{$pagefile}; $table = < $top1 $ptitle $top2 $bot1 $bot2 EOF printf("%s\n
\n\n%s
\n", $table, $contents{$pagefile}); if ($photos{$pagefile}) { print "\n"; foreach $photo (split(/:/, $photos{$pagefile})) { chomp($text = $photo{"$pagefile:$photo"}); print < EOF } print "
$text
\n"; } printf("\n
\n\n%s\n\n\n\n\n", $table); select(STDOUT); close(PAGE); }