#!/usr/bin/perl


open (CALLS, "< rep.txt");
while ($callsign = <CALLS>){
	$callsign =~ s/\r//gs;

	$callsign =~ s/\n//gs;

	print "$callsign\n";

	$www_site = "www.aca.gov.au/cgi-bin/";
#	$callsign = "vk2rwi";
	open (LICENCE, "wget -O - -q ".$www_site."simple_report?callsign=$callsign |");
	@line = <LICENCE>;
	$line = join ("",@line);
#	$line =~ /(licence\=.*\")/s;
#	$line =~ /licence\=/s;
#	$line =~ s/\r//gs;

#	$line =~ s/\n//gs;
	$pos = index ($line, "licence");
	$line = substr ($line, $pos, 20);
	$pos = index ($line, "\"");
	$line = substr ($line, 0,$pos);


#	print "$line - $1 - $2  $pos\n";
#	$posit = pos (
#	print <LICENSE>;
	close LICENCE;


	open (ASSIGN, "wget -O - -q ".$www_site."assignment_licence?$line |");
	@line = <ASSIGN>;
	$line = join ("",@line);
#	$line =~ /(licence\=.*\")/s;
#	$line =~ /licence\=/s;
#	$line =~ s/\r//gs;

#	$line =~ s/\n//gs;
	$pos = index ($line, "assignment_detail");
	$line = substr ($line, $pos, 80);
	$pos = index ($line, "\"");
	$line = substr ($line, 0,$pos);


#	print "ass $line - $1 - $2  $pos\n";
#	$posit = pos (
#	print <LICENSE>;
	close LICENCE;


	($a1, $a2) = split (/&/,$line);
#	print "$a1 $a2\n";
	open (ASSIGN, "wget -O - -q \"".$www_site.$line."\" |");
	@line = <ASSIGN>;
	$line = join ("",@line);
#	$line =~ /(licence\=.*\")/s;
#	$line =~ /licence\=/s;
#	$line =~ s/\r//gs;

#	$line =~ s/\n//gs;
	$pos = index ($line, "site_id");
	$line = substr ($line, $pos, 80);
	$pos = index ($line, "\"");
	$line = substr ($line, 0,$pos);


#	print "$line - $1 - $2  $pos\n";
#	$posit = pos (
#	print <LICENSE>;
	close LICENCE;





	open (ASSIGN, "wget -O - -q ".$www_site."simple_report?$line |");
	@line = <ASSIGN>;
	$line = join ("",@line);
#	$line =~ /(licence\=.*\")/s;
#	$line =~ /licence\=/s;
#	$line =~ s/\r//gs;

#	$line =~ s/\n//gs;
	$pos = index ($line, "Latitude :\</strong\> ");
	$line2 = substr ($line, $pos, 80);


	$pos = index ($line2, "\</td\>");
	$line2 = substr ($line2, 20,$pos-20);

	$pos = index ($line, "Longitude :\</strong\> ");
	$line3 = substr ($line, $pos, 80);

	$pos = index ($line3, "\</td\>");
	$line3 = substr ($line3, 20,$pos-20);


#	print "ass $line2 $line3 - $1 - $2  $pos\n";
#	$posit = pos (
#	print <LICENSE>;
	close LICENCE;

print "$callsign $line2 $line3\n";
system ("echo $callsign $line2 $line3 \>\> pos"); 

#Latitude :</strong> -33 42 01</td><td a
#lign="left" width="50%"><strong>Longitude :</strong> +151 03 16</td></tr>



#assignment_detail?access_id=1219470&devi
#ce_id=1214749"><strong>1219470-1214749</strong></a></td>
#licence_no=96403


#'	print $www;

}