--- loncom/lond	2004/04/26 10:37:47	1.178.2.19
+++ loncom/lond	2004/04/27 11:30:28	1.178.2.20
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.178.2.19 2004/04/26 10:37:47 foxr Exp $
+# $Id: lond,v 1.178.2.20 2004/04/27 11:30:28 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,7 +53,7 @@ my $DEBUG = 1;		       # Non zero to ena
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.178.2.19 $'; #' stupid emacs
+my $VERSION='$Revision: 1.178.2.20 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -1028,7 +1028,9 @@ sub UpdateResourceHandler {
    
     my $userinput = "$cmd:$tail";
    
-    my $fname=$tail;
+    my $fname=split(/:/$tail);	# This allows interactive testing
+    chomp($fname);		# with telnet.
+
     my $ownership=ishome($fname);
     if ($ownership eq 'not_owner') {
 	if (-e $fname) {
@@ -1188,15 +1190,20 @@ sub UnsubscribeHandler {
     my $client   = shift;
     my $userinput= "$cmd:$tail";
     
-    my $fname = $tail;
+    my ($fname) = split(/:/,$tail); # This allows for interactive testing
+                                    # e.g. manual telnet and unsub:res:
+                                    # Otherwise the \r gets in the way. 
+    chomp($fname);
+    Debug("Unsubscribing $fname");
     if (-e $fname) {
-	Reply($client, &unsub($client,$fname,$clientip), $userinput);
+	Debug("Exists");
+	Reply($client, &unsub($fname,$clientip), $userinput);
     } else {
 	Failure($client, "not_found\n", $userinput);
     }
     return 1;
 }
-RegisterHandler("unusb", \&UnsubscribeHandler, 0, 1, 0);
+RegisterHandler("unsub", \&UnsubscribeHandler, 0, 1, 0);
 
 #   Subscribe to a resource
 #
@@ -3818,9 +3825,13 @@ sub propath {
 
 sub ishome {
     my $author=shift;
+    Debug("ishome: $author");
     $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;
+    Debug("     after big regsub: $author");
     my ($udom,$uname)=split(/\//,$author);
+    Debug("      domain: $udom  user: $uname");
     my $proname=propath($udom,$uname);
+    Debug("     path = $proname");
     if (-e $proname) {
 	return 'owner';
     } else {
@@ -4286,15 +4297,25 @@ sub addline {
     my $expr='^'.$hostid.':'.$ip.':';
     $expr =~ s/\./\\\./g;
     my $sh;
+    Debug("Looking for $expr");
     if ($sh=IO::File->new("$fname.subscription")) {
 	while (my $subline=<$sh>) {
-	    if ($subline !~ /$expr/) {$contents.= $subline;} else {$found=1;}
+	    Debug("addline: line: $subline");
+	    if ($subline !~ /$expr/) {
+		$contents.= $subline;
+	    } else {
+		Debug("Found $subline");
+		$found=1;
+	    }
 	}
 	$sh->close();
     }
     $sh=IO::File->new(">$fname.subscription");
     if ($contents) { print $sh $contents; }
-    if ($newline) { print $sh $newline; }
+    if ($newline) { 
+	Debug("Appending $newline");
+	print $sh $newline; 
+    }
     $sh->close();
     return $found;
 }
@@ -4367,16 +4388,24 @@ sub chatadd {
 sub unsub {
     my ($fname,$clientip)=@_;
     my $result;
-    if (unlink("$fname.$clientname")) {
-	$result="ok\n";
-    } else {
-	$result="not_subscribed\n";
-    }
+#    if (unlink("$fname.$clientname")) {
+#	$result="ok\n";
+#    } else {
+#	$result="not_subscribed\n";
+#    }
+    unlink("$fname.$clientname");
     if (-e "$fname.subscription") {
+	Debug ("Processing subscription file $fname.subscription");
 	my $found=&addline($fname,$clientname,$clientip,'');
-	if ($found) { $result="ok\n"; }
+	if ($found) { 
+	    Debug("Old linek found");
+	    $result="ok\n"; 
+	} else {
+	    $result = "not_subscribed\n";
+	}
     } else {
-	if ($result != "ok\n") { $result="not_subscribed\n"; }
+	Debug("No Subscription file $fname.subscription");
+	if ($result ne "ok\n") { $result="not_subscribed\n"; }
     }
     return $result;
 }
@@ -4429,12 +4458,15 @@ sub thisversion {
 
 sub subscribe {
     my ($userinput,$clientip)=@_;
+    chomp($userinput);
     my $result;
     my ($cmd,$fname)=split(/:/,$userinput);
     my $ownership=&ishome($fname);
+    Debug("subscribe: Owner = $ownership file: '$fname'");
     if ($ownership eq 'owner') {
 # explitly asking for the current version?
         unless (-e $fname) {
+	    Debug("subscribe - does not exist");
             my $currentversion=&currentversion($fname);
 	    if (&thisversion($fname)==$currentversion) {
                 if ($fname=~/^(.+)\.\d+\.(\w+(?:\.meta)*)$/) {
@@ -4450,6 +4482,7 @@ sub subscribe {
             }
         }
 	if (-e $fname) {
+	    Debug("subscribe - exists");
 	    if (-d $fname) {
 		$result="directory\n";
 	    } else {
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>