Simon Perdrisat gagarine

## easybox_sip_passwd.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Digest::MD5 'md5_hex';

print_usage() unless($#ARGV==5);

my ($method, $uri, $user, $realm, $nonce, $response) = @ARGV;
my $hash_method_uri = md5_hex(join(':', $method, $uri));
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use Digest::MD5 'md5_hex';

	print_usage() unless($#ARGV==5);

	my ($method, $uri, $user, $realm, $nonce, $response) = @ARGV;
	my $hash_method_uri = md5_hex(join(':', $method, $uri));