Though I’ve ALWAYS hated the [...]]]> sooo.  I have to admit.  I am an old school sendmailer.  So, when gentoo absconded my native MTA I was a bit perturbed considering that they replaced “mail” with a postfix wrapper. Well like any good hack I rm’ed that bish and installed my tried and true sendmail.  Problem solved.

Though I’ve ALWAYS hated the fact that sendmail implement the m4 (wtfever) pre-processor and I’ve always edited the cf files manually.  Yeah … so?  It made more sense to me. Anyway’s I figured I’d spent enough time bastardizing the cf files and learn how to do it right; which in-turn had me assess how silly it was to have an m4 (wtfever) pre-processor versus a config file and I got to researching postfix.

Soooooo … Here I am; impressed.  I like the implementation, the ease of use, the 3rd party plugins (courier, sasl, etc) and I figure, WTF, i’ll give it a whirl.

Here’s the point of the blog.  There’s still no “mail” to command line control… d’oh.

Either by slight of hand or by malice its now “sendmail”, which, lexically makes sense; however, the flags aren’t identical.  Again back to the point of me blogging about this I thought I would share a very simple perl / postfix cgi wrapper to “send” “mail” via the postfix sendmail wrapper and still be happy that “you got mail”.


my @vars = $cgi->param;
my $email .= 'SUBJECT: blah blah porn' . "\n\n";
foreach (@vars) {
my $val = $cgi->param($_);
$email .= "$_ :: $val" . "\n";
}
$email .= "\n" . '.' . "\n";
my $cmd = "echo \'$email\' \| sendmail foo\@xxx.com";
system("$cmd");


So; I have been coveting this little gem for quite some time now and being that I recently had a birfday I decided to pony up and purchase a new Canon EOS Rebel XS (e1000D).

w00t.

Can’t wait to see the HDR images I can create with this bad boy. Stay tuned!

sub blogRoller {
use LWP::Simple;
use CMLRSSLite;

# CONFIG
my $url1 = ‘http://heartofsin.com/HOSBlogs/feed/’;
#my $url2 = ‘http://elprez.heartofsin.com/HOSBlogs/feed/’;
my $url3 = ‘http://johnwu.heartofsin.com/HOSBlogs/feed/’;
#my $url4 = ‘http://kozy.heartofsin.com/HOSBlogs/feed/’;
my [...]]]> good to go, for a start … I’ll optimize the code later. Ask if you are curious how it works.


sub blogRoller {
use LWP::Simple;
use CMLRSSLite;

# CONFIG
my $url1 = ‘http://heartofsin.com/HOSBlogs/feed/’;
#my $url2 = ‘http://elprez.heartofsin.com/HOSBlogs/feed/’;
my $url3 = ‘http://johnwu.heartofsin.com/HOSBlogs/feed/’;
#my $url4 = ‘http://kozy.heartofsin.com/HOSBlogs/feed/’;
my $url2 = ‘http://foobar.heartofsin.com/HOSBlogs/feed/’;

my @preRoll =();
my @sites = ($url1,$url2,$url3);

foreach (@sites) {
my $rp = new CMLRSSLite;
my $xml = get($_);;
unless ($xml) { $error = ‘RSS Feed Unavailable’; next; }
$rp->parse($xml);
my %pointer = ();
$pointer{‘COUNT’} = $rp->count();
if ($pointer{‘COUNT’} == 0) { next; }
$pointer{‘TITLE’} = $rp->get(title);
$pointer{‘URL’} = $rp->get(url);
$pointer{‘DESC’} = $rp->get(description);
$pointer{‘HASH’} = $rp->get(0); # HASH contains $HASH{‘title’, ‘url’ and ‘description’}
push @preRoll, \%pointer; # Passing an array of anonymous hashes
}

$c=1;
foreach $blog(@preRoll) {
my $var = “blogRoll” . $c;
my $postHASH = $$blog{‘HASH’}; # dereferencing rp->get() HASH
$$var = ‘  ‘ . $$blog{‘TITLE’} . ‘
‘ . “\n”;
$$var .= ‘  ‘ . $$postHASH{‘title’} . ‘‘;
$c++;
push @blogRoll, $$var;
}
return \@blogRoll;
}

my $blogRoll = &blogRoller;

print $$blogRoll[0] . “\n\n”;
print $$blogRoll[1] . “\n\n”;
print $$blogRoll[2]. “\n\n”;

Whats the perfect compliment to my beautiful new MacBook?

This wicked item just showed up on my door:

http://www.booqbags.com/Laptop-Bags/Vyper-exo-M

Perfect!

oooooo… Guess who comes up as NUMBER 1 in Microsoft’s Live Search results for Handpainted Onesies?!?

HAHAHHAHA

MAMA! http://www.babyluxdesigns.com/

–Happy Gilmore

# Does not [...]]]> So I am working on neat trading application and thought I would share a snippet of Perl code I just wrote. Its usage will be in a BioTech trading application I am authoring for my own profiteering and it currently is limited to only listed stocks, but its a start


# Does not work with OTC or BB STOCKS!

foreach (@lines) {
my $m1=$stock.'_l';
my $m2=$stock.'_lt';
if (m!$m1!) {
s/&nbsp\;//g;
@breaks=split /> foreach (@breaks){
chomp();
if (m!$m1\W!) {
m!>(\d+\.\d+) $stock->{ 'PRICE' }=$1;
}
elsif (m!$m2\W!) {
m!>(.*) $stock->{ 'DATE' }=$1;
}
}
}
}
print "$stock :: $stock->{'PRICE'} @ $stock->{'DATE'}\n";
}