diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
| commit | a4183b2fdd19d83c7705c423623c117c4118860f (patch) | |
| tree | deea607f3e64d2f73156138f7bee96e234c32598 /bin/admin.pl | |
| parent | 6eb1b88d9ac9fde4efca4668b99d9628f0a9cd10 (diff) | |
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
Diffstat (limited to 'bin/admin.pl')
| -rwxr-xr-x | bin/admin.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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 = <FH>; close(FH); - if (open(FH, "custom_$menufile")) { + if (open(FH, '<', "custom_$menufile")) { push @a, <FH>; } @@ -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 = <TEMP>) { 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!')); |