
178
Cgi Example: Call Forwarding
use DB_File;
sub fail {
my($status, $reason) = @_;
print "SIP/2.0 $status $reason\n\n";
exit 0;
}
tie %addresses, ’DB_File’, ’addresses.db’
or fail("500", "Address database failure");
$to = $ENV{’HTTP_TO’};
if (! defined( $to )) {
fail("400", "Missing Recipient");
}
Comentarios a estos manuales