#!/usr/bin/perl

## Modify the next two variables on site

my $SNRoot = "/var/tmp/test";
my $WinRoot = "x:/stornext";

## Verify all tapes in Scalar 100
## > echo "select mediaid from mediadir" | inl -u tmdb/

my @tapesA = qw(000102 000104 000106 000108 000110 000112 000114 000116 000118
000120 000122 000124 000126 000128 000130 000132 000134 000136 000138
000140 000142 000144 000146 000148);
my @tapesB = qw(000103 000105 000107 000109 000111 000115 000117 000119 000123
000125 000127 000129 000131 000133 000135 000137 000139 000141 000143 000145
000147 000149 i 000150 000151);


my @diskfiles = qx{find $SNRoot \! -empty \| sed -e s#$SNRoot#$WinRoot#};

open (filesA, "> filelistA.txt");
open (filesB, "> filelistB.txt");

for ($i = 0; $i < scalar @diskfiles; $i++) {
	if ( $i % 2 ) {
		print filesA $diskfiles[$i];
	} else {
		print filesB $diskfiles[$i];
	} 
}

for ($i = 0; $i < scalar @tapesA; $i++) {
	my @tapefilesA = qx(sh -c "source /usr/adic/.profile; fsmedinfo -l $tapesA[$i] | cut -f8 | cut -d : -f2 | sed -e s#$SNRoot#$WinRoot#");
	for ($t = 0; $t < scalar @tapefilesA; $t++) {
		if ( $t > 25 ) {    # skip first 26 lines which are headers
			print filesA $tapefilesA[$t];
		}
	}
}

for ($i = 0; $i < scalar @tapesB; $i++) {
	my @tapefilesB = qx(sh -c "source /usr/adic/.profile; fsmedinfo -l $tapesB[$i] | cut -f8 | cut -d : -f2 | sed -e s#$SNRoot#$WinRoot#");
	for ($t = 0; $t < scalar @tapefilesB; $t++) {
 		if ( $t > 25 ) {    # skip first 26 lines which are headers
			print filesB $tapefilesB[$t];
		};
	}
}

close(filesA, filesB);