summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-02-27 18:34:35 +0000
committerDaouda Lo <daouda@mandriva.com>2004-02-27 18:34:35 +0000
commitc5bbf4370ae59be098e3403f6abcda184af71c2e (patch)
tree670905441dadd8dd357709de8b74695b9293ff50
parent2e55a661e56bbf12c1174c1ced7726ff6bb3dd58 (diff)
downloadmgaonline-c5bbf4370ae59be098e3403f6abcda184af71c2e.tar
mgaonline-c5bbf4370ae59be098e3403f6abcda184af71c2e.tar.gz
mgaonline-c5bbf4370ae59be098e3403f6abcda184af71c2e.tar.bz2
mgaonline-c5bbf4370ae59be098e3403f6abcda184af71c2e.tar.xz
mgaonline-c5bbf4370ae59be098e3403f6abcda184af71c2e.zip
- update
-rwxr-xr-xmdkapplet56
1 files changed, 34 insertions, 22 deletions
diff --git a/mdkapplet b/mdkapplet
index 23c2609f..0110d720 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -33,8 +33,13 @@ if ($@) {
}
my ($eventbox, $img);
add_icon_path("/usr/share/mdkonline/pixmaps/");
-my $menu;
+my ($menu, $url);
my $nowindow = 1;
+
+my $link = "https://www.mandrakeonline.net/online3_RemoteAction.php/";
+
+$url->{UpdateList} = $link . '&action=UpdateList';
+
my %state = (
okay => {
colour => [ 'green' ],
@@ -71,9 +76,9 @@ my %actions = (
'update' => { name => N("Launch Mandrake Update"), launch => sub { launchUpdate() } },
'configureApplet' => { name => N("Configuration"), launch => sub { configure() } },
'check' => { name => N("Check Updates"), launch => sub { checkUpdates() } },
- 'weblink' => { name => N("Online WebSite"), launch => sub { getsite() } },
+ 'weblink' => { name => N("Online WebSite"), launch => sub { getSite() } },
'confNetwork' => { name => N("Configure Network"), sub { configNetwork() } },
- 'register' => { name => N("Register Now!"), sub { register() } }
+ 'register' => { name => N("Register Now!"), sub { configure() } }
);
gtkadd(my $icon = Gtk2::TrayIcon->new("MdkApplet"),
@@ -83,14 +88,13 @@ gtkadd(my $icon = Gtk2::TrayIcon->new("MdkApplet"),
)
)
);
-
-print "Setting okay ...\n";
-$menu = setState('okay');
$eventbox->signal_connect(button_press_event => sub {
$_[1]->button == 1 and showMainWindow(); #just for testing
$_[1]->button == 3 && $menu and $menu->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time);
});
+checkUpdates();
+
$icon->show_all;
Gtk2->main;
@@ -108,9 +112,9 @@ sub showMainWindow() {
gtkpack__(Gtk2::VBox->new(0,5),
gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Actions")), 'etched_in'),
gtkpack_(Gtk2::VBox->new(0, 3),
- 1, gtksignal_connect(Gtk2::Button->new(N("Check Updates")), clicked => sub { checkUpdates() }),
- 1, gtksignal_connect(Gtk2::Button->new(N("Start MandrakeUpdate")), clicked => sub { mdkUpdate() }),
- 1, gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub { launchMdkOnline() }),
+ 1, gtksignal_connect(Gtk2::Button->new(N("Install updates")), clicked => sub { installUpdates() }),
+ 1, gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub { configure() }),
+ 1, gtksignal_connect(Gtk2::Button->new(N("Check updates")), clicked => sub { checkUpdates() }),
1, gtksignal_connect(Gtk2::Button->new(N("See logs")), clicked => sub { displayLogs() }),
)
),
@@ -138,29 +142,34 @@ sub showMainWindow() {
));
$w->show_all
}
-sub displayLogs() {
-
-}
sub confNetwork {
- system("/usr/sbin/net_monitor" . "&")
+ system "/usr/sbin/net_monitor &";
}
sub launchUpdate {
- system("/usr/sbin/MandrakeUpdate" . "&");
+ system "/usr/sbin/MandrakeUpdate &";
}
-sub CheckUpdates {
-
+sub installUpdates {
+ # system "/usr/sbin/mdkupdate", "--applet";
+ $menu && $menu->destroy;
+ $menu = setState('error');
+}
+sub checkUpdates {
+ $menu and $menu->destroy;
+ my $time
}
-sub register {
- system("/usr/sbin/mdkonline" . "&")
+sub configure {
+# system "/usr/sbin/mdkonline", "&";
+ $menu && $menu->destroy;
+ $menu = setState('okay');
}
-sub getsite {
+sub getSite {
my $b = browser();
- system("$b " . "https://www.mandrakeonline.com" . "&")
+ system("$b " . "https://www.mandrakeonline.net" . "&")
}
sub browser {
require any;
my $wm = any::running_window_manager();
- member ($wm, 'kwin', 'gnome-seession') or $wm = 'other';
+ member ($wm, 'kwin', 'gnome-session') or $wm = 'other';
my %Br = (
'kwin' => 'konqueror',
'gnome-session' => 'mozilla',
@@ -168,6 +177,9 @@ sub browser {
);
$Br{$wm}
}
+sub displayLogs {
+
+}
sub setState {
my $state_type = shift;
my $arr = $state{$state_type}{menu};
@@ -186,5 +198,5 @@ sub setState {
}
sub about {
create_dialog(N("About Online Applet"),
- "\t" . "<span foreground=\"#21449C\"><u><b>" . N_("Mandrake Update Notification Applet") . "</b></u></span>\n\n<u>" . N_("Version:") . "</u> %s \n\n<u>" . N_("Team:"). "</u> " . N_("Mandrake Online Team"). " &lt;mot\@mandrakeonline.net&gt;\n\n<span foreground=\"#006666\"><i>" . N_("This Software is under GPL") . "</i></span>", ' 10.0 ') , { use_markup => 1 });
+ "\t" . "<span foreground=\"#21449C\"><u><b>" . N_("Mandrake Update Notification Applet") . "</b></u></span>\n\n<u>" . N_("Version:") . "</u> %s \n\n<u>" . N_("Team:"). "</u> " . N_("Mandrake Online Team"). " &lt;mot\@mandrakeonline.net&gt;\n\n<span foreground=\"#006666\"><i>" . N_("This Software is under GPL") . "</i></span>", ' 10.0 ' , { use_markup => 1 });
}