bluesaxman/squeegy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed root check oopsie.

Browse Source
This commit is contained in:
Pegasus Epsilon 2019-10-03 20:09:19 -05:00
parent bf8ab31fe5
commit 58bfe20a91
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
wipe.pl
View File

@ -9,16 +9,25 @@ use v5.10;
# loose badass and you don't need no stinkin' safety net. # loose badass and you don't need no stinkin' safety net.
use constant CONFIRMATION_PHRASE => "I am a pretty pink pineapple!"; use constant CONFIRMATION_PHRASE => "I am a pretty pink pineapple!";
if ($>) {
say "This program requires root, sorry.";
exit;
}
my $termios = POSIX::Termios->new; my $termios = POSIX::Termios->new;
$termios->getattr(fileno(STDIN)); $termios->getattr(fileno(STDIN));
# fetch this value once and cache it # fetch this value once and cache it
my $startup_lflag = $termios->getlflag(); my $startup_lflag = $termios->getlflag();
# set termios lflag to not echo keystrokes, and take us out of line mode
$termios->setlflag($startup_lflag & ~(ECHO | ECHOK | ICANON));
$termios->setattr(fileno(STDIN), TCSANOW);
END { # reset termios lflag on exit
$termios->setlflag($startup_lflag);
$termios->setattr(fileno(STDIN), TCSANOW);
}
if ($>) {
say "This program requires root, sorry.";
exit;
}
# define some colors for convenience # define some colors for convenience
my %color = ( my %color = (
# use tput to support anything with a terminfo entry # use tput to support anything with a terminfo entry
@ -36,15 +45,6 @@ if (!$notreally && CONFIRMATION_PHRASE) {
do { say; exit } unless CONFIRMATION_PHRASE eq $confirm; do { say; exit } unless CONFIRMATION_PHRASE eq $confirm;
} }
# set termios lflag to not echo keystrokes, and take us out of line mode
$termios->setlflag($startup_lflag & ~(ECHO | ECHOK | ICANON));
$termios->setattr(fileno(STDIN), TCSANOW);
END { # reset termios lflag on exit
$termios->setlflag($startup_lflag);
$termios->setattr(fileno(STDIN), TCSANOW);
}
# create our random data and store it in RAM so we can keep reusing it # create our random data and store it in RAM so we can keep reusing it
open(my $drand, "<", "/dev/urandom"); open(my $drand, "<", "/dev/urandom");
my $clobber; my $clobber;