aboutsummaryrefslogtreecommitdiffstats
path: root/modules/logviewer/logviewer.pl
diff options
context:
space:
mode:
Diffstat (limited to 'modules/logviewer/logviewer.pl')
-rwxr-xr-xmodules/logviewer/logviewer.pl134
1 files changed, 15 insertions, 119 deletions
diff --git a/modules/logviewer/logviewer.pl b/modules/logviewer/logviewer.pl
index 4bbfb9c..c0c0e70 100755
--- a/modules/logviewer/logviewer.pl
+++ b/modules/logviewer/logviewer.pl
@@ -29,16 +29,23 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use c;
use common;
-#use AdminPanel::Privileges;
use yui;
+#use AdminPanel::Privileges;
+use AdminPanel::Shared;
+
### TODO icon
my $wm_icon = "/usr/share/mcc/themes/default/logdrake-mdk.png";
-#ask_for_authentication() if(require_root_capability());
+#ask_for_authentication($USE_CHLP) if(require_root_capability());
my ($isExplain, $Explain, $isFile, $File, $isWord, $Word);
+# prototypes
+sub alert_config;
+sub quit;
+sub search;
+
#- parse arguments list.
foreach (@ARGV) {
/^--explain=(.*)$/ and do { $isExplain = ($Explain) = $1; $isFile = 1; $File = "/var/log/explanations"; next };
@@ -232,9 +239,9 @@ while(1) {
elsif ($widget == $mailALertButton) {
alert_config();
}
- else {
- warningMsgBox(N("Unmanaged WidgetEvent"));
- }
+ else {
+ warningMsgBox(N("Unmanaged WidgetEvent"));
+ }
}
}
@@ -407,7 +414,7 @@ sub logText {
}
## Save as
-sub save() {
+sub save {
my $outFile = yui::YUI::app()->askForSaveFileName(home(), "*", N("Save as.."));
if ($outFile) {
output($outFile, $logView->logText());
@@ -415,129 +422,18 @@ sub save() {
}
## Quit
-sub quit() {
+sub quit {
$my_win->destroy();
}
## alert config call back
-sub alert_config() {
+sub alert_config {
## TODO
infoMsgBox(N("To be implemented yet"));
return;
}
-### Begin interactive functions ###
-# NOTE next routines (from BEGIN to END) have to be moved to a package and
-# factory got by using yui::YUI::widgetFactory
-
-sub warningMsgBox() {
- my ($st) = @_;
- my $msg_box = $factory->createPopupDialog($yui::YDialogWarnColor);
- my $layout = $factory->createVBox($msg_box);
- my $align = $factory->createAlignment($layout, 3, 0);
- $factory->createLabel( $align, $st, 1, 0);
- $align = $factory->createAlignment($layout, 3, 0);
- $factory->createPushButton($align, N("Ok"));
- $msg_box->waitForEvent();
-
- destroy $msg_box;
-}
-
-sub infoMsgBox() {
- my ($st) = @_;
- my $msg_box = $factory->createPopupDialog($yui::YDialogInfoColor);
- my $layout = $factory->createVBox($msg_box);
- my $align = $factory->createAlignment($layout, 3, 0);
- $factory->createLabel( $align, $st, 1, 0);
- $align = $factory->createAlignment($layout, 3, 0);
- $factory->createPushButton($align, N("Ok"));
- $msg_box->waitForEvent();
-
- destroy $msg_box;
-}
-
-sub msgBox() {
- my ($st) = @_;
- my $msg_box = $factory->createPopupDialog($yui::YDialogNormalColor);
- my $layout = $factory->createVBox($msg_box);
- my $align = $factory->createAlignment($layout, 3, 0);
- $factory->createLabel( $align, $st, 1, 0);
- $align = $factory->createAlignment($layout, 3, 0);
- $factory->createPushButton($align, N("Ok"));
- $msg_box->waitForEvent();
-
- destroy $msg_box;
-}
-
-sub ask_OkCancel() {
- my ($title, $text) = @_;
- my $retVal = 0;
-
- my $msg_box = $factory->createPopupDialog($yui::YDialogNormalColor);
- my $layout = $factory->createVBox($msg_box);
-
- my $align = $factory->createAlignment($layout, 3, 0);
- ## title with headings true
- $factory->createLabel( $align, $title, 1, 0);
- my $align = $factory->createLeft($layout);
- $factory->createLabel( $align, $text, 0, 0);
-
- $align = $factory->createRight($layout);
- my $hbox = $factory->createHBox($align);
- my $okButton = $factory->createPushButton($hbox, N("Ok"));
- my $cancelButton = $factory->createPushButton($hbox, N("Cancel"));
-
- my $event = $msg_box->waitForEvent();
-
- my $eventType = $event->eventType();
-
- if ($eventType == $yui::YEvent::WidgetEvent) {
- # widget selected
- my $widget = $event->widget();
- $retVal = ($widget == $okButton);
- }
-
- destroy $msg_box;
-
- return $retVal;
-}
-
-sub ask_YesOrNo() {
- my ($title, $text) = @_;
- my $retVal = "No";
-
- my $msg_box = $factory->createPopupDialog($yui::YDialogNormalColor);
- my $layout = $factory->createVBox($msg_box);
-
- my $align = $factory->createAlignment($layout, 3, 0);
- ## title with headings true
- $factory->createLabel( $align, $title, 1, 0);
- my $align = $factory->createLeft($layout);
- $factory->createLabel( $align, $text, 0, 0);
-
- $align = $factory->createRight($layout);
- my $hbox = $factory->createHBox($align);
- my $yesButton = $factory->createPushButton($hbox, N("Yes"));
- my $noButton = $factory->createPushButton($hbox, N("No"));
-
- my $event = $msg_box->waitForEvent();
-
- my $eventType = $event->eventType();
-
- if ($eventType == $yui::YEvent::WidgetEvent) {
- # widget selected
- my $widget = $event->widget();
- $retVal = ($widget == $yesButton) ? "Yes" : "No";
- }
-
- destroy $msg_box;
-
- return $retVal;
-}
-
-### END interactive functions ###
-
### NOTE next code has to be removed after getting mail alert functionality
=comment