summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-08-15 07:24:11 +0000
committerDaouda Lo <daouda@mandriva.com>2002-08-15 07:24:11 +0000
commit9ebe3de6ca63e62cd3527760c7c3bce4aa953559 (patch)
tree27fb87469a6d9d68f9709416e618aa0bb4360350 /perl-install/standalone/drakbug
parentf9d8ffe71cb58b7a46019269a56d13af9833c30c (diff)
downloaddrakx-backup-do-not-use-9ebe3de6ca63e62cd3527760c7c3bce4aa953559.tar
drakx-backup-do-not-use-9ebe3de6ca63e62cd3527760c7c3bce4aa953559.tar.gz
drakx-backup-do-not-use-9ebe3de6ca63e62cd3527760c7c3bce4aa953559.tar.bz2
drakx-backup-do-not-use-9ebe3de6ca63e62cd3527760c7c3bce4aa953559.tar.xz
drakx-backup-do-not-use-9ebe3de6ca63e62cd3527760c7c3bce4aa953559.zip
- add --incident : could be used by signal catcher to launch drakbug
when app crash
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug12
1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index ff78b6954..754408112 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -34,6 +34,7 @@ my $in = 'interactive'->vnew;
$::bugzilla_url = "https://qa.mandrakesoft.com";
my $version = "0.9.0";
my $prog;
+my $incident=1;
sub usage {
print STDERR _("drakbug version %s
@@ -45,6 +46,7 @@ usage: drakbug [OPTIONS] [PROGRAM_NAME]
OPTIONS:
", $version) . _(" --help - print this help message.
") . "\n" . _(" --report - program should be one of mandrake tools
+") . "\n" . _(" --incident - program should be one of mandrake tools
");
exit(0);
}
@@ -52,6 +54,7 @@ OPTIONS:
while (defined($_ = shift @ARGV)) {
/^--help$/ and do { usage; next };
/^--report$/ and do { $prog = shift @ARGV };
+ /^--incident$/ and do {$incident = 1 ; $prog = shift @ARGV };
}
my $window_g = new Gtk::Window -toplevel;
@@ -126,8 +129,11 @@ my $hbx = new Gtk::HBox(0,0);
my $Close_Button = new Gtk::Button(_("Close"));
$Close_Button->signal_connect(clicked => sub { Gtk->exit(0) });
$hbx->pack_start($Close_Button,0,0,0);
+my $options = "mdkwizard=1";
+$options.="";
+
my $Report_Button = new Gtk::Button(_("Report"));
-$Report_Button->signal_connect(clicked => sub { connect_bugzilla("$::bugzilla_url/wizard/") });
+$Report_Button->signal_connect(clicked => sub { connect_bugzilla("$::bugzilla_url/wizard?"."$options") });
$hbx->pack_end($Report_Button,0,0,0);
$vbx->pack_start($hbx,0,0,0);
$window_g->add($vbx);
@@ -167,6 +173,10 @@ sub get_package {
$rpm_package;
}
+sub parse_release {
+ my ($rel) = cat_('/etc/mandrake-release') =~ /release\s(\S+\s\(.*\))/;
+
+}
sub connect_bugzilla {
my($url) = @_;
my $w = $in->wait_message('',_("connecting to Bugzilla wizard ..."));