1	# =====================================================================
     2	# system.getCapabilities: XML-RPC API
     3	# See http://phpxmlrpc.sourceforge.net/server.php
     4	#
     5	# Copyright (c) 2007,2009 Carlo Strozzi
     6	#
     7	# This program is free software; you can redistribute it and/or modify
     8	# it under the terms of the GNU General Public License as published by
     9	# the Free Software Foundation; version 2 dated June, 1991.
    10	#
    11	# This program is distributed in the hope that it will be useful,
    12	# but WITHOUT ANY WARRANTY; without even the implied warranty of
    13	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14	# GNU General Public License for more details.
    15	#
    16	# You should have received a copy of the GNU General Public License
    17	# along with this program; if not, write to the Free Software
    18	# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    19	#
    20	# =====================================================================
    21	
    22	# =====================================================================
    23	#		Local variables and functions
    24	# =====================================================================
    25	
    26	# =====================================================================
    27	#			Main program
    28	# =====================================================================
    29	
    30	csaGetArgs POST
    31	
    32	tw_dstem = $CSA_ROOT/lib/default
    33	
    34	# Account for the fact that templates are created by the client.
    35	CSA_TPL_SAFEPATH = ($CSA_INSTALL/lib $tw_dstem $TMPDIR $CSA_TPL_ROOT
    36			    $CSA_DOCROOT/$CSA_LANG/$TNS_ATTACH_PUBDIR)
    37	
    38	# Without this, only the default OK response will be produced.
    39	CSA_EXIT_SCRIPT = $CSA_ROOT/lib/exit-stuff.rc
    40	
    41	# Note: I do not list 'introspection' among this application
    42	# capabilities since only 'system.listMethods' is currently available.
    43	
    44	csaMkTemp tpl.include.tw.rpc
    45	
    46	cat <<'EOF' > $'tpl.include.tw.rpc' || csaExit.fault 0003 cat
    47	<struct>
    48	 <member><name>xmlrpc</name>
    49	  <value><struct>
    50	   <member>
    51	    <name>specUrl</name>
    52	    <value><string>http://www.xmlrpc.com/spec</string></value>
    53	   </member>
    54	   <member>
    55	    <name>specVersion</name>
    56	    <value><int>1</int></value>
    57	   </member>
    58	  </struct></value>
    59	 </member>
    60	 <member><name>blogger</name>
    61	  <value><struct>
    62	   <member>
    63	    <name>specUrl</name>
    64	    <value><string>http://txp.kusor.com/rpc-api/blogger-api</string></value>
    65	   </member>
    66	   <member>
    67	    <name>specVersion</name>
    68	    <value><string>BloggerAPI2</string></value>
    69	   </member>
    70	  </struct></value>
    71	 </member>
    72	</struct>
    73	EOF
    74	
    75	#if (~ $tpl_name tw-*) {
    76	#
    77	#   # Page names beginning with tw-* are reserved for TW use, and usually
    78	#   # refer to views that do not correspond to actual pages on disk, so
    79	#   # we need to toggle unapplicable sections in templates.
    80	#
    81	#   tpl.if.tw.ispage = '(::DEL:)'
    82	#   tpl.fi.tw.ispage = '(:DEL::)'
    83	#   tpl.if.tw.editor = '(::DEL:)'
    84	#   tpl.fi.tw.editor = '(:DEL::)'
    85	#}
    86	
    87	csaExit.ok
    88	
    89	# End of program.