summaryrefslogtreecommitdiffstats
path: root/debian/apache2-bin.bug-script
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 15:01:31 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 15:01:31 +0000
commitc9cf025fadfe043f0f2f679e10d1207d8a158bb6 (patch)
tree3a94effe0bdc0a6814d8134f4ed840d7cc6b6f19 /debian/apache2-bin.bug-script
parentAdding upstream version 2.4.57. (diff)
downloadapache2-debian/2.4.57-2.tar.xz
apache2-debian/2.4.57-2.zip
Adding debian version 2.4.57-2.debian/2.4.57-2debian
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-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");
+}