📄 edit_pack.cgi
字号:
#!/usr/local/bin/perl# edit_pack.cgi# Displays the details of an existing package, with links to uninstall and# other optionsrequire './software-lib.pl';&header($text{'edit_title'}, "", "edit_pack");&ReadParse();print "<hr>\n";@pinfo = &package_info($in{'package'});print "<table border width=100%>\n";print "<tr $tb> <td><b>$text{'edit_details'}</b></td> </tr>\n";print "<tr $cb> <td><table width=100%>\n";print "<tr> <td valign=top width=20%><b>$text{'edit_desc'}</b></td>\n";print "<td colspan=3><font size=+1><pre>$pinfo[2]</pre></font></td> </tr>\n";print "<tr> <td width=20%><b>$text{'edit_pack'}</b></td> <td>$pinfo[0]</td>\n";print "<td width=20%><b>$text{'edit_class'}</b></td> <td>", $pinfo[1] ? $pinfo[1] : $text{'edit_none'},"</td> </tr>\n";print "<tr> <td width=20%><b>$text{'edit_ver'}</b></td> <td>$pinfo[4]</td>\n";print "<td width=20%><b>$text{'edit_vend'}</b></td> <td>$pinfo[5]</td> </tr>\n";print "<tr> <td width=20%><b>$text{'edit_arch'}</b></td> <td>$pinfo[3]</td>\n";print "<td width=20%><b>$text{'edit_inst'}</b></td> <td>$pinfo[6]</td> </tr>\n";print "</table></td></tr></table><p>\n";print "<table width=100%> <tr>\n";print "<form action=list_pack.cgi>\n";print "<input type=hidden name=package value=\"$pinfo[0]\">\n";print "<td align=left><input type=submit value=\"$text{'edit_list'}\"></td>\n";print "</form>\n";print "<form action=delete_pack.cgi>\n";print "<input type=hidden name=package value=\"$pinfo[0]\">\n";print "<td align=right>\n";print "<input type=submit value=\"$text{'edit_uninst'}\"></td>\n";print "</form>\n";print "</tr> </table><p>\n";print "<hr>\n";&footer("index.cgi#$pinfo[1]", $text{'index_return'});
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -