diff --git a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi index 83f036c..5e7cdfa 100755 --- a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi +++ b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi @@ -69,7 +69,7 @@ use vars qw[$HOME_DIR]; $HOME_DIR=$tmp[7]; use vars qw[$DEFAULT_OPTIONS %EZMLM_LABELS $UNSAFE_RM $ALIAS_USER $LIST_DIR]; use vars qw[$QMAIL_BASE $EZMLM_CGI_RC $EZMLM_CGI_URL $HTML_BGCOLOR $PRETTY_NAMES]; use vars qw[%HELPER $HELP_ICON_URL $HTML_HEADER $HTML_FOOTER $HTML_TEXT $HTML_LINK]; -use vars qw[%BUTTON %LANGUAGE $HTML_VLINK $HTML_TITLE $FILE_UPLOAD]; +use vars qw[%BUTTON %LANGUAGE $HTML_VLINK $HTML_TITLE $FILE_UPLOAD $WEBUSERS_FILE]; # Get user configuration stuff if(defined($opt_C)) { @@ -266,7 +266,7 @@ sub select_list { # Check that they actually are lists ... foreach $i (0 .. $#files) { if (-e "$LIST_DIR/$files[$i]/lock") { - if (-e "$LIST_DIR/webusers") { + if (-e "$WEBUSERS_FILE") { if (&webauth($files[$i]) == 0) { $lists[$#lists + 1] = $files[$i]; } @@ -641,7 +641,7 @@ sub allow_create_list { print '
', $LANGUAGE{'allowedtoedit'}, ': ',
$q->textfield(-name=>'webusers', -value=>$ENV{'REMOTE_USER'}||'ALL', -size=>'30'), ' ',
'
', $HELPER{'allowedit'}, ''
- if(-e "$LIST_DIR/webusers");
+ if(-e "$WEBUSERS_FILE");
print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' '; print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' '; @@ -749,7 +749,7 @@ sub list_config { print '
', $LANGUAGE{'headeradd'}, ':
', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70);
print '
', $LANGUAGE{'mimeremove'}, ':
', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70) if defined($mimeremove);
- if(open(WEBUSER, "<$LIST_DIR/webusers")) {
+ if(open(WEBUSER, "<$$WEBUSERS_FILE")) {
my($webusers);
while(