Posted By

engel on 02/21/08

Tagged

Versions (?)

Advertising

Website Promotion DIRECTORY is a crucial factor for all websites that need to gain better organic search engine rankings and increase website traffic.
Submitting your website as part of your Web Promotion strategy to our SEO friendly and high traffic Business Directory for review is an excellent way to gain a valuable backlink and increase your websites visibility online.

Who likes this?

2 people have marked this snippet as a favorite

mzim
jonhenshaw

shortLink

Published in: Perl

Easily and quickly shorten URLs from the command line. Utilizes TinyURL and MetaMark APIs.

Expand | Embed | Plain Text

#!/usr/bin/perl
 
package shortLink;
 
use Getopt::Std;
use LWP::UserAgent;
use strict;
use Switch;
 
our($opt_s, $opt_u);
 
getopts('s:u:');
 
help_message() unless $opt_u;
$opt_s = ( !$opt_s ) ? "tinyurl" : $opt_s;
 
switch ( $opt_s ) {
	case "tinyurl" {
		makeUA();
		my $r = $shortLink::ua->get('http://tinyurl.com/api-create.php?url=' . $opt_u);
		print errorCheck($r) . "\n";
	}
	case "metamark" {
		makeUA();
		my $r = $shortLink::ua->post('http://metamark.net/api/rest/simple', { long_url => $opt_u });
		print errorCheck($r) . "\n";
	}
	else {
		help_message();
	}
}
 
sub errorCheck {
	my $response = shift;
	if ( $response->is_success ) {
		return $response->content;
	} else {
		return "There was an error: " . $response->status_line . "\n";
	}
}
 
sub help_message {
	print "Usage: shortlink [ -s service ] -u url\n  -s service\tSpecify URL shortener service to use. Possible values:\n\t\t\ttinyurl\n\t\t\tmetamark\n";
}
 
sub makeUA {
	$shortLink::ua = LWP::UserAgent->new;
}

Report this snippet

Comment: