misc/mailinfo/mailinfo.pl

#!/usr/local/bin/perl -w

# -----------------------------------------------------------
# Perl UKC mailinfo host
#
# A perl script that mimmicks the behaviour of the UKC
# mailinfo client. Supports all functions except the -C
# option to change mailstore.
#  - T.D.Bishop@kent.ac.uk
#
# $Author: tdb $
# $Id: mailinfo.pl,v 1.6 2001/10/15 16:29:03 tdb Exp $
#------------------------------------------------------------

$| = 1;

use strict;
use IO::Socket;

# default mailinfo server
my($mailinfo_server) = "mercury.ukc.ac.uk";
my($mailinfo_port) = "912";

# default settings
my($mailinfo_mode) = "mi_guess";
my($mailinfo_name) = "";
my($mailinfo_quick) = 0;

# work out the switches
my($mode_set) = 0;
while(@ARGV) {
    my($opt) = shift;
    if($opt eq "-l" && $mode_set == 0) {
        $mailinfo_mode = "mi_login";
        $mode_set = 1;
    }
    elsif($opt eq "-n" && $mode_set == 0) {
        $mailinfo_mode = "mi_name";
        $mode_set = 1;
    }
    elsif($opt eq "-s" && $mode_set == 0) {
        $mailinfo_mode = "mi_soundex";
        $mode_set = 1;
    }
    elsif($opt eq "-i" && $mode_set == 0) {
        $mailinfo_mode = "mi_sysid";
        $mode_set = 1;
    }
    elsif($opt eq "-g" && $mode_set == 0) {
        $mailinfo_mode = "mi_guess";
        $mode_set = 1;
    }
    elsif($opt eq "-q" && $mailinfo_quick == 0) {
        $mailinfo_quick = 1;
    }
    elsif($opt =~ /^-/) {
        &usage;
    }
    else {
        $mailinfo_name .= " $opt";
    }
}

if($mailinfo_name eq "") { $mailinfo_name = getlogin; }

# run mailinfo
&mailinfo($mailinfo_server, $mailinfo_port, $mailinfo_mode, $mailinfo_name, $mailinfo_quick);

exit(0);


#-----------------------------------------------------------------------
# mailinfo
# Performs a mailinfo query to a specific server.
# Parameters are:
#   $server = the IP or name of the port server
#   $port   = the port of the mailinfo server
#   $mode   = the lookup mode to use
#   $name   = the name to lookup
#   $quick  = whether to do a quick lookup or not (1 = quick)
#-----------------------------------------------------------------------
sub mailinfo() {
    my($server, $port, $mode, $name, $quick) = @_;
    
    # connect
    my($sock) = new IO::Socket::INET(
        PeerAddr => $server,
        PeerPort => $port,
        Proto => 'tcp'
    ) or die "Connection to server broken\n";
    
    if(!defined $sock) {
        print "Connection to server broken\n";
        exit(1);
    }
    
    my($response) = "";
    
    # set the sensible option if we want quick mode
    if($quick) {
        print $sock "sensible on\n";
        $response = <$sock>;
        while($response ne ".\n") {
            $response = <$sock>;
        }
    }
    
    # send the query
    print $sock "$mode $name\n";
    $response = "";
    
    # read and print the response    
    while($response ne ".\n") {
        $response = <$sock>;
        if($response =~ s/^\?/mailinfo: /) {
            print $response;
        }
        else {
            print $response unless $response eq ".\n";
        }
    }
    
    # quit and close
    print $sock "quit\n";
    close($sock);
    return;
}


