← Back to branch summary

~ubuntu-branches/ubuntu/trusty/net-snmp/trusty

« back to all changes in this revision

Viewing changes to local/snmpcheck.def

  • Committer: Bazaar Package Importer
  • Author(s): Martin Pitt
  • Date: 2004-09-13 12:06:21 UTC
  • Revision ID: james.westby@ubuntu.com-20040913120621-g952ntonlleihcvm
Tags: upstream-5.1.1
Import upstream version 5.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
local/snmpcheck.def
 
1
#!/usr/local/bin/perl -w
 
2
 
 
3
use strict 'refs';
 
4
require Net::Ping;
 
5
require Term::ReadKey;
 
6
 
 
7
#defaults
 
8
$mibident=".ERRORNAME";
 
9
$miberrflag=".ERRORFLAG";
 
10
$miberrmsg=".ERRORMSG";
 
11
$mibfix=".ERRORFIX";
 
12
$mibheadall=".EXTENSIBLEDOTMIB";
 
13
$mibclearcache="$mibheadall.VERSIONMIBNUM.VERCLEARCACHE";
 
14
$mibrestartagent="$mibheadall.VERSIONMIBNUM.VERRESTARTAGENT";
 
15
$mibupdateconfig="$mibheadall.VERSIONMIBNUM.VERUPDATECONFIG";
 
16
%miblist=(    '.PROCMIBNUM.1' => 'processes',
 
17
              '.SHELLMIBNUM.1' => 'scripts',
 
18
              '.MEMMIBNUM' => 'swap space',
 
19
              '.DISKMIBNUM.1' => 'disks',
 
20
              '.LOADAVEMIBNUM.1' => 'load-average',
 
21
              '.ERRORMIBNUM' => 'snmp-agent-errors');
 
22
@fixitlist=('.PROCMIBNUM.1','.SHELLMIBNUM.1');
 
23
%mibchecklist = ('.PROCMIBNUM.1' => 1,
 
24
                 '.SHELLMIBNUM.1' => 1,
 
25
                 '.MEMMIBNUM' => 1,
 
26
                 '.DISKMIBNUM.1' => 1,
 
27
                 '.LOADAVEMIBNUM.1' => 1,
 
28
                 '.ERRORMIBNUM' => 1);
 
29
$errlog="/net/tyfon/1/OV/log/ece-log";
 
30
$default_get_args = "-v 1 %s private";
 
31
$default_set_args = "-v 1 %s private";
 
32
$andlog=0;
 
33
$snmppath="BINDIR";
 
34
$eraseline="                                                                           \r";
 
35
$fixit=0;  # this should be 0 not -1, but is necissary till getc(STDIN) works
 
36
$rescanWhen = 300;
 
37
$display = $ENV{'DISPLAY'};
 
38
$hidden = 0;
 
39
$pinghost = 0;
 
40
$loglevel = 1;
 
41
$logwindowatstart = 0;
 
42
$numloglevels = 5;
 
43
$dontstart = 0;
 
44
$raiseonnew = 1;
 
45
 
 
46
#
 
47
#  Mib Package:  Each mib has a mib number attached and can check/fix itself;
 
48
#
 
49
 
 
50
package Mib;
 
51
 
 
52
# @ISA = qw( Host );
 
53
 
 
54
sub new {
 
55
    my $tmp = shift;
 
56
    my $self = {};
 
57
    $self->{'HostId'} = shift;
 
58
    $self->{'Host'} = $self->{'HostId'}->{'Name'};
 
59
    $_ = shift;
 
60
    $self->{'Mib'} = $_;
 
61
    print "test: $_\n";
 
62
    ($self->{'MibSuffix'}) = /(\.[0-9]+)$/;
 
63
    if (!defined($mibchecklist{$self->{'MibSuffix'}})) {
 
64
        ($self->{'MibSuffix'}) = /(\.[0-9]+\.1)$/;
 
65
    }
 
66
    print "suff: $self->{'MibSuffix'}\n";
 
67
    $self->{'MibDesc'} = shift;
 
68
    $self->{'Frame'} = shift;
 
69
    bless $self;
 
70
}
 
71
 
 
72
sub getmibnum {
 
73
    my $self = shift;
 
74
    return ($self->{'Mib'});
 
75
}
 
76
 
 
77
sub snmp_walk {
 
78
    my $self = shift;
 
79
    $self->{'Frame'}->toplevel->Busy() if ($::display);
 
80
    my $mib = shift;
 
81
    my $cmd = "$::snmppath/snmpwalk " . sprintf($::default_get_args, $self->{'Host'}) . " $mib|";
 
82
    ::addToLog("running:  $cmd",5);
 
83
    open(OUT,"$cmd");
 
84
    my $outcount = 0;
 
85
    my @result = [];
 
86
    while (<OUT>) {
 
87
        $result[$outcount] = $_;
 
88
        chop;
 
89
        ::addToLog("snmpwalk:  $_",5);
 
90
        if ($::display) {
 
91
            $self->{'Frame'}->toplevel->update;
 
92
        }
 
93
        $outcount++;
 
94
    }
 
95
    close(OUT);
 
96
    for($i=0; $i <= $#result; $i++) {
 
97
        $result[$i] =~ s/ Hex:.*$//g;
 
98
        $result[$i] =~ s/\"//g;
 
99
    }
 
100
    $self->{'Frame'}->toplevel->Unbusy() if ($::display);
 
101
    if ($result[0] =~ /No Response/) {
 
102
        $self->{'HostId'}->hostdown;
 
103
        splice(@result,0);
 
104
    }
 
105
    return @result;
 
106
}
 
107
 
 
108
sub check {
 
109
    my $self = shift;
 
110
    my $tmp = [];
 
111
    if ($::mibchecklist{$self->{'MibSuffix'}} != 1) {
 
112
        return @{$tmp};
 
113
    }
 
114
    if (! $::display) {
 
115
        printf "%sChecking %s: %s\r", $::eraseline,$self->{'Host'},
 
116
        $self->{'MibDesc'};
 
117
    }
 
118
    my @walkout = $self->snmp_walk("$self->{'Mib'}$::miberrflag");
 
119
    while ($#walkout > -1) {
 
120
        $_ = shift @walkout;
 
121
        ($result) = /= ([0-9]+)/;
 
122
        if (defined($result) && $result > 0)
 
123
        {
 
124
            ($mibloc) = /\.([0-9]+) /;
 
125
            push(@{$tmp},FixProblem::new("",$self->{'HostId'}, $self->{'Mib'},
 
126
                                         $self->{'MibDesc'},
 
127
                                         $mibloc,$self->{'Frame'}));
 
128
            if (! $::display) {
 
129
                printf("%s%-8.8s  %-12.12s  %2d -- %-37.37s",$::eraseline,
 
130
                       $self->{'Host'},$tmp->[0]->{'ErrName'},
 
131
                       $result,$tmp->[0]->{'ErrMsg'});
 
132
                if ($tmp->[0]->canfix() && $::fixit == 0) {
 
133
                    printf(" / Fix? ");
 
134
                    $ans = Term::ReadKey::ReadKey(0);
 
135
                    if ("$ans" eq "y" || "$ans" eq "Y") {
 
136
                        printf("\b\b\b\b\b\b\b\b");
 
137
                        $tmp->[0]->fix($mibloc);     # fix now if curses
 
138
                    } else {
 
139
                        print $ans;
 
140
                        printf("\nChecking %s: %s\r",$self->{'Host'}, 
 
141
                               $self->{'MibDesc'});
 
142
                    }
 
143
                } elsif ($::fixit > 0) {
 
144
                    $tmp->[0]->fix($mibloc);     # fix now if curses
 
145
                }
 
146
                shift @{$tmp};
 
147
            }
 
148
        }
 
149
    }
 
150
    return(@{$tmp});
 
151
}
 
