*** ../libwww-perl-0.10/Changes.txt Mon Jun 13 23:54:17 1994 --- Changes.txt Fri Jun 17 18:37:39 1994 *************** *** 17,22 **** --- 17,29 ---- A real HTML (or SGML) parser. + Version 0.11 June 17, 1994 + Changed environment variable LIBWWW-PERL to LIBWWW_PERL because + some systems can't handle the dash (Charlie Stross). + Fixed bug in "get" that caused full pathname to be used as the method + (Martijn Koster). + Fixed handling of perverse relative URLs (e.g. ../../) in wwwurl'absolute. + Version 0.10 June 13, 1994 First public version. libwww-perl was developed by Roy Fielding from the core of MOMspider, a program intended to assist multi-owner *** ../libwww-perl-0.10/INSTALL.txt Mon Jun 13 23:54:17 1994 --- INSTALL.txt Fri Jun 17 19:22:14 1994 *************** *** 20,37 **** it will be in the form of a compressed unix tar file. If it has not already been decompressed by your WWW client, then do one of: ! % uncompress libwww-perl-0.10.tar.Z ! % gunzip libwww-perl-0.10.tar.gz depending on which compressed version you downloaded. ! 2. Move the resulting libwww-perl-1.0.tar file to the directory above where you want to install libwww-perl, cd to that directory, and do ! % tar xvf libwww-perl-0.10.tar ! to create the directory ./libwww-perl-0.10 containing the following: Artistic.txt -- the Artistic License governing redistribution of the libwww-perl package. --- 20,37 ---- it will be in the form of a compressed unix tar file. If it has not already been decompressed by your WWW client, then do one of: ! % uncompress libwww-perl-0.11.tar.Z ! % gunzip libwww-perl-0.11.tar.gz depending on which compressed version you downloaded. ! 2. Move the resulting libwww-perl-0.11.tar file to the directory above where you want to install libwww-perl, cd to that directory, and do ! % tar xvf libwww-perl-0.11.tar ! to create the directory ./libwww-perl-0.11 containing the following: Artistic.txt -- the Artistic License governing redistribution of the libwww-perl package. *************** *** 81,90 **** #!/usr/local/bin/perl ! 4. The following environment variable must be set to point to the libwww-perl ! directory. ! % setenv LIBWWW-PERL /usr/local/lib/libwww-perl-0.10 This allows clients like "get" to place the libwww-perl on their @INC path and also allows wwwmime.pl to find the standard mime.types file. --- 81,90 ---- #!/usr/local/bin/perl ! 4. The LIBWWW_PERL environment variable must be set to point to the ! libwww-perl directory, e.g. ! % setenv LIBWWW_PERL /usr/local/lib/libwww-perl-0.11 This allows clients like "get" to place the libwww-perl on their @INC path and also allows wwwmime.pl to find the standard mime.types file. *** ../libwww-perl-0.10/README.html Mon Jun 13 23:54:17 1994 --- README.html Fri Jun 17 19:15:31 1994 *************** *** 63,70 ****
Roy Fielding, University of California, Irvine, USA !
Architect and primary developer of the libraries for version 0.10. !
Oscar Nierstrasz, University of Bern, Germany
Oscar's collection of useful perl scripts formed the basis on which the wwwhttp.pl and wwwhtml.pl packages were built.
Gertjan van Oosten --- 63,72 ----
Roy Fielding, University of California, Irvine, USA !
Architect and primary developer of the library. !
Martijn Koster, NEXOR Ltd., UK !
Contributed bug fixes and part of Oscar's http. !
Oscar Nierstrasz, Universitaet Bern, Switzerland
Oscar's collection of useful perl scripts formed the basis on which the wwwhttp.pl and wwwhtml.pl packages were built.
Gertjan van Oosten *************** *** 75,81 ****
These people contributed to prior packages which influenced the development of libwww-perl: Marion Hakanson (ctime), Marc van Heyningen (http), ! Waldemar Kebsch (ctime), Martijn Koster (http), and Larry Wall (Perl).
--- 77,83 ----
These people contributed to prior packages which influenced the development of libwww-perl: Marion Hakanson (ctime), Marc van Heyningen (http), ! Waldemar Kebsch (ctime), and Larry Wall (Perl).
*************** *** 82,90 ****

The Distribution

For easy distribution, libwww-perl is available as a ! gzip'd tar file or as a ! compress'd tar file. It is also available via anonymous ftp from liege.ics.uci.edu in the directory --- 84,92 ----

