|
Check-in Number:
|
2144 | |
| Date: |
2002-May-17 20:36:58 (local)
2002-May-17 18:36:58 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
more cleanups |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/tabea/tabea.cgi 1.25 -> 1.26
--- tabea.cgi 2002/05/17 18:34:13 1.25
+++ tabea.cgi 2002/05/17 18:36:58 1.26
@@ -35,7 +35,7 @@
$|++;
-my $cfgfile = "./tabea.cfg";
+my $cfgfile = "./tabea.cfg";
# establish my configuration
my $MY = {};
@@ -79,7 +79,7 @@
}
# Read the configuration
-my %cfghash = read_config($cfgfile);
+my %cfghash = &read_config($cfgfile);
# fetch parameters
my $dialog = $cgi->param("dialog") || "";
@@ -155,7 +155,7 @@
$out =~ s|%%BODY%%|$page|s;
$out =~ s|%%TITLE%%|Test|s;
-print $cgi->header(-cookie => $cookies, -expires => '+1s') . $out;
+print STDOUT $cgi->header(-cookie => $cookies, -expires => '+1s') . $out;
exit(0);
@@ -780,9 +780,7 @@
my $key;
my $content;
- print "Reading file: $cfgfile\n";
$cfgin = IO::File->new("<$cfgfile");
-
if (defined $cfgin) {
LOOP: while(<$cfgin>) {
$_ =~ s|^\s+(.*?)|{$_=$1}|es; # Remove whitespaces at the beginning
|
|
