telnet/circ

   1 #!/usr/bin/perl
   2
   3 #my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
   4
   5 $done = "Issues";
   6 my $i=0;
   7 while ($done eq "Issues") {
   8   my @args=('startint.pl',@ARGV);
   9   eval{system(@args)};
  10   $exit_value  = $? >> 8;
  11   if ($exit_value){
  12     $done=$exit_value;
  13   }
  14
  15 }