Thanks for all the suggestions and replies guys. After further investigation, it seems the bug is rather in the shell program itself. Even if reading the values from a text file instead of STDIN, it still refuses to parse anything beyond a # character.
I've altered my code to use Authen::Radius instead, and it seems to be working better. -- Chris. On Fri, May 16, 2014 at 10:54 AM, Simon Foutaiz <smo...@gmail.com> wrote: > You can take a look at the IPC::Cmd module that should remove some pain when > dealing with system commands through Perl. > > https://metacpan.org/pod/IPC::Cmd > > > On Thu, May 15, 2014 at 3:10 PM, Chris Knipe <sav...@savage.za.org> wrote: >> >> Hi All, >> >> I'm having a bit of a strange issue executing a system command through >> perl. >> The system command reads a bunch of parameters through STDIN, and responds >> via STDOUT. The problem is that special commands (notably the "#" and "!" >> character. Perl itself, escapes the characters correctly (as indicated >> through the print $RADCommand code), but the command once executed through >> the shell, but from there it goes pear shaped once the system executes the >> command.. >> >> A quick example: >> use Data::Dumper; >> use strict; >> use warnings; >> my $AuthName = "user\@domain.com"; >> my $AuthPass = "!\@#bsay0nd"; >> my $ClientIP = "10.0.0.3"; >> my $RADCommand = "/bin/echo -e "; >> $RADCommand .= "Called-Station-Id = x.x.x.42, "; >> $RADCommand .= "Calling-Station-Id = " . $ClientIP . ", "; >> $RADCommand .= "Login-Service = Telnet, "; >> $RADCommand .= "Login-TCP-Port = 119, "; >> $RADCommand .= "NAS-IP-Address = 10.255.255.245, "; >> $RADCommand .= "NAS-Port-Type = Virtual, "; >> $RADCommand .= "Service-Type = Authenticate-Only, "; >> $RADCommand .= "User-Name = " . $AuthName . ", "; >> $RADCommand .= "User-Password = " . $AuthPass . " "; >> $RADCommand .= "| /usr/bin/radclient -c 1 -r 1 -t 5 10.255.251.4 auth >> quaap5hooZae4ahNguehusieg0Oiph1u"; >> my @RADResult = qx($RADCommand); >> print $RADCommand . "\n"; >> print Dumper(@RADResult); >> >> The output of the above code is correct: >> /bin/echo -e Called-Station-Id = 85.12.8.42, Calling-Station-Id = >> 198.19.255.3, Login-Service = Telnet, Login-TCP-Port = 119, NAS-IP-Address >> = >> 10.255.255.245, NAS-Port-Type = Virtual, Service-Type = Authenticate-Only, >> User-Name = gar...@beyondonline.co.za, User-Password = !@#Bey0nd | >> /usr/bin/radclient -c 1 -r 1 -t 5 10.255.251.4 auth >> quaap5hooZae4ahNguehusieg0Oiph1u >> $VAR1 = 'Received response ID 198, code 3, length = 55 >> '; >> $VAR2 = ' Reply-Message = "NOK:::::::::Authentication failed" >> '; >> >> However, once executing the command, the RADIUS server receives the >> incorrect string for the password: >> Thu May 15 09:57:46 2014 >> Packet-Type = Access-Request >> Called-Station-Id = "x.x.x.42" >> Calling-Station-Id = "10.0.0.3" >> Login-Service = Telnet >> Login-TCP-Port = 119 >> NAS-IP-Address = 10.255.255.245 >> NAS-Port-Type = Virtual >> Service-Type = Authenticate-Only >> User-Name = " u...@domain.com" >> User-Password = "!@" >> Realm = "DEFAULT" >> >> The problem is a shell problem rather than a perl problem, I do know that >> much. Nevermind what I do or where I put quotes / escape strings, I >> cannot >> get bash to execute the echo statement. >> >> Can anyone shed some light on this subject perhaps? I know it's more than >> likely a little bit off topic, but I would appreciate the assistance. >> >> -- >> Chris. >> >> >> >> -- >> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >> For additional commands, e-mail: beginners-h...@perl.org >> http://learn.perl.org/ >> >> > -- Regards, Chris Knipe -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
