use the correct call 'new_cf' everywhere

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 5ee04b1c1a43b654b0c7e1d1c0231ac6d7145fea..726a068d896a1180b76900ab44bd7605ca3e8f43 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -122,7 +122,7 @@ sub start
 
        # broadcast our configuration to the world
        unless ($self->{outbound}) {
-               my $thing = Thingy::Rt->new_lcf;
+               my $thing = Thingy::Rt->new_cf;
                $thing->broadcast;
        }
        

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8f16da6603436b57eb6b36831bfc5b19c7085eed..65b666a2fed8a5315e4b641ec1527314bb0e98ef 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1094,7 +1094,7 @@ sub handle_20
        $self->send(pc22());
        $self->state('normal');
        $self->{lastping} = 0;
-       my $thing = Thingy::Rt->new(user=>$self->{call});
+       my $thing = Thingy::Rt->new_cf(user=>$self->{call});
        my $nref = Route::Node::get($self->{call});
        $thing->broadcast if $thing->copy_pc16_data($nref);
 }
@@ -1177,7 +1177,7 @@ sub handle_22
        my $origin = shift;
        $self->state('normal');
        $self->{lastping} = 0;
-       my $thing = Thingy::Rt->new(user=>$self->{call});
+       my $thing = Thingy::Rt->new_cf(user=>$self->{call});
        my $nref = Route::Node::get($self->{call});
        $thing->broadcast if $thing->copy_pc16_data($nref);
 }

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index 9c6a539f8255f39569574019bbbb504a28c906f0..97abd14e58ba2dc9c78d5a35cffdf74705bf861b 100644 (file)
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -90,7 +90,7 @@ sub handle
                                $thing->send($dxchan);
 
                                # broadcast our configuration to the world
-                               $thing = Thingy::Rt->new_lcf;
+                               $thing = Thingy::Rt->new_cf;
                                $thing->broadcast;
                        }
                }

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 7f94937a3fe38fdd4b841b23332742fdec1e6a0e..807e414e2895a5f9892ea91c8a2fba7dbd746bfe 100644 (file)
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -210,7 +210,7 @@ sub _upd_user_rec
 # info whenever a node connects and also periodically.
 #
 
-sub new_lcf
+sub new_cf
 {
        my $pkg = shift;
        my $thing = $pkg->SUPER::new(@_);