#!/usr/bin/perl
# 
# sb - weblog management system
# == scripted by Takuya Otani ========
# == copyright (C) SimpleBoxes 2004 ==

use strict;
use vars qw($gVersion_ $gEncode $gLock_Dir $gLockFile);
use vars qw(%gIn @gIn %gData @gTemp %gEnv %gMsg $gNowTime);
use lib  qw(. ./lib ./lib/lang ./ext);
require 'addlib.cgi' if (-r 'addlib.cgi');
require 'sbcommon.pl';
&sbini_main();
exit(0);