summaryrefslogtreecommitdiffstats
path: root/debian/apache2-bin.bug-script
diff options
context:
space:
mode:
Diffstat (limited to 'debian/apache2-bin.bug-script')
-rwxr-xr-xdebian/apache2-bin.bug-script83
1 files changed, 83 insertions, 0 deletions
diff --git a/debian/apache2-bin.bug-script b/debian/apache2-bin.bug-script
new file mode 100755
index 0000000..06944b0
--- /dev/null
+++ b/debian/apache2-bin.bug-script
@@ -0,0 +1,83 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Text::Wrap;
+$Text::Wrap::columns = 70;
+
+#open (my $out, ">&=3") or die "could not open FD 3\n";
+open (my $out, ">&=0") or die "could not open FD 3\n";
+
+our $AQUERY = 0;
+our $PHP = 0;
+
+if (-x "/usr/sbin/a2query")
+{
+ $AQUERY = "/usr/sbin/a2query";
+}
+
+if ($AQUERY)
+{
+ my $mpm = `$AQUERY -M`;
+ chomp($mpm);
+ print $out "Enabled MPM: $mpm\n";
+}
+
+
+my @modules;
+if ($AQUERY)
+{
+ print $out "List of enabled modules:\n";
+ @modules = `$AQUERY -m`;
+}
+else
+{
+ print $out "a2query is not available.\n";
+ @modules = sort glob("/etc/apache2/mods-enabled/*.load");
+ map { s{^/etc/apache2/mods-enabled/(.*)\.load$}{$1} } @modules;
+ print $out "List of /etc/apache2/mods-enabled/*.load:\n";
+}
+if (! scalar @modules) {
+ print $out "Could not determine module list\n";
+}
+else {
+ my $missing;
+ foreach my $m (@modules) {
+ my ($m, @desc) = split(/\s+/, $m);
+ if (-e "/etc/apache2/mods-available/$m.conf" and
+ ! -e "/etc/apache2/mods-enabled/$m.conf") {
+ $m .= "*";
+ $missing = 1;
+ }
+ if ($m =~ /^(php\d)/) {
+ $PHP = $1;
+ }
+ }
+
+ print $out wrap(" ", " ", "@modules\n");
+
+ print $out
+ wrap(" ", " ",
+ "(A * means that the .conf file for that module is not " .
+ "enabled in /etc/apache2/mods-enabled/)\n")
+ if $missing;
+}
+
+if (defined $PHP) {
+ my @exts = qx{egrep ^extension= /etc/$PHP/apache2/php.ini /etc/$PHP/apache2/conf.d/* 2>/dev/null};
+ if (scalar @exts) {
+ chomp @exts;
+ @exts = grep { ! m{\.dpkg-(?:bak|dist):} } @exts;
+ @exts = sort grep { s{^.*:extension=(\S+)\.\S+}{$1} } @exts;
+ print $out "List of enabled $PHP extensions:\n";
+ print $out wrap(" ", " ", "@exts\n");
+ }
+}
+
+
+if ($AQUERY)
+{
+ my @confs;
+ print $out "List of enabled configurations:\n";
+ @confs = `$AQUERY -c`;
+ print $out wrap(" ", " ", "@confs\n");
+}