X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXHash.pm;fp=perl%2FDXHash.pm;h=b97d54c79608a7f59faf6f1c152b2dc63a83e178;hb=0a92a4608d715cd9cd7eec3c120da651fbb4da5b;hp=0000000000000000000000000000000000000000;hpb=e9c1322080e18fb8f6f3f0e54bfcbdf3f4da3909;p=spider.git

diff --git a/perl/DXHash.pm b/perl/DXHash.pm
new file mode 100644
index 00000000..b97d54c7
--- /dev/null
+++ b/perl/DXHash.pm
@@ -0,0 +1,127 @@
+#
+# a class for setting 'bad' (or good) things
+#
+# This is really a general purpose list handling 
+# thingy for determining good or bad objects like
+# callsigns. It is for storing things "For Ever".
+#
+# Things entered into the list are always upper
+# cased.
+# 
+# The files that are created live in /spider/data
+# 
+# Dunno why I didn't do this earlier but heyho..
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+package DXHash;
+
+use DXVars;
+use DXUtil;
+use DXDebug;
+
+use strict;
+
+sub new
+{
+	my ($pkg, $name) = @_;
+	my $s = readfilestr($main::data, $name);
+	my $self = eval $s;
+	dbg('err', "error in reading $name in DXHash $@") if $@;
+	$self = bless {name => $name}, $pkg unless $self;
+	return $self;
+}
+
+sub put
+{
+	my $self = shift;
+	writefilestr($main::data, $self->{name}, undef, $self);
+}
+
+sub add
+{
+	my $self = shift;
+	my $n = uc shift;
+	my $t = shift || time;
+	$self->{$n} = $t;
+}
+
+sub del
+{
+	my $self = shift;
+	my $n = uc shift;
+	delete $self->{$n};
+}
+
+sub in
+{
+	my $self = shift;
+	my $n = uc shift;
+	return exists $self->{$n};
+}
+
+# this is really just a general shortcut for all commands to
+# set and unset values 
+sub set
+{
+	my ($self, $priv, $noline, $dxchan, $line) = @_;
+	return (1, $dxchan->msg('e5')) unless $dxchan->priv >= $priv;
+	my @f = split /\s+/, $line;
+	return (1, $noline) unless @f;
+	my $f;
+	my @out;
+	
+	foreach $f (@f) {
+
+		if ($self->in($f)) {
+			push @out, $dxchan->msg('hasha',uc $f, $self->{name});
+			next;
+		}
+		$self->add($f);
+		push @out, $dxchan->msg('hashb', uc $f, $self->{name});
+	}
+	$self->put;
+	return (1, @out);
+}
+
+# this is really just a general shortcut for all commands to
+# set and unset values 
+sub unset
+{
+	my ($self, $priv, $noline, $dxchan, $line) = @_;
+	return (1, $dxchan->msg('e5')) unless $dxchan->priv >= $priv;
+	my @f = split /\s+/, $line;
+	return (1, $noline) unless @f;
+	my $f;
+	my @out;
+	
+	foreach $f (@f) {
+
+		unless ($self->in($f)) {
+			push @out, $dxchan->msg('hashd', uc $f, $self->{name});
+			next;
+		}
+		$self->del($f);
+		push @out, $dxchan->msg('hashc', uc $f, $self->{name});
+	}
+	$self->put;
+	return (1, @out);
+}
+
+sub show
+{
+	my ($self, $priv, $dxchan) = @_;
+	return (1, $dxchan->msg('e5')) unless $dxchan->priv >= $priv;
+	
+	my @out;
+	for (sort keys %{$self}) {
+		next if $_ eq 'name';
+		push @out, $dxchan->msg('hashe', $_, cldatetime($self->{$_}));
+	}
+	return (1, @out);
+}
+
+1;