#!/usr/bin/tclsh
## TCL (Chrome Paste Script)

weechat::register "paste" "znf" "0.1" "GPL3" "Paste from Chrome" "" ""
weechat::print "" "Hello, from Chrome Paste!"

weechat::hook_timer 1000 0 0 "paste_stuff" ""

proc paste_stuff {} {
   foreach file [glob -directory /var/www/paste/ -type f -nocomplain *.chatoo] {
      set url [read $file]
      weechat::print "" "$url"
   }
   return $::weechat::WEECHAT_RC_OK
}