/usr/share/kannel/contrib/webalizer/converte.pl is in kannel-extras 1.4.3-2fakesync2build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | #!/usr/bin/perl
$exchange = shift;
$exchange = "" if $exchange =~ /-/;
$|=1;
@months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
%results = ( "Sent" => "200", "Receive" => "200", "FAILED Send" => 403, "DISCARDED" => "404");
while ($line = <STDIN>) {
chop($line);
# Lines to ignore
# ---------------
next if $line =~ /Log begins/;
next if $line =~ /Log ends/;
$line =~ /^([0-9]{4})-([0-9]{2})-([0-9]{2}) ([0-9]{2}):([0-9]{2}):([0-9]{2}) (.+?) SMS \[SMSC:(.*?)\] \[SVC:(.*?)\] \[from:(.*?)\] \[to:(.*?)\] \[flags:(.):(.):(.):(.):(.)\] \[msg:([0-9]+):(.*?)\] \[udh:([0-9]+):(.*?)\]$/i;
($year, $month, $day, $hour, $minute, $second, $result, $smsc, $svc, $from, $to, $f1, $f2, $f3, $f4, $f5, $msglen, $msg, $udhlen, $udh) = ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13, $14, $15, $16, $17, $18, $19, $20);
$msg =~ s/[^a-zA-Z0-9]//g;
$msg = substr($msg, 0, 60);
$msg =~ tr/a-z/A-Z/;
if($exchange ne "") {
$to = $from;
}
$to .= ".pt" if $to =~ /^91/;
$to .= ".fr" if $to =~ /^93/;
$to .= ".es" if $to =~ /^96/;
$to .= ".uk" if $to =~ /^95/;
$string = $to;
$string .= " - - [". $day;
$string .= "/". $months[$month-1];
$string .= "/". $year;
$string .= ":". $hour;
$string .= ":". $minute;
$string .= ":". $second;
$string .= " +0100] ". '"GET /'. $msg;
$string .= ' HTTP/1.0" '. $results{$result};
$string .= " ". ($msglen+$udhlen);
$string .= ' "'. $f1. ",". $f2. ",". $f3. ",". $f4. ",". $f5 . '" -'."\n";
print $string;
}
|