Perl script stopped working Post: 302904236

Sponsored Content

Top Forums Shell Programming and Scripting Perl script stopped working Post 302904236 by belalr on Tuesday 3rd of June 2014 04:37:12 AM

06-03-2014

Registered User

Perl script stopped working

Hi,

I have the following segment of a script which is supposed to prompt a user for password and then capture the password entered by the user.

The function is called in by another script and used to work without issue, the problem is that recently the script is not waiting for the user to input the password it and immediately the calling script is giving an error that null password is provided.

Can someone please help?

Code:

sub prompt_for_password
{
  my $account_name = $_[0];
  my $account_description = $_[1];
  my $display_prompt = $_[2];

  if ($display_prompt)
  {
    print STDERR "\n";
    print STDERR "Please enter password for $account_description '$account_name': ";
  }

  $LINUX = -d "/initrd";
  $SOLARIS = -d "/kernel";

  if ($LINUX)
  {
    system "/bin/stty cbreak -echo </dev/tty >/dev/tty 2>&1";
  }

  if ($SOLARIS)
  {
    system "/bin/stty icanon -echo </dev/tty >/dev/tty 2>&1";
  }

  $password = <STDIN>;

  if ($LINUX)
  {
    system "/bin/stty cbreak echo </dev/tty >/dev/tty 2>&1";
  }

  if ($SOLARIS)
  {
    system "/bin/stty icanon echo </dev/tty >/dev/tty 2>&1";
  }

  if ($display_prompt)
  {
    print STDERR "\n";
  }

  chomp($password);

  return $password;
}

belalr

View Public Profile for belalr

Find all posts by belalr

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

#!/bin/bash has stopped working

Hi I'm writing a script and I've put #!/bin/bash as the first line so that I can just type my scripts name 'whodate' at PS1 instead of ./whodate. This has suddenly stopped working for me. It used to be the case that I could start a script with #!/bin/bash and it would work, but for this script...

2. Linux

Cronjobs stopped working

Hi All, I am user of a Linux machine and I have approximatly 15 cronjobs scheduled in my crontab. Yesterday my administrator made LDAP active on my userid and all the things are doing fine after that. But all cronjobs for my user id stored in my crontab have stopped working after that. Could...

3. Shell Programming and Scripting

cronjobs stopped working

Hello people, I had these cronjobs scheduled in some Unix boxes which were running fine until yesterday.But then the password was changed for that user id and then the jobs stopped working. As far as i know cron jobs run from super user. I am completely lost over here now. Thanks.

4. UNIX for Advanced & Expert Users

suPHP stopped working after dist-upgrade

Hi all, My server was Debian Etch (4) and had a working suPHP module (version 0.6.2-1). After I dist-upgraded it to Lenny (Debian 5), suPHP (version 0.6.2-3) stopped working. I read in the mailing list that I should change the settings of /etc/suphp/suphp.conf to this form: ;Handler...

5. IP Networking

Wireless stopped working- Fedora 12

I installed F12 around the time it was released and it picked up my wireless card and worked like a charm.....Suddenly last week everything stopped working and I receive what appears to be a driver error when wlan0 tries to load. Error for wireless request "Set Mode" (8B06) : SET failed on...

6. Ubuntu

Ubuntu 10.10 LAN connection stopped working...

Well this is weird. I restarted my dual boot Win7/Ubuntu 10.10 from ubuntu to windows. Everything was working fine and windows is always connecting properly to my lan. After restarting back into Ubuntu, all of a sudden I can't connect to my network. It looks as if its trying to connect through...

7. UNIX for Dummies Questions & Answers

Ssh stopped working AIX

I Was able to ssh into the AIX box. now i cannot When I run the command to start it it comes back that is was started, but still does not work. Here is a shot i what i see # server:/> lslpp -l | grep ssh openssh.base.client 4.3.0.5201 COMMITTED Open Secure Shell Commands ...

8. AIX

Printer stopped working

I have a serial printer connected to a 16 port ran. All of a sudden my printer stopped working and not sure how to get it back. Can anyone help pint me in the write direction? lsdev -Cc printer gives me the following. lp0 Defined 0A-08-11-00 Other serial printer lp1 Defined 0A-08-11-03...

9. Solaris

Mailx stopped working

after a new patch set on the 14th. I noticed that mailx stopped working, as far a I can tell that is the only thing that changed. solaris 10 OS it seems everything is the same, sendmail seems to be running root@server # ps -ef | grep -i sendmail smmsp 687 1 0 10:42:25 ? ...

LEARN ABOUT DEBIAN

systemd-tty-ask-password-agent

SYSTEMD-TTY-ASK-PASSWORD-AGENT(1)			  systemd-tty-ask-password-agent			 SYSTEMD-TTY-ASK-PASSWORD-AGENT(1)

NAME

       systemd-tty-ask-password-agent - List or process pending systemd password requests

SYNOPSIS

       systemd-tty-ask-password-agent [OPTIONS...] [VARIABLE=VALUE...]

DESCRIPTION

       systemd-tty-ask-password-agent is a password agent that handles password requests of the system, for example for hard disk encryption
       passwords or SSL certificate passwords that need to be queried at boot-time or during runtime.

       systemd-tty-ask-password-agent implements the Password Agents Specification[1], and is one of many possible response agents which answer to
       queries formulated with systemd-ask-password(1).

OPTIONS

       The following options are understood:

       --list
	   Lists all currently pending system password requests.

       --query
	   Process all currently pending system password requests by querying the user on the calling TTY.

       --watch
	   Continuously process password requests.

       --wall
	   Forward password requests to wall(1) instead of querying the user on the calling TTY.

       --plymouth
	   Ask question with plymouth(8) instead of querying the user on the calling TTY.

       --console
	   Ask question on /dev/console instead of querying the user on the calling TTY.

       -h, --help
	   Print a short help text and exit.

       --version
	   Print a short version string and exit.

EXIT STATUS

       On success, 0 is returned, a non-zero failure code otherwise.

SEE ALSO

       systemd(1), systemctl(1), systemd-ask-password-console.service(8), wall(1), plymouth(8)

NOTES

	1. Password Agents Specification
	   https://www.freedesktop.org/wiki/Software/systemd/PasswordAgents

systemd 237													 SYSTEMD-TTY-ASK-PASSWORD-AGENT(1)