#!/bin/bash
self="$0"
pushd "$(dirname -- $self)">/dev/null

ddlog()
{
    #username pwds out_cookie_file
    curl -c $3 http://www.diandian.com/login -d "account=$1&password=$2&persistent=1"
}

ddgetfrmkey()
{
    #cookiefile bgaddr out_put_ddfrmkey
    curl http://www.diandian.com/dianlog/$2/new/text  -b $1 |grep DDformKey|cut -d"'" -f 2 >$3
}

ddpost()
{
    #cookiefile bgaddr ddfrmkey  postfile
    cookiefile=$1;  bgaddr=$2; ddfrmkey=$3; postfile=$4
    ddcfg="$postfile.dd"
    tags=`cat $ddcfg|grep -v \#|grep tags` #has = !
    uri=`cat $ddcfg|grep -v \#|grep uri` # has = !
    formKey=`cat $ddfrmkey`
    markdownbody=$(python -c "import urllib; print urllib.quote(open('$postfile').read())")
    curl -b $cookiefile  http://www.diandian.com/dianlog/$bgaddr/new/text -d "formKey=$formKey&title=&markdownContent=$markdownbody&$uri&$tags&privacy=0&setTop=false&creativeCommonsEnable=true&creativeCommonsType=by_nc_sa&syncToWeibo=false&syncToQqWeibo=false&syncToDouban=false&syncToQzone=false&syncToRenren=false&syncToFacebook=false&syncToTwitter=false&syncToFlickr=false"

}

function showerr()
{
    echo err!
}

case $1 in  
    -l | --log-in)  
        ddlog $2 $3 $4
        ;;  
    -g | --get-fk)  
        ddgetfrmkey $2 $3 $4
        ;;
    -p | --post)  
        ddpost $2 $3 $4 $5
        ;; 
    *)  
        showerr
        ;;  
esac  

;;ddemacs
;;by Khalid Hsu
;;2012.10.17

(defvar dd-sh "~/bash/dd-foo.sh");;path of the bash script
(defvar dd-dir "~/.diandian");;dir for saving cookie and formkey
(defvar dd-acc "khalidhsu@gmail.com")
(defvar dd-pwd nil);;just leave it nil
(defvar dd-blog-addrs '("khalidhsu"  "anotherblog"))
(defvar dd-cfg-ext ".dd")
(defvar dd-cookie-file nil);;just leave it nil

(defun dd-select-blog(blog-list)
  "Before U post."
  (let ((blog-list-in-list
         (mapcon 'list blog-list))
        (ret nil))
    (while (or (not ret)
               (= 0 (length ret)))
      (setq ret (completing-read
                 "Select a blog:"
                 blog-list-in-list nil t (car blog-list))))
    ret))

(defun dd-check-dir()
  "Before U login"
  (if (not (file-readable-p
            (directory-file-name dd-dir)))
      (make-directory dd-dir)))

(defun dd-save-cookie()
  ;;#username pwds out_cookie_file
  (shell-command (format "bash %s -l %s %s %s" dd-sh
                         dd-acc dd-pwd dd-cookie-file)))

(defun dd-save-formkey()
  ;;#cookiefile bgaddr out_put_ddfrmkey
  (mapc '(lambda (x)
           (shell-command
            (format "bash %s -g %s %s %s" dd-sh
                    dd-cookie-file x (expand-file-name
                                      x dd-dir))))
        dd-blog-addrs))

(defun dd-login()
  (interactive)
  (dd-init)
  (dd-check-dir)
  (setq dd-pwd (read-passwd "Password:"))
  (dd-save-cookie)
  (dd-save-formkey)
  (message "Done."))

(defun dd-post()
  "To post the dd article."
  (interactive)
  (dd-init)
  (save-buffer t)
  (let ((ddbuf (buffer-file-name (current-buffer)))
        target-bg
        target-bg-frmk
        ddcfgf ;;.dd
        post-cmd)
    (if  (string-suffix-p  dd-cfg-ext ddbuf)
        (setq ddbuf (substring ddbuf 0 -3)));;in case the user got it wrong
    (setq ddcfgf (concat ddbuf dd-cfg-ext))
    (if (not (file-readable-p ddcfgf) )
        (progn (dd-cfg)
               (message "Finish the dd cfg first!"))
      ;;else part: all-fine
      (setq target-bg (dd-select-blog dd-blog-addrs))
      (setq target-bg-frmk (expand-file-name target-bg dd-dir))
      ;;#cookiefile bgaddr ddfrmkey  postfile
      (setq post-cmd
            (format "bash %s -p %s %s %s %s" dd-sh
                    dd-cookie-file  target-bg target-bg-frmk ddbuf ))
      (m-eshell)
      (insert post-cmd))))

(defun dd-cfg()
  "To write the dd cfg file."
  (interactive)
  (save-buffer t)
  (let ((postname (i-get-buf-base-name (current-buffer))))
    (find-file (concat (buffer-file-name
                        (current-buffer)) dd-cfg-ext))
    (if (> (+ (point-min) 10) (point-max))
        (progn
          (delete-region (point-min) (point-max))
          (insert "[ddcfg]\n")
          (insert "tags=\n")
          (insert (concat "#uri=post%2F"
                          (format-time-string "%Y-%m-%d")
                          "%2F" postname "\n"))
          (save-buffer t)))))

(defun dd-init()
  "Exec-ed by the func of 'login' and 'post'."
  (interactive)
  (setq dd-cookie-file
        (expand-file-name "ddcookie"
                          dd-dir)))

(defalias 'ddp 'dd-post)
(defalias 'ddc 'dd-cfg)
(defalias 'ddl 'dd-login)

(provide 'dd-emacs)