Last change
on this file since 479 was 479, checked in by Kris Deugau, 14 years ago |
/branches/htmlform
Convert initial DB connection error output to a sane page. Could arguably provide
space for this (and other) errors on all normal pages. (See #3).
This allows us to:
- Remove editError sub in main.cgi
- Remove printHeader sub in CommonWeb.pm (see #15, #26)
Removed duplicate "exit if we get this far"
Tweak IPDB::finish so it doesn't spit a fatal error when called with a null database handle
|
File size:
1.4 KB
|
Rev | Line | |
---|
[8] | 1 | # ipdb/cgi-bin/CommonWeb.pm
|
---|
| 2 | ###
|
---|
| 3 | # SVN revision info
|
---|
| 4 | # $Date$
|
---|
| 5 | # SVN revision $Rev$
|
---|
| 6 | # Last update by $Author$
|
---|
| 7 | ###
|
---|
| 8 |
|
---|
[4] | 9 | package CommonWeb;
|
---|
| 10 |
|
---|
| 11 | use strict;
|
---|
| 12 | use warnings;
|
---|
| 13 | use Exporter;
|
---|
| 14 | use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
---|
| 15 |
|
---|
| 16 | $VERSION = 1.00;
|
---|
| 17 | @ISA = qw(Exporter);
|
---|
[479] | 18 | @EXPORT_OK = qw( &printError &printAndExit &desanitize &cleanInput &desanitize);
|
---|
[4] | 19 |
|
---|
| 20 | @EXPORT = (); #export nothing by default
|
---|
[449] | 21 | %EXPORT_TAGS = ( ALL => [qw( &printHeader &printError
|
---|
[4] | 22 | &printAndExit &desanitize &cleanInput )],
|
---|
[449] | 23 | lean => [qw( &printHeader &printError
|
---|
[4] | 24 | &printAndExit &cleanInput )]
|
---|
| 25 | );
|
---|
| 26 |
|
---|
| 27 |
|
---|
| 28 | sub printError($)
|
---|
| 29 | {
|
---|
| 30 | my $errStr = $_[0];
|
---|
| 31 | print qq(
|
---|
[105] | 32 | <center><p class="regular"> $errStr </p>
|
---|
| 33 | <input type="button" value="Back" onclick="history.go(-1)">
|
---|
| 34 | </center>
|
---|
[4] | 35 | );
|
---|
| 36 | }
|
---|
| 37 |
|
---|
| 38 | sub printAndExit($)
|
---|
| 39 | {
|
---|
| 40 | my $errStr = $_[0];
|
---|
| 41 | print qq(
|
---|
| 42 | <center><p class="regular"> $errStr </p>
|
---|
| 43 | <input type="button" value="Back" onclick="history.go(-1)">
|
---|
| 44 | </center>
|
---|
| 45 | );
|
---|
[450] | 46 | print "<br>would print footer but already dun gone and shot(self->foot)\n";
|
---|
[4] | 47 | exit(0);
|
---|
| 48 | }
|
---|
| 49 |
|
---|
| 50 | # needs a reference to the webvar hash.
|
---|
| 51 | # takes out backticks and single quotes
|
---|
| 52 | sub cleanInput($)
|
---|
| 53 | {
|
---|
| 54 | my $hashRef = $_[0];
|
---|
| 55 |
|
---|
| 56 | foreach my $key (keys %$hashRef)
|
---|
| 57 | {
|
---|
| 58 | $hashRef->{$key} =~ s/`/\\`/g;
|
---|
| 59 | $hashRef->{$key} =~ s/'/\'/g;
|
---|
| 60 | }
|
---|
| 61 | }
|
---|
| 62 |
|
---|
| 63 | # undoes clean input. takes a string as an arg.
|
---|
| 64 | sub desanitize($)
|
---|
| 65 | {
|
---|
| 66 | my $string = $_[0];
|
---|
| 67 | $string =~ s/\\`/`/g;
|
---|
| 68 | $string =~ s/\\'/'/g;
|
---|
| 69 | return $string;
|
---|
| 70 | }
|
---|
| 71 |
|
---|
| 72 | # indicate that the module loaded okay.
|
---|
| 73 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.