#!/usr/bin/perl -w
#
# Connects to GMail via POP3+SSL, and removes all your email
#
# Copyrigth 2006 - Pedro Melo <melo@simplicidade.org>
#
# This script is distributed under the same terms as Perl.
#

use strict;
use Mail::POP3Client;

$| = 1;

my ($username, $password) = @ARGV;

if (!$username || !$password) {
  print "Usage: gmail-expunge <gmail_username> <gmail_password>\n";
  exit(1);
}

if ($username !~ /\@gmail.com$/) {
  $username .= '@gmail.com';
}

SESSION:
while (1) {
  print "Starting POP3 session...\n";
  my $pop = new Mail::POP3Client(
      USER     => $username,
      PASSWORD => $password,
      HOST     => "pop.gmail.com",
      USESSL   => 1,
      DEBUG    => 0,
  );

  my $count = $pop->Count();
  if ($count < 0) {
    print "Error: could not connect. Check username and/or password.\n";
    exit(1);
  }

  print "There are $count messages in this session\n";
  last SESSION unless $count;

  print "Deleting $count messages\n";
  for my $id (1..$count) {
    $pop->Delete($id);
    print "\rDeleted message $id...";
  }
  print "\rSession done, removed $count messages                         \n";

  $pop->Close;
}

print "Done. All messages have been removed.\n";