summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-08-02 11:30:24 +0000
committerDaouda Lo <daouda@mandriva.com>2002-08-02 11:30:24 +0000
commit8a0e1ec63251747b5d68ba13aa47ef1052255bd1 (patch)
tree107a98e7133f19a76b38c5c23b46b5309ac32bf1 /perl-install/standalone/drakbug
parentebc49654e7ec7da8695ccc259080dfa03803d5c2 (diff)
downloaddrakx-backup-do-not-use-8a0e1ec63251747b5d68ba13aa47ef1052255bd1.tar
drakx-backup-do-not-use-8a0e1ec63251747b5d68ba13aa47ef1052255bd1.tar.gz
drakx-backup-do-not-use-8a0e1ec63251747b5d68ba13aa47ef1052255bd1.tar.bz2
drakx-backup-do-not-use-8a0e1ec63251747b5d68ba13aa47ef1052255bd1.tar.xz
drakx-backup-do-not-use-8a0e1ec63251747b5d68ba13aa47ef1052255bd1.zip
- add commandline arguments: drakbug --report name_app
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug45
1 files changed, 27 insertions, 18 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 3ec74570d..4fff2c296 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -66,14 +66,14 @@ my $mdk_app = {
_("Mandrake Control Center") => 'drakconf',
_("First Time Wizard") => 'drakfw',
_("Synchronization tool") => 'draksync',
- _("Standalone Tools") =>['adduserdrake','diskdrake','drakautoinst','drakbackup','drakboot','drakbug','drakfloppy','drakfont','drakgw','drakconnect','drakxservices','drakxtv','keyboardrake','logdrake','mousedrake','net_monitor','printerdrake','scannerdrake','tinyfirewall','XFdrake'],
+ _("Standalone Tools") => ['adduserdrake','diskdrake','drakautoinst','drakbackup','drakboot','drakbug','drakfloppy','drakfont','drakgw','drakconnect','drakxservices','drakxtv','keyboardrake','logdrake','mousedrake','net_monitor','printerdrake','scannerdrake','tinyfirewall','XFdrake'],
_("HardDrake") => 'harddrake2',
- _("Mandrake Online") => ['mdkonline','mdkupdate'],
+ _("Mandrake Online") => 'mdkonline',
_("Menudrake") => 'menudrake',
_("Msec") => 'msec',
_("Remote Control") => 'rfbdrake',
- _("Software Manager") => ['rpmdrake','MandrakeUpdate'],
- _("Urpmi") => ['urpmi','urpmq','urpme'],
+ _("Software Manager") => 'rpmdrake',
+ _("Urpmi") => 'urpmi',
_("Windows Migration tool") => 'transfugdrake',
_("Userdrake") => 'userdrake',
_("Configuration Wizards") => 'wizdrake',
@@ -96,7 +96,7 @@ $table->attach(new Gtk::Label(_("Kernel:")), 0, 1, 2, 3, 'fill', 'fill',0,0);
$table->attach(new Gtk::Label(_("Release: ")), 0, 1, 3, 4, 'fill', 'fill',0,0);
$table->attach(my $comb_app = new Gtk::Combo(), 1, 2, 0, 1, 'fill', 'fill',0,0);
$comb_app->set_usize(270,undef);
-$comb_app->set_popdown_strings("",@generic_tool);
+$comb_app->set_popdown_strings("",sort(@generic_tool));
$table->attach(my $package = new Gtk::Entry(), 1, 2, 1, 2, 'fill', 'fill',0,0);
$package->set_text("...");
$table->attach(my $kernel_rel = new Gtk::Entry(), 1, 2, 2, 3, 'fill', 'fill',0,0);
@@ -114,8 +114,8 @@ gtkpack2__(
),
);
-if (defined $prog && member($prog, @all_drakxtools)) {
- $comb_app->entry->set_text($prog);
+
+if (defined $prog) {
update_app($prog);
};
@@ -138,16 +138,28 @@ in->exit(0);
sub update_app {
my ($text) = @_;
- if ($text ne '') {
- $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
- if (member($text,@all_drakxtools)) {
- chomp($app_choice = `rpm -q drakxtools`)
- } else {
- exists $mdk_app->{$text}[1] ? $which_app =chomp_(`which '$mdk_app->{$text}[1]'`) : { $which_app = chomp_(`which '$mdk_app->{$text}'`) };
- $app_choice = chomp_(`rpm -qf '$which_app'`);
+ my $app_choice;
+ $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
+ if (member($text,@all_drakxtools) || $text eq _("Standalone Tools")) {
+ $app_choice = chomp_(`rpm -q drakxtools`) ;
+ } elsif (member($text,keys %{$mdk_app}) && $text ne _("Standalone Tools")) {
+ $which_app = chomp_(`which '$mdk_app->{$text}'`);
+ $app_choice = chomp_(`rpm -qf '$which_app' 2>1&`);
+ } else {
+ while (($key,$value) = each %{$mdk_app}) {
+ next if $key eq _("Standalone Tools");
+ if ($value eq $text) {
+ $which_app = chomp_(`which '$text'`);
+ $app_choice = chomp_(`rpm -qf '$which_app' 2>1&`);
+ $text = $key;
+ print ("*********** key is : $key **** text is : $text\n");
+
+ last;
+ }
}
- $app_choice !~ m/ / ? $package->set_text("$app_choice") : $package->set_text(_("Not installed"));
}
+ $app_choice ne '' ? $package->set_text("$app_choice") : $package->set_text(_("Not installed"));
+ $comb_app->entry->set_text("$text");
}
sub connect_bugzilla {
@@ -169,6 +181,3 @@ sub read_app_context {
sub quit_global {
Gtk->exit(0);
}
-
-
-