dialup_admin/bin/sqlrelay_query

   1 #!/usr/bin/perl
   2 $sqlrelay = '/usr/bin/query';
   3 $host=shift;
   4 $port=shift;
   5 $socket=shift;
   6 $user=shift;
   7 $passwd=shift;
   8 while(<>){
   9         chomp;
  10         `$sqlrelay '$host' '$port' '$socket' '$user' '$passwd' '$_'`;
  11         $exit = $? >> 8;
  12         if ($exit != 0){
  13                 exit $exit;
  14         }
  15 }