Djam/urpm-tools
1
0
Fork 0
mirror of https://abf.rosa.ru/djam/urpm-tools.git synced 2025-02-23 17:32: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
########################################################
# 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
#
# Copyright (C) 2011-2012 ROSA Laboratory
@ -38,7 +38,7 @@ use File::Copy qw(copy move);
use Data::Dumper;
use strict;
my $TOOL_VERSION = "1.4.3";
my $TOOL_VERSION = "1.4.4";
my $CmdName = get_filename($0);
my ($Help, $ShowVersion, $RPMlist, $RPMdir, $StaticMode,
@ -910,12 +910,13 @@ sub staticCheck()
my ($Report, $VReport) = ();
$VReport .= "<h1>Urpm-repoclosure report</h1>\n";
$VReport .= "This report has been generated";
$VReport = "URPM-repoclosure report";
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>";
}
@ -926,6 +927,10 @@ sub staticCheck()
#$VReport .= "<hr/>\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%)";
if(my $Num = keys(%Unresolved)) {
$UnresolvedLink = "<a href='#Unresolved'>".$Num."</a>"." (".show_number($Num*100/$TotalDeps)."%)";
@ -1060,13 +1065,11 @@ table.summary th {
background-color:#EEEEEE;
font-weight:100;
text-align:left;
white-space:nowrap;
border:1px inset gray;
padding: 3px;
}
table.summary td {
text-align:right;
white-space:nowrap;
border:1px inset gray;
padding: 3px 5px 3px 10px;
}
@ -1085,15 +1088,15 @@ table.report td {
padding-right:15px;
}";
my $Footer = "<hr/><div style='width:99%;font-size:11px;' 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>";
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>";
$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\">
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
<title>
Urpm-repoclosure report
URPM-repoclosure report
</title>
<style type=\"text/css\">
$Styles
@ -1108,9 +1111,16 @@ table.report td {
}
# debug info
writeFile("$RESULTS_DIR/debug/rpm-provides.txt", Dumper($RPMdep{"provides"}));
writeFile("$RESULTS_DIR/debug/rpm-requires.txt", Dumper($RPMdep{"requires"}));
writeFile("$RESULTS_DIR/debug/rpm-suggests.txt", Dumper($RPMdep{"suggests"}));
writeFile("$RESULTS_DIR/debug/target/rpm-provides.txt", Dumper($RPMdep{"provides"}));
writeFile("$RESULTS_DIR/debug/target/rpm-requires.txt", Dumper($RPMdep{"requires"}));
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 "\n $RESULTS_DIR/report.txt (html)\n\n";