Remove redundant form

This commit is contained in:
Jamie Cameron
2018-10-28 22:35:43 -07:00
parent 21dffa1115
commit b4e20f74d1
4 changed files with 0 additions and 52 deletions

View File

@ -114,15 +114,5 @@ close(PKG);
return sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @rv;
}
# update_system_form()
# Shows a form for updating all packages on the system
sub update_system_form
{
print &ui_subheading($text{'csw_form'});
print &ui_form_start("csw_upgrade.cgi");
print &ui_submit($text{'csw_upgrade'});
print &ui_form_end();
}
1;

View File

@ -1,24 +0,0 @@
#!/usr/local/bin/perl
# Upgrade all CSW packages
require './software-lib.pl';
&ReadParse();
&ui_print_unbuffered_header(undef, $text{'csw_upgrade'}, "");
print "<b>",&text('csw_updatedesc',
"<tt>$pkg_get upgrade</tt>"),"</b><p>\n";
print "<pre>";
&additional_log("exec", undef, "$pkg_get upgrade");
&clean_environment();
$flag = $pkg_get =~ /pkgutil/ ? "--upgrade" : "upgrade";
open(CMD, "yes y | $pkg_get $flag 2>&1 </dev/null |");
while(<CMD>) {
print &html_escape($_);
}
close(CMD);
&reset_environment();
print "</pre>\n";
&ui_print_footer("", $text{'index_return'});

View File

@ -136,13 +136,4 @@ while(my $line = <PKG>) {
return @rv;
}
# update_system_form()
# Show a form for updating the ports DB
sub update_system_form
{
print &ui_subheading($text{'ports_form'});
print &ui_form_start("ports_upgrade.cgi");
print &ui_form_end([ [ undef, $text{'ports_apply'} ] ]);
}
1;

View File

@ -196,15 +196,6 @@ if (&compare_versions($pinfo[4], "2.1.10") > 0) {
return undef;
}
# update_system_form()
# Shows a form for updating all packages on the system
sub update_system_form
{
print &ui_subheading($text{'yum_form'});
print &ui_form_start("yum_upgrade.cgi");
print &ui_form_end([ [ undef, $text{'yum_apply'} ] ]);
}
# update_system_resolve(name)
# Converts a standard package name like apache, sendmail or squid into
# the name used by YUM.