Attachment #144922 for bug #211688

View | Details | Raw Unified | Return to bug 211688
Collapse All | Expand All




					if (!-r $ARGV[0])
					{
						print color 'bold red';
						print "!!! Error: logfile $ARGV[0] not readable or not found.";
							. " not readable ", "or not found.";
						print color 'reset';
						print "\n";
						exit -1;

	my $regexp;
	my @list;

	if ($list_found or $unmerge_found)
	{
		if ($arg =~ m{^=})
		{


if (    !$targets[0]
	and !$list_found
	and !$unmerge_found
	and !$current_found
	and !$pretend_found
	and !$rsync_found)

# FIXME questi a cosa servono ?
if ($rsync_found)   { @targets = (); push @targets, "-r"; }
if ($list_found)    { @targets = (); push @targets, "-l"; }
if ($unmerge_found) { @targets = (); push @targets, "-u"; }
if ($pretend_found) { @targets = (); push @targets, "-p"; }
if ($current_found) { @targets = (); push @targets, "-c"; }



	# this is for packages like gtk+
	$ebuild_arg =~ s/(\+)/\\$1/g;
	
	foreach my $logfile (@logfiles)
	{
		my $handle;

				}
				if (!$e_count)
				{
					# TODO: this bunch of repeated code can be refactored.
					my $p_ebuild = " \* $2\n\n";
					$p_ebuild =~ s/\\//g;
					if ($search_found)
					{
						print colored(" \* matches found:\n\n", $COLORS{'blue'});
					}
					elsif ($list_found && $unmerge_found)
					{
						print colored(" \* packages merged and unmerged:\n\n", 
							$COLORS{'blue'});
					}
					elsif ($list_found)
					{
						print colored(" \* packages merged:\n\n", $COLORS{'blue'});
					}
					elsif ($unmerge_found)
					{
						print colored(" \* packages unmerged:\n\n", $COLORS{'blue'});
					}
					else
					{
						if ($ebuild_arg =~ m/\/$/)
						{
							print colored(" \* $ebuild_arg\n\n", $COLORS{'blue'});
						}
						else
						{
							print colored("$p_ebuild", $COLORS{'blue'});
						}
					}
					else
					{
						print colored(" \* matches found:\n\n", $COLORS{'blue'});
					}
				}
				if ($list_found or $ebuild_found or $time_found)
				{
					my $eb = $2;
					my $extra = $3 || "";

			}
		}
	}
	unless ($e_count or $unmerge_found or $list_found or $rsync_found)
	{
		if ($e_count == 0)
		{

	print "$lhtomsg\n";
	print color 'reset';
}


Return to bug 211688

Lines 298-305 Link Here

(-)genlop (-13 / +27 lines)
298	if (!-r $ARGV[0])	298	if (!-r $ARGV[0])
299	{	299	{
300	print color 'bold red';	300	print color 'bold red';
301	print "!!! Error: logfile " . $ARGV[0]	301	print "!!! Error: logfile $ARGV[0] not readable or not found.";
302	. " not readable ", "or not found.";
303	print color 'reset';	302	print color 'reset';
304	print "\n";	303	print "\n";
305	exit -1;	304	exit -1;
Lines 450-456 Link Here
450	my $regexp;	449	my $regexp;
451	my @list;	450	my @list;
452		451
453	if ($list_found)	452	if ($list_found or $unmerge_found)
454	{	453	{
455	if ($arg =~ m{^=})	454	if ($arg =~ m{^=})
456	{	455	{
Lines 991-996 Link Here
991		990
992	if ( !$targets[0]	991	if ( !$targets[0]
993	and !$list_found	992	and !$list_found
		993	and !$unmerge_found
994	and !$current_found	994	and !$current_found
995	and !$pretend_found	995	and !$pretend_found
996	and !$rsync_found)	996	and !$rsync_found)
Lines 1001-1006 Link Here
1001	# FIXME questi a cosa servono ?	1001	# FIXME questi a cosa servono ?
1002	if ($rsync_found) { @targets = (); push @targets, "-r"; }	1002	if ($rsync_found) { @targets = (); push @targets, "-r"; }
1003	if ($list_found) { @targets = (); push @targets, "-l"; }	1003	if ($list_found) { @targets = (); push @targets, "-l"; }
		1004	if ($unmerge_found) { @targets = (); push @targets, "-u"; }
1004	if ($pretend_found) { @targets = (); push @targets, "-p"; }	1005	if ($pretend_found) { @targets = (); push @targets, "-p"; }
1005	if ($current_found) { @targets = (); push @targets, "-c"; }	1006	if ($current_found) { @targets = (); push @targets, "-c"; }
1006		1007
Lines 1022-1028 Link Here
1022		1023
1023	# this is for packages like gtk+	1024	# this is for packages like gtk+
1024	$ebuild_arg =~ s/(\+)/\\$1/g;	1025	$ebuild_arg =~ s/(\+)/\\$1/g;
1025		1026
1026	foreach my $logfile (@logfiles)	1027	foreach my $logfile (@logfiles)
1027	{	1028	{
1028	my $handle;	1029	my $handle;
Lines 1076-1100 Link Here
1076	}	1077	}
1077	if (!$e_count)	1078	if (!$e_count)
1078	{	1079	{
		1080	# TODO: this bunch of repeated code can be refactored.
1079	my $p_ebuild = " \* $2\n\n";	1081	my $p_ebuild = " \* $2\n\n";
1080	$p_ebuild =~ s/\\//g;	1082	$p_ebuild =~ s/\\//g;
1081	if (!$search_found)	1083	if ($search_found)
1082	{	1084	{
		1085	print colored(" \* matches found:\n\n", $COLORS{'blue'});
		1086	}
		1087	elsif ($list_found && $unmerge_found)
		1088	{
		1089	print colored(" \* packages merged and unmerged:\n\n",
		1090	$COLORS{'blue'});
		1091	}
		1092	elsif ($list_found)
		1093	{
		1094	print colored(" \* packages merged:\n\n", $COLORS{'blue'});
		1095	}
		1096	elsif ($unmerge_found)
		1097	{
		1098	print colored(" \* packages unmerged:\n\n", $COLORS{'blue'});
		1099	}
		1100	else
		1101	{
1083	if ($ebuild_arg =~ m/\/$/)	1102	if ($ebuild_arg =~ m/\/$/)
1084	{	1103	{
1085	print colored("\* $ebuild_arg\n\n", $COLORS{'blue'});	1104	print colored(" \* $ebuild_arg\n\n", $COLORS{'blue'});
1086	}	1105	}
1087	else	1106	else
1088	{	1107	{
1089	print colored("$p_ebuild", $COLORS{'blue'});	1108	print colored("$p_ebuild", $COLORS{'blue'});
1090	}	1109	}
1091	}	1110	}
1092	else
1093	{
1094	print colored(" \* matches found:\n\n", $COLORS{'blue'});
1095	}
1096	}	1111	}
1097	if ($ebuild_found or !$info_found or $time_found)	1112	if ($list_found or $ebuild_found or $time_found)
1098	{	1113	{
1099	my $eb = $2;	1114	my $eb = $2;
1100	my $extra = $3 \|\| "";	1115	my $extra = $3 \|\| "";
Lines 1133-1139 Link Here
1133	}	1148	}
1134	}	1149	}
1135	}	1150	}
1136	if (!$e_count and !$list_found and !$rsync_found)	1151	unless ($e_count or $unmerge_found or $list_found or $rsync_found)
1137	{	1152	{
1138	if ($e_count == 0)	1153	if ($e_count == 0)
1139	{	1154	{
Lines 1174-1177 Link Here
1174	print "$lhtomsg\n";	1189	print "$lhtomsg\n";
1175	print color 'reset';	1190	print color 'reset';
1176	}	1191	}
1177