use FS::Conf;
use FS::Record qw( qsearchs fields );
use FS::svc_Common;
-use FS::SSH qw(ssh);
+use Net::SSH qw(ssh);
use FS::part_svc;
use FS::svc_acct_pop;
use FS::svc_acct_sm;
if qsearchs( 'svc_acct', { 'username' => $self->username } );
my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } );
- return "Unkonwn svcpart" unless $part_svc;
+ return "Unknown svcpart" unless $part_svc;
return "uid in use"
if $part_svc->svc_acct__uid_flag ne 'F'
&& qsearchs( 'svc_acct', { 'uid' => $self->uid } )
$self->shell,
);
if ( $username && $uid && $dir && $shellmachine && ! $nossh_hack ) {
- ssh("root\@$shellmachine", eval "$useradd");
+ ssh("root\@$shellmachine", eval qq("$useradd") );
}
''; #no error
$self->dir,
);
if ( $username && $shellmachine && ! $nossh_hack ) {
- ssh("root\@$shellmachine", eval "$userdel");
+ ssh("root\@$shellmachine", eval qq("$userdel") );
}
'';
$new->getfield('gid'),
);
if ( $old_dir && $new_dir && $old_dir ne $new_dir && ! $nossh_hack ) {
- ssh("root\@$shellmachine", eval "$usermod" );
+ ssh("root\@$shellmachine", eval qq("$usermod") );
}
''; #no error
$recref->{popnum} =~ /^(\d*)$/ or return "Illegal popnum: ".$recref->{popnum};
$recref->{popnum} = $1;
- return "Unkonwn popnum" unless
+ return "Unknown popnum" unless
! $recref->{popnum} ||
qsearchs('svc_acct_pop',{'popnum'=> $recref->{popnum} } );
=head1 VERSION
-$Id: svc_acct.pm,v 1.12 2000-07-17 10:53:42 ivan Exp $
+$Id: svc_acct.pm,v 1.15 2001-04-22 01:56:15 ivan Exp $
=head1 BUGS
=head1 SEE ALSO
L<FS::svc_Common>, L<FS::Record>, L<FS::Conf>, L<FS::cust_svc>,
-L<FS::part_svc>, L<FS::cust_pkg>, L<FS::SSH>, L<ssh>, L<FS::svc_acct_pop>,
+L<FS::part_svc>, L<FS::cust_pkg>, L<Net::SSH>, L<ssh>, L<FS::svc_acct_pop>,
schema.html from the base documentation.
=cut