mirror of
https://github.com/narkoz/hacker-scripts
synced 2025-08-24 03:17:11 +00:00
Merge pull request #52 from robaganrab/perl-implementation
Add Perl Implementation
This commit is contained in:
Nihad Abbasov
commit
8853685241
49
perl/fucking-coffee.pl
Executable file
49
perl/fucking-coffee.pl
Executable file
@ -0,0 +1,49 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use DateTime;
|
||||||
|
use YAML;
|
||||||
|
use Net::Telnet;
|
||||||
|
|
||||||
|
# Config
|
||||||
|
my $conf = Load( <<'...' );
|
||||||
|
---
|
||||||
|
coffee_machine_ip: 10.10.42.42
|
||||||
|
password: 1234
|
||||||
|
password_prompt: Password:
|
||||||
|
delay_before_brew: 17
|
||||||
|
delay: 24
|
||||||
|
...
|
||||||
|
|
||||||
|
# Skip on weekends
|
||||||
|
my $date = DateTime->now;
|
||||||
|
if ( $date->day_of_week >= 6 ) {
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Exit early if no sessions with my username are found
|
||||||
|
open( my $cmd_who, '-|', 'who' ) || die "Cannot pipe who command ". $!;
|
||||||
|
|
||||||
|
my @sessions = grep {
|
||||||
|
m/$ENV{'USER'}/
|
||||||
|
} <$cmd_who>;
|
||||||
|
|
||||||
|
close $cmd_who;
|
||||||
|
|
||||||
|
exit if ( scalar( @sessions ) == 0 );
|
||||||
|
|
||||||
|
sleep $conf->{'delay_before_brew'};
|
||||||
|
|
||||||
|
my $con = Net::Telnet->new(
|
||||||
|
'Host' => $conf->{'coffee_machine_ip'},
|
||||||
|
);
|
||||||
|
|
||||||
|
$con->watifor( $conf->{'password_prompt'} );
|
||||||
|
$con->cmd( $conf->{'password'} );
|
||||||
|
$con->cmd( 'sys brew' );
|
||||||
|
sleep $conf->{'delay'};
|
||||||
|
$con->cmd( 'sys pour' );
|
||||||
|
$con->close;
|
||||||
|
|
||||||
73
perl/hangover.pl
Executable file
73
perl/hangover.pl
Executable file
@ -0,0 +1,73 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use DateTime;
|
||||||
|
use SMS::Send;
|
||||||
|
use YAML;
|
||||||
|
|
||||||
|
# Config
|
||||||
|
my $conf = Load( <<'...' );
|
||||||
|
---
|
||||||
|
phone_numbers:
|
||||||
|
my_number: +15005550006
|
||||||
|
boss_number: +xxx
|
||||||
|
reasons:
|
||||||
|
- Locked out
|
||||||
|
- Pipes broke
|
||||||
|
- Food poisoning
|
||||||
|
- Not feeling well
|
||||||
|
...
|
||||||
|
|
||||||
|
my $date = DateTime->now;
|
||||||
|
|
||||||
|
# Skip on weekends
|
||||||
|
if ( $date->day_of_week >= 6 ) {
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Exit early if no sessions with my username are found
|
||||||
|
open( my $cmd_who, '-|', 'who' ) || die "Cannot pipe who command ". $!;
|
||||||
|
|
||||||
|
my @sessions = grep {
|
||||||
|
m/$ENV{'USER'}/
|
||||||
|
} <$cmd_who>;
|
||||||
|
|
||||||
|
close $cmd_who;
|
||||||
|
|
||||||
|
exit if ( scalar( @sessions ) == 0 );
|
||||||
|
|
||||||
|
# Load Twilio API config
|
||||||
|
open( my $env, '<', '../.env' ) || die "Cannot find .env file in project root.";
|
||||||
|
LINE: while ( my $line = <$env> ) {
|
||||||
|
next LINE unless ( $line =~ m/^(TWILIO[^=]+)=(.*)(?:[\n\r]*)/ );
|
||||||
|
$conf->{'env'}->{ $1 } = $2;
|
||||||
|
}
|
||||||
|
|
||||||
|
close $env;
|
||||||
|
|
||||||
|
# Randomize excuse
|
||||||
|
my $reason_number = int( rand( scalar( @{ $conf->{'reasons'} } ) ) );
|
||||||
|
my $sms_text = "Gonna work from home. ". $conf->{'reasons'}[ $reason_number ];
|
||||||
|
|
||||||
|
# Create an object. There are three required values:
|
||||||
|
my $sender = SMS::Send->new('Twilio',
|
||||||
|
_accountsid => $conf->{'env'}->{'TWILIO_ACCOUNT_SID'},
|
||||||
|
_authtoken => $conf->{'env'}->{'TWILIO_AUTH_TOKEN'},
|
||||||
|
_from => $conf->{'phone_numbers'}->{'my_number'},
|
||||||
|
);
|
||||||
|
|
||||||
|
# Send a message to me
|
||||||
|
my $sent = $sender->send_sms(
|
||||||
|
text => $sms_text,
|
||||||
|
to => $conf->{'phone_numbers'}->{'boss_number'},
|
||||||
|
);
|
||||||
|
|
||||||
|
# Did it send?
|
||||||
|
if ( $sent ) {
|
||||||
|
print "Sent message.\n";
|
||||||
|
} else {
|
||||||
|
print "Message failed.\n";
|
||||||
|
}
|
||||||
|
|
||||||
88
perl/kumar-asshole.pl
Executable file
88
perl/kumar-asshole.pl
Executable file
@ -0,0 +1,88 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use YAML;
|
||||||
|
use DateTime;
|
||||||
|
use Mail::Webmail::Gmail;
|
||||||
|
|
||||||
|
# Config
|
||||||
|
my $conf = Load( <<'...' );
|
||||||
|
---
|
||||||
|
kumar_mail: kumar.a@examle.com
|
||||||
|
database_regex: \S+_staging
|
||||||
|
keywords_regex: sorry|help|wrong
|
||||||
|
backup_path: /home/backups/databases/
|
||||||
|
...
|
||||||
|
$conf->{'database_regex'} = qr/ ( $conf->{'database_regex'} ) /x;
|
||||||
|
$conf->{'keywords_regex'} = qr/ ( $conf->{'keywords_regex'} ) /x;
|
||||||
|
|
||||||
|
my $date = DateTime->now->subtract(
|
||||||
|
'days' => 1
|
||||||
|
);
|
||||||
|
|
||||||
|
# Load GMail API config
|
||||||
|
open( my $env, '<', '../.env' ) || die "Cannot find .env file in project root.";
|
||||||
|
LINE: while ( my $line = <$env> ) {
|
||||||
|
next LINE unless ( $line =~ m/^(GMAIL[^=]+)=(.*)(?:[\n\r]*)/ );
|
||||||
|
$conf->{'env'}->{ $1 } = $2;
|
||||||
|
}
|
||||||
|
|
||||||
|
close $env;
|
||||||
|
|
||||||
|
my $gmail = Mail::Webmail::Gmail->new(
|
||||||
|
username => $conf->{'env'}->{'GMAIL_USERNAME'},
|
||||||
|
password => $conf->{'env'}->{'GMAIL_PASSWORD'},
|
||||||
|
encrypt_session => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
my $messages = $gmail->get_messages( label => $Mail::Webmail::Gmail::FOLDERS{ 'INBOX' } );
|
||||||
|
die "Cannot fetch emails: ". $gmail->error_msg();
|
||||||
|
|
||||||
|
MESSAGE: foreach my $message ( @{ $messages } ) {
|
||||||
|
unless (
|
||||||
|
( $message->{ 'new' } )
|
||||||
|
&& ( $message->{'sender_email'} eq $conf->{'kumars_email'} )
|
||||||
|
&& ( $message->{'body'} =~ m/$conf->{'keywords_regex'}/ )
|
||||||
|
&& ( $message->{'body'} =~ m/$conf->{'database_regex'}/ )
|
||||||
|
) {
|
||||||
|
print "Skipping mail from=[". $message->{'sender_email'}."] subject=[". $message->{'subject'} ."]\n";
|
||||||
|
next MESSAGE;
|
||||||
|
}
|
||||||
|
exit 1;
|
||||||
|
|
||||||
|
my $database = $1;
|
||||||
|
my $backup_file = $conf->{'backup_path'} . $database .'-'. $date->ymd() .'.gz';
|
||||||
|
|
||||||
|
unless ( -f $backup_file ) {
|
||||||
|
die 'Cannot find backup file=['. $backup_file ."]\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
print 'Restoring database=['. $database .'] from day=['. $date->ymd() .'] from file=['. $backup_file ."]\n";
|
||||||
|
|
||||||
|
# Restore DB
|
||||||
|
system( 'gunzip -c '. $backup_file .' | psql '. $database );
|
||||||
|
die "Error while restoring the database=[". $database ."] from file=[". $backup_file ."]" if ( $? >> 8 );
|
||||||
|
|
||||||
|
# Mark as read, add label, reply
|
||||||
|
$gmail->edit_labels(
|
||||||
|
'label' => 'Database fixes',
|
||||||
|
'action' => 'add',
|
||||||
|
'msgid' => $message->{'id'}
|
||||||
|
);
|
||||||
|
|
||||||
|
$gmail->send_message(
|
||||||
|
'to' => $conf->{'kumars_email'},
|
||||||
|
'subject' => 'RE: '. $message->{'subject'},
|
||||||
|
'msgbody' => "No problem. I've fixed it. \n\n Please be careful next time.",
|
||||||
|
);
|
||||||
|
|
||||||
|
$gmail->edit_labels(
|
||||||
|
'label' => 'unread',
|
||||||
|
'action' => 'remove',
|
||||||
|
'msgid' => $message->{'id'}
|
||||||
|
);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
72
perl/smack-my-bitch-up.pl
Executable file
72
perl/smack-my-bitch-up.pl
Executable file
@ -0,0 +1,72 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use DateTime;
|
||||||
|
use SMS::Send;
|
||||||
|
use YAML;
|
||||||
|
|
||||||
|
# Config
|
||||||
|
my $conf = Load( <<'...' );
|
||||||
|
---
|
||||||
|
phone_numbers:
|
||||||
|
my_number: +15005550006
|
||||||
|
her_number: +xxx
|
||||||
|
reasons:
|
||||||
|
- Working hard
|
||||||
|
- Gotta ship this feature
|
||||||
|
- Someone fucked the system again
|
||||||
|
...
|
||||||
|
|
||||||
|
my $date = DateTime->now;
|
||||||
|
|
||||||
|
# Skip on weekends
|
||||||
|
if ( $date->day_of_week >= 6 ) {
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Exit early if no sessions with my username are found
|
||||||
|
open( my $cmd_who, '-|', 'who' ) || die "Cannot pipe who command ". $!;
|
||||||
|
|
||||||
|
my @sessions = grep {
|
||||||
|
m/$ENV{'USER'}/
|
||||||
|
} <$cmd_who>;
|
||||||
|
|
||||||
|
close $cmd_who;
|
||||||
|
|
||||||
|
exit if ( scalar( @sessions ) == 0 );
|
||||||
|
|
||||||
|
# Load Twilio API config
|
||||||
|
open( my $env, '<', '../.env' ) || die "Cannot find .env file in project root.";
|
||||||
|
LINE: while ( my $line = <$env> ) {
|
||||||
|
next LINE unless ( $line =~ m/^(TWILIO[^=]+)=(.*)(?:[\n\r]*)/ );
|
||||||
|
$conf->{'env'}->{ $1 } = $2;
|
||||||
|
}
|
||||||
|
|
||||||
|
close $env;
|
||||||
|
|
||||||
|
# Randomize excuse
|
||||||
|
my $reason_number = int( rand( scalar( @{ $conf->{'reasons'} } ) ) );
|
||||||
|
my $sms_text = "Late at work. ". $conf->{'reasons'}[ $reason_number ];
|
||||||
|
|
||||||
|
# Create an object. There are three required values:
|
||||||
|
my $sender = SMS::Send->new('Twilio',
|
||||||
|
_accountsid => $conf->{'env'}->{'TWILIO_ACCOUNT_SID'},
|
||||||
|
_authtoken => $conf->{'env'}->{'TWILIO_AUTH_TOKEN'},
|
||||||
|
_from => $conf->{'phone_numbers'}->{'my_number'},
|
||||||
|
);
|
||||||
|
|
||||||
|
# Send a message to me
|
||||||
|
my $sent = $sender->send_sms(
|
||||||
|
text => $sms_text,
|
||||||
|
to => $conf->{'phone_numbers'}->{'her_number'},
|
||||||
|
);
|
||||||
|
|
||||||
|
# Did it send?
|
||||||
|
if ( $sent ) {
|
||||||
|
print "Sent message.\n";
|
||||||
|
} else {
|
||||||
|
print "Message failed.\n";
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user