From a4183b2fdd19d83c7705c423623c117c4118860f Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 5 Dec 2006 04:21:13 +0000 Subject: Converting 2-arg open to 3-arg open git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@719 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'bin/admin.pl') diff --git a/bin/admin.pl b/bin/admin.pl index 47f8c5ae..c93a24fc 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -589,12 +589,12 @@ sub form_header { # access control - open(FH, $menufile) or $form->error(__FILE__.':'.__LINE__.': '."$menufile : $!"); + open(FH, '<', $menufile) or $form->error(__FILE__.':'.__LINE__.': '."$menufile : $!"); # scan for first menu level @a = ; close(FH); - if (open(FH, "custom_$menufile")) { + if (open(FH, '<', "custom_$menufile")) { push @a, ; } @@ -801,10 +801,10 @@ sub save { foreach $file (@templates) { - open(TEMP, "${LedgerSMB::Sysconfig::templates}/$file") or $form->error(__FILE__.':'.__LINE__.': '."$templates/$file : $!"); + open(TEMP, '<', "${LedgerSMB::Sysconfig::templates}/$file") or $form->error(__FILE__.':'.__LINE__.': '."$templates/$file : $!"); $file =~ s/$form->{mastertemplates}-//; - open(NEW, ">$form->{templates}/$file") or $form->error(__FILE__.':'.__LINE__.': '."$form->{templates}/$file : $!"); + open(NEW, '>', "$form->{templates}/$file") or $form->error(__FILE__.':'.__LINE__.': '."$form->{templates}/$file : $!"); while ($line = ) { print NEW $line; @@ -1297,7 +1297,7 @@ sub unlock_system { sub lock_system { # This needs to be done with a db tool - #open(FH, ">${LedgerSMB::Sysconfig::userspath}/nologin") or $form->error($locale->text('Cannot create Lock!')); + #open(FH, '>', "${LedgerSMB::Sysconfig::userspath}/nologin") or $form->error($locale->text('Cannot create Lock!')); #close(FH); $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}"; $form->redirect($locale->text('Lockfile created!')); -- cgit v1.2.3