Gmail SSL Proxy

Everybody loves Gmail, but if you are trying to integrate other system i.e a ticket system that does not support ssl it might be a pain.

You can use as a proxy to connect your application to gmail.

  • Download and install delegate
  • run the command below(it will setup delegate to be a pop ssl proxy on port 110.)
delegated -P110 SERVER=POP FSV=sslway admin=<your email>

In your application the pop server is localhost and your username is myuser%[email protected]:995(since the proxy is generic, the username has the additional connection information so you can poll multiple accounts witht he same proxy) and the password is your usual gmail password

Perl POP3 collector

This collects multiple pop3 email accounts and sends them to an smtp server. I wrote this as an exchange pop3 collector.

1. Set $inserver to your incoming mail server to collect the pop3 email from. If you need to collect from multiple pop3 servers just copy the script and run them separately.
2. Set $outserver to the server that you would like to move the email to. It does not have to be a local server.
3. Set the %accounts array with the pop3 account you would like to collect.
If you are collect multiple pop3 accounts %accounts might look like this.

%accounts = (
            '[email protected]' => {'password' =>  'pop3_pass','sendto' =>  'demo@demo_exchange.local',},
             '[email protected]' => {'password' =>  'demo2_pass','sendto' =>  'demo2@demo_exchange.local',},
#Usage: Run this as a scheduled task to collect external pop3 email and move them into exchange.
use Net::POP3;
use Net::SMTP;

#1 = turn debug on || 0 = turn debug off
#to check for errors run the this from the command line. Example:
# perl 1>>expop.log 2>>expop.log

$inserver=""; #email server to get email from

$outserver="localhost"; #Exchange Server, this is usually localhost.

#Accounts to Collect e-mail from, Example:
# 'Pop3 user name' => {'password' =>  'Pop3 Password','sendto' =>  'Exchange E-mail Address',},
%accounts = (
           '[email protected]' => {'password' =>  'pop3_pass','sendto' =>  'demo@demo_exchange.local',},

foreach $accnt (keys %accounts)
#print "User: $accnt password:", $accounts{$accnt} -> {"password"}, " sendto: ",$accounts{$accnt} -> {"sendto"}," \n";

  $pop = Net::POP3->new($inserver,Timeout => 60, Debug => $debug);
   if ($pop->login($accnt, $accounts{$accnt} -> {"password"}) > 0)
       my $msgnums = $pop->list;
       foreach my $msgnum (keys %$msgnums)
           my $msg = $pop->get($msgnum);
           $smtp = Net::SMTP->new($outserver, Timeout => 60, Debug =>$debug);
           $smtp->to($accounts{$accnt} -> {"sendto"});
print "done!";