From 0017002e2dc438d49fcc090dc99b6d22f7037aa7 Mon Sep 17 00:00:00 2001
From: djk <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.34.1