X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/202b3b42042128b141c6661015fffb3f90bf923e..8ee59d9d7ce698dc48659f95f1d7e90953117b48:/selfforum-cgi/user/fo_sev.pl diff --git a/selfforum-cgi/user/fo_sev.pl b/selfforum-cgi/user/fo_sev.pl index 1fa93e1..d753756 100644 --- a/selfforum-cgi/user/fo_sev.pl +++ b/selfforum-cgi/user/fo_sev.pl @@ -21,22 +21,22 @@ use vars qw( # locate the script # BEGIN { - my $null = $0; $null =~ s/\\/\//g; # for win :-( - $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; - $Shared = "$Bin/../shared"; - $Config = "$Bin/config"; - $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; - -# my $null = $0; +# my $null = $0; $null =~ s/\\/\//g; # for win :-( # $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; -# $Config = "$Bin/../../daten/forum/config"; -# $Shared = "$Bin/../../cgi-shared"; +# $Shared = "$Bin/../shared"; +# $Config = "$Bin/config"; # $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; + + my $null = $0; + $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; + $Config = "$Bin/../../cgi-config/forum"; + $Shared = "$Bin/../../cgi-shared"; + $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; } # setting umask, remove or comment it, if you don't need # -umask 006; +umask 000; ################################################################################ #