File: g2finger.gd

package info (click to toggle)
gopher 2.3-2
  • links: PTS
  • area: non-free
  • in suites: hamm
  • size: 2,364 kB
  • ctags: 2,030
  • sloc: ansic: 22,451; perl: 1,950; sh: 1,510; makefile: 397; asm: 1
file content (127 lines) | stat: -rwxr-xr-x 2,616 bytes parent folder | download | duplicates (3)
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
#!/usr/local/bin/perl

#----------------------------------------------------------------------

if ($0 =~ /.gpd/) {
    # We have gopher+ directory...
    $gplus = 1;
}

if (defined(@ARGV)) {
    $host = shift;
    $host =~ /^(.*)@(.*)$/;
    $user = $1 if ($1);
    $host = $2 if ($2);
} else {
    $user = <>;    chop($user);
    $host = <>;    chop($host);
}

### Make sure the user is letters or numbers only...
$user =~ s/[^A-z0-9]//g;

&GopenServer($host, 79);
&Gsend($user) if ($user);
&Gsend("\r\n");

while(<GSERVER>) {
    s/\n//;
    s/\r//;
    push(@lines,$_);
}
    
print "+INFO: " if ($gplus);
print "0Finger output for $host\t$query\t$host\t79\n";
    
#
# Parse out various finger formats
#

# Unix style finger format, and gnu finger

if ($lines[0] =~ /Login\s+Name/ || $lines[0] =~ /User\s+Real/) {
    
    foreach (@lines) {
	if (!/^Login\s+Name/) {
	    /^([\S]+)/;
	    substr($_, 75) = "";
	    print "+INFO: " if ($gplus);
	    print "0$_\t$1\t$host\t79\n";
	} else {
	    print "+INFO: " if ($gplus);
	    print "i$_\tnothing\tbogus\t0\n";
	}
    }
}

#
# VMS finger format
#
if ($lines[1] =~ /Jobs.*Load ave/) {
    foreach (@lines) {
	if (/^ User\s+Personal Name/ || /\d\d:\d\d:\d\d$/ ||
	    /Jobs\s+Load ave/) {
	    print "+INFO: " if ($gplus);
	    print "i$_\tnothing\tbogus\t0\n";
	} else {
	    /^([\S]+)/;
	    substr($_, 75) = "";
	    print "+INFO: " if ($gplus);
	    print "0$_\t$1\t$host\t79\n";
	}
    }
}

#
# CSO gateway finger type servers
#
    
foreach (@lines) {
    if (/\s+name:\s+(.*)/ ||
	/\s+person:\s+(.*)/) {
	$newquery = $1;
	$newquery =~ s/,//g; #remove commas
	$newquery =~ s/\s+[A-z]$//; #remove trailing middle initial
	print "+INFO: " if ($gplus);
	print "0$1\t$newquery\t$host\t79\n";
    }
}



sub GopenServer {

    local($server,$port) = @_;
    local($type, $name, $aliases, $len, $saddr);

    $sockaddr = 'S n a4 x8';
    (($name, $aliases, $type, $len, $saddr) = gethostbyname($server))
	|| &Gabort("3Can't get address of: $server");
    $sin = pack($sockaddr, 2, $port, $saddr);
    socket(GSERVER, 2, 1, 0) || &Gabort("Can't create socket: $!");
    connect(GSERVER, $sin)   || &Gabort("Can't connect to server: $!");
    select(GSERVER); $| = 1; select(STDOUT); $| = 1;
}

sub GcloseServer {
    close(GSERVER);
}

sub Gsend { 
    print "send -> |$_[0]|\n" if (defined($Gdebug));
    print GSERVER "$_[0]\r\n"; 
}

sub Grecv { 
    local ($_); 
    $_= <GSERVER>; 
    s/\n$//;
    s/\r$//;
    print "recv -> |$_|\n" if (defined($Gdebug));
    return $_; 
}

sub Gabort {
    local ($mesg) = @_;
    print "0$mesg\t\terror.host\t70\r\n";
}