Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!spool.mu.edu!agate!csam.lbl.gov!csam!clarsen From: clarsen@lbl.gov (Case Larsen) Newsgroups: alt.sources Subject: Perl script to automate switching between NNTP servers Message-ID: Date: 11 Jun 91 16:30:08 GMT Sender: usenet@csam.lbl.gov Distribution: alt Organization: Coalition for Properly Tail Recursive Languages Lines: 21 Nntp-Posting-Host: intruder.lbl.gov This Perl script (as the subject line says) allows a user to switch between NNTP servers and keep unread articles unread, read articles read. You will want to create a file socket.pl from the header file . Just do: h2ph < /usr/include/sys/socket.h > socket.pl You probably want to customize the $libdir variable (where the message-ID caches for the newsgroups are placed). If you are only going to run this program once, you can remove the dbmopen and dbmclose commands to 'turn off' caching. -- -- Case Larsen clarsen@lbl.gov uunet!ucbvax!lbl-csam!clarsen Voice: (415) 486-5601 Fax: 486-5548 Lawrence Berkeley Laboratory, One Cyclotron Road -- MS 50F, Berkeley CA 94720