judismith

set archivedTasks to ""
set hoursEntries to ""
tell application "TaskPaper"
	tell front document
		-- don't care which file your log entry came from?
		-- comment the next line out
		set archivedTasks to "## " & name & return
		set hoursEntries to "## " & name & ": Hours" & return
		repeat with _task in search with query "project != Archive and @done"
			if entry type of _task is not project type then

judismith

try
	set thePing to do shell script "/sbin/ping -o -c 5 www.google.com"
on error
	set thePing to "error"
end try

tell application "FileMaker Pro Advanced"
	if thePing is not "error" then
		set cell "g_internet" to "true"
	else

judismith

require 'net/https'
require 'uri'

require 'rubygems'
require 'json/pure'

# replace 9999999 with your instance id
@path = '/9999999/api/v1/projects.json'
@user = 'username'
@pass = 'password'

judismith

require 'net/https'
require 'uri'

# replace 9999999 with your instance id
@path = '/9999999/api/v1/projects.json'
@user = 'username'
@pass = 'password'

uri = URI.parse('https://basecamp.com')
http = Net::HTTP.new(uri.host, uri.port)

judismith

require 'net/https'
require 'uri'

require 'rubygems'
require 'json/pure'

@user = 'username'
@pass = 'password'

file = File.new("bc_proj.txt", "r")

judismith

require 'net/https'
require 'uri'

@path = '/api/v6/clients.json'

# insert API token in the user variable
@user = ''
@pass = 'api_token'

uri = URI.parse('https://www.toggl.com')

judismith

tell application "Evernote"
  if (not (tag named "exported" exists)) then
  	make tag with properties {name:"exported"}
	end if
	set matches to find notes "tag:etf"
	repeat with theNote in matches
		set myTitle to title of theNote
		set myTags to tags of theNote
		set tagList to ""
		repeat with theTag in myTags

judismith

tell application "Finder"
  set folderList to ""
	set mattersFolder to (((path to home folder as text) & "Google Drive:Matters:"))
	set clientFolders to get name of folders of folder mattersFolder
	repeat with theFolder in clientFolders
		set folderList to folderList & theFolder & return
		set thePath to mattersFolder & theFolder
		set subFolders to get the name of folders of folder thePath
		if (count of subFolders) is greater than 0 then
			repeat with aFolder in subFolders

judismith

tell application "Finder"
  set thePath to (path to desktop folder as text)
	set clientFolders to get name of folders of folder thePath
	repeat with theFolder in clientFolders
		if the theFolder starts with "_" then exit repeat
		set matterFolders to get folders of folder (thePath & theFolder as text)
		repeat with aFolder in matterFolders
			set clientName to theFolder as text
			set the name of aFolder to theFolder & " - " & the name of aFolder
		end repeat

judismith

tell application "Finder"
	
	-- set theFile to "Macintosh HD:Users:[username]:Google Drive:Matters:Test Folder:" -- For testing
	
	set myFile to do shell script "basename " & (the quoted form of (the POSIX path of theFile))
	
	-- check to see if it is worth starting OF
	if myFile does not start with "_" and (theFile as string) ends with ":" then
		set theDueDate to (current date) + 7 * days