summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
cce1612)
added data/issue to login clients
--- /dev/null
+timeout 15
+connect telnet dirk1
+'login' 'djk'
+'word' 'xxxxx'
+'\$ ' 'cd spider/perl'
+'\$ ' 'client.pl gb7djk-1 telnet'
+client gb7djk telnet
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+#
+# 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,
+ }
+);
+ 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;
+ }
+
+
+ # 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; ) {
alarm($timeout);
if ($state == 0) {
$stdout->print('login: ');
$stdout->flush();
for ($state = 0; $state < 2; ) {
alarm($timeout);
if ($state == 0) {
$stdout->print('login: ');
$stdout->flush();
- local $/ = $mode == 1 ? "\r" : "\n";
$s = $stdin->getline();
chomp $s;
$s = $stdin->getline();
chomp $s;
+ $s =~ s/\s+//og;
+ $s =~ s/-\d+$//o; # no ssids!
+ cease(0) unless $s gt ' ';
$call = uc $s;
$user = DXUser->get($call);
$state = 1;
} elsif ($state == 1) {
$stdout->print('password: ');
$stdout->flush();
$call = uc $s;
$user = DXUser->get($call);
$state = 1;
} elsif ($state == 1) {
$stdout->print('password: ');
$stdout->flush();
- local $/ = $mode == 1 ? "\r" : "\n";
$s = $stdin->getline();
chomp $s;
$state = 2;
$s = $stdin->getline();
chomp $s;
$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);
+ }