fixed for newer perl
[tridge/junkcode.git] / extr.c
1 static char *extract_address(char *from)
2 {
3         char *p, *q;
4         p = strchr(from,'<');
5         if (!p) return from;
6         p++;
7         q = strchr(p,'>');
8         if (!q) return from;
9         *q = 0;
10         from = strdup(p);
11         *q = '>';
12         return from;
13 }
14
15 main(int argc, char *argv[])
16 {
17         puts(extract_address(argv[1]));
18 }