From cefcbef4c4711ed5008ccac74269ce4070018169 Mon Sep 17 00:00:00 2001
From: karchnu <karchnu@karchnu.fr>
Date: Sat, 19 Aug 2017 00:35:59 +0200
Subject: [PATCH] suppression en masse d'utilisateurs et de zones

---
 cli/users_del.pl | 31 +++++++++++++++++++++++++++++++
 cli/zones_del.pl | 31 +++++++++++++++++++++++++++++++
 2 files changed, 62 insertions(+)
 create mode 100644 cli/users_del.pl
 create mode 100644 cli/zones_del.pl

diff --git a/cli/users_del.pl b/cli/users_del.pl
new file mode 100644
index 0000000..01cf0bc
--- /dev/null
+++ b/cli/users_del.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+use v5.14;
+use autodie;
+use utf8;
+use open qw/:std :utf8/;
+use Modern::Perl;
+
+use Data::Dump qw( dump );
+
+use lib './lib/';
+use configuration ':all';
+use app;
+
+if( @ARGV != 0 ) {
+    say "usage : echo user | ./$0";
+    exit 1;
+}
+
+eval {
+    my $app = app->new(get_cfg());
+
+    while (<>) {
+        chomp;
+        say "delete user: $_";
+        $app->delete_user($_);
+    }
+};
+
+if( $@ ) {
+    say q{Une erreur est survenue. } . $@;
+}
diff --git a/cli/zones_del.pl b/cli/zones_del.pl
new file mode 100644
index 0000000..76c5293
--- /dev/null
+++ b/cli/zones_del.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+use v5.14;
+use autodie;
+use utf8;
+use open qw/:std :utf8/;
+use Modern::Perl;
+
+use lib './lib/';
+use configuration ':all';
+use encryption ':all';
+use app;
+
+if( @ARGV != 0 ) {
+    say "usage : echo ndd | ./$0";
+    exit 1;
+}
+
+eval {
+    my $app = app->new(get_cfg());
+
+    while (<>) {
+        chomp ;
+        say "zone to delete: $_";
+
+        $app->delete_domain( $_ );
+    }
+};
+
+if( $@ ) {
+    say q{Une erreur est survenue. } . $@;
+}