+
+sub normalise_call
+{
+ my ($c, $ssid) = $_[0] =~ m|^((?:[\w\d]+/)?[\d\w]+(?:/[\w\d]+)*)(?:-(\d+))?(?:-\#)?$|;
+ my $ncall = $c;
+ $ssid += 0;
+ $ncall .= "-$ssid" if $ssid;
+ return $ncall;
+}
+
+sub is_numeric
+{
+ return $_[0] =~ /^[\.\d]+$/;
+}