3 # $Id: cgi-test,v 1.3 2001-08-21 02:32:54 ivan Exp $
5 # This is the beginning of a test suite for the web interface.
6 # It's also excellent for populating your database with some meaningful test
7 # data. (a derivative is used by the web demo)
8 # It only works on an empty database (probably need empty counters too, and
9 # no arbirary RADIUS attributes).
10 # Usage: cgi-test http://base.freeside.url/with/path/ username password
11 # (Yes, if you were properly paranoid and are using SSL, you'll need to get
12 # libwww-perl working with SSL to use this.)
16 use subs qw( big_ugly_data_structure );
20 my ( $base_url, $username, $password ) = ( shift, shift, shift );
22 $base_url =~ /^(.*)$/; $base_url = $1;
23 $username =~ /^(.*)$/; $username = $1;
24 $password =~ /^(.*)$/; $password = $1;
26 my @data = &big_ugly_data_structure;
28 my $ua = new LWP::UserAgent;
32 sub LWP::UserAgent::get_basic_credentials {
34 ( $username, $password );
40 while ( $data = shift @data ) {
41 my $cgi = new CGI ( $data->{'params'} );
42 my $full_url = $base_url. $data->{'url'}. '?'. $cgi->query_string;
43 #my $request = new HTTP::Request( 'POST', $full_url );
44 my $request = new HTTP::Request( 'GET', $full_url );
45 my $response = $ua->request( $request );
46 if ( $response->is_redirect ) {
47 die "Unexpected redirect!\n".
49 "To: ". $response->base. "\n"
51 } elsif ( $response->is_success ) {
52 my $location = $response->base;
53 my $expected_location = $data->{'location'};
54 #if ( $location =~ /^$base_url$expected_location$/ ) {
55 if ( $location eq $base_url. $expected_location ) {
56 #warn "cool, got expected response $location from $full_url\n";
58 die "Strange, regular response, but unexpected base!\n".
60 "Base : ". $response->base. "\n".
61 "Expected: $base_url$expected_location\n".
62 "Output: ". $response->content. "\n"
65 } elsif ( $response->is_error ) {
66 die "Strange, I got an error\n".
68 "Error: ". $response->error_as_HTML. "\n".
69 "Output: ". $response->content. "\n"
71 } elsif ( $response->is_info ) {
72 die "Strange, I got an info reponse\n".
74 "Output: ". $response->content. "\n"
77 die "Really strange, got an unrecognized response from LWP::UserAgent!\n";
83 sub big_ugly_data_structure {
86 { 'url' => 'edit/process/part_svc.cgi',
90 'svcdb' => 'svc_acct',
91 'svc_acct__popnum_flag' => '',
92 'svc_acct__popnum' => '',
93 'svc_acct__dir_flag' => '',
94 'svc_acct__dir' => '',
95 'svc_acct__username_flag' => '',
96 'svc_acct__username' => '',
97 'svc_acct__uid_flag' => '',
98 'svc_acct__uid' => '',
99 'svc_acct__quota_flag' => 'F',
100 'svc_acct__quota' => '10',
101 'svc_acct__slipip_flag' => 'F',
102 'svc_acct__slipip' => '',
103 'svc_acct___password_flag' => '',
104 'svc_acct___password' => '',
105 'svc_acct__gid_flag' => '',
106 'svc_acct__gid' => '',
107 'svc_acct__shell_flag' => 'D',
108 'svc_acct__shell' => '/bin/sh',
109 'svc_acct__finger_flag' => '',
110 'svc_acct__finger' => '',
111 'svc_domain__domain_flag' => '',
112 'svc_domain__domain' => '',
113 'svc_acct_sm__domuser_flag' => '',
114 'svc_acct_sm__domuser' => '',
115 'svc_acct_sm__domuid_flag' => '',
116 'svc_acct_sm__domuid' => '',
117 'svc_acct_sm__domsvc_flag' => '',
118 'svc_acct_sm__domsvc' => '',
120 'location' => 'browse/part_svc.cgi',
122 { 'url' => 'edit/process/part_svc.cgi',
126 'svcdb' => 'svc_acct',
127 'svc_acct__popnum_flag' => '',
128 'svc_acct__popnum' => '',
129 'svc_acct__dir_flag' => '',
130 'svc_acct__dir' => '',
131 'svc_acct__username_flag' => '',
132 'svc_acct__username' => '',
133 'svc_acct__uid_flag' => '',
134 'svc_acct__uid' => '',
135 'svc_acct__quota_flag' => 'F',
136 'svc_acct__quota' => '10',
137 'svc_acct__slipip_flag' => 'D',
138 'svc_acct__slipip' => '0.0.0.0',
139 'svc_acct___password_flag' => '',
140 'svc_acct___password' => '',
141 'svc_acct__gid_flag' => '',
142 'svc_acct__gid' => '',
143 'svc_acct__shell_flag' => 'D',
144 'svc_acct__shell' => '/bin/sh',
145 'svc_acct__finger_flag' => '',
146 'svc_acct__finger' => '',
147 'svc_domain__domain_flag' => '',
148 'svc_domain__domain' => '',
149 'svc_acct_sm__domuser_flag' => '',
150 'svc_acct_sm__domuser' => '',
151 'svc_acct_sm__domuid_flag' => '',
152 'svc_acct_sm__domuid' => '',
153 'svc_acct_sm__domsvc_flag' => '',
154 'svc_acct_sm__domsvc' => '',
156 'location' => 'browse/part_svc.cgi',
158 { 'url' => 'edit/process/part_svc.cgi',
161 'svc' => 'POP Mailbox',
162 'svcdb' => 'svc_acct',,
163 'svc_acct__popnum_flag' => 'F',
164 'svc_acct__popnum' => '',
165 'svc_acct__dir_flag' => '',
166 'svc_acct__dir' => '',
167 'svc_acct__username_flag' => '',
168 'svc_acct__username' => '',
169 'svc_acct__uid_flag' => '',
170 'svc_acct__uid' => '',
171 'svc_acct__quota_flag' => 'F',
172 'svc_acct__quota' => '10',
173 'svc_acct__slipip_flag' => 'F',
174 'svc_acct__slipip' => '',
175 'svc_acct___password_flag' => '',
176 'svc_acct___password' => '',
177 'svc_acct__gid_flag' => '',
178 'svc_acct__gid' => '',
179 'svc_acct__shell_flag' => 'F',
180 'svc_acct__shell' => '/bin/passwd',
181 'svc_acct__finger_flag' => '',
182 'svc_acct__finger' => '',
183 'svc_domain__domain_flag' => '',
184 'svc_domain__domain' => '',
185 'svc_acct_sm__domuser_flag' => '',
186 'svc_acct_sm__domuser' => '',
187 'svc_acct_sm__domuid_flag' => '',
188 'svc_acct_sm__domuid' => '',
189 'svc_acct_sm__domsvc_flag' => '',
190 'svc_acct_sm__domsvc' => '',
192 'location' => 'browse/part_svc.cgi',
194 { 'url' => 'edit/process/part_svc.cgi',
198 'svcdb' => 'svc_domain',,
199 'svc_acct__popnum_flag' => '',
200 'svc_acct__popnum' => '',
201 'svc_acct__dir_flag' => '',
202 'svc_acct__dir' => '',
203 'svc_acct__username_flag' => '',
204 'svc_acct__username' => '',
205 'svc_acct__uid_flag' => '',
206 'svc_acct__uid' => '',
207 'svc_acct__quota_flag' => '',
208 'svc_acct__quota' => '',
209 'svc_acct__slipip_flag' => '',
210 'svc_acct__slipip' => '',
211 'svc_acct___password_flag' => '',
212 'svc_acct___password' => '',
213 'svc_acct__gid_flag' => '',
214 'svc_acct__gid' => '',
215 'svc_acct__shell_flag' => '',
216 'svc_acct__shell' => '',
217 'svc_acct__finger_flag' => '',
218 'svc_acct__finger' => '',
219 'svc_domain__domain_flag' => '',
220 'svc_domain__domain' => '',
221 'svc_acct_sm__domuser_flag' => '',
222 'svc_acct_sm__domuser' => '',
223 'svc_acct_sm__domuid_flag' => '',
224 'svc_acct_sm__domuid' => '',
225 'svc_acct_sm__domsvc_flag' => '',
226 'svc_acct_sm__domsvc' => '',
228 'location' => 'browse/part_svc.cgi',
230 { 'url' => 'edit/process/part_svc.cgi',
233 'svc' => 'Domain email alias',
234 'svcdb' => 'svc_acct_sm',,
235 'svc_acct__popnum_flag' => '',
236 'svc_acct__popnum' => '',
237 'svc_acct__dir_flag' => '',
238 'svc_acct__dir' => '',
239 'svc_acct__username_flag' => '',
240 'svc_acct__username' => '',
241 'svc_acct__uid_flag' => '',
242 'svc_acct__uid' => '',
243 'svc_acct__quota_flag' => '',
244 'svc_acct__quota' => '',
245 'svc_acct__slipip_flag' => '',
246 'svc_acct__slipip' => '',
247 'svc_acct___password_flag' => '',
248 'svc_acct___password' => '',
249 'svc_acct__gid_flag' => '',
250 'svc_acct__gid' => '',
251 'svc_acct__shell_flag' => '',
252 'svc_acct__shell' => '',
253 'svc_acct__finger_flag' => '',
254 'svc_acct__finger' => '',
255 'svc_domain__domain_flag' => '',
256 'svc_domain__domain' => '',
257 'svc_acct_sm__domuser_flag' => '',
258 'svc_acct_sm__domuser' => '',
259 'svc_acct_sm__domuid_flag' => '',
260 'svc_acct_sm__domuid' => '',
261 'svc_acct_sm__domsvc_flag' => '',
262 'svc_acct_sm__domsvc' => '',
264 'location' => 'browse/part_svc.cgi',
267 { 'url' => 'edit/process/part_pkg.cgi',
270 'pkg' => 'Personal SLIP/PPP',
271 'comment' => '$30/setup, $19.99/month',
281 'location' => 'browse/part_pkg.cgi',
283 { 'url' => 'edit/process/part_pkg.cgi',
286 'pkg' => 'Personal SLIP/PPP',
287 'comment' => '$0/setup, $179.88/year',
297 'location' => 'browse/part_pkg.cgi',
299 { 'url' => 'edit/process/part_pkg.cgi',
302 'pkg' => 'Personal POP mailbox',
303 'comment' => '$10/setup, $5/month',
313 'location' => 'browse/part_pkg.cgi',
315 { 'url' => 'edit/process/part_pkg.cgi',
318 'pkg' => 'Business SLIP/PPP',
319 'comment' => '$30/setup, $29.99/month',
329 'location' => 'browse/part_pkg.cgi',
331 { 'url' => 'edit/process/part_pkg.cgi',
334 'pkg' => 'Business SLIP/PPP',
335 'comment' => '$0/setup, $299.88/year',
345 'location' => 'browse/part_pkg.cgi',
347 { 'url' => 'edit/process/part_pkg.cgi',
350 'pkg' => 'Business POP mailbox',
351 'comment' => '$10/setup, $5/month',
361 'location' => 'browse/part_pkg.cgi',
363 { 'url' => 'edit/process/part_pkg.cgi',
366 'pkg' => 'UNIX shell',
367 'comment' => '$20/setup, $9.99/month',
377 'location' => 'browse/part_pkg.cgi',
379 { 'url' => 'edit/process/part_pkg.cgi',
382 'pkg' => 'Point-to-point T1',
383 'comment' => '$1000/setup, $1000/month',
393 'location' => 'browse/part_pkg.cgi',
395 { 'url' => 'edit/process/part_pkg.cgi',
398 'pkg' => 'Cisco 2501 Router',
399 'comment' => '$2500',
409 'location' => 'browse/part_pkg.cgi',
412 { 'url' => 'edit/process/agent_type.cgi',
415 'atype' => 'Internal Sales',
426 'location' => 'browse/agent_type.cgi',
429 { 'url' => 'edit/process/agent.cgi',
432 'agent' => 'Internal Sales',
437 'location' => 'browse/agent.cgi',
440 { 'url' => 'edit/process/part_referral.cgi',
443 'referral' => 'Another customer',
445 'location' => 'browse/part_referral.cgi',
447 { 'url' => 'edit/process/part_referral.cgi',
450 'referral' => 'Newspaper ad',
452 'location' => 'browse/part_referral.cgi',
455 { 'url' => 'edit/process/svc_acct_pop.cgi',
458 'city' => 'Line Lexington',
463 'location' => 'browse/svc_acct_pop.cgi',
465 { 'url' => 'edit/process/svc_acct_pop.cgi',
473 'location' => 'browse/svc_acct_pop.cgi',
476 { 'url' => 'edit/process/cust_main.cgi',
482 'first' => 'Shawn D.',
484 'company' => 'Digital Point Solutions',
485 'address1' => '3570 Tony Drive',
487 'city' => 'San Diego',
488 'state' => 'CA / US',
489 'zip' => '92122-2307',
494 'invoicing_list_POST' => '',
495 'invoicing_list' => '',
497 'CARD_payinfo' => '',
499 'CARD_year' => '1999',
500 'CARD_payname' => '',
501 'BILL_payinfo' => '',
502 'BILL_month' => '12',
503 'BILL_year' => '2037',
504 'BILL_payname' => 'Accounts Payable',
505 'COMP_payinfo' => '',
507 'COMP_year' => '1999',
508 'pkgpart_svcpart' => '1_2',
509 'username' => 'cyborg',
512 'otaker' => 'example',
514 'location' => 'view/cust_main.cgi?1',
516 { 'url' => 'edit/process/cust_main.cgi',
524 'company' => 'Boardtown Corporation',
525 'address1' => '116 East Main Street',
527 'city' => 'Starkville',
528 'state' => 'MS / US',
534 'invoicing_list_POST' => '',
535 'invoicing_list' => '',
537 'CARD_payinfo' => '',
539 'CARD_year' => '1999',
540 'CARD_payname' => '',
541 'BILL_payinfo' => '',
542 'BILL_month' => '12',
543 'BILL_year' => '2037',
544 'BILL_payname' => 'Accounts Payable',
545 'COMP_payinfo' => '',
547 'COMP_year' => '1999',
548 'pkgpart_svcpart' => '3_3',
549 'username' => 'billf',
552 'otaker' => 'example',
554 'location' => 'view/cust_main.cgi?2',