git.p6c8.net
/
selfforum.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added and fixed version check(s)
[selfforum.git]
/
selfforum-cgi
/
user
/
fo_view.pl
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