1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };
#
# Map script. lifted from anduril by wd.
# This script is in the public domain
#
# $Id: map,v 1.3 2006/09/28 23:18:05 jnelson Exp $
#
# Here's how it works. We retrieve links from the server using a /links
# command. We then sort them out into an array as below, and then iterate
# over the array to generate the map. On servers with 005 support and the
# map token, we simply use their map command unless mapping from a specific
# server is requested.
#
alias map.encode {return $encode($tolower($*))};
alias map.retrieve_links {
^on ^364 * (myserv, client, hub, hops, gecos) {
@map.links.all #= [$client ];
@:henc = map.encode($hub);
@:cenc = map.encode($client);
@map.links[$cenc][hub] = hub;
@map.links[$cenc][hops] = hops;
@map.links[$cenc][info] = gecos;
if (hops == 0) {
return;
};
@push(map.links[$cenc][servers] $hub);
@push(map.links[$henc][servers] $client);
};
^eval on ^365 "*" map.finish_links $*;
//^links;
};
alias map.finish_links {
^on 364 -"*"
^on 365 -"*"
for xx in ($map.links.all) {
@:senc = map.encode($xx);
@map.links[$senc][servers] = uniq($map.links[$senc][servers]);
if (numwords($map.links[$map.encode($xx)][servers]) > 1) {
@push(map.links.hubs $xx);
};
};
# sort our hubs by distance in hops
@:hops = 0;
@:newlist = [];
while (sort($newlist) != sort($map.links.hubs)) {
@:new = [];
for xx in ($map.links.hubs) {
if (map.links[$map.encode($xx)][hops] == hops) {
@push(:new $xx);
};
};
if (new != []) {
@push(:newlist $new);
};
@:hops++;
};
@map.links.hubs = newlist;
$*;
fe ($aliasctl(assign pmatch map.links*)) xx {
^assign -$xx;
};
};
alias map (server) {
if (serverctl(GET $servernum() 005 MAP) != [] && server == []) {
quote map;
return;
};
map.retrieve_links map.exec $server;
};
### this displays a single branch of a map. I changed this alias slightly (to
### make it work properly) after observing the way Liandrin's script worked.
alias map.map_branch (server, prefix) {
@push(map.links.seen $server);
@:senc = map.encode($server);
echo [map] $prefix$server \($map.links[$senc][hops] $map.links[$senc][info]\);
@:servers = remws($map.links.seen / $map.links[$senc][servers]);
if (numwords($servers) == 0) {
return;
};
@:prefix = msar(/`-/ /-/ /$prefix);
for xx in ($servers) {
if (xx == rightw(1 $servers)) {
map.map_branch $xx $prefix`-;
} else {
map.map_branch $xx $prefix|-;
};
};
};
alias map.exec (server) {
if (server == []) {
@:server = builtin_expando(S);
};
if (findw($server $map.links.all) == -1) {
echo [map] server $server does not appear to be online;
return;
};
map.map_branch $server;
};
### vi:set ts=8 sts=4 sw=4 tw=79 syntax=off ai smartindent:
|
