From 057cd86148741a8b7e32e2c8f24afcc449b4c00c Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 13 Dec 2024 10:18:48 +0200
Subject: refactor

---
 foostats.pl | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/foostats.pl b/foostats.pl
index 50be4f5..5aa1e86 100644
--- a/foostats.pl
+++ b/foostats.pl
@@ -407,20 +407,17 @@ package main {
   }
 
   sub replicate ($stats_dir, $partner_node) {
-    unless (defined $partner_node) {
-      # Default values if partner node not set.
-      $partner_node = hostname eq 'fishfinger.buetow.org' 
-                    ? 'blowfish.buetow.org'
-                    : 'fishfinger.buetow.org';
-    }
-
     Foostats::Replicator->new(stats_dir => $stats_dir)->replicate($partner_node);
   }
 
   sub pretty_print () { say 'pretty_print not yet implemented' }
 
-  my ($parse_logs, $replicate, $pretty_print, $partner_node);
+  my ($parse_logs, $replicate, $pretty_print);
+
+  # With default values
   my $stats_dir = '/var/www/htdocs/buetow.org/self/foostats';
+  my $partner_node = hostname eq 'fishfinger.buetow.org' 
+                   ? 'blowfish.buetow.org' : 'fishfinger.buetow.org';
 
   GetOptions 'parse-logs'   => \$parse_logs,
              'replicate'    => \$replicate,
-- 
cgit v1.2.3