projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
295f32f
)
tidied up login: changes in client.pl
R_1_35
author
djk
<djk>
Sun, 21 Nov 1999 21:18:49 +0000
(21:18 +0000)
committer
djk
<djk>
Sun, 21 Nov 1999 21:18:49 +0000
(21:18 +0000)
perl/client.pl
patch
|
blob
|
history
diff --git
a/perl/client.pl
b/perl/client.pl
index db3bb80a1b720be88880cd3b5323c0d2e1e5410d..84ab5d530ee7e770636299302306469c2ad3dc18 100755
(executable)
--- a/
perl/client.pl
+++ b/
perl/client.pl
@@
-369,6
+369,9
@@
if ($loginreq) {
my $user;
my $s;
my $user;
my $s;
+ $connsort = 'telnet' if $connsort eq 'local';
+ setmode();
+
if (-e "$data/issue") {
open(I, "$data/issue") or die;
local $/ = undef;
if (-e "$data/issue") {
open(I, "$data/issue") or die;
local $/ = undef;
@@
-386,14
+389,17
@@
if ($loginreq) {
$stdout->print('login: ');
$stdout->flush();
$stdout->print('login: ');
$stdout->flush();
- local $\ = $nl;
+ local $\ = $
my
nl;
$s = $stdin->getline();
chomp $s;
$s =~ s/\s+//og;
$s =~ s/-\d+$//o; # no ssids!
$s = $stdin->getline();
chomp $s;
$s =~ s/\s+//og;
$s =~ s/-\d+$//o; # no ssids!
- cease(0) unless $s gt ' ' && iscallsign($s);
+ cease(0) unless $s && $s gt ' ';
+ unless (iscallsign($s)) {
+ $stdout->print("Sorry, $s is an invalid callsign");
+ cease(0);
+ }
$call = uc $s;
$call = uc $s;
- $connsort = 'telnet' if $connsort eq 'local';
alarm(0);
}
alarm(0);
}