Rediff Poll

#!/usr/bin/perl require "/web/htdocs/ronpoll/cgi-lib.pl" || die "cgi-lib.pl not found"; require "/web/htdocs/ronpoll/cookie.lib" || die "cookie.lib not found"; $date=localtime(time); # If there is already a rpoll cookie i.e. the user has polled once in this # session or the Browser does not support cookies then we re-direct the user # to the Rediff Home Page. if (&GetCookies('rpoll')) { print "location:http://www.rediff.com/\n\n"; exit(0); } # Let's give them a session cookie and proceed to vote page else { # Print out the HTML Content-Type header. print "Content-type: text/html\n"; print "Pragma: no-cache\n"; print "Expires: $date \n"; # Set a new cookie. &SetCookies('rpoll','1'); # End the headers sent to browser. print "\n"; print< Rediff Poll


HOME \| REDIFF POLL

SOMEHTML open (HAND,"/web/htdocs/ronpoll/question") || die "Error opening file polldata $!|n"; while () { print; } print<
Yes
No
Undecided

LASTHTML } # End the if-else

SOMEHTML open (HAND,"/web/htdocs/ronpoll/question") || die "Error opening file polldata $!|n"; while () { print; } print< Yes No Undecided

SOMEHTML open (HAND,"/web/htdocs/ronpoll/question") || die "Error opening file polldata $!|n"; while () { print; } print<
Yes
No
Undecided