git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
633dc05
)
Trace REQUEST_URI to STDERR to be able to track bugs to requests.
author
short
<>
Mon, 20 Oct 2003 16:00:27 +0000
(16:00 +0000)
committer
short
<>
Mon, 20 Oct 2003 16:00:27 +0000
(16:00 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
e41a314
..
0d4625b
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-95,6
+95,8
@@
sub init ($%)
{
my($class,%args)=@_;
{
my($class,%args)=@_;
+ print STDERR "$class->init ".$ENV{"REQUEST_URI"}."\n";
+
my $packages_used_save=$W->{"packages_used"};
$W={ %WebConfig,%args }; # override %WebConfig settings
$W->{"packages_used"}=$packages_used_save;
my $packages_used_save=$W->{"packages_used"};
$W={ %WebConfig,%args }; # override %WebConfig settings
$W->{"packages_used"}=$packages_used_save;