X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2F.perldb.hist;h=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hb=de4e859da4c5c71147fcd114a6efaf57d6565888;hp=cd0092210b990f5d065c48a36dbfc0fe0c7ad878;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/clearadm/.perldb.hist b/clearadm/.perldb.hist
index cd00922..e69de29 100644
--- a/clearadm/.perldb.hist
+++ b/clearadm/.perldb.hist
@@ -1,100 +0,0 @@
-
-my $offset = 0;
-my $savout = select($DB::OUT);
-dumpvar_epic::dump_lexical_vars($offset);
-select($savout);
-};
-
-;{    
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-    
-my $offset = 0;
-my $varexpr = <<'EOT';
-$h->{'%parms'}
-EOT
-my $subref = \&dumpvar_epic::dump_hash_expr;
-my $savout = select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-select($savout);
-};
-
-;{    
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-    
-my $offset = 0;
-my $varexpr = <<'EOT';
-$h->{'@months'}
-EOT
-my $subref = \&dumpvar_epic::dump_array_expr;
-my $savout = select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-select($savout);
-};
-
-;{    
-do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars;
-    
-my $offset = 0;
-my $varexpr = <<'EOT';
-$h->{'@validKeys'}
-EOT
-my $subref = \&dumpvar_epic::dump_array_expr;
-my $savout = select($DB::OUT);
-my $savbuf = $|;
-$| = 0;
-$subref->($offset, $varexpr);
-$| = $savbuf;
-print "";
-select($savout);
-};
-
-b 166
-x $system
-x $status
-x @output
-f Clearexec
-b 345
-x $?
-x $!
-c snapshotsystem
-/snapshot
-c 82
-x $status
-x @output
-x $output[0]
-x $1
-x \%load
-x @output
-v 94
-c 94
-x $cmd
-x $restart
-x $status
-x @output
-$cmd .= "| grep -v 'grep -i \'$name\'"
-x $cmd
-($status, @output) = Execute $cmd
-x $cmd
-$cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
-x $cmd
-$cmd = 'ps -ef | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
-($status, @output) = Execute $cmd
-x $status
-x @output
-$cmd = 'ps -eWf | grep -i \'mediamallserver\' | grep -v \'grep -i \"mediamallserver\"\''
-($status, @output) = Execute $cmd
-x $cmd
-ls
-$status = 1
-x $status
-x $restart
-x $status
-x @output