print "Enter the number of subscribers to be created:\n";

$num=<STDIN>;

chomp($num);

for($i=1; $i<=$num; $i++)

{

$files="orange$i.xml";

open(FILE, ">$files") or die "Can't open the file: $i\n";

print FILE "<?xml version=\"1.0\"?>\n";

print FILE "<report XMLns=\"http://www.siemens.com/ssn/tango/namescape1 \">\n";

	print FILE "<installationDate>04/10/2004 11:00:01</installationDate> <!-- date on which installation was done -->\n";

	print FILE "<installationTime></installationTime>\n";

	print FILE "<userinfo>\n";

		print FILE "<firstname>Mickey</firstname>\n";

		print FILE "<lastname>Mouse</lastname>\n";

		print FILE "<telephone>403-345-9009</telephone>\n";

		$emailend="\@ssn.com";

                $emailid="test$i$emailend";

		print FILE "<emailaddress>$emailid</emailaddress>\n";

	print FILE "</userinfo>\n";

	print FILE "<modeminfo>\n";

		print FILE "<name>Efficient Networks Speedstream 6300 E240</name>\n";

		print FILE "<softwarerevision>003-1086-G06</softwarerevision>\n";

		print FILE "<fimwareversion>004-E240-A3D</fimwareversion>\n";

		print FILE "<serialnumber/>\n";

		print FILE "<ipaddress>165.218.33.101</ipaddress>\n";

		print FILE "<macaddress>00099999556</macaddress>\n";

		print FILE "<vendoroui>0003AF</vendoroui>\n";

		print FILE "<status>Up/down/training</status>\n";

	print FILE "</modeminfo>\n";

print FILE "</report>\n";

@commands=("./startAutoResSubTool.sh", "$files", "180.144.127.138", "8191", "ACS_SUBSCR_MGR");

system(@commands);

}