home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / alt / gopher / 1123 < prev    next >
Encoding:
Text File  |  1992-07-29  |  20.9 KB  |  754 lines
  1. Newsgroups: alt.gopher
  2. Path: sparky!uunet!stanford.edu!leland.Stanford.EDU!schemers
  3. From: schemers@leland.Stanford.EDU (Roland Schemers)
  4. Subject: go4gw daemon (Was: Re: Wish List Re:  gopher<->NNTP et al.)
  5. Message-ID: <1992Jul30.074045.15852@leland.Stanford.EDU>
  6. Sender: news@leland.Stanford.EDU (Mr News)
  7. Organization: Distributed Computing Group, Stanford University
  8. References: <1992Jul25.002513.22566@leland.Stanford.EDU> <Bs687G.8Cp@knot.ccs.queensu.ca> <1992Jul30.002659.17260@leland.Stanford.EDU>
  9. Date: Thu, 30 Jul 92 07:40:45 GMT
  10. Lines: 742
  11.  
  12. go4gw  (gopher gateway)
  13. -------------------------
  14. Ok, here it is! A master perl gopher gateway daemon, and some sample
  15. gateways. Using this gateway, you only need to add one program to
  16. /etc/inetd.conf, and it can handle requests for many different
  17. perl gateways.
  18.  
  19. There is a go4gw.conf file which configures which gateways can be run.
  20. Instead of forking off a process, or including all the gateways
  21. in one huge perl script, the gateways can be written independent
  22. of each other, and are dynamically loaded at the time they are invoked.
  23. Also, common routines have been placed in go4gw which all the gateways
  24. can use.
  25.  
  26. I'm including the shar file here for people without access to boombox.
  27. I'll also down load it to boombox as go4gw.shar.
  28.  
  29. I've included re-written webster/whois/nntp scripts. The whois script
  30. is Stanford specific, and if Paul chooses to use go4gw then he can
  31. modify his general purpose whois gateway to follow go4gw conventions.
  32. The new gateways are called: g2whois g2nntp g2webster. You'll notice
  33. they are much smaller (since they use some common routines in go4gw)
  34. and even easier to understand ;-)
  35.  
  36. enjoy,
  37.  
  38. Roland
  39.  
  40. #! /bin/sh
  41. # This is a shell archive.  Remove anything before this line, then unpack
  42. # it by saving it into a file and typing "sh file".  To overwrite existing
  43. # files, type "sh file -c".  You can also feed this as standard input via
  44. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  45. # will see the following message at the end:
  46. #        "End of shell archive."
  47. # Contents:  README go4gw go4gw.conf g2nntp g2nntp_groups g2whois
  48. #   g2webster
  49. # Wrapped by schemers@Slapshot.Stanford.EDU on Thu Jul 30 00:36:18 1992
  50. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  51. if test -f 'README' -a "${1}" != "-c" ; then 
  52.   echo shar: Will not clobber existing file \"'README'\"
  53. else
  54. echo shar: Extracting \"'README'\" \(4449 characters\)
  55. sed "s/^X//" >'README' <<'END_OF_FILE'
  56. X
  57. Xgo4gw is a daemon which can handle many different gopher gateways
  58. Xwritten in perl. It should be started from inetd.
  59. X
  60. XYou need to put the following line in /etc/services:
  61. X
  62. Xgo4gw         4320/tcp
  63. X
  64. XAnd the following line in /etc/inetd.conf (depending on your system type):
  65. X
  66. Xgo4gw  stream  tcp     nowait  /usr/local/etc/go4gw  go4gw
  67. X
  68. XThe go4gw script has a few variables you might want to change:
  69. X
  70. X$Gconf_file = "/usr/local/etc/go4gw.conf"; # configuration file
  71. X$Gport=4320;                               # port THIS daemon is running on
  72. X$Ghost="Slapshot.Stanford.EDU";            # host THIS daemon is running on
  73. X
  74. XYou need to set Gport to the same port as in /etc/services, and Ghost to
  75. Xyour fully qualified host name.
  76. X
  77. XWhy aren't these two auto-magically figured out?
  78. XMainly for speed, but also because some `hostname` commands don't
  79. Xhave the domain, some do, etc. Its easier just to define them here.
  80. XSince all the other gateways are run in the context of this perl script,
  81. Xthe gateways don't need any of this stuff in them.
  82. X
  83. XGconf_file should be set to the location of your go4gw.conf file. The
  84. Xformat of this file is:
  85. X
  86. X#
  87. X# format
  88. X# gateway : user : module : gopher title
  89. X#
  90. Xwhois:-2:/usr/local/etc/g2whois:Whois:
  91. Xnntp:-2:/usr/local/etc/g2nntp:USENET News:
  92. Xwebster:-2:/usr/local/etc/g2webster:Webster:
  93. X#
  94. X
  95. XWhere gateway is the name of the gateway, user is either a numeric uid
  96. Xor name,  module is the name of the perl script that go4gw will dynamically 
  97. Xload, and title is the title that will show up in the gopher menu if go4gw 
  98. Xis sent the string "". If the gateway doesn't take an empty string, the title
  99. Xshould be "" and it won't show up in the menu. By writing all your gateways so
  100. Xthey take a "" command, you can point a link at the go4gw daemon with
  101. Xpath set to "" and get a menu of all your gateways. The menu order will
  102. Xbe the same order as the go4gw.conf file.
  103. X
  104. XWriting go4gw gateways
  105. X-----------------------
  106. Xgo4gw gateways need to a follow a few simple conventions:
  107. X
  108. XYou need to have a routine called "${gateway}_main", where gateway
  109. Xis the name of your gateway. For example, if your gateway is called 
  110. Xwhois, then you need:
  111. X
  112. Xwhois_main {
  113. X  local($_) = @_;
  114. X  ...
  115. X}
  116. X
  117. XIn your module (/usr/local/etc/g2whois for example).
  118. X
  119. XYour *_main will be passed the string sent to go4gw WITHOUT your gateway 
  120. Xprefix. For example, if someone sends the following string to go4gw:
  121. X
  122. Xnntp ls su.jobs
  123. X
  124. XThen go4gw will call &nntp_main("ls su.jobs"),  after loading g2nntp.
  125. X
  126. XYou should define any variables that users might have to change at the
  127. Xfront of your script, and prefix them with your gateway name. 
  128. X
  129. XWhen your gateway has to return selector string, hostname, and port, it
  130. Xshould use the following variables:
  131. X
  132. X$Ggw    -> name of this gateway
  133. X$Gport  -> port this gateway is running on
  134. X$Ghost  -> host this gateway is running on
  135. X
  136. XFor example, nntp might do the following:
  137. X
  138. X&Greply("0$Subject\t$Ggw article $group $article\t$Ghost\t$Gport");
  139. X
  140. XSo when the user selects this they will send:
  141. X
  142. Xnntp article su.jobs 104
  143. X
  144. XBack to the go4gw daemon, which will figure out that "article su.jobs 104"
  145. Xneeds to get passed to g2nntp.
  146. X
  147. XThe following variables and routines are defined in go4gw, and can be used 
  148. Xby gateways:
  149. X
  150. X$GnotServer    You can define this in perl scripts that want to include
  151. X               the go4gw script without running the server. See the
  152. X               g2nntp_groups script.
  153. X
  154. X$Ggw           Can be used by gateway routines to determine their gateway     
  155. X               name.
  156. X
  157. X$Gport         Can be used by gateway routines to determine which port go4gw
  158. X               is running on.
  159. X
  160. X$Ghost         Can be used by gateway routines to determine which host go4gw
  161. X               is running on.
  162. X
  163. XGSERVER        File handle which is opened when GopenServer is called.
  164. X
  165. X&Greply(reply) Sends string back to gopher client with \r\n on the end.
  166. X
  167. X&Gabort(mess)  Sends error message back to gopher client with 
  168. X               "3mess\r\n.\r\n" on end.
  169. X              
  170. X&GopenServer(server,port)
  171. X               Opens TCP port at server or calls Gabort.
  172. X
  173. X&GcloseServer  Closes server.
  174. X
  175. X$Gdebug        define this to turn on debugging in &Gsend and &Grecv.
  176. X
  177. X&Gsend(cmd)    Sends "cmd\r\n" to GSERVER.
  178. X
  179. X$_ = &Grecv;   Gets response from GSERVER and strips \r and \n.
  180. X
  181. X&Gsorry        Sends message about data that cannot be delivered due to
  182. X               restrictions.
  183. X
  184. XOther "standard" routines and variables may be added. They will start
  185. Xwith a 'G'.
  186. X
  187. XRolandEND_OF_FILE
  188. if test 4449 -ne `wc -c <'README'`; then
  189.     echo shar: \"'README'\" unpacked with wrong size!
  190. fi
  191. # end of 'README'
  192. fi
  193. if test -f 'go4gw' -a "${1}" != "-c" ; then 
  194.   echo shar: Will not clobber existing file \"'go4gw'\"
  195. else
  196. echo shar: Extracting \"'go4gw'\" \(2497 characters\)
  197. sed "s/^X//" >'go4gw' <<'END_OF_FILE'
  198. X#!/usr/local/bin/perl
  199. X#----------------------------------------------------------------------
  200. X# variables to change
  201. X
  202. X$Gconf_file = "/usr/local/etc/go4gw.conf"; # configuration file
  203. X$Gport=4320;                               # port THIS daemon is running on
  204. X$Ghost="Slapshot.Stanford.EDU";            # host THIS daemon is running on
  205. X
  206. X#----------------------------------------------------------------------
  207. X
  208. X&go4gw_main if (!defined($GnotServer));
  209. X
  210. Xsub go4gw_main {
  211. X
  212. X# get command
  213. X$_ = <STDIN>; s/\r//; s/\n//;
  214. X
  215. X($gw,$args) = /^(\w+)\s*(.*)$/ if (!/^$/);
  216. X
  217. Xopen(CONF,$Gconf_file) || &Gabort("$Gconf_file: $!");
  218. Xwhile(<CONF>) { 
  219. X     chop;
  220. X     next if /^#/ || /^$/;
  221. X     ($gateway,$user,$module,$title) = split(/:/);
  222. X     if ($gw eq '') { &Greply("1$title\t$gateway\t$Ghost\t$Gport"); }
  223. X     elsif ($gw eq $gateway) { &launch_gateway($user,$gateway,$module,$args); }
  224. X}
  225. X
  226. Xif ($gw eq '') { &Greply("."); exit; }
  227. Xelse { &Gabort("3No such gateway: $gw"); }
  228. X
  229. X}
  230. Xsub launch_gateway {
  231. X   local($user,$gateway,$module,$args) = @_;
  232. X
  233. X   if ($user =~ /^\-?\d+$/) { $Guid = $user; }
  234. X   elsif ($user eq '') { $Guid = -2; }
  235. X   else {           
  236. X       ($n,$pw,$Guid) = getpwnam($user);
  237. X       if ($Guid eq '') { $Guid = "-2"; }
  238. X   }
  239. X
  240. X  ($<,$>) = ($Guid,$Guid) unless $>;
  241. X   &Gabort("Can't load gateway: $module") if (! -e $module);
  242. X   require "$module";
  243. X   $main = "${gateway}_main";
  244. X   $Ggw = $gateway;
  245. X   &$main($args);
  246. X   &Greply(".");  # shouldn't really get here, but what the hack!
  247. X   exit;
  248. X}
  249. X
  250. X#
  251. X# standard routines
  252. X#
  253. X
  254. Xsub Greply { print "$_[0]\r\n"; }
  255. X
  256. Xsub Gabort { print "3$_[0]\r\n.\r\n"; exit; }
  257. X
  258. Xsub GopenServer {
  259. X
  260. X local($server,$port) = @_;
  261. X $sockaddr = 'S n a4 x8';
  262. X (($name, $aliases, $type, $len, $saddr) = gethostbyname($server))
  263. X        || &Gabort("3Can't get address of: $server");
  264. X $sin = pack($sockaddr, 2, $port, $saddr);
  265. X socket(GSERVER, 2, 1, 0) || &Gabort("Can't create socket: $!");
  266. X connect(GSERVER, $sin)   || &Gabort("Can't connect to server: $!");
  267. X select(GSERVER); $| = 1; select(STDOUT); $| = 1;
  268. X}
  269. X
  270. Xsub GcloseServer {
  271. X  close(GSERVER);
  272. X}
  273. X
  274. Xsub Gsend { 
  275. X     print "send -> |$_[0]|\n" if (defined($Gdebug));
  276. X     print GSERVER "$_[0]\r\n"; 
  277. X}
  278. X
  279. Xsub Grecv { 
  280. X   local ($_); 
  281. X   $_= <GSERVER>; 
  282. X   s/\n$//;
  283. X   s/\r$//;
  284. X   print "recv -> |$_|\n" if (defined($Gdebug));
  285. X   return $_; 
  286. X}
  287. X
  288. Xsub Gsorry {
  289. X
  290. Xprint<<EOF;
  291. X
  292. XSorry! You have selected information that cannot be delivered off
  293. Xof campus due to restrictions.
  294. X
  295. X   -- The Mole Hole Guardian
  296. X
  297. XEOF
  298. X
  299. X&Greply(".");
  300. Xexit;
  301. X
  302. X}
  303. X
  304. X1;  # for require
  305. END_OF_FILE
  306. if test 2497 -ne `wc -c <'go4gw'`; then
  307.     echo shar: \"'go4gw'\" unpacked with wrong size!
  308. fi
  309. chmod +x 'go4gw'
  310. # end of 'go4gw'
  311. fi
  312. if test -f 'go4gw.conf' -a "${1}" != "-c" ; then 
  313.   echo shar: Will not clobber existing file \"'go4gw.conf'\"
  314. else
  315. echo shar: Extracting \"'go4gw.conf'\" \(193 characters\)
  316. sed "s/^X//" >'go4gw.conf' <<'END_OF_FILE'
  317. X#
  318. X# format
  319. X# gateway : username (or uid):module : gopher title
  320. X#
  321. Xwhois:-2:/usr/local/etc/g2whois:Whois:
  322. Xnntp:-2:/usr/local/etc/g2nntp:USENET News:
  323. Xwebster:-2:/usr/local/etc/g2webster:Webster:
  324. X#END_OF_FILE
  325. if test 193 -ne `wc -c <'go4gw.conf'`; then
  326.     echo shar: \"'go4gw.conf'\" unpacked with wrong size!
  327. fi
  328. chmod +x 'go4gw.conf'
  329. # end of 'go4gw.conf'
  330. fi
  331. if test -f 'g2nntp' -a "${1}" != "-c" ; then 
  332.   echo shar: Will not clobber existing file \"'g2nntp'\"
  333. else
  334. echo shar: Extracting \"'g2nntp'\" \(4088 characters\)
  335. sed "s/^X//" >'g2nntp' <<'END_OF_FILE'
  336. X#!/usr/local/bin/perl
  337. X
  338. X#----------------------------------------------------------------------
  339. X# variables you might have to change:
  340. X
  341. X$nntp_server = "leland.stanford.edu";
  342. X$nntp_port   = 119;
  343. X$nntp_groups = "/usr/local/etc/newsgroups.gopher"; # could be active file
  344. X$nntp_reverse = 0;  # to list articles in reverse order
  345. X
  346. X#----------------------------------------------------------------------
  347. X
  348. X@nntp_acl=(
  349. X#     ipaddress  group    access + = allow, - = deny    
  350. X     '^36\.      .*       +',
  351. X     '.*         ^clari   -',
  352. X     '.*         .*       +'
  353. X  );
  354. X# end of variables
  355. X
  356. X# Commands this server responds to:
  357. X# 
  358. X# ""                         -> list top level groups
  359. X# ls $group                  -> list group's articles and sub-groups
  360. X# article $group $number     -> get 1 article
  361. X# sorry                      -> send sorry message
  362. X#
  363. X
  364. Xsub nntp_main {
  365. X  local($_) = @_;
  366. X
  367. X  &do_ls("") if /^$/;
  368. X  &do_ls($1) if /^ls\s+(.*)/i;
  369. X  &do_article($1,$2) if /^article\s+(\S+)\s+(\d+)/i;
  370. X  &Gsorry if /^sorry$/;
  371. X  &Gabort("Unknown command!");
  372. X  exit;
  373. X}
  374. X
  375. Xsub do_article {
  376. X  local($group,$number) = @_;
  377. X
  378. X  if (&check_access($group) eq '-')  { &Gsorry; }
  379. X  &open_nntp;
  380. X
  381. X  &Gsend("GROUP $group");
  382. X  $_ = &Grecv;
  383. X  &Gabort($_) if !/^211/;
  384. X
  385. X  &Gsend("ARTICLE $number");
  386. X  $_ = &Grecv;
  387. X  &Gabort($_) if !/^220/;
  388. X 
  389. X  while(<GSERVER>) {
  390. X    print;
  391. X    last if /^\.\r\n$/;
  392. X  }
  393. X
  394. X  &close_nntp;
  395. X  exit;
  396. X}
  397. X
  398. Xsub list_group {
  399. X  local($group) = @_;
  400. X
  401. X  &Gsend("GROUP $group");
  402. X  $_ = &Grecv;
  403. X  &Gabort($_) if !/^211/;
  404. X
  405. X  ($n,$f,$l) = /211\s+(\d+)\s+(\d+)\s+(\d+)/;
  406. X
  407. X  &Gsend("XHDR Subject $f-$l");
  408. X  $_ = &Grecv;
  409. X  &Gabort($_) if !/^221/;
  410. X 
  411. X  while(<GSERVER>) {
  412. X    chop; chop;
  413. X    last if /^\.$/;
  414. X    ($article,$subject) = /^(\d+)\s+(.*)/;
  415. X    $subject =~ s/\t/ /g; # just in case!
  416. X    if ($nntp_reverse) {
  417. X       push(@reply,"0$subject\t$Ggw article $group $article\t$Ghost\t$Gport");
  418. X    } else {
  419. X       &Greply("0$subject\t$Ggw article $group $article\t$Ghost\t$Gport");
  420. X    }
  421. X  }
  422. X
  423. X  if ($nntp_reverse) {
  424. X    for ($i=$#reply; $i!= -1; $i--) { &Greply($reply[$i]); } 
  425. X  }
  426. X
  427. X  &Greply(".");
  428. X  &close_nntp;
  429. X  exit;
  430. X}
  431. X
  432. Xsub do_ls {
  433. X  local($prefix) = @_;
  434. X
  435. X  if (&check_access($prefix) eq '-') {
  436. X      &Greply("0Sorry! No access off of campus!\t$Ggw sorry\t$Ghost\t$Gport");
  437. X      &Greply("."); 
  438. X      exit; 
  439. X  }
  440. X
  441. X  &open_nntp;
  442. X  &get_groups;
  443. X
  444. X  foreach ( sort @groups) {
  445. X    if ($_ eq $prefix) { $do_list_group = $_; }
  446. X    elsif (/^$prefix\.([^.]*)\.?/) {
  447. X      $leaf=$1;
  448. X      $save{"$prefix.$leaf"} = "1$leaf\t$Ggw ls $prefix.$leaf\t$Ghost\t$Gport";
  449. X    }
  450. X    elsif ($prefix eq '' && /([^.]*)/) {
  451. X         $save{"$1"} = "1$1\t$Ggw ls $1\t$Ghost\t$Gport";
  452. X    }
  453. X  }
  454. X
  455. X  foreach ( sort keys %save) { &Greply($save{$_}); }
  456. X  &list_group($do_list_group) if ($do_list_group);
  457. X
  458. X  &Greply(".");
  459. X  &close_nntp;
  460. X  exit;
  461. X}
  462. X
  463. Xsub open_nntp {
  464. X  local($_);
  465. X  &GopenServer($nntp_server,$nntp_port);
  466. X  $_ = &Grecv;
  467. X  &Gabort($_) if !/^2/;
  468. X}
  469. X
  470. Xsub close_nntp {
  471. X  &Gsend("QUIT");
  472. X  close(GSERVER);
  473. X}
  474. X
  475. Xsub get_groups {
  476. X if (open(GROUPS,$nntp_groups)) {
  477. X      while(<GROUPS>) {
  478. X          chop;
  479. X          ($grp) = /^(\S+)/;
  480. X          push(@groups,$grp);
  481. X      }
  482. X      close(GROUPS);
  483. X } else {                  # can't open file, get list from server!
  484. X  &load_groups;
  485. X }
  486. X}
  487. X
  488. Xsub load_groups {
  489. X
  490. X  &open_nntp;
  491. X  &Gsend("LIST");
  492. X  $_ = &Grecv;
  493. X  &Gabort($_) if !/^215/;
  494. X
  495. X  while(<GSERVER>) {
  496. X    chop; chop;
  497. X    last if /^\.$/;
  498. X    s/^(\S+).*/$1/;
  499. X    push(@groups,$_);
  500. X  }
  501. X
  502. X}
  503. X
  504. Xsub create_groups { 
  505. X  &load_groups;
  506. X  open(GROUPS,">$nntp_groups") || die "$nntp_groups: $!";
  507. X  foreach (@groups) { print GROUPS "$_\n"; }
  508. X  close GROUPS;
  509. X  &close_nntp;
  510. X  exit;
  511. X}
  512. X
  513. Xsub check_access {
  514. X   local($group)=@_;
  515. X
  516. X   return 1 if (-t STDIN);
  517. X   $sockaddr = 'S n a4 x8';
  518. X   $mysockaddr = getpeername(STDIN);
  519. X   ($ramily,$rport,$raddr) = unpack($sockaddr,$mysockaddr);
  520. X   ($a,$b,$c,$d) = unpack('C4',$raddr);
  521. X   $ipaddress = "$a.$b.$c.$d";
  522. X
  523. X   foreach (@nntp_acl) {
  524. X      ($ipacl,$groupacl,$access)=split;
  525. X      return $access if  ($ipaddress =~ /$ipacl/) && ($group =~ /$groupacl/);
  526. X   }
  527. X   return '-'; #default is to restrict access
  528. X}
  529. X
  530. X1; # for require
  531. END_OF_FILE
  532. if test 4088 -ne `wc -c <'g2nntp'`; then
  533.     echo shar: \"'g2nntp'\" unpacked with wrong size!
  534. fi
  535. chmod +x 'g2nntp'
  536. # end of 'g2nntp'
  537. fi
  538. if test -f 'g2nntp_groups' -a "${1}" != "-c" ; then 
  539.   echo shar: Will not clobber existing file \"'g2nntp_groups'\"
  540. else
  541. echo shar: Extracting \"'g2nntp_groups'\" \(428 characters\)
  542. sed "s/^X//" >'g2nntp_groups' <<'END_OF_FILE'
  543. X#!/usr/local/bin/perl
  544. X
  545. X#----------------------------------------------------------------------
  546. X# variables you might have to change
  547. X
  548. X$g2nntp = "/usr/local/etc/g2nntp";
  549. X$go4gw  = "/usr/local/etc/go4gw";
  550. X
  551. X#----------------------------------------------------------------------
  552. X
  553. X$GnotServer=1;  # so go4gw doesn't think its a server!
  554. X
  555. Xrequire "$go4gw";
  556. Xrequire "$g2nntp";
  557. X
  558. X#create the group file listed in g2nntp.
  559. X
  560. X&create_groups;
  561. END_OF_FILE
  562. if test 428 -ne `wc -c <'g2nntp_groups'`; then
  563.     echo shar: \"'g2nntp_groups'\" unpacked with wrong size!
  564. fi
  565. chmod +x 'g2nntp_groups'
  566. # end of 'g2nntp_groups'
  567. fi
  568. if test -f 'g2whois' -a "${1}" != "-c" ; then 
  569.   echo shar: Will not clobber existing file \"'g2whois'\"
  570. else
  571. echo shar: Extracting \"'g2whois'\" \(1424 characters\)
  572. sed "s/^X//" >'g2whois' <<'END_OF_FILE'
  573. X#!/usr/local/bin/perl
  574. X
  575. X#----------------------------------------------------------------------
  576. X# variables you should change:
  577. X
  578. X$whois_server = "stanford.edu";   
  579. X$whois_port   = 43;
  580. X
  581. X#----------------------------------------------------------------------
  582. X
  583. Xsub whois_main {
  584. X local($_) = @_;
  585. X
  586. X if (/^$/) {
  587. X    &Greply("0Whois Help\thelp\t$whois_server\t$whois_port");
  588. X    &Greply("7Query Whois\t$Ggw\t$Ghost\t$Gport");
  589. X    &Greply(".");
  590. X    exit(0);
  591. X }
  592. X
  593. X $query = $_;
  594. X &GopenServer($whois_server,$whois_port);
  595. X &Gsend($query);
  596. X
  597. X  while(<GSERVER>) {
  598. X        chop; chop;
  599. X        push(@lines,$_);
  600. X  }
  601. X
  602. X  &Greply("0Raw search results\t$query\t$whois_server\t$whois_port");
  603. X
  604. X  if ($lines[$#lines] eq '') {
  605. X        foreach (@lines) {
  606. X           if (/^\s+name:\s+(.*)/) {
  607. X               &Greply("0$1\t$query\t$whois_server\t$whois_port");
  608. X               &Greply(".");
  609. X               exit(0);
  610. X           }
  611. X        }
  612. X    } elsif ($lines[$#lines] eq 'NO MATCH') {
  613. X       &Greply("0No Match Was Found!\thelp\t$gopher_server\t$gopher_port");
  614. X    } elsif ($lines[$#lines] =~ /^\(returned/) {
  615. X       foreach (@lines) {
  616. X           if (/(.*)<(.*)>.*\s+(.*)$/) {
  617. X               $text=$1; $handle=$2; $rest = $3;
  618. X               $text =~ s/\s+$//;
  619. X               $rest =~ s/\s+/ /g;
  620. X               &Greply("0$text ($rest)\t!$handle\t$whois_server\t$whois_port");
  621. X           }
  622. X        }
  623. X    }
  624. X    &Greply(".");
  625. X    exit(0);
  626. X}
  627. X
  628. X
  629. X
  630. X
  631. X1; # for requireEND_OF_FILE
  632. if test 1424 -ne `wc -c <'g2whois'`; then
  633.     echo shar: \"'g2whois'\" unpacked with wrong size!
  634. fi
  635. chmod +x 'g2whois'
  636. # end of 'g2whois'
  637. fi
  638. if test -f 'g2webster' -a "${1}" != "-c" ; then 
  639.   echo shar: Will not clobber existing file \"'g2webster'\"
  640. else
  641. echo shar: Extracting \"'g2webster'\" \(2572 characters\)
  642. sed "s/^X//" >'g2webster' <<'END_OF_FILE'
  643. X#!/usr/local/bin/perl
  644. X
  645. X#----------------------------------------------------------------------
  646. X# variables you can change:
  647. X
  648. X#$webster_server  = "webster.lcs.mit.edu";
  649. X#$webster_port    = 103;
  650. X
  651. X$webster_server = "webster-server.stanford.edu";
  652. X$webster_port   = 765;
  653. X
  654. X@webster_acl=(
  655. X#     ipaddress  access + = allow, - = deny    
  656. X     '^36\.      +',
  657. X     '.*         -'
  658. X  );
  659. X
  660. X#----------------------------------------------------------------------
  661. X
  662. Xsub webster_main {
  663. X local($_ )= @_;
  664. X
  665. X &Gsorry if /^sorry$/;
  666. X
  667. X  if (&check_access() eq '-') {
  668. X      &Greply("0Sorry! No access off of campus!\t$Ggw sorry\t$Ghost\t$Gport");
  669. X      &Greply("."); 
  670. X      exit; 
  671. X  }
  672. X
  673. X if (/^$/) {
  674. X  &Greply("7Lookup word in dictionary\t$Ggw default SPELL\t$Ghost\t$Gport");
  675. X  &Greply("7Lookup word in dictionary (phonetic match)\t$Ggw default PSPELL\t$Ghost\t$Gport");
  676. X  &Greply("7Search text of entire dictionary\t$Ggw dictionary-full SPELL\t$Ghost\t$Gport");
  677. X  &Greply("7Show words that start with\t$Ggw default ENDINGS\t$Ghost\t$Gport");
  678. X  &Greply("7Thesaurus\t$Ggw thesaurus SPELL\t$Ghost\t$Gport");
  679. X  &Greply(".");
  680. X  exit(0);
  681. X }
  682. X
  683. X ($index,$cmd,$query) = /^(\S+)\s+(\S+)\s+(.+)$/;
  684. X
  685. X  &GopenServer($webster_server,$webster_port);
  686. X
  687. X  &Gsend("INDEX $index") if ($index ne 'default');
  688. X
  689. X  if ($cmd eq "PSPELL") {                     # phonetic lookup
  690. X       &Gsend("SPELL $query ?");
  691. X  } else {
  692. X       &Gsend("$cmd $query");
  693. X  }
  694. X
  695. X$_ = &Grecv;
  696. X
  697. X  if (/^SPELLING 0/ || /^WILD 0/) {
  698. X        &Greply(".");
  699. X   } elsif (/^SPELLING 1/) {
  700. X      &Greply("0$query\t$Ggw $index DEFINE $query\t$Ghost\t$Gport"); 
  701. X      &Greply(".");
  702. X   } elsif (/^SPELLING$/ || /^MATCHS$/ || /^WILD/) {
  703. X        $/ = "\200";
  704. X        $buf = <GSERVER>;
  705. X        $buf =~ s/[\r\200]//g;
  706. X        foreach (split(/\n/,$buf)) { /\d+\s+(\S+)/; $words{$1}=""; }
  707. X        foreach (sort keys %words) { 
  708. X               &Greply("0$_\t$Ggw $index DEFINE $_\t$Ghost\t$Gport"); 
  709. X        }
  710. X        &Greply(".");
  711. X   } elsif (/^DEFINITION/) {
  712. X        $/ = "\200";
  713. X        $buf = <GSERVER>;
  714. X        $buf =~ s/[\r\200]//g;
  715. X        print $buf;
  716. X   } else {
  717. X        &Greply(".");
  718. X   }
  719. X  &Gsend("QUIT");
  720. X  &GcloseServer;
  721. X  exit;
  722. X}
  723. X
  724. Xsub check_access {
  725. X
  726. X   return 1 if (-t STDIN);
  727. X   $sockaddr = 'S n a4 x8';
  728. X   $mysockaddr = getpeername(STDIN);
  729. X   ($ramily,$rport,$raddr) = unpack($sockaddr,$mysockaddr);
  730. X   ($a,$b,$c,$d) = unpack('C4',$raddr);
  731. X   $ipaddress = "$a.$b.$c.$d";
  732. X
  733. X   foreach (@webster_acl) {
  734. X      ($ipacl,$access)=split;
  735. X      return $access if  ($ipaddress =~ /$ipacl/);
  736. X   }
  737. X   return '-'; #default is to restrict access
  738. X}
  739. X
  740. X1; # for requireEND_OF_FILE
  741. if test 2572 -ne `wc -c <'g2webster'`; then
  742.     echo shar: \"'g2webster'\" unpacked with wrong size!
  743. fi
  744. chmod +x 'g2webster'
  745. # end of 'g2webster'
  746. fi
  747. echo shar: End of shell archive.
  748. exit 0
  749. -- 
  750. Roland J. Schemers III              |            Networking Systems
  751. Systems Programmer                  |            168 Pine Hall   (415)-723-6740
  752. Distributed Computing Group         |            Stanford, CA 94305-4122
  753. Stanford University                 |            schemers@Slapshot.Stanford.EDU
  754.