Might needs this for testing.

This commit is contained in:
Brian West 2014-11-07 07:26:31 -06:00
parent 9e9c4378de
commit 08ff88ec31
1 changed files with 37 additions and 0 deletions

37
scripts/perl/mkgws.pl Normal file
View File

@ -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
}