From bd6596d30b21ae1517eeb9d0e1f6ed6ec9c40b69 Mon Sep 17 00:00:00 2001 From: Shane McRetro Date: Mon, 11 Jul 2022 20:36:38 +1000 Subject: [PATCH] Process entire work folder, including conflicts --- ...questionsmarks.pl => 008_handle_questionsmarks.pl} | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) rename scripts/geocities.archiveteam.torrent/{008-handle-questionsmarks.pl => 008_handle_questionsmarks.pl} (93%) diff --git a/scripts/geocities.archiveteam.torrent/008-handle-questionsmarks.pl b/scripts/geocities.archiveteam.torrent/008_handle_questionsmarks.pl similarity index 93% rename from scripts/geocities.archiveteam.torrent/008-handle-questionsmarks.pl rename to scripts/geocities.archiveteam.torrent/008_handle_questionsmarks.pl index 6806638..308f5dd 100755 --- a/scripts/geocities.archiveteam.torrent/008-handle-questionsmarks.pl +++ b/scripts/geocities.archiveteam.torrent/008_handle_questionsmarks.pl @@ -1,13 +1,15 @@ #!/usr/bin/perl -# Find all files containing a question mark and check if -# this version of the file is really needed, as in: contains -# something different than the same file without a question mark part. +# Find all files containing a question mark and check if this version of the file is really needed, as in: +# contains# something different than the same file without a question mark part. # This is because in Geocities, most of the URL parameters are # targeted at Javascripts running in the browser and not at # server side software. Most Geocities users had no way of running # server side software apart from the cgi scripts that Geocities # provided centrally. +# +# perl 008_handle_questionsmarks.pl +# use feature ':5.14'; use warnings; @@ -19,7 +21,8 @@ $| = 1; # turn on autoflush -chdir($ENV{GEO_WORK} . '/geocities'); +# Process the entire work folder, including conflicts +chdir($ENV{GEO_WORK} . '/'); find({wanted => \&handle, no_chdir => 1}, '.');