#!/usr/bin/perl -w
use warnings;
use strict;
use WWW::MakeAShorterLink;
use File::Basename;

my $longurl = shift;
usage() unless $longurl;

$longurl = clean_url($longurl);

my $shorturl = makeashorterlink($longurl);

if ($shorturl) {
  print "$shorturl\n";
  exit 0;
} else { 
  print "Failed to create a shortlink, ";
  print "no more information is avaiable\n";
  exit 2;
} 

#subs funcs anfd other utils.

sub usage {
#if arguments are missing call this.
my $appname = basename($0);

#i hate here docss, they fuck the indentation
print<<EOU;

$appname missing argument

  usage: $appname long-url

EOU

  exit 1;
}

sub clean_url {
  #increase chances of working by cleaning url.
  my $longurl = shift;

  #get rid of common surounding characters.
  $longurl =~ s/^[{[("']*//;
  $longurl =~ s/[})\]"']*$//;

  #way of cleaning misc characters
  #this is done seperate so we can removeing closing as well
  $longurl =~ s/^([^a-z0-9])*//i;

  if ($1) {
    my $opening = $1;
    print "Matched $1\n";
    $longurl =~ s/\Q$opening\E$//;
  }

  unless ($longurl =~ m!^https?://!) {
    $longurl = "http://" . $longurl;
  }

  return $longurl;
}