-- the list of file types which will be processed
-- eg: {"PICT", "JPEG", "TIFF", "GIFf"}
property type_list : {"MOV"}
-- since file types are optional in Mac OS X, 
-- check the name extension if there is no file type
-- NOTE: do not use periods (.) with the items in the name extensions list
-- eg: {"txt", "text", "jpg", "jpeg"}, NOT: {".txt", ".text", ".jpg", ".jpeg"}
property extension_list : {"mov"}

-- This droplet processes files dropped onto the applet
on open these_items
	repeat with i from 1 to the count of these_items
		set this_item to item i of these_items
		set the item_info to info for this_item
		if (folder of the item_info is false) and (alias of the item_info is false) and (the file type of the item_info is in the type_list) then
			convert_item(this_item)
			upload_item(compressed_item)
		end if
	end repeat
end open

--This converts
on convert_item(this_item)
	tell application "QuickTime Player"
		activate
		set initial_file to file "Pledge New" of folder "Info Flow" of disk "Media Storage"
		set compressed_file to "Media Storage:Info Flow:Pledge Compressed"
		export initial_file to compressed_file as QuickTime movie using most recent settings
		-- save export settings for QuickTime movie to "Media Storage:Chris:export settings"
	end tell
end convert_item

--Upload to binx
on upload_item(compressed_item)
	tell application "Fetch 4.0.1"
		activate
		make new transfer window at beginning with properties {hostname:"binx.mbhs.edu", userid:"", password:""}
		open remote directory "/home/httpd/bnc/vid/"
		put into transfer window "binx.mbhs.edu" item alias compressed_item format Automatic without uniquename
		quit Application "Fetch 4.0.1"
	end tell
end upload_item