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