#!/usr/bin/perl -w # $Id: index.cgi,v 1.9 1999/01/06 22:25:36 fn Exp $ use CGI; use strict; use integer; srand(time ^ $$); my $query = new CGI; my $queryString = $query->query_string; ### DATA # url hash. key is url, value is description. # The tilde in the description separates the title and the painter's name. my %images = ( "painting-images/prosperine.jpg" => "'Prosperine'~Dante Gabriel Rossetti", "painting-images/bower.jpg" => "'The Bower Meadow'~Dante Gabriel Rossetti", "painting-images/monna-vanna.jpg" => "'Monna Vanna'~Dante Gabriel Rossetti", "painting-images/beatrix.jpg" => "'Beata Beatrix'~Dante Gabriel Rossetti", "painting-images/ghirlandata.jpg" => "'La Ghirlandata'~Dante Gabriel Rossetti", "painting-images/wdmorg04.jpg" => "'Thistle Tiles'~William de Morgan", "painting-images/fdcrown.jpg" => "'The Two Crowns'~Sir Frank Bernard Dicksee", "painting-images/flmusic.jpg" => "'The Music Lesson'~Fredrick Lord Leighton", "painting-images/flnaus.jpg" => "'Nausicaa from Homer's Ulysses'~Fredrick Lord Leighton", "painting-images/flhoney.jpg" => "'The Painter's Honeymoon'~Fredrick Lord Leighton", "painting-images/flinvoc.jpg" => "'Invocation'~Fredrick Lord Leighton", "painting-images/asshad.jpg" => "'Love's Shadow'~Anthony Fredrick Augustus Sandys", "painting-images/fsmais.jpg" => "'Proud Maisie'~Anthony Fredrick Augustus Sandys", "painting-images/fsmari.jpg" => "'Proud Maisie'~Anthony Fredrick Augustus Sandys", "painting-images/jemophe.jpg" => "'Ophelia'~Sir John Everett Millais", "painting-images/ehnight.jpg" => "'Night with her Train of Stars'~Edward R Hughes", "painting-images/pcstorm.jpg" => "'The Storm'~Pierre-Auguste Cot", "painting-images/pcspri.jpg" => "'Springtime'~Pierre-Auguste Cot", "painting-images/cffog.jpg" => "'Wanderer above the Sea of Fog'~Caspar David Friedrich", "painting-images/cfsea.jpg" => "'Seascape in the Moonlight'~Caspar David Friedrich", "painting-images/jtlondo.jpg" => "'London Visitors'~James Tissot", "painting-images/whbrave.jpg" => "'Mon Brave'~John William Hennessy", "painting-images/edflora.jpg" => "'Flora, the Goddess of Blossoms and Flowers'~Evelyn De Morgan", "painting-images/jsbozz.jpg" => "'Portrait of Katharina Bozzaris'~Joseph Stieler", "painting-images/ampeach.jpg" => "'Sapphires'~Albert J. Moore", "painting-images/amread.jpg" => "'A Reader'~Albert J. Moore", "painting-images/fhkiss.jpg" => "'A Kiss'~Francesco Hayez", "painting-images/jcguin.jpg" => "'Queen Guinevere's Maying'~John Collier", "painting-images/mscompa.jpg" => "'Two's Company, Three's None'~Marcus Stone", "painting-images/gdastro.jpg" => "'Astronomer By Candle Light'~Gerrit Dou", "painting-images/water04.jpg" => "'Sleep and his Half-Brother Death'~John William Waterhouse", "painting-images/Rosset10.jpg" => "'Lillith'~Dante Gabriel Rossetti", "painting-images/Rosset11.jpg" => "'The Beloved'~Dante Gabriel Rossetti", "painting-images/Rosset15.jpg" => "'Veronica Veronese'~Dante Gabriel Rossetti", "painting-images/Rosset5.jpg" => "'Dante's Dream at the Time of the Death of Beatrice'~Dante Gabriel Rossetti", "painting-images/Rosset7.jpg" => "'Il Ramoscello'~Dante Gabriel Rossetti", "painting-images/Rosset8.jpg" => "'La Bella Mano'~Dante Gabriel Rossetti", "painting-images/LaBelleDameSansMerci.jpg" => "'La Belle Dame Sans Merci'~John William Waterhouse", "painting-images/Miranda_TheTempest.jpg" => "'The Tempest'~John William Waterhouse", "painting-images/burne28.jpg" => "'The Beguiling of Merlin'~Edward Burne-Jones", "painting-images/image008.jpg" => "'Prosperine'~Dante Gabriel Rossetti", "painting-images/image033.jpg" => "'Flight and Pursuit'~William Rimmer", "painting-images/Lddeath.gif" => "'Death'~Neil Gaiman", "painting-images/death_3.jpeg" => "'Death'~Neil Gaiman", "painting-images/Ldeath_1.gif" => "'Death'~Neil Gaiman", "painting-images/death2.gif" => "'Death'~Neil Gaiman" ); # these are the images on the front page. # they are a subset of the above images. my @frontImages = ( "painting-images/image008.jpg", "painting-images/gdastro.jpg", "painting-images/cfsea.jpg", "painting-images/cffog.jpg", "painting-images/pcstorm.jpg", "painting-images/mscompa.jpg", "painting-images/flhoney.jpg", "painting-images/flinvoc.jpg", "painting-images/pcspri.jpg", "painting-images/Rosset11.jpg", "painting-images/image033.jpg", "painting-images/Lddeath.gif", "painting-images/Ldeath_1.gif", "painting-images/death2.gif", "painting-images/ehnight.jpg" ); # width/height hash. key is url, value is width/height, separated via "x". # there HAS to be a better way. my %widthHeight = ( "painting-images/prosperine.jpg" => "294x607", "painting-images/bower.jpg" => "340x448", "painting-images/monna-vanna.jpg" => "410x482", "painting-images/beatrix.jpg" => "320x416", "painting-images/ghirlandata.jpg" => "499x600", "painting-images/wdmorg04.jpg" => "495x508", "painting-images/fdcrown.jpg" => "366x468", "painting-images/flmusic.jpg" => "544x546", "painting-images/flnaus.jpg" => "289x671", "painting-images/flhoney.jpg" => "410x436", "painting-images/flinvoc.jpg" => "339x559", "painting-images/asshad.jpg" => "334x486", "painting-images/fsmais.jpg" => "159x209", "painting-images/fsmari.jpg" => "154x204", "painting-images/jemophe.jpg" => "573x365", "painting-images/ehnight.jpg" => "482x286", "painting-images/pcstorm.jpg" => "353x467", "painting-images/pcspri.jpg" => "328x450", "painting-images/cffog.jpg" => "400x555", "painting-images/cfsea.jpg" => "351x468", "painting-images/jtlondo.jpg" => "330x486", "painting-images/whbrave.jpg" => "400x556", "painting-images/edflora.jpg" => "323x737", "painting-images/jsbozz.jpg" => "294x376", "painting-images/ampeach.jpg" => "241x716", "painting-images/amread.jpg" => "173x485", "painting-images/fhkiss.jpg" => "403x563", "painting-images/jcguin.jpg" => "460x695", "painting-images/mscompa.jpg" => "502x306", "painting-images/gdastro.jpg" => "395x590", "painting-images/water04.jpg" => "753x600", "painting-images/Rosset10.jpg" => "582x600", "painting-images/Rosset11.jpg" => "507x600", "painting-images/Rosset15.jpg" => "454x600", "painting-images/Rosset5.jpg" => "800x533", "painting-images/Rosset7.jpg" => "454x600", "painting-images/Rosset8.jpg" => "479x600", "painting-images/LaBelleDameSansMerci.jpg" => "601x800", "painting-images/Miranda_TheTempest.jpg" => "800x555", "painting-images/jpg/burne28.jpg" => "455x800", "painting-images/image033.jpg" => "320x217", "painting-images/image008.jpg" => "168x365", "painting-images/Lddeath.gif" => "56x224", "painting-images/death_3.jpeg" => "301x554", "painting-images/Ldeath_1.gif" => "101x257", "painting-images/death2.gif" => "301x554" ); # make an array of urls for images. we need to do this here to get the image description for the title. # we use lots of variables. fix me? my @urls = keys %images; my $numImages = @urls; my $randChoice = rand $numImages; my $numFrontImages = @frontImages; my $randFrontChoice = rand ($numFrontImages + 1); # page-specific info my $title; my $painter; my $width; my $height; my $keywords; # for the meta tag. generally the same as $title. # lyrics stuff # this is ugly. fix me: find a better way of storing them. my @lyrics = ( "the loves we worship,
\nthe ones that never last
\nwe are the world together,
\n until they sell out their half", "lies and fairytailes
\nnot much difference between the two
\neverything and anything, it'll come right back to you.\n", "considered writing novels
\ni thought hard about this career
\nsolved a dozen famous mysteries
\nbut still i can't be clear
\nif there is anybody up there
\nperhaps it's been a year", "pass the crystal spread the tarot
\nin illusion comfort lies
\nthe safest way the straight and narrow
\nno confusion no surprise", "everything will be all right
\neverything will turn out fine
\nsome nights i still can't sleep
\nand the voices pass with time", "don't need a cure
\ndon't need a cure
\ndon't need a cure
\nneed a final solution", "intelligence so cold
\na heart like glass
\nfrom the surface to deep
\nyou wave then you dive
\nlike the heart and the sun
\nyou wave and you dive
\nyou hold me so cold
\nyou wave and you dive", "are we looked at
\nare we set back?
\ncan we fake him
\nemulate him?", "some people live in hell
\nmany bastards succeed
\nbut i. i've learned nothing
\ni can't even elegantly bleed
\nout the poison blood of failure\n", "but i don't care if you don't
\nand i don't feel if you don't
\nand i don't want it if you don't
\nand i won't say it
\nif you won't say it first" ); my $numLyrics = @lyrics; ### CODE # $seq is set to 'r' if we're viewing images randomly, otherwise a number. my $seq = $query->param('seq'); # set the appropriate title. if ($queryString =~ "seq") { if ($seq eq "r") { ($title, $painter) = split(/~/, $images{$urls[$randChoice]}); $keywords = $title; } elsif ($seq >= 0 || $seq < $numImages) { ($title, $painter) = split(/~/, $images{$urls[$seq]}); $keywords = $title; } else { $title = "Unknown image."; $keywords = "ignore"; } } elsif ($queryString =~ "home") { $title = "d i s i n t e g r a t i n g"; } elsif ($queryString =~ "software") { $title = "Software"; } else { print $query->redirect('?home'); exit(0); } # display the page header # $query->use_named_parameters(1); print $query->header; print $query->start_html( 'title' => $title, 'author' => q|Faried Nawaz <__undead@canvas-beauty.hungry.org>|, 'meta' => { 'Description' => 'disintegrating', 'Keywords' => 'oblivion', 'Author' => 'Faried Nawaz', 'ContactEmail' => q|__undead@canvas-beauty.hungry.org|, 'Generator' => q|Faried Nawaz (__undead@canvas-beauty.hungry.org)|}, 'bgcolor' => '#000000', 'text' => '#ffffff', 'link' => '#a0a0a0', 'vlink' => '#808080' ); # display the appropriate page body if ($queryString =~ "seq") { if ($seq eq "r") { showRandomImage(); } else { showImage(); } } elsif ($queryString =~ "software") { showSoftware(); } else { showHome(); } # we display this at the bottom of every page. sub showFooter { print "
\n"; print q|| . "\n"; print "\n"; # print "\n"; print "
\n"; print "

