#!/usr/bin/perl # Multiple Enquete v1.07.1 (2001/09/11) # 使い方表示スクリプト # このスクリプトはフリーウェアですが、著作権は作者(すこり)が保有します # このスクリプトを使用したいかなる損害に対しても作者は一切の責任を負いません # 利用規約→http://popup.tok2.com/home/skry/labo/rule.html # スクリプトに関する質問・要望・バグ報告等はサポート掲示板にお書きください # サポート掲示板→http://popup.tok2.com/home/skry/labo/support/wforum.cgi # すこり家 http://popup.tok2.com/home/skry/ # skry@post.tok2.com # このスクリプトはmultiq.cgiと同一ディレクトリに置いてください # 参照するライブラリの場所 require './multiqini.pl'; # -----メイン処理----- &decode; if ($howto eq 'make') { &making; } if ($howto eq 'vote') { &vote; } if ($howto eq 'remake') { &remake; } &main; # -----アンケート一覧----- sub main { &header('アンケート一覧について'); print "[アンケート一覧について] "; print "[新規設問作成について] "; if ($FORM{'num'}) { print "[投票について] "; } else { print "[投票について] "; } print "[管理モードについて]"; print "

"; print "