Check-in missing file

phpini/edit_mods.cgi

@@ -0,0 +1,72 @@
+#!/usr/local/bin/perl
+# Show per-module include files with an option to disable
+
+require './phpini-lib.pl';
+&ReadParse();
+&can_php_config($in{'file'}) || &error($text{'list_ecannot'});
+my $conf = &get_config($in{'file'});
+my $inidir = &get_php_ini_dir($in{'file'});
+$inidir || &error($text{'mods_edir'});
+my $ver = &get_php_ini_version($in{'file'});
+$access{'global'} || &error($text{'mods_ecannot'});
+
+&ui_print_header("<tt>".&html_escape($in{'file'})."</tt>",
+		 $text{'mods_title'}, "");
+
+print $text{'mods_desc'},"<p>\n";
+
+# Find software packages if possible
+my $n;
+if (&foreign_installed("software")) {
+	&foreign_require("software");
+	$n = &software::list_packages();
+	for(my $i=0; $i<$n; $i++) {
+		my $n = $software::packages{$i,'name'};
+		my $v = $software::packages{$i,'version'};
+		$pkgmap{$n} = { 'name' => $n, 'version' => $v };
+		}
+	}
+
+# Show modules with .ini files
+@mods = &list_php_ini_modules($inidir);
+print &ui_form_start("save_mods.cgi", "post");
+print &ui_hidden("file", $in{'file'});
+print &ui_columns_start([ $text{'mods_enabled'},
+			  $text{'mods_name'},
+			  $text{'mods_file'},
+			  $n ? ( $text{'mods_pkg'} ): ( ) ]);
+foreach my $m (@mods) {
+	my $pkg;
+	if ($n && $ver) {
+		($pkg) = grep { $_ } map { $pkgmap{$_} }
+			      &php_module_packages($m->{'mod'}, $ver);
+		}
+	print &ui_columns_row([
+		&ui_checkbox("mod", $m->{'mod'}, "", $m->{'enabled'}),
+		$m->{'mod'},
+		$m->{'path'},
+		!$n ? ( ) :
+		  !$pkg ? ( "" ) :
+		  ( &ui_link("../software/edit_pack.cgi?package=".
+			     &urlize($pkg->{'name'})."&version=".
+			     &urlize($pkg->{'version'}),
+			     "$pkg->{'name'} $pkg->{'version'}") ),
+		]);
+	}
+print &ui_columns_end();
+print &ui_form_end([ [ undef, $text{'save'} ] ]);
+
+# Show form to install a package
+if (&foreign_installed("software") &&
+    &foreign_available("software")) {
+	print &ui_hr();
+	print $text{'mods_idesc'},"<p>\n";
+	print &ui_form_start("install_mod.cgi");
+	print &ui_hidden("file", $in{'file'});
+	print "<b>$text{'mods_newpkg'}</b> ",
+	      &ui_textbox("mod", undef, 30),"\n";
+	print &ui_form_end([ [ undef, $text{'mods_install'} ] ]);
+	}
+
+&ui_print_footer("list_ini.cgi?file=".&urlize($in{'file'}),
+		 $text{'list_return'});