[interchange-cvs] interchange - docelic modified code/UserTag/get_url.tag

Sat Oct 2 08:36:24 EDT 2004

User:      docelic
Date:      2004-10-02 12:36:24 GMT
Modified:  code/UserTag get_url.tag
Log:
- header/license fix
- moved docs to xmldocs

Revision  Changes    Path
1.7       +5 -30     interchange/code/UserTag/get_url.tag


rev 1.7, prev_rev 1.6
Index: get_url.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/get_url.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7

--- get_url.tag	13 Jul 2004 16:47:51 -0000	1.6
+++ get_url.tag	2 Oct 2004 12:36:24 -0000	1.7
@@ -1,36 +1,10 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: get_url.tag,v 1.7 2004/10/02 12:36:24 docelic Exp $
+
 UserTag get-url Order url
 UserTag get-url AddAttr
 UserTag get-url Interpolate
-UserTag get-url Documentation <<EOD
-
-=pod
-
-usage: 
-[get-url url="valid_url" method="POST" strip=1 content_type="x-www-form-urlencoded" content="name=Brev" authuser="username" authpass="password" useragent="useragent string"]
-
-Uses the LWP libraries to fetch a URL and return the contents.
-
-The optional C<method> setting can be one of GET, HEAD, POST, or PUT.
-Default (or no value) proceeds as GET.
-
-If the C<strip> option is set, strips everything up to C<< <body> >> and
-everything after C<< </body> >>.
-
-Optional setting C<content_type> is defaulted to x-www-form-urlencoded.
-
-Optional C<content> setting are the CGI variables to pass.  Method 
-should accordingly be POST or PUT.  List should be ampersand-separated, 
-i.e. "fname=Brev&lname=Patterson&state=UT". Make sure to URL Encode the
-variables themselves, try using the interchange [filter op='urlencode']
-tag.
-
-Optional C<authuser> and C<authpass> are the username/password used for
-authentication. Default is not to send authorization information.
-
-=cut
-
-EOD
-
 UserTag get-url Routine <<EOR
 require LWP::UserAgent;
 sub {
@@ -101,3 +75,4 @@
 	return $html;
 }
 EOR
+






