telnet/issuewrapper.pl

   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 my $bcard;
   8 while ($done eq "Issues") {
   9   my @args=('borrwraper.pl',@ARGV,$bcard);
  10   my $time=localtime(time);
  11   open (FILE,">>/tmp/$<_$ARGV[6]");
  12   print FILE "new borrower $time\n";
  13   close FILE;
  14   eval{$bcard=system(@args)};
  15   $exit_value  = $? >> 8;
  16   if ($exit_value){
  17     $done=$exit_value;
  18   }
  19
  20 }