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
(from parent 1:
67b0e97
)
&My::Web::footer call is deprecated now, use just: exit;
author
short
<>
Wed, 21 Sep 2005 04:55:55 +0000
(
04:55
+0000)
committer
short
<>
Wed, 21 Sep 2005 04:55:55 +0000
(
04:55
+0000)
HaveJS.pm
patch
|
blob
|
history
ModPerlPm.pm
patch
|
blob
|
history
Redirect.pm
patch
|
blob
|
history
diff --git
a/HaveJS.pm
b/HaveJS.pm
index
b68c554
..
6b8230d
100644
(file)
--- a/
HaveJS.pm
+++ b/
HaveJS.pm
@@
-30,12
+30,13
@@
our $HTML_TEST=0;
sub handler
{
-my $W=My::Web->init(
);
-
-
-
# Do not:
My::Web->heading();
+my $W=My::Web->init(
+ "header_only"=>1,
+ );
+My::Web->heading();
$W->{"r"}->content_type("text/javascript");
+
# Prevent redirection of some top (referring) foreign webpage as it
# may not pass "have_js=1" to us anyway. (for example Google cache)
print ""
@@
-62,7
+63,6
@@
print <<'HERE';
HERE
-# Do not: My::Web->footer();
-exit 0;
+exit;
}
1;
diff --git
a/ModPerlPm.pm
b/ModPerlPm.pm
index
7d7bf89
..
20a8fe4
100644
(file)
--- a/
ModPerlPm.pm
+++ b/
ModPerlPm.pm
@@
-61,5
+61,4
@@
my($self,%args)=@_;
cluck "No modules?" if !@r;
return @r;
}
-
1;
diff --git
a/Redirect.pm
b/Redirect.pm
index
0c0654a
..
bff6fb9
100644
(file)
--- a/
Redirect.pm
+++ b/
Redirect.pm
@@
-37,6
+37,5
@@
my $W=My::Web->init(
},
);
My::Web->http_moved($W->{"args"}{"location"},HTTP_MOVED_PERMANENTLY);
-die "NOTREACHED";
}
1;