X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXMsg.pm;h=87129ea0ed1ce990391b2f182dbeffd6c545a93d;hb=3eb9538d135d9ff21d8ce7c0e0c6b3e6d7fb59a9;hp=97aaa35514b21060cf8fc5ac78f09a47080a7a09;hpb=ca18864d1264fadfe9869b630f05c950876c2169;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 97aaa355..87129ea0 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -67,6 +67,13 @@ $forwardfn = "$msgdir/forward.pl";  # the forwarding table
 		  keep => '0,Keep this?,yesno',
 		 );
 
+sub DESTROY
+{
+	my $self = shift;
+	undef $self->{lines};
+	undef $self->{gotit};
+}
+
 # allocate a new object
 # called fromnode, tonode, from, to, datetime, private?, subject, nolinesper  
 sub alloc                  
@@ -253,7 +260,7 @@ sub process
 			$f[3] =~ s/^\///o;   # remove the leading /
 			$f[3] = lc $f[3];	# to lower case;
 			dbg('msg', "incoming file $f[3]\n");
-			last SWITCH if $f[3] =~ /^(perl|cmd|local|src|lib|include|sys|msg|connect)/; # prevent access to executables
+			$f[3] = 'packclus/' . $f[3] unless $f[3] =~ /^packclus\//o;
 			
 			# create any directories
 			my @part = split /\//, $f[3];