git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
&My::Web::footer call is deprecated now, use just: exit;
[www.jankratochvil.net.git]
/
project
/
ChangeLog.pm
diff --git
a/project/ChangeLog.pm
b/project/ChangeLog.pm
index
47d2bd4
..
dbed17e
100755
(executable)
--- a/
project/ChangeLog.pm
+++ b/
project/ChangeLog.pm
@@
-36,9
+36,10
@@
my $W=My::Web->init(
"cvs"=>'^[\w\d][\w\d/.]*$',
},
);
"cvs"=>'^[\w\d][\w\d/.]*$',
},
);
+My::Web->heading();
+$W->{"r"}->content_type("text/plain");
-$W->{"r"}->content_type("text/plain");
local *F;
open F,""
."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
local *F;
open F,""
."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
@@
-49,6
+50,6
@@
print $_ while <F>;
close F;
close F;
-exit
0
;
+exit;
}
1;
}
1;