Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #ALPHA Test development program to poll for new Reddit user mail.
- #
- #
- #Developed by knivesngunz 2012
- ##############################
- ##############################
- use Device::SerialPort;
- $serialport = "/dev/ttyACM1";
- $port = Device::SerialPort->new($serialport);
- $port->databits(8);
- $port->baudrate(9600);
- $port->parity("none");
- $port->stopbits(1);
- $port->dtr_active(0);
- $user = "INSERT YOUR USERNAME HERE";
- $pass = "INSERT YOUR PASSWORD HERE ";
- print "[+] Housekeeping first...\n";
- `rm Cookie.txt`;
- `rm about.json`;
- print "[+] Attempting to establish login session...\n[ + ]\n";
- system("curl -d user=$user -d passwd=$pass -c Cookie.txt http://www.reddit.com/api/login");
- print "\n[ + ]\n";
- while (1){
- print "[+] Logged in as $user\n";
- print "[+] Getting JSON details...\n";
- `wget -q -O unread.json --load-cookies=Cookie.txt http://www.reddit.com/message/unread/.json`;
- print "[+] Parsing JSON info...\n";
- open MYFILE, "<unread.json";
- $JSONinfo = <MYFILE>;
- if ($JSONinfo =~ /author/){
- $count = 0;
- $count++ while ($JSONinfo =~ /author/g);
- if ($oldcount != $count){
- $oldcount = $count;
- &turnoffalert;
- sleep(1);
- &turnonalert;
- $firstalert=0;
- }
- print "[+] $count NEW MESSAGE(S)\n";
- $firstalert=1;
- }
- else {
- print "no mail..\n";
- &turnoffalert;
- $firstalert = 0;
- $oldcount = 0;
- }
- sleep(10); # THIS IS HOW LONG TO WAIT BEFORE WE TRY TO POLL AGAIN!!! Always leave at 30 seconds or greater!
- system("clear");
- }
- sub turnonalert() {
- #if ($firstalert == 0){
- $port->write("1,0,\r");
- #}
- }
- sub turnoffalert() {
- $port->write("0,0,\r");
- }
Add Comment
Please, Sign In to add comment