Cgi-lib.pl

• #!/bin/perl

• require “./cgi-lib.pl”;

• print &PrintHeader;

• if ($ReadParse(*input) == 0) {

  • &error;

• } else {

  • $vote = $input{‘vote’};
  • if ($vote eq “independent”) { $ti++; } # live free or die
  • elsif ($vote eq “united”) { $less++; } # more is less
  • else { $stquote++; } # don’t know what to do

• }

Previous slide

Next slide

Back to first slide

View graphic version