diff --git a/scripts/perl/mkgws.pl b/scripts/perl/mkgws.pl new file mode 100644 index 0000000000..6743c969d0 --- /dev/null +++ b/scripts/perl/mkgws.pl @@ -0,0 +1,37 @@ +#!/usr/bin/perl +# +# Make bulk gateway xml from csv file. +# + +open(CSV, "gateways.csv"); +my @data = <CSV>; +close(CSV); + +foreach my $line (@data) { + chomp($line); + my ($gwname, $username, $password) = split(/,/, $line); + print <<XML; + <gateway name="$gwname"> + <param name="username" value="$username"/> + <!--<param name="realm" value="asterlink.com"/>--> + <!--<param name="from-user" value="cluecon"/>--> + <!--<param name="from-domain" value="asterlink.com"/>--> + <param name="password" value="$password"/> + <!--<param name="extension" value="cluecon"/>--> + <!--<param name="proxy" value="asterlink.com"/>--> + <!--<param name="register-proxy" value="mysbc.com"/>--> + <!--<param name="expire-seconds" value="60"/>--> + <!--<param name="register" value="false"/>--> + <!--<param name="register-transport" value="udp"/>--> + <!--<param name="retry-seconds" value="30"/>--> + <!--<param name="caller-id-in-from" value="false"/>--> + <!--<param name="contact-params" value=""/>--> + <!--<param name="extension-in-contact" value="true"/>--> + <!--<param name="ping" value="25"/>--> + <!--<param name="cid-type" value="rpid"/>--> + <!--<param name="rfc-5626" value="true"/>--> + <!--<param name="reg-id" value="1"/>--> + </gateway> +XML + +}