The Distribution

For easy distribution, libwww-perl is available as a ! gzip'd tar file or as a ! compress'd tar file. It is also available via anonymous ftp from liege.ics.uci.edu in the directory *************** *** 105,111 ****
README.html
this document. !
get
a simple program for performing WWW GET requests from the command-line. The name of the program determines what request method to be used (i.e. create a link to it called "head" and --- 107,113 ----
README.html
this document. !
get
a simple program for performing WWW GET requests from the command-line. The name of the program determines what request method to be used (i.e. create a link to it called "head" and *************** *** 112,123 **** you have a program that does HEAD requests). This program demonstrates the power and simplicity of the libwww-perl interface. !
mime.types
the standard MIME content-types and default filename extensions in the same format as that used by NCSA httpd_1.3 and many WWW clients. !
testdates
a simple program for testing the wwwdates.pl package.
www.pl --- 114,125 ---- you have a program that does HEAD requests). This program demonstrates the power and simplicity of the libwww-perl interface. !
mime.types
the standard MIME content-types and default filename extensions in the same format as that used by NCSA httpd_1.3 and many WWW clients. !
testdates
a simple program for testing the wwwdates.pl package.
www.pl *************** *** 170,175 **** --- 172,186 ---- (let us know if you are working on something good)
Interfaces to FTP, Gopher, WAIS, ...
A real HTML (or SGML) parser.

+ +

Version 0.11 --- June 17, 1994 + [patch] +
Changed environment variable LIBWWW-PERL to LIBWWW_PERL because + some systems can't handle the dash (Charlie Stross).
+ Fixed bug in "get" that caused full pathname to be used as the method + (Martijn Koster).
+ Fixed handling of perverse relative URLs (e.g. ../../) in wwwurl'absolute. +

