AlternC/src/alternc_lxc_remote

15 lines
321 B
Perl
Executable File

#!/usr/bin/env perl
my $line = <>;
my $nb = int(rand(42));
if ($nb % 2 == 0) {
print "Error message here||\n";
} else {
print "Ok|127.0.0.1:4242|localhost:4242\n";
my ($action,$login,$pass,$uid) = split /|/, $line;
printf("Hi %s (%d) do you want to %s? -> btw your pass is %s\n", $login, $uid, $action, $pass);
}