From f407ed64ddf4070d54f0e631b0eee6ce070933a9 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 15 Jan 2004 18:51:32 +0000 Subject: more graphical feedback in urpmi --parallel --X (status, progress, etc) --- urpm.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index 6cbea321..490dff02 100644 --- a/urpm.pm +++ b/urpm.pm @@ -29,7 +29,8 @@ sub basename { local $_ = shift; s|/*\s*$||; s|.*/||; $_ } #- create a new urpm object. sub new { my ($class) = @_; - bless { + my $self; + $self = bless { config => "/etc/urpmi/urpmi.cfg", skiplist => "/etc/urpmi/skip.list", instlist => "/etc/urpmi/inst.list", @@ -47,6 +48,9 @@ sub new { fatal => sub { printf STDERR "%s\n", $_[1]; exit($_[0]) }, error => sub { printf STDERR "%s\n", $_[0] }, log => sub { printf STDERR "%s\n", $_[0] }, + + ui_msg => sub { $self->{log}($_[0]); $self->{ui} and $self->{ui}{msg}->($_[1]); }, + }, $class; } -- cgit v1.2.1