=head スクリプト名
memol_edit.cgi - メモ作成編集（「メモる」システムの CGI の一つ）
=head 概要
HTML フォーム等からの変数入力に基づいて、memol 言語による HTML メモのテキストフォームを生成する。保存時に、memol.cgi を起動し、HTML メモを生成する。
=head 更新履歴
2004-11-19 rakumemo.cgiの引用部分の行をパラグラフとして出力していたのを
タグを付加するだけに変更。(ver: 1.02)
2004-11-07 更新日記検索(renewal_r.cgi ver: 1.01)の検索結果記事のメモ作成リンクからメモデータを取得できるように追加。(ver: 1.01)
=cut
require 'cgi-lib.pl';
&ReadParse(*in);
# 環境変数の取得とメモを格納するディレクトリ名の設定
$docroot = $ENV{'DOCROOT'};# HTTP サーバーのドキュメント格納ディレクトリ
$cgidir = $ENV{'CGIDIR'};# HTTP の CGI を格納する相対パス
$memodir = "memo";# メモ格納ディレクトリ名
# クリップメモを使う場合に備えて DBM データベースをオープンする。
dbmopen CLIPMEMO, 'clipmemo', 0666;
# メモ入力 HTML 先頭部分 CGI 出力
print <
Memol
メモる
TOP
# momo.html のフォームからのデータに基づいてメモファイル名を設定する
# $in{'today'} の値が yes であれば今日の日付のメモを作成する
# $in{'date'} の値があれば、その値の日付のメモを作成する
# いずれでもなければ、現在の日付のメモを指定する
if($in{'today'} eq 'yes'){
$date = &date;
}elsif($in{'selecteddate'}){
$date = $in{'selecteddate'};
}elsif($in{'date'}){
$date = $in{'date'};
}else{
$date = &date;
}
if($date !~ /^\d{4}-\d{2}-\d{2}$/){
print "メモの日付、${date}が不正です。";
exit;
}
$infile = "memo_${date}.html";# メモファイル名の設定
# メモ入力フォーム先頭部分の CGI 出力
# メモファイル名 $infile は CGIのパス名の後に / で区切って渡される
# memol.cgi は環境変数 PATH_INFO から /$infile として受け取る
print <