use strict;
#USER INPUTS
print "Enter the Loadfile file which contains BegDoc and EndDoc\n";
chomp(my $in = <STDIN>);

print "Enter the location of the Image file\n";
chomp(my $tiffpath = <STDIN>);

print "Enter the Name of the Production\n";
chomp(my $prodvolumename = <STDIN>);

my $delim = "";
my $textd = "þ";
chomp($in);

my $out = $in . "\.opt";
my $header = 1;

open OUT,">$out" or die "Cannot Create $out\n";
open IN, "<$in" or die "Cannot open $in\n";

while (<IN>) {
	chomp;
	next if ($header++==1);
	my $line = $_;
	   $line =~ s/þ//gi;
	   
	my @data = split(/$delim/,$line);
	
	my $start = $data[0];
	   $start =~ s/þ//gi;
	   
	my $end   = $data[1];
	   $end   =~ s/þ//gi;
	
	my $snum  = $start;
	   $snum  =~ s/[^0-9]+//gi;
	   
	my $enum  = $end;
	   $enum  =~ s/[^0-9]+//gi;
	
	my $pref  = $end;
	   $pref  =~ s/[0-9]+//gi;
	   
	my $pages = $enum - $snum +1;
	my $first = 1;
	for (my $i = $snum; $i <= $enum; $i++) {
		my $number = sprintf("%0*d",length($enum),$i);
		#print OUT $pref . $number . "," . $pref.$number . ",$tiffpath\\$pref$number.tif,";
		print OUT $pref . $number . "," . $prodvolumename . ",$tiffpath\\$pref$number.tif,";
		if ($first == 1) {
			print OUT "Y,,,$pages\n";
			$first++;
		} else {
			print OUT ",,,\n";
		}
	}
	
}
close(IN);
close(OUT);