regex to parse it:
$delay =~ m/[+-]d(?:ela?y?)?[-+]([^\@]+)/;
- $delay = $1; $delay =~ s/_/ /;
+ $delay = $1;
+ $delay =~ s/_/ /;
+ $delay =~ s/=/:/;
-Thus, foo-delay-now+5_min@bar.baz becomes now+5 min
+Thus, foo-delay-now+5_min@bar.baz becomes now+5 min and
+foo-del+00=30=00@bar.baz becomes 00:30:00
=item B<--list>
$delay =~ s/\n//g;
if ($options{email}) {
$delay =~ m/[+-]d(?:ela?y?)?[-+]([^\@]+)/;
- $delay = $1; $delay =~ s/_/ /;
+ $delay = $1;
+ $delay =~ s/_/ /;
+ $delay =~ s/=/:/;
}
# slurp email
local $/;