Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Code Catacombs Auto-Updat Example

by mr.nick (Chaplain)
on Jun 11, 2001 at 05:06 UTC ( #87380=sourcecode: print w/replies, xml ) Need Help??
Category: PerlMonks Related Scripts
Author/Contact Info mr.nick
Description: This is just an example script

I frequently update my pmchat script and have found that updating my node for it is quite a pain in the *ss. To simplify the experience, I wrote the following script that is called from my Makefile (when my script changes) and automatically updates its node under Code Catecombs.

This script WILL NOT work for you without modification. I hestitated to post it here in its form, but decided that it was probably worth the educational experience.

Note: the script draws from the cookie file that is created by my pmchat script for authentication.

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent; 
use HTTP::Request::Common; 
use HTTP::Cookies;
use Data::Dumper; 

my $pm=''; 
my $cookie="$ENV{HOME}/.pmcookie"; 
my $ua=LWP::UserAgent->new || die "Couldn't init UserAgent: $!\n";


my $title='pmchat';
my $category=' Related Scripts';
my $author='mr.nick @ (email:';
my $node='85317';
my $description;
my $code;

  open (IN,"<description") || die $!;
  open (IN,"<pmchat") || die $!; 
  ## the '<'.'/code>' wackiness it to prevent PM from
  ## seeing the / code as a real tag :)
  close IN;

my $r=$ua->request( 
                         displaytype => 'edit',
                         node_id => $node,
                         sourcecode_title => $title,
                         sourcecode_codecategory => $category,
                         sourcecode_codeauthor => $author,
                         sourcecode_codedescription => $description,
                         sourcecode_doctext => $code,
                         sexisgood => 'submit',

if ($r->{_rc} != 200) {
  print "Sorry, node update failed: $r->{_rc}/$r->{_msg}\n";
else {
  print "$title has been udpated!\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://87380]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2021-02-28 16:42 GMT
Find Nodes?
    Voting Booth?

    No recent polls found