#-----------------------------------------------------------------------
# usage
# Prints out usage information
#-----------------------------------------------------------------------
sub usage() {
    print <<EOF;
Usage: mailinfo [mode] name ...
where mode is:
        -l      login search
        -n      name search
        -s      `sounds like' search
        -i      sysid search
        -g      guess search (default)
        -q      quick mode (no mailbox info)
        -C      change mailstore (unsupported)
EOF
    exit(1);
}
Revision:	1.7
Committed:	Sun Aug 1 10:39:51 2004 UTC (20 years, 3 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.6:	+3 -3 lines
Log Message:	Catch a lot of old URL's and update them. Also remove a couple of old files that aren't used.
#	User	Rev	Content
1	tdb	1.1	#!/usr/local/bin/perl -w
2
3			# -----------------------------------------------------------
4			# Perl UKC mailinfo host
5			#
6			# A perl script that mimmicks the behaviour of the UKC
7			# mailinfo client. Supports all functions except the -C
8			# option to change mailstore.
9	tdb	1.7	# - T.D.Bishop@kent.ac.uk
10	tdb	1.1	#
11	tdb	1.7	# $Author: tdb $
12			# $Id: mailinfo.pl,v 1.6 2001/10/15 16:29:03 tdb Exp $
13	tdb	1.1	#------------------------------------------------------------
14
15			$\| = 1;
16
17			use strict;
18			use IO::Socket;
19
20			# default mailinfo server
21			my($mailinfo_server) = "mercury.ukc.ac.uk";
22			my($mailinfo_port) = "912";
23
24			# default settings
25			my($mailinfo_mode) = "mi_guess";
26	tdb	1.2	my($mailinfo_name) = "";
27	tdb	1.1	my($mailinfo_quick) = 0;
28
29			# work out the switches
30			my($mode_set) = 0;
31			while(@ARGV) {
32			my($opt) = shift;
33			if($opt eq "-l" && $mode_set == 0) {
34			$mailinfo_mode = "mi_login";
35			$mode_set = 1;
36			}
37			elsif($opt eq "-n" && $mode_set == 0) {
38			$mailinfo_mode = "mi_name";
39			$mode_set = 1;
40			}
41			elsif($opt eq "-s" && $mode_set == 0) {
42			$mailinfo_mode = "mi_soundex";
43			$mode_set = 1;
44			}
45			elsif($opt eq "-i" && $mode_set == 0) {
46			$mailinfo_mode = "mi_sysid";
47			$mode_set = 1;
48			}
49			elsif($opt eq "-g" && $mode_set == 0) {
50			$mailinfo_mode = "mi_guess";
51			$mode_set = 1;
52			}
53			elsif($opt eq "-q" && $mailinfo_quick == 0) {
54			$mailinfo_quick = 1;
55			}
56			elsif($opt =~ /^-/) {
57			&usage;
58			}
59			else {
60	tdb	1.2	$mailinfo_name .= " $opt";
61	tdb	1.1	}
62			}
63
64	tdb	1.2	if($mailinfo_name eq "") { $mailinfo_name = getlogin; }
65
66	tdb	1.1	# run mailinfo
67			&mailinfo($mailinfo_server, $mailinfo_port, $mailinfo_mode, $mailinfo_name, $mailinfo_quick);
68
69			exit(0);
70
71
72			#-----------------------------------------------------------------------
73			# mailinfo
74			# Performs a mailinfo query to a specific server.
75			# Parameters are:
76			# $server = the IP or name of the port server
77			# $port = the port of the mailinfo server
78			# $mode = the lookup mode to use
79			# $name = the name to lookup
80			# $quick = whether to do a quick lookup or not (1 = quick)
81			#-----------------------------------------------------------------------
82			sub mailinfo() {
83			my($server, $port, $mode, $name, $quick) = @_;
84
85			# connect
86			my($sock) = new IO::Socket::INET(
87			PeerAddr => $server,
88			PeerPort => $port,
89			Proto => 'tcp'
90	tdb	1.5	) or die "Connection to server broken\n";
91	tdb	1.1
92			if(!defined $sock) {
93	tdb	1.5	print "Connection to server broken\n";
94	tdb	1.1	exit(1);
95			}
96
97	tdb	1.2	my($response) = "";
98	tdb	1.1
99			# set the sensible option if we want quick mode
100			if($quick) {
101			print $sock "sensible on\n";
102			$response = <$sock>;
103			while($response ne ".\n") {
104			$response = <$sock>;
105			}
106			}
107
108			# send the query
109			print $sock "$mode $name\n";
110	tdb	1.6	$response = "";
111	tdb	1.1
112	tdb	1.2	# read and print the response
113	tdb	1.1	while($response ne ".\n") {
114			$response = <$sock>;
115	tdb	1.3	if($response =~ s/^\?/mailinfo: /) {
116	tdb	1.4	print $response;
117	tdb	1.3	}
118			else {
119	tdb	1.4	print $response unless $response eq ".\n";
120	tdb	1.3	}
121	tdb	1.1	}
122
123			# quit and close
124			print $sock "quit\n";
125			close($sock);
126			return;
127			}
128
129
130			#-----------------------------------------------------------------------
131			# usage
132			# Prints out usage information
133			#-----------------------------------------------------------------------
134			sub usage() {
135			print <<EOF;
136			Usage: mailinfo [mode] name ...
137			where mode is:
138			-l login search
139			-n name search
140			-s `sounds like' search
141			-i sysid search
142			-g guess search (default)
143			-q quick mode (no mailbox info)
144			-C change mailstore (unsupported)
145			EOF
146			exit(1);
147			}