HTMLを編集できるスクリプト

[上に] [前に] [次に]
イットリウム 1999/07/16(金) 11:47:40
http://pedsys.pos.to/collection2/renovate/renovations.html
のようなWEB上でHTMLを編集できるスクリプトを探しています。
このMaurice A. Tylerという名前のページを探しましたが見つかりませんでした。
Ｓ [E-Mail] [HomePage] 1999/07/17(土) 07:41:41
名前は少々違いますが、JavaScriptで書かれたHTMLエディタ
HTML EDITOR SCRIPT　と言うものがあります。
http://www.vector.co.jp/soft/win95/net/se090566.html
はずしていたら、ごめんなさい
イットリウム 1999/07/17(土) 10:27:17
WEB上で編集できるスクリプトをさがしています
すいません。
ニャラン 1999/07/17(土) 11:47:25
どんぴしゃりのスクリプトは知らないので、不親切な回答になりますが、
フォーム（<TEXTAREA>）の内容を読み込んでファイルに書き込み、
ファイルの内容をフォームに書き出すだけであれば、CGIの基本さえ
解かってしまえば、簡単に作成できます。
とほほさんの掲示板のスクリプトなどを参考に勉強してもよいかと・・・
月 1999/07/17(土) 13:49:56
スクリプトは、公開されてないみたいですが。。。
このようなものでしょうか？（下記ＵＲＬ）

http://hipopo.akuma.to/j/c/rakugaki/rakugaki.cgi
イットリウム 1999/07/17(土) 15:13:47
今までの知識を総動員して作ってみたのですが、
漢字コードの変換のしかたとかいろいろ自信が無いので
目を通していただけないでしょうか・・・？
一応まともに動いてはいるようなのですが、
これで編集したindex.htmlをテキストエディタで開くと、
<html>

<head></head>

<body>
のように、全文が一行おきになってしまうのはなぜでしょうか・・？
-------------------------------------------------
#!/usr/bin/perl

require './jcode.pl';
require './cgi-lib.pl';
&ReadParse;
####基本設定########################################
$home = '../index.html'; # 戻り先のURL
$pass = 'aaa'; # パスワード(半角英数字)
$script  = './edit.cgi'; # スクリプト名
$logfile = './index.html'; # 編集するファイル名
#####メイン処理####################################
&form_decode;
if ($mode eq "regist") { &regist; }
&html_log;

### --- 記事表示部 --- ###
sub html_log {
open(LOG,"$logfile");
@lines = <LOG>;
close(LOG);

# 表示開始
print "Content-type: text/html\n\n";
print "<html>\n<body bgcolor=#ccddcc>\n";
print "<form method=\"POST\" action=\"$script\">\n";
print "パスワード：<input type=text name=pw size=10 value=\"\">\n";
print "バックアップ：<input type=checkbox name=ba value=\"1\" checked>\n";
print "<input type=submit value=\"これでよし!\">\n";
print "<input type=hidden name=mode value=\"regist\">\n";
print "<textarea cols=100 rows=30 name=html wrap=off>@lines</textarea>\n";
print "</form>[<a href=\"$home\">戻る</a>]\n";
print "</body></html>\n";
exit;
}

### --- 書き込み処理 --- ###
sub regist {
if ($pass ne $pw) { &error("パスワードが違います"); }

# 文字コード変換(S-JIS)
&jcode'convert(*html,'sjis');

open(LOG,">$logfile");
print LOG "$html\n";
close(LOG);

#バックアップを取る
if($ba eq 1){
open(LOG,">$date.html");
print LOG "$html\n";
close(LOG);
}
}

### --- フォームからのデータ処理 --- ###
sub form_decode {
$html = $in{'html'};
$mode = $in{'mode'};
$pw = $in{'pw'};
$ba = $in{'ba'};

# 日時の取得
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($year < 10) { $year = "0$year"; }$mon++;if ($mon  < 10) { $mon  = "0$mon";  }if ($mday < 10) { $mday = "0$mday"; }if ($hour < 10) { $hour = "0$hour"; }if ($min  < 10) { $min  = "0$min";  }$youbi = ('日','月','火','水','木','金','土') [$wday];$date = "$year$mon$mday$hour$min";
}

### --- エラー処理 --- ###
sub error {
print "Content-type: text/html\n\n";
print "<html>\n<body bgcolor=#ccddcc>\n";
print "<center><hr width=75%><h3>システムエラー発生！</h3>\n";
print "<P><font color=#DD0000><B>$_[0]</B></font>\n";
print "<P><hr width=75%></center>\n";
print "</body></html>\n";
exit;
}
-------------------------------------------------

長文すいません。よろしくおねがいします。
Mugi [E-Mail] [HomePage] 1999/07/17(土) 16:36:17
上で紹介されている「HTML EDITOR SCRIPT」の
作者のMugiといいます。
ホームページでIE用HTML編集ソフト「IE HTMLEDIT」
を公開しています。
オンラインでもファイルの読み書き以外のほとんどの
機能が使えます。
試してみてください。
[上に] [前に] [次に]