Net::Trackback::Server - a super/static class for implementing

# Copyright (c) 2003-2004 Timothy Appnel (cpan@timaoutloud.org)
# http://www.timaoutloud.org/
# This code is released under the Artistic License.
package Net::Trackback::Server;
use strict;
use base qw( Class::ErrorHandler );

use Net::Trackback::Ping;
use Net::Trackback::Message;

sub receive_ping { 
    Net::Trackback::Ping->parse($_[1]) or
        $_[0]->error(Net::Trackback::Ping->errstr);
}

sub send_success { 
    my $msg = Net::Trackback::Message->new( {code=>0, message=>$_[1]} );
    print "Content-Type: text/xml\n\n".$msg->to_xml;
}

sub send_error { 
    my $msg = Net::Trackback::Message->new( {code=>1, message=>$_[1]} );
    print "Content-Type: text/xml\n\n".$msg->to_xml;
}

1;

__END__