added more routing code

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 62f262907fc6fa0ba6a48750766d95632e555b8f..d2a0a12a31d51b4a519bbd6e4283dac8a0818c2b 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -726,6 +726,12 @@ sub is_node
        return $self->{sort} =~ /[ACRSX]/;
 }
 
+sub is_aranea
+{
+       my $self = shift;
+       return $self->{sort} eq 'W';
+}
+
 sub is_user
 {
        my $self = shift;