Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

Journal of LTjake (4001)

Sunday January 18, 2004
05:34 PM

cpan testing and JavaScript::RPC 0.02

[ #16894 ]

I've finally setup one of my servers as a cpan smoke testing box. A few notes on the process:

  • installing CPANPLUS was dirt simple.
  • using Mail::POP3Client i was able to setup a simple script to parse mail from the cpan-testers list (updated capture regex - thanks jplindstrom && autrijus!)

use strict;
use Mail::POP3Client;

my $pop3 = new Mail::POP3Client(
    USER => 'myusername',
    PASSWORD => 'mypassword',
    HOST => 'mail.host.com'
);

for my $i ( 1..$pop3->Count ) {
    for( $pop3->Head( $i ) ) {
        fork || exec( "sleep 40000 && cpansmoke -aps $1 >/dev/null 2>&1" ) if /^Subject: CPAN Upload: ([-.\/\w]+)$/;
    }
    $pop3->Delete( $i );
}

$pop3->Close;

  • Run the script at least hourly, if not more frequent. Otherwise you'll get too many fork()s at once.
  • In order to report tests to the cpan-testers list, you MUST have Test::Reporter installed. Duh.

So, if you see a report from cpansmoke@alternation.net, it's mine.

Like i mentioned in my last post, i can change my mind at any time. So, i've put out JavaScript::RPC::Server::CGI as a module that needs to be subclassed. Inkdroid and I both thought it was nicer.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.