nginx环境下配置nagios-关于perl-fcgi.pl

配置文件如下：

请注意，网上提供的官方文档在运行时可能会出现问题，此文中保证无问题。

  1 #!/usr/bin/perl
  2 #
  3 #       author          Daniel Dominik Rudnicki
  4 #       thanks to:      Piotr Romanczuk
  5 #       email           daniel@sardzent.org
  6 #       version         0.4.3
  7 #       webpage         http://www.nginx.eu/
  8 #
  9 #       BASED @ http://wiki.codemongers.com/NginxSimpleCGI
 10 #
 11 #
 12 # use strict;
 13 use FCGI;
 14 use Getopt::Long;
 15 use IO::All;
 16 use Socket;
 17 
 18 sub init {
 19         GetOptions(     "h"     => $help,
 20                         "verbose!"=>$verbose,
 21                         "pid=s" => $filepid,
 22                         "l=s" => $logfile,
 23                         "S:s"   => $unixsocket,
 24                         "P:i"   => $unixport) or usage();
 25                 usage() if $help;
 26 
 27         print " Starting Nginx-fcgi " if $verbose;
 28         print " Running with $> UID" if $verbose;
 29         print " Perl $]" if $verbose;
 30 
 31 #       if ( $> == "0" ) {
 32 #               print " ERROR Running as a root! ";
 33 #               print " Suggested not to do so !!! ";
 34 #               exit 1;
 35 #       }
 36 
 37         if ( ! $logfile ) {
 38                 print " ERROR  log file must declared "
 39                         . " use $0 with option -l filename ";
 40                 exit 1;
 41         }
 42         print " Using log file $logfile " if $verbose;
 43         " " >> io($logfile);
 44         addlog($logfile, "Starting Nginx-cfgi");
 45         addlog($logfile, "Running with $> UID");
 46         addlog($logfile, "Perl $]");
 47         addlog($logfile, "Testing socket options");
 48 
 49         if ( ($unixsocket && $unixport) || (!($unixsocket) && !($unixport)) ) {
 50                 print " ERROR Only one option can be used! ";
 51                 print " Suggested (beacuse of speed) is usage UNIX socket -S  ";
 52                 exit 1;
 53         }
 54 
 55         if ($unixsocket) {
 56                 print " Daemon listening at UNIX socket $unixsocket " if $versbose;
 57                 addlog($logfile, "Deamon listening at UNIX socket $unixsocket");
 58         } else {
 59                 print " Daemon listening at TCP/IP socket *:$unixport " if $verbose;
 60                 #
 61                 addlog($logfile, "Daemon listening at TCP/IP socket *:$unixport");
 62         }
 63 
 64         if ( -e $filepid ) {
 65                 print " ERROR  PID file $filepid already exists ";
 66                 addlog($logfile, "Can not use PID file $filepid, already exists.");
 67                 exit 1;
 68         }
 69 
 70         if ( $unixsocket ) {
 71                 print " Creating UNIX socket " if $verbose;
 72                 $socket = FCGI::OpenSocket( $unixsocket, 10 );
 73                 if ( !$socket) {
 74                         print " Couldn't create socket ";
 75                         addlog($logfile, "Couldn't create socket");
 76                         exit 1;
 77                 }
 78                 print " Using UNIX socket $unixsocket " if $verbose;
 79         } else {
 80                 print " Creating TCP/IP socket " if $verbose;
 81                 $portnumber = ":".$unixport;
 82                 $socket = FCGI::OpenSocket( $unixport, 10 );
 83                 if ( !$socket ) {
 84                         print " Couldn't create socket ";
 85                         addlog($logfile, "Couldn't create socket");
 86                         exit 1;
 87                 }
 88                 print " Using port $unixport " if $verbose;
 89         }
 90         addlog($logfile, "Socket created");
 91 
 92         if ( ! $filepid ) {
 93                 print " ERROR  PID file must declared "
 94                         . " use $0 with option -pid filename ";
 95                 exit 1;
 96         }
 97         print " Using PID file $filepid " if $verbose;
 98         addlog($logfile, "Using PID file $filepid");
 99 
100         my $pidnumber = $$;
101         $pidnumber > io($filepid);
102         print " PID number $$ " if $verbose;
103         addlog($logfile, "PID number $pidnumber");
104 
105 }
106 
107 sub addzero {
108         my ($date) = shift;
109         if ($date < 10) {
110                 return "0$date";
111         }
112        return $date;
113 }
114 
115 sub logformat {
116         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$iddst) = localtime(time);
117         my $datestring;
118         $year += 1900;
119         $mon++;
120         $mon  = addzero($mon);
121         $mday = addzero($mday);
122         $min  = addzero($min);
123         $datestring = "$year-$mon-$mday $hour:$min";
124         return($datestring);
125 }
126 
127 sub addlog {
128         my ($log_file, $log_message) = @_;
129         my $curr_time = logformat();
130         my $write_message = "[$curr_time]   $log_message";
131         $write_message >> io($log_file);
132         " " >> io($log_file);
133 }
134 
135 sub printerror {
136         my $message = @_;
137         print "        Nginx FastCGI ERROR "
138                 . "  $message ";
139         exit 1;
140 }
141 
142 sub usage {
143         print "        Nginx FastCGI  "
144                 . " usage: $0 [-h] -S string -P int "
145                 . " -h : this (help) message"
146                 . " -S path : path for UNIX socket"
147                 . " -P port : port number"
148                 . " -p file : path for pid file"
149                 . " -l file : path for logfile"
150                 . " example: $0 -S /var/run/nginx-perl_cgi.sock -l /var/log/nginx/nginx-cfgi.log -pid /var/run/nginx-fcgi.pid ";
151         exit 1;
152 }
153 
154 
155 init;
156         exit unless $@ =~ /^fakeexit/;
157 } ;
158 
159 # fork part
160 my $pid = fork();
161 
162 if( $pid == 0 ) {
163         &main;
164         exit 0;
165 }
166 
167 print " Forking worker process with PID $pid " if $verbose;
168 addlog($logfile, "Forking worker process with PID $pid");
169 print " Update PID file $filepid " if $verbose;
170 addlog($logfile, "Update PID file $filepid");
171 $pid > io($filepid);
172 print " Worker process running. " if $verbose;
173 addlog ($logfile, "Parent process $$ is exiting");
174 exit 0;
175 
176 sub main {
177         $request = FCGI::Request( *STDIN, *STDOUT, *STDERR, \%req_params, $socket );
178         if ($request) { request_loop()};
179                 FCGI::CloseSocket( $socket );
180 }
181 
182 sub request_loop {
183         while( $request->Accept() >= 0 ) {
184                 # processing any STDIN input from WebServer (for CGI-POST actions)
185                 $stdin_passthrough = '';
186                 $req_len = 0 + $req_params{'CONTENT_LENGTH'};
187                 if (($req_params{'REQUEST_METHOD'} eq 'POST') && ($req_len != 0) ){
188                         while ($req_len) {
189                                 $stdin_passthrough .= getc(STDIN);
190                                 $req_len--;
191                         }
192                 }
193 
194                 # running the cgi app
195                 if ( (-x $req_params{SCRIPT_FILENAME}) &&
196                         (-s $req_params{SCRIPT_FILENAME}) &&
197                         (-r $req_params{SCRIPT_FILENAME})
198                 ){
199                         foreach $key ( keys %req_params){
200                                 $ENV{$key} = $req_params{$key};
201                         }
202                         if ( $verbose ) {
203                                 addlog($logfile, "running $req_params{SCRIPT_FILENAME}");
204                         }
205                         # http://perldoc.perl.org/perlipc.html#Safe-Pipe-Opens
206                         #
207                         #open $cgi_app, '-|', $req_params{SCRIPT_FILENAME}, $stdin_passthrough or print("Content-type: text/plain "); print "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed ! "; # addlog($logfile, "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !");
208                         open $cgi_app, '-|', "echo '$stdin_passthrough' | '$req_params{SCRIPT_FILENAME}'" or print("Content-type: text/plain "); print "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed ! "; # addlog($logfile, "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !");
209 
210                         if ($cgi_app) {
211                                 print <$cgi_app>;
212                                 close $cgi_app;
213                         }
214                 } else {
215                         print("Content-type: text/plain ");
216                         print "Error: No such CGI app - $req_params{SCRIPT_FILENAME} may not exist or is not executable by this process. ";
217                         addlog($logfile, "Error: No such CGI app - $req_params{SCRIPT_FILENAME} may not exist or is not executable by this process.");
218                 }
219         }
220 }

221