将PHP参数从数据库传递给Perl Script，

Question

First of all, I'll say that I am new to Perl.

I am having some problem passing a php argument to my perl script. The argument comes from an SQL query. Here's an example and explanation of the code.

This code is used to send the ID and retrieve the full name of the user from the database and then send it to the perl script so the user is deleted from a Fortinet wireless equipment.

PHP code

 function deleteUser($db){
  $id = $POST['param'];
  $SQLq = 'delete from users where id = ?';

  $q = $db->prepare($SQLq);
  $q->execute(array($id));

  $data = $q->fetch();

  $username = $data['user_name']; #data-type in phpmyadming : varchar
  exec('perl /var/www/xxx/deleteUserWifi.pl'.' '.escapeshellarg($id).' '.escapeshellarg($username),$output);
 }

Here's the code from my perl script

  #!/usr/bin/perl -w
  use strict;
  use Net::SSH::Perl;

  #login info to log on the fortinet device
  my $hostname = "192.168.0.2";
  my $username = "aaaa";
  my $password = "xxxx";

  my $userID=  $ARGV[0];
  my $userName = $ARGV[1];

  #connection to the FORTINET device
  my $ssh = Net::SSH::Perl->new($hostname);
  $ssh->login($username, $password);

  #string to execute
  my $cmd  = "config vdom 

  edit root 

  config system dhcp server 

  edit 2 

  config reserved-address 

  delete ". $userID ." 

  end 

  end 

  config firewall address 

  delete \"" .$userName "\" 

  end 

  end 

  exit"
  my($stdout,$stderr,$exit) = $ssh->cmd($cmd);

I have no problem sending my ID and delete the ip reservation of the user from the ID sent. For some reason i can't delete the username entry from the device but if i go in the php code and hard code the username like this it works perfectly fine:

PHP code

      $username = "test test";

I have tried a cast (string) before sending it but nothing seems to works. So any idea on how to debug this???

Thank you very much in advance.

PoPlante

PS: Sorry for the poor grammar, English isn't my first language.

Answer 1

You need to fetch a row from your result set (and add error handling in case there is none...):

  $q = $db->prepare($SQLq);
  $q->execute(array($id));

  $data = $q->fetch(PDO::FETCH_ASSOC);

  $username = $data['user_name']; #data-type in phpmyadming : varchar