[ic] Short codes and QR code generator

[S_caballe]

Al 23/03/12 08:13, En/na Paul Jordan ha escrit:
>
> Anybody have any work they can share using QR codes in IC, like a usertag or
> such? Also looking for Short Codes (like bit.ly), mostly WRT to generating them.
>

I use this usertag for tinyurl service:


UserTag tinyurl HasEndTag
UserTag tinyurl Interpolate

UserTag tinyurl Routine   <<EOR

sub {
use strict;
use LWP;
my $input = $_[0];
$input =~ s/^ht{2}p:\/{2}//;
my $url = 'http://tinyurl.com/api-create.php?url=http://'.$input;
my $browser = LWP::UserAgent->new;
my $response = $browser->get($url);
die "Can't get $url --", $response->status_line unless $response->is_success;
return $response->content." "}

EOR


regards
Salvador Caballé