FOTIs Fidonet Echolist Archive Search Results

#!/usr/bin/perl use CGI; # # esearch2.pl # echolist search engine # TheLitterBox. Copyright 2001. # updated 2002 # what does the user want to find? ($dump,$search) = split(/=/,$ENV{'QUERY_STRING'}); # let's not make the search case-sensitive, ok? $ucsearch = uc($search); $THE_FILE = "http://www.fidonet-on-the-internet.org/index.htm"; open THE_FILE or die "can't find file: $!\n"; print "Content-type: text/html\n\n"; print ""; print ""; print "FOTIs Fidonet Echolist Archive Search Results"; print ""; print "

"; print "FOTIs Echolist Search Results
"; print "xxxx #x indicates a searched archive
"; print "

"; print "Searching for '$search'
"; print "

"; # if ($search ne "") { if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist001.txt")){print " 1990 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist002.txt")){print " 1990 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist003.txt")){print " 1990 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist004.txt")){print " 1990 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist005.txt")){print " 1990 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist006.txt")){print " 1990 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist007.txt")){print " 1990 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist008.txt")){print " 1990 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist009.txt")){print " 1990 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist010.txt")){print " 1990 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist011.txt")){print " 1990 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1990/elist012.txt")){print " 1990 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist101.txt")){print " 1991 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist102.txt")){print " 1991 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist103.txt")){print " 1991 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist104.txt")){print " 1991 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist105.txt")){print " 1991 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist106.txt")){print " 1991 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist107.txt")){print " 1991 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist108.txt")){print " 1991 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist109.txt")){print " 1991 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist110.txt")){print " 1991 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist111.txt")){print " 1991 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1991/elist112.txt")){print " 1991 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist201.txt")){print " 1992 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist202.txt")){print " 1992 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist203.txt")){print " 1992 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist204.txt")){print " 1992 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist205.txt")){print " 1992 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist206.txt")){print " 1992 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist207.txt")){print " 1992 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist208.txt")){print " 1992 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist209.txt")){print " 1992 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist210.txt")){print " 1992 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist211.txt")){print " 1992 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1992/elist212.txt")){print " 1992 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist301.txt")){print " 1993 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist302.txt")){print " 1993 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist303.txt")){print " 1993 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist304.txt")){print " 1993 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist305.txt")){print " 1993 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist306.txt")){print " 1993 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist307.txt")){print " 1993 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist308.txt")){print " 1993 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist309.txt")){print " 1993 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist310.txt")){print " 1993 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist311.txt")){print " 1993 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1993/elist312.txt")){print " 1993 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist401.txt")){print " 1994 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist402.txt")){print " 1994 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist403.txt")){print " 1994 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist404.txt")){print " 1994 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist405.txt")){print " 1994 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist406.txt")){print " 1994 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist407.txt")){print " 1994 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist408.txt")){print " 1994 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist409.txt")){print " 1994 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist410.txt")){print " 1994 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist411.txt")){print " 1994 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1994/elist412.txt")){print " 1994 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist501.txt")){print "1995 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist502.txt")){print "1995 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist503.txt")){print "1995 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist504.txt")){print "1995 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist505.txt")){print "1995 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist506.txt")){print "1995 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist507.txt")){print "1995 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist508.txt")){print "1995 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist509.txt")){print "1995 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist510.txt")){print "1995 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist511.txt")){print "1995 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1995/elist512.txt")){print "1995 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist601.txt")){print "1996 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist602.txt")){print "1996 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist603.txt")){print "1996 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist604.txt")){print "1996 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist605.txt")){print "1996 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist606.txt")){print "1996 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist607.txt")){print "1996 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist608.txt")){print "1996 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist609.txt")){print "1996 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist610.txt")){print "1996 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist611.txt")){print "1996 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1996/elist612.txt")){print "1996 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist701.txt")){print "1997 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist702.txt")){print "1997 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist703.txt")){print "1997 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist704.txt")){print "1997 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist705.txt")){print "1997 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist706.txt")){print "1997 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist707.txt")){print "1997 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist708.txt")){print "1997 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist709.txt")){print "1997 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist710.txt")){print "1997 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist711.txt")){print "1997 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1997/elist712.txt")){print "1997 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist801.txt")){print "1998 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist802.txt")){print "1998 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist803.txt")){print "1998 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist804.txt")){print "1998 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist805.txt")){print "1998 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist806.txt")){print "1998 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist807.txt")){print "1998 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist808.txt")){print "1998 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist809.txt")){print "1998 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist810.txt")){print "1998 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist811.txt")){print "1998 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1998/elist801.txt")){print "1998 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist901.txt")){print "1999 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist902.txt")){print "1999 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist903.txt")){print "1999 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist904.txt")){print "1999 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist905.txt")){print "1999 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist906.txt")){print "1999 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist907.txt")){print "1999 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist908.txt")){print "1999 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist909.txt")){print "1999 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist910.txt")){print "1999 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist911.txt")){print "1999 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e1999/elist912.txt")){print "1999 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist001.txt")){print "2000 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist002.txt")){print "2000 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist003.txt")){print "2000 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist004.txt")){print "2000 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist005.txt")){print "2000 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist006.txt")){print "2000 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist007.txt")){print "2000 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist008.txt")){print "2000 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist009.txt")){print "2000 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist010.txt")){print "2000 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist011.txt")){print "2000 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2000/elist012.txt")){print "2000 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist101.txt")){print "2001 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist102.txt")){print "2001 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist103.txt")){print "2001 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist104.txt")){print "2001 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist105.txt")){print "2001 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist106.txt")){print "2001 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist107.txt")){print "2001 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist108.txt")){print "2001 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist109.txt")){print "2001 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist110.txt")){print "2001 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist111.txt")){print "2001 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2001/elist112.txt")){print "2001 #12
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist201.txt")){print "2002 #1
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist202.txt")){print "2002 #2
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist203.txt")){print "2002 #3
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist204.txt")){print "2002 #4
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist205.txt")){print "2002 #5
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist206.txt")){print "2002 #6
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist207.txt")){print "2002 #7
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist208.txt")){print "2002 #8
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist209.txt")){print "2002 #9
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist210.txt")){print "2002 #10
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist211.txt")){print "2002 #11
";fn1();}; #if (open(THE_FILE, "http://www.fidonet-on-the-internet.org/e2002/elist212.txt")){print "2002 #12
";fn1();}; } # goes after all years else { print "No query string given"; } print "
"; print ""; print "

"; print "

"; print ""; # sub fn1 { print ""; while () { $record = $_; $_ = uc($_); if (/$ucsearch/) { print "$record
"; } } close (THE_FILE); print ""; }; }