152
 
 
153
#
 
154
#  Problem Package: A problem comes into existence when found.  It may
 
155
#  or may not know how to fix itself (Problem/FixProblem).
 
156
#
 
157
 
 
158
package Problem;
 
159
 
 
160
@ISA = qw( Mib );
 
161
 
 
162
sub snmp_get {
 
163
    my $self = shift;
 
164
    $self->{'Frame'}->toplevel->Busy() if ($::display);
 
165
    my $mib = shift;
 
166
    my $args = sprintf($::default_get_args, $self->{'Host'});
 
167
    $_ = `$::snmppath/snmpget $args $mib`;
 
168
    my ($result) = /= (.*)$/;
 
169
    if (!defined($result) || $result =~ /No Response/) {
 
170
        $self->{'HostId'}->hostdown;
 
171
        $result = "";
 
172
    }
 
173
    $result =~ s/\"//g;
 
174
    $result =~ s/ Hex:.*$//g;
 
175
    ::addToLog("snmpget:  $_",5);
 
176
    $self->{'Frame'}->toplevel->Unbusy() if ($::display);
 
177
    return $result;
 
178
}
 
179
 
 
180
sub snmp_set {
 
181
    my $self = shift;
 
182
    $self->{'Frame'}->toplevel->Busy() if ($::display);
 
183
    my $mib = shift;
 
184
    my $args = sprint($::default_set_args, $self->{'Host'});
 
185
    $_ = `$::snmppath/snmpset $args $mib`;
 
186
    my ($result) = /= (.*)$/;
 
187
    $result = "" if (!defined($result));
 
188
    $result =~ s/\"//g;
 
189
    ::addToLog("snmpset:  $_",5);
 
190
    $self->{'Frame'}->toplevel->Unbusy() if ($::display);
 
191
    return $result;
 
192
}
 
193
 
 
194
sub new{
 
195
    my $tmp = shift;
 
196
    my $hostId = shift;
 
197
    my $mib = shift;
 
198
    my $mibname = shift;
 
199
    my $self = new Mib ($hostId,$mib,$mibname);
 
200
    $self->{'MibLocation'} = shift;
 
201
    $tmp = shift;
 
202
    if ($::display) {
 
203
        $self->{'Frame'} = $tmp->Frame();
 
204
    }
 
205
    bless $self;
 
206
    $self->{'ErrName'} = 
 
207
        $self->snmp_get("$self->{'Mib'}$::mibident.$self->{'MibLocation'}");
 
208
    $self->{'ErrMsg'} = 
 
209
        $self->snmp_get("$self->{'Mib'}$::miberrmsg.$self->{'MibLocation'}");
 
210
    if (exists $self->{'HostId'}->{'Down'}) {
 
211
        return $self;
 
212
    }
 
213
    if ($::display) {
 
214
        $self->{'Frame'}->pack();
 
215
        $self->{'Desc'} = 
 
216
            $self->{'Frame'}->Button(-text => sprintf("%-12.12s %-42.42s",
 
217
                                                     $self->{'ErrName'},
 
218
                                                     $self->{'ErrMsg'}),
 
219
                                     -font => "6x13",
 
220
                                     -highlightcolor => "#ffffff",
 
221
                                     -borderwidth => 0,
 
222
                                     -relief => "flat",
 
223
                                     -bd => 0, -padx => 0, -pady => 0,
 
224
                                     -activeforeground => 'red',
 
225
                                     -activebackground => '#C9C9C9',
 
226
                                     -background => '#E0C9C9',
 
227
                                     -command => [\&selectme,$self]);
 
228
        $self->{'Desc'}->pack(-fill => "x",-expand => 1,-side=>"left"); # 
 
229
        if ($::raiseonnew) {
 
230
            $tmp->toplevel->deiconify();
 
231
            $tmp->toplevel->raise();
 
232
        }
 
233
        ::addToLog("problem found:  $self->{'Host'}\t$self->{'ErrName'}\t$self->{'ErrMsg'}",2);
 
234
    }
 
235
    bless $self;
 
236
    return $self;
 
237
}
 
238
 
 
239
sub haveseen {
 
240
    my $self = shift;
 
241
    $self->{'Desc'}->configure(-background => '#C9C9C9');
 
242
}
 
243
 
 
244
sub selectme {
 
245
    my $self = shift;
 
246
    if ($main::hidden) {
 
247
      main::makeappear();
 
248
        return;
 
249
    }
 
250
    if (exists $self->{'Selected'}) {
 
251
      main::deselectitem($self);
 
252
        delete $self->{'Selected'};
 
253
    } else {
 
254
      main::selectitem($self);
 
255
        $self->{'Desc'}->configure(-foreground => "red");
 
256
        $self->{'Selected'} = 1;
 
257
    }
 
258
    $self->haveseen();
 
259
}
 
260
 
 
261
sub deselectme {
 
262
    my $self = shift;
 
263
    $self->{'Desc'}->configure(-foreground => "black");
 
264
    delete $self->{'Selected'};
 
265
}
 
266
 
 
267
sub check {
 
268
    my $self = shift;
 
269
    if ($::display) {
 
270
      main::setstatus("Checking $self->{'Host'} -- $self->{'ErrName'}");
 
271
    }
 
272
    else {
 
273
        printf("Checking \b\b\b\b\b\b\b\b\b");
 
274
    }
 
275
    $result = $self->snmp_get("$self->{'Mib'}$::miberrflag.$self->{'MibLocation'}");
 
276
    if (exists $self->{'HostId'}->{'Down'}) {
 
277
        return 0;
 
278
    }
 
279
    if ($result == 0) {
 
280
        $self->deleteme();
 
281
    }
 
282
  main::setstatus("idle");
 
283
    return $result;
 
284
}
 
285
 
 
286
sub fix {
 
287
# Don't fix and/or unable to
 
288
    my $self = shift;
 
289
  main::setmsg("Don't know how to fix $self->{'ErrName'}");
 
290
}
 
291
 
 
292
sub rsh {
 
293
    my $self = shift;
 
294
    if ($::display) {
 
295
        system "xterm -e rsh $self->{'HostId'}->{'Name'} -l root &";
 
296
    }
 
297
}
 
298
 
 
299
sub deleteme {
 
300
    my $self = shift;
 
301
    my $host = $self->{'HostId'};
 
302
    $host->deleteProb($self);
 
303
}
 
