23 lines
1.0 KiB
Plaintext
23 lines
1.0 KiB
Plaintext
$OpenBSD: patch-cgi-bin_openwebmail_openwebmail-advsearch_pl,v 1.5 2004/07/12 05:54:53 kevlo Exp $
|
|
--- cgi-bin/openwebmail/openwebmail-advsearch.pl.orig Tue May 25 17:53:48 2004
|
|
+++ cgi-bin/openwebmail/openwebmail-advsearch.pl Mon Jul 12 10:52:11 2004
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/suidperl -T
|
|
+#!/usr/bin/perl
|
|
#
|
|
# openwebmail-adsearch.pl - advanced search program
|
|
#
|
|
@@ -7,10 +7,10 @@
|
|
|
|
use vars qw($SCRIPT_DIR);
|
|
if ( $0 =~ m!^(\S*)/[\w\d\-\.]+\.pl! ) { $SCRIPT_DIR=$1 }
|
|
-if ($SCRIPT_DIR eq '' && open(F, '/etc/openwebmail_path.conf')) {
|
|
+if ($SCRIPT_DIR eq '' && open(F, '%%SYSCONFDIR%%/openwebmail/openwebmail_path.conf')) {
|
|
$_=<F>; close(F); if ( $_=~/^(\S*)/) { $SCRIPT_DIR=$1 }
|
|
}
|
|
-if ($SCRIPT_DIR eq '') { print "Content-type: text/html\n\nSCRIPT_DIR not set in /etc/openwebmail_path.conf !\n"; exit 0; }
|
|
+if ($SCRIPT_DIR eq '') { print "Content-type: text/html\n\nSCRIPT_DIR not set in %%SYSCONFDIR%%/openwebmail/openwebmail_path.conf !\n"; exit 0; }
|
|
push (@INC, $SCRIPT_DIR);
|
|
|
|
foreach (qw(PATH ENV BASH_ENV CDPATH IFS TERM)) { $ENV{$_}='' } # secure ENV
|