vrfyOTP.pl 185 Bytes
Newer Older
1 2 3 4
#!/usr/bin/perl
use strict;
use warnings;

Clément OUDOT's avatar
Clément OUDOT committed
5
my ( $swt1, $user, $swt2, $code ) = @ARGV;
6

Clément OUDOT's avatar
Clément OUDOT committed
7 8 9 10
exit !($swt1 eq '-uid'
    && $user eq 'dwho'
    && $swt2 eq '-code'
    && $code eq '123456' );