Added git branch to window title if in a git repository.

Removed .perldb.hist

diff --git a/clearadm/.perldb.hist b/clearadm/.perldb.hist
index cd00922..e69de29 100644 (file)
--- 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

diff --git a/rc/functions b/rc/functions
index fd373a2..1f1636d 100644 (file)
--- a/rc/functions
+++ b/rc/functions
@@ -38,6 +38,11 @@ function title_bar {
     current_dir="$current_dir ($(cat CVS/Root | tr -d $CR))"
   fi
 
+  # Add GIT info if available
+  if [ -d .git ]; then
+    current_dir="git: $(git branch | sed -n -e 's/^\* \(.*\)/\1/p') $current_dir"
+  fi
+
   if [ "$TERM" = "hpterm" -o \
        "$TERM" = "hp"     -o \
        "$TERM" = "2392A" ]; then