This is a test

| | Comments (0)
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        = '';
my $uri         = "http://$host/Journal";
my $proxy       = "http://$host/";
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;


Leave a comment

<pudge/*> (pronounced "PudgeGlob") is thousands of posts over many years by Pudge.

"It is the common fate of the indolent to see their rights become a prey to the active. The condition upon which God hath given liberty to man is eternal vigilance; which condition if he break, servitude is at once the consequence of his crime and the punishment of his guilt."

About this Entry

This page contains a single entry by pudge published on February 12, 2002 12:03 PM.

A Day in September was the previous entry in this site.

MacPerl, 5.6.2, and Thomas Wegner is the next entry in this site.

Find recent content on the main index or look in the archives to find all content.