transl8it.com interface

[thealienz1]

Category:

Fun Stuff

Description:

English:
--------
I was crawling the internet one day looking for translators for SMS text messaging. You so, I could be kewl, and confuse my friends with a language even I didn't understand. And so I found transl8it.com. It offers translation for english<->SMS lingo.

Lingo:
--------
I wz crawling d internet 1 dA L%kN 4 transl8rz 4 SMS txt msgN. U so, I c%d b kewl, & Confuz my fRnds w a language even I didn't undRstNd. & so I found transl8it.com. it offers transl8n 4 english<->SMS lingo.

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTML::Form;

my $agent = new LWP::UserAgent;
my $url = 'http://www.transl8it.com/index.cgi?convert';
if($ARGV[0] eq '-to') {
    #Translates from english to text lingo
    print "English to lingo - \n";
    print "Type Message: ";
    my $input = <STDIN>;
    chomp($input);

    #Actual FORM post data
    my %data = (    'txtMessage' => $input,
            'direction' => '<--'
        );
    my $request = $agent->request(POST $url, [%data]);
    my $content = $request->content();
    my @forms = HTML::Form->parse($content, $url);
    foreach my $form (@forms) {
        eval{
            if(defined($form->value('txtTranslation'))) {
                print "\nTranslation: \n" . $form->value('txtTranslati
+on');
                last;
            }
        };
        if(@_) {next;}
    }
} elsif($ARGV[0] eq '-from') {
    #Translates from text lingo to english
    print "lingo to English - \n";
    print "Type Message: ";
    my $input = <STDIN>;
    chomp($input);

    #Actual FORM post data
    my %data = (    'txtMessage' => $input,
            'direction' => '-->'
        );
    my $request = $agent->request(POST $url, [%data]);
    my $content = $request->content();
    my @forms = HTML::Form->parse($content, $url);
    foreach my $form (@forms) {
        eval{
            if(defined($form->value('txtTranslation'))) {
                print "\nTranslation: \n" . $form->value('txtTranslati
+on');
                last;
            }
        };
        if(@_) {next;}
    }
} else{
    print 'perl trans.pl (-to|-from)';
}