X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/05fece1bcf0d5913f64e425d1455cbac8291cb72..cee4397796b2a1015b88addca2de54fe50dbc3f8:/selfforum-cgi/user/fo_voting.pl diff --git a/selfforum-cgi/user/fo_voting.pl b/selfforum-cgi/user/fo_voting.pl index 284857e..a37fbe5 100644 --- a/selfforum-cgi/user/fo_voting.pl +++ b/selfforum-cgi/user/fo_voting.pl @@ -19,17 +19,17 @@ use vars qw( ); 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; #$null =~ s/\\/\//g; # for win :-( + my $null = $0; $null =~ s/\\/\//g; # for win :-( $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; - $Config = "$Bin/../../../cgi-config/devforum"; - $Shared = "$Bin/../../../cgi-shared"; + $Shared = "$Bin/../shared"; + $Config = "$Bin/config"; $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; + +# my $null = $0; #$null =~ s/\\/\//g; # for win :-( +# $Bin = ($null =~ /^(.*)\/.*$/)? $1 : '.'; +# $Config = "$Bin/../../../cgi-config/devforum"; +# $Shared = "$Bin/../../../cgi-shared"; +# $Script = ($null =~ /^.*\/(.*)$/)? $1 : $null; } use lib $Shared; @@ -66,7 +66,7 @@ my ($tid, $mid) = map {$_ || 0} split /;/ => $fup, 2; $tid = ($tid=~/(\d+)/)[0] || 0; $mid = ($mid=~/(\d+)/)[0] || 0; -my $cache = new Posting::Cache ($conf->{files}->{cacheFile}); +my $cache = new Posting::Cache ($conf->{files}->{cachePath}); my $hash; if ($hash = $cache -> pick ({thread => $tid, posting => $mid})) { @@ -105,7 +105,7 @@ print_posting_as_HTML ( cgi => $cgi, tree => $tree, voted => $voted || '', - cachefile => $conf -> {files} -> {cacheFile} + cachepath => $conf -> {files} -> {cachePath} } );