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
   6 # Copyright 2000-2002 Katipo Communications
   7 #
   8 # This file is part of Koha.
   9 #
  10 # Koha is free software; you can redistribute it and/or modify it under the
  11 # terms of the GNU General Public License as published by the Free Software
  12 # Foundation; either version 2 of the License, or (at your option) any later
  13 # version.
  14 #
  15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  17 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License along with
  20 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  21 # Suite 330, Boston, MA  02111-1307 USA
  22
  23 $done = "Issues";
  24 my $i=0;
  25 my $bcard;
  26 while ($done eq "Issues") {
  27   my @args=('borrwraper.pl',@ARGV,$bcard);
  28   my $time=localtime(time);
  29   open (FILE,">>/tmp/$<_$ARGV[6]");
  30   print FILE "new borrower $time\n";
  31   close FILE;
  32   eval{$bcard=system(@args)};
  33   $exit_value  = $? >> 8;
  34   if ($exit_value){
  35     $done=$exit_value;
  36   }
  37
  38 }