Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
#!/usr/bin/perl -w use strict; use subs 'make_cookie'; use Getopt::Std; use Digest::MD5 'md5_hex'; use HTTP::Cookies; use SOAP::Lite; use XML::RSS; my (%opts, $title, $discuss, $readfh, $body, $host, $uri, $proxy, $cookie_file, $cookie_jar, $journal, $result); getopts('c:m:f:C:', \%opts) or die <<"USAGE"; Usage: $0 [ -m title ] [ -f file ] [ -c yes|no ] [ -C user:pass ] where: -m title Provide title for the journal entry (default is command name-based) -f file Read the journal entry from FILE instead of STDIN -c yes|no Allow or disallow comments (default is to let your default stand) -C user:pass Provide authentication credentials in place of (or in absence of) Netscape cookie authentication. User in this case is UID, not nickname. USAGE $title = $opts{'m'} || "Generated by $0"; $discuss = (exists $opts{c} && $opts{c} =~ /no/i) ? 0 : 1; if ($opts{f}) { open(FILE, "< $opts{f}") or die "$0: Error opening $opts{f}: $!\n" +; $readfh = \*FILE; } else { $readfh = \*STDIN; } $body = join('', "<!-- posted by $0 -->\n", <$readfh>); $host = ''; $uri = "http://$host/Slash/Journal/SOAP"; $proxy = "http://$host/"; $cookie_file = "$ENV{HOME}/.netscape/cookies"; if ($opts{C}) { $cookie_jar = HTTP::Cookies->new; $cookie_jar->set_cookie(0, user => make_cookie(split /:/, $opts{C}, 2 +), '/', $host); } elsif (-f $cookie_file) { $cookie_jar = HTTP::Cookies::Netscape->new(File => $cookie_file); } else { die "$0: No authentication data found, cannot continue"; } $journal = SOAP::Lite ->uri($uri) ->proxy($proxy, cookie_jar => $cookie_jar); die "$0: Error creating SOAP::Lite client, cannot continue" unless $journal; $result = $journal->add_entry(subject => $title, body => $body, discuss => $discuss); if ($result->fault) { die "$0: Operation failed: " . $result->faultstring . "\n"; } else { printf "New entry added as %s\n", $result->result; } exit; # Taken from the Slash codebase sub make_cookie { my ($uid, $passwd) = @_; my $cookie = $uid . '::' . md5_hex($passwd); $cookie =~ s/(.)/sprintf("%%%02x", ord($1))/ge; $cookie =~ s/%/%25/g; $cookie; } __END__

In reply to Post a journal entry to by rjray

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or or How to display code and escape characters are good places to start.
Log In?

What's my password?
Create A New User
Domain Nodelet?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2021-12-04 18:18 GMT
Find Nodes?
    Voting Booth?
    R or B?

    Results (30 votes). Check out past polls.