From 27b6e9691f9985830388bbb8fc0a04357fa4f11f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 22 Feb 2005 17:37:17 +0000
Subject: [PATCH] use the correct call 'new_cf' everywhere

---
 perl/Aranea.pm       | 2 +-
 perl/DXProt.pm       | 4 ++--
 perl/Thingy/Hello.pm | 2 +-
 perl/Thingy/Rt.pm    | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 5ee04b1c..726a068d 100644
--- 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 8f16da66..65b666a2 100644
--- 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 9c6a539f..97abd14e 100644
--- 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 7f94937a..807e414e 100644
--- 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(@_);
-- 
2.34.1