Initial revision
[wip/koha-chris_n.git] / telnet / returnswrapper.pl
1 #!/usr/bin/perl
2
3 $done = "returns";                                                                
4 my $i=0;
5 while ($done eq "returns") {                                                      
6   my @args=('doreturns.pl',@ARGV);
7   eval{system(@args)};
8   $exit_value  = $? >> 8;
9   if ($exit_value){
10     $done=$exit_value;
11   }
12
13 }