This is a test

pudge on 2002-02-12T20:03:58

Please ignore it. I am testing the new SOAP interface for journals, where I can do this:#!/usr/bin/perl -w use strict; use HTTP::Cookies; use SOAP::Lite;

my $host = 'use.perl.org'; my $uri = "http://$host/Journal"; my $proxy = "http://$host/journal.pl"; my $cookie_file = "$ENV{HOME}Netscape Users:Chris Nandor:MagicCookie";

# first line is subject chomp(my $subject = <>); my $text = join '', <>; (my $newtext = $text) =~ s/\n/\012/g; # Local to Unix newlines

my $cookie_jar = HTTP::Cookies::Netscape->new; $cookie_jar->load($cookie_file);

my $journal = SOAP::Lite->uri($uri) ->proxy($proxy, cookie_jar => $cookie_jar);

$journal->add_entry($subject, $newtext);

# print text back to original window print $subject, "\n", $text;

__END__
w00p!