7 use vars qw( $opt $Debug );
9 use Net::SSH qw(sshopen3)
10 use FS::UID qw(adminsuidsetup);
11 use FS::Record qw( qsearch qsearchs );
12 #use FS::cust_main_county;
18 #require "configfile";
21 my $user = shift or die &usage;
22 &adminsuidsetup( $user );
24 my $machine = shift or die &usage;
26 my $fs_sessiond = "/usr/local/sbin/fs_sessiond";
28 my $me = "[fs_session_server]";
31 my($reader, $writer) = (new IO::Handle, new IO::Handle);
32 $writer->autoflush(1);
33 warn "$me Connecting to $machine\n" if $Debug;
34 sshopen2($machine,$reader,$writer,$fs_signupd);
36 warn "$me Entering main loop\n" if $Debug;
38 warn "$me Reading (waiting for) data\n" if $Debug;
39 my $command = scalar(<$reader));
40 #DoS protection here too, to protect against a compromised client? *sigh*
41 while ( ( my $key = scalar(<$reader>) ) != "END\n" ) {
43 chomp( $hash{$key} = scalar(<$reader>) );
46 if ( $command eq 'login' ) {
47 $error = &login(\%hash);
48 print $writer "$error\n";
49 } elsif ( $command eq 'logoff' ) {
50 $error = &logoff(\%hash);
51 print $writer "$error\n";
52 } elsif ( $command eq 'portnum' ) {
53 if ( exists $hash{'ip'} ) {
54 $hash{'ip'} =~ /^([\d\.]+)$/ or $1='nomatch';
55 $port = qsearchs('port', { 'ip' => $1 } );
57 $hash{'nasnum'} =~ /^(\d+)$/ and my $nasnum = $1;
58 $hash{'nasport'} =~ /^(\d+)$/ and my $nasport = $1;
59 $port = qsearchs('port', { 'nasnum'=>$nasnum, 'nasport'=>$nasport } );
61 print $writer ( $port ? $port->portnum : '' ), "\n";
63 warn "$me WARNING: unrecognized command";
66 #won't ever reach without code above to throw out of loop, but...
69 warn "connection to $machine lost!\n"
71 warn "reconnecting...\n";
76 $href->{'username'} =~ /^([a-z0-9_\-\.]+)$/ or return "Illegal username";
78 $svc_acct = qsearchs('svc_acct', { 'username' => $username } )
79 or return "Unknown user";
80 return "Incorrect password"
81 if defined($href->{'password'})
82 && $href->{'password'} ne $svc_acct->_password;
83 my $session = new FS::session {
84 'portnum' => $href->{'portnum'},
85 'svcnum' => $svc_acct->svcnum,
86 'login' => $href->{'login'},
93 $href->{'username'} =~ /^([a-z0-9_\-\.]+)$/ or return "Illegal username";
95 $svc_acct = qsearchs('svc_acct', { 'username' => $username } )
96 or return "Unknown user";
97 return "Incorrect password"
98 if defined($href->{'password'})
99 && $href->{'password'} ne $svc_acct->_password;
100 my $session = qsearchs FS::session {
101 'portnum' => $href->{'portnum'},
102 'svcnum' => $svc_acct->svcnum,
105 return "No currently open sessios found for that user/port!" unless $session;
106 my $nsession = new FS::session ( { $old->hash } );
107 $nsession->replace($session);
111 die "Usage:\n\n fs_session_server user machine\n";