#!/usr/bin/perl

while(<>)
{
	if( /MAC Address\: (00)\:(04)\:(F2)\:(\w{2})\:(\w{2})\:(\w{2})/ )
	{
		my $mac = lc "$1$2$3$4$5$6";
		if( -s "$mac.cfg" ) 
		{
			print "File $mac.cfg exists, skipping\n";
		} else
		{
			print "Creating $mac.cfg\n";

			open(OUT, "> $mac.cfg") || die "couldn't open $mac.cfg";
			print OUT '<?xml version="1.0" standalone="yes"?>' . "\n";
			print OUT '<!-- $Revision: 1.14 $ $Date: 2005/07/27 18:43:30 $ -->' . "\n";
			print OUT '<APPLICATION APP_FILE_PATH="sip.ld"' . "\n";
			print OUT "\tCONFIG_FILES=\"$mac-user.cfg, mycompany-settings.cfg, phone1.cfg, sip.cfg\"\n";
			print OUT "\t" . 'MISC_FILES="" LOG_FILE_DIRECTORY="" OVERRIDES_DIRECTORY=""' . "\n";
			print OUT 'CONTACTS_DIRECTORY=""/>' . "\n";
			close OUT;
		}

		if( -s "$mac-user.cfg" )
		{
			print "File $mac-user.cfg exists, skipping\n";

		} else
		{
			print "Creating $mac-user.cfg\n";

			open(OUT, "> $mac-user.cfg") || die "couldn't open $mac-user.cfg";
			print OUT '<?xml version="1.0" standalone="yes"?>' . "\n";
                	print OUT "<!-- Registration info -->\n";
			print OUT "<userinfo>\n";
			print OUT "\t<reg reg.1.displayName=\"Dummy Extension\" reg.1.address=\"8003\" reg.1.type=\"private\" reg.1.lineKeys=\"2\" reg.1.auth.password=\"secret\" reg.1.auth.userId=\"4567\"/>\n";
			print OUT "\t<msg msg.bypassInstantMessage=\"1\">\n";
			print OUT "\t\t<mwi msg.mwi.1.subscribe=\"\" msg.mwi.1.callBackMode=\"contact\" msg.mwi.1.callBack=\"4550\"/>\n";
			print OUT "\t</msg>\n";
			print OUT "</userinfo>\n";
			close OUT;
		}
	}
}