-- EXECUTE FROM MENU
on run
	tell application "Finder"
		set theList to selection
	end tell
	methods(theList)
end run

-- EXECUTE WITH DROPPED FILES
on open theList
	methods(theList)
end open

--MAIN
on methods(theList)
	repeat with x in theList
		copy x as alias to nowFile
		tell application "Finder"
			copy file type of nowFile to nowType
			copy creator type of nowFile to nowCreator
			copy comment of nowFile to nowComment
		end tell
		
		if nowType is "URL " and nowCreator is "MOSS" and nowComment is "" then
			
			open for access nowFile with write permission
			copy the result to fref
			read fref as string
			copy the result to nowURL
			close access fref
			tell application "Finder"
				set comment of nowFile to nowURL
				--UPDATE??
				update nowFile
			end tell
			
		end if
	end repeat
	
end methods