projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove leading 0 from ssids on login
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 32c6cf5f109d9e2cd6911d5ece1ebe6634640b27..3ad62001253fc2f8e6b97103287d186749820a41 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-534,10
+534,11
@@
$call = uc shift @ARGV if @ARGV;
$call = uc $myalias unless $call;
$node = uc $mycall unless $node;
$call = uc $myalias unless $call;
$node = uc $mycall unless $node;
+$call = normalise_call($call);
my ($scall, $ssid) = split /-/, $call;
$ssid = undef unless $ssid && $ssid =~ /^\d+$/;
if ($ssid) {
my ($scall, $ssid) = split /-/, $call;
$ssid = undef unless $ssid && $ssid =~ /^\d+$/;
if ($ssid) {
- $ssid =
15 if $ssid > 15
;
+ $ssid =
99 if $ssid > 99
;
$call = "$scall-$ssid";
}
$call = "$scall-$ssid";
}