Miscellany

#!/usr/bin/perl -w


use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalAddr => 'localhost', LocalPort => 8080)
-> dispatch_to(undef, Meticiel,
                undef, undef);
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;


# Le code métier
package Meticiel;

sub is_available () {
        my ($domain) = shift;
        $domain = lc($domain);
        $domain = "coucou.fr";
        print $domain;

        if ($domain !~ /\.fr$/) {
                return "We only register domains in \".fr\"";
        }
        if (&registered($domain)) {
                return "Domain $domain already registered";
        }
        return "Domain $domain is available. Buy it soon!";
}

sub registered () {
#...
}