after installing apache 1.3.19 (win) i had to patch the BEGIN-Blocks (to get the...

[selfforum.git] / selfforum-cgi / user / fo_posting.pl

diff --git a/selfforum-cgi/user/fo_posting.pl b/selfforum-cgi/user/fo_posting.pl
index 91a21a1f5f1124a93e0cf2d9ae77c5168bfece86..9bc7eb03a1ff80a3678b4685a5cd8421f18ec68e 100644 (file)
--- a/selfforum-cgi/user/fo_posting.pl
+++ b/selfforum-cgi/user/fo_posting.pl
@@ -14,9 +14,11 @@ use strict;
 use vars qw($Bin $Shared $Script %subhash $httpurl $flocked);
 
 BEGIN {
 use vars qw($Bin $Shared $Script %subhash $httpurl $flocked);
 
 BEGIN {

-  ($Bin)    = ($0 =~ /^(.*)\/.*$/)? $1 : '.';
+  my $null = $0; $null =~ s/\\/\//g; # for win :-(
+  ($Bin)    = ($null =~ /^(.*)\/.*$/)? $1 : '.';

   $Shared   = "$Bin/../shared";
   $Shared   = "$Bin/../shared";

-  ($Script) = ($0 =~ /^.*\/(.*)$/)? $1 : $0;}
+  ($Script) = ($null =~ /^.*\/(.*)$/)? $1 : $null;
+}

 
 use CGI::Carp qw(fatalsToBrowser);
 
 
 use CGI::Carp qw(fatalsToBrowser);