From 18aadce8eeb9969c3b88e0e3e2cd22be311ae70c Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 20 Aug 2010 18:14:20 +0000
Subject: [PATCH] -Fix credentials plugin

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7180 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/credentials.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/xcat/plugins/credentials.pm b/xCAT-server/lib/xcat/plugins/credentials.pm
index 5d3888d5c..e278788e0 100644
--- a/xCAT-server/lib/xcat/plugins/credentials.pm
+++ b/xCAT-server/lib/xcat/plugins/credentials.pm
@@ -24,6 +24,7 @@
 
 #-------------------------------------------------------
 package xCAT_plugin::credentials;
+use strict;
 use xCAT::Table;
 use Data::Dumper;
 use xCAT::NodeRange;
@@ -78,7 +79,7 @@ sub process_request
     if ($request->{'_xcat_clienthost'}) {
        $client = $request->{'_xcat_clienthost'}->[0];
     }
-    my %rsp;
+    my $rsp;
     # do your processing here
     # return info
 
@@ -88,7 +89,7 @@ sub process_request
     }
     my $credcheck;
     if ($request->{'callback_port'} and $request->{'callback_port'}->[0] and $request->{'callback_port'}->[0] < 1024) {
-        $credcheck=[0,request->{'callback_port'}->[0]];
+        $credcheck=[0,$request->{'callback_port'}->[0]];
     } elsif ($request->{'callback_https_port'} and $request->{'callback_https_port'}->[0] and $request->{'callback_https_port'}->[0] < 1024) {
         $credcheck=[1,$request->{'callback_https_port'}->[0]];
     } else {