Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.25' '-r1.26' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- 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