Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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 {
    
    ...
    
      $draw->html_end();
    }
    
  6. or download this
    sub main {
    
    ...
        }
        $draw->html_end();
    }
    
  7. or download this
    sub DieNice {
    
    ...
        $unindent =~ s/^[ \t]+//gm;
      return $unindent;
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2023-02-07 17:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (40 votes). Check out past polls.

    Notices?