Version 0.10 --- June 13, 1994
First public version. libwww-perl was developed by *** ../libwww-perl-0.10/get Mon Jun 13 23:54:17 1994 --- get Fri Jun 17 18:18:37 1994 *************** *** 11,21 **** # # Enter a URL (^D to exit): base=http://www.ics.uci.edu/ # ! # 13 Jun 1994: Initial Version (RTF) # # Created by Roy Fielding to test the libwww-perl system #----------------------------------------------------------------- ! if ($libloc = $ENV{'LIBWWW-PERL'}) { unshift(@INC, $libloc); } require "www.pl"; require "wwwurl.pl"; --- 11,23 ---- # # Enter a URL (^D to exit): base=http://www.ics.uci.edu/ # ! # 13 Jun 1994 (RTF): Initial Version ! # 14 Jun 1994 (RTF): Changed env variable to LIBWWW_PERL ! # Fixed the method name to remove any path garbage # # Created by Roy Fielding to test the libwww-perl system #----------------------------------------------------------------- ! if ($libloc = $ENV{'LIBWWW_PERL'}) { unshift(@INC, $libloc); } require "www.pl"; require "wwwurl.pl"; *************** *** 22,34 **** require "wwwerror.pl"; $method = $0; # Method = program name ! $UserAgent = "$method/0.1 $www'Library"; # Set up User-Agent: header chop($thishost = `hostname`); # Get default address $ReplyTo = join('@', $ENV{'USER'}, $thishost); # Set up From: header - - $method =~ tr/a-z/A-Z/; $base = 'file://localhost'. ($ENV{'PWD'} || $ENV{'cwd'}) .'/'; --- 24,36 ---- require "wwwerror.pl"; $method = $0; # Method = program name + $method =~ s#^.*/([^/]+)$#$1#; # lose the path + $method =~ tr/a-z/A-Z/; # uppercase it ! $UserAgent = "$method/0.2 $www'Library"; # Set up User-Agent: header chop($thishost = `hostname`); # Get default address $ReplyTo = join('@', $ENV{'USER'}, $thishost); # Set up From: header $base = 'file://localhost'. ($ENV{'PWD'} || $ENV{'cwd'}) .'/'; *** ../libwww-perl-0.10/testdates Mon Jun 13 23:54:17 1994 --- testdates Tue Jun 14 06:32:56 1994 *************** *** 3,13 **** # testdates: A simple program for testing WWW date parsing, conversion, # and formatted output. # ! # 13 Jun 1994: Initial Version (RTF) # # Created by Roy Fielding to test the libwww-perl system #----------------------------------------------------------------- ! if ($libloc = $ENV{'LIBWWW-PERL'}) { unshift(@INC, $libloc); } require "wwwdates.pl"; --- 3,14 ---- # testdates: A simple program for testing WWW date parsing, conversion, # and formatted output. # ! # 13 Jun 1994 (RTF): Initial Version ! # 14 Jun 1994 (RTF): Changed environment variable to LIBWWW_PERL # # Created by Roy Fielding to test the libwww-perl system #----------------------------------------------------------------- ! if ($libloc = $ENV{'LIBWWW_PERL'}) { unshift(@INC, $libloc); } require "wwwdates.pl"; *** ../libwww-perl-0.10/www.pl Mon Jun 13 23:54:17 1994 --- www.pl Fri Jun 17 18:34:21 1994 *************** *** 12,18 **** # # # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 12,18 ---- # # # ! # 13 Jun 1994 (RTF): Initial version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *** ../libwww-perl-0.10/wwwdates.pl Mon Jun 13 23:54:17 1994 --- wwwdates.pl Fri Jun 17 18:34:34 1994 *************** *** 10,16 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 09 Jun 1994: Initial Version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to the author Roy Fielding at . --- 10,16 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 09 Jun 1994 (RTF): Initial Version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to the author Roy Fielding at . *** ../libwww-perl-0.10/wwwerror.pl Mon Jun 13 23:54:17 1994 --- wwwerror.pl Fri Jun 17 18:34:45 1994 *************** *** 7,13 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 7,13 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *** ../libwww-perl-0.10/wwwfile.pl Mon Jun 13 23:54:17 1994 --- wwwfile.pl Fri Jun 17 18:34:58 1994 *************** *** 10,16 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 10,16 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *** ../libwww-perl-0.10/wwwhtml.pl Mon Jun 13 23:54:17 1994 --- wwwhtml.pl Fri Jun 17 18:35:09 1994 *************** *** 10,16 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 10,16 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *** ../libwww-perl-0.10/wwwhttp.pl Mon Jun 13 23:54:17 1994 --- wwwhttp.pl Fri Jun 17 18:35:22 1994 *************** *** 11,17 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 11,17 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *** ../libwww-perl-0.10/wwwmime.pl Mon Jun 13 23:54:17 1994 --- wwwmime.pl Tue Jun 14 06:33:46 1994 *************** *** 7,13 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 7,14 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version ! # 14 Jun 1994 (RTF): Changed environment variable to LIBWWW_PERL # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *************** *** 28,34 **** 'z', 'x-compress', ); ! &load_mimetypes($ENV{'LIBWWW-PERL'} . "/mime.types"); &load_mimetypes($ENV{'HOME'} . "/.mime.types"); --- 29,35 ---- 'z', 'x-compress', ); ! &load_mimetypes($ENV{'LIBWWW_PERL'} . "/mime.types"); &load_mimetypes($ENV{'HOME'} . "/.mime.types"); *** ../libwww-perl-0.10/wwwurl.pl Mon Jun 13 23:54:17 1994 --- wwwurl.pl Fri Jun 17 18:31:59 1994 *************** *** 7,13 **** # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994: Initial version (RTF) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . --- 7,14 ---- # It is distributed under the Artistic License (included with your Perl # distribution files). # ! # 13 Jun 1994 (RTF): Initial version ! # 17 Jun 1994 (RTF): Fixed double-relative URL handling (e.g. ../../) # # If you have any suggestions, bug reports, fixes, or enhancements, # send them to Roy Fielding at . *************** *** 200,212 **** last RELATED if ($query); $query = $pquery; } ! elsif ($path !~ m|^/|o) ! { $ppath =~ s#/[^/]*$#/#; $path = $ppath . $path; ! $path =~ s#/\./#/#g; # The order in which we resolve the ! $path =~ s#/\.$#/#; # relative components is important ! $path =~ s#/[^/]+/\.\./#/#g; $path =~ s#/[^/]+/\.\.$#/#; } } --- 201,213 ---- last RELATED if ($query); $query = $pquery; } ! elsif ($path !~ m|^/|o) # The order in which we resolve the ! { # relative components is important $ppath =~ s#/[^/]*$#/#; $path = $ppath . $path; ! while ($path =~ s#/\./#/#) {;} ! $path =~ s#/\.$#/#; ! while ($path =~ s#/[^/]+/\.\./#/#) {;} $path =~ s#/[^/]+/\.\.$#/#; } }