Auto-tagging of TagBoards

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

 1 #!/usr/bin/perl
 2 # AutoTagger-Perl v0.1a (June 26, 2004)
 3 # Pravin [pravinp at gmail dot com]
 4 # This snippet illustrates automatic tagging of
 5 # http://www.tag-board.com tag boards
 6 
 7 use HTTP::Request::Common;
 8 use LWP::UserAgent;
 9 
10 # Enter your details here
11 my $myname = 'pravin';
12 my $myurl = 'http://pravin.insanitybegins.com';
13 my $mymessage = 'Test Message';
14 
15 # Add taggy names to this list
16 my @taggylist = (
17 	'oh_its_dee',
18 	'me_reiya',
19 	'Vighy',
20 	'rrighton');
21 
22 # Code Starts
23 $ua = LWP::UserAgent->new();
24 foreach (@taggylist)
25 {
26 	print '$_\t';
27 	$ua->request(POST 'http://www.tag-board.com/add.tag',
28 		[name => $_,
29 		tagname => $myname,
30 		tagurl =>$myurl,
31 		message => $mymessage]);
32 	print 'done\n';
33 }