#!/usr/bin/perl use LWP::Simple; use CGI qw(:standard); use URI::Escape; # the path to the blog file $blogfile = "/home/asisaid/data/blog.txt"; # the absolute URL to the blog.cgi file $wwwblog = "http://asisaid.com/journal/"; #if ($ENV{'REMOTE_USER'} ne "tbutler") { print "Sorry, only Tim is allowed to write blog entries. :)\n"; #} #else { $action = param('action'); if ($action eq "" || $action eq "main") { print header; print < Add a Blog Entry Please enter your blog entry below. Press 'Preview' to see how it will look.

Mood: Location: Now playing:
Subject:
Intro:
Body:
Lyrics URL:
HTML_QUOTE } if ($action eq "preview") { $mood = param('mood'); $location = param('location'); $nowplaying = param('nowplaying'); $subject = param('subject'); $lyrics = param('lyrics'); $top = param('top'); $entry = param('entry'); $dispentry = $entry; $dispentry=~s/\r/
/g; $disptop = $top; $disptop=~s/\r/
/g; print header; print < Blog Entry - Preview This is how your blog entry will look (the time may be different when you submit the entry):

HTML_QUOTE $mytime = localtime(time() - 3600); $mytime=~s/.*? (.*) (.*):.* (.*)/$1, $3/; $timepart = $2; print "$mytime: $subject
\n"; if ($lyrics ne "") { $dispnowplaying = "$nowplaying"; } else { $dispnowplaying = $nowplaying; } print <Time: $timepart - Mood: $mood - Location: $location - Now playing: $dispnowplaying

$disptop

$dispentry

If you are happy with this, go ahead and click Submit below. If not, go back and edit your entry.

HTML_QUOTE print "\n"; print "\n"; print < HTML_QUOTE } if ($action eq "post") { $mood = param('mood'); $location = param('location'); $nowplaying = param('nowplaying'); $subject = param('subject'); $lyrics = param('lyrics'); $top = param('top'); $entry = param('entry'); $now = time(); $entry = "%20" unless ($entry); open(BLOG, ">>$blogfile"); print BLOG "${now}:--:${subject}:--:${mood}:--:${location}:--:${nowplaying}:--:${lyrics}\n$top\n$entry\n"; close(BLOG); $ping = get("http://newhome.weblogs.com/pingSiteForm?name=asisaid.com:+Tim%27s+Journal&url=http%3A%2F%2Fasisaid.com%2Fjournal%2F"); $ping = get("http://ping.blo.gs/?url=http%3A%2F%2Funinetsolutions.com%2Ftbutler%2Fjournal%2F&name=asisaid.com:+Tim%27s%20Journal&rssUrl=http%3A%2F%2Fasisaid.com%2Fjournal%2Fjournal.rss"); @pinglist = ("http://rpc.blogrolling.com/pinger/", "http://www.blogshares.com/rpc.php 1"); foreach $pingitem (@pinglist) { ping($pingitem); } print "Status: 302 Moved\nLocation: $wwwblog\n\n"; } #} sub ping { $pingaddress = $_[0]; # Create a user agent object use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("asisaid/0.1 " . $ua->agent); # Create a request my $req = new HTTP::Request POST =>$pingaddress; # put XML payload here. # $xmlcontent = <<"XMLEOT"; weblogUpdates.ping asisaid.com: Tim's Journal http://asisaid.com/journal/ XMLEOT $req->content_type('text/xml'); $req->content($xmlcontent); # Pass request to the user agent and get a response back my $res = $ua->request($req); # Check the outcome of the response if ($res->is_success) { open (LOG, ">/home/asisaid/data/blogdir/bloglog.txt"); print LOG "$pingaddress\n"; print LOG $res->content; close (LOG); return 1; } else { open (LOG, ">/home/asisaid/data/blogdir/bloglog.txt"); print LOG "didn't work!!!\n"; close (LOG); return 0; } }