From 0017002e2dc438d49fcc090dc99b6d22f7037aa7 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 16 Jun 1998 10:57:31 +0000 Subject: [PATCH] added Ids and changed the name of DXConnect to DXChannel --- perl/{DXConnect.pm => DXChannel.pm} | 9 ++++++--- perl/DXUser.pm | 4 ++++ perl/DXUtil.pm | 4 ++++ perl/DXVars.pm | 4 ++++ perl/Msg.pm | 3 +++ perl/client.pl | 1 + perl/cluster.pl | 7 ++++--- perl/persistent.pl | 9 +++++++++ 8 files changed, 35 insertions(+), 6 deletions(-) rename perl/{DXConnect.pm => DXChannel.pm} (90%) diff --git a/perl/DXConnect.pm b/perl/DXChannel.pm similarity index 90% rename from perl/DXConnect.pm rename to perl/DXChannel.pm index 0d48676f..d4b20a2b 100644 --- a/perl/DXConnect.pm +++ b/perl/DXChannel.pm @@ -1,8 +1,11 @@ # -# module to manage connection lists & data +# module to manage channel lists & data # - -package DXConnect; +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# +package DXChannel; require Exporter; @ISA = qw(Exporter); diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 6f7756ff..ac06615d 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -1,6 +1,10 @@ # # DX cluster user routines # +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# package DXUser; diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index d7ddcf62..638a2bce 100644 --- a/perl/DXUtil.pm +++ b/perl/DXUtil.pm @@ -1,6 +1,10 @@ # # various utilities which are exported globally # +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# package DXUtil; diff --git a/perl/DXVars.pm b/perl/DXVars.pm index df781429..23367a14 100644 --- a/perl/DXVars.pm +++ b/perl/DXVars.pm @@ -2,6 +2,10 @@ # The system variables - those indicated will need to be changed to suit your # circumstances (and callsign) # +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# package main; diff --git a/perl/Msg.pm b/perl/Msg.pm index 7114eba8..20e00033 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -5,6 +5,9 @@ # # I have modified it to suit my devious purposes (Dirk Koopman G1TLH) # +# $Id$ +# + package Msg; require Exporter; diff --git a/perl/client.pl b/perl/client.pl index c508d942..0cdbe9c2 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -9,6 +9,7 @@ # # Copyright (c) 1998 Dirk Koopman G1TLH # +# $Id$ # use Msg; diff --git a/perl/cluster.pl b/perl/cluster.pl index c324930f..6fded241 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -9,12 +9,13 @@ # # Copyright (c) 1998 Dirk Koopman G1TLH # +# $Id$ # use Msg; use DXVars; use DXUtil; -use DXConnect; +use DXChannel; use DXUser; package main; @@ -55,7 +56,7 @@ sub disconnect sub rec { my ($conn, $msg, $err) = @_; - my $dxconn = DXConnect->get_by_cnum($conn); # get the dxconnnect object for this message + my $dxconn = DXChannel->get_by_cnum($conn); # get the dxconnnect object for this message if (defined $err && $err) { disconnect($dxconn); @@ -78,7 +79,7 @@ sub login sub cease { my $dxconn; - foreach $dxconn (DXConnect->get_all()) { + foreach $dxconn (DXChannel->get_all()) { disconnect($dxconn); } } diff --git a/perl/persistent.pl b/perl/persistent.pl index 39e993b5..23b302eb 100644 --- a/perl/persistent.pl +++ b/perl/persistent.pl @@ -1,3 +1,12 @@ +# +# This allows perl programs to call functions dynamically +# +# This has been nicked directly from the perlembed pages +# so has the perl copyright +# +# $Id$ +# + package Embed::Persistent; #persistent.pl -- 2.43.0