WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:NTサーバでcgiって大変。

0:[投稿] とほん [2002/04/01 18:06 ][環境:WIN+IE UNIX系+Perl]

恐れ入ります。UNIX系なら元気いっぱいのスクリプトもNTサーバでは返事一つしません。この部分に何か不適合な記述があるとでも言うのでしょうか・・ご存じの方、厳しい口調で指摘してくれませんか。よろしくお願いします。(ちなみにscriptsディレクトリへ入れてパーミッションの設定はナシで動くというのは調べました。)

#!/usr/local/bin/perl

require './jcode.pl';

require './cgi-lib.pl';

$modoru = 'http://www.yahoo.co.jp';

$script = './form.cgi';

if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }

@data = split(/&/,$buffer);
$no = 0;
foreach (@data) {
    ($key,$val) = split(/=/,$_);

    $key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    &jcode'convert(*key,'sjis');

    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    &jcode'convert(*val,'sjis');

    $val =~ s/<>/\&lt\;\&gt\;/g;
    $val =~ s/\r\n\r//g;
    $val =~ s/\r\n//g;
    $val =~ s/\n//g;
    $val =~ s/\,/,/g;

    $no++;
    $DATA_K[$no] = $key;
    $DATA_V[$no] = $val;
    $in{$key} = $val;
}

$ENV{'TZ'} = "JST-9";
$times = time;
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);

@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
        $year+1900,$mon+1,$mday,$week[$wday],$hour,$min);


1:[回答] sage [2002/04/02 10:15 ]

そもそも、そのNTで他のCGI-Perlは動いていますか?


2:[完了] とほん [2002/04/03 09:50 ]

いえ、動いていません。
プロバイダに聞かないといけないですね
やっぱしNTでperlのcgiを動かそうとするのをやめます。
ご迷惑をおかけしました。


3:[完了] のぐりん [MAIL] [2002/04/04 11:35 ]

NTなら、ASPが動くのでは?


4:[完了] とほん [2002/04/08 10:05 ]

そうですね^^
ですが、できないので。。
ですが、やろうと思ってVisual Studio .netを買いましたが、優待パッケージだったのでライセンスキー?がなくてインストールできませんでした。

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World