Auto-tagging of TagBoards

This Perl snippet illustrates how one can automatically post data to http://www.tag-board.com tag boards. Learn how Perl does POST requests.

<?prettify linenums=true?>

#!/usr/bin/perl
# AutoTagger-Perl v0.1a (June 26, 2004)
# Pravin [pravinp at gmail dot com]
# This snippet illustrates automatic tagging of
# http://www.tag-board.com tag boards

use HTTP::Request::Common;
use LWP::UserAgent;

# Enter your details here
my $myname = 'pravin';
my $myurl = 'http://pravin.insanitybegins.com';
my $mymessage = 'Test Message';

# Add taggy names to this list
my @taggylist = (
	'oh_its_dee',
	'me_reiya',
	'Vighy',
	'rrighton');

# Code Starts
$ua = LWP::UserAgent->new();
foreach (@taggylist)
{
	print '$_\t';
	$ua->request(POST 'http://www.tag-board.com/add.tag',
		[name => $_,
		tagname => $myname,
		tagurl =>$myurl,
		message => $mymessage]);
	print 'done\n';
}