Dcunningham: Created page with "

 #!/usr/bin/perl -w # # Sample of how to generate a Dash911 URL to update E911 addresses # This is sample code only, and should be modified to suit  use strict; use..."


2015-02-25T00:09:07Z
Created page with "<code><pre> #!/usr/bin/perl -w # # Sample of how to generate a Dash911 URL to update E911 addresses # This is sample code only, and should be modified to suit  use strict; use..."
New page
<code><pre>

#!/usr/bin/perl -w

#

# Sample of how to generate a Dash911 URL to update E911 addresses

# This is sample code only, and should be modified to suit



use strict;

use Digest::MD5;

use Digest::HMAC qw( hmac hmac_hex );



our $company_id = 1234;

our $key = 'qwertyuiop';

our $url = 'https://e911update.telefinity.com/Default.aspx';



my $number = $ARGV[0] || '';

$number or die "Syntax: $0 <number>\n";



my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = gmtime( time() );

my $date = sprintf( '%.4d%.2d%.2d%.2d%.2d', $year + 1900, $mon + 1, $mday, $hour, $min );



my $hmac = Digest::HMAC->new( $key, 'Digest::MD5' );

$hmac->add( $number . $date );

my $auth = $hmac->b64digest();

$auth =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;



printf( "%s?cid=%s&kn=0&tn=%s&date=%s&auth=%s%%3d%%3d\n", $url, $company_id, $number, $date, $auth );

exit( 0 );

</pre></code>

Emergency Address Script Example - Revision history

Dcunningham: Created page with " `#!/usr/bin/perl -w # # Sample of how to generate a Dash911 URL to update E911 addresses # This is sample code only, and should be modified to suit use strict; use..."`