git.p6c8.net
/
selfforum.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
12cb924
)
added version check
author
ndparker
<>
Sat, 16 Jun 2001 16:45:06 +0000
(16:45 +0000)
committer
ndparker
<>
Sat, 16 Jun 2001 16:45:06 +0000
(16:45 +0000)
selfforum-cgi/user/fo_view.pl
patch
|
blob
|
history
diff --git
a/selfforum-cgi/user/fo_view.pl
b/selfforum-cgi/user/fo_view.pl
index bc9190fb81a6cef9570e5922fd441c8c7913149d..42e61532a491b2c35322089e7174ce1768200e4f 100644
(file)
--- a/
selfforum-cgi/user/fo_view.pl
+++ b/
selfforum-cgi/user/fo_view.pl
@@
-25,13
+25,17
@@
BEGIN {
$Config = "$Bin/config";
$Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
$Config = "$Bin/config";
$Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
-# my $null = $0;
#$null =~ s/\\/\//g; # for win :-(
+# my $null = $0;
# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.';
# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.';
-# $Config = "$Bin/../../
../cgi-config/devforum
";
-# $Shared = "$Bin/../../
../
cgi-shared";
+# $Config = "$Bin/../../
daten/forum/config
";
+# $Shared = "$Bin/../../cgi-shared";
# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
}
# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null;
}
+# setting umask, remove or comment it, if you don't need
+#
+umask 006;
+
use lib "$Shared";
use CGI::Carp qw(fatalsToBrowser);
use lib "$Shared";
use CGI::Carp qw(fatalsToBrowser);
@@
-40,9
+44,19
@@
use Conf::Admin;
use Template::Forum;
use Template::Posting;
use Template::Forum;
use Template::Posting;
-use CGI qw(param header);
+use CGI qw(
+ param
+ header
+);
+
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
-print header(-type => 'text/html');
+print header(
+ -type => 'text/html',
+ -expires => '+10m'
+);
my $conf = read_script_conf ($Config, $Shared, $Script);
my $conf = read_script_conf ($Config, $Shared, $Script);
patrick-canterino.de