\n"; print q|

faried.
| . "\n"; print "

\n"; print "		\n"; # print "

\n"; # print "\"Emacs\n"; # print "

\n"; # print "		\n"; print "

\n"; print "\"powered\n"; print "

\n"; print "
\n"; # print "

\n"; # print "\"an\n"; # print "

\n"; print $query->end_html; exit(0); } # display a random url. sub showRandomImage { print "

\n"; ($width, $height) = split(/x/, $widthHeight{$urls[$randChoice]}); print "\"$title\n"; print "

\n"; print "

\n"; print "$title by $painter\n"; print "

\n"; showFooter(); } # display a specific url. sub showImage { my $prevSeq; my $seqInc; my $count; if ($seq < 0 || $seq >= $numImages) { print "

Image not found

\n"; print "

\n"; print "I'm sorry. I'm not sure how we got here. There is no image $seq.\n

\n"; print "

Back

\n"; } else { $seqInc = $seq + 1; if ($seqInc == 40) { $seqInc = 0; } print "

\n"; ($width, $height) = split(/x/, $widthHeight{$urls[$seq]}); print "\"$title\n"; print "

\n"; print "

\n"; print "$title by $painter\n"; print "

\n"; print "

\n"; if ($seq == 0) { print "Previous  "; } else { $prevSeq = $seq - 1; print "Previous  "; } if ($seq == ($numImages - 1)) { print "Next  "; } else { print "Next  "; } foreach $count (0..($numImages - 1)) { my $tmp = $count + 1; print "$tmp  "; } print "\n

