X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FProt.pm;fp=perl%2FProt.pm;h=0000000000000000000000000000000000000000;hp=27416735580647632a56daaed1f24072eff2be09;hb=48f0cb90d0cfbe3037f353fc25adfc33561634fa;hpb=3292b0f8ef9af57608f5e2032bf3c0fca838eb7a

diff --git a/perl/Prot.pm b/perl/Prot.pm
deleted file mode 100644
index 27416735..00000000
--- a/perl/Prot.pm
+++ /dev/null
@@ -1,61 +0,0 @@
-#
-# Base class for OO version of all protocol stuff
-#
-
-package Prot;
-
-use strict;
-
-
-use DXUtil;
-use DXDebug;
-use vars qw(%valid);
-
-%valid = (
-		  fromnode => '0,From Node',
-		  tonode => '0,To Node',
-		  vianode => '0,Via Node',
-		  origin => '0,Original Node',
-		  tocall => '0,To Callsign',
-		  fromcall => '0,From Callsign',
-		  hops => '0,No. of hops',
-		  text => '0,Text',
-		  datetime => '0,Date/Time,atime',
-		  freq => '0,Frequency',
-		  dxcall => '0,DX Callsign',
-		  sort => '0,Sort',
-		  hereflag => '0,Here?,yesno',
-		  talkflag => '0,Talk mode',
-		  bellflag => '0,Bell?',
-		  privflag => '0,Private?,yesno',
-		  rrflag => '0,RR Req.?,yesno',
-		  sysopflag => '0,Sysop flag',
-		  dxcount => '0,DX Count',
-		  wwvcount => '0,WWV Count',
-		  version => '0,Node Version',
-		  nodelist => '0,Node List,parray',
-		 );
-
-
-sub new
-{
-	my $pkg = shift;
-	my $sort = shift;
-	my $self = bless { sort => $sort }, $pkg;
-	return $self;
-}
-
-sub AUTOLOAD
-{
-	no strict;
-	my $name = $AUTOLOAD;
-	return if $name =~ /::DESTROY$/;
-	$name =~ s/^.*:://o;
-  
-	confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
-	*$AUTOLOAD = sub {@_ > 1 ? $_[0]->{$name} = $_[1] : $_[0]->{$name}};
-       goto &$AUTOLOAD;
-}
-
-1;
-__END__