X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fdictionary-update-receiver;h=352b9bbbfd09d77fb1f405be2a53b199d7627615;hp=eee7d1464caaadba6834b3ca185f7f047afce60f;hb=5b9cc22ec3ee084ba46a83c0ae99f4831317ff9d;hpb=33f3a4cd5821208321f0bf61e2ae6c07504c8b86

diff --git a/yarrg/dictionary-update-receiver b/yarrg/dictionary-update-receiver
index eee7d14..352b9bb 100755
--- a/yarrg/dictionary-update-receiver
+++ b/yarrg/dictionary-update-receiver
@@ -41,6 +41,8 @@ use CGI qw/:standard -private_tempfiles/;
 use IO::Pipe;
 use IO::Handle;
 
+use Commods;
+
 my $aadepth=2;
 
 #---------- pixmaps ----------
@@ -205,15 +207,7 @@ if (defined $ocean && defined $pirate) {
     $pirate= '';
 }
 
-my $caller= $ENV{'REMOTE_ADDR'};
-$caller= 'LOCAL' unless defined $caller;
-
-my $fwdf= $ENV{'HTTP_X_FORWARDED_FOR'};
-if (defined $fwdf) {
-    $fwdf =~ s/\s//g;
-    $fwdf =~ s/[^0-9.,]/?/g;
-    $caller= "$fwdf,$pirate";
-}
+my $caller= cgi_get_caller();
 
 my $kind;
 my @xa;