From d4165f1117af3b4dba76bee382a4d8f725bbe110 Mon Sep 17 00:00:00 2001
From: gashapwn <gashapwn@tildezero.lan>
Date: Wed, 24 Mar 2021 02:38:55 +0000
Subject: [PATCH] bookdl.pl - added URL_PREFIX... user_cleanup.pl - started
 script for delteting users who clear out their homedir

---
 perl-script/.gitignore      |  3 ++-
 perl-script/bookdl.pl       | 20 +++++++++++++++++---
 perl-script/user_cleanup.pl | 20 ++++++++++++++++++++
 3 files changed, 39 insertions(+), 4 deletions(-)
 create mode 100644 perl-script/user_cleanup.pl

diff --git a/perl-script/.gitignore b/perl-script/.gitignore
index 94a2dd1..75c185e 100644
--- a/perl-script/.gitignore
+++ b/perl-script/.gitignore
@@ -1 +1,2 @@
-*.json
\ No newline at end of file
+*.json
+*.json.[0-9]*
\ No newline at end of file
diff --git a/perl-script/bookdl.pl b/perl-script/bookdl.pl
index 5cd039d..652d295 100644
--- a/perl-script/bookdl.pl
+++ b/perl-script/bookdl.pl
@@ -13,15 +13,29 @@ my $URL_PREFIX;
 my $FN;
 my $OUT_DIR;
 
+my $USAGE;
+my $ACMD;
+
 my %jh;
 
 my @a1;
 
-$URL_PREFIX = "https://lainchan.org/lit/src/";
-$THREAD_NO = 4953;
+$DOMAIN = "lainchan.org";
+# $URL_PREFIX = "https://lainchan.org/lit/src/";
+$URL_PREFIX = "https://$DOMAIN/lit/src/";
+$THREAD_NO = 4619;
+# $THREAD_NO = 6105;
+# $THREAD_NO = 4345;
+# $THREAD_NO = 4953;
 $FN = "$THREAD_NO.json";
 $OUT_DIR = "./dl/";
 
+
+$USAGE = "Usage: bookdl.pl [http://someurl/]thread_id";
+
+die "$USAGE" unless scalar @ARGV > 0;
+$ACMD = $ARGV[0];
+
 # Read JSON with list of files
 open FILE, "<", $FN or die "could not open file";
 do{
@@ -88,5 +102,5 @@ close FILE;
 
 # Print a list of wget commands from our tuples
 for my $i1 (@a1){
-    printf("wget -N %s -O '%s%s'\n", scalar $i1->[1], $OUT_DIR, scalar $i1->[0]);
+    printf("wget -nc %s -O '%s%s'\n", scalar $i1->[1], $OUT_DIR, scalar $i1->[0]);
 }
diff --git a/perl-script/user_cleanup.pl b/perl-script/user_cleanup.pl
new file mode 100644
index 0000000..4ada3bd
--- /dev/null
+++ b/perl-script/user_cleanup.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+my $fn;
+my $cmd_out;
+
+$fn = "/tilde/lyadmin/user_list.txt";
+
+open FILE, "<", $fn or die "could not open $fn";
+
+$cmd_out = `ls /home`;
+chomp $cmd_out;
+
+while(<FILE>){
+    chomp;
+    `userdel $_` unless($cmd_out =~ /$_/);
+}
+close FILE;