Split grml-scripts into grml-scripts and grml-scripts-core

[grml-scripts-core.git] / usr_bin / mailhops

diff --git a/usr_bin/mailhops b/usr_bin/mailhops
deleted file mode 100755 (executable)
index dede6ea..0000000
--- a/usr_bin/mailhops
+++ /dev/null
@@ -1,96 +0,0 @@
-#!/usr/bin/perl -w
-# Copyright (c) 1999 Marius Gedminas <mgedmin@takas.lt>
-# Shows the route of an Internet mail message
-# Version 0.0.1pre-alpha
-#
-# Patched by Roland Rosenfeld <roland@spinnaker.de>
-# $ Id: mailhops,v 1.3 2000/01/25 20:18:24 roland Exp roland $
-
-use strict;
-use POSIX qw(mktime);
-use Date::Parse;
-
-my $verbose = 0;
-
-# Setup
-my %Months = (
-    Jan => 1,
-    Feb => 2,
-    Mar => 3,
-    Apr => 4,
-    May => 5,
-    Jun => 6,
-    Jul => 7,
-    Aug => 8,
-    Sep => 9,
-    Oct => 10,
-    Nov => 11,
-    Dec => 12,
-    );
-
-# Read headers
-$/ = '';
-my $head = <>;
-$head =~ s/\n\s+/ /g;
-my @headers = split("\n", $head);
-
-# Parse headers
-my @hops;
-for (@headers) {
-  next unless /^(>?Received|Date):/;
-  my $time;
-  my $host;
-  my $from;
-  if (/^Date:\s+(.*)/) {
-    $host = "Date:";
-    $time = $1;
-    $from = "";
-  } else {
-    $host = "(unknown)";
-    $host = $1 if /\sby\s+([a-z0-9\-_+.]+)\s/ && $1 ne "uid";
-    $from = "(unknown)";
-    $from = $1 if /\sfrom\s+([a-z0-9\-_+.]+(?:\s+[(].+?[)]))\s/;
-    $time = "(unknown)";
-    $time = $1 if /;\s+(.+)$/;
-    $time =~ s/using.*//;
-  }
-
-  my $epoch = str2time ($time);
-
-  unshift @hops, { HOST => $host, FROM => $from, TIME => $epoch};
-}
-
-# Print output
-print "    Host                            Date received (local)   Lag       Total lag\n";
-my $nr = 0;
-my ($first, $prev);
-for (@hops) {
-  my $host = $_->{HOST};
-  my $from = $_->{FROM};
-  my $time = $_->{TIME};
-  $first = $prev = $time unless defined $first;
-  printf "%2d. %-31.31s", ++$nr, $host;
-  do { print "\n"; next } unless defined $time;
-
-  my $delta = $time - $prev;
-  my $neg = $delta < 0; $delta = abs($delta);
-  my $delta_h = int($delta / 3600);
-  my $delta_m = int(($delta - $delta_h * 3600) / 60);
-  my $delta_s = ($delta - $delta_h * 3600 - $delta_m * 60);
-
-  my ($sec,$min,$hour,$day,$mon,$year,undef,undef,$dst) = localtime($time);
-
-  printf "  %4d-%02d-%02d  %02d:%02d:%02d  %s%02d:%02d:%02d",
-         1900+$year, $mon+1, $day, $hour, $min, $sec,
-        $neg ? '-' : ' ', $delta_h, $delta_m, $delta_s;
-
-  $delta = $time - $first;
-  $neg = $delta < 0; $delta = abs($delta);
-  $delta_h = int($delta / 3600);
-  $delta_m = int(($delta - $delta_h * 3600) / 60);
-  $delta_s = ($delta - $delta_h * 3600 - $delta_m * 60);
-  printf "  %s%02d:%02d:%02d\n",
-        $neg ? '-' : ' ', $delta_h, $delta_m, $delta_s;
-  print  "     from $from\n" if $verbose;
-  $prev = $time;
-}