#!/usr/bin/perl # # File : ./ # Author: Bernd Burre und Andreas Peters # Date : 14.10.1997 # Last : 19.08.2002 # Subj. : modifziert Dateien in /etc/news # und /usr/lib/news/bin ############################################################################## ($sek, $min, $std, $mtag, $mon, $jahr, $wtag, $jtag, $isdst) = localtime(time); $mon=$mon +1; $datum="$mtag.$mon.$jahr.$std.$min"; $SERVERNAME=`hostname -f`; $SERVERNAME=~ s/\n//; $SERVIP=gethostbyname($SERVERNAME); ($IP1,$IP2,$IP3,$IP4)=unpack('C4',$SERVIP); $SERVERNAME =~ m/^([^\.]+)\.(.*$)/; $NETIP="$IP1.$IP2.$IP3"; $SERVERIP="$NETIP.$IP4"; $SERVER=$1; $DOMAIN=$2; $NETIP="$IP1.$IP2.$IP3"; # Newskonfiguration open (FILE,"/usr/lib/news/bin/news.daily"); @news=; close(FILE); open (FILE,"> /usr/lib/news/bin/news.daily.$datum"); $zeilen=@news; for ($i=0;$i<$zeilen;$i++) { print FILE "$news[$i]"; } close (FILE); open (FILE,"> /usr/lib/news/bin/news.daily"); foreach $zeile (@news) { $_=$zeile; s/^DOEXPIREOVER=false/DOEXPIREOVER=true/; s/^EXPIREOVERFLAGS=$/EXPIREOVERFLAGS=-"s"/; print FILE; }; close (FILE); open FILE,"/etc/news/inn.conf"; @news=; close (FILE); open FILE, "> /etc/news/inn.conf.$datum"; foreach $el (@news) { $_=$el; print FILE; } close (FILE); open FILE,"> /etc/news/inn.conf"; foreach $el (@news) { $_=$el; s/.*organization:.*/organization: Schule/; s/.*server:.*/server: news.$DOMAIN/; s/.*domain:.*/domain: $DOMAIN/; s/.*fromhost:.*/fromhost: $DOMAIN/; print FILE; }; close (FILE); open FILE,"/etc/news/nnrp.access"; @news=; close FILE; open FILE, "> /etc/news/nnrp.access.$datum"; foreach $el (@news) { $_=$el; print FILE; } close (FILE); open FILE, "> /etc/news/nnrp.access"; foreach $el (@news) { $_=$el; s/^([^#].*)$/\1,!junk,!control/; s/^#\*:(.*)/*:$1,!junk,!control/; s/^\*::/#*::/; print FILE; } close (FILE); open FILE,"/etc/news/newsfeeds"; @news=; close FILE; open FILE, "> /etc/news/newsfeeds.$datum"; foreach $el (@news) { $_=$el; print FILE; } close (FILE); open FILE, "> /etc/news/newsfeeds"; foreach $el (@news) { $_=$el; s/ME.*$/ME:!*::/; print FILE; } print FILE "shuttle/news1.shuttle.de\\\n"; print FILE ":schule.*\\\n"; print FILE ":Tf,Wnb:\n"; close (FILE); ### EOF ###