# このスクリプトを実行するユーザのユーザ名を取得
set userName to do shell script "whoami"

# ホームフォルダのPOSIX Pathを取得
set homeFolderPOSIXPath to "/Users/" & userName & "/"

# AppleScript用に「:」区切りのパスに変換
set homeFolderPath to POSIX file homeFolderPOSIXPath

# Safari の Web 閲覧履歴のファイル（History.db）パスを取得
set historyDBPOSIXPath to homeFolderPOSIXPath & "Library/Safari/History.db"

# AppleScript用に「:」区切りのパスに変換
set historyDBPath to POSIX file historyDBPOSIXPath

# 前回コピーしたHistory.dbとそれに関連するファイルを削除
do shell script "rm -f " & homeFolderPOSIXPath & "History*"

# Finder で History.db ファイルをホームフォルダ直下にコピー
tell application "Finder" to duplicate historyDBPath to homeFolderPath

--当初 One Liner コマンドでやろうとしたが難しかった
--do shell script "sqlite3 -header -csv ~/History.db 'select datetime(v.visit_time + 978307200, \"unixepoch\", \"localtime\") as date, i.domain_expansion, v.title,  i.url from history_items i left join history_visits v on i.id = v.history_item order by date desc;' > ~/browsingHistory.csv"

#スクリプトファイルの保存先フォルダパス
set scriptFolderPath to "/var/tmp/"

# SQLite3をスクリプト化したsqlファイルを読み込む方法でWeb閲覧履歴とホワイトリストとの差分をcsvでホームフォルダ直下に出力
do shell script "sqlite3 ~/History.db '.read " & scriptFolderPath & "sqlite_browssing_h.sql' > ~/blackurl.csv"

.mode csv
.import /var/tmp/urlWhiteList.csv whitelist
.headers on
.separator ,
SELECT datetime(v.visit_time + 978307200, 'unixepoch', 'localtime') as date, i.domain_expansion, v.title, i.url, w.url 
FROM history_items i 
LEFT JOIN history_visits v 
ON i.id = v.history_item 
LEFT JOIN whitelist w 
ON i.url 
LIKE (w.url || '%') 
WHERE w.url IS NULL 
ORDER BY date desc;
.quit