1	# =====================================================================
     2	# unwatch.awk: RPC I/O function for rpclib/unwatch.
     3	#
     4	# Copyright (c) 2010 Carlo Strozzi
     5	#
     6	# This program is free software; you can redistribute it and/or modify
     7	# it under the terms of the GNU General Public License as published by
     8	# the Free Software Foundation; version 2 dated June, 1991.
     9	#
    10	# This program is distributed in the hope that it will be useful,
    11	# but WITHOUT ANY WARRANTY; without even the implied warranty of
    12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    13	# GNU General Public License for more details.
    14	#
    15	# You should have received a copy of the GNU General Public License
    16	# along with this program; if not, write to the Free Software
    17	# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    18	#
    19	# =====================================================================
    20	
    21	# =====================================================================
    22	# void _userproc(int mode)
    23	# =====================================================================
    24	
    25	function _userproc(mode,			       value,a,i,tmp) {
    26	
    27	   if (mode == _O_REQUEST) {				# request.
    28	
    29	      # target group
    30	      value = _request("1",1)
    31	
    32	      # group must not be null and it may not contain the
    33	      # unescaped ``.'' character.
    34	
    35	      if (value != _NULL && value !~ /\./) {
    36		 _rcset("cgi.group",unixify(value))
    37		 _rcset("cgi.group.literal",value)
    38	      }
    39	
    40	      # user-id will always be considered lower-case and using
    41	      # an e-mail should not be allowed, to prevent breaking
    42	      # privacy when a user-id is virtually cancelled. If the
    43	      # received value is all digits then it is considered to
    44	      # be the node-id of the intended user-id.
    45	
    46	      value = tolower(_strip(_request("2",1)))
    47	
    48	      if (value ~ /^[1-9][0-9][0-9]+$/) {
    49		 tmp = ENVIRON["CSA_ROOT"] "/var/nodes/" \
    50			substr(value,1,1) "/" substr(value,2,1) "/" \
    51			substr(value,3,1) "/" value
    52		 getline value < tmp; close(tmp)
    53		 sub(/^auth +/,_NULL,value)
    54	      }
    55	
    56	      len = length(value)
    57	      if (value ~ /^[a-z][-_a-z0-9.]*$/ && len > 4 && len < 17) {
    58		 _rcset("cgi.auth.userid",value)
    59	      }
    60	
    61	      # Handle malformed user-id by setting it to "." .
    62	      else if (value != _NULL) _rcset("cgi.auth.userid",".")
    63	
    64	      # ID of the (single) object to be removed from the watch-list.
    65	
    66	      value = _strip(_request("3",1))
    67	      if ((value /= 1) > 0) {
    68	
    69		 _rcset("cgi.item.node", value)
    70	
    71		 if (length(value"") < 3) _rcset("cgi.item.node",_NULL)
    72		 else {
    73		    tmp = ENVIRON["CSA_ROOT"] "/var/nodes/" \
    74			substr(value,1,1) "/" substr(value,2,1) "/" \
    75			substr(value,3,1) "/" value
    76		    getline value < tmp; close(tmp)
    77	
    78		    if (split(value,a,/[\/ +]/) > 3 && a[4] ~ /^[1-9][0-9]+-/) {
    79		       _rcset("cgi.item.type","thread")
    80		       _rcset("cgi.item",a[4])
    81		    }
    82		    else {
    83		       _rcset("cgi.item.type","page")
    84		       _rcset("cgi.item",a[3])
    85		    }
    86	
    87		    _rcset("cgi.page",a[3])
    88		 }
    89	      }
    90	
    91	      # The following test is necessary since the address could,
    92	      # at least in theory, have been set to any string by the
    93	      # remote user, due to how it is handled to cope with stunnel(8)
    94	      # and the lack of transproxy support in kernel 2.4.x.
    95	
    96	      if (_isipaddr(ENVIRON["REMOTE_ADDR"]) == _TRUE)
    97					value = ENVIRON["REMOTE_ADDR"]
    98	      else value = "0.0.0.0"
    99	
   100	      _rcset("REMOTE_ADDR",value)
   101	   }
   102	
   103	   else {					# response.
   104	
   105	      # generic template conditionals.
   106	      ifsections()
   107	   }
   108	} 
   109	
   110	# EOF