Additions to the Messages file for Spanish Language from Jesus ea1dav

[spider.git] / perl / update_sysop.pl

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index a4450cae8e844bb0c688b761f0a37682d2eb674d..4cba9abf4c5d04c343cd24720805694ecbf73fac 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -56,7 +56,7 @@ sub create_it
 
        # now do one for the alias
        while ($ref = DXUser->get($myalias)) {
-               print "old call $mycall deleted\n";
+               print "old call $myalias deleted\n";
                $ref->del();
        }
 
@@ -78,11 +78,11 @@ sub create_it
   
        # write it away
        $self->close();
-       print "new call $mycall added\n";
+       print "new call $myalias added\n";
 
 }
 
-$lockfn = "$root/perl/cluster.lock";       # lock file name
+$lockfn = "$root/perl/cluster.lck";       # lock file name
 if (-e $lockfn) {
        open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
        my $pid = <CLLOCK>;