All pastes #400752 Raw Edit

Miscellany

public text v1 · immutable
#400752 ·published 2007-03-18 21:57 UTC
rendered paste body
#!/usr/bin/perl -w

use SOAP::Lite;

$domain = shift(@ARGV);


if (! $domain) {
        die "Usage: $0 domain-name";
}
print SOAP::Lite
    -> uri('http://localhost/Meticiel')
    -> proxy('http://localhost:8080/')
    -> is_available($domain)
    -> result;
print "\n";