△▲ WebProg 初心者の質問 ▼▽
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/08/24 10:18ID:Xl1boM6sWebProg 板は初めて。
質問したいけど、どうしたら良いか分からない。
そんなときは、ここに書き込んでください。
板の住人や、その他が、けなしながら、厳しく教えてくれるかも。
質問する前に、まずはここを読んでね。
2ch 総合ガイド
http://www.2ch.net/guide/
記念カキコ専用スレ
http://pc.2ch.net/test/read.cgi/php/982575577/
お願い。
適切な、板、スレ、を発見した場合、誘導してあげましょう。
スレの性質上 age 進行でお願いします。
0554sage
02/10/27 00:35ID:Mh7N2wRCしかし、ご指摘の記述（スクリプトにある説明）は、私のダウンロードしたものには
ありませんでした。既に１０回ほど読み、読み落としの可能性から今も確認しましたが
やはりありませんでした。
しかし、ホンとに助かりました。重ねて、ありがとうございました＞553
0555ごめん
02/10/27 00:36ID:???0556nobodyさん
02/10/27 01:23ID:CEDYMIQhたとえばhoge.cgiというスクリプト名で、hoge.cgi/testとすると、
なぜか/test/testと二重に表示されてしまいます。。
これは鯖が悪いのかもともとこういうものなのか(後者はありえないと思いますが)
教えていただけると嬉しいです。。
0557nobodyさん
02/10/27 01:52ID:???そりゃcgiが間違ってなければ鯖が変。
0558nobodyさん
02/10/27 01:54ID:CEDYMIQhレスありがとうございます。
とりあえずテストで置いてみたCGIは
#!/usr/local/bin/perl
print "content-type: text/html\n\n";
print "$ENV{'PATH_INFO'}";
exit;
↑これなんですけど、間違ってはいない、、、ですよね？
0559nobodyさん
02/10/27 16:18ID:???そりゃ間違いようがないな。
0560nobodyさん
02/10/27 21:22ID:???これって17氏スクリプトじゃないか？
0561nobodyさん
02/10/27 21:48ID:???スクリプト変えたよ、read.cgi4.20になw
棒固定逝ってよし
ちなみにこれが
>>560の板主だよ
0562nobodyさん
02/10/27 21:53ID:pWncJs7yperlでそのプログラムが実行された日時を
取得するにはどうしたらよいのでしょうか？
$ENV{'TZ'} = "JST-9";
これをつかって時間設定をするところまでは
わかったのですが、、、、、
$year += 1900;
++$mon;
0564nobodyさん
02/10/28 01:53ID:???実際にフォームに書かれている文字のコードは
何なのでしょうか？
例えば、HTMLファイルがSJISで表示するようにしてあるなら
SJSIで、EUCならEUCか
WindowsならSJISが送られてくるとか
なにかきまりはあるのでしょうか？
0565nobodyさん
02/10/28 02:22ID:???最近どこかで出た話題だな。
ふつう、ページの文字コードと同じ。
とりあえずページにはMATAタグでCHARSET指定くらいちゃんとしといたほうがいいだろな。
0566困ったﾔｼ
02/10/28 10:56ID:???0567nobodyさん
02/10/28 11:03ID:???VBscriptについて語りましょう
http://pc3.2ch.net/test/read.cgi/hp/1018858947/
寂れたスレッド発見。
0570nobodyさん
02/10/28 16:55ID:???弾いているのでしょうか。
また、プロキシサーバーなどのリストやプロバイダの
リストなどはあるのでしょうか。
0571nobodyさん
02/10/28 17:39ID:???> プロキシを弾きたいのですが、2chではどうやって
> 弾いているのでしょうか。
ポートスキャン。
ここでポートスキャンに関して質問するのは御法度。
> また、プロキシサーバーなどのリストやプロバイダの
> リストなどはあるのでしょうか。
日々無くなっては別のが現れる繰り返し。
0572nobodyさん
02/10/28 18:25ID:???> 弾いているのでしょうか。
プロクシ的兆候のあるものを弾く。
ポートスキャンして特定ポートが開いていたら弾く。
以上。
検索エンジン使え。
0573HN
02/10/28 19:54ID:L5dzzUtF機能を追加すればするほど、システムが複雑化してきます。それを解決するには「プラグイン機構」を用意するのがよいのではないかと考えました。
簡単な手続き（プラグインファイルの追加、削除）で、機能の追加、削除を行えるようにします。利用者にとっては、利用しない機能を取り外すことができるようになるため、システム利用方法が明確になります。
関連機能単位でシステムを導入するため、利用したい機能だけを購入することができるようになります。したがって、システムを導入する方々のコストの低減が可能になります。
開発側にとっては、手続きも効率化のメリットがあります。本体と拡張機能との分離が明確になるため、開発上のミスが少なくなります。また、拡張を前提とした設計を行うことになるため、機能の追加が容易くなり、拡張性、将来性の高いシステムとなります。
--
この思いつきは真ですか？
0574nobodyさん
02/10/29 17:47ID:???ERPとかを調べてみなされ。
0575nobodyさん
02/10/31 00:54ID:???otherよりもgroupのパーミッションを制限するメリットはなんですか？
0576nobodyさん
02/10/31 00:58ID:j7v4mDxohttp://www.tripod.co.jp/guides/cgi2.html
このsendmail
を使って、WAUというツールを使ってみたいです。
ソース、どういう風にしたらいいか教えてください。
初心者ですが、、どうか何卒。
宜しくお願いします。JAVAアプレットオフの人をとばす文字列も教えてください・・
noscriptみたいな感じでしたっけ・・
0577nobodyさん
02/10/31 01:14ID:j7v4mDxo0578nobodyさん
02/10/31 01:39ID:???0579nobodyさん
02/10/31 01:53ID:???そういう設定にするかどうかはサーバの設定によるが、パーミッションの考え方としては当然だと思うが?
WEBアクセスユーザをgroupに所属させておくメリットがあるとでも?
0580nobodyさん
02/10/31 01:54ID:???Dragon Ball
0582nobodyさん
02/10/31 02:03ID:j7v4mDxohttp://www.tripod.co.jp/guides/cgi2.html
を、JAVAのツールで使いたいのです。
次のレスにソースを張ります。
宜しくお願いします。
0583nobodyさん
02/10/31 02:04ID:j7v4mDxo$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
$browser = $in{'browser'};
$referrer = $in{'referrer'};
$compname = $in{'compname'};
$host=$ENV{'REMOTE_HOST'};
$addr=$ENV{'REMOTE_ADDR'};
if ($host eq '') { $host = $addr; }
if ($host eq $addr){ $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;}
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year=$year+1900;
print "Content-type: text/html\n\n";
print "<body>\n";
print "remote host: $host\n";
print "remote addr: $addr\n";
print "refferer: $referrer\n";
print " </body>\n";
$mailto = '@'; #自分のメールアドレス
open(MAIL,"| /usr/sbin/sendmail -t");
0584582=583
02/10/31 02:05ID:j7v4mDxoコレを、tripodの、５８２のリンクに書いてあるのと調整して使いたいのです。
どう変化させたらいいでしょうか・・
お願いします
0585nobodyさん
02/10/31 02:17ID:???0586582=583
02/10/31 02:18ID:j7v4mDxo書いてはあるのですが、
コレを、ツールにどう組み込んだらいいのか、
分からないのです・・直接ブチ込めばいいのでしょうか。
0587582=583
02/10/31 02:20ID:j7v4mDxorequire TripodMail;
$mail= new TripodMail;
$mail->sendMail($template, /%hash);
これを・・。
0588582=583
02/10/31 02:20ID:j7v4mDxosendmailパスを何と入れたらいいのこあ・・
0589nobodyさん
02/10/31 02:21ID:???∧＿∧
（ ´∀｀）
/, つ
（_（＿, ）
しし'
0590582=583
02/10/31 02:22ID:j7v4mDxoそれと最後のsendmailは・・
0591nobodyさん
02/10/31 02:23ID:4q5frR3O0592582=583
02/10/31 02:28ID:j7v4mDxo0593nobodyさん
02/10/31 02:30ID:???0594582=583
02/10/31 02:31ID:j7v4mDxo鳥はsendmail使えないのです
0595nobodyさん
02/10/31 02:33ID:???なんかややこしいね。テンプレートファイル作れとかなんとか。
sendmailパスは必要ないよ、モジュール使うみたいなので、>>583をちょこっと改造するぐらいじゃ
無理っぽい。
Tripodの専用スレ逝った方がいい。どこにあるのか知らないけれど。
0596582=583
02/10/31 02:35ID:j7v4mDxoopen(MAIL,"| /usr/sbin/sendmail -t");
はまるごと削除すればいいのですね。
で、どこで聞いたら・・
0597nobodyさん
02/10/31 02:35ID:???http://www.tripod.co.jp/guides/cgi3.html#tripodmail
0598nobodyさん
02/10/31 02:42ID:???それはそうなんだが、それだけじゃダメだ。
このソースはつづきがあるだろうが、大幅に直さないとダメ。
perlを勉強汁。
0599nobodyさん
02/10/31 02:45ID:???0600nobodyさん
02/10/31 02:53ID:j7v4mDxo0601５９９
02/10/31 02:57ID:???メール内容は毎回変わるの？ それとも定形のものを毎回送るの？
0602５９９
02/10/31 03:05ID:???を作成しる。以下の内容でファイルを作成して cgi-bin 以下の場所に保存しる。
To: $to
From: $from
Subject: $subject
$body
0603nobodyさん
02/10/31 03:07ID:j7v4mDxoというか、訪問者の串情報を
管理人に送るツールなのです。
レス感謝です
0604５９９
02/10/31 03:15ID:???require TripodMail;
$MAIL= new TripodMail;
$file= "保存したファイル相対パス";
$hash{'to'}= '送信先メールアドレス';
$hash{'from'}= '送信元メールアドレス';
$hash{'subject'}= 'メールの題名';
$hash{'body'}= 'ここにメール内容を代入';
$MAIL->sendMail($file, \%hash);
0605nobodyさん
02/10/31 03:20ID:j7v4mDxoつまり、サイト訪問者のプロキシ情報を送る場合、
「毎回内容が変わるから」無理という事ですか？
宜しくお願いします。
それと、鯖から送る場合、5番目はどうなるのでしょうか。
0606５９９
02/10/31 03:23ID:???$hash{'body'} に内容を全部ぶち込めば？
0607nobodyさん
02/10/31 03:26ID:j7v4mDxo送信先は、自分のアド。送信元は、どうしたら・・。例えばノ話。
それと、毎回内容が変わるのです。
ＷＡＵと合体させる方法を教えてください。
0608５９９
02/10/31 03:30ID:???WAUってなに？
0609nobodyさん
02/10/31 03:31ID:j7v4mDxoimport java.awt.*;
import java.io.*;
import java.net.*;
public class GetIpApplet extends Applet
{
String compName; //コンピュータの名前
String host; //接続サーバー名
String browser; //ブラウザ
String referrer; //referrer用
Image buffer;
Graphics bufferg;
InetAddress localHost; //コンピュータ名取得用
public void init()
{
try{
buffer = createImage(400,150);
bufferg = buffer.getGraphics();
0610nobodyさん
02/10/31 03:32ID:j7v4mDxobufferg.fillRect(0,0,400,150);
localHost = InetAddress.getLocalHost();
//コンピュータ名を取得
compName = localHost.getHostName();
//サーバー名
host = "tripod.co.jp";
repaint();
//ブラウザ名の取得
browser = getParameter("browser");
//referrerの取得
referrer = getParameter("referrer");
//サーバーへ接続
Socket socket = new Socket(host,80);
PrintWriter pw = new PrintWriter(socket.getOutputStream());
BufferedReader br = new BufferedReader(
new InputStreamReader(socket.getInputStream()));
//送信データの作成
String sendData = "browser=" + URLEncoder.encode(browser) +
"&referrer=" + URLEncoder.encode(referrer) +
"&compname=" + URLEncoder.encode(compName);
//データの送信
pw.print("GET "+"http://sage/cgi-bin/visitor.cgi?"
+sendData+"\r\n");
pw.flush();
0611コレです。訪問者のプロクシを、”管理”人に送信するＪＡＶＡ．
02/10/31 03:32ID:j7v4mDxobufferg.setFont(new Font("Serif",Font.BOLD,18));
bufferg.setColor(new Color(225,225,225));
String string = br.readLine();
for(int i = 0;i < 2;i++){
string = br.readLine();
bufferg.drawString(string,20,25*(i+1));
}
socket.close();
}
catch(Exception e){
}
}
public void paint(Graphics g)
{
if(bufferg == null)
bufferg = buffer.getGraphics();
g.drawImage(buffer,0,0,this);
}
public void update(Graphics g)
{
paint(g);
}
}
0612コレです。訪問者のプロクシを、”管理”人に送信するＪＡＶＡ．
02/10/31 03:33ID:j7v4mDxoコンパイルエラーが出ます。
0613コレです。訪問者のプロクシを、”管理”人に送信するＪＡＶＡ．
02/10/31 03:35ID:j7v4mDxo$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
$browser = $in{'browser'};
$referrer = $in{'referrer'};
$compname = $in{'compname'};
$host=$ENV{'REMOTE_HOST'};
$addr=$ENV{'REMOTE_ADDR'};
if ($host eq '') { $host = $addr; }
if ($host eq $addr){ $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;}
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year=$year+1900;
print "Content-type: text/html\n\n";
print "<body>\n";
print "remote host: $host\n";
print "remote addr: $addr\n";
print "refferer: $referrer\n";
print " </body>\n";
$mailto = '; #自分のメールアドレス
0614nobodyさん
02/10/31 03:36ID:j7v4mDxo$MAIL = new TripodMail;
$mail_template = "./flintstones_mail.txt";
%variables = ('email' => '[email protected]',
'name' => 'Wilma',
'number' => '2');
$MAIL->sendMail($mail_template, \%variables);
print MAIL "From: visitorcheck\@somewhere.net\n"; #Fromは適当
print MAIL "To: $mailto\n";
print MAIL "Subject: your homepage access information\n";
print MAIL "\n";
print MAIL "computer name : $compname\n";
print MAIL "Host : $host\n";
print MAIL "IP : $addr\n";
print MAIL "referrer : $referrer\n";
print MAIL "browser : $browser\n";
print MAIL "Date : $year/$mon/$day\n";
print MAIL "Time : $hour:$min:$sec\n";
close(MAIL);
exit;
0615５９９
02/10/31 03:36ID:???ということなら、CGIから送信するしかないのでは？
0616nobodyさん
02/10/31 03:37ID:j7v4mDxosendmailの設定をする所があるので、
さっき質問したとおり、鳥とどう組み合わせたらいいのか、分からないのです。
その前のソースは、
コンパイルエラーが何故出るか、教えてください・・お願いします。レスありがとうです。
訪問者の串情報を、管理人のメアドに送るＪＡＶＡアプレットです。
0617５９９
02/10/31 03:39ID:???$MAIL->sendMail($mail_template, \%variables); の行までで送信されるはずです。
以降の print文は不要です。
0618５９９
02/10/31 03:40ID:???0619nobodyさん
02/10/31 03:49ID:j7v4mDxoC:\Documents and Settings\Owner>javac GetIpApple
'javac' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。
C:\Documents and Settings\Owner>c:\j2sdk1.4.0_02\bin\java.exe
Usage: java [-options] class [args...]
(to execute a class)
or java -jar [-options] jarfile [args...]
(to execute a jar file)
where options include:
-client to select the "client" VM
-server to select the "server" VM
-hotspot is a synonym for the "client" VM [deprecated]
The default VM is client.
-cp -classpath <directories and zip/jar files separated by ;>
set search path for application classes and resources
-D<name>=<value>
0620nobodyさん
02/10/31 03:49ID:j7v4mDxo-verbose[:class|gc|jni]
enable verbose output
-version print product version and exit
-showversion print product version and continue
-? -help print this help message
-X print help on non-standard options
-ea[:<packagename>...|:<classname>]
-enableassertions[:<packagename>...|:<classname>]
enable assertions
-da[:<packagename>...|:<classname>]
-disableassertions[:<packagename>...|:<classname>]
disable assertions
-esa | -enablesystemassertions
enable system assertions
-dsa | -disablesystemassertions
disable system assertions
C:\Documents and Settings\Owner>set path=c:\j2sdk1.4.0_02\bin;%PATH%
C:\Documents and Settings\Owner>javac GetIpApplet.java
エラー: GetIpApplet.java を読み込めません。
エラー 1 個
C:\Documents and Settings\Owner>
こんなかんじでｒす
0621５９９
02/10/31 03:57ID:???set PATH="%PATH%";c:\j2sdk1.4.02\bin
あと、javac コマンドに渡すファイル名は拡張子 .java じゃなくてもよかった？
0622５９９
02/10/31 04:00ID:???0623５９９
02/10/31 04:14ID:???0624nobodyさん
02/10/31 04:14ID:j7v4mDxoUsage: java [-options] class [args...]
(to execute a class)
or java -jar [-options] jarfile [args...]
(to execute a jar file)
where options include:
-client to select the "client" VM
-server to select the "server" VM
-hotspot is a synonym for the "client" VM [deprecated]
The default VM is client.
-cp -classpath <directories and zip/jar files separated by ;>
set search path for application classes and resou
-D<name>=<value>
set a system property
-verbose[:class|gc|jni]
enable verbose output
-version print product version and exit
0625nobodyさん
02/10/31 04:14ID:j7v4mDxo-? -help print this help message
-X print help on non-standard options
-ea[:<packagename>...|:<classname>]
-enableassertions[:<packagename>...|:<classname>]
enable assertions
-da[:<packagename>...|:<classname>]
-disableassertions[:<packagename>...|:<classname>]
disable assertions
-esa | -enablesystemassertions
enable system assertions
-dsa | -disablesystemassertions
disable system assertions
C:\Documents and Settings\Owner>set path="%PATH%";c\j2sdk1.4.02\bin
C:\Documents and Settings\Owner>javac GetIpApplet.java
エラー: GetIpApplet.java を読み込めません。
エラー 1 個
C:\Documents and Settings\Owner>
0626nobodyさん
02/10/31 04:30ID:???0627nobodyさん
02/10/31 04:35ID:???0628nobodyさん
02/10/31 10:50ID:???トリップのセンドメールと合体させたいです。
宜しくお願いします。
管理人に、自動的にサイト訪問者のプロキシ情報を送信するツールです。
で、二つあるソースのうちの一個がこれです。
よろしくです
0629６１３と１４の説明です。
02/10/31 10:51ID:???27行目の
$mailto = '[email protected]';
の部分を、自分のメールアドレスに書き換えてください。
また、28行目の
open(MAIL,"| /usr/sbin/sendmail -t");
も、CGIを設置するサーバーのsendmailのパスにあわせてください。
そして、CGIの使えるサーバーにアップしてください。（必ずしもログをとり
たいホームページと同じサーバーでなくてもOKです。）
0630nobodyさん
02/10/31 11:34ID:GrPTAu+d#!/usr/local/bin/perl
print "hello\n";
というプログラムをtest.cgiというファイルに保存して自分のＨＰに転送した
んですけど、エラー５００とかいわれて実行してくれません。何が原因なんで
しょうか？ＨＰはinfoseekで、ファイルはcgi-binというフォルダの中にいれて
転送しました。よろしくお願いします。
0631nobodyさん
02/10/31 11:43ID:???・送信するときASCIIモードでやったか? サーバに転送したとき改行がLFになってないとエラーになるぞ。
・パーミッションは正しいか?
・#!/usr/local/bin/perl は正しいか? サーバによって違うぞ。
0632nobodyさん
02/10/31 11:47ID:j7v4mDxoお願いします。
最初のアドレスに、「あげ」というファイルを上げました。
下の奴が、ソースで、上のはreadmeです。（説明書）
そして、前者のソースに、後者のアドレスのsendmailを入れたいのですが、うまくいきません。
どうか、正しいソースに組み立てて頂けると幸いです。
宜しくお願いします。
0633nobodyさん
02/10/31 12:31ID:???ヘッダを忘れてる。
print "content-type:text/html\n\n";
これを最初に核。
それからCGIのテストは共用サーバでやっちゃダメ。ローカルでやること。
0634nobodyさん
02/10/31 12:32ID:???CGIで実行させるならヘッダーが必要です。
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "hello world\n";
0635６３２
02/10/31 12:39ID:???0636nobodyさん
02/10/31 12:52ID:???あれだけ教えてもらってなぜわからんかな。
PRINTしてる$refererとか$compnameとか、ハッシュにほりこんで、
最後に$MAIL->sendMail($mail_template, \%variables);すればいいだけじゃん。
ちっとは学習しろ。
ここは質問スレなんでお願いスレじゃないぞ。
代りにやって欲しいなら誰かに金出して頼めば?
0637６３２
02/10/31 13:00ID:???0638６３２
02/10/31 13:01ID:???0640６３２
02/10/31 13:07ID:???どこに入れてもいいんですか？
0641６３２
02/10/31 13:08ID:???$MAIL= new TripodMail;
$file= "保存したファイル相対パス";
$hash{'to'}= '送信先メールアドレス'; →管理人のアドレス
$hash{'from'}= '送信元メールアドレス'; →ココは名にて入れたらいいんでしょう？
$hash{'subject'}= 'メールの題名';
$hash{'body'}= 'ここにメール内容を代入';
$MAIL->sendMail($file, \%hash);
宜しくお願いします。
保存したファイル相対パス、は
「GetIpApplet」でいいんですか？
0642６３２
02/10/31 13:09ID:???ＪＡＶＡに由来するのですが、そこは省略していいのですか？
0643ヽ(´ー｀)ノ
02/10/31 13:16ID:???0644nobodyさん
02/10/31 13:20ID:???From: [email protected]
Subject: your homepage access information
computer name : $compname
Host : $host
IP : $addr
referrer : $referrer
browser : $browser
Date : $year/$mon/$day
Time : $hour:$min:$sec
↑をtemplate.txtというファイル名でcgi-binディレクトリにアップする。
0645nobodyさん
02/10/31 13:22ID:???６３２サポートスレッド化
0646nobodyさん
02/10/31 13:28ID:???$MAIL = new TripodMail;
$mail_template = "template.txt";
$variables{mailto} = $mailto;
$variables{compname} = $compname;
$variables{host} = $host;
$variables{addr} = $addr;
$variables{referrer} = $referrer;
$variables{browser} = $browser;
.
.
.
$variables{sec} = $sec;
$MAIL->sendMail($mail_template, \%variables);
0647６３２
02/10/31 13:33ID:???感謝です！
0648６３２
02/10/31 13:44ID:???cgi-binというフォルダを作って、そこに格納するのですよね・・。
0649nobodyさん
02/10/31 13:50ID:???一から全部教えて君かよ！
聞いてばっかじゃねぇかよ！！
自力で勉強しる！
0650６３２
02/10/31 13:50ID:???なんで告訴されないんでしょう。
0651６３２
02/10/31 13:54ID:???死ぬほど頑張っているのです・・丸2日・・。丸一日寝てないです
お願いします・・・。
６４４は、分かりました。（ＣＧＩ−ＢＩＮてフォルダを作るんですね・・。）
次の所、
0652６３２
02/10/31 13:55ID:???$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
$browser = $in{'browser'};
$referrer = $in{'referrer'};
$compname = $in{'compname'};
$host=$ENV{'REMOTE_HOST'};
$addr=$ENV{'REMOTE_ADDR'};
if ($host eq '') { $host = $addr; }
if ($host eq $addr){ $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;}
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year=$year+1900;
print "Content-type: text/html\n\n";
print "<body>\n";
0653６３２
02/10/31 13:55ID:???print "remote addr: $addr\n";
print "refferer: $referrer\n";
print " </body>\n";
$mailto = '[email protected]'; #自分のメールアドレス
open(MAIL,"| /usr/sbin/sendmail -t");
print MAIL "From: visitorcheck\@somewhere.net\n"; #Fromは適当
print MAIL "To: $mailto\n";
print MAIL "Subject: your homepage access information\n";
print MAIL "\n";
print MAIL "computer name : $compname\n";
print MAIL "Host : $host\n";
print MAIL "IP : $addr\n";
print MAIL "referrer : $referrer\n";
print MAIL "browser : $browser\n";
print MAIL "Date : $year/$mon/$day\n";
print MAIL "Time : $hour:$min:$sec\n";
close(MAIL);
exit;
0654６３２
02/10/31 13:56ID:???もう少しで終わります・・どうかお願いします・・貴方だけがたよりなので・・うう。
■ このスレッドは過去ログ倉庫に格納されています