#!c:\perl\bin

use warnings;
use strict;

my $lotNumber;
my $productName;
my $Info;
my $choice;
my $printLocal;
my $printEcho;
my $ftpobj;
my $ftp;

&MAIN;

sub MAIN {

print "Please make sure that you have all labels added into labellist.txt\nin the correct format.\n\nLot number then a tab and then Product Name for each line\n\nEXAMPLE\:\nE1234567\t2RZ563DA\nE2345678\t2RZ128CA\nE3456789\t2RS128BB\n\n\n";
print " 1\: East QPS\n 2\: East TC\n 3\: West Etest\n 4\: West TC\n 5\: Quit\n What is your choice? ";

	$choice = <STDIN>;
	chomp ($choice);

if ($choice==1)
  { 
		$printLocal="10\.10\.10\.10";
		$printEcho="East QPS Label Printer";
  }
elsif ($choice==2)
  {
        $printLocal="10\.10\.10\.11";
		$printEcho="East TC Label Printer";
  }
elsif ($choice==3)
  {   	
		$printLocal="10\.10\.10\.12";
		$printEcho="West TC Label Printer";
  }
elsif ($choice==4)
  {
        $printLocal="10\.10\.10\.13";
		$printEcho="West Etest Label Printer";
  }
elsif ($choice==5)
  {
		system "CLS";
      	print "MultiPrint Has Shut Down."; 
		exit 0;
  }
else 
  {
		system "CLS";
     	print "You have chosen an invalid Number, Please try again\n\n";
		&MAIN;
  }

print "Backing up old test.txt... \n";
	rename ("Labels.txt", "test.bac") || die "Cannot rename Labels.txt: $!";

open (LABELS, "labellist.txt") or die "I could not get at labellist.txt as input";
open (OUTPUT, ">>Labels.txt") or die "I could not get at Labels.txt as ouput";


my %info;
while (<LABELS>) {
	my $printCode = "";
    my ($lotNumber,$productName) = m/(\S+)\s+(\S+)/;
        $info{$lotNumber} = $productName;	
#		print "$lotNumber\n";
#		print "$productName\n";

		print OUTPUT "\^XA\^LH30,30\n\^FO110,65\^A0,N,100\^FD$lotNumber\^FS\n\^FO150,160\^BY2,3.0\^B3N,N,125,N,N\^FD$lotNumber\^FS\n\^FO75,375\^A0,N,50,30\^FD$productName\^FS\n\^FO30,425\^BY2,2.0\^B3N,N,50,N,N\^FD$productName\^FS\n\^XZ\n";
     }

close LABELS;
close OUTPUT;
}

print "You have chosen to print Labels.txt to the $printEcho ($printLocal).\n\n Sending to printer now.\n\n";
use Net::FTP;
$ftpobj = Net::FTP -> new("$printLocal", Debug => 0)
	or die "Cannot connect to some.host.name: $@";
$ftpobj -> login("user","")
	or die "Cannot login ", $ftp->message;
$ftpobj -> put ("Labels.txt")
	or die "put failed ", $ftp->message;
$ftpobj -> quit;
print `CLS`;
&MAIN;