#!/usr/bin/perl


BEGIN{}

init();
getExportInfo();
preparePrint();

END{}

sub init {
     $logDir = "/home/drmvar";
     $exportFile = "$logDir/INVENTORY";
     $exportPrt  = "$logDir/inventoryLijst";
     $dateTime = localtime();
     $countU = 0;
     $format = "MAGSTAR MP";
     $printer = "miami";
     $mailAdress = "cs-tsm\@email.nl info.\@email.nl";
     }    

sub getExportInfo {
     $recNo = 0; 
     open(EXPORT,"< $exportFile");
     while(<EXPORT>){
         ($volSer[$recNo], $state[$recNo], $date[$recNo], $time[$recNo], $lib[$recNo]) = split();
         if("chomp($volSer[$recNo])" eq " " || "$volSer[$recNo]" eq "Volume" || "$volSer[$recNo]" eq "Date/Time" || "$volSer[$recNo]" eq "----------------") {next;}
         ++$recNo;
         }          
     }     

sub preparePrint {
     open(CALLTOTAPES,">$exportPrt");
     select(CALLTOTAPES);
     print "\t\t\t$dateTime\n";

   format INVENTORYLISTHEAD=
INVENTORY companyname DECENTRAAL voltname
KLUIS=BSG
OBS     DATASETNAAM            VOLSER  OUTDATE CDATE EXPDATE  FORMAAT
.
   format INVENTORYLIST=
@<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<@<<<<<<<@<<<<<@<<<<<<<<@<<<<<<<<<<<<<
$countList, $dsnNo.$ddd, $dsnNo, $dummy, $dummy, $dummy, $format
.
   $~ = INVENTORYLISTHEAD;
   write;
   $~ = INVENTORYLIST;
     $ddd= ".OHRA.tsm";
     while ($countU <= $#volSer)
        {
        $dsnNo = $volSer[$countU];
        write;
        ++$countU;
        }
     close(CALLTOTAPES);
     select(STDOUT);
     system("mail -s 'Tapes that are in the VAULT' $mailAdress < $exportPrt");
     system("lpr -P $printer $exportPrt");
     system("rm $exportFile");
     }