Changeset 1091

Timestamp:

07/08/08 19:57:32 (5 years ago)

Author:

max

Message:

util/missing.pl: Better parsing

Files:

• trunk/util/missing.pl (modified) (2 diffs)

trunk/util/missing.pl

@@ -19 +19 @@
             foreach my $gap (split (/,/, $bit))
             {
-                if ($gap =~ /(\d+)-(\d+)/)
+                if ($gap =~ /(\d+)-(\d+)(.*)/)
                 {
                     printf "- %s - %s (%d mins)\n",
                            localtime($1).'', localtime($2).'',
                            int((($2 - $1)/60)+0.1);
+                    print "Channel: $3\n" if ($3);
                 }
                 else
@@ -33 +34 @@
         else
         {
-            $ch = $bit;
-            print "Channel: $ch\n";
+            print "Channel: $bit\n";
         }
     }