---
http://jokke.dk | Pulling the trigger at port 80

[ Reply to This | # ]

tell application "OmniWeb"
	set bigURL to address of browser 1
end tell

set bigURL to the URL of document 1

set bigURL to the address of browser 1

Two things:

1. You can use http://tinyurl.com/api-create.php?url= as your URL and you get back just the tinyurl, so you can simplify your script quite a bit.

2. This seemed like a good excuse to learn some more Cocoa, so I wrote a TinyURL Service. You can download it here:

   http://www.soffian.org/downloads/TinyURLService.service.zip

   Download it and place TinyURLService.service under ~/Library/Services and then logout/login. You can then select a URL in an editable text field and select Services -> TinyURL (command-shift-2) and it will get replaced with a tinyurl. Also, if you select a tinyurl, it will get replaced with the long form.

   Source code is available for the curious.

j.

-- get the url
tell application "Safari"
	set bigURL to the URL of document 1
	set theTitle to the name of document 1
end tell

-- build the command for curl...quoting the url
set curlCMD to ¬
	"curl --stderr /dev/null \"http://tinyurl.com/api-create.php?url=" & bigURL & "\""

-- run the script and get the result
set tinyURL to do shell script curlCMD

-- pass the value to Mail and put it in the body
tell application "Mail"
	activate
	set this_message to make new outgoing message with properties ¬
		{visible:true, subject:theTitle, content:(return & theTitle & ":" & return & tinyURL & return & return)}
end tell

#!/usr/bin/env perl
#
# tinyurl.pl
#
# juanfc 2006-06-30
#
# 
use WWW::Shorten::TinyURL;
use WWW::Shorten 'TinyURL';

if (!@ARGV) {
    $small = makeashorterlink(`pbpaste`);
    system("echo -n $small | pbcopy" );
    print "$smalln";
} else {
    foreach $a (@ARGV) {
        print makeashorterlink($a), "n";
    }
}

-- get the url
set bigURL to text returned of (display dialog "Enter URL to make Tiny:" default answer "")

-- build the command for curl...quoting the url
set curlCMD to ¬
	"curl --stderr /dev/null \"http://tinyurl.com/create.php?url=" & bigURL & "\""

-- grep for tinyurl value
set grepCMD to "| grep 'tinyurl value='"

-- use awk to pull the url out of the retuned page, using " as a delimiter
set awkCMD to "| awk -F'\"' '{ print $2 }'"

-- build the command
set shellCMD to curlCMD & grepCMD & awkCMD

-- run the script and get the result
do shell script shellCMD
set tinyURL to the result
display dialog "Here's the TinyURL:" default answer tinyURL

---
Doug's AppleScripts for iTunes
dougscripts.com

[ Reply to This | # ]