From 007f0d702907272018b3cf4ef8470145cd51decd Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 13 Aug 2023 13:35:40 +0300
Subject: add perl modelines. remove filewalk

---
 frontends/Rexfile | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to 'frontends/Rexfile')

diff --git a/frontends/Rexfile b/frontends/Rexfile
index da679b2..8919a8c 100644
--- a/frontends/Rexfile
+++ b/frontends/Rexfile
@@ -55,27 +55,6 @@ our $is_primary = sub {
   $fqdns->($ipv4) eq 'blowfish.buetow.org';
 };
 
-our $filewalk;
-our $filewalk = sub {
-  my $dir = shift;
-  my @files;
-
-  opendir my $dh, $dir or die $!;
-  while (my $entry = readdir $dh) {
-    next if $entry eq '.' or $entry eq '..';
-    if (-d "$dir/$entry") {
-      push @files, $_ for $filewalk->("$dir/$entry");
-    } elsif (-f "$dir/$entry") {
-      push @files, "$dir/$entry";
-    } else {
-      Rex::Logger::info("Unsupported file type for $dir/$entry", 'error');
-    }
-  }
-  closedir $dh;
-
-  return @files;
-};
-
 # The secret store. Note to myself: "geheim cat rexfilesecrets.txt"
 our $secrets =  sub { read_file './secrets/' . shift };
 
-- 
cgit v1.2.3