1 ViKi 编译脚本

为了方便生成的 HTML 的打包与上传,最好不要把 viki 文件与生成的 HTML 文件放在同一个目录下,滇狐提供的 Linux 和 Windows 下的编译脚本中,开头部分都含有目的 HTML 存放路径的定义,请根据需要进行修改。

在 Linux 下,滇狐编写了一段 shell 脚本来处理 ViKi 的编译,只要将以下脚本存放到 viki 文件所在的文件夹,修改“TARGET_DIR”一行,将它指向你存放 HTML 的目的文件夹,然后到 viki 所在文件夹下执行该脚本就可以了:

#!/usr/bin/env bash

umask 0022

TARGET_DIR=~/Public/html
ARGS="-m lang-zh_CN-autospace -m utf8 -m code-vim73 -t bright.html --css bright -X"

if $# -gt 0 ]; then
  all=yes
else
  all=no
fi

for file in *.viki; do
  filebase=`basename "$file" .viki`
  output="$TARGET_DIR/$filebase.html"
  shouldbuild=no
  if [ "$all= "yes" -o "$file-nt "$output" ]; then
    shouldbuild=yes
  fi
  if [ "$shouldbuild= "no" ]; then
    for dep in `grep '^#WITH ' $file | \
          sed -e 's/^#WITH file=//' -e 's/:.*$//'`do
      if [ "$dep-nt "$output" ]; then
        shouldbuild=yes
        break
      fi
    done
  fi
  if [ "$shouldbuild= "yes" ]; then
    tempfile=`tempfile`
    deplate -o "$output$ARGS "$file"
    echo "$filebase" >> upload.txt
    rm -rf $TARGET_DIR/*_code_*
    tags=`grep ^#KEYWORDS: $file | head -1 | cut -c 1-11 --complement`
    if [ "$tags!= "" ]; then
      title=`grep ^#TITLE: $file | head -1 | cut -c 1-8 --complement`
      if [ "$title= "" ]; then
        title="<无标题文档>"
      fi
      echo "$tags" sed 's/ *; */\n/g' | (
        while read tag; do
          tagfile=$(printf 'tag_%02x_%s' \
              "$(echo -n "$tag" | wc -c)" \
              "$(echo -n "$tag" | md5sum | awk '{ print $1 }')")
          echo -n "<a href=\"$tagfile.html\">$tag</a> " >> $tempfile
        done
      )
      command="s,TAGS_GO""ES_HERE,<div id=\"tags\"> 标签:`cat $tempfile`</div>,"
    else
      command="s,TAGS_GO""ES_HERE,,"
    fi
    if grep -q 'TAGS_GO''ES_HERE$TARGET_DIR/$filebase.html ; then
      sed -i -e "$command$TARGET_DIR/$filebase.html
    fi
    rm $tempfile
  fi
done

mv upload.txt upload.bak
sort upload.bak | uniq > upload.txt
rm -f upload.bak

滇狐不在 Windows 下写 ViKi,不过还是为仍在 Windows 下受苦的朋友们提供了使用 vbs 编写的编译脚本。将这个脚本放到 viki 文件所在的文件夹下,命名为 build.vbs,修改“htmlPath”一行,将它指向你存放 HTML 的目的文件夹,然后到 viki 所在文件夹下双击该脚本就可以了。这个脚本是滇狐 2005 年写的,已经长时间没有在 Windows 下测试过该段脚本的有效性,所以如果这段脚本在你的机器上无法正常运行的话,请自行修改,欢迎将修改后的脚本发回给滇狐共享。

On Error Resume Next

htmlPath = "C:\Documents and Settings\edward\My Documents\html"
args = "-m zh-cn-autospace -m utf8 -m code-vim73 -t bright.html --css bright -X"

If Right(htmlPath, 1) <> "\" Then
    htmlPath = htmlPath & "\"
End If

sSelfPath = WScript.ScriptFullName
sSelfPath = Left(sSelfPath, InStrRev(sSelfPath, "\") - 1)

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
tSelfTime = fso.GetFile(WScript.ScriptFullName).DateLastModified

Set folder = fso.GetFolder(sSelfPath)
For Each file In folder.Files
    build = false
    vikiName = file.Name
    htmlFilename = ""

    If Len(vikiName) > 5 Then
        If LCase(Right(vikiName, 5)) = ".viki" Then
            htmlFilename = htmlPath & Left(vikiName, Len(vikiName) - 5) _
                & ".html"
            If fso.FileExists(htmlFilename) Then
                Set htmlFile = fso.GetFile(htmlFilename)
                If file.DateLastModified > htmlFile.DateLastModified Or _
                    tSelfTime> htmlFile.DateLastModified Then
                    build = True
                End if
            Else
                build = True
            End if
        End if
    End If

    If build Then
        cmdLine = "deplate.exe " & args & " -d " _
            & """" & Replace(htmlPath, "\""/") & """ " _
            & """" & Replace(file.Path, "\""/")  & """"
        WScript.StdOut.WriteLine cmdLine
        Set oExec = WshShell.Exec("cmd.exe /c " & cmdLine & " 2>&1")
        While Not oExec.StdOut.AtEndOfStream
            Line = oExec.StdOut.ReadLine
            WScript.StdOut.WriteLine Line
        Wend
    End if
Next

cmdLine = "del """ & htmlPath & "code_*"" """ & htmlPath & "deplateCodeAuto*"""
WScript.StdOut.WriteLine cmdLine
Set oExec = WshShell.Exec("cmd.exe /c " & cmdLine & " 2>&1")
While Not oExec.StdOut.AtEndOfStream
    Line = oExec.StdOut.ReadLine
    WScript.StdOut.WriteLine Line
Wend

Set fso = Nothing
Set WshShell = Nothing

2 更新日志生成脚本

滇狐曾经使用这段 sh 脚本生成网站的更新日志,目前暂不提供该脚本的 Windows 版本。

#!/bin/sh

get_title()
{
    titleline="`grep '^#TITLE:' $filename`"
    title="${titleline/\\#TITLE:/}"
    title=`echo $title`
    if test "$title= ""then
        title="<无标题文档>"
    fi
}

list_item()
{
    get_title
    echo >> $logfile
    echo "    * [[`basename $filename .viki`][$title]]" >> $logfile
}

logtitle=`date +"%Y 年 %m 月 %d 日 更新日志"`
logfile=`date +"log_%Y%m%d.viki"`
echo "#TITLE: $logtitle" $logfile
echo >> $logfile
echo $logtitle >> $logfile

for item in `grep \\.html$ upload.txt`
do
    filename=`basename $item .html`.viki
    list_item
done

touch log.viki
grep -v '#TITLE:' log.viki > log.bak

echo "#TITLE: 更新日志" > log.viki
echo >> log.viki
echo "    * [[`basename $logfile .viki`][$logtitle]]" >> log.viki
cat log.bak >> log.viki
rm -f log.bak

3 打包上传脚本

由于学校提供的服务器不支持 FTP 上传,HTTP 上传总是比较麻烦。幸好服务器支持 zip 包的上传解压,为了节省工作量,滇狐使用这段脚本生成上传用的 zip 包。从上文的编译脚本可以看出,滇狐在编译时记录了被更新过的文件名列表,所以打包的时候就比较简单了:

#!/bin/sh

TARGET_DIR=~/Public
TARGET=html
ZIP_FILE=html.zip

curpath=`pwd`
pushd .

cd $TARGET_DIR
rm -f $ZIP_FILE

for file in `cat $curpath/upload.txt`
do
    zip $ZIP_FILE $TARGET/$file
done

popd

rm -f upload.txt

Windows 下的打包脚本就不提供了,因为 xcopy 命令可以自动判断文件修改时间,很容易自己写一个打包脚本。而且,大部分 Windows 机器上都不会安装 zip.exe,所以滇狐没法提供一个通用的 zip 打包脚本。