index a85027176c426dfd0f4e59c8fb109953d7237d42..4723af964e9ecf7f6ae5a965b00855748a8adcfc 100755 (executable)
return;
}
-sub contains_invalid_chars
-{
- my $str = shift;
-
- for (split (m//, $str))
- {
- my $n = ord ($_);
-
- # Whitespace is allowed.
- if (($n >= 9) && ($n <= 13))
- {
- next;
- }
- elsif ($n < 32)
- {
- return (1);
- }
- }
-
- return;
-}
-
sub show_selector
{
my $timespan_selection = get_timespan_selection ();