kumara/telnet/startint.pl

#!/usr/bin/perl

use strict;
#use C4::Security;
#use C4::Database;                                                                   
use C4::Circulation::Main;                                                          
#use C4::Circulation::Issues;                                                        
#use C4::Circulation::Returns;                                                       
#use C4::Circulation::Renewals;                                                      
#use C4::Circulation::Borrower;                                                      
#use C4::Reserves;                                                                   
use C4::InterfaceCDK;                                                               
#use C4::Security;


# set up environment array
# branchcode - logged on branch
# usercode - current user
# proccode - current or last procedure
# borrowernumber - current or last borrowernumber
# logintime - time logged on
# lasttime - lastime security checked
# tempuser - temporary user
my %env = (
  branchcode => "", usercode => "", proccode => "lgon", borrowernumber => "",
  logintime  => "", lasttime => "", tempuser => "", debug => "9"
  );

$env{'branchcode'} = "C";
$env{'usercode'} = `whoami`;
$env{'telnet'} = "Y";


#start interface                                                                  
&startint(\%env,'Circulation');                                                    
getbranch(\%env);                                                                  
getprinter(\%env);                                                                 
my $donext = 'Circ';                                                              
my $reason;                                                                       
my $data;                                                                         
while ($donext ne 'Quit') {                                                       
  if ($donext  eq "Circ") {                                                       
    ($reason,$data) = menu(\%env,'console','Circulation',                          
    ('Issues','Returns','Select Branch','Select Printer'));                     
  } else {                                                                        
    $data = $donext;                                                              
  }                                                                               
  if ($data eq 'Issues') {                                                        
   my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}","$env{'lasttime'}");
  open (FILE,">>/tmp/$<_$$");
   my $time=localtime(time);
   print FILE "Start issues $time \n";
   close FILE;
   system(@args);
  } elsif ($data eq 'Returns') {                                                  
   my @args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}");
   open (FILE,">>/tmp/$<_$$");
   my $time=localtime(time);
   print FILE "Start returns $time \n";
   close FILE;
   system(@args);
#    $donext=Returns(\%env); #C4::Circulation::Returns                              
  } elsif ($data eq 'Select Branch') {                                            
    getbranch(\%env);                                                              
  } elsif ($data eq 'Select Printer') {                                           
    getprinter(\%env);                                                             
#  } elsif ($data eq 'Borrower Enquiries') {                                       
    #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion              
#  } elsif ($data eq 'Reserves'){                                                  
#    $donext=EnterReserves(\%env); #C4::Reserves                                    
  } elsif ($data eq 'Quit') {                                                     
    $donext = $data;                                                              
    &endint(\%env);            
    die;
  }                                                                               
}
    &endint(\%env);            
    die;