From: thiery <thiery@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Thu, 2 Dec 2010 14:14:45 +0000 (+0000)
Subject: This script is not useful in SVN
X-Git-Tag: v3.6_beta2~1019
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/b8254f3cc769f86878d1cd2c1c9b4aa8adc7dff1

This script is not useful in SVN

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@8893 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/teshupdate.pl b/teshupdate.pl
deleted file mode 100755
index d845792d89..0000000000
--- a/teshupdate.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#! /usr/bin/perl
-
-# This script is only there temporarly for the time that we convert all the tesh files into the new log formating allowing to sort the output
-# Ouf, cette phrase est trop longue et illisible, desole (mt)
-
-use strict;
-
-while (<>) {
-    if (/\$ (.*)$/) {
-	print "! output sort\n";
-	print "\$ $1 ".'--log=root.fmt:[%10.6r]%e(%i:%P@%h)%e%m%n'."\n";
-    } elsif (/\> \[([^:]*):([^:]*):([^(]*)\(([0-9]*)\) ([0-9.]*)\] \[([^\]]*)\] (.*)/) { # ) {
-      my ($host,$proc,$thread,$pid,$time,$msg) = ($1,$2,$3,$4,$5,$7);
-#      print "h=$host,p=$proc,pid=$pid,t=$time; $_";
-      $time = sprintf "%10.6f",$time;
-      print "> [$time] ($pid:$proc\@$host) $msg\n";
-    } elsif (/\> \[([0-9.]*)\] \[([^\]]*)\] (.*)/) {
-      my ($time,$msg) = ($1,$3);
-      $time = sprintf "%10.6f",$time;
-      print "> [$time] (0:@) $msg\n";
-    } else {
-	print $_;
-    }
-}