Thread View: fj.lang.perl
4 messages
4 total messages
Started by Kazunori Nozaki
Thu, 26 Mar 1998 00:00
CPANのscriptについて
Author: Kazunori Nozaki
Date: Thu, 26 Mar 1998 00:00
Date: Thu, 26 Mar 1998 00:00
44 lines
2134 bytes
2134 bytes
$BLn:j!w2?EY$b$9$_$^$;$s!!$G$9!#(B
CPAN$B$N(Bscript$B$G(BGD.pm$B$r$D$+$C$F!";~4V$rI=<($9$k%W%m%0%i%`$d!"(B
$B%m!<%I%"%Y%l!<%8$rI=<($9$k%W%m%0%i%`$,$"$k$N$G$9$,!"(B
gd_time.pl$B$r$\$/$N%5!<%P!<$G$O(Bgd_time.cgi$B$K$7$J$$$H$@$a$J$N$G!"(B
$B$=$N$h$&$K$7$F!"(Bperl gd_time.cgi$B$H$9$k$H!"$$$A$*$&!"(B
Content-type: image/gif
GIF87aX$B�,(BX$$B'o(I)K$Bz%X6(IZ$B65(I^<$B�c)Lh2(tL(I6(B
$B|I�L(IW$B��(B;/$B5I(B
home/soccer/www/cgi-bin/CAPAN/06>
$B$H$J$j$^$9!#$G!"%V%i%&%6$+$i$_$k$H!"(BInternal Server Error$B$H(B
$B$G$^$9!#(Bno data$B$H$G$J$$$H$$$&$3$H$O!"(Bscript$B$,4V0c$C$F$$$k$N$G$7$g$&$+!)(B
#!/usr/local/bin/perl5
use lib qw(home/soccer /home/soccer/lib
/home/soccer/lib/perl5/site_perl);
use GD;
$| = 1;
print "Content-type: image/gif\n\n";
($seconds, $minutes, $hour) = localtime (time);
if ($hour > 12) {
$hour -= 12;
$ampm = "pm";
} else {
$ampm = "am";
}
if ($hour == 0) {
$hour = 12;
}
$time = sprintf ("%02d:%02d:%02d %s", $hour, $minutes, $seconds, $ampm);
$time_length = length($time);
$font_length = 8;
$font_height = 16;
$x = $font_length * $time_length;
$y = $font_height;
$image = new GD::Image ($x, $y);
$red = $image->colorAllocate (255, 0, 0);
$image->string (gdLargeFont, 0, 0, $time, $red);
print $image->gif;
exit(0);
$B$G$9$,!"$[$H$s$I$=$N$^$^$G$9!#!J85$N$b$N$H!K(B
$B$b$7$+$7$?$i%5!<%P!<$,$*$+$7$$$N$+$b!)(B
sunOS2.5.1$B$G%"%Q%C%A$@$C$?$H$*$b$$$^$9!#(B
Re: CPANのscript について
Author: Mamoru Yamanishi
Date: Thu, 26 Mar 1998 00:00
Date: Thu, 26 Mar 1998 00:00
58 lines
2987 bytes
2987 bytes
関係ないことを多く書くかもしれませんがご容赦ください。
また、はずしている場合には、無視してください。
> gd_time.plをぼくのサーバーではgd_time.cgiにしないとだめなので、
これは、ブラウザーから呼び出すときには*.cgiでないとだめで、
直接実行するときには*.plで良いと云うことでしょうか？
そのようなことなら、Apacheの設定がそのようになっているのだと思います。
httpdが実行できるCGIアプリケーションの拡張子（正しい言葉かな？）の
設定が、
~apache/conf/srm.conf
の（~apacheの部分はApacheのディレクトリーのPath）中にあります。
この中の記述を変えれば、任意の拡張子のファイルを実行できるようになると
思われますが、そのままの方がよいとおもわれます。
> となります。で、ブラウザからみると、Internal Server Errorと
> でます。no dataとでないということは、scriptが間違っているのでしょうか？
３つほど。
１ CGIスクリプトのファイルはhttpdが実行できるようにパーミッションを
設定していますか？
perl gd_time.cigの代わりに./gd_time.cgiなどとして実行できるかどう
かで判断できます。
（このような場合は、"Forbidden"とエラーが出るのでしたっけ？）
２ そのスクリプトは、どこから実行してもエラーをかえしますか？
ホームディレクトリーからは実行できて、ワーキングディレクトリーを
変えると実行できないときには、パスが通ってないことが多いです。
CGIアプリケーションの場合、ファイルのパスは絶対パスで指定する
のが間違いありません。
ところで、
> use lib qw(home/soccer /home/soccer/lib
> /home/soccer/lib/perl5/site_perl);
の最初の部分は、/home/soccerの転記ミスでしょうか？気になります。
３ 出力されるgif画像は望むようなものが出力されているのでしょうか？
> $image->string (gdLargeFont, 0, 0, $time, $red);
のqdLargeFontは$qd'LargeFontの転記ミスでしょうか？
print "Content.... の行をコメントアウトして、
./gd_time.cgi > temp.gif
などとして、temp.gifをブラウザーで見るか、（Macintosh等に転送後）
適当なアプリケーションで見てみてください。
--
山西 守 <yama@biotech.okayama-u.ac.jp>
086-251-8196, 086-251-8264(fax)
Re: CPANのscriptについて
Author: Maki Watanabe
Date: Thu, 26 Mar 1998 00:00
Date: Thu, 26 Mar 1998 00:00
11 lines
921 bytes
921 bytes
Kazunori Nozaki wrote: > > となります。で、ブラウザからみると、Internal Server Errorと > でます。no dataとでないということは、scriptが間違っているのでしょうか？ Internal Server Errorが出るときは、CGIプログラムからの出力が 異常であることが多いです。 apacheの logs/error_log を調べましょう。 mw
Re: CPANのscriptについて
Author: ISHIKAWA Jun
Date: Thu, 26 Mar 1998 00:00
Date: Thu, 26 Mar 1998 00:00
15 lines
1186 bytes
1186 bytes
In article <351A05CB.EAB559E2@tko.dec.com> Maki Watanabe <watanabe.maki@tko.dec.com> writes:
> Internal Server Errorが出るときは、CGIプログラムからの出力が
> 異常であることが多いです。
> apacheの logs/error_log を調べましょう。
logs/script_logがあると一番よくわかるんですけどね。
--
石川 淳 国立感染症研究所
(Jun Ishikawa) 生物活性物質部
jun@nih.go.jp 遺伝生化学室
<URL:http://www.nih.go.jp/~jun/research/>
ATCTCCCACATCAAGGCCTGGGCC
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads