#!/usr/local/bin/perl5 -w
#
# Open needed files
$in= "phototopicareas/SimpleFulllistbytopicPage.html";
$out = "../01/familyphotos/SimpleFulllistbytopicPage.html";
open(PUBINDATA,$in) || die("\nSorry couldnt Open",$in, "\n");
open(PUBFOILS,">".$out) || die("\nSorry couldnt Create",$out, "\n");
#
$num=1;
while( $line=<PUBINDATA> )	{
chomp($line);
$line =~ s%\.\./\.\./01/familyphotos/%%g;
$line =~ s%wisdomhtmloverview.html%index.html%g;
print PUBFOILS  $line,"\n";
if($line =~ m%^<h2>FamilyPhotoWorld% )	{
print PUBFOILS <<EOF;
<br><a href="http://www.npac.syr.edu/users/gcf/01/familyphotos/oldbyarea0.html">Simple version without tables</a> is also available<br>
See also <a href="http://www.npac.syr.edu/users/gcf/01/familyphotos/summary0.html">The list without division into topics</a>
<br>
EOF
}
}
close(PUBINDATA);
close(PUBFOILS);
#
$in= "phototopicareas/SimpleFullListPage.html";
$out = "../01/familyphotos/SimpleFullListPage.html";
open(PUBINDATA,$in) || die("\nSorry couldnt Open",$in, "\n");
open(PUBFOILS,">".$out) || die("\nSorry couldnt Create",$out, "\n");
#
$num=1;
while( $line=<PUBINDATA> )      {
chomp($line);
$line =~ s%\.\./\.\./01/familyphotos/%%g;
$line =~ s%wisdomhtmloverview.html%index.html%g;
print PUBFOILS  $line,"\n";
if($line =~ m%^<h2>FamilyPhotoWorld% ) {
print PUBFOILS <<EOF;
<br>
A <a href="http://www.npac.syr.edu/users/gcf/01/familyphotos/oldsummary0.html" >Simple version without tables</a> is also available<br>
See also <a href="http://www.npac.syr.edu/users/gcf/01/familyphotos/byarea0.html" >The list divided by topics</a>
<br>
EOF
}
}
close(PUBINDATA);
close(PUBFOILS);
#