304
 
 
305
sub deleteself {
 
306
    my $self = shift;
 
307
    if ($::display) {
 
308
        if ($self->{'Selected'}) {
 
309
          main::deselectitem($self);
 
310
        }
 
311
        $self->{'Desc'}->destroy();
 
312
        $self->{'Frame'}->destroy();
 
313
    }
 
314
}
 
315
 
 
316
sub canfix {
 
317
    return 0;
 
318
}
 
319
 
 
320
package FixProblem;
 
321
 
 
322
@ISA = qw( Problem );
 
323
 
 
324
sub new {
 
325
    my $tmp = shift;
 
326
    my $hostId = shift;
 
327
    my $mib = shift;
 
328
    my $mibdesc = shift;
 
329
    my $mibloc = shift;
 
330
    my $frame = shift;
 
331
    my $self = new Problem ($hostId,$mib,$mibdesc,$mibloc,$frame);
 
332
    $_ = $mib;
 
333
    ($mymib) = /(\.[0-9]+)$/;
 
334
    if (grep(/$mymib/,@::fixitlist) && ($::fixit >= 0)) {
 
335
        bless $self;            # Make it a FixProblem if fixable
 
336
    }
 
337
    return $self;               # else just return a Problem
 
338
}
 
339
 
 
340
sub canfix {
 
341
    return 1;
 
342
}
 
343
 
 
344
sub fix {
 
345
    my $self = shift;
 
346
    my $mibloc = shift;
 
347
    if ($::display) {
 
348
      main::setstatus(sprintf("Fixing %s:  %s",
 
349
                              $self->{'Host'}, $self->{'ErrName'}));
 
350
    } 
 
351
    else {
 
352
        printf(" / Fixing...\b\b\b\b\b\b\b\b\b");
 
353
    }
 
354
    $self->snmp_set("$self->{'Mib'}$::mibfix.$self->{'MibLocation'} integer 1");
 
355
    $self->snmp_set("$::mibclearcache integer 1");
 
356
    if (exists $self->{'HostId'}->{'Down'}) {
 
357
        return;
 
358
    }
 
359
    if ($::display) {
 
360
        main::setstatus("Sleeping");
 
361
    }
 
362
    else {
 
363
        printf("Sleeping \b\b\b\b\b\b\b\b\b");
 
364
    }
 
365
    sleep(2);
 
366
    if ($::display) {
 
367
        main::setstatus("Checking");
 
368
    }
 
369
    else {
 
370
        printf("Checking\b\b\b\b\b\b\b\b");
 
371
    }
 
372
    if ($self->check() != 0) {
 
373
        if (! $::display) {
 
374
            printf("*failed*  \n");
 
375
        } else {
 
376
            main::setmsg("Failed to fix $self->{'ErrName'} on $self->{'Host'}");
 
377
        }
 
378
    }
 
379
    else {
 
380
        if ($::display) {
 
381
#           $self->{'HostId'}->deleteProb($self);
 
382
            main::setmsg("Fixed $self->{'ErrName'} on $self->{'Host'}");
 
383
        } 
 
384
        else {
 
385
            printf("Fixed     \n");
 
386
        }
 
387
    }
 
388
  main::setstatus("Idle");
 
389
}
 
390
 
 
391
#
 
392
#  Host Package:  Each object is a host which can check itself and display
 
393
#                 the results
 
394
#
 
395
package Host;
 
396
 
 
397
sub mibsort {
 
398
    $_ = $a;
 
399
    ($av) = /\.([0-9]+)/;
 
400
    $_ = $b;
 
401
    ($bv) = /\.([0-9]+)/;
 
402
    return $av <=> $bv;
 
403
}
 
404
 
 
405
sub new {
 
406
    my $self = {};
 
407
    my $tmp = shift;
 
408
    $self->{'Name'} = shift;
 
409
    $self->{'Host'} = $self->{'Name'};
 
410
    $self->{'Mibs'} = [];
 
411
    $self->{'Problems'} = [];
 
412
    bless $self;
 
413
    if ($::display) {
 
414
        $self->{'MainFrame'} = $::HostFrame->Frame();
 
415
        if (!$::hidden) {
 
416
            $self->{'MainFrame'}->configure(-relief =>"sunken",-borderwidth=>2);
 
417
        }
 
418
        $self->{'ProbFrame'} = $self->{'MainFrame'}->Frame();
 
419
        $self->{'hostlabel'} = 
 
420
            $self->{'MainFrame'}->Button(-text => sprintf("%-9.9s",
 
421
                                                            $self->{'Name'}),
 
422
                                         -bd => 0, -padx => 0, -pady => 0,
 
423
                                         -command =>[\&selectme,$self],
 
424
                                         -activeforeground => 'red',
 
425
                                         -activebackground => '#C9C9C9',
 
426
                                         -width => 9,
 
427
                                         -anchor => "w",
 
428
                                         -relief => "flat");
 
429
        $self->{'hostlabel'}->pack(-side=>"left",-ipadx=>1,
 
430
                                   -padx=> 1,-pady =>1);
 
431
        $self->{'ProbFrame'}->pack(-side=>"left",-ipadx=>1,
 
432
                                   -padx=> 1,-pady =>1);
 
433
        $self->{'MainFrame'}->pack( #-padx => 2,-pady =>2, 
 
434
                                   -fill => "x", -expand => 1);
 
435
    } 
 
436
    foreach $mibx ( sort mibsort keys(%::miblist) ) {
 
437
        push(@{$self->{'Mibs'}},
 
438
             new Mib ($self,"$::mibheadall$mibx",$::miblist{$mibx},
 
439
                      $self->{'ProbFrame'}));
 
440
    }
 
441
    return $self;
 
442
}
 
443
 
 
444
sub rsh {
 
445
    my $self = shift;
 
446
    if ($::display) {
 
447
        system "xterm -e rsh $self->{'Name'} -l root &";
 
448
    }
 
449
}
 
450
 
 
451
sub selectme {
 
452
    my $self = shift;
 
453
    if ($main::hidden) {
 
454
      main::makeappear();
 
455
        return;
 
456
    }
 
457
    if (exists $self->{'Selected'}) {
 
458
      main::deselectitem($self);
 
459
        delete $self->{'Selected'};
 
460
    } else {
 
461
      main::selectitem($self);
 
462
        $self->{'hostlabel'}->configure(-foreground => "red");
 
463
        $self->{'Selected'} = 1;
 
464
    }
 
465
}
 
466
 
 
467
sub deselectme {
 
468
    my $self = shift;
 
469
    $self->{'hostlabel'}->configure(-foreground => "black");
 
470
    delete $self->{'Selected'};
 
471
}
 
472
 
 
473
sub fix {
 
474
    my $self = shift;
 
475
    if (! exists $self->{'Down'}) {
 
476
        foreach $i (@{$self->{'Problems'}}) {
 
477
            if ($i->canfix() && ref($i) ne Host) {
 
478
                $i->fix();
 
479
            }
 
480
        }
 
481
    }
 
482
}
 
483
 
 
484
sub seenall {
 
485
    my $self = shift;
 
486
    foreach $i (@{$self->{'Problems'}}) {
 
487
        if (ref($i) ne Host) {
 
488
            $i->haveseen();
 
489
        }
 
490
    }
 
491
}
 
