package license;
use strict;
use session;
use date;

my $u=&sql::select1("_user","mainkey",&session::userName);
my $name="<i>ユーザ名</i>";
my $mail="<i>your\@mail.address</i>";
if ($u) {
    $name=$u->{name};
    $mail=$u->{mail};
}
my $year=new date->format("yyyy");

my $nowarranty = qq(
ご注意

このプログラムを使用したために発生したいかなる事故、問題等も作者($name)は
責任を負わないものとします。 );
my $copyHead=qq(Copyright $year, $name
All rights reserved.
);

sub explain {
    use tmpl;
    &tmpl::default("ライセンスとは","What is license?",<<"EOF");
<table><tr><td>
ライセンスとは、あなたが作成したソフトウェアを、ユーザがどのように使用していいか
を定めたルールのことです。
例えば、このソフトを再配布したり、改造したりしていいか、といった内容が含まれます。<P>

盗作などによるトラブルを防ぐためにも、あなたのソフトウェアのライセンスをきちんと決めて、
他のユーザのソフトウェアのライセンスを必ず守るようにしてください。

<ul>
<li> 同一プロジェクトのライセンスは原則として<strong>変更しないでください</strong>。
<li> <font color=red><strong>あなたが決めたライセンスの文書（テキスト）は、
ソフトウェアのアーカイブファイルに必ず含めてください。</strong></font>
</ul>

次に挙げるのは、ライセンスの例です。適切にコピーして、
あなたのソフトウェアのライセンス作りの参考にしてください。
<P>
    @{[&box(qq(
$copyHead
この文書全体(著作権表示、注意書き含む)を記したファイルを内容を変えずに、
ソフトウェアのアーカイブに含める限り、
このソフトウェアの改造、再配布は自由に行ってかまいません。
$nowarranty
	       ))]}
<P>
    @{[&box(qq(
$copyHead
このソフトウェアの改造、再配布を行いたい方は、作者までご連絡ください。
連絡先： $mail
$nowarranty
	       ))]}
<P>
    @{[&box(qq(
$copyHead
このソフトウェアの改造、再配布を禁止します。
$nowarranty
	       ))]}
</td></tr></table>

    @{[&html::back]}
EOF
}

sub box {
    my $s=shift;
    my $tbl=new table;
    $tbl->{bgcolor}="#aaaaff";
    $tbl->addRow->addCol("<PRE>".&html::escape($s)."</pre>");
    $tbl->out;
}
1;