foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) = split(/\s+/, $vpopmailmachine);
- my $queue = new FS::queue { 'job' => 'Net::SSH::ssh_cmd' }; # should be neater
+ my $queue = new FS::queue {
+ 'svcnum' => $self->svcnum,
+ 'job' => 'Net::SSH::ssh_cmd',
+ };
+ # should be neater
my $error = $queue->insert("root\@$machine","[ -d $vpopdir/domains/$domain/$username ] && { echo \"$destination\" >> $vpopdir/domains/$domain/$username/.qmail; chown $vpopuid:$vpopgid $vpopdir/domains/$domain/$username/.qmail; }")
unless $nossh_hack;
if ( $error ) {
foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) =
split(/\s+/, $vpopmailmachine);
- my $queue = new FS::queue { 'job' => 'Net::SSH::ssh_cmd' }; # should be neater
+ my $queue = new FS::queue { 'job' => 'Net::SSH::ssh_cmd' };
+ # should be neater
my $error = $queue->insert("root\@$machine",
"sed -e '/^$destination/d' " .
"< $vpopdir/domains/$domain/$username/.qmail" .
foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) =
split(/\s+/, $vpopmailmachine);
- my $queue = new FS::queue { 'job' => 'Net::SSH::ssh_cmd' }; # should be neater
+ my $queue = new FS::queue {
+ 'svcnum' => $new->svcnum,
+ 'job' => 'Net::SSH::ssh_cmd',
+ };
+ # should be neater
my $error = $queue->insert("root\@$machine",
"sed -e '/^$destination/d' " .
"< $vpopdir/domains/$old_domain/$old_username/.qmail" .
foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) = split(/\s+/, $vpopmailmachine);
- my $queue = new FS::queue { 'job' => 'Net::SSH::ssh_cmd' }; # should be neater
+ my $queue = new FS::queue {
+ 'svcnum' => $new->svcnum,
+ 'job' => 'Net::SSH::ssh_cmd',
+ };
+ # should be neater
my $error = $queue->insert("root\@$machine","[ -d $vpopdir/domains/$domain/$username ] && { echo \"$destination\" >> $vpopdir/domains/$domain/$username/.qmail; chown $vpopuid:$vpopgid $vpopdir/domains/$domain/$username/.qmail; }")
unless $nossh_hack;
if ( $error ) {
return "Unknown srcsvc" unless $self->srcsvc_acct;
- return "Both dstsvc and dst were defined; one one can be specified"
+ return "Both dstsvc and dst were defined; only one can be specified"
if $self->dstsvc && $self->dst;
return "one of dstsvc or dst is required"
=head1 VERSION
-$Id: svc_forward.pm,v 1.10 2002-02-17 19:07:32 jeff Exp $
+$Id: svc_forward.pm,v 1.12 2002-05-31 17:50:37 ivan Exp $
=head1 BUGS