492
 
 
493
sub canfix {
 
494
    return 1;
 
495
}
 
496
 
 
497
sub hostdown {
 
498
    my $self = shift;
 
499
    $self->deleteProbs();
 
500
    push(@{$self->{'Problems'}},$self);
 
501
    $self->{'Down'} = 1;
 
502
    if ($::display) {
 
503
        if (!exists $self->{'hostlabel'}) {
 
504
            $self->{'hostlabel'} = 
 
505
                $self->{'MainFrame'}->Button(-text => sprintf("%-9.9s",
 
506
                                                              $self->{'Name'}),
 
507
                                             -bd => 0, -padx => 0, -pady => 0,
 
508
                                             -command =>[\&selectme,$self],
 
509
                                             -activeforeground => 'red',
 
510
                                             -activebackground => '#C9C9C9',
 
511
                                             -width => 9,
 
512
                                             -anchor => "w",
 
513
                                             -relief => "flat");
 
514
        }
 
515
        ::addToLog("$self->{'Name'} is down",2);
 
516
        $self->{'hostlabel'}->configure(-text => 
 
517
                                        sprintf("%-9.9s down",$self->{'Name'}),
 
518
                                        -width => 14);
 
519
    }
 
520
}
 
521
 
 
522
sub check {
 
523
    my $self = shift;
 
524
    $self->{'noDelete'} = 1;
 
525
    $self->deleteProbs();
 
526
    delete $self->{'noDelete'};
 
527
    if ($::display) {
 
528
        $self->{'hostlabel'}->configure(-text => $self->{'Name'},-width=>9);
 
529
    }
 
530
    delete $self->{'Down'};
 
531
  main::setstatus("pinging $self->{'Name'}");
 
532
    if (!($::pinghost) || Net::Ping::pingecho($self->{'Name'},2)) {
 
533
        foreach $i (@{$self->{'Mibs'}}) {
 
534
            if (ref($i) ne Mib) {
 
535
                print "$i is a ref($i) not a Mib\n";
 
536
            } else {
 
537
              main::setstatus("Checking $self->{'Name'}:  " . $i->{'MibDesc'});
 
538
                push(@{$self->{'Problems'}},$i->check());
 
539
            }
 
540
            if (exists $self->{'Down'}) {
 
541
                last;
 
542
            }
 
543
        }
 
544
    } else {
 
545
        $self->hostdown();
 
546
    }
 
547
  main::setstatus("Idle");
 
548
    if ($#{$self->{'Problems'}} == -1) {
 
549
        $self->deleteme();
 
550
    }
 
551
}
 
552
 
 
553
sub deleteme {
 
554
    my $self = shift;
 
555
    if ($self->{'Selected'}) {
 
556
      main::deselectitem($self);
 
557
    }
 
558
    $self->deleteProbs();
 
559
    if ($::display) {
 
560
        $self->{'hostlabel'}->destroy();
 
561
        $self->{'ProbFrame'}->destroy();
 
562
        my $top = $self->{'MainFrame'}->toplevel;
 
563
        $self->{'MainFrame'}->destroy();
 
564
        $top->update;
 
565
    }
 
566
  main::deletehost($self->{'Name'});
 
567
}
 
568
 
 
569
sub deleteProbs {
 
570
    my $self = shift;
 
571
    foreach $i (@{$self->{'Problems'}}) {
 
572
        if (ref($i) eq Host) {
 
573
            delete $self->{'Problems'};
 
574
            return;
 
575
        }
 
576
        if (ref($i) ne Problem && ref($i) ne FixProblem) {
 
577
            print "i:  $i is a ", ref($i), "\n";
 
578
            next;
 
579
        }
 
580
        $self->deleteProb($i);
 
581
    }
 
582
}
 
583
 
 
584
sub deleteProb {
 
585
    my $self = shift;
 
586
    my $child = shift;
 
587
    for ($k = 0; $k <= $#{$self->{'Problems'}}; $k++) {
 
588
        if (ref($self->{'Problems'}->[$k]) eq Problem ||
 
589
            ref($self->{'Problems'}->[$k]) eq FixProblem ) {
 
590
            if ($self->{'Problems'}->[$k]->{'Mib'} eq $child->{'Mib'} && 
 
591
            $self->{'Problems'}->[$k]->{'MibLocation'} eq
 
592
            $child->{'MibLocation'}) {
 
593
                splice(@{$self->{'Problems'}},$k,1);
 
594
                $child->deleteself();
 
595
                if ($#{$self->{'Problems'}} == -1 && 
 
596
                    !exists $self->{'noDelete'}) {
 
597
                    $self->deleteme();
 
598
                }
 
599
                last;
 
600
            }
 
601
        } else {
 
602
            print "    not: ",$self->{'Problems'}->[$k],"/",
 
603
            ref($self->{'Problems'}->[$k]),"\n";
 
604
        }
 
605
    }
 
606
}
 
607
 
 
608
package main;
 
609
 
 
610
#
 
611
# Read arguments
 
612
#
 
613
 
 
614
if ($#ARGV != -1) {
 
615
    while ($#ARGV >= 0 && $ARGV[0] =~ /^-/) {
 
616
        $_ = shift;
 
617
        $andlog = 1 if (/^-a/);
 
618
        $dontstart = 1 if (/^-d/);
 
619
        $fixit = -1 if (/^-n/);
 
620
        $fixit = 1 if (/^-y/);
 
621
        $display = 0 if (/^-x/);
 
622
        $pinghost = 1 if (/^-p/);
 
623
        $hidden = 1 if (/^-H/);
 
624
        $loglevel = shift if (/^-V/);
 
625
        $logwindowatstart = 1 if (/^-L/);
 
626
        &display_help() if (/^-h/);
 
627
        &setmibchecklist(@fixitlist) if (/^-f/);
 
628
    }
 
629
}
 
630
 
 
631
#
 
632
# If necessary check the ece-log file for problems
 
633
#
 
