+if ($val =~ /^(\d+)[sS]$/) {
+ $val = $1;
+} elsif ($val =~ /^(\d+)[mM]$/) {
+ $val = $1 * 60;
+} elsif ($val =~ /^(\d+)[hH]$/) {
+ $val = $1 * 60 * 60;
+} elsif ($val =~ /^\d+$/) {
+ $val *= 60 if $val < 30;
+} else {
+ return (1, $self->msg('e14'));
+}