Drkcore

08 10 2008 perl Tweet

setuidされたCGIを実行するためのperl

ごくたまにこんなことやりたかったりすることありますよね。

use File::Tail;

sub get_ip{
  my $line = File::Tail->new(name => "/var/log/httpd/access_log", tail => 1)->read();
  my ($ip) = split / /, $line;
  return $ip;
}

print "Content-Type: text/plain\n\n", get_ip();

rootじゃないとアクセスできないのでsetuidする必要がありますが、それだけだとエラー吐いてうごかないので、fedora8もそれ用のperlが必要。

yum install perl-suidperl

スクリプトも

#!/usr/bin/suidperl

ではじめる必要がある。

参考 - Perl でsetuid されたCGIの実行

About

  • もう5年目(wishlistありマス♡)
  • 最近はPythonとDeepLearning
  • 日本酒自粛中
  • ドラムンベースからミニマルまで
  • ポケモンGOゆるめ

Tag

Python Deep Learning javascript chemoinformatics Emacs sake and more...

Ad

© kzfm 2003-2021