#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

use strict;
use DBI;
my $dbname = "";
my $dbhost = "";
my $dbuser = "";
my $dbpass = "";

my $dbh = DBI->connect( "DBI:mysql:database=$dbname;host=$dbhost",
    $dbuser, $dbpass, { RaiseError => 1 } );

my $img_dir = "";
my $wav_dir = "";

my @email_content = <STDIN>;
chomp(@email_content);

my ( $photo_invite, $memo_invite, $photo_code, $memo_code, $caption );
foreach my $email_line (@email_content) {
    if ( $email_line =~
/"http:\/\/pictures\.sprintpcs\.com\/+shareImage\/+(\w+)\.jpg.+?invite=(\w+)"/oi
      )
    {
        $photo_code   = $1;
        $photo_invite = $2;
    }
    elsif ( $email_line =~
        /"http:\/\/pictures\.sprintpcs\.com\/+a\/+(\w+)\.wav\?invite=(\w+)/oi )
    {
        $memo_code   = $1;
        $memo_invite = $2;
    }
    elsif ( $email_line =~
/<p><font face="Arial, sans-serif" size="2"><b>Message:<\/b><br\/>(.+?)<\/font>/o
      )
    {
        $caption = $1;
    }
}

my $photo_url =
"http://pictures.sprintpcs.com/shareImage/$photo_code.jpg?invite=$photo_invite";
my $memo_url =
  "http://pictures.sprintpcs.com/a/$memo_code.wav?invite=$memo_invite";

my $saved_photo = "$img_dir/$photo_code.jpg";
my $saved_memo  = "$wav_dir/$memo_code.wav";

system("curl $photo_url -s -o $saved_photo > /dev/null");
system("curl $memo_url -s -o $saved_memo > /dev/null");

chmod( 0755, "$saved_photo" );
chmod( 0755, "$saved_memo" );

$dbh->do( "INSERT into pcsblog values ( ?, ?, ?, ?, ? )",
    undef, undef, undef, $photo_code, $memo_code, $caption );