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