From 036f60865172bc36e1468afd64d5ac775fa39529 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 5 Dec 2006 04:53:13 +0000
Subject: Converting 2-arg open to 3-arg open

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@720 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/admin.pl | 10 +++++-----
 bin/am.pl    |  4 ++--
 bin/login.pl |  4 ++--
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'bin')

diff --git a/bin/admin.pl b/bin/admin.pl
index 1a0a765b..0ecbe449 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&amp;path=$form->{path}";
 	$form->redirect($locale->text('Lockfile created!'));
diff --git a/bin/am.pl b/bin/am.pl
index 56820e39..60c53500 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -1407,9 +1407,9 @@ sub save_language {
 
       foreach $file (@templates) {
 	if (-f "$myconfig{templates}/$file") {
-	  open(TEMP, "$myconfig{templates}/$file") or $form->error("$myconfig{templates}/$file : $!");
+	  open(TEMP, '<', "$myconfig{templates}/$file") or $form->error("$myconfig{templates}/$file : $!");
 
-	  open(NEW, ">$myconfig{templates}/$form->{code}/$file") or $form->error("$myconfig{templates}/$form->{code}/$file : $!");
+	  open(NEW, '>', "$myconfig{templates}/$form->{code}/$file") or $form->error("$myconfig{templates}/$form->{code}/$file : $!");
 
 	  while ($line = <TEMP>) {
 	    print NEW $line;
diff --git a/bin/login.pl b/bin/login.pl
index 8fe9a7cf..bff94a10 100755
--- a/bin/login.pl
+++ b/bin/login.pl
@@ -238,7 +238,7 @@ sub login {
 
 	#this needs to be done via db
 	#if (! $form->{beenthere}) {
-	#	open(FH, "${LedgerSMB::Sysconfig::memberfile}") or $form->error(__FILE__.':'.__LINE__.": $memberfile : $!");
+	#	open(FH, '<', "${LedgerSMB::Sysconfig::memberfile}") or $form->error(__FILE__.':'.__LINE__.": $memberfile : $!");
 	#	@a = <FH>;
 	#	close(FH);
 	#
@@ -282,7 +282,7 @@ sub login {
 			# upgrade dataset and log in again
 
 			#locking needs to be done via db function
-			#open FH, ">${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!);
+			#open FH, '>', "${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!);
 
 			for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} }
 
-- 
cgit v1.2.3