#!/usr/bin/perl
######################################################################
## add_vbrd_gem.pl 添加一个外挂版面精华区到某个目录中
##
## 用法: ./add_vbrd_gem.pl <添至索引文件> <虚拟版绝对路径> <英文名> <中文名>
## 注意: 英文版名不要冲突
######################################################################
$bbshome = "/home/maple";
$archive32 = "0123456789ABCDEFGHIJKLMNOPQRSTUV";

if (@ARGV < 2) {
    print "Usage: <indexDAT> <pathOFvbrd> <brdName> <brdTitle>\n";
    exit;
}

$time = time();

@p = localtime($time);
$p[5] %= 100;
$date = sprintf("%02d/%02d/%02d", $p[5], $p[4] + 1, $p[3]);
$mode = 0x00020000 | 0x00010000;
$title = sprintf("%-17s%s", $ARGV[2], $ARGV[3]);
$xname = $ARGV[2];

open(INDEX, ">> $ARGV[0]") || die "Can't open file $ARGV[0] to write!";
binmode(INDEX);
print INDEX pack("Liia32a80a50a9a73", $time, $mode, 0, $xname, "[明月使]", "",
$date, $title);
close(INDEX);
$cmd = "ln -s $ARGV[1] $bbshome/gem/brd/$ARGV[2]";
system($cmd);
--