#!/usr/bin/perl
# Author:  gendou
# Usage:   ad-clear-mesg.pl username [password]
# Version: 1.0.2
# Notes:   this script will clear all your private messages at once

use Term::ReadKey;

### CONSTANTS ###
$usage = "Usage: ad-clear-mesg.pl username [password]\n";
$alexa = 'http://alexadex.com/ad';

### USER INPUT ###
$username = shift or die($usage);
$password = shift;
if(!$password)
{
	print "Password: ";
	ReadMode('noecho');
	$password = ReadLine(0);
	ReadMode('normal');
	chomp($password);
	print "\n";
}

### LOGIN TO ALEXADEX ###
$data = `curl -A '-' -s -i -d page=signin -d username=$username -d password=$password -d postback=1 $alexa/`;
$uid = $1 if($data =~ /ad_user_id="(.+?)"/);
$sid = $1 if($data =~ /ad_authenticate="(.+?)"/);
$cookies = "-b 'ad_user_id=$uid;ad_authenticate=$sid'";

### CLEAR ALL MESSAGES ###
for $line (`curl -A '-' -s $cookies $alexa/user`)
{
	if($line =~ /del_message_id=(\d+)/)
	{
		$id = $1;
		$count++;
		`curl -A '-' -s $cookies '$alexa/user/$username?del_message_id=$id'`;
	}
}

$count = 'No' if(!$count);
print "$count messages removed.\n";