12 lines
266 B
Perl
12 lines
266 B
Perl
use IO::Interactive qw(is_interactive);
|
|
|
|
die "hi, no interactive shell allowed here :)\n" if is_interactive();
|
|
|
|
shift;
|
|
my $cmd = shift;
|
|
|
|
exec 'sudo', '/run/current-system/sw/bin/systemctl', 'poweroff'
|
|
if $cmd eq 'poweroff';
|
|
|
|
die "hi, no valid command given :(\n";
|