]> scm.dxcluster.org Git - spider.git/blob - perl/DXConnect.pm
more pc41 hardening
[spider.git] / perl / DXConnect.pm
1 #
2 # module to manage outgoing connections and things
3 #
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
5 #
6 # $Id$
7 #
8
9 package DXConnect;
10
11 @ISA = qw(DXChannel);
12
13 use DXUtil;
14 use DXM;
15 use DXDebug;
16
17 use strict;
18
19 use vars qw($VERSION $BRANCH);
20 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
21 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
22 $main::build += $VERSION;
23 $main::branch += $BRANCH;
24
25 sub init
26 {
27
28 }
29
30 sub process
31 {
32
33 }
34
35 1;
36 __END__
37