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/2"; # This is the url to the directory where the full size images are. $tn_dir_url = "http://www.miyamotoshrine.com/theman/photo/2/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/2/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_frame2.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 >>

 


Photos 57-61 and 45-51 thanks to Franηois Bliss de la Boissiθre

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