tools/update_man_pages

   1 #!/usr/bin/perl
   2 use strict;
   3 use DBI;
   4 #$ENV{PERL5LIB}="plugins-scripts"; # Needed for utils.pm
   5
   6 unless ($ENV{DRUPAL_PASSWORD}) {
   7         die "Must set envvar for DRUPAL_PASSWORD";
   8 }
   9
  10 my $dbh = DBI->connect("DBI:mysql:database=www;host=127.0.0.1", "www", $ENV{DRUPAL_PASSWORD});
  11
  12 my @plugin_paths;
  13 push @plugin_paths, (grep { -x $_ && -f $_ } (<plugins-root/*>, <plugins/*>) );
  14
  15 foreach my $plugin_path (@plugin_paths) {
  16         my $plugin = $plugin_path;
  17         $plugin =~ s%.*/%%;
  18         my $help_option = "--help";
  19         $help_option = "-h" if ($plugin eq "check_icmp");
  20         my $help = `$plugin_path $help_option` || die "Cannot run $plugin -h";
  21         $help =~ s/</&lt;/g;
  22         $help =~ s/>/&gt;/g;
  23
  24         my $rows = $dbh->do("UPDATE node SET created=UNIX_TIMESTAMP(NOW()) WHERE title='$plugin'");
  25         unless ($rows == 1) {
  26                 die "Cannot find $plugin in drupal to update - create book page first";
  27         }
  28
  29         $dbh->do("UPDATE node_revisions SET timestamp=UNIX_TIMESTAMP(NOW()), log='Updated by update_online_manpage', teaser='$plugin --help',  body=? WHERE title='$plugin'",
  30                 {},
  31                 "<pre>".$help."</pre>");
  32 }
  33
  34 print "Finished\n";