From: John Graham-C. <jgr...@us...> - 2004-11-29 16:44:07
|
Update of /cvsroot/popfile/engine/UI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27441/UI Modified Files: HTTP.pm XMLRPC.pm Log Message: Make separator lines conform to 78 column maximum Index: XMLRPC.pm =================================================================== RCS file: /cvsroot/popfile/engine/UI/XMLRPC.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** XMLRPC.pm 17 Sep 2004 08:37:47 -0000 1.17 --- XMLRPC.pm 29 Nov 2004 16:43:56 -0000 1.18 *************** *** 63,67 **** } ! # --------------------------------------------------------------------------------------------- # # initialize --- 63,67 ---- } ! # ---------------------------------------------------------------------------- # # initialize *************** *** 69,73 **** # Called to initialize the interface # ! # --------------------------------------------------------------------------------------------- sub initialize { --- 69,73 ---- # Called to initialize the interface # ! # ---------------------------------------------------------------------------- sub initialize { *************** *** 91,95 **** } ! # --------------------------------------------------------------------------------------------- # # start --- 91,95 ---- } ! # ---------------------------------------------------------------------------- # # start *************** *** 97,101 **** # Called to start the XMLRPC interface running # ! # --------------------------------------------------------------------------------------------- sub start { --- 97,101 ---- # Called to start the XMLRPC interface running # ! # ---------------------------------------------------------------------------- sub start { *************** *** 175,179 **** } ! # --------------------------------------------------------------------------------------------- # # service --- 175,179 ---- } ! # ---------------------------------------------------------------------------- # # service *************** *** 181,185 **** # Called to handle interface requests # ! # --------------------------------------------------------------------------------------------- sub service { --- 181,185 ---- # Called to handle interface requests # ! # ---------------------------------------------------------------------------- sub service { *************** *** 227,231 **** } ! # --------------------------------------------------------------------------------------------- # # configure_item --- 227,231 ---- } ! # ---------------------------------------------------------------------------- # # configure_item *************** *** 236,240 **** # $language Current language # ! # --------------------------------------------------------------------------------------------- sub configure_item --- 236,240 ---- # $language Current language # ! # ---------------------------------------------------------------------------- sub configure_item *************** *** 257,261 **** } ! # --------------------------------------------------------------------------------------------- # # validate_item --- 257,261 ---- } ! # ---------------------------------------------------------------------------- # # validate_item *************** *** 267,271 **** # $form Hash containing all form items # ! # --------------------------------------------------------------------------------------------- sub validate_item --- 267,271 ---- # $form Hash containing all form items # ! # ---------------------------------------------------------------------------- sub validate_item Index: HTTP.pm =================================================================== RCS file: /cvsroot/popfile/engine/UI/HTTP.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** HTTP.pm 3 Sep 2004 16:33:05 -0000 1.26 --- HTTP.pm 29 Nov 2004 16:43:55 -0000 1.27 *************** *** 93,97 **** } ! # --------------------------------------------------------------------------------------------- # # stop --- 93,97 ---- } ! # ---------------------------------------------------------------------------- # # stop *************** *** 99,103 **** # Called when the interface must shutdown # ! # --------------------------------------------------------------------------------------------- sub stop { --- 99,103 ---- # Called when the interface must shutdown # ! # ---------------------------------------------------------------------------- sub stop { *************** *** 107,111 **** } ! # --------------------------------------------------------------------------------------------- # # service --- 107,111 ---- } ! # ---------------------------------------------------------------------------- # # service *************** *** 113,117 **** # Called to handle interface requests # ! # --------------------------------------------------------------------------------------------- sub service { --- 113,117 ---- # Called to handle interface requests # ! # ---------------------------------------------------------------------------- sub service { *************** *** 197,201 **** } ! # --------------------------------------------------------------------------------------------- # # forked --- 197,201 ---- } ! # ---------------------------------------------------------------------------- # # forked *************** *** 203,207 **** # Called when someone forks POPFile # ! # --------------------------------------------------------------------------------------------- sub forked { --- 203,207 ---- # Called when someone forks POPFile # ! # ---------------------------------------------------------------------------- sub forked { *************** *** 211,215 **** } ! # --------------------------------------------------------------------------------------------- # # handle_url - Handle a URL request --- 211,215 ---- } ! # ---------------------------------------------------------------------------- # # handle_url - Handle a URL request *************** *** 220,224 **** # $content Any non-header data in the HTTP command # ! # --------------------------------------------------------------------------------------------- sub handle_url { --- 220,224 ---- # $content Any non-header data in the HTTP command # ! # ---------------------------------------------------------------------------- sub handle_url { *************** *** 228,232 **** } ! # --------------------------------------------------------------------------------------------- # # parse_form_ - parse form data and fill in $self->{form_} --- 228,232 ---- } ! # ---------------------------------------------------------------------------- # # parse_form_ - parse form data and fill in $self->{form_} *************** *** 235,239 **** # CR/LF # ! # --------------------------------------------------------------------------------------------- sub parse_form_ { --- 235,239 ---- # CR/LF # ! # ---------------------------------------------------------------------------- sub parse_form_ { *************** *** 276,280 **** } ! # --------------------------------------------------------------------------------------------- # # url_encode_ --- 276,280 ---- } ! # ---------------------------------------------------------------------------- # # url_encode_ *************** *** 284,288 **** # Encode a URL so that it can be safely passed in a URL as per RFC2396 # ! # --------------------------------------------------------------------------------------------- sub url_encode_ { --- 284,288 ---- # Encode a URL so that it can be safely passed in a URL as per RFC2396 # ! # ---------------------------------------------------------------------------- sub url_encode_ { *************** *** 295,299 **** } ! # --------------------------------------------------------------------------------------------- # # http_redirect_ - tell the browser to redirect to a url --- 295,299 ---- } ! # ---------------------------------------------------------------------------- # # http_redirect_ - tell the browser to redirect to a url *************** *** 304,308 **** # Return a valid HTTP/1.0 header containing a 302 redirect message to the passed in URL # ! # --------------------------------------------------------------------------------------------- sub http_redirect_ { --- 304,308 ---- # Return a valid HTTP/1.0 header containing a 302 redirect message to the passed in URL # ! # ---------------------------------------------------------------------------- sub http_redirect_ { *************** *** 315,319 **** } ! # --------------------------------------------------------------------------------------------- # # http_error_ - Output a standard HTTP error message --- 315,319 ---- } ! # ---------------------------------------------------------------------------- # # http_error_ - Output a standard HTTP error message *************** *** 324,328 **** # Return a simple HTTP error message in HTTP 1/0 format # ! # --------------------------------------------------------------------------------------------- sub http_error_ { --- 324,328 ---- # Return a simple HTTP error message in HTTP 1/0 format # ! # ---------------------------------------------------------------------------- sub http_error_ { *************** *** 334,338 **** } ! # --------------------------------------------------------------------------------------------- # # http_file_ - Read a file from disk and send it to the other end --- 334,338 ---- } ! # ---------------------------------------------------------------------------- # # http_file_ - Read a file from disk and send it to the other end *************** *** 345,349 **** # file does not exist # ! # --------------------------------------------------------------------------------------------- sub http_file_ { --- 345,349 ---- # file does not exist # ! # ---------------------------------------------------------------------------- sub http_file_ { |