home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Guests / Beethoven / CGI / count.cgi < prev    next >
Text File  |  2017-09-21  |  7KB  |  299 lines
  1. #!/usr/local/bin/perl
  2.  
  3.  
  4.  
  5. #Voting CGI script for 100 entries.
  6.  
  7. #For Multimedia Beethoven WebSite.
  8.  
  9. #(C) Copyright by Alex Bronshtein, 1996.
  10.  
  11.  
  12.  
  13.  
  14.  
  15. $change = 1000;
  16.  
  17.  
  18.  
  19. if (($ARGV [0] > 0) && ($ARGV [0] <= 100)) {
  20.  
  21.   $change = $ARGV [0];
  22.  
  23.  }
  24.  
  25. else {
  26.  
  27.   if (($ARGV [1] > 0) && ($ARGV [1] <= 100)) {
  28.  
  29.     $change = $ARGV [1];
  30.  
  31.    }
  32.  
  33.   else {
  34.  
  35.     if (($ARGV [2] > 0) && ($ARGV [2] <= 100)) {
  36.  
  37.       $change = $ARGV [2];
  38.  
  39.      }
  40.  
  41.     else {
  42.  
  43.       if (($ARGV [3] > 0) && ($ARGV [3] <= 100)) {
  44.  
  45.         $change = $ARGV [3];
  46.  
  47.        }
  48.  
  49.       else {
  50.  
  51.         if (($ARGV [4] > 0) && ($ARGV [4] <= 100)) {
  52.  
  53.           $change = $ARGV [4];
  54.  
  55.          }
  56.  
  57.         else {
  58.  
  59.           $change = 1000;
  60.  
  61.          }
  62.  
  63.        }
  64.  
  65.      }
  66.  
  67.    }
  68.  
  69.  }
  70.  
  71.  
  72.  
  73.  
  74.  
  75. open (COUNT, "countfile");   # open "countf" counter file
  76.  
  77. @count [101];
  78.  
  79. for ($i=0; $i<100; ++$i) 
  80.  
  81.  {
  82.  
  83.   $counter = <COUNT>;        
  84.  
  85.   ++$counter;
  86.  
  87.   --$counter;
  88.  
  89.   $count [$i] = $counter;
  90.  
  91.  }
  92.  
  93.  
  94.  
  95. close (COUNT);               # close file (primarily to "re-set")
  96.  
  97. if ($change ne 1000) {
  98.  
  99.  
  100.  
  101. open (COUNT, ">countfile");  # open "countf" for 'output'
  102.  
  103.  
  104.  
  105. for ($i=0; $i<100; ++$i) 
  106.  
  107.  {
  108.  
  109.   $counter = $count [$i];
  110.  
  111.   if ($i eq $change) {
  112.  
  113.     ++$counter;
  114.  
  115.     print COUNT "$counter\n";  
  116.  
  117.     $count [$i] = $counter;
  118.  
  119.    }
  120.  
  121.   else {
  122.  
  123.     print COUNT "$counter\n";
  124.  
  125.    }
  126.  
  127.  
  128.  
  129.  }
  130.  
  131.  
  132.  
  133. close (COUNT);               # close file
  134.  
  135. }
  136.  
  137.  
  138.  
  139. print "Content-Type: text/html\n\n";
  140.  
  141.  
  142.  
  143. print" <HTML> \n";
  144.  
  145. print" <body BGCOLOR='#FFFFFF' LINK='#FF0000' VLINK='#008000'>\n";
  146.  
  147. print" </center> \n";
  148.  
  149. print" <table cellspacing=3 border=0> \n";
  150.  
  151. print" <tr><td width=100 align=left valign=top> \n";
  152.  
  153. print" <p align='center'> \n";
  154.  
  155. print" <a href='/Guests/Beethoven/composer.htm'><img src='compos.jpg' alt='COMPOSER' border=0><br> \n";
  156.  
  157. print" <a href='/Guests/Beethoven/audio.htm'><img src='audio.jpg' alt='FRAGMENTS' border=0><br> \n";
  158.  
  159. print" <a href='/Guests/Beethoven/portrait.htm'><img src='portrait.jpg' alt='PORTRAIT' border=0><br> \n";
  160.  
  161. print" <a href='/Guests/Beethoven/download.htm'><img src='download.jpg' alt='DOWNLOAD' border=0><br> \n";
  162.  
  163. print" <a href='/Guests/Beethoven/links.htm'><img src='links.jpg' alt='LINKS' border=0><br> \n";
  164.  
  165. print" <a href='/Guests/Beethoven/about.htm'><img src='ABOUT.jpg' alt='ABOUT' border=0><br> \n";
  166.  
  167. print" <a href='mailto:broncom@netvision.net.il'><img src='mail.jpg' alt='MAIL' border=0><br> \n";
  168.  
  169. print" </p> \n";
  170.  
  171. print" </td> \n";
  172.  
  173. print" <td align=left width=500 valign=top> \n";
  174.  
  175. print" <table><tr><td align=left width=500 valign=top> \n";
  176.  
  177. print" <center> \n";
  178.  
  179. print" <img src='votelogo.jpg' alt='Vote Logo'> \n";
  180.  
  181. print" </center> \n";
  182.  
  183. print" <br> \n";
  184.  
  185. print" <br> \n";
  186.  
  187. print" <center> \n";
  188.  
  189.  
  190.  
  191. print" <table align='center' border=0 valign='middle'> \n";
  192.  
  193. print" <tr><td width='%80'><b>Piece of Music</b></td><td align=center width='%10'><b>Vote</b></td></tr> \n";
  194.  
  195.  
  196.  
  197. print" <tr><td width='%80'><a href=count.cgi?1>Symphony No. 1</a></td> <td align=center width='%10'> ",$count [1], "</td></tr> \n";
  198.  
  199. print" <tr><td width='%80'><a href=count.cgi?2>Symphony No. 2</a></td> <td align=center width='%10'> ",$count [2], "</td></tr> \n";
  200.  
  201. print" <tr><td width='%80'><a href=count.cgi?3>Symphony No. 3 'Eroica'</a></td> <td align=center width='%10'> ",$count [3], "</td></tr> \n";
  202.  
  203. print" <tr><td width='%80'><a href=count.cgi?4>Symphony No. 4</a></td> <td align=center width='%10'> ",$count [4], "</td></tr> \n";
  204.  
  205. print" <tr><td width='%80'><a href=count.cgi?5>Symphony No. 5</a></td> <td align=center width='%10'> ",$count [5], "</td></tr> \n";
  206.  
  207. print" <tr><td width='%80'><a href=count.cgi?6>Symphony No. 6 'Pastoral'</a></td> <td align=center width='%10'> ",$count [6], "</td></tr> \n";
  208.  
  209. print" <tr><td width='%80'><a href=count.cgi?7>Symphony No. 7</a></td> <td align=center width='%10'> ",$count [7], "</td></tr> \n";
  210.  
  211. print" <tr><td width='%80'><a href=count.cgi?8>Symphony No. 8</a></td> <td align=center width='%10'> ",$count [8], "</td></tr> \n";
  212.  
  213. print" <tr><td width='%80'><a href=count.cgi?9>Symphony No. 9 'Choral'</a></td> <td align=center width='%10'> ",$count [9], "</td></tr> \n";
  214.  
  215.  
  216.  
  217. print" <tr><td width='%80'><a href=count.cgi?10>Piano concerto No. 1</a></td> <td align=center width='%10'> ",$count [10], "</td></tr> \n";
  218.  
  219. print" <tr><td width='%80'><a href=count.cgi?11>Piano concerto No. 2</a></td> <td align=center width='%10'> ",$count [11], "</td></tr> \n";
  220.  
  221. print" <tr><td width='%80'><a href=count.cgi?12>Piano concerto No. 3</a></td> <td align=center width='%10'> ",$count [12], "</td></tr> \n";
  222.  
  223. print" <tr><td width='%80'><a href=count.cgi?13>Piano concerto No. 4</a></td> <td align=center width='%10'> ",$count [13], "</td></tr> \n";
  224.  
  225. print" <tr><td width='%80'><a href=count.cgi?14>Piano concerto No. 5 'Emperor'</a></td> <td align=center width='%10'> ",$count [14], "</td></tr> \n";
  226.  
  227.  
  228.  
  229. print" <tr><td width='%80'><a href=count.cgi?15>Piano Sonata No. 8 'Pathetique'</a></td> <td align=center width='%10'> ",$count [15], "</td></tr> \n";
  230.  
  231. print" <tr><td width='%80'><a href=count.cgi?16>Piano Sonata No. 14 'Moonlight'</a></td> <td align=center width='%10'> ",$count [16], "</td></tr> \n";
  232.  
  233. print" <tr><td width='%80'><a href=count.cgi?17>Piano Sonata No. 17 'Der Sturm'</a></td> <td align=center width='%10'> ",$count [17], "</td></tr> \n";
  234.  
  235. print" <tr><td width='%80'><a href=count.cgi?18>Piano Sonata No. 23 'Appassionata'</a></td> <td align=center width='%10'> ",$count [18], "</td></tr> \n";
  236.  
  237.  
  238.  
  239. print" <tr><td width='%80'><a href=count.cgi?19>Trio No. 5 'Ghost'</a></td> <td align=center width='%10'> ",$count [19], "</td></tr> \n";
  240.  
  241. print" <tr><td width='%80'><a href=count.cgi?20>For Elise (Album Leaf)</a></td> <td align=center width='%10'> ",$count [20], "</td></tr> \n";
  242.  
  243.  
  244.  
  245. print" </table> \n";
  246.  
  247. print" </center> \n";
  248.  
  249. print" <br> \n";
  250.  
  251. print" <hr> \n";
  252.  
  253. print" <center> \n";
  254.  
  255. print" <font size=-1> \n";
  256.  
  257. print" <a href='/Guests/Beethoven/index.htm'>[Back]</a> \n";
  258.  
  259. print" <a href='/Guests/Beethoven/composer.htm'>[Composer]</a> \n";
  260.  
  261. print" <a href='/Guests/Beethoven/audio.htm'>[Fragments]</a> \n";
  262.  
  263. print" <a href='/Guests/Beethoven/portrait.htm'>[Portraits]</a> \n";
  264.  
  265. print" <a href='/Guests/Beethoven/download.htm'>[Download]</a> \n";
  266.  
  267. print" <a href='/Guests/Beethoven/links.htm'>[Links]</a> \n";
  268.  
  269. print" <a href='/Guests/Beethoven/about.htm'>[About]</a> \n";
  270.  
  271. print" <a href='mailto:broncom@netvision.net.il'>[Mail]</a> \n";
  272.  
  273. print" </font> \n";
  274.  
  275. print" <p align='left'> \n";
  276.  
  277. print" <br> \n";
  278.  
  279. print" </p> \n";
  280.  
  281. print" </td> \n";
  282.  
  283. print" </tr> \n";
  284.  
  285. print" </table> \n";
  286.  
  287. print" </td></tr> \n";
  288.  
  289. print" </table> \n";
  290.  
  291. print" </body> \n";
  292.  
  293. print" </html> \n";
  294.  
  295.  
  296.  
  297. # print "Hello and Welcome to My Page user from $ENV{'REMOTE_HOST'} \n";
  298.  
  299.