X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=test%2Fcgi-test;h=2dda4849b3ff310067b85ec90a6fd43bd22f00d1;hp=e88bfd7504dceccbf3d65d7677847b3a82ddc8ef;hb=649ceeca76084d16d22013124bd7f80f053d75c4;hpb=fb0b6751596d6e31c3b42b8d24f5e1045402651e

diff --git a/test/cgi-test b/test/cgi-test
index e88bfd750..2dda4849b 100755
--- a/test/cgi-test
+++ b/test/cgi-test
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: cgi-test,v 1.1 1999-04-08 13:05:40 ivan Exp $
+# $Id: cgi-test,v 1.3 2001-08-21 02:32:54 ivan Exp $
 #
 # This is the beginning of a test suite for the web interface.
 # It's also excellent for populating your database with some meaningful test
@@ -10,11 +10,6 @@
 # Usage: cgi-test http://base.freeside.url/with/path/ username password
 # (Yes, if you were properly paranoid and are using SSL, you'll need to get
 #  libwww-perl working with SSL to use this.)
-#
-# $Log: cgi-test,v $
-# Revision 1.1  1999-04-08 13:05:40  ivan
-# web interface tester / sample data creator
-#
 
 use strict;
 #use diagnostics;
@@ -23,6 +18,10 @@ use CGI;
 use LWP::UserAgent;
 
 my ( $base_url, $username, $password ) = ( shift, shift, shift );
+#trust 'em
+$base_url =~ /^(.*)$/; $base_url = $1;
+$username =~ /^(.*)$/; $username = $1;
+$password =~ /^(.*)$/; $password = $1;
 
 my @data = &big_ugly_data_structure;