mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
added examples
added data/issue to login clients
This commit is contained in:
parent
cce1612210
commit
0565e35bbb
7
examples/djk
Normal file
7
examples/djk
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
timeout 15
|
||||||
|
connect telnet dirk1
|
||||||
|
'login' 'djk'
|
||||||
|
'word' 'xxxxx'
|
||||||
|
'\$ ' 'cd spider/perl'
|
||||||
|
'\$ ' 'client.pl gb7djk-1 telnet'
|
||||||
|
client gb7djk telnet
|
6
examples/gb7djk
Normal file
6
examples/gb7djk
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
timeout 15
|
||||||
|
# don't forget to chmod 4775 netrom_call!
|
||||||
|
connect ax25 /usr/sbin/netrom_call bbs gb7djk-1 gb7djk-0
|
||||||
|
'Connect' ''
|
||||||
|
'Connect'
|
||||||
|
client gb7djk ax25
|
7
examples/gb7tlh
Normal file
7
examples/gb7tlh
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
timeout 15
|
||||||
|
# don't forget to chmod 4775 netrom_call!
|
||||||
|
connect ax25 /usr/sbin/netrom_call bbs gb7djk g1tlh-0
|
||||||
|
'Connect' ''
|
||||||
|
'Connect' 'cluster'
|
||||||
|
'Connect'
|
||||||
|
client gb7tlh ax25
|
36
examples/hop_table.pl
Normal file
36
examples/hop_table.pl
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
#
|
||||||
|
# hop table construction
|
||||||
|
#
|
||||||
|
|
||||||
|
package DXProt;
|
||||||
|
|
||||||
|
# default hopcount to use
|
||||||
|
$def_hopcount = 15;
|
||||||
|
|
||||||
|
# some variable hop counts based on message type
|
||||||
|
%hopcount =
|
||||||
|
(
|
||||||
|
11 => 10,
|
||||||
|
16 => 10,
|
||||||
|
17 => 10,
|
||||||
|
19 => 10,
|
||||||
|
21 => 10,
|
||||||
|
);
|
||||||
|
|
||||||
|
#
|
||||||
|
# the per node hop control thingy
|
||||||
|
#
|
||||||
|
|
||||||
|
%nodehops =
|
||||||
|
(
|
||||||
|
GB7DJK => {
|
||||||
|
16 => 23,
|
||||||
|
17 => 23,
|
||||||
|
},
|
||||||
|
GB7TLH => {
|
||||||
|
19 => 99,
|
||||||
|
21 => 99,
|
||||||
|
16 => 99,
|
||||||
|
17 => 99,
|
||||||
|
}
|
||||||
|
);
|
@ -348,28 +348,48 @@ if ($loginreq) {
|
|||||||
my $user;
|
my $user;
|
||||||
my $s;
|
my $s;
|
||||||
|
|
||||||
|
if (-e "$data/issue") {
|
||||||
|
open(I, "$data/issue") or die;
|
||||||
|
local $/ = undef;
|
||||||
|
$issue = <I>;
|
||||||
|
close(I);
|
||||||
|
$issue = s/\n/\r/og if $mode == 1;
|
||||||
|
local $/ = $nl;
|
||||||
|
$stdout->print($issue) if issue;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
DXUser->init($userfn);
|
DXUser->init($userfn);
|
||||||
|
|
||||||
|
# allow a login from an existing user. I could create a user but
|
||||||
|
# I want to check for valid callsigns and I don't have the
|
||||||
|
# necessary info / regular expression yet
|
||||||
for ($state = 0; $state < 2; ) {
|
for ($state = 0; $state < 2; ) {
|
||||||
alarm($timeout);
|
alarm($timeout);
|
||||||
|
|
||||||
if ($state == 0) {
|
if ($state == 0) {
|
||||||
$stdout->print('login: ');
|
$stdout->print('login: ');
|
||||||
$stdout->flush();
|
$stdout->flush();
|
||||||
local $/ = $mode == 1 ? "\r" : "\n";
|
local $\ = $nl;
|
||||||
$s = $stdin->getline();
|
$s = $stdin->getline();
|
||||||
chomp $s;
|
chomp $s;
|
||||||
|
$s =~ s/\s+//og;
|
||||||
|
$s =~ s/-\d+$//o; # no ssids!
|
||||||
|
cease(0) unless $s gt ' ';
|
||||||
$call = uc $s;
|
$call = uc $s;
|
||||||
$user = DXUser->get($call);
|
$user = DXUser->get($call);
|
||||||
$state = 1;
|
$state = 1;
|
||||||
} elsif ($state == 1) {
|
} elsif ($state == 1) {
|
||||||
$stdout->print('password: ');
|
$stdout->print('password: ');
|
||||||
$stdout->flush();
|
$stdout->flush();
|
||||||
local $/ = $mode == 1 ? "\r" : "\n";
|
local $\ = $nl;
|
||||||
$s = $stdin->getline();
|
$s = $stdin->getline();
|
||||||
chomp $s;
|
chomp $s;
|
||||||
$state = 2;
|
$state = 2;
|
||||||
cease(0) if !$user || ($user->passwd && $user->passwd ne $s);
|
if (!$user || ($user->passwd && $user->passwd ne $s)) {
|
||||||
|
$stdout->print("sorry...$nl");
|
||||||
|
cease(0);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user