2005-01-27 01:01:16 -05:00
|
|
|
$OpenBSD: patch-cgi-bin_openwebmail_openwebmail-folder_pl,v 1.6 2005/01/27 06:01:17 kevlo Exp $
|
|
|
|
|
--- cgi-bin/openwebmail/openwebmail-folder.pl.orig Wed Jan 5 18:26:24 2005
|
|
|
|
|
+++ cgi-bin/openwebmail/openwebmail-folder.pl Thu Jan 27 10:40:20 2005
|
2004-07-12 01:54:51 -04:00
|
|
|
@@ -1,14 +1,14 @@
|
2003-01-30 02:57:22 -05:00
|
|
|
-#!/usr/bin/suidperl -T
|
2004-07-12 01:54:51 -04:00
|
|
|
+#!/usr/bin/perl
|
2003-01-30 02:57:22 -05:00
|
|
|
#
|
|
|
|
|
# openwebmail-folder.pl - mail folder management program
|
|
|
|
|
#
|
2003-04-14 04:26:11 -04:00
|
|
|
|
|
|
|
|
use vars qw($SCRIPT_DIR);
|
2005-01-27 01:01:16 -05:00
|
|
|
if ( $0 =~ m!^(\S*)/[\w\d\-\.]+\.pl! ) { local $1; $SCRIPT_DIR=$1 }
|
2004-07-12 01:54:51 -04:00
|
|
|
-if ($SCRIPT_DIR eq '' && open(F, '/etc/openwebmail_path.conf')) {
|
|
|
|
|
+if ($SCRIPT_DIR eq '' && open(F, '%%SYSCONFDIR%%/openwebmail/openwebmail_path.conf')) {
|
2005-01-27 01:01:16 -05:00
|
|
|
$_=<F>; close(F); if ( $_=~/^(\S*)/) { local $1; $SCRIPT_DIR=$1 }
|
2003-04-14 04:26:11 -04:00
|
|
|
}
|
2004-07-12 01:54:51 -04:00
|
|
|
-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; }
|
2003-11-03 01:15:07 -05:00
|
|
|
push (@INC, $SCRIPT_DIR);
|
|
|
|
|
|
2005-01-27 01:01:16 -05:00
|
|
|
foreach (qw(ENV BASH_ENV CDPATH IFS TERM)) {delete $ENV{$_}}; $ENV{PATH}='/bin:/usr/bin'; # secure ENV
|
