Getting Config::Crontab to Write File to Crontab Command

dperriero has asked for the wisdom of the Perl Monks concerning the following question:

This is where I am at...I've been able to write a file with the correct syntax, but how do I actually import that file into crontab itself. i.e. crontab -u <user> <file> Here is what I have done so far...

my $ct = new Config::Crontab;
my @event;

if ($special eq 'hourly'){

    @event = ( new Config::Crontab::Comment(-data => '## foo' ),
               new Config::Crontab::Event( -datetime => '4 * * * Sun',
                                           -command  => "/usr/bin/perl
+ $bsql::cron_command"));

}
elsif ($special eq 'daily'){

    @event = ( new Config::Crontab::Comment(-data => '## foo' ),
               new Config::Crontab::Event( -minute  => 00,
                                           -hour    => 4,
                                           -command => "/usr/bin/perl 
+$bsql::cron_command"));
}
elsif ($special eq 'weekly'){

    @event = ( new Config::Crontab::Comment(-data => '## foo' ),
               new Config::Crontab::Event( -dow     => 'Sun',
                                           -minute  => 00,
                                           -hour    => 4,
                                           -command => "/usr/bin/perl 
+$bsql::cron_command"));
}
elsif ($special eq 'monthly'){

    @event = ( new Config::Crontab::Comment(-data => '## foo' ),
               new Config::Crontab::Event( -datetime => '0 0 4 1 * *',
                                           -command  => "/usr/bin/perl
+ $bsql::cron_command"));
}

my $block = new Config::Crontab::Block;

## add this block to crontab file
$block->lines(\@event);
$ct->last($block);

## write out crontab file
$ct->write("$bsql::dir/backup/crontab");
[download]

Comment on Getting Config::Crontab to Write File to Crontab Command Download Code

Replies are listed 'Best First'.

Re: Getting Config::Crontab to Write File to Crontab Command
by waswas-fng (Curate) on Jul 01, 2005 at 15:59 UTC

Config::Crontab



$c = new Config::Crontab;
$c->owner('joe');
$c->read;  ## reading joe's crontab
$c->write;  ##write out to joe's crontab...
$c->owner('bob'); #change user to bob
$c->write;  #write same crontab to bob's crontab
[download]

my $crontab;
    if( my $owner = $self->owner ) {
        $crontab = `crontab -u $owner $tmpfile 2>&1`;
    }
    else {
        $crontab = `crontab $tmpfile 2>&1`;
    }
    chomp $crontab;
    unlink $tmpfile;

    if( $crontab || $? ) {
        $self->error($crontab);
        if( $self->strict ) {
        carp "Error writing crontab (crontab exited with status " . 
          ($? >> 8) . "): " . $self->error;
        }
        return;
    }
    }

    return 1;
}
[download]

-Waswas

[reply]
[d/l]
[select]


We don't bite newbies here... much
	PerlMonks