2019-02-16 22:00:25 +01:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
|
|
my ( $swt1, $user, $swt2, $code ) = @ARGV;
|
2022-06-21 17:40:44 +02:00
|
|
|
if ( $ENV{llngtmpfile} ) {
|
|
|
|
|
open( FH, '>', $ENV{llngtmpfile} ) or die $!;
|
|
|
|
|
print FH $code;
|
|
|
|
|
close FH;
|
|
|
|
|
}
|
2019-02-16 22:00:25 +01:00
|
|
|
|
2019-03-07 18:22:16 +01:00
|
|
|
exit !($swt1 eq '-uid'
|
|
|
|
|
&& $user eq 'dwho'
|
|
|
|
|
&& $swt2 eq '-code'
|
|
|
|
|
&& defined $code );
|
