use Mail::Header;
use Date::Format;
use Net::Whois 1.0;
-use Net::SSH qw(ssh);
+use Net::SSH;
use FS::Record qw(fields qsearch qsearchs dbh);
use FS::Conf;
use FS::svc_Common;
use FS::cust_pkg;
use FS::cust_main;
use FS::domain_record;
+use FS::queue;
@ISA = qw( FS::svc_Common );
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
if ( $qshellmachine && $self->catchall && ! $nossh_hack ) {
+
my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $self->catchall } )
or warn "WARNING: inserted unknown catchall: ". $self->catchall;
if ( $svc_acct && $svc_acct->dir ) {
$svc_acct->gid,
$svc_acct->dir,
);
- ssh("root\@$qshellmachine", "[ -e $dir/.qmail-$qdomain-default ] || { touch $dir/.qmail-$qdomain-default; chown $uid:$gid $dir/.qmail-$qdomain-default; }");
+
+ my $queue = new FS::queue {
+ 'svcnum' => $self->svcnum,
+ 'job' => 'Net::SSH::ssh_cmd',
+ };
+ $error = $queue->insert("root\@$qshellmachine", "[ -e $dir/.qmail-$qdomain-default ] || { touch $dir/.qmail-$qdomain-default; chown $uid:$gid $dir/.qmail-$qdomain-default; }" );
+
}
}
=head1 VERSION
-$Id: svc_domain.pm,v 1.22 2001-10-24 15:29:30 ivan Exp $
+$Id: svc_domain.pm,v 1.24 2002-02-20 01:03:09 ivan Exp $
=head1 BUGS