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 "p => \$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\n" if $verbose;

28 print " Running with $> UID" if $verbose;

29 print " Perl $]" if $verbose;

30

31 # if ( $> == "0" ) {

32 # print "\n\tERROR\tRunning as a root!\n";

33 # print "\tSuggested not to do so !!!\n\n";

34 # exit 1;

35 # }

36

37 if ( ! $logfile ) {

38 print "\n\tERROR\t log file must declared\n"

39 . "\tuse $0 with option -l filename\n\n";

40 exit 1;

41 }

42 print " Using log file $logfile\n" if $verbose;

43 "\n\n" >> 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 "\n\tERROR\tOnly one option can be used!\n";

51 print "\tSuggested (beacuse of speed) is usage UNIX socket -S \n\n";

52 exit 1;

53 }

54

55 if ($unixsocket) {

56 print " Daemon listening at UNIX socket $unixsocket\n" if $versbose;

57 addlog($logfile, "Deamon listening at UNIX socket $unixsocket");

58 } else {

59 print " Daemon listening at TCP/IP socket *:$unixport\n" if $verbose;

60 #

61 addlog($logfile, "Daemon listening at TCP/IP socket *:$unixport");

62 }

63

64 if ( -e $filepid ) {

65 print "\n\tERROR\t PID file $filepid already exists\n\n";

66 addlog($logfile, "Can not use PID file $filepid, already exists.");

67 exit 1;

68 }

69

70 if ( $unixsocket ) {

71 print " Creating UNIX socket\n" if $verbose;

72 $socket = FCGI::OpenSocket( $unixsocket, 10 );

73 if ( !$socket) {

74 print " Couldn't create socket\n";

75 addlog($logfile, "Couldn't create socket");

76 exit 1;

77 }

78 print " Using UNIX socket $unixsocket\n" if $verbose;

79 } else {

80 print " Creating TCP/IP socket\n" if $verbose;

81 $portnumber = ":".$unixport;

82 $socket = FCGI::OpenSocket( $unixport, 10 );

83 if ( !$socket ) {

84 print " Couldn't create socket\n";

85 addlog($logfile, "Couldn't create socket");

86 exit 1;

87 }

88 print " Using port $unixport\n" if $verbose;

89 }

90 addlog($logfile, "Socket created");

91

92 if ( ! $filepid ) {

93 print "\n\tERROR\t PID file must declared\n"

94 . "\tuse $0 with option -pid filename\n\n";

95 exit 1;

96 }

97 print " Using PID file $filepid\n" if $verbose;

98 addlog($logfile, "Using PID file $filepid");

99

100 my $pidnumber = $$;

101 $pidnumber > io($filepid);

102 print " PID number $$\n" 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 "\n" >> io($log_file);

133 }

134

135 sub printerror {

136 my $message = @_;

137 print "\n Nginx FastCGI\tERROR\n"

138 . "\t $message\n\n";

139 exit 1;

140 }

141

142 sub usage {

143 print "\n Nginx FastCGI \n"

144 . "\n\tusage: $0 [-h] -S string -P int\n"

145 . "\n\t-h\t\t: this (help) message"

146 . "\n\t-S path\t\t: path for UNIX socket"

147 . "\n\t-P port\t\t: port number"

148 . "\n\t-p file\t\t: path for pid file"

149 . "\n\t-l file\t\t: path for logfile"

150 . "\n\n\texample: $0 -S /var/run/nginx-perl_cgi.sock -l /var/log/nginx/nginx-cfgi.log -pid /var/run/nginx-fcgi.pid\n\n";

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\n" if $verbose;

168 addlog($logfile, "Forking worker process with PID $pid");

169 print " Update PID file $filepid\n" if $verbose;

170 addlog($logfile, "Update PID file $filepid");

171 $pid > io($filepid);

172 print " Worker process running.\n" 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\r\n\r\n"); print "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !\n"; # 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\r\n\r\n"); print "Error: CGI app returned no output - Executing $req_params{SCRIPT_FILENAME} failed !\n"; # 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\r\n\r\n");

216 print "Error: No such CGI app - $req_params{SCRIPT_FILENAME} may not exist or is not executable by this process.\n";

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