Changeset 300


Ignore:
Timestamp:
Nov 2, 2006, 10:01:09 PM (13 years ago)
Author:
Dominic Hargreaves
Message:

More cleanups

Location:
trunk/npemap.org.uk/cgi
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/cgi/bad-postcode.fcgi

    r238 r300  
    77use warnings;
    88
    9 use DBI;
    109use CGI::Fast qw/:standard -debug/;
    1110
  • trunk/npemap.org.uk/cgi/get-distant-postcodes.fcgi

    r238 r300  
    1212use warnings;
    1313
    14 use DBI;
    1514use CGI::Fast qw/:standard -debug/;
    1615
  • trunk/npemap.org.uk/cgi/get-postcodes.fcgi

    r259 r300  
    77use warnings;
    88
    9 use DBI;
    109use CGI::Fast qw/:standard -debug/;
    1110
  • trunk/npemap.org.uk/cgi/interest.fcgi

    r238 r300  
    77use warnings;
    88
    9 use DBI;
    109use CGI::Fast qw/:standard -debug/;
    1110use Email::Valid;
  • trunk/npemap.org.uk/cgi/problem.fcgi

    r296 r300  
    77use warnings;
    88
    9 use DBI;
    109use MIME::Lite;
    1110use Email::Valid;
     
    1615use lib "$FindBin::Bin/../perllib";
    1716use NPEMap;
    18 
    19 # Set up database handler to try and make sure it's ready for the first
    20 # request
    21 # No point in handling errors here since they'll get handled by the request
    22 # handler
    23 my $dbh = setup_dbh();
    2417
    2518my $returnBaseURL = '';
     
    3225    # funny business
    3326    my $returnlink = '<a href="' . $returnBaseURL . '/">Go back</a>';
    34 
    35     # In case the database went away, make sure we have a connection
    36     unless ($dbh = setup_dbh()) {
    37         print_html_err('Error setting up database connection', $returnlink);
    38         next REQUEST;
    39     }
    4027
    4128    # Input validation
     
    7259    print "<body><p>Thanks for submitting your comment.</p><P><a href='/'>Home</a></p></body></html>";
    7360
    74    
    7561
    7662}
    77 
    78 # No more requests to serve, so tidy up
    79 $dbh->disconnect;
  • trunk/npemap.org.uk/cgi/submit.fcgi

    r261 r300  
    77use warnings;
    88
    9 use DBI;
    109use CGI::Fast qw/:standard -debug/;
    1110use Geo::Postcode;
Note: See TracChangeset for help on using the changeset viewer.