#!/usr/athena/bin/perl -w if (-f "/mit/sipb/share/rolodex/rolodex.lib") { @lists = ("/mit/sipb/share/rolodex/rolodex.lib"); } else { @lists = ("/afs/sipb.mit.edu/project/sipb/share/rolodex/rolodex.lib"); } $p = $ENV{'HOME'} . "/.rolodex"; unshift(@lists, $p) if -r $p; $areacode = "617"; print "Content-Type: text/html\n\n"; print "\n"; print "\n\n"; print "Rolodex Output\n"; print "\n\n"; print "

Rolodex Output

\n"; if ($ARGV[0] eq "-a") { $print_all = 1; shift(@ARGV); } else { $print_all = 0; } if (scalar(@ARGV) == 0) { print "Enter a name or telephone number to look up.\n"; print "\n"; print "
SIPB Webmasters"; print "\<webmaster\@mit.edu\>
\n"; print "\n\n"; exit; } if ($ARGV[0] eq ".") # trap regexp matching of "." { print "Results of rolodex lookup of $ARGV[0]:\n"; print "
\n";
    print "
\n"; print "\n"; print "
SIPB Webmasters"; print "\<webmaster\@mit.edu\>
\n"; print "\n\n"; exit; } print "Results of rolodex lookup of $ARGV[0]:\n"; print "
\n";

if (scalar(@ARGV) == 1)
{
    $src = &parse_number($ARGV[0]);
    if ("$src")
    {
	for $list (@lists)
	{
	    open( LIST, $list ) || die "couldn't open file $list: $!\n";
	    while(  )
	    {
		last if /^---/;
		next if /^#/;
		(($num, $name) = /^\s*(\S+)\s+(.+)$/) || next;
		$name =~ s/\s*#.*$//;
		$name =~ s/\[([^]]*)\]/$1/g;
		if ($src eq &parse_number($num))
		{
		    print &unparse_number($src) . "  $name\n";
		    print "
\n"; print "\n"; print "
SIPB Webmasters"; print "\<webmaster\@mit.edu\>
\n"; print "\n\n"; exit; } } while( ) { next if /^#/; (($num, $name) = /^\s*(\S+)\s+(.+)$/) || next; print &unparse_number($src) . " $name\n" if $src =~ /^$num$/; } } print "\n"; print "\n"; print "
SIPB Webmasters"; print "\<webmaster\@mit.edu\>
\n"; print "\n\n"; exit; } } $src = join(' ',@ARGV); for $list (@lists) { open( LIST, $list ) || die "couldn't open file $list: $!\n"; while( ) { chop; last if /^---/; next if /^#/; s/\s*#\s*/#/g; (($num, $name, $k, $keys) = /^\s*(\S+)\s+([^#]+)(#(.*))?$/) || next; $k = $k; # don't warn about this variable... ($subname = $name) =~ s/ ?\[[^]]*\]//g; $name =~ s/\[([^]]*)\]/$1/g; if ($subname =~ /$src/i) { print &reparse_number($num) . " $name\n"; next; } if ($print_all && $name =~ /$src/i) { print &reparse_number($num) . " $name\n"; next; } defined $keys && grep(/$src/, split(/#/,$keys)) && (print &reparse_number($num) . " $name\n"); } } print "\n"; print "\n"; print "
SIPB Webmasters"; print "\<webmaster\@mit.edu\>
\n"; print "\n\n"; exit; sub parse_number { local( $_ ) = @_; return "$areacode-25$1-$2" if /^([238])-?(\d{4})$/; return "$areacode-225-$1" if /^5-?(\d{4})$/; return "$areacode-$1-$2" if /^(\d{3})-?(\d{4})$/; return "$1-$2-$3" if /^(\d{3})-?(\d{3})-?(\d{4})$/; return "$1-$2-$3" if /^\((\d{3})\)-?(\d{3})-?(\d{4})$/; return $_ if /^[0-9-]*$/; return ""; } sub unparse_number { local( $_ ) = @_; return " x$1" if /^$areacode-22(5-[156789]\d{3})$/; return " x$1" if /^$areacode-25([3]-\d{4})$/; return " x$1" if /^$areacode-25(2-[1567]\d{3})$/; return " x$1" if /^$areacode-25(8-[056789]\d{3})$/; return " $1" if /^$areacode-(\d{3}-\d{4})$/; return " " x (12-length) . $_; } sub reparse_number { local( $_ ) = @_; return " x5-$3" if /^(($areacode-?)?22)?5-?([156789]\d{3})$/; return " x2-$3" if /^(($areacode-?)?25)?2-?([1567]\d{3})$/; return " x$3-$4" if /^(($areacode-?)?25)?([3])-?(\d{4})$/; return " x8-$3" if /^(($areacode-?)?25)?8-?([056789]\d{3})$/; return " $2-$3" if /^($areacode-?)?(\d{3})-?(\d{4})$/; return " " x (12-length) . $_; }