#!/usr/bin/perl
# ↑joker上におけるPerlファイル実行のためのpathは、/usr/local/perl でＯＫ。

print "Content-type: text/html\n\n"; # HTML文書を含むことを明示的に記述。「\n\n」も必要。

print "<html><head><title>Initialize Trace</title></head><body bgcolor=#ddffdd>\n";
print "<H3><center><br><br><br>ファイル内容を初期化しました！</center></H3>\n";

open(OUT, ">trace-ue.txt"); #
print OUT "";
close(OUT);

print "<meta http-equiv=Refresh content=1;URL=drs.html>";

# chown 9124, 1999, 'd_ue.obj'; # オーナーを変えるコマンドの筈？！
chmod 0777, 'trace-ue.txt'; ## 書き込み可能な制限を保たせる。
