#!/usr/local/bin/perl #Voting CGI script for 100 entries. #For Multimedia Beethoven WebSite. #(C) Copyright by Alex Bronshtein, 1996. $change = 1000; if (($ARGV [0] > 0) && ($ARGV [0] <= 100)) { $change = $ARGV [0]; } else { if (($ARGV [1] > 0) && ($ARGV [1] <= 100)) { $change = $ARGV [1]; } else { if (($ARGV [2] > 0) && ($ARGV [2] <= 100)) { $change = $ARGV [2]; } else { if (($ARGV [3] > 0) && ($ARGV [3] <= 100)) { $change = $ARGV [3]; } else { if (($ARGV [4] > 0) && ($ARGV [4] <= 100)) { $change = $ARGV [4]; } else { $change = 1000; } } } } } open (COUNT, "countfile"); # open "countf" counter file @count [101]; for ($i=0; $i<100; ++$i) { $counter = ; ++$counter; --$counter; $count [$i] = $counter; } close (COUNT); # close file (primarily to "re-set") if ($change ne 1000) { open (COUNT, ">countfile"); # open "countf" for 'output' for ($i=0; $i<100; ++$i) { $counter = $count [$i]; if ($i eq $change) { ++$counter; print COUNT "$counter\n"; $count [$i] = $counter; } else { print COUNT "$counter\n"; } } close (COUNT); # close file } print "Content-Type: text/html\n\n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print"
\n"; print"

\n"; print" COMPOSER
\n"; print" FRAGMENTS
\n"; print" PORTRAIT
\n"; print" DOWNLOAD
\n"; print" LINKS
\n"; print" ABOUT
\n"; print" MAIL
\n"; print"

\n"; print" 		\n"; print" \n"; print" \n"; print"
\n"; print"
\n"; print" Vote Logo \n"; print"
\n"; print"
\n"; print"
\n"; print"
\n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print" \n"; print"
Piece of MusicVote
Symphony No. 1 ",$count [1], "
Symphony No. 2 ",$count [2], "
Symphony No. 3 'Eroica' ",$count [3], "
Symphony No. 4 ",$count [4], "
Symphony No. 5 ",$count [5], "
Symphony No. 6 'Pastoral' ",$count [6], "
Symphony No. 7 ",$count [7], "
Symphony No. 8 ",$count [8], "
Symphony No. 9 'Choral' ",$count [9], "
Piano concerto No. 1 ",$count [10], "
Piano concerto No. 2 ",$count [11], "
Piano concerto No. 3 ",$count [12], "
Piano concerto No. 4 ",$count [13], "
Piano concerto No. 5 'Emperor' ",$count [14], "
Piano Sonata No. 8 'Pathetique' ",$count [15], "
Piano Sonata No. 14 'Moonlight' ",$count [16], "
Piano Sonata No. 17 'Der Sturm' ",$count [17], "
Piano Sonata No. 23 'Appassionata' ",$count [18], "
Trio No. 5 'Ghost' ",$count [19], "
For Elise (Album Leaf) ",$count [20], "
\n"; print"
\n"; print"
\n"; print"
\n"; print"
\n"; print" \n"; print" [Back] \n"; print" [Composer] \n"; print" [Fragments] \n"; print" [Portraits] \n"; print" [Download] \n"; print" [Links] \n"; print" [About] \n"; print" [Mail] \n"; print" \n"; print"

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

\n"; print"
\n"; print"
\n"; print" \n"; print" \n"; # print "Hello and Welcome to My Page user from $ENV{'REMOTE_HOST'} \n";