[haver-commits] r910 - in trunk: . clients perl/client/lib/Haver

[haver]

Author: dylan
Date: 2005-08-06 14:00:06 -0400 (Sat, 06 Aug 2005)
New Revision: 910

Removed:
   trunk/clients/haver-gtk/
   trunk/clients/havercurs/
   trunk/clients/havirc/
   trunk/clients/javer/
   trunk/clients/termvisual/
Modified:
   trunk/
   trunk/perl/client/lib/Haver/Client.pm
Log:
Removing a lot of dead code.


Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1357
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1359
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/client/lib/Haver/Client.pm
===================================================================
--- trunk/perl/client/lib/Haver/Client.pm       2005-08-06 17:56:14 UTC (rev 
909)
+++ trunk/perl/client/lib/Haver/Client.pm       2005-08-06 18:00:06 UTC (rev 
910)
@@ -49,7 +49,7 @@
     S_DYING  => 5, # C: BYE sent, socket still open
 };
 
-our $VERSION = 0.08;
+our $VERSION = 0.09;
 
 sub dispatch {
     call('dispatch', @_);
@@ -215,8 +215,12 @@
 sub on_input {
     my ($kernel, $heap, $arg) = @_[KERNEL,HEAP,ARG0];
     return if (ref $arg ne 'ARRAY' || @$arg == 0);
-    print STDERR "S: ", join "\t", @$arg;
-    print STDERR "\n";
+    
+    if (DEBUG) {
+           print STDERR "S: ", join "\t", @$arg;
+           print STDERR "\n";
+       }
+
     dispatch('raw_in', @$arg);
     my $cmd = $arg->[0];
     $cmd =~ tr/:/_/;
@@ -260,7 +264,9 @@
         $heap->{state} == S_DYING) {
         return;
     }
-    print STDERR "C: ", join("\t", @args), "\n";
+    if (DEBUG) {
+           print STDERR "C: ", join("\t", @args), "\n";
+       }
     $heap->{wheel}->put([EMAIL PROTECTED]);
 }