+#
+
+my $counter;
+
+sub init
+{
+ $counter = 0;
+}
+
+sub handle
+{
+ my $self = shift;
+ my $line = uc shift; # only one callsign allowed
+ my ($call) = $line =~ /^\s*(\S+)/;
+
+# $DB::single = 1;
+
+ if ($self->{priv} < 1) {
+ if ($call) {
+ return (1, "PONG $call");
+ }
+ ++$counter, return (1, "PONG $counter")
+ }