clearadm/.perldb.hist

   1
   2 my $offset = 0;
   3 my $savout = select($DB::OUT);
   4 dumpvar_epic::dump_lexical_vars($offset);
   5 select($savout);
   6 };
   7
   8 ;{
   9 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  10
  11 my $offset = 0;
  12 my $varexpr = <<'EOT';
  13 $h->{'%parms'}
  14 EOT
  15 my $subref = \&dumpvar_epic::dump_hash_expr;
  16 my $savout = select($DB::OUT);
  17 my $savbuf = $|;
  18 $| = 0;
  19 $subref->($offset, $varexpr);
  20 $| = $savbuf;
  21 print "";
  22 select($savout);
  23 };
  24
  25 ;{
  26 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  27
  28 my $offset = 0;
  29 my $varexpr = <<'EOT';
  30 $h->{'@months'}
  31 EOT
  32 my $subref = \&dumpvar_epic::dump_array_expr;
  33 my $savout = select($DB::OUT);
  34 my $savbuf = $|;
  35 $| = 0;
  36 $subref->($offset, $varexpr);
  37 $| = $savbuf;
  38 print "";
  39 select($savout);
  40 };
  41
  42 ;{
  43 do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
  44
  45 my $offset = 0;
  46 my $varexpr = <<'EOT';
  47 $h->{'@validKeys'}
  48 EOT
  49 my $subref = \&dumpvar_epic::dump_array_expr;
  50 my $savout = select($DB::OUT);
  51 my $savbuf = $|;
  52 $| = 0;
  53 $subref->($offset, $varexpr);
  54 $| = $savbuf;
  55 print "";
  56 select($savout);
  57 };
  58
  59 b 166
  60 x $system
  61 x $status
  62 x @output
  63 f Clearexec
  64 b 345
  65 x $?
  66 x $!
  67 c snapshotsystem
  68 /snapshot
  69 c 82
  70 x $status
  71 x @output
  72 x $output[0]
  73 x $1
  74 x \%load
  75 x @output
  76 v 94
  77 c 94
  78 x $cmd
  79 x $restart
  80 x $status
  81 x @output
  82 $cmd .= "| grep -v 'grep -i \'$name\'"
  83 x $cmd
  84 ($status, @output) = Execute $cmd
  85 x $cmd
  86 $cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
  87 x $cmd
  88 $cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
  89 ($status, @output) = Execute $cmd
  90 x $status
  91 x @output
  92 $cmd = 'ps -eWf | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
  93 ($status, @output) = Execute $cmd
  94 x $cmd
  95 ls
  96 $status = 1
  97 x $status
  98 x $restart
  99 x $status
 100 x @output