From 57f79277c950ee57f32f2ff59634e40bffd51f5a Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Mon, 21 Oct 2019 01:05:55 +0200
Subject: [PATCH] Revert "TT#69150 Switch to use IO::Prompt::Tiny instead of
 ad-hoc code"

This reverts commit 565f5398254d0e9bb98e84ac39e0d738a6b8c74f.

Reason for revert: <INSERT REASONING HERE>

Change-Id: I35eaebf6294faa192e90b85c46f30685f9e9ab6f
(cherry picked from commit 04d6c7fc0b216b0215b43f51cbb97f49d5864c79)
---
 debian/control                  | 1 -
 lib/NGCP/BulkProcessor/Utils.pm | 9 +++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/debian/control b/debian/control
index a549898..198dc3f 100644
--- a/debian/control
+++ b/debian/control
@@ -52,7 +52,6 @@ Depends:
  libgearman-client-perl,
  libhtml-parser-perl,
  libintl-perl,
- libio-prompt-tiny-perl,
  libio-socket-ssl-perl,
  liblog-log4perl-perl,
  libmail-imapclient-perl,
diff --git a/lib/NGCP/BulkProcessor/Utils.pm b/lib/NGCP/BulkProcessor/Utils.pm
index 7e97286..c7877c5 100644
--- a/lib/NGCP/BulkProcessor/Utils.pm
+++ b/lib/NGCP/BulkProcessor/Utils.pm
@@ -31,8 +31,6 @@ Date_Init('DateFormat=US');
 
 use Date::Calc qw(Normalize_DHMS Add_Delta_DHMS);
 
-use IO::Prompt::Tiny;
-
 use Text::Wrap qw();
 #use FindBin qw($Bin);
 use Digest::MD5 qw(); #qw(md5 md5_hex md5_base64);
@@ -1120,9 +1118,12 @@ sub get_cpucount {
    #printf "CPU load: %s\n"       , $cpu->load  || 0;
 }
 
-# Compat wrapper.
 sub prompt {
-  return IO::Prompt::Tiny::prompt(@_);
+  my ($query) = @_; # take a prompt string as argument
+  local $| = 1; # activate autoflush to immediately show the prompt
+  print $query;
+  chomp(my $answer = <STDIN>);
+  return $answer;
 }
 
 sub check_ipnet {