利用MetaWeblog API进行Blog的批量处理

考虑到隐私问题，决定把部落格（Windows Live Space）中一些敏感的文（在特定的Category中）批量删除。这篇文就叙述一下如何利用MetaWeblog API和F#来进行这样的操作。

 

Windows Live Space的API是标准的MetaWeblog API，支持getPost, newPost, deletePost这样的基本操作，这些操作一般都需要PostID。所以只要拿到我们想要删除的文章的PostID就可以批量处理了。

但问题在这个API里面没有类似getAllPosts的接口，相类似的只有getRecentPosts，而且最多只能拿到最近20个。因此光从API中我们无法知道所有文章的PostID。在这里卡了一会。但是观察最近20个文章的PostID可以发现，它符合这样的模式：

 

5E76F306F39CCB3A!5038

5E76F306F39CCB3A!5027

5E76F306F39CCB3A!4936

…………

 

前面都是相同的字符串，变化的只是后面的数字而已。这样就提供了一种思路，我们手动观察部落格里最小的ID和最大的ID是多少，由此生成类似的候选PostID，然后一个个用getPost去尝试这是不是合法的PostID。下面就好办了。

 

所以算法基本就是：

生成候选ID

|> 过滤为合法ID

|> 过滤为指定Category的ID

|> 删除！

 

利用F#的异步操作可以并行处理大量的I/O请求。这里采用了MSDN提供的MetaWeblogAPI实现，和xml-rpc.NET（因为MetaWeblog API是基于xml-rpc协议的）。同样道理还可以实现批量搬家，示例代码如下。可惜似乎由于Windows Live Space服务器并发连接数限制，I/O加速效果并不太明显（加速比约为2倍）。

 

open System;
open System.Net;
open System.IO;
open MetaWeblogApi;

let mutable mw = new MsnSpacesMetaWeblog();
let username = "YourOldUserName";
let password = "YourOldSecretWord";
mw.Credentials <- new NetworkCredential(username, password);

let mutable mw2 = new MsnSpacesMetaWeblog();
let username2 = "YourNewUserName";
let password2 = "YourNewSecretWord"
mw2.Credentials <- new NetworkCredential(username2, password2);

let VerifyPostId id = 
    async{
        try
            let postId = "5E76F306F39CCB3A! or your own prefix" + id.ToString();
            let post = mw.getPost(postId, username, password);
            printf "%s\t" post.postid;
            printfn "%s" post.title;
            return post.postid;
        with
        | _ -> return "";
    }

let FilterPost id = 
    async{
        let post = mw.getPost(id, username, password);
        if (not(post.title = "") && post.categories |> Array.exists(fun x -> x = "Your categary")) then
            printf "%s\t" id;
            printfn "%s" post.title;
            return id;
        else
            return "";
    }

let CopyPost id = 
    async{
        let mutable post = mw.getPost(id, username, password);
        post.dateCreated <- DateTime.Now;   //or the server will return error that illegal publish date.
        mw2.newPost("MyBlog", username2, password2, post, true) |> ignore;
        printf "%s\t" post.postid;
        printfn "%s" post.title;
    }

let DeletePost id = 
    async{
        let post = mw.getPost(id, username, password);
        mw.deletePost("MyBlog", id, username, password, true) |> ignore;
        printfn "%s" id;
    }

printfn "Skim post ids...";
let ids = 
    [114..5366] //that depends on the Id range of your blog
    |> List.map(fun x -> VerifyPostId x)
    |> Async.Parallel
    |> Async.RunSynchronously
    |> Array.filter(fun x -> not(x = ""));
File.WriteAllLines("PostIds.txt", ids);

printfn "Filter posts...";
let postIdsToCopy = 
    File.ReadAllLines("PostIds.txt")
    |> Array.map (fun x -> FilterPost x)
    |> Async.Parallel
    |> Async.RunSynchronously;
File.WriteAllLines("PostIdsToCopy.txt", postIdsToCopy);

printfn "Copy posts...";
File.ReadAllLines("PostIdsToCopy.txt")
|> Array.map (fun x -> CopyPost x)
|> Async.Parallel
|> Async.RunSynchronously
|> ignore;

printfn "Deleting old posts..."
File.ReadAllLines("PostIdsToCopy.txt")
|> Array.map (fun x -> DeletePost x)
|> Async.Parallel
|> Async.RunSynchronously
|> ignore;