From 9ae1cd8f91aa6b53404e66588679d852d3972bcd Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Fri, 27 Sep 2013 23:10:53 +0200
Subject: tools: Remove Drupal/SourceForge scripts

We moved our web site away from Drupal and the snapshots/guidelines away
from SourceForge.  The new infrastructure scripts will be maintained in
a separate repository together with the Markdown source of the new web
site.
---
 tools/update_man_pages | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100755 tools/update_man_pages

(limited to 'tools/update_man_pages')

diff --git a/tools/update_man_pages b/tools/update_man_pages
deleted file mode 100755
index 5c4a901e..00000000
--- a/tools/update_man_pages
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/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 $dbh = DBI->connect("DBI:mysql:database=www;host=127.0.0.1", "www", $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";
-- 
cgit v1.2.3-74-g34f1