| Server IP : 182.53.201.61 / Your IP : 216.73.217.175 Web Server : Apache/2.2.15 (Fedora) System : Linux km10.dyndns.org 2.6.31.5-127.fc12.i686.PAE #1 SMP Sat Nov 7 21:25:57 EST 2009 i686 User : apache ( 48) PHP Version : 5.3.3 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/libexec/webmin/software/ |
Upload File : |
#!/usr/bin/perl
# rhn.cgi
# Display a list of packages available for download from RHN
require './software-lib.pl';
$bgcolor = defined($gconfig{'cs_page'}) ? $gconfig{'cs_page'} : "ffffff";
$link = defined($gconfig{'cs_link'}) ? $gconfig{'cs_link'} : "0000ee";
$text = defined($gconfig{'cs_text'}) ? $gconfig{'cs_text'} : "000000";
&PrintHeader();
print <<EOF;
<html>
<head><title>$text{'rhn_title'}</title>
<script>
function sel(p)
{
window.opener.ifield.value = p;
window.close();
return false;
}
</script>
</head><body bgcolor=#$bgcolor link=#$link vlink=#$link text=#$text>
EOF
$out = `up2date -l 2>&1`;
if ($out =~ /Error Message:/i) {
print "<pre>$out</pre>\n";
}
else {
print "<table width=100%>\n";
foreach (split(/\n/, $out)) {
if ($dashes && /^(\S+)\s+(\S+)\s+(\S+)/) {
if (!$count++) {
print "<tr> <td><b>$text{'rhn_pack'}</b></td> ",
"<td align=right><b>",
"$text{'rhn_version'}</b></td> </tr>\n";
}
print "<tr>\n";
print "<td><a href='' onClick='sel(\"$1\")'>$1</a></td>\n";
print "<td align=right>$2 - $3</td>\n";
print "</tr>\n";
}
elsif (/^----/) {
last if ($dashes);
$dashes++;
}
}
print "</table>\n";
if (!$count) {
print "<b>$text{'rhn_nonefound'}</b><p>\n";
}
}
print "</body></html>\n";