634
 
 
635
if (($andlog || $#ARGV == -1) && !$dontstart) {
 
636
    open(LOG,$errlog);
 
637
    while (<LOG>) {
 
638
        @fields = split;
 
639
        @tmp = grep(/$fields[0]/,@ARGV);
 
640
        if ($#tmp == -1) { #  && $fields[1] ne "down") {
 
641
            $ARGV[$#ARGV + 1] = $fields[0];
 
642
        }
 
643
    }
 
644
    close(LOG);
 
645
}
 
646
 
 
647
#
 
648
# Check all the found hosts 
 
649
#
 
650
 
 
651
if ($display) {
 
652
    use Tk;
 
653
#    $tk_strictMotif = 1;
 
654
    $top = MainWindow->new();
 
655
    $top->bind('all',"<Control-q>",[\&quit]);
 
656
    $top->bind('all',"<Control-h>",[\&makehidden]);
 
657
    $top->bind('all',"<Control-s>",[\&seenall]);
 
658
    $top->bind('all',"<Control-f>",[\&fixall]);
 
659
     $top->option('add','*highlightThickness','0');        #wish this worked
 
660
#     $top->option('add','*highlightbackground','#C9C9C9');
 
661
     $top->option('add','*background','#C9C9C9');
 
662
     $top->option('add','*font','6x13');
 
663
    $HostFrame = $top->Frame();
 
664
    $MenuFrame = $top->Frame(-relief => "raised",-borderwidth => 2);
 
665
    $MenuFrame->pack(-fill => "x",-expand => 1);
 
666
    $statusBar = $top->Frame(-relief => "raised",-borderwidth => 2);
 
667
    $status = $statusBar->Label(-text => "initializing",-anchor =>"e");
 
668
    $statusl = $statusBar->Label(-text => "Status:  ", -anchor => "w");
 
669
    $msgBar = $top->Frame(-relief => "raised",-borderwidth => 2);
 
670
    $msg = $msgBar->Label(-text => "",-anchor =>"e");
 
671
    $msgl = $msgBar->Label(-text => "Note:  ", -anchor => "w");
 
672
    
 
673
    $botFrame = $top->Frame();
 
674
    $butFrame = $top->Frame();
 
675
    $entryhost = "";
 
676
    $NewHost = $botFrame->Entry(-textvariable => \$entryhost,-width=>20,
 
677
                                -relief => "sunken");
 
678
    $NewHost->bind("<Return>",sub {newHost("$entryhost");
 
679
                               $NewHost->delete(0,length($entryhost));});
 
680
    $BotLabel = $botFrame->Label(-text => "Check New Host:  ",
 
681
                            -anchor => "w");
 
682
    $CmdsMenuBut = $MenuFrame->Menubutton(-text => "Cmds");
 
683
    $CmdsMenu = $CmdsMenuBut->Menu(-tearoff => 1);
 
684
    $CmdsMenuBut->configure(-menu => $CmdsMenu);
 
685
    $CmdsMenuBut->pack(-side => "left");
 
686
    $CmdsMenuBut->command(-label => "Check Hosts", -command => [\&rescanhosts]);
 
687
    $CmdsMenuBut->command(-label => "Check Log", -command => [\&scanlog]);
 
688
    $CmdsMenuBut->command(-label => "Fix All", -command => [\&fixall],
 
689
                          -accelerator => "Ctrl-f");
 
690
    $CmdsMenuBut->command(-label => "Seen All", -command => [\&seenall],
 
691
                          -accelerator => "Ctrl-s");
 
692
    $CmdsMenuBut->separator();
 
693
    $CmdsMenuBut->command(-label => "Hide", -command => [\&makehidden],
 
694
                          -accelerator => "Ctrl-h");
 
695
    $CmdsMenuBut->command(-label => "Quit", -command => [\&quit],
 
696
                          -accelerator => "Ctrl-q");
 
697
    $PrefsMenuBut = $MenuFrame->Menubutton(-text => "Prefs");
 
698
    $PrefsMenu = $PrefsMenuBut->Menu(-tearoff => 1);
 
699
    $PrefsMenuBut->configure(-menu => $PrefsMenu);
 
700
    $PrefsMenuBut->pack(-side => "left");
 
701
    $PrefsMenuBut->cascade(-label => "Rescan");
 
702
    $RescanPrefsBut = $PrefsMenu->Menu();
 
703
    $PrefsMenuBut->entryconfigure("Rescan",-menu => $RescanPrefsBut);
 
704
    $AutoRescan = 1;
 
705
    if ($AutoRescan) {
 
706
      $afterId = Tk::after($rescanWhen*1000,[\&autorescan]);
 
707
    }
 
708
    $RescanPrefsBut->checkbutton(-label =>"Auto Rescan",
 
709
                               -variable =>\$AutoRescan,
 
710
                               -command => sub {if ($AutoRescan) {
 
711
                                   $afterId = 
 
712
                                     Tk::after($rescanWhen*1000,[\&autorescan])
 
713
                                   } else {
 
714
                                     Tk::after("cancel",$afterId);
 
715
                                   }});
 
716
    $AutoCheckLog = 1;
 
717
    $RescanPrefsBut->checkbutton(-label =>"Checks Log",
 
718
                               -variable =>\$AutoCheckLog);
 
719
    $AutoCheckHosts = 0;
 
720
    $RescanPrefsBut->checkbutton(-label =>"Checks Hosts",
 
721
                               -variable =>\$AutoCheckHosts);
 
722
    $RescanWhenHidden = 1;
 
723
    $RescanPrefsBut->checkbutton(-label =>"Only When Hidden",
 
724
                               -variable =>\$RescanWhenHidden);
 
725
 
 
726
    $RescanPrefsBut->checkbutton(-label =>"Pop forward with new",
 
727
                               -variable =>\$raiseonnew);
 
728
 
 
729
    $PrefsMenuBut->cascade(-label => "Log Verbosity");
 
730
    $LogVerbBut = $PrefsMenu->Menu();
 
731
    $PrefsMenuBut->entryconfigure("Log Verbosity",
 
732
                                  -menu => $LogVerbBut);
 
733
    for ($i=1; $i <= $numloglevels; $i++) {
 
734
        $LogVerbBut->radiobutton(-label => "$i", -variable => \$loglevel, 
 
735
                                 -value => $i);
 
736
    }
 
737
 
 
738
    $PrefsMenuBut->cascade(-label => "Check For");
 
739
    $CheckForBut = $PrefsMenu->Menu();
 
740
    $PrefsMenuBut->entryconfigure("Check For",
 
741
                                  -menu => $CheckForBut);
 
742
    $CheckForBut->command(-label => "Fixable Problems", 
 
743
                          -command => [\&setmibchecklist,@fixitlist]);
 
744
    $CheckForBut->command(-label => "Everything", 
 
745
                          -command => [\&setmibchecklist,keys(%miblist)]);
 
746
    $CheckForBut->separator();
 
747
    foreach $i ( sort mibsort keys(%::mibchecklist) ) {
 
748
        $CheckForBut->checkbutton(-label => $miblist{$i}, 
 
749
                                  -variable => \$mibchecklist{$i});
 
750
    }
 
751
 
 
752
    $PrefsMenuBut->checkbutton(-label => "Ping Host First", 
 
753
                               -variable => \$pinghost);
 
754
 
 
755
    # Agent control
 
756
 
 
757
    $agentMenuBut = $MenuFrame->Menubutton(-text => "Agent-Control");
 
758
    $agentMenu = $agentMenuBut->Menu(-tearoff => 1);
 
759
    $agentMenuBut->configure(-menu => $agentMenu);
 
760
    $agentMenuBut->pack(-side => "left");
 
761
    $agentMenuBut->command(-label => "Re-read Configuration", 
 
762
                           -command => [sub {if ($selected) { $top->Busy(); 
 
763
                                                              my $args = sprint($::default_get_args, $selected->{'Host'});
 
764
$_ = `$::snmppath/snmpset $args $mibupdateconfig i 1`; $top->Unbusy();}}]);
 
765
    $agentMenuBut->command(-label => "Clear Exec Cache", 
 
766
                           -command => [sub {if ($selected) { $top->Busy();
 
767
                                                              my $args = sprint($::default_get_args, $selected->{'Host'});
 
768
$_ = `$::snmppath/snmpset $args $mibclearcache i 1`; $top->Unbusy();}}]);
 
769
    $agentMenuBut->separator();
 
770
    $agentMenuBut->command(-label => "Re-start Agent", 
 
771
                           -command => [sub {if ($selected) { $top->Busy(); 
 
772
                                                              my $args = sprint($::default_get_args, $selected->{'Host'});
 
773
$_ = `$::snmppath/snmpset $args $mibrestartagent i 1`; $top->Unbusy();} }]);
 
774
 
 
775
    # set up remote commands
 
776
 
 
777
    $remoteMenuBut = $MenuFrame->Menubutton(-text => "Remote-Info");
 
778
    $remoteMenu = $remoteMenuBut->Menu(-tearoff => 1);
 
779
    $remoteMenuBut->configure(-menu => $remoteMenu);
 
780
    $remoteMenuBut->pack(-side => "left");
 
781
    $remoteMenuBut->command(-label => "Load-Av", -command => [\&remote_load]);
 
782
    $remoteMenuBut->separator();
 
783
    $remoteMenuBut->command(-label => "top", -command => [\&remote_cmd,"top"]);
 
784
    $remoteMenuBut->command(-label => "mailq", -command => [\&remote_cmd,"mailq"]);
 
785
    $remoteMenuBut->command(-label => "ps", -command => [\&remote_cmd,"ps"]);
 
786
    $remoteMenuBut->command(-label => "conf", -command => [\&remote_cmd,"conf"]);
 
787
 
 
788
    # set up log file menu
 
789
    $logFileMenuBut = $MenuFrame->Menubutton(-text => "Log");
 
790
    $logFileMenu = $logFileMenuBut->Menu(-tearoff => 1);
 
791
    $logFileMenuBut->configure(-menu => $logFileMenu);
 
792
    $logFileMenuBut->pack(-side => "left");
 
793
    $logFileMenuBut->command(-label => "show log", -command => [\&displayLog]);
 
794
    $logFileMenuBut->command(-label => "clear log", -command => [\&clearLog]);
 
795
    $logFileMenuBut->separator();
 
796
    $logFileMenuBut->command(-label => "show Tyfon's log", -command => [\&displayTyfon]);
 
797
 
 
798
 
 
799
    # set up status bar
 
800
 
 
801
    $statusl->pack(-fill => "x", -expand => 1, -side =>"left");
 
802
    $status->pack(-fill => "x", -expand => 1, -side =>"left");
 
803
    $msgl->pack(-fill => "x", -expand => 1, -side => "left");
 
804
    $msg->pack(-fill => "x", -expand => 1, -side => "left");
 
805
    $statusBar->pack(-fill => "x", -expand => 1);
 
806
    $msgBar->pack(-fill => "x", -expand => 1);
 
807
    $HostFrame->pack(-fill => "x",-expand => 1);
 
808
    $butFrame->pack(-fill => "x",-expand => 1);
 
809
    $botFrame->pack(-fill => "x",-expand => 1);
 
810
    $FixBut = $butFrame->Button(-text => "Fix",-command=>[sub{print "hi\n"}],
 
811
                                -state => "disabled");
 
812
    $FixBut->pack(-side => "left",-padx => 4,-pady => 2,-ipadx => 2,
 
813
                   -ipady => 2);
 
814
    $RshBut = $butFrame->Button(-text => "Rsh",-command=>[sub{print "hi\n"}],
 
815
                                -state => "disabled");
 
816
    $RshBut->pack(-side => "left",-padx => 4,-pady => 2,-ipadx => 2,
 
817
                   -ipady => 2);
 
818
    $DelBut = $butFrame->Button(-text => "Del",
 
819
                                 -state => "disabled");
 
820
    $DelBut->pack(-side => "left",-padx => 4,-pady => 2,-ipadx => 2,
 
821
                   -ipady => 2);
 
822
    $ChkBut = $butFrame->Button(-text => "Chk",
 
823
                                 -state => "disabled");
 
824
    $ChkBut->pack(-side => "left",-padx => 4,-pady => 2,-ipadx => 2,
 
825
                   -ipady => 2);
 
826
    $BotLabel->pack(-fill => "x",-expand => 1,-side=>"left");
 
827
    $NewHost->pack(-side=>"left");
 
828
    &makehidden() if ($hidden);
 
829
    $top->update();
 
830
 
 
831
    # generate log window, but tell it not to create display 
 
832
    $logwindow = MainWindow->new;
 
833
    $logwindow->option('add','*highlightThickness','0');        #wish this worked
 
834
#     $logwindow->option('add','*highlightbackground','#C9C9C9');
 
835
    $logwindow->option('add','*background','#C9C9C9');
 
836
    $logwindow->option('add','*font','6x13');
 
837
 
 
838
    $logbuttons = $logwindow->Frame;
 
839
    $logbuttons->pack(-side => 'bottom', -expand => 1, -fill => 'x');
 
840
    $logclose = $logbuttons->Button(-text => 'Close', 
 
841
                                 -command => ['withdraw',$logwindow]);
 
842
    $logclose->pack(-side => 'left', -expand => 1);
 
843
 
 
844
    $logtext = $logwindow->Text(-height => 40, -setgrid => 1);
 
845
    $logtext->pack(-side => 'left', -fill => 'both', -expand => 1);
 
846
    $logscroll = $logwindow->Scrollbar(-command => ['yview',$logtext]);
 
847
    $logscroll->pack(-side => 'right', -fill => 'y');
 
848
    $logtext->configure(-yscrollcommand => ['set', $logscroll]);
 
849
    $logwindow->title("snmpcheck Action Log file");
 
850
    $logwindow->iconname("snmpcheck-log");
 
851
    $logtext->delete('1.0','end');
 
852
    $logclear = $logbuttons->Button(-text => 'Clear Log', 
 
853
                                 -command => [\&deleteLog]);
 
854
    $logclear->pack(-side => 'right', -expand => 1);
 
855
    if (! $logwindowatstart) {
 
856
        $logwindow->withdraw;
 
857
    }
 
858
 
 
859
    $status->configure(-text => "Idle");
 
860
    $selected = 0;
 
861
    # fill table with hosts
 
862
    if (!$dontstart) {
 
863
        loadAllHosts(@ARGV);
 
864
    }
 
865
    MainLoop;
 
866
}
 
867
else {
 
868
    select(STDOUT);
 
869
    $| = 1;
 
870
    if ($::fixit == 0) {
 
871
        Term::ReadKey::ReadMode(3);
 
872
    }
 
873
    loadAllHosts(@ARGV);
 
874
    printf("$eraseline");
 
875
}
 
876
 
 
877
sub loadAllHosts {
 
878
    my @hostlist = @_;
 
879
    foreach $host ( @hostlist ) {
 
880
        newHost($host);
 
881
    }
 
882
}    
 
883
 
 
884
sub newHost {
 
885
    my $name = shift;
 
886
    if (!exists $chost{"$name"}) {
 
887
        $chost{"$name"} = new Host ($name);
 
888
        if ($::display) { $top->update(); }
 
889
        $chost{"$name"}->check;
 
890
    } else {
 
891
        setmsg("$name all ready exists");
 
892
    }
 
893
}
 
894
 
 
895
sub deletehost {
 
896
    my $name = shift;
 
897
    delete $chost{"$name"};
 
898
}
 
899
 
 
900
sub setstatus {
 
901
    my $arg = shift;
 
902
    if ($display) {
 
903
        $status->configure(-text => $arg);
 
904
        $top->update();
 
905
        addToLog($arg,4);
 
906
    }
 
907
}
 
908
 
 
909
sub setmsg {
 
910
    my $arg = shift;
 
911
    if ($display) {
 
912
        $msg->configure(-text => $arg);
 
913
        $top->update();
 
914
        addToLog($arg);
 
915
    }
 
916
}
 
917
 
 
918
sub addToLog {
 
919
    if ($display) {
 
920
        my $logmsg = shift;
 
921
        my $logaddlevel = shift;
 
922
        if (! defined($logaddlevel)) {
 
923
            $logaddlevel = 1;
 
924
        }
 
925
        if ($logaddlevel <= $loglevel) {
 
926
            $logtext->insert('end'," " x ($logaddlevel-1) . "$logmsg\n");
 
927
        }
 
928
    }
 
929
}
 
930
 
 
931
sub displayTyfon {
 
932
    remote_cmd_generic("cat /net/tyfon/1/OV/log/ece-log","Tyfon -- ece-log"); 
 
933
}
 
934
 
 
935
sub displayLog {
 
936
    $logwindow->deiconify;
 
937
    $logwindow->raise;
 
938
}
 
939
 
 
940
sub deleteLog {
 
941
    $logtext->delete('1.0','end');
 
942
}
 
943
 
 
944
sub deselectitem {
 
945
    $obj = shift;
 
946
    $obj->deselectme();
 
947
    $FixBut->configure(-state => "disabled");
 
948
    $RshBut->configure(-state => "disabled");
 
949
    $DelBut->configure(-state => "disabled");
 
950
    $ChkBut->configure(-state => "disabled");
 
951
    $selected = 0;
 
952
}
 
953
 
 
954
sub selectitem {
 
955
    if ($selected) {
 
956
        $selected->deselectme();
 
957
    }
 
958
    $selected = shift;
 
959
    if (ref($selected) ne Host || !(exists $selected->{'Down'})) {
 
960
        $RshBut->configure(-state => "normal", -command => ['rsh',$selected]);
 
961
    } else {
 
962
        $RshBut->configure(-state => "disabled");
 
963
    }
 
964
    $DelBut->configure(-state => "normal", -command => ['deleteme',$selected]);
 
965
    $ChkBut->configure(-state => "normal", -command => ['check',$selected]);
 
966
    if ($selected->canfix() && !(exists $selected->{'Down'})) {
 
967
        $FixBut->configure(-state => "normal", 
 
968
                           -command => ['fix',$selected]);
 
969
    } else {
 
970
        $FixBut->configure(-state => "disabled");
 
971
    }
 
972
    if ($hidden == 1) {
 
973
        makeappear();
 
974
    }
 
975
}
 
976
 
 
977
sub makehidden {
 
978
    $MenuFrame->pack("forget");
 
979
    $statusBar->pack("forget");
 
980
    $msgBar->pack("forget");
 
981
    $butFrame->pack("forget");
 
982
    $botFrame->pack("forget");
 
983
    flatten();
 
984
    $hidden=1;
 
985
}
 
986
 
 
987
sub makeappear {
 
988
    $HostFrame->pack("forget");
 
989
    $MenuFrame->pack(-expand => 1, -fill => "x");
 
990
    $statusBar->pack(-expand => 1, -fill => "x");
 
991
    $msgBar->pack(-expand => 1, -fill => "x");
 
992
    $HostFrame->pack(-expand => 1, -fill => "x");
 
993
    $butFrame->pack(-expand => 1, -fill => "x"); 
 
994
    $botFrame->pack(-expand => 1, -fill => "x");
 
995
    reliefen();
 
996
    $hidden=0;
 
997
}
 
998
 
 
999
sub quit {
 
1000
    $top->destroy();
 
1001
    exit();
 
1002
}
 
1003
 
 
1004
sub scanlog {
 
1005
    my (@fields, @tmp);
 
1006
    open(LOG,$::errlog);
 
1007
    while (<LOG>) {
 
1008
        @fields = split;
 
1009
        @tmp = grep(/$fields[0]/,@ARGV);
 
1010
        if ($#tmp == -1 && !exists $::chost->{$fields[0]}) {
 
1011
            newHost($fields[0]);
 
1012
        }
 
1013
    }
 
1014
    close(LOG);
 
1015
}
 
1016
 
 
1017
sub rescanhosts {
 
1018
    foreach $i (keys(%chost)) {
 
1019
        $chost{$i}->check();
 
1020
    }
 
1021
}
 
1022
 
 
1023
sub autorescan {
 
1024
    $afterId = Tk::after($rescanWhen*1000,[\&autorescan]);
 
1025
    if ($RescanWhenHidden && !$hidden) {return;}
 
1026
    if ($AutoCheckHosts) {
 
1027
        rescanhosts();
 
1028
    }
 
1029
    if ($AutoCheckLog) {
 
1030
        scanlog();
 
1031
    }
 
1032
}
 
1033
 
 
1034
sub flatten {
 
1035
    foreach $i (keys(%chost)) {
 
1036
        $chost{$i}->{'MainFrame'}->configure(-relief => "flat",-borderwidth=>0);
 
1037
    }
 
1038
}
 
1039
 
 
1040
sub reliefen {
 
1041
    foreach $i (keys(%chost)) {
 
1042
        $chost{$i}->{'MainFrame'}->configure(-relief =>"sunken",-borderwidth=>2);
 
1043
    }
 
1044
}
 
1045
 
 
1046
sub fixall {
 
1047
    foreach $i (keys(%chost)) {
 
1048
        $chost{$i}->fix();
 
1049
    }
 
1050
}
 
1051
 
 
1052
sub seenall {
 
1053
    foreach $i (keys(%chost)) {
 
1054
        $chost{$i}->seenall();
 
1055
    }
 
1056
}
 
1057
 
 
1058
sub remote_cmd {
 
1059
    my $type = shift;
 
1060
    if ($selected) {
 
1061
        remote_cmd_generic("$::snmppath/rsnmp -p $type $selected->{'Host'}",
 
1062
                           "$selected->{'Host'} -- $type",1);
 
1063
    } else {
 
1064
        setmsg("Error:  Nothing selected");
 
1065
    }
 
1066
}
 
1067
 
 
1068
sub remote_load {
 
1069
    if ($selected) {
 
1070
        remote_cmd_generic("$::snmppath/snmpwalk " . sprintf($::default_get_args,$selected->{'Host'}) . " .EXTENSIBLEDOTMIB.LOADAVEMIBNUM.LOADAVE",
 
1071
                           "$selected->{'Host'} -- LoadAve");
 
1072
    } else {
 
1073
        setmsg("Error:  Nothing selected");
 
1074
    }
 
1075
}
 
1076
 
 
1077
sub remote_cmd_generic {
 
1078
    my $cmd = shift;
 
1079
    my $title = shift;
 
1080
    my $insert = shift;
 
1081
    addToLog("running:  $cmd ... ");
 
1082
    my $newwin = MainWindow->new;
 
1083
    $newwin->Busy();
 
1084
 
 
1085
    $newwin->option('add','*highlightThickness','0');        #wish this worked
 
1086
#     $newwin->option('add','*highlightbackground','#C9C9C9');
 
1087
    $newwin->option('add','*background','#C9C9C9');
 
1088
    $newwin->option('add','*font','6x13');
 
1089
 
 
1090
    my $buttons = $newwin->Frame;
 
1091
    $buttons->pack(-side => 'bottom', -expand => 1, -fill => 'x');
 
1092
    my $entries = $newwin->Frame;
 
1093
    $entries->pack(-side => 'bottom', -expand => 1, -fill => 'x');
 
1094
 
 
1095
    my $text = $newwin->Text(-height => 40, -setgrid => 1);
 
1096
    $text->pack(-side => 'left', -fill => 'both', -expand => 1);
 
1097
    my $scroll = $newwin->Scrollbar(-command => ['yview',$text]);
 
1098
    $scroll->pack(-side => 'left', -fill => 'y');
 
1099
    $text->configure(-yscrollcommand => ['set', $scroll]);
 
1100
 
 
1101
    my $close = $buttons->Button(-text => 'Close', 
 
1102
                                 -command => ['destroy',$newwin]);
 
1103
    $close->pack(-side => 'left', -expand => 1);
 
1104
    my $rerun = $buttons->Button(-text => 'Re-Run', 
 
1105
                                 -command=>[\&fill_text,'',$text,
 
1106
                                            \$cmd,$insert]);
 
1107
    $rerun->pack(-side => 'left', -expand => 1);
 
1108
 
 
1109
    my $cmdlabel = $entries->Label(-text => "Command:  ");
 
1110
    my $cmdtexte = $entries->Entry(-textvariable => \$cmd, 
 
1111
                                      -relief => "sunken");
 
1112
    $cmdtexte->bind('<Return>' => [\&fill_text,$text, \$cmd,$insert]);
 
1113
    $cmdlabel->pack(-side => 'left');
 
1114
    $cmdtexte->pack(-side => 'left');
 
1115
    
 
1116
    my $searchtext = '';
 
1117
    my $searchlabel = $entries->Label(-text => "Search for:  ");
 
1118
    my $searchtexte = $entries->Entry(-textvariable => \$searchtext, 
 
1119
                                      -relief => "sunken");
 
1120
 
 
1121
    $searchtexte->pack(-side => 'right');
 
1122
    $searchlabel->pack(-side => 'right');
 
1123
    $searchtexte->bind('<Return>' => [sub { $text->tag('remove','search','0.0','end');
 
1124
                                            my($current, $length) = ('1.0', 0);
 
1125
                                            while (1) {
 
1126
                                                $current = $text->search(-count => \$length, $searchtext, $current, 'end');
 
1127
                                                last if not $current;
 
1128
                                                $text->tag('add', 'search', $current, "$current + $length char");
 
1129
                                                $current = $text->index("$current + $length char");
 
1130
                                                $text->tag('configure','search',
 
1131
                                                           -background => 
 
1132
                                                           'lightBlue');}}]);
 
1133
 
 
1134
    if (defined($title)) {
 
1135
        $newwin->title($title);
 
1136
        $newwin->iconname($title);
 
1137
    }
 
1138
    fill_text('',$text,\$cmd,$insert);
 
1139
}
 
1140
 
 
1141
sub fill_text {
 
1142
    my $dump = shift;
 
1143
    my $textw = shift;
 
1144
    my $cmd = shift;
 
1145
    my $insert = shift;
 
1146
    $textw->delete('1.0','end');
 
1147
    if (defined($insert) && $insert) {
 
1148
        $textw->insert('end',"running:  $$cmd\n\n");
 
1149
    }
 
1150
    $textw->toplevel->update();
 
1151
    $textw->toplevel->Busy();
 
1152
    open(OUT,"$$cmd|");
 
1153
    while (<OUT>) {
 
1154
        $textw->insert('end',$_);
 
1155
        $textw->toplevel->update();
 
1156
        $textw->toplevel->Busy();
 
1157
    }
 
1158
    close(OUT);
 
1159
    if (defined ($insert) && $insert) {
 
1160
        $textw->insert('end',"\ndone.\n");
 
1161
    }
 
1162
    $textw->toplevel->Unbusy();
 
1163
    $textw->Unbusy();
 
1164
    addToLog("done:  $$cmd");
 
1165
}
 
1166
 
 
1167
sub display_help {
 
1168
    print "
 
1169
Usage:  snmpcheck [-x] [-n|y] [-h] [-H] [-V NUM] [-L] [-f] [[-a] HOSTS] 
 
1170
 
 
1171
  -h\tDisplay this message.
 
1172
  -a\tcheck error log file AND hosts specified on command line.
 
1173
  -p\tDon't try and ping-echo the host first
 
1174
  -f\tOnly check for things I can fix
 
1175
  HOSTS\tcheck these hosts for problems.
 
1176
 
 
1177
X Options:
 
1178
  -x\tforces ascii base if \$DISPLAY set (instead of tk).
 
1179
  -H\tstart in hidden mode.  (hides user interface)
 
1180
  -V NUM\tsets the initial verbosity level of the command log (def: 1)
 
1181
  -L\tShow the log window at startup
 
1182
  -d\tDon't start by checking anything.  Just bring up the interface.
 
1183
 
 
1184
Ascii Options:
 
1185
  -n\tDon't ever try and fix the problems found.  Just list.
 
1186
  -y\tAlways fix problems found.
 
1187
 
 
1188
";
 
1189
    exit(0);
 
1190
 
 
1191
}
 
1192
 
 
1193
sub option_get {
 
1194
    my $resource = shift;
 
1195
    return $top->option('get',$resource);
 
1196
}
 
1197
 
 
1198
sub option_set {
 
1199
    my $resource = shift;
 
1200
    my $value = shift;
 
1201
    $top->option('add',"*$resource",$value);
 
1202
}
 
1203
 
 
1204
sub option_save {
 
1205
 
 
1206
}
 
1207
 
 
1208
sub mibsort {
 
1209
    $_ = $a;
 
1210
    ($av) = /\.([0-9]+)/;
 
1211
    $_ = $b;
 
1212
    ($bv) = /\.([0-9]+)/;
 
1213
    return $av <=> $bv;
 
1214
}
 
1215
 
 
1216
sub setmibchecklist {
 
1217
    my $i;
 
1218
    foreach $i (keys(%mibchecklist)) {
 
1219
        $mibchecklist{$i} = 0;
 
1220
    }
 
1221
    foreach $i (@_) {
 
1222
        $mibchecklist{$i} = 1;
 
1223
    }
 
1224
}