#!/usr/bin/perl

# $Header: /var/news/src/misc/RCS/update_newsgroups,v 1.1 1994/10/02 17:20:27 jem Exp toor $
# Reads the newsgroups file from a news server, and runs it through a
# simple parser to remove multiple spaces and <TAB> characters.
# -jem 94.10.01

$nntpserver = "newsfeed.kreonet.re.kr";

#### =()<require '@<_PATH_PERL_SHELLVARS>@';>()=
require '/var/news/etc/innshellvars.pl';

$newsbin = $inn::newsbin;
$newsgroups = $inn::newsgroups;

$listcommand = "$newsbin/getlist -h $nntpserver newsgroups";
$oldfile = "$newsgroups.old";
$newfile = "$newsgroups.new";

open(NGROUPS, "> $newfile");
open(NFILE, "$listcommand |");

while (<NFILE>) {
	($group, $desc) = /^(\S+)\s+(.*)$/;
	print NGROUPS "$group\t$desc\n";
}

rename($newsgroups, $oldfile);
rename($newfile, $newsgroups);
chown((getpwnam("news"))[2,3], $newsgroups);
chmod 0644, $newsgroups;
exit $?;
