Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 16 lines (12 sloc) 528 Bytes
#!/usr/bin/perl
#my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
$done = "Issues";
my $i=0;
while ($done eq "Issues") {
my @args=('startint.pl',@ARGV);
eval{system(@args)};
$exit_value = $? >> 8;
if ($exit_value){
$done=$exit_value;
}
}
Jump to Line
Something went wrong with that request. Please try again.