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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
/* pathalias -- by steve bellovin, as told to peter honeyman */
#ifndef lint
static char *sccsid = "@(#)main.c 9.8 91/06/11";
static char *rcsid = "@(#)smail/pd/pathalias:RELEASE-3_2_0_102:main.c,v 1.4 1997/02/09 21:50:52 woods Exp";
#endif
#ifndef VMS
#define MAIN main
#else
#define MAIN XXmain
#endif
#include "def.h"
/* exports */
char *Cfile; /* current input file */
char *Graphout; /* file for dumping edges (-g option) */
char *Linkout; /* file for dumping shortest path tree */
char **Argv; /* external copy of argv (for input files) */
node *Home; /* node for local host */
int Cflag; /* print costs (-c option) */
int Dflag; /* penalize routes beyond domains (-D option) */
int Iflag; /* ignore case (-i option) */
int Tflag; /* trace links (-t option) */
int Vflag; /* verbose (-v option) */
int Fflag; /* print cost of first hop */
int InetFlag; /* local host is w/in scope of DNS (-I flag) */
int Lineno = 1; /* line number within current input file */
int Argc; /* external copy of argc (for input files) */
extern void die();
extern int tracelink();
/* imports */
extern char *optarg;
extern int optind;
extern long Lcount, Ncount;
extern long allocation();
extern void wasted(), mapit(), hashanalyze(), deadlink();
extern char *local();
extern node *addnode();
extern int getopt(), yyparse();
extern void printit();
#define USAGE "usage: %s [-vciDfIp] [-l localname] [-d deadlink] [-t tracelink] [-g edgeout] [-s treeout] [-a avoid] [files ...]\n"
MAIN(argc, argv)
register int argc;
register char **argv;
{ char *locname = 0, *bang;
register int c;
int errflg = 0;
int parseonly = 0; /* -p */
setbuf(stderr, (char *) 0);
(void) allocation(); /* initialize data space monitoring */
Cfile = "[deadlinks]"; /* for tracing dead links */
Argv = argv;
Argc = argc;
while ((c = getopt(argc, argv, "cd:Dfg:iIl:ps:t:v")) != EOF)
switch(c) {
case 'c': /* print cost info */
Cflag++;
break;
case 'd': /* dead host or link */
if ((bang = index(optarg, '!')) != 0) {
*bang++ = 0;
deadlink(addnode(optarg), addnode(bang));
} else
deadlink(addnode(optarg), (node *) 0);
break;
case 'D': /* penalize routes beyond domains */
Dflag++;
break;
case 'f': /* print cost of first hop */
Cflag++;
Fflag++;
break;
case 'g': /* graph output file */
Graphout = optarg;
break;
case 'i': /* ignore case */
Iflag++;
break;
case 'I': /* Internet connected */
InetFlag++;
break;
case 'l': /* local name */
locname = optarg;
break;
case 'p':
parseonly = 1;
break;
case 's': /* show shortest path tree */
Linkout = optarg;
break;
case 't': /* trace this link */
if (tracelink(optarg) < 0) {
fprintf(stderr, "%s: can trace only %d links\n", Argv[0], NTRACE);
exit(EX_USAGE);
}
Tflag = 1;
break;
case 'v': /* verbose stderr, mixed blessing */
Vflag++;
break;
default:
errflg++;
}
if (errflg) {
fprintf(stderr, USAGE, Argv[0]);
exit(EX_USAGE);
}
argv += optind; /* kludge for yywrap() */
if (*argv)
freopen(NULL_DEVICE, "r", stdin);
else
Cfile = "[stdin]";
if (!locname)
locname = local();
if (*locname == 0) {
locname = "lostinspace";
fprintf(stderr, "%s: using \"%s\" for local name\n",
Argv[0], locname);
}
Home = addnode(locname); /* add home node */
Home->n_cost = 0; /* doesn't cost to get here */
(void) yyparse(); /* read in link info */
if (Vflag > 1)
hashanalyze();
Vprintf(stderr, "%d nodes, %d links, alloc %ldk\n",
Ncount, Lcount, allocation());
if (parseonly != 0) {
wasted();
exit(EX_OK);
}
Cfile = "[backlinks]"; /* for tracing back links */
Lineno = 0;
/* compute shortest path tree */
mapit();
Vprintf(stderr, "allocation is %ldk after mapping\n", allocation());
/* traverse tree and print paths */
printit();
Vprintf(stderr, "allocation is %ldk after printing\n", allocation());
wasted(); /* how much was wasted in memory allocation? */
exit(EX_OK);
}
void
die(s)
char *s;
{
#ifdef DEBUG
extern int abort();
fprintf(stderr, "%s: %s\n", Argv[0], s);
fflush(stdout);
fflush(stderr);
abort();
#else
fprintf(stderr, "%s: %s; notify the authorities\n", Argv[0], s);
exit(EX_OSERR);
#endif
}
|
