home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Fujitsu- / GJ / jp / americas / austral / makepages < prev    next >
Encoding:
Text File  |  2017-09-21  |  17.4 KB  |  389 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # CREATE FRAME PAGES, THE FILMSTRIP PAGES, AND THE CONTENT PAGES.
  4. #
  5. #
  6. use Guppy
  7. $Pwhere = "http://japan.park.org/Japan/Fujitsu/GJ/jp";
  8. $Iwhere = "../../../i";
  9. system(clear);
  10.  
  11. unless ($Pwhere) {
  12.     print("The pdocs path has not been established. Please enter its value: ");
  13.     $Pwhere = <STDIN>;
  14.     chop $Pwhere;
  15. }
  16. unless ($Iwhere) {
  17.     print("The idocs path has not been established. Please enter its value: ");
  18.     $Iwhere = <STDIN>;
  19.     chop $Iwhere;
  20. }
  21.  
  22. print("Running with pdocs as $Pwhere\n\t and idocs as $Iwhere\n\n");
  23. print("\tIs this correct? (y/n) ");
  24. $ans = <STDIN>;
  25. unless ($ans =~ /y/) {
  26.     die ("\tOkay, then change it, buster!\n\n");
  27. }
  28.  
  29. sub NAVLINE {
  30.     $Itemp = $Iwhere;
  31.     # print correct navline on each page, remember that different sections have different nav requirements.
  32.     my $now = shift;
  33.     my $locount = shift;
  34.     $Itemp = $Iwhere;
  35.     $Itemp = "../$Iwhere" if ($now eq "pix");
  36.     my $pageURL = $MachineURL.$StateURL;
  37.     $topP   = &Guppy::HtmlTarget("pix");
  38.     $topT   = &Guppy::HtmlTarget('_top');
  39.     $out = undef;
  40.     $out .= "<TABLE BORDER=0 WIDTH=60%>\n";
  41.     unless ($now eq "pix" || $now eq "anthro")  {
  42.         $out .= "<TR>\n<TD ALIGN=CENTER><img src=\"$Itemp/java/classes/images/lowerfiller.gif\" border=0 width=95 height=26></TD></TR>\n";
  43.     }
  44.     $out .= "<TR><TD ALIGN=CENTER VALIGN=TOP><TABLE BORDER=0><TR>\n";
  45.     if ($now eq "pix" || $now eq "anthro") {
  46.         $out .= "<TD ALIGN=CENTER VALIGN=TOP WIDTH=50%>\n";
  47.         $out .= "<applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  48.         $out .= "<param name=image value = \"sekr\">\n";
  49.         $out .= "<param name=txt value = \"j_sekrtxt\">\n";
  50.         $out .= "<param name=bakg value = \"lowerfiller\">\n";
  51.         $out .= "<param name=xmin value = \"36\">\n";
  52.         $out .= "<param name=xmax value = \"72\">\n";
  53.         $out .= "<param name=ymin value = \"5\">\n";
  54.         $out .= "<param name=ymax value = \"36\">\n";
  55.         $out .= "<param name=xposimage value = \"0\">\n";
  56.         $out .= "<param name=xpostxt value = \"0\">\n";
  57.         $out .= "<param name=URL value = \"$Pwhere/americas/austral/$default\">\n";
  58.         $out .= "<param name=target value=\"_self\">\n";
  59.         $out .= "<A HREF = \"$Pwhere/americas/austral/$default\">\n";
  60.         $out .= "<img src=\"$Itemp/java/classes/images/sekr.gif\" border=0 width=95 height=26><br>\n";
  61.         $out .= "<img src=\"$Itemp/java/classes/images/j_sekrtxt.gif\" border=0 width=95 height=28></A>\n";
  62.         $out .= "<P></TD>\n";
  63.     }
  64.     if (($locations[$locount]{'anthro'}) && $now ne "anthro") {
  65.         my $anthro = $locations[$locount]{'anthro'};
  66.         $out .= "<TD ALIGN=CENTER VALIGN=TOP WIDTH=50%>\n";
  67.         $out .= "<center><applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  68.         $out .= "<param name=image value = \"anthro\">\n";
  69.         $out .= "<param name=txt value = \"j_anthrotxt\">\n";
  70.         $out .= "<param name=bakg value = \"lowerfiller\">\n";
  71.         $out .= "<param name=xmin value = \"36\">\n";
  72.         $out .= "<param name=xmax value = \"72\">\n";
  73.         $out .= "<param name=ymin value = \"5\">\n";
  74.         $out .= "<param name=ymax value = \"36\">\n";
  75.         $out .= "<param name=xposimage value = \"0\">\n";
  76.         $out .= "<param name=xpostxt value = \"0\">\n";
  77.         $out .= "<param name=URL value = \"$Pwhere/americas/austral/$anthro\">\n";
  78.         $out .= "<param name=target value=\"_self\">\n";
  79.         $out .= "<A HREF = \"$Pwhere/americas/austral/$anthro\">\n";
  80.         $out .= "<img src=\"$Itemp/java/classes/images/anthro.gif\" border=0 width=95 height=26><br>\n";
  81.         $out .= "<img src=\"$Itemp/java/classes/images/j_anthrotxt.gif\" border=0 width=95 height=28></A></applet>\n";
  82.         $out .= "<P></TD>\n";
  83.     }
  84.     $out .= "</TR></TABLE></TD></TR><TR><TD VALIGN=TOP ALIGN=CENTER>\n<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR>\n";
  85.     $out .= "<TD ALIGN=CENTER><applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  86.     $out .= "<param name=image value = \"intro\">\n";
  87.     $out .= "<param name=txt value = \"j_introtxt\">\n";
  88.     $out .= "<param name=bakg value = \"lowerfiller\">\n";
  89.     $out .= "<param name=xmin value = \"36\">\n";
  90.     $out .= "<param name=xmax value = \"72\">\n";
  91.     $out .= "<param name=ymin value = \"5\">\n";
  92.     $out .= "<param name=ymax value = \"36\">\n";
  93.     $out .= "<param name=xposimage value = \"0\">\n";
  94.     $out .= "<param name=xpostxt value = \"0\">\n";
  95.     $out .= "<param name=URL value = \"$Pwhere/intro.html\">\n";
  96.     $out .= "<param name=target value=\"_top\">\n";
  97.     $out .= "<A HREF = \"$Pwhere/intro.html\"  TARGET=\"_top\">\n";
  98.     $out .= "<img src=\"$Itemp/java/classes/images/intro.gif\" border=0 width=95 height=26><br>\n";
  99.     $out .= "<img src=\"$Itemp/java/classes/images/j_introtxt.gif\" border=0 width=95 height=28></A></applet></TD>\n";
  100.     
  101.     
  102.     $out .= "<TD ALIGN=CENTER><applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  103.     $out .= "<param name=image value = \"home\">\n";
  104.     $out .= "<param name=txt value = \"j_hometxt\">\n";
  105.     $out .= "<param name=bakg value = \"lowerfiller\">\n";
  106.     $out .= "<param name=xmin value = \"36\">\n";
  107.     $out .= "<param name=xmax value = \"72\">\n";
  108.     $out .= "<param name=ymin value = \"5\">\n";
  109.     $out .= "<param name=ymax value = \"36\">\n";
  110.     $out .= "<param name=xposimage value = \"0\">\n";
  111.     $out .= "<param name=xpostxt value = \"0\">\n";
  112.     $out .= "<param name=URL value = \"$Pwhere/home.html\">\n";
  113.     $out .= "<param name=target value=\"_top\">\n";
  114.     $out .= "<A HREF = \"$Pwhere/home.html\"  TARGET=\"_top\">\n";
  115.     $out .= "<img src=\"$Itemp/java/classes/images/home.gif\" border=0 width=95 height=26><br>\n";
  116.     $out .= "<img src=\"$Itemp/java/classes/images/j_hometxt.gif\" border=0 width=95 height=28></A></applet></TD>\n";
  117.     
  118.  
  119.     $out .= "<TD ALIGN=CENTER><applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  120.     $out .= "<param name=image value = \"sek\">\n";
  121.     $out .= "<param name=txt value = \"j_sektxt\">\n";
  122.     $out .= "<param name=bakg value = \"lowerfiller\">\n";
  123.     $out .= "<param name=xmin value = \"36\">\n";
  124.     $out .= "<param name=xmax value = \"72\">\n";
  125.     $out .= "<param name=ymin value = \"5\">\n";
  126.     $out .= "<param name=ymax value = \"36\">\n";
  127.     $out .= "<param name=xposimage value = \"0\">\n";
  128.     $out .= "<param name=xpostxt value = \"0\">\n";
  129.     $out .= "<param name=URL value = \"$Pwhere/sekino/\">\n";
  130.     $out .= "<param name=target value=\"_top\">\n";
  131.     $out .= "<A HREF = \"$Pwhere/sekino\"  TARGET=\"_top\">\n";
  132.     $out .= "<img src=\"$Itemp/java/classes/images/sek.gif\" border=0 width=95 height=26><br>\n";
  133.     $out .= "<img src=\"$Itemp/java/classes/images/j_sektxt.gif\" border=0 width=95 height=28></A></applet></TD>\n";
  134.     
  135.  
  136.     $out .= "<TD ALIGN=CENTER><applet codebase = \"$Itemp/java/classes/\" code=\"navIcon.class\" width=95 height=54>\n";
  137.     $out .= "<param name=image value = \"amer\">\n";
  138.     $out .= "<param name=txt value = \"amertxt\">\n";
  139.     $out .= "<param name=bakg value = \"lowerfiller\">\n";
  140.     $out .= "<param name=xmin value = \"36\">\n";
  141.     $out .= "<param name=xmax value = \"72\">\n";
  142.     $out .= "<param name=ymin value = \"5\">\n";
  143.     $out .= "<param name=ymax value = \"36\">\n";
  144.     $out .= "<param name=xposimage value = \"0\">\n";
  145.     $out .= "<param name=xpostxt value = \"0\">\n";
  146.     $out .= "<param name=URL value = \"$Pwhere/americas/\">\n";
  147.     $out .= "<param name=target value=\"_top\">\n";
  148.     $out .= "<A HREF = \"$Pwhere/americas\"  TARGET=\"_top\">\n";
  149.     $out .= "<img src=\"$Itemp/java/classes/images/amer.gif\" border=0 width=95 height=26><br>\n";
  150.     $out .= "<img src=\"$Itemp/java/classes/images/amertxt.gif\" border=0 width=95 height=28></A></applet></TD>\n";
  151.     $out .= "</TR><TR>\n";
  152.     $out .= "<TD ALIGN=CENTER><img src=\"$Itemp/java/classes/images/lowerfiller.gif\" border=0 width=95 height=26></TD>\n";
  153.     $out .= "</TR></TABLE></TD></TR></TABLE>\n";
  154.     $out;
  155. }
  156.  
  157. @locations = (
  158. {'name'=>'âpâ^âSâjâA','start'=>2,'end'=>28,'url'=>'patagonia.html','gif'=>'j_titleA.gif','image'=>'patagonia.gif','list'=>'list_patagonia.html','default'=>'def_patagonia.html'},
  159. {'name'=>'ô∞òöâAâôâfâX','start'=>29,'end'=>41,'url'=>'southern.html','gif'=>'j_titleB.gif','image'=>'south_andes.gif','list'=>'list_southern.html','default'=>'def_southern.html','anthro'=>'anthro_southern.html'},
  160. {'name'=>'â{âèârâAâôìéÆnò╜î┤','start'=>42,'end'=>67,'url'=>'bolivian.html','gif'=>'j_titleC.gif','image'=>'bolivian.gif','list'=>'list_bolivian.html','default'=>'def_bolivian.html'},
  161. {'name'=>'âyâïü[âAâôâfâX','start'=>68,'end'=>82,'url'=>'peruvian.html','gif'=>'j_titleD.gif','image'=>'peru_andes.gif','list'=>'list_peruvian.html','default'=>'def_peruvian.html','anthro'=>'anthro_peruvian.html'}
  162. );
  163.  
  164. @descriptions = (
  165. {'num'=>2,'text'=>"âgü[âîâXü@âfâïü@âpâCâlò⌠"},
  166. {'num'=>3,'text'=>"âpâ^âSâjâAûkòöòXÅ░"},
  167. {'num'=>4,'text'=>"âäâ}âiîΩé≡ÿbé╣éΘéPÉl"},
  168. {'num'=>5,'text'=>"âiâoâèü[âmôçé╔ÅZé▐Äqïƒ"},
  169. {'num'=>6,'text'=>"â_ü[âEâBâôÄRû¼"},
  170. {'num'=>7,'text'=>"â}â[âëâôèCï¼"},
  171. {'num'=>8,'text'=>"â~âiâ~â]âEâAâUâëâV"},
  172. {'num'=>9,'text'=>"â_ü[âEâBâôÄRû¼é╠æσâNâîâpâX"},
  173. {'num'=>10,'text'=>"ù¼òX"},
  174. {'num'=>11,'text'=>"âAâïâ~âëâôâ^âXâSÿpé╠âCâÅâgârâyâôâMâô"},
  175. {'num'=>12,'text'=>"òXë═é╠îπæ▐î╗Å█"},
  176. {'num'=>13,'text'=>"âpâCâlÄ⌐æRî÷ëÇé╠âOâAâiâR"},
  177. {'num'=>14,'text'=>"â`âââïâeâôò⌠"},
  178. {'num'=>15,'text'=>"âAâXâïî╬é┼òæéñâJâCâPâô"},
  179. {'num'=>16,'text'=>"âpâCâlâOâëâôâfÄR"},
  180. {'num'=>17,'text'=>"âuâèâUü[âh"},
  181. {'num'=>18,'text'=>"ô∞òöòXÅ░é≡âXâLü["},
  182. {'num'=>19,'text'=>"ï¡òùé╠Éüé¡ô∞òöòXÅ░"},
  183. {'num'=>20,'text'=>"ô∞òöòXÅ░"},
  184. {'num'=>21,'text'=>"ôoÄR"},
  185. {'num'=>22,'text'=>"ô∞òöòXÅ░é≡âXâLü["},
  186. {'num'=>23,'text'=>"âZâìü@âgü[âî"},
  187. {'num'=>24,'text'=>"âTâôü@âoâîâôâ`âôÄR"},
  188. {'num'=>25,'text'=>"âZâìü@âJâXâeâBü[âê"},
  189. {'num'=>26,'text'=>"âpâ^âSâjâAûkòöé╠èJæ±û»"},
  190. {'num'=>27,'text'=>"âpâ^âSâjâAûkòö"},
  191. {'num'=>28,'text'=>"ùré≡Æ╟éñâKâEâ`âç"},
  192. {'num'=>29,'text'=>"âAâïâ[âôâ`âôûkòö"},
  193. {'num'=>30,'text'=>"âAâïâ[âôâ`âôûkòöé╠âTâ{âeâôù╤"},
  194. {'num'=>31,'text'=>"âCâôâJêΓÉ╒"},
  195. {'num'=>32,'text'=>"â^âëâôâpâäÆJé╔éáéΘâyâgâìâOâèâtâH"},
  196. {'num'=>33,'text'=>"â^âëâôâpâäÆJ"},
  197. {'num'=>34,'text'=>"âAâïâ[âôâ`âôé╔é─"},
  198. {'num'=>35,'text'=>"âTâ{âeâô"},
  199. {'num'=>36,'text'=>"âAâïâ[âôâ`âôé╔é─"},
  200. {'num'=>37,'text'=>"âAâ^âJâ}ìéÆn"},
  201. {'num'=>38,'text'=>"â`âèé╠ühîÄé╠ÆJüh"},
  202. {'num'=>39,'text'=>"â`âèé╠ühîÄé╠ÆJüh"},
  203. {'num'=>40,'text'=>"âxâïâfî╬"},
  204. {'num'=>41,'text'=>"âèâJâôâJâuü[âïÄRé╠âèâââ}é╠îQ"},
  205. {'num'=>42,'text'=>"âRâìâëâ_î╬"},
  206. {'num'=>43,'text'=>"âEâåâjëû"},
  207. {'num'=>44,'text'=>"âEâåâjëûî╬"},
  208. {'num'=>45,'text'=>"âRâïâ`âââjæ║"},
  209. {'num'=>46,'text'=>"âRâìâëâ_î╬é╠âzâEì╗"},
  210. {'num'=>47,'text'=>"âRâìâëâ_î╬"},
  211. {'num'=>48,'text'=>"â`âpâäæ║"},
  212. {'num'=>49,'text'=>"â`âpâäé╠Æjé╜é┐"},
  213. {'num'=>50,'text'=>"ö»é≡ò╥é▐â`âpâäé╠Åùé╜é┐"},
  214. {'num'=>51,'text'=>"â`âpâäé╠Åùé╜é┐"},
  215. {'num'=>52,'text'=>"â`âpâäé╠Åùé╜é┐"},
  216. {'num'=>53,'text'=>"âLâAâJâXæ║é╠Åùɽ"},
  217. {'num'=>54,'text'=>"âEâïâEâïî╬Åπï≤é≡òæéñâtâëâ~âôâS"},
  218. {'num'=>55,'text'=>"âEâïâEâïî╬"},
  219. {'num'=>56,'text'=>"â^âëâuâRé╠òΩÄq"},
  220. {'num'=>57,'text'=>"â^âëâuâRé╠ÉlüX"},
  221. {'num'=>58,'text'=>"Ä⌐ò¬é┼ÉDé┴é╜â|âôâ`âçé≡ëHÉDéΘ"},
  222. {'num'=>59,'text'=>"â^âëâuâRé╠Å¡öN"},
  223. {'num'=>60,'text'=>"â^âëâuâRé╠Æjé╜é┐"},
  224. {'num'=>61,'text'=>"âëü@âpâX"},
  225. {'num'=>62,'text'=>"âAâtâèâJé⌐éτôzùΩé╞é╡é─é½é╜Äqïƒé╜é┐"},
  226. {'num'=>63,'text'=>"Ä⌐ò¬é╜é┐é≡âAâtâìü@â{âèârâAü[âmé╞î─é╤âAâtâèâJòùé╠ë╣èyé≡æté┼éΘ"},
  227. {'num'=>64,'text'=>"â`âJâìâ}æ║é╠Å¡öNé╜é┐"},
  228. {'num'=>65,'text'=>"âëü@âpâXé╠ôîò√"},
  229. {'num'=>66,'text'=>"ârâNü[âjââ"},
  230. {'num'=>67,'text'=>"â`â`âJâJî╬é╠Æj"},
  231. {'num'=>68,'text'=>"âEâBâôâ`âèæ║é╠Åùé╜é┐"},
  232. {'num'=>69,'text'=>"ôèÉ╬Éφæê"},
  233. {'num'=>70,'text'=>"âIâôâ_é╞î─é╬éΩéΘôèÉ╬èΘèφé┼é╠ôèÉ╬Éφæê"},
  234. {'num'=>71,'text'=>"âEâBâôâ`âèæ║é╠ï┤"},
  235. {'num'=>72,'text'=>"âEâBâôâ`âèæ║é╠Äqïƒé╜é┐"},
  236. {'num'=>73,'text'=>"ÆnòΩÉ_é╓é╠ïƒò¿"},
  237. {'num'=>74,'text'=>"âEâBâôâ`âèæ║é╠êΩë╞"},
  238. {'num'=>75,'text'=>"âEâBâôâ`âèæ║é╠Å¡Åù"},
  239. {'num'=>76,'text'=>"ùré╠ÉSæƒé¬ïƒò¿"},
  240. {'num'=>77,'text'=>"â`â`âJâJî╬é╔òéé⌐é╘âEâïâXî╬"},
  241. {'num'=>78,'text'=>"âEâïâXôçé╠Åùɽé╜é┐"},
  242. {'num'=>79,'text'=>"ï¢é≡öMé╡é╜É╬é┼Å─é¡"},
  243. {'num'=>80,'text'=>"âEâïâXôçé┼ù┐ù¥é≡é╖éΘÅùɽé╜é┐"},
  244. {'num'=>81,'text'=>"âEâïâXôçé╠Äqïƒé╜é┐"},
  245. {'num'=>82,'text'=>"âEâBâôâ`âèæ║é╠Äoûà"}
  246. );
  247.  
  248.  
  249. $count = 0;
  250. print ("Creating content pages...\n");
  251. while ($count<=$#descriptions) {
  252.     my $filename = $descriptions[$count]{'num'};
  253.     $filename .= ".html";
  254.     print ("\tWorking on page $filename...");
  255.     open (FILE, ">/home/aboveb/wex/sites/fujitsu/htdocs/GJ/jp/americas/austral/pictures/$filename") || die("Can't open $filename for write.\n");
  256.     print FILE ("<HTML><HEAD><TITLE>The Great Journey: The Images</TITLE>\n</HEAD><BODY BGCOLOR=\"#000000\" TEXT=\"#FFFFFF\" LINK=\"#BB0000\" ALINK=\"#000000\" VLINK=\"#925656\">\n");
  257.     print FILE ("<CENTER><P><BR>\n");
  258.     if ($count<=26) {
  259.         $header = "âpâ^âSâjâA";
  260.         $locount = 0;
  261.     } elsif ($count<=39 && $count>26) {
  262.         $header = "ô∞òöâAâôâfâX";
  263.         $locount = 1;
  264.     } elsif ($count<=65 && $count>39) {
  265.         $header = "â{âèârâAâôìéÆnò╜î┤";
  266.         $locount = 2;
  267.     } elsif ($count>65) {
  268.         $header = "âyâïü[âAâôâfâX";
  269.         $locount = 3;
  270.     }
  271.     $default = $locations[$locount]{'default'};
  272.     print FILE ("$header\n<TABLE BORDER=0 HEIGHT=70%><TR><TD ALIGN=CENTER>\n");
  273.     my $image = $descriptions[$count]{'num'};
  274.     $image .= ".jpeg";
  275.     print FILE ("<IMG BORDER=0 HSPACE=0 SRC=\"../$Iwhere/americas/austral/pictures/$image\">\n<BR>\n");
  276.     my $text = $descriptions[$count]{'text'};
  277.     print FILE ("<FONT SIZE=-1>$text</FONT>\n");
  278.     print FILE ("</TD></TR></TABLE>\n");
  279.     print FILE (&NAVLINE("pix",$locount));
  280.     print FILE ("</CENTER><\BODY><\HTML>");
  281.     close (FILE);
  282.     print("\t$filename Done. Yipee!!!\n");
  283.     $count++;
  284. }
  285.  
  286. print("\nContent Pages Complete, Starting Filmstip Pages...\n\n");
  287.  
  288.  
  289. $count = 0;
  290. while ($count<=$#locations) {
  291.     my $filename = $locations[$count]{'list'};
  292.     my $title = $locations[$count]{'gif'};
  293.     print("\tWorking on $filename...\n");
  294.     open (FILE, ">//home/aboveb/wex/sites/fujitsu/htdocs/GJ/jp/americas/austral/$filename") || die("Can't open $filename for write.\n");
  295.     print FILE ("<HTML><HEAD><TITLE>The Great Journey: The Images</TITLE>\n</HEAD><BODY BGCOLOR=\"#000000\" TEXT=\"#FFFFFF\" LINK=\"#BB0000\" ALINK=\"#000000\" VLINK=\"#925656\">\n");
  296.     print FILE ("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR>\n");
  297.     print FILE ("<TD VALIGN=TOP><img src=\"$Iwhere/americas/austral/$title\" border=0 alt=\"\" width=108 height=100></TD>\n");
  298.     $i = $locations[$count]{'start'};
  299.     while ($i<=($locations[$count]{'end'})) {
  300.         print FILE ("<TD VALIGN=TOP><a href=\"pictures/$i.html\" target=\"pix\"><img BORDER=0 ALIGN=LEFT HSPACE=0 src=\"$Iwhere/americas/austral/smallpix/$i.gif\" alt=\"\" width=108 height=100></a></TD>\n");
  301.         $i++;
  302.     }
  303.     print FILE ("<TD NOWRAP>é╗é╠æ╝é╠ò±ìÉ....</TD>\n");
  304.     $more = 0;
  305.     while ($more<4) {
  306.         unless ($more == $count) {
  307.             $url = $locations[$more]{'url'};
  308.             $image = $locations[$more]{'image'};
  309.             print FILE ("<TD><a href=\"$url\" target=\"_top\"><img src=\"$Iwhere/americas/austral/j_$image\" border=0 alt=\"\" width=108 height=100></a></TD>\n");
  310.         }
  311.     $more++;
  312.     }
  313.     print FILE ("</TR></TABLE>\n<\BODY><\HTML>");
  314.     close (FILE);
  315.     print("\t$filename Done! I'm not dead yet... I'm getting better...\n");
  316.     $count++;
  317. }
  318.  
  319. print ("\nFilmstrip Pages Complete, Starting Frame Pages...\n\n");
  320.  
  321.  
  322. $count = 0;
  323. while ($count<=$#locations) {
  324.     my $filename = $locations[$count]{'url'};
  325.     my $header = $locations[$count]{'name'};
  326.     print ("\tWorking on $filename...\n");
  327.     my $list = $locations[$count]{'list'};
  328.     my $default = $locations[$count]{'default'};
  329.     open (FILE, ">//home/aboveb/wex/sites/fujitsu/htdocs/GJ/jp/americas/austral/$filename") || die("Can't open $filename for write.\n");
  330.     print FILE ("<HTML>\n<HEAD><TITLE>The Great Journey: $header</TITLE></HEAD>\n<FRAMESET rows=\"*,120\">\n<FRAME NAME=\"pix\" MARGINWIDTH=0 MARGINHEIGHT=0 SRC=\"$default\">\n");
  331.     print FILE ("<FRAME NAME=\"list\" MARGINWIDTH=0 MARGINHEIGHT=0 noresize SRC=\"$list\">\n");
  332.     print FILE ("</FRAMESET></HTML>");
  333.     close (FILE);
  334.     $count++;
  335.     print("\t$filename Done. It's like there's a party in my mouth, and everyone's invited!!!\n");
  336. }
  337.  
  338. print ("\nFrame Pages Done, Starting Anthro Pages...\n\n");
  339.  
  340. $count = 0;
  341. while ($count<=$#locations) {
  342.     if ($locations[$count]{'anthro'}) {
  343.         my $filename = $locations[$count]{'anthro'};
  344.         my $header = $locations[$count]{'name'};
  345.         $default = $locations[$count]{'default'};
  346.         my $x = $count+1;
  347.         my $readfile = "anthro$x.html";
  348.         print ("\tWorking on $filename...\n");
  349.         open (FILE, ">/home/aboveb/wex/sites/fujitsu/htdocs/GJ/jp/americas/austral/$filename") || die("Can't open $filename for write.\n");
  350.         open (READ, "/home/aboveb/wex/sites/fujitsu/pdocs/jp/americas/reports/austral/$readfile") || die("Can't open $readfile for read.\n");
  351.         while ($line = <READ>) {
  352.             print FILE ("$line");
  353.         }
  354.         print FILE ("<CENTER>\n");
  355.         print FILE (&NAVLINE("anthro",$count));
  356.         print FILE ("</CENTER>\n</BODY></HTML>");
  357.         print("\t$filename Done... \'cause we are the champions of the world, my friend...\n");
  358.     }
  359.     $count++;
  360. }
  361.  
  362. print ("\nAnthro Pages Done, Starting Default Content Pages...\n\n");
  363.  
  364. $count = 0;
  365. while ($count<=$#locations) {
  366.     my $filename = $locations[$count]{'default'};
  367.     my $x = $count+1;
  368.     my $readfile = "section$x.jp";
  369.     print ("\tWorking on $filename...\n");
  370.     my $header = $locations[$count]{'name'};
  371.     open (FILE, ">/home/aboveb/wex/sites/fujitsu/htdocs/GJ/jp/americas/austral/$filename") || die("Can't open $filename for write.\n");
  372.     open (READ, "/home/aboveb/wex/sites/fujitsu/pdocs/jp/americas/reports/austral/$readfile") || die("Can't open $readfile for read.\n");
  373.     print FILE ("<HTML><HEAD><TITLE>The Great Journey: $header</TITLE>\n</HEAD><BODY BGCOLOR=\"#000000\" TEXT=\"#FFFFFF\" LINK=\"#BB0000\" ALINK=\"#000000\" VLINK=\"#925656\">\n");
  374.     print FILE (" <P><CENTER><FONT SIZE=+1>è╓û∞ïgÉ░é⌐éτé╠ò±ìÉ</FONT></CENTER>\n<BLOCKQUOTE>");
  375.     while ($line = <READ>) {
  376.         print FILE ("$line");
  377.     }
  378.     print FILE ("<FONT SIZE=+1><CENTER>âXâëâCâhé≡âNâèâbâNé╡é─ë║é│éó</FONT>\n");
  379.     print FILE (&NAVLINE("def",$count));
  380.     print FILE ("</BLOCKQUOTE></CENTER>\n<\BODY><\HTML>");
  381.     close (FILE);
  382.     print("\t$filename Done. I can't believe it's not butter!\n");
  383.     $count++;
  384. }
  385.  
  386. print("\nDefault Content Pages Done.\n\nYou're finished, kido, I'm going to Disneyland!!!!!!\n\n\n");
  387.  
  388. exit(0);
  389.