my($reader, $writer) = (new IO::Handle, new IO::Handle);
$writer->autoflush(1);
warn "$me Connecting to $machine\n" if $Debug;
my($reader, $writer) = (new IO::Handle, new IO::Handle);
$writer->autoflush(1);
warn "$me Connecting to $machine\n" if $Debug;
- sshopen2($machine,$reader,$writer,$fs_signupd);
+ sshopen2($machine,$reader,$writer,$fs_sessiond);
if ( exists $hash{'ip'} ) {
$hash{'ip'} =~ /^([\d\.]+)$/ or $1='nomatch';
$port = qsearchs('port', { 'ip' => $1 } );
if ( exists $hash{'ip'} ) {
$hash{'ip'} =~ /^([\d\.]+)$/ or $1='nomatch';
$port = qsearchs('port', { 'ip' => $1 } );
&& $href->{'password'} ne $svc_acct->_password;
my $session = new FS::session {
'portnum' => $href->{'portnum'},
&& $href->{'password'} ne $svc_acct->_password;
my $session = new FS::session {
'portnum' => $href->{'portnum'},
'portnum' => $href->{'portnum'},
'svcnum' => $svc_acct->svcnum,
'portnum' => $href->{'portnum'},
'svcnum' => $svc_acct->svcnum,
- 'logoff' => '',
- };
- return "No currently open sessios found for that user/port!" unless $session;
- my $nsession = new FS::session ( { $old->hash } );
+ 'logout' => '',
+ } );
+ return "No currently open sessions found for that user/port!" unless $session;
+ my $nsession = new FS::session ( { $session->hash } );
+ warn "$nsession replacing $session";