Djam/urpm-tools
1
0
Fork 0
mirror of https://abf.rosa.ru/djam/urpm-tools.git synced 2025-02-24 01:42:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

URPM-repoclosure 1.4.4: updated --title option.

Browse source
This commit is contained in:
Andrey Ponomarenko 2012-09-18 15:47:23 +04:00
parent f2d8934353
commit c3716f4a50
1 changed files with 24 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
urpm-repoclosure.pl
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl #!/usr/bin/perl
######################################################## ########################################################
# URPM Repo Closure Checker 1.4.3 for Linux # URPM Repo Closure Checker 1.4.4 for Linux
# A tool for checking closure of a set of RPM packages # A tool for checking closure of a set of RPM packages
# #
# Copyright (C) 2011-2012 ROSA Laboratory # Copyright (C) 2011-2012 ROSA Laboratory
@ -38,7 +38,7 @@ use File::Copy qw(copy move);
use Data::Dumper; use Data::Dumper;
use strict; use strict;
my $TOOL_VERSION = "1.4.3"; my $TOOL_VERSION = "1.4.4";
my $CmdName = get_filename($0); my $CmdName = get_filename($0);
my ($Help, $ShowVersion, $RPMlist, $RPMdir, $StaticMode, my ($Help, $ShowVersion, $RPMlist, $RPMdir, $StaticMode,
@ -910,12 +910,13 @@ sub staticCheck()
my ($Report, $VReport) = (); my ($Report, $VReport) = ();
$VReport .= "<h1>Urpm-repoclosure report</h1>\n"; $VReport = "URPM-repoclosure report";
$VReport .= "This report has been generated";
if($RTitle) { if($RTitle) {
$VReport .= " for <b>$RTitle</b>"; # $VReport .= " for <span style='color:Blue;'>$RTitle</span>";
} }
elsif($HDlist) { $VReport = "<h1>$VReport</h1>\n";
$VReport .= "This report has been generated";
if($HDlist) {
$VReport .= " for this <a href=\'$HDlist\'>hdlist</a>"; $VReport .= " for this <a href=\'$HDlist\'>hdlist</a>";
} }
@ -926,6 +927,10 @@ sub staticCheck()
#$VReport .= "<hr/>\n"; #$VReport .= "<hr/>\n";
$VReport .= "<table class='summary'>\n"; $VReport .= "<table class='summary'>\n";
if($RTitle) {
$VReport .= "<tr><th>Repository</th><td width='100px'>$RTitle</td></tr>\n";
}
my $UnresolvedLink = "0 (0.0%)"; my $UnresolvedLink = "0 (0.0%)";
if(my $Num = keys(%Unresolved)) { if(my $Num = keys(%Unresolved)) {
$UnresolvedLink = "<a href='#Unresolved'>".$Num."</a>"." (".show_number($Num*100/$TotalDeps)."%)"; $UnresolvedLink = "<a href='#Unresolved'>".$Num."</a>"." (".show_number($Num*100/$TotalDeps)."%)";
@ -1060,13 +1065,11 @@ table.summary th {
background-color:#EEEEEE; background-color:#EEEEEE;
font-weight:100; font-weight:100;
text-align:left; text-align:left;
white-space:nowrap;
border:1px inset gray; border:1px inset gray;
padding: 3px; padding: 3px;
} }
table.summary td { table.summary td {
text-align:right; text-align:right;
white-space:nowrap;
border:1px inset gray; border:1px inset gray;
padding: 3px 5px 3px 10px; padding: 3px 5px 3px 10px;
} }
@ -1085,15 +1088,15 @@ table.report td {
padding-right:15px; padding-right:15px;
}"; }";
my $Footer = "<hr/><div style='width:99%;font-size:11px;' align='right'><i>Generated on ".(localtime time); my $Footer = "<hr/><div style='width:100%;font-size:11px;font-family:Arial;' align='right'><i>Generated on ".(localtime time);
$Footer .= " by <a href='https://abf.rosalinux.ru/import/urpm-tools/'>Urpm-repoclosure</a> $TOOL_VERSION &#160;</i></div><div style='height:50px;'></div>"; $Footer .= " by <a href='https://abf.rosalinux.ru/import/urpm-tools/'>URPM-repoclosure</a> $TOOL_VERSION &#160;</i></div><div style='height:50px;'></div>";
$VReport = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"> $VReport = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\"> <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
<head> <head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" /> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
<title> <title>
Urpm-repoclosure report URPM-repoclosure report
</title> </title>
<style type=\"text/css\"> <style type=\"text/css\">
$Styles $Styles
@ -1108,9 +1111,16 @@ table.report td {
} }
# debug info # debug info
writeFile("$RESULTS_DIR/debug/rpm-provides.txt", Dumper($RPMdep{"provides"})); writeFile("$RESULTS_DIR/debug/target/rpm-provides.txt", Dumper($RPMdep{"provides"}));
writeFile("$RESULTS_DIR/debug/rpm-requires.txt", Dumper($RPMdep{"requires"})); writeFile("$RESULTS_DIR/debug/target/rpm-requires.txt", Dumper($RPMdep{"requires"}));
writeFile("$RESULTS_DIR/debug/rpm-suggests.txt", Dumper($RPMdep{"suggests"})); writeFile("$RESULTS_DIR/debug/target/rpm-suggests.txt", Dumper($RPMdep{"suggests"}));
if(keys(%RPMdep_D))
{
writeFile("$RESULTS_DIR/debug/deps/rpm-provides.txt", Dumper($RPMdep_D{"provides"}));
writeFile("$RESULTS_DIR/debug/deps/rpm-requires.txt", Dumper($RPMdep_D{"requires"}));
writeFile("$RESULTS_DIR/debug/deps/rpm-suggests.txt", Dumper($RPMdep_D{"suggests"}));
}
print "Report has been generated to:"; print "Report has been generated to:";
print "\n $RESULTS_DIR/report.txt (html)\n\n"; print "\n $RESULTS_DIR/report.txt (html)\n\n";