===================================================================
RCS file: /usr/local/MASTER/plexus/src/log-simple.pl,v
retrieving revision 2.7
diff -c -r2.7 log-simple.pl
*** 2.7	1994/11/06 21:02:52
--- log-simple.pl	1994/11/13 23:37:50
***************
*** 23,29 ****
      # Lock before writting to the log file because multiple
      # accesses might be going on at the same time.
      &main'seize(LOG, &main'LOCK_EX);
!     seek(LOG, 2, 0);			# seek to end
      print LOG $msg;
      &main'seize(LOG, &main'LOCK_UN);
      &main'clear_timeout;
--- 23,29 ----
      # Lock before writting to the log file because multiple
      # accesses might be going on at the same time.
      &main'seize(LOG, &main'LOCK_EX);
!     seek(LOG, 0, 2);			# seek to end
      print LOG $msg;
      &main'seize(LOG, &main'LOCK_UN);
      &main'clear_timeout;
===================================================================
RCS file: /usr/local/MASTER/plexus/src/mime.pl,v
retrieving revision 2.11
diff -c -r2.11 mime.pl
*** 2.11	1994/11/06 21:03:44
--- mime.pl	1994/11/12 19:04:39
***************
*** 83,88 ****
--- 83,89 ----
  sub resolve_header {
      local(*headers, $i) = @_;
      local(@list);
+     return undef unless defined $headers{$i};
      @list = grep($_ .= "\n", split("\377", $headers{$i}));
      $i =~ s/\b([a-z])/\u$1/;
      join("$i: ", "",@list);
===================================================================
RCS file: /usr/local/MASTER/plexus/util/forms.pl,v
retrieving revision 2.4
diff -c -r2.4 forms.pl
*** 2.4	1994/11/08 08:43:47
--- forms.pl	1994/11/12 19:16:52
***************
*** 65,70 ****
--- 65,71 ----
      local($from) = &main'hostname((unpack($main'sockaddr, $main'peeraddr))[2]);
      local(*form, $old);
  
+     &main'error('bad_request', 'No form data') if (!$main'body && !$query);
      &decode(($main'body || $query), *form, 1);
      $error = &verify($rest, *form);
      &main'error('bad_request', $error) if (defined($error));
***************
*** 81,86 ****
--- 82,88 ----
  
      print "Form: $subject\n";
      print &main'resolve_header(*main'in_headers, 'From');
+     print &main'resolve_header(*main'in_headers, 'Referer');
      print &main'resolve_header(*main'in_headers, 'User-agent');
      print "Hostname: $from\n";
      print "URL: $url\n";
===================================================================
RCS file: /usr/local/MASTER/plexus/access/access-filter.pl,v
retrieving revision 1.7
diff -c -r1.7 access-filter.pl
*** 1.7	1994/11/08 23:57:15
--- access-filter.pl	1994/12/07 23:41:18
***************
*** 109,131 ****
  	    $pat = '*/' . $pat unless $pat =~ m#^[\/\*]#;
  	    $pat =~ s#^/##;
  	    local($host, $methods, $users, $groups) = ('*', '*', '*', '');
! 	    if ($spec[0] eq 'domain') {
! 		shift @spec; $host = shift @spec;
! 		$host =~ y/A-Z/a-z/;	# lower case
! 		$host =~ s/\.+$//;	# remove trailing .'s
! 		$host .= 'd';
! 	    } elsif ($spec[0] eq 'ip') {
! 		shift @spec; $host = shift @spec;
! 		local($addr,$mask) = (split('/',$host));
! 		$addr = pack("C4", (split('\.',$addr)));
! 		$mask = pack("C4", (split('\.',$mask||'255.255.255.255')));
! 		$host = $addr . $mask . 'a';
! 	    } elsif ($spec[0] eq 'methods') {
! 		shift @spec; $methods = shift @spec;
! 	    } elsif ($spec[0] eq 'users') {
! 		shift @spec; $users = shift @spec;
! 	    } elsif ($spec[0] eq 'groups') {
! 		shift @spec; $groups = shift @spec;
  	    }
  	    push(@lines, join('',
  		&main'globpat($pat), "\377",
--- 109,133 ----
  	    $pat = '*/' . $pat unless $pat =~ m#^[\/\*]#;
  	    $pat =~ s#^/##;
  	    local($host, $methods, $users, $groups) = ('*', '*', '*', '');
! 	    while ($spec[0]) {
! 		if ($spec[0] eq 'domain') {
! 		    shift @spec; $host = shift @spec;
! 		    $host =~ y/A-Z/a-z/;	# lower case
! 		    $host =~ s/\.+$//;	# remove trailing .'s
! 		    $host .= 'd';
! 		} elsif ($spec[0] eq 'ip') {
! 		    shift @spec; $host = shift @spec;
! 		    local($addr,$mask) = (split('/',$host));
! 		    $addr = pack("C4", (split('\.',$addr)));
! 		    $mask = pack("C4", (split('\.',$mask||'255.255.255.255')));
! 		    $host = $addr . $mask . 'a';
! 		} elsif ($spec[0] eq 'methods') {
! 		    shift @spec; $methods = shift @spec;
! 		} elsif ($spec[0] eq 'users') {
! 		    shift @spec; $users = shift @spec;
! 		} elsif ($spec[0] eq 'groups') {
! 		    shift @spec; $groups = shift @spec;
! 		}
  	    }
  	    push(@lines, join('',
  		&main'globpat($pat), "\377",