11Jul07=======================================================================
1. improve speed of sh/c/n
+2. remove all $Id$ strings from cmd tree
09Jul07=======================================================================
1. remove check for PC93 from legacy nodes. This will allow PC10s to be
propagated correctly. Probably.
# if the command ends in a - then that line isn't printed, but any
# subsequent lines are
#
-# $Id$
+#
#
# Comment lines are indented before printing
#
# if the command ends in a - then that line isn't printed, but any
# subsequent lines are
#
-# $Id$
+#
#
# Comment lines are indented before printing
#
# if the command ends in a - then that line isn't printed, but any
# subsequent lines are
#
-# $Id$
+#
#
# Comment lines are indented before printing
#
# Si la commande se termine par un "-", cette ligne n'est pas imprimée
# mais les suivantes le sont.
#
-# $Id$
+#
#
# Les lignes de commentaires sont indentées avant l'affichage.
#
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# restart an agw connection
#
-# $Id$
+#
#
my $self = shift;
return (1, $self->msg('e5')) if $self->priv < 5;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
# Modified 13Dec98 Iain Phillips G0RDI
#
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# the bye command
#
-# $Id$
+#
#
my $self = shift;
# in other words mark all messages as being already received
# by this node.
#
-# $Id$
+#
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2002 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# the export the user file to ascii command
#
-# $Id$
+#
#
my $self = shift;
return (1, $self->msg('e5')) unless $self->priv >= 9;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @calls = split /\s+/, $line;
#
# Copyright (c) 2003 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
use strict;
#
# Copyright (c) 2003 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
# and subsequently plagerized by K1XX.
#
# 16-Jun-2000
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#$DB::single = 1;
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @out;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @calls = split /\s+/, $line;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# set AGW engine monitoring
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::baddx->set(8, $self->msg('e6'), $self, $line);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::badnode->set(8, $self->msg('e12'), $self, $line);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $BadWords::badword->set(8, $self->msg('e6'), $self, $line);
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->beep(1);
#
# Copyright (c) 2004 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# add a debug level
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->send_now("E", "1");
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (0, $self->msg('e5')) if $self->priv < 8;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Iain Phillips G0RDI
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @args = split /\s+/, $line;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->user->wantlogininfo(1);
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $l = shift;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @args = split /\s+/, $line;
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @args = split /\s+/, $line;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2005 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (1, $self->msg('e5')) if $self->priv < 9;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2007 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# from an idea by Leo,IZ5FSA and 425DxNews Group
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @list = map {uc} split /\s+/, $line; # generate a list of callsigns
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::baddx->show(1, $self);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::badnode->show(1, $self);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::badspotter->show(1, $self);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $BadWords::badword->show(1, $self);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
#$DB::single = 1;
#
# Copyright (c) 2006 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self) = @_;
#
# Copyright (c) 1998-2003 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
# Tommy Johansson (SM3OSM) 2002-07-23
# New version using Net::Telnet 2003-03-09
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Shamelessly cribbed from time.pl:-
#
-# $Id$
+#
#
# Modified Dec 9, 2004 for new website and xml schema by David Spoelstra N9KT
# and tidied up by me (Dirk)
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# show the debug status
#
-# $Id$
+#
#
use DXDebug;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
my $line = shift;
#
# show dx (normal)
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2003 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# by Tommy SM3OSM
#
-# $Id$
+#
#
use Time::Local;
#
# show the heading and distance for each callsign or prefix entered
#
-# $Id$
+#
#
# AK1A-compatible output Iain Philipps, G0RDI 16-Dec-1998
#
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
# Modified on 2002/10/29 by K1XX for his own use
# Valid inputs:
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
# Modified on 2002/10/27 by K1XX for his own use
# Valid inputs (and then tarted up by G1TLH to include in the
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @f = split /\s+/, $line;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (0, $self->msg('e5')) if $self->priv < 5;
#
# as fixed by Steve Franke K9AN
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# show the prefix info for each callsign or prefix entered
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
return (1, $self->msg('e5')) if $self->priv < 5;
#
# you can enter two qra locators and it will calc the distance between them
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @list = split /\s+/, $line; # generate a list of callsigns
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# copyright (c) 1999 Steve Franke K9AN
#
-# $Id$
+#
#
# 2001/12/16 added age of keps in the sh/sat output list.
# Note - there is the potential for problems when satellite name
#
# Copyright (c) 2005 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# show the usdb info for each callsign or prefix entered
#
-# $Id$
+#
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my @out;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2002 Charlie Carroll K1XX
#
-# $Id$
+#
#
# wm7d accepts only single callsign
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2002 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# the shutdown command
#
-# $Id$
+#
#
my $self = shift;
my $call = $self->call;
#
# show the channel status
#
-# $Id$
+#
#
use strict;
#
# show all the values in a db fcb
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# show all the values on a message header
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2003 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# show either the current user or a nominated set
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $inline) = @_;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
# in other words mark all messages as being already received
# by this node.
#
-# $Id$
+#
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
#
# unset AGW engine monitoring
#
-# $Id$
+#
#
my $self = shift;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::baddx->unset(8, $self->msg('e6'), $self, $line);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $DXProt::badnode->unset(8, $self->msg('e12'), $self, $line);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return $BadWords::badword->unset(8, $self->msg('e6'), $self, $line);
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->user->wantbeep(0);
#
# Copyright (c) 2004 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->send_now("E", "0");
#
# Copyright (c) 2001 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (0, $self->msg('e5')) if $self->priv < 8;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2006 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 Iain Phillips G0RDI
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @args = split /\s+/, $line;
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my $self = shift;
$self->user->wantlogininfo(0);
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
$self->priv(0);
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my @args = split /\s+/, $line;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2005 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2003 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2000 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2002 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2007 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 1999 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my $call = $self->call;
#\r
# Copyright (c) 1999 Dirk Koopman G1TLH\r
#\r
-# $Id$\r
+#\r
\r
\r
my $self = shift;\r
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my $call = $self->call;
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
#
# This produces the Gtk for all the little sub-screens
#
-# $Id$
+#
#
# Copyright (c) 2006 Dirk Koopman G1TLH
#
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
-# $Id$
+#
#
package Text;
#
# Copyright (c) 2006-2007 Dirk Koopman G1TLH
#
-# $Id$
+#
#
use strict;
#
# Standard RC file for gtkconsole
#
-# $Id$
+#
#
style "std_gtkconsole" {
$version = '1.54';
$subversion = '0';
-$build = '113';
+$build = '114';
1;