Skip to content
Extraits de code Groupes Projets
Valider b38b6915 rédigé par TC's avatar TC
Parcourir les fichiers

Petit bug avec Getpass...

parent afab611f
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
......@@ -6,7 +6,7 @@ use IO::File;
use IO::Pipe;
my $conn_save = undef;;
my %infos = ();
# ###
......@@ -63,7 +63,8 @@ sub retrieve
# On ne fait que lire
$pipe->reader();
$conn_save = $conn;
$infos{$pipe} = [$conn, $entity];
$conn->parent->addfh($pipe, \&recall_pass, "r");
$conn->privmsg($Config::owner, "\x0304A prompt is now displayed on the screen\x03");
}
......@@ -104,12 +105,15 @@ sub recall_pass
{
my ($pipe) = @_;
my $conn = $conn_save;
$conn_save = undef;
my ($conn, $entity) = @{$infos{$pipe}};
my $read = undef;
$pipe->read($read, 512);
$conn->privmsg($entity, "IDENTIFY ".$read);
$conn->parent->removefh($fh);
$conn->parent->removefh($pipe);
delete $infos{$pipe};
$pipe->close;
} # Fin recall_pass
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter