change the Hello to use default values

[spider.git] / perl / Thingy / Hello.pm

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index f2d2d5d1a27b7545efa203336c250dcef28fdc34..c991a901e274a1036e348be0a763efc96996cb17 100644 (file)
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -67,11 +67,18 @@ sub handle
                if ($dxchan->{state} ne 'normal') {
                        $dxchan->start($dxchan->{conn}->{csort}, $dxchan->{conn}->{outbound} ? 'O' : 'A');
                        if ($dxchan->{outbound}) {
-                               my $thing = Thingy::Hello->new(origin=>$main::mycall, group=>'ROUTE');
+                               my $thing = Thingy::Hello->new();
                                $thing->send($dxchan);
                        }
                }
        }
        $thing->broadcast($dxchan);
 }
+
+sub new
+{
+       my $pkg = shift;
+       my $thing = $pkg->SUPER::new(origin=>$main::mycall, group=>'RT');
+       return $thing;
+}
 1;