From f326cd2be51f2d83de4f5fcb656a9ffc9073d987 Mon Sep 17 00:00:00 2001 From: Michael Adam Date: Mon, 14 Jan 2008 15:44:41 +0100 Subject: Fix bug #5171 (perl syntax error) found by Jason Filley Michael (This used to be commit dcb5034acd35d219106e1d855f4c4d36b3c8d83b) --- examples/logon/genlogon/genlogon.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples') diff --git a/examples/logon/genlogon/genlogon.pl b/examples/logon/genlogon/genlogon.pl index 8ebf392141..4799ac8452 100644 --- a/examples/logon/genlogon/genlogon.pl +++ b/examples/logon/genlogon/genlogon.pl @@ -45,7 +45,7 @@ if ($ARGV[1] eq "SUPPORT" || $ARGV[0] eq "support") } # Connect shares just used by Administration staff -If ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin") +if ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin") { print LOGON "NET USE L: \\\\$ARGV[2]\\ADMIN\r\n"; print LOGON "NET USE K: \\\\$ARGV[2]\\MKTING\r\n"; -- cgit