Surf Log

 1
 2  require 'xmlrpc/client'
 3  require 'pp'
 4  require 'iconv'
 5
 6  MT_XMLRPC_URL = "http://www.lastmind.net/mt-xmlrpc.cgi"
 7  APPKEY = "/home/cestlavie/WWWRoot/mt"
 8
 9  print "ID: "
10  id = gets.rstrip
11  print "Passwd: "
12  system "stty -echo"
13  passwd = gets.rstrip
14  system "stty echo"
15
16  def utf8(s)
17      Iconv::iconv( "utf-8", "euc-kr", s).to_s
18  end
19
20  def getUsersBlogs(id, passwd)
21      begin
22          server = XMLRPC::Client.new2(MT_XMLRPC_URL)
23          result = server.call("blogger.getUsersBlogs", APPKEY, id, passwd)
24          return result
25      rescue XMLRPC::FaultException
26          pp $!
27      end
28  end
29
30  def getRecentPosts(blogid, id, passwd)
31      begin
32          server = XMLRPC::Client.new2(MT_XMLRPC_URL)
33          result = server.call("blogger.getRecentPosts", APPKEY, blogid, id, passwd, 1)
34          return result
35      rescue XMLRPC::FaultException
36          #$stderr.print $!
37          pp $!
38          #raise
39      end
40  end
41
42  def newPost(blogid, id, passwd, content, publish)
43      begin
44          server = XMLRPC::Client.new2(MT_XMLRPC_URL)
45          # blogger.newPost use content as title and description (NOT GOOD!)
46          # result = server.call("blogger.newPost", APPKEY, blogid, id, passwd, content, publish)
47          result = server.call("metaWeblog.newPost", blogid, id, passwd, content, publish)
48          return result
49      rescue XMLRPC::FaultException
50          #$stderr.print $!
51          pp $!
52          #raise
53      end
54  end
55  print utf8('merong');
56
57  print "n"
58  getUsersBlogs(id, passwd).each do |blog|
59      #pp blog
60      print "[#{blog["blogid"]}] #{blog["blogName"]} (#{blog["url"]})n"
61  end
62
63  print "Select a blog to post: "
64  blogid = gets.rstrip
65
66  print "Title: "
67  title = gets.rstrip
68
69  print "URL: "
70  url = gets.rstrip
71
72  print "Description: "
73  description = gets.rstrip
74
75  content = {
76      'title' => utf8(title),
77      'description' => utf8(description),
78      'mt_excerpt' => utf8(url),
79  }
80
81  postid = newPost(blogid, id, passwd, content, true)
82  pp postid
83