$OpenBSD: patch-cgi-bin_openwebmail_openwebmail-webdisk_pl,v 1.2 2003/11/03 06:15:15 kevlo Exp $
--- cgi-bin/openwebmail/openwebmail-webdisk.pl.orig	Sat Nov  1 11:29:17 2003
+++ cgi-bin/openwebmail/openwebmail-webdisk.pl	Sat Nov  1 11:29:59 2003
@@ -1,4 +1,4 @@
-#!/usr/bin/suidperl -T
+#!/usr/bin/perl -T
 #
 # openwebmail-webdisk.pl - web disk program
 #
@@ -18,10 +18,10 @@
 
 use vars qw($SCRIPT_DIR);
 if ( $0 =~ m!^(\S*)/[\w\d\-\.]+\.pl! ) { $SCRIPT_DIR=$1; }
-if (!$SCRIPT_DIR && open(F, '/etc/openwebmail_path.conf')) {
+if (!$SCRIPT_DIR && open(F, '%%SYSCONFDIR%%/openwebmail/openwebmail_path.conf')) {
    $_=<F>; close(F); if ( $_=~/^(\S*)/) { $SCRIPT_DIR=$1; }
 }
-if (!$SCRIPT_DIR) { print "Content-type: text/html\n\nSCRIPT_DIR not set in /etc/openwebmail_path.conf !\n"; exit 0; }
+if (!$SCRIPT_DIR) { print "Content-type: text/html\n\nSCRIPT_DIR not set in %%SYSCONFDIR%%/openwebmail/openwebmail_path.conf !\n"; exit 0; }
 push (@INC, $SCRIPT_DIR);
 
 $ENV{PATH} = ""; # no PATH should be needed