Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Code review, good 'ol CGI.

by tachyon (Chancellor)
on Jul 29, 2001 at 11:26 UTC ( #100653=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    my $flock = 1;    # set to true to flock
    my $timeout = 10; # set to number of seconds before flock timeout
          DieNice("Can't lock file '$file': $!\n") if ++$count >= $timeout
  2. or download this
    $mode       =~ tr#a-z_##cd;   # untaint that param!
  3. or download this
    if ( $mode =~ /^([a-z_]+)_go$/ ) {
        $page   = $1 or die "no page given!";
  4. or download this
    open FILE, ">>$file" or die "Can't append to $file, Perl says $!\n";
  5. or download this
    sub main {
  6. or download this
    sub main {
  7. or download this
    sub DieNice {
        $unindent =~ s/^[ \t]+//gm;
      return $unindent;

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://100653]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2023-03-25 22:45 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (63 votes). Check out past polls.