From b85e7700a54571976d61b365797f675e3fbf2e2d Mon Sep 17 00:00:00 2001
From: Peter Marquardt <wwwutz@molgen.mpg.de>
Date: Fri, 23 Apr 2021 09:45:19 +0200
Subject: [PATCH] fon.pl: cleanup output

- wipe
---
 fon/fon.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fon/fon.pl b/fon/fon.pl
index 8f5d66a..c7c1185 100755
--- a/fon/fon.pl
+++ b/fon/fon.pl
@@ -75,17 +75,18 @@ sub push_entry {
     push @{ $O{name} }, $t;
     $l > ( $M{name} || 0 ) and $M{name} = $l;
 
-    $t = join( '/', @{ $e->{roomNumber} } );
+
+    $t = join( '/', map {s/\(.*?\)|Betriebsarztraum|\s+//g;$_} @{ $e->{roomNumber} } );
     $l = len($t);
     push @{ $O{room} }, $t;
     $l > ( $M{room} || 0 ) and $M{room} = $l;
 
-    $t = join( '/', @{ $e->{telephoneNumber} } );
+    $t = join( '/', map {s/\(.*?\)|\s+//g;s/\+49/0/;$_} @{ $e->{telephoneNumber} } );
     $l = len($t);
     push @{ $O{fone} }, $t;
     $l > ( $M{fone} || 0 ) and $M{fone} = $l;
 
-    $t = join( ', ', @{ $e->{mail} } );
+    $t = join( ', ', map {s/molgen\.mpg\.de//g;$_} @{ $e->{mail} } );
     $l = len($t);
     push @{ $O{mail} }, $t;
     $l > ( $M{mail} || 0 ) and $M{mail} = $l;