🚀 go-pugleaf

In <533kbi$lk0$1@sazza.ruhr.de> frank@sazza.ruhr.de (Frank Wagner) writes:

>In backbone.general Wolfgang Schelongowski <skaranyi@localhost.ruhr.de> wrote:

>Mir kam es nicht so vor als wuerde ich keinen Flame schreiben. 

Ah ja. Alles klar. Aber ich h�tte Deinen Artikel nur in einer dazu 
passenden Gruppe beantwortet.

>Frank



>-- 


>Frank Wagner                                          frank@sazza.ruhr.de
>                               wagner01@marvin.informatik.uni-dortmund.de
>#! rnews 3040
>Path: sazza.ruhr.de!not-for-mail
>From: frank@sazza.ruhr.de (Frank Wagner)
>Newsgroups: backbone.general
>Subject: Re: Projekt UUCP fuer win95/NT4

Deine Artikel sehen in letzter Zeit �fter etwas komisch aus: Manchmal
fehlen Zeilen, und in dem zitierten Artikel sind einige zuviel dran.
Mit dem angeh�ngten Skript kann man testen, ob ein oder mehrere
komprimierte News-Batches korrekt sind. Es ist nur unter Perl 4.036
getestet.

Das Skript ist ein memory/cpu-hog. Deshalb sollte man nur dann f�r 
gr��ere Batches verwenden, wenn man die Bedeutung des Ausdruckes 
'thrashing' kennenlernen m�chte. F�r normale outgoing Batches einer 
Leaf-Site (das sind fast alle von ruhr.de) ist es unkritisch.

Gib das Skript demjenigen, der Deinen INN installiert hat. Er hat
doch hoffentlich _die_Postkarte_ abgeschickt?

#!/bin/sh
#
# decompress rnews-/etc.-batches test them for correctness

(for i
 do
   sed 1d ${i} | zcat
 done
) | /usr/bin/perl -e '

undef($/);
$in = <>;                       # must read all of the batch


while (length($in) > 0){        # `for all articles
    ($_, $in) = split(/\n/, $in, 2);
    $lines++;
    if (! m/^#!\s*rnews\s+(\d+)/) {
	$nskipped++;
	if (!$told){
	    $told = 1;
	    print "no rnews line in line $lines, skipping";
        };
    }else{                      # found `#! rnews
	if ($told){
	    $told = 0;
	    print " to line $lines\n";
	};
        $lng    = $1;
        $art    = substr($in, 0, $lng);
        $l      = scalar(split(/\n/, $art));
	$le     = $lines + $l;
        substr($in, 0, $lng) = "";
	$nart++;
	printf "Artikel %5d length %6d (line %5d to %5d).\n", 
		$nart, $lng, $lines, $le;
	$lart   = length($art);
	if ($lart != $lng){
		printf "Artikel %5d too short, actual length was %6d.\n",
                $nart, $lart;
        };
	$lines += $l;
    };
};
if ($told){
    $told = 0;
    print " to the end at line $lines\n";
};
'
-- 
Wolfgang Schelongowski  Check _all_ headers for sending email.

"Don't try the paranormal until you know what's normal."
  -- Terry Pratchett, Lords and Ladies