licznikppp

[Witold Filipczyk]

Napisałem fajny programik, ale nie wiem jak zrobić dla niego .speca.
Program wygląda tak:

#!/usr/bin/perl
$sec=0;
$licz=0;
$first=TRUE;
open LOG, "cat /var/log/ppp.log | grep $ARGV[0] |";  
while ($linia=<LOG>) {
    $linia =~ /(..):(..):(..)/;
    $sek = 3600 * $1 + 60 * $2 + $3;
    if ($first) {
	$sec1 = $sek;
    }
    else {
	$roz = $sek - $sec1;
	if ($roz < 0) {
	    $roz += 24 * 3600;
	}
	$sec += $roz;
	$licz++;
    }
    $first = not $first;
}
close LOG;
$godz = $sec / 3600;
$sekundy = $sec % 60;
$min = ($sec % 3600)/60;
printf "Połączeń=%d Łączny czas=%d:%.2d:%.2d\n",$licz, $godz, $min, $sekundy;

Może można go gdzieś upchnąć.
Jakie makro albo inny sposób jest na to żeby w %prep wrzucić plik jako Source0,
który nie jest ani .tar.gz ani .zip. Jest po prostu zwykłym plikiem.

WF