Automatically update website with --help output. Cosmetic

fixes for some help output


git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1810 f882894a-f735-0410-b71e-b25c423dba1c
This commit is contained in:
Ton Voon 2007-10-25 20:43:04 +00:00
parent 745b58a68b
commit cf0dee616a
4 changed files with 49 additions and 5 deletions

View file

@ -269,9 +269,6 @@ int main(int argc, char **argv){
int dhcp_socket;
int result = STATE_UNKNOWN;
/* this plugin almost certainly needs root permissions. */
np_warn_if_not_root();
setlocale (LC_ALL, "");
bindtextdomain (PACKAGE, LOCALEDIR);
textdomain (PACKAGE);
@ -280,6 +277,9 @@ int main(int argc, char **argv){
usage4 (_("Could not parse arguments"));
}
/* this plugin almost certainly needs root permissions. */
np_warn_if_not_root();
/* create socket for DHCP communications */
dhcp_socket=create_dhcp_socket();

View file

@ -548,7 +548,7 @@ print_help (void)
{
print_revision (progname, revision);
printf ("Copyright (c) 1999 Ethan Galstad <nagios@nagios.org>");
printf ("Copyright (c) 1999 Ethan Galstad <nagios@nagios.org>\n");
printf (COPYRIGHT, copyright, email);
printf (_("Use ping to check connection statistics for a remote host."));

View file

@ -598,7 +598,7 @@ print_help (void)
print_revision (progname, revision);
printf ("Copyright (c) 2000 Tom Shields");
printf ("Copyright (c) 2000 Tom Shields\n");
printf ("Copyright (c) 2004 Alain Richard <alain.richard@equation.fr>\n");
printf ("Copyright (c) 2004 Arnaud Quette <arnaud.quette@mgeups.com>\n");
printf (COPYRIGHT, copyright, email);

44
tools/sync_website Executable file
View file

@ -0,0 +1,44 @@
#!/usr/bin/perl
use strict;
use DBI;
#$ENV{PERL5LIB}="plugins-scripts"; # Needed for utils.pm
unless ($ENV{DRUPAL_PASSWORD}) {
die "Must set envvar for DRUPAL_PASSWORD";
}
my $pid = open(F, "-|", qw(ssh -n -N -L 25555:127.0.0.1:3306 nagiosplugins.org));
# Allow time for ssh tunnel to be created
sleep 2;
# To stop the death of ssh tunnel being defunct
$SIG{CHLD} = 'IGNORE';
END { kill 'INT', $pid if $pid };
my $dbh = DBI->connect("DBI:mysql:database=drupal;host=127.0.0.1;port=25555", "drupal", $ENV{DRUPAL_PASSWORD});
my @plugin_paths;
push @plugin_paths, (grep { -x $_ && -f $_ } (<plugins-root/*>, <plugins/*>) );
foreach my $plugin_path (@plugin_paths) {
my $plugin = $plugin_path;
$plugin =~ s%.*/%%;
my $help_option = "--help";
$help_option = "-h" if ($plugin eq "check_icmp");
my $help = `$plugin_path $help_option` || die "Cannot run $plugin -h";
$help =~ s/</&lt;/g;
$help =~ s/>/&gt;/g;
my $rows = $dbh->do("UPDATE node SET created=UNIX_TIMESTAMP(NOW()) WHERE title='$plugin'");
unless ($rows == 1) {
die "Cannot find $plugin in drupal to update - create book page first";
}
$dbh->do("UPDATE node_revisions SET timestamp=UNIX_TIMESTAMP(NOW()), log='Updated by update_online_manpage', teaser='$plugin --help', body=? WHERE title='$plugin'",
{},
"<pre>".$help."</pre>");
}
print "Finished\n";