From: ndparker <> Date: Sat, 16 Jun 2001 16:48:48 +0000 (+0000) Subject: added and fixed version check(s) X-Git-Url: https://git.p6c8.net/selfforum.git/commitdiff_plain/994a1a13705382a04b6c4dbc509a787f17ad065e added and fixed version check(s) --- diff --git a/selfforum-cgi/user/fo_arcview.pl b/selfforum-cgi/user/fo_arcview.pl index 46bd8e9..073f3f3 100644 --- a/selfforum-cgi/user/fo_arcview.pl +++ b/selfforum-cgi/user/fo_arcview.pl @@ -16,6 +16,7 @@ use vars qw( $Shared $Script $Config + $VERSION ); BEGIN { @@ -25,13 +26,17 @@ BEGIN { $Config = "$Bin/../../cgi-config/forum"; $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; -# my $null = $0; #$null =~ s/\\/\//g; # for win :-( +# my $null = $0; # $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; } +# setting umask, remove or comment it, if you don't need +# +umask 006; + use lib "$Shared"; use CGI::Carp qw(fatalsToBrowser); @@ -46,6 +51,10 @@ use Template::Archive qw( use CGI qw(param header path_info); +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + print header(-type => 'text/html'); my $conf = read_script_conf($Config, $Shared, $Script); @@ -119,4 +128,4 @@ if ($year) { # # -### end of fo_view.pl ########################################################## +### end of fo_view.pl ########################################################## \ No newline at end of file