#!/usr/bin/perl -Tw
#
-# $Id: cgi-test,v 1.1 1999-04-08 13:05:40 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
# data. (a derivative is used by the web demo)
# 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;
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;