Changeset 16810 for lang/ruby/echola

Timestamp:

07/29/08 22:07:57 (5 years ago)

Author:

whym

Message:

add posting function

Location:

lang/ruby/echola

Files:

• 99todo.txt (modified) (1 diff)
• lib/hatenahaikuagent.rb (added)
• random-replace-agent.rb (modified) (4 diffs)

lang/ruby/echola/99todo.txt

@@ -15 +15 @@
    - 文とか全文がスター引用されている場合に、文が壊れると思う
 
-* 二号機？（一号機の拡張）
+* 一.五号機
   - シードとなるテキストを与えて、それに対する反応っぽいものを返す
   - 単語間距離をコーパス中で測定して、適当に学習しておいて、それで近そうな文を選ぶ

lang/ruby/echola/random-replace-agent.rb

@@ -6 +6 @@
 require 'kconv'
 require 'optparse'
+require 'logger'
+require 'hatenahaikuagent'
+
+$logger = Logger.new "#{here}/random-replace-agent.log"
 $opt = Struct.
-        new(:verbose, :haikufile, :starfile, :num, :seeds).
-        new(false,    "#{here}/hatenahaiku.db", "#{here}/hatenastar.db", 30, [])
+          new(:verbose, :haikufile, :starfile, :sleep).
+          new(false,    "#{here}/hatenahaiku.db", "#{here}/hatenastar.db", 180)
 
 OptionParser.new do |opts|
@@ -39 +43 @@
 end
 
+$logger.info "#{allentries.size} entries loaded"
+$logger.info "#{allquotes.size} quotes loaded"
+
 class Array
   def randelem
@@ -45 +52 @@
 end
 
+haikuagent = HatenaHaikuAgent.new("#{here}/hatena-account.yaml", "#{here}/random-replace-agent.log")
+
 while true do
   ent = allentries.randelem
   quo_orig = ent.quotes.randelem
   if !quo_orig or quo_orig == '' then
+    $logger.info "skip entry: #{ent.inspect}"
     next
   end
@@ -54 +64 @@
   newtext = ent.text
   newtext.gsub!(/#{quo_orig}/, quo.text)
-  puts newtext
-  puts %! #{quo.text} <- #{quo_orig}!
-  puts ent.link, quo.link
+  haikuagent.post <<"EOD"
+#{newtext}
+
+
+#{ent.link}
+#{quo.link}
+EOD
+  $logger.info "post: #{newtext} made from #{ent.inspect}, #{quo.inspect}"
+  sleep $opt.sleep
 end