← Back
Editing: software-lib.pl
# software-lib.pl # A generalized system for package management on solaris, linux, etc.. BEGIN { push(@INC, ".."); }; use WebminCore; &init_config(); $heiropen_file = "$module_config_directory/heiropen"; # Use the appropriate function set for whatever package management system # we are using. do "$config{'package_system'}-lib.pl"; if ($config{'update_system'} eq '*') { # User specifically doesn't want any $update_system = undef; } elsif ($config{'update_system'}) { # User-specified system $update_system = $config{'update_system'}; } else { # Guess which update system we are using if ($gconfig{'os_type'} eq 'freebsd') { if (&use_pkg_ng()) { $update_system = "pkg"; } else { $update_system = "ports"; } } elsif (&has_command($config{'apt_mode'} ? "aptitude" : "apt-get")) { $update_system = "apt"; } elsif (&has_command("yum") && -r "/etc/yum.conf") { $update_system = "yum"; } elsif (&has_command("dnf") && -r "/etc/dnf/dnf.conf") { # DNF is basically compatible with YUM $update_system = "yum"; } elsif (&has_command("up2date") && &has_command("rhn_check")) { $update_system = "rhn"; } elsif (-x "/opt/csw/bin/pkg-get" || &has_command("pkg-get") || -x "/opt/csw/bin/pkgutil" || &has_command("pkgutil")) { $update_system = "csw"; } elsif (&has_command("urpmi")) { $update_system = "urpmi"; } elsif (&has_command("emerge")) { $update_system = "emerge"; } elsif (&has_command("pkgin") || -x "/usr/pkg/bin/pkgin") { $update_system = "pkgsrc"; } } if ($update_system) { # Load the update system specific library, unless it has already been # loaded above if ($update_system ne $config{'package_system'}) { do $update_system."-lib.pl"; } $has_update_system = 1; } # uncompress_if_needed(file, disposable) # If some file needs to be uncompressed or ungzipped, do it and return the # new temp file path. Otherwise, return the original path. sub uncompress_if_needed { return $_[0] if (&is_readonly_mode()); # don't even bother open(PFILE, "<".$_[0]); read(PFILE, $two, 2); close(PFILE); if ($two eq "\037\235") { if (!&has_command("uncompress")) { &unlink_file($_[0]) if ($_[1]); &error($text{'soft_euncompress'}); } local $temp = $_[0] =~ /\/([^\/]+)\.Z/i ? &tempname("$1") : &tempname(); local $qfile = quotemeta($_[0]); local $qtemp = quotemeta($temp); local $out = &backquote_command("uncompress -c $qfile >$qtemp 2>&1"); unlink($_[0]) if ($_[1]); if ($?) { unlink($temp); &error(&text('soft_euncmsg', $out)); } return $temp; } elsif ($two eq "\037\213") { if (!&has_command("gunzip")) { unlink($_[0]) if ($_[1]); &error($text{'soft_egzip'}); } local $temp = $_[0] =~ /\/([^\/]+)\.gz/i ? &tempname("$1") : &tempname(); local $qfile = quotemeta($_[0]); local $qtemp = quotemeta($temp); local $out = &backquote_command("gunzip -c $qfile >$qtemp 2>&1"); unlink($_[0]) if ($_[1]); if ($?) { unlink($temp); &error(&text('soft_egzmsg', $out)); } return $temp; } return $_[0]; } # show_package_info(package, version, [no-installed-message]) sub show_package_info { my ($name, $ver, $nomsg) = @_; my @pinfo = &package_info($name, $ver); return () if (!@pinfo); print &ui_subheading(&text('do_success', $name)) if (!$nomsg); print &ui_table_start($text{'edit_details'}, "width=100%", 4, [ "width=20%", undef, "width=20%", undef ]); # Package description if ($pinfo[2]) { $desc = &html_escape(&entities_to_ascii($pinfo[2])); $desc =~ s/^\s*\.\s*$//gm; $desc =~ s/\r?\n/ <br>/g; print &ui_table_row($text{'edit_desc'}, "<tt>$desc</tt>", 3); } # Name print &ui_table_row($text{'edit_pack'}, &html_escape($pinfo[0])); # Class, if any print &ui_table_row($text{'edit_class'}, $pinfo[1] ? &html_escape($pinfo[1]) : $text{'edit_none'}); # Version number print &ui_table_row($text{'edit_ver'}, &html_escape($pinfo[4])); if ($pinfo[5]) { # Vendor print &ui_table_row($text{'edit_vend'}, &html_escape(&entities_to_ascii($pinfo[5]))); } # Architecture print &ui_table_row($text{'edit_arch'}, &html_escape($pinfo[3])); if ($pinfo[6]) { # Install date print &ui_table_row($text{'edit_inst'}, $pinfo[6]); } if ($pinfo[7]) { # URL print &ui_table_row($text{'edit_url'}, &ui_link("e_escape($pinfo[7], "'"), &html_escape($pinfo[7]), undef, " target='_blank'")); } print &ui_table_end(); # Dependencies, if we can get them my @deps = defined(&package_dependencies) ? &package_dependencies($name, $ver) : ( ); if (@deps) { my $dtable = &ui_columns_start([ $text{'edit_dname'}, $text{'edit_dtype'}, $text{'edit_dvers'} ]); foreach my $d (@deps) { my @row; if ($d->{'package'}) { push(@row, &ui_link("edit_pack.cgi?package=". &urlize($d->{'package'}), $d->{'package'})); push(@row, $text{'edit_dpackage'}); } elsif ($d->{'file'}) { push(@row, &ui_link("file_info.cgi?file=". &urlize($d->{'file'}), $d->{'file'})); push(@row, $text{'edit_dfile'}); } elsif ($d->{'library'}) { push(@row, $d->{'library'}); push(@row, $text{'edit_dlibrary'}); } else { push(@row, $d->{'other'}); push(@row, $text{'edit_dother'}); } if ($d->{'version'}) { push(@row, (!$d->{'compare'} || $d->{'compare'} eq '=' ? '' : $d->{'compare'}.' ').$d->{'version'}); } else { push(@row, ""); } $dtable .= &ui_columns_row(\@row); } $dtable .= &ui_columns_end(); # Print proper details box print &ui_details({ title => $text{edit_deps}, class => 'default default-lg', content => $dtable, html => 1 }); } return @pinfo; } @type_map = ( $text{'soft_reg'}, $text{'soft_dir'}, $text{'soft_spec'}, $text{'soft_sym'}, $text{'soft_hard'}, $text{'soft_edit'} ); # get_heiropen() # Returns an array of open categories sub get_heiropen { open(HEIROPEN, $heiropen_file); local @heiropen = <HEIROPEN>; chop(@heiropen); close(HEIROPEN); return @heiropen; } # save_heiropen(&heir) sub save_heiropen { &open_tempfile(HEIR, ">$heiropen_file"); foreach $h (@{$_[0]}) { &print_tempfile(HEIR, $h,"\n"); } &close_tempfile(HEIR); } # missing_install_link(package, description, return, return-desc) # Returns HTML for installing some package that is missing, from the # appropriate update system for this OS. Returns undef if automatic installation # is not possible for some reason. # Supported package names are : # apache # sendmail # postfix # squid # procmail # samba # mysql # postgresql # clamav # spamassassin sub missing_install_link { local ($name, $desc, $return, $returndesc) = @_; return undef if (!defined(&update_system_resolve)); return undef if (!&foreign_check($module_name)); local ($pkg, $flags) = &update_system_resolve($name); return undef if (!$pkg); local ($cpkg) = caller(); local $caller = eval '$'.$cpkg.'::module_name'; return &ui_form_start("@{[&get_webprefix()]}/$module_name/install_pack.cgi", "get"). &text('missing_msg', $desc, $text{$update_system."_name"})."\n". &ui_hidden("source", 3). &ui_hidden("update", $pkg). &ui_hidden("flags", $flags). &ui_hidden("return", $return). &ui_hidden("returndesc", $returndesc). &ui_hidden("caller", $caller). &ui_form_end([ [ undef, $text{'missing_now'} ] ]); } # update_system_button(field-name, label) # Returns HTML for a button that opens the update system search window sub update_system_button { local ($name, $label) = @_; if (defined(&update_system_available) || defined(&update_system_search)) { return "<input type=button onClick='window.ifield = form.$name; chooser = window.open(\"../$module_name/find.cgi\", \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=600,height=500\")' value=\"$label\">"; } return undef; } # compare_versions(ver1, ver2) # Returns -1 if ver1 is older than ver2, 1 if newer, 0 if same sub compare_versions { local ($ver1, $rel1) = split(/-/, $_[0], 2); local ($ver2, $rel2) = split(/-/, $_[1], 2); if ($rel1 ne "" && $rel2 ne "" && $config{'package_system'} eq 'rpm') { # If two RPM packages have releases, then the version part comparison # must be done first and separately so that release number parts don't # override version parts. return &compare_versions($ver1, $ver2) || &compare_versions($rel1, $rel2); } return &compare_version_numbers($_[0], $_[1]); } # check_package_system() # Returns an error message if some command needed by the selected package # management system is missing. sub check_package_system { local $err; if (defined(&validate_package_system)) { $err = &validate_package_system(); } if (defined(&list_package_system_commands)) { foreach my $c (&list_package_system_commands()) { $c =~ s/\s+.*$//; # Strip off args if (!&has_command($c)) { $err ||= &text('index_epackagecmd', &package_system(), "<tt>$c</tt>"); } } } return $err; } # check_update_system() # Returns an error message if some command needed by the selected update # system is missing. sub check_update_system { return undef if (!$update_system); local $err; if (defined(&validate_update_system)) { $err = &validate_update_system(); } if (defined(&list_update_system_commands)) { foreach my $c (&list_update_system_commands()) { if (!&has_command($c)) { $err ||= &text('index_eupdatecmd', $text{$update_system.'_name'} || uc($update_system), "<tt>$c</tt>"); } } } return $err; } 1;
Save File
Cancel