\n"; print "

\n"; print "Home\n"; print "

\n"; } showFooter(); } # the main page. sub showHome { print "\n\n

\n"; if ($randFrontChoice == $numFrontImages) { print "\"Tina\n"; } else { ($title, $painter) = split(/~/, $images{$frontImages[$randFrontChoice]}); ($width, $height) = split(/x/, $widthHeight{$frontImages[$randFrontChoice]}); print "\"$title\n"; print "

\n\n

\n"; print "Click on the image or hit reload to get another picture.
\n"; print"Here are some more images.\n"; } print "

\n\n"; print "
\n"; print q|| . "\n"; print q|| . "\n"; print q|| . "\n"; print q|
| . "\n"; print q|

Resume: In HTML and text

| . "\n"; print q|		| . "\n"; print q|

Hemingway

| . "\n"; print q|		| . "\n"; showRandomLyric(); # print "

\n"; # print "All good books are alike in that they are truer than if \n"; # print "they really happened and after you are finished reading one \n"; # print "you will feel that it all happened to you and afterwards it \n"; # print "all belongs to you: the good and the bad, the ecstacy, the \n"; # print "remorse and sorrow, the people and the places and how the \n"; # print "weather was. If you can get so that you can give that to \n"; # print "people, then you are a writer.\n"; # print "

\n"; print q|
| . "\n"; ### NOTYET # print "

\n"; # print "Some software I've worked on.\n"; # print "

\n"; # showFooter(); } # a page describing software I've worked (?) on. #sub showSoftware { # print "

Software

\n"; # # showFooter(); #} ### sub showRandomLyric { my $whichLyric = rand $numLyrics; print "

\n"; print "$lyrics[$whichLyric]"; print "

\n"; } ### eof.