fon.pl: cleanup output

- wipe
mariux64 · Apr 23, 2021 · b85e770 · b85e770
1 parent ca295db
commit b85e770
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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;