gistfile1.pl

#!/usr/bin/perl 

use strict;
use warnings;

use Sys::Syslog;
use IPC::Run::Fused qw( run_fused );
use Data::Dumper qw( Dumper );

$Data::Dumper::Indent = 0;

sub do_log {
    my ( $name, $opts, $code ) = @_;
    openlog( $name, $opts, 'user' );
    my $error;
    {
        local $@;

        eval { $code->(); };

        $error = $@;
    }
    closelog();
    die $error if $error;
}

sub run_syslogged {
    my ( $message, @rest ) = @_;
    do_log( $message, 'pid', sub {
        syslog('info', "Calling : ". Dumper([ @rest ]));
        
        run_fused( my $fh, @rest ) || die "Run Fused failed :( $@ ";
        
        while ( my $line = <$fh> ) {
        	chomp $line;
          syslog( 'info', $line );
        }
        
        close $fh;
    } );
}

my @repos = ();

push @repos, qw( kde vdr-testing x11 berkano gentoo gnash-cvs );
push @repos, qw(  ikelos java-overlay kde3 mozilla php-experimental );
push @repos, qw( php-testing  postgresql-experimental postgresql-testing );
push @repos, qw( qting-edge toolchain );

chdir '/var/paludis/repositories/perl-git/';
run_syslogged( 'paludis --sync perl', qw( sudo -u kent bash ./rebase.sh ) );
run_syslogged( 'paludis --sync perl', qw( sudo -u kent git checkout mergemaster ) );
run_syslogged( 'paludis --sync ',     qw( paludis --sync ), @repos );