glinks.pl

## glinks.pl
#!/usr/bin/env perl
use strict;
use LWP::Simple;

use LWP::UserAgent;
use HTTP::Request::Common qw/POST/;

my %form_data = (
		 "query"  => _return_seq(),
		 "format" => "nt",
                 "direct" => 1,
		 );

my $serv_url = "http://link.g-language.org/index.cgi";

my $ua = LWP::UserAgent->new();
my $request = POST($serv_url, [%form_data]);

$ua->request($request,
	     sub{
		 my($data, $response) = @_;
		 if ( $response->is_error() ) {
		     die ("Problems with the web server: ".$response->status_line);
		 } else { # $response->is_success()
		     print "$data";
		 }
	     },1000);


sub _return_seq {
    return<<SEQ;
MMQESATETISNSSMNQNGMSTLSSQLDAGSRDGRSSGDTSSEVSTVELLHLQQQQALQA
ARQLLLQQQTSGLKSPKSSDKQRPLQVPVSVAMMTPQVITPQQMQQILQQQVLSPQQLQA
LLQQQQAVMLQQQQLQEFYKKQQEQLHLQLLQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQHPGKQAKEQQQQQQQQQQLAAQQLVFQQQLLQMQQLQQQQHLLSLQRQG
LISIPPGQAALPVQSLPQAGLSPAEIQQLWKEVTGVHSMEDNGIKHGGLDLTTNNSSSTT
SSNTSKASPPITHHSIVNGQSSVLSARRDSSSHEETGASHTLYGHGVCKWPGCESICEDF
GQFLKHLNNEHALDDRSTAQCRVQMQVVQQLEIQLSKERERLQAMMTHLHMRPSEPKPSP
KPLNLVSSVTMSKNMLETSPQSLPQTPTTPTAPVTPITQGPSVITPASVPNVGAIRRRHS
DKYNIPMSSEIAPNYEFYKNADVRPPFTYATLIRQAIMESSDRQLTLNEIYSWFTRTFAY
FRRNAATWKNAVRHNLSLHKCFVRVENVKGAVWTVDEVEYQKRRSQKITGSPTLVKNIPT
SLGYGAALNASLQAALAESSLPLLSNPGLINNASSGLLQAVHEDLNGSLDHIDSNGNSSP
GCSPQPHIHSIHVKEEPVIAEDEDCPMSLVTTANHSPELEDDREIEEEPLSEDLE
SEQ
}