The Man
• Biography
• Photographs
• Interviews
• Quotes
• In The Credits

Game Island
• Nintendo ES
• Gameboy
• Super NES
• Nintendo 64
• Gamecube
• GB Advance
• Nintendo DS

Reader Land
• Mailbag
• Forum

Writer Kong
• Features
• Editorials
• Histories

Media World
 • Wallpaper
 • Jukebox
• More

The Shrine
• News Archive
• Shrine History
• Links
• Staff

 Nintendorks
#!/usr/bin/perl ###################################### # # Picture Frame 1.0 # Written for the Web Page for Brian Wilson # by Mike Wheeler # #for support, write support@command-o.com # # Copyright 1996 - 2000, Mike Wheeler, All Rights Reserved # #If you find this script useful, we would appreciate a #donation to keep this service active for the community. #Command-O Software, P.O. Box 12200, Jackson WY 83002 # ###################################### $title = "Miyamoto Shrine :: Screenshots"; # This is the title of your page $bgcolor = "ffffff"; # This is the background color for the pages this script creates $border = "0"; # This is the size of the border you want around the large images. $dir_url = "http://www.miyamotoshrine.com/theman/photo/3"; # This is the url to the directory where the full size images are. $tn_dir_url = "http://www.miyamotoshrine.com/theman/photo/3/thumb"; # This is the url to the directory where the thumbnail images are. # The thumbnail images MUST have the same name as the full size images. $tn_dir = "/usr/local/apache/htdocs/theman/photo/3/thumb"; # This is the path to the directory where the thumbnail images are. $caption_file = ""; # This is the full path (including the file name to the captions file) of # the caption file if you choose to use one. Only images in the caption file # will be displayed. If you don't want captions leave this blank, and the # script will display every image in the $tn_dir and none will have captions. $script_name = "picture_frame3.cgi"; # This is the script name, as you have it on your server. $header = <

Miyamoto Shrine> The Man: Photos

EOM 1; # This is where you put the html that goes in the header. Everything MUST # be after and before You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. $footer = < EOM 1; # This is where you put the html that goes in the footer. Everything MUST # be after and before . You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. # # That's it! # You must get my permission by e-mail (mwheeler@command-o.com) # to change anything below this point. ##################################### if ($ENV{'QUERY_STRING'} eq ""){ &table; exit; } else { &display; exit; } ######################### # Display requested picture sub display { $file = "$ENV{'QUERY_STRING'}"; print "Content-type: text/html\n\n"; print "$title: $file\n"; print "\n"; print "$header\n"; print "

\n"; print "$footer\n"; print "\n"; print "\n"; } ####################### # Make table page sub table { if ($caption_file ne "") { open(CAPS,"$caption_file"); while () { chop; ($key,$value) = split(/:/); $photos{$key} = $value; } close(CAPS); foreach (sort keys %photos) { push (@tnlist,$_); push (@captions,$photos{$_}); } } else { opendir (TN, "$tn_dir"); rewinddir (TN); @tnlist = grep(!/^\.\.?$/, readdir (TN)); closedir (TN); $temp = pop @tnlist; @tntemp = reverse(@tnlist); push (@tntemp,$temp); @tnlist = reverse(@tntemp); } $tnnum = @tnlist; $anum = int ($tnnum / 3); $bnum = ((($tnnum / 3) - $anum) * 3); print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "$header\n"; print "\n"; if ($bnum eq "0") { &main_table; &end; } if ($bnum eq "1") { &main_table; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]
\n"; } if ($bnum eq "2") { &main_table; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]

$captions[($anum * 3) + 1]
\n"; } print "\n"; print "$footer\n"; print "\n"; print "\n"; } sub main_table { $dnum = ($anum * 3); $cnum = "0"; while ($dnum > $cnum) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[$cnum]

$captions[$cnum + 1]

$captions[$cnum + 2]
\n"; $cnum = $cnum + 3; print "\n"; } }
<< Prev

Page: 1 2 3 4

Next >>

 

Missed an Update? Click here!     Bored? Hit the Forums!


 

 


Miyamoto Shrine is dedicated to Shigeru Miyamoto
Miyamoto Shrine is not affiliated with Nintendo Co Ltd.
© 1999-2005 A.Robinson/C.Johnson unless otherwise stated