test/cgi-test

   1 #!/usr/bin/perl -Tw
   2 #
   3 # This is the beginning of a test suite for the web interface.
   4 # It's also excellent for populating your database with some meaningful test
   5 # data.  (a derivative is used by the web demo)
   6 # It only works on an empty database (probably need empty counters too, and
   7 # no arbirary RADIUS attributes).
   8 # Usage: cgi-test http://base.freeside.url/with/path/ username password
   9 # (Yes, if you were properly paranoid and are using SSL, you'll need to get
  10 #  libwww-perl working with SSL to use this.)
  11
  12 use strict;
  13 #use diagnostics;
  14 use subs qw( big_ugly_data_structure );
  15 use CGI;
  16 use LWP::UserAgent;
  17
  18 my ( $base_url, $username, $password ) = ( shift, shift, shift );
  19 #trust 'em
  20 $base_url =~ /^(.*)$/; $base_url = $1;
  21 $username =~ /^(.*)$/; $username = $1;
  22 $password =~ /^(.*)$/; $password = $1;
  23
  24 my @data = &big_ugly_data_structure;
  25
  26 my $ua = new LWP::UserAgent;
  27 {
  28   local $^W = 0;
  29   eval '
  30     sub LWP::UserAgent::get_basic_credentials {
  31       #my $self = shift;
  32       ( $username, $password );
  33     }
  34   ';
  35 }
  36
  37 my $data;
  38 while ( $data = shift @data ) {
  39   my $cgi = new CGI ( $data->{'params'} );
  40   my $full_url = $base_url. $data->{'url'}. '?'. $cgi->query_string;
  41   #my $request = new HTTP::Request( 'POST', $full_url );
  42   my $request = new HTTP::Request( 'GET', $full_url );
  43   my $response = $ua->request( $request );
  44   if ( $response->is_redirect ) {
  45     die "Unexpected redirect!\n".
  46            "URL: $full_url\n".
  47            "To: ". $response->base. "\n"
  48     ;
  49   } elsif ( $response->is_success ) {
  50     my $location = $response->base;
  51     my $expected_location = $data->{'location'};
  52     #if ( $location =~ /^$base_url$expected_location$/ ) {
  53     if ( $location eq $base_url. $expected_location ) {
  54       #warn "cool, got expected response $location from $full_url\n";
  55     } else {
  56       die "Strange, regular response, but unexpected base!\n".
  57         "URL: $full_url\n".
  58         "Base    : ". $response->base. "\n".
  59         "Expected: $base_url$expected_location\n".
  60         "Output: ". $response->content. "\n"
  61       ;
  62     }
  63   } elsif ( $response->is_error ) {
  64     die "Strange, I got an error\n".
  65         "URL: $full_url\n".
  66         "Error: ". $response->error_as_HTML. "\n".
  67         "Output: ". $response->content. "\n"
  68     ;
  69   } elsif ( $response->is_info ) {
  70     die "Strange, I got an info reponse\n".
  71         "URL: $full_url\n".
  72         "Output: ". $response->content. "\n"
  73     ;
  74   } else {
  75     die "Really strange, got an unrecognized response from LWP::UserAgent!\n";
  76   }
  77 }
  78
  79 #---
  80
  81 sub big_ugly_data_structure {
  82
  83   (
  84     { 'url'      => 'edit/process/part_svc.cgi',
  85       'params'   => {
  86                       'svcpart' => '',
  87                       'svc'     => 'Shell',
  88                       'svcdb'   => 'svc_acct',
  89                       'svc_acct__popnum_flag' => '',
  90                       'svc_acct__popnum' => '',
  91                       'svc_acct__dir_flag' => '',
  92                       'svc_acct__dir' => '',
  93                       'svc_acct__username_flag' => '',
  94                       'svc_acct__username' => '',
  95                       'svc_acct__uid_flag' => '',
  96                       'svc_acct__uid' => '',
  97                       'svc_acct__quota_flag' => 'F',
  98                       'svc_acct__quota' => '10',
  99                       'svc_acct__slipip_flag' => 'F',
 100                       'svc_acct__slipip' => '',
 101                       'svc_acct___password_flag' => '',
 102                       'svc_acct___password' => '',
 103                       'svc_acct__gid_flag' => '',
 104                       'svc_acct__gid' => '',
 105                       'svc_acct__shell_flag' => 'D',
 106                       'svc_acct__shell' => '/bin/sh',
 107                       'svc_acct__finger_flag' => '',
 108                       'svc_acct__finger' => '',
 109                       'svc_domain__domain_flag' => '',
 110                       'svc_domain__domain' => '',
 111                       'svc_acct_sm__domuser_flag' => '',
 112                       'svc_acct_sm__domuser' => '',
 113                       'svc_acct_sm__domuid_flag' => '',
 114                       'svc_acct_sm__domuid' => '',
 115                       'svc_acct_sm__domsvc_flag' => '',
 116                       'svc_acct_sm__domsvc' => '',
 117                     },
 118       'location' => 'browse/part_svc.cgi',
 119     },
 120     { 'url'      => 'edit/process/part_svc.cgi',
 121       'params'   => {
 122                       'svcpart' => '',
 123                       'svc'     => 'SLIP/PPP',
 124                       'svcdb'   => 'svc_acct',
 125                       'svc_acct__popnum_flag' => '',
 126                       'svc_acct__popnum' => '',
 127                       'svc_acct__dir_flag' => '',
 128                       'svc_acct__dir' => '',
 129                       'svc_acct__username_flag' => '',
 130                       'svc_acct__username' => '',
 131                       'svc_acct__uid_flag' => '',
 132                       'svc_acct__uid' => '',
 133                       'svc_acct__quota_flag' => 'F',
 134                       'svc_acct__quota' => '10',
 135                       'svc_acct__slipip_flag' => 'D',
 136                       'svc_acct__slipip' => '0.0.0.0',
 137                       'svc_acct___password_flag' => '',
 138                       'svc_acct___password' => '',
 139                       'svc_acct__gid_flag' => '',
 140                       'svc_acct__gid' => '',
 141                       'svc_acct__shell_flag' => 'D',
 142                       'svc_acct__shell' => '/bin/sh',
 143                       'svc_acct__finger_flag' => '',
 144                       'svc_acct__finger' => '',
 145                       'svc_domain__domain_flag' => '',
 146                       'svc_domain__domain' => '',
 147                       'svc_acct_sm__domuser_flag' => '',
 148                       'svc_acct_sm__domuser' => '',
 149                       'svc_acct_sm__domuid_flag' => '',
 150                       'svc_acct_sm__domuid' => '',
 151                       'svc_acct_sm__domsvc_flag' => '',
 152                       'svc_acct_sm__domsvc' => '',
 153                     },
 154       'location' => 'browse/part_svc.cgi',
 155     },
 156     { 'url'      => 'edit/process/part_svc.cgi',
 157       'params'   => {
 158                       'svcpart' => '',
 159                       'svc'     => 'POP Mailbox',
 160                       'svcdb'   => 'svc_acct',,
 161                       'svc_acct__popnum_flag' => 'F',
 162                       'svc_acct__popnum' => '',
 163                       'svc_acct__dir_flag' => '',
 164                       'svc_acct__dir' => '',
 165                       'svc_acct__username_flag' => '',
 166                       'svc_acct__username' => '',
 167                       'svc_acct__uid_flag' => '',
 168                       'svc_acct__uid' => '',
 169                       'svc_acct__quota_flag' => 'F',
 170                       'svc_acct__quota' => '10',
 171                       'svc_acct__slipip_flag' => 'F',
 172                       'svc_acct__slipip' => '',
 173                       'svc_acct___password_flag' => '',
 174                       'svc_acct___password' => '',
 175                       'svc_acct__gid_flag' => '',
 176                       'svc_acct__gid' => '',
 177                       'svc_acct__shell_flag' => 'F',
 178                       'svc_acct__shell' => '/bin/passwd',
 179                       'svc_acct__finger_flag' => '',
 180                       'svc_acct__finger' => '',
 181                       'svc_domain__domain_flag' => '',
 182                       'svc_domain__domain' => '',
 183                       'svc_acct_sm__domuser_flag' => '',
 184                       'svc_acct_sm__domuser' => '',
 185                       'svc_acct_sm__domuid_flag' => '',
 186                       'svc_acct_sm__domuid' => '',
 187                       'svc_acct_sm__domsvc_flag' => '',
 188                       'svc_acct_sm__domsvc' => '',
 189                     },
 190       'location' => 'browse/part_svc.cgi',
 191     },
 192     { 'url'      => 'edit/process/part_svc.cgi',
 193       'params'   => {
 194                       'svcpart' => '',
 195                       'svc'     => 'Domain',
 196                       'svcdb'   => 'svc_domain',,
 197                       'svc_acct__popnum_flag' => '',
 198                       'svc_acct__popnum' => '',
 199                       'svc_acct__dir_flag' => '',
 200                       'svc_acct__dir' => '',
 201                       'svc_acct__username_flag' => '',
 202                       'svc_acct__username' => '',
 203                       'svc_acct__uid_flag' => '',
 204                       'svc_acct__uid' => '',
 205                       'svc_acct__quota_flag' => '',
 206                       'svc_acct__quota' => '',
 207                       'svc_acct__slipip_flag' => '',
 208                       'svc_acct__slipip' => '',
 209                       'svc_acct___password_flag' => '',
 210                       'svc_acct___password' => '',
 211                       'svc_acct__gid_flag' => '',
 212                       'svc_acct__gid' => '',
 213                       'svc_acct__shell_flag' => '',
 214                       'svc_acct__shell' => '',
 215                       'svc_acct__finger_flag' => '',
 216                       'svc_acct__finger' => '',
 217                       'svc_domain__domain_flag' => '',
 218                       'svc_domain__domain' => '',
 219                       'svc_acct_sm__domuser_flag' => '',
 220                       'svc_acct_sm__domuser' => '',
 221                       'svc_acct_sm__domuid_flag' => '',
 222                       'svc_acct_sm__domuid' => '',
 223                       'svc_acct_sm__domsvc_flag' => '',
 224                       'svc_acct_sm__domsvc' => '',
 225                     },
 226       'location' => 'browse/part_svc.cgi',
 227     },
 228     { 'url'      => 'edit/process/part_svc.cgi',
 229       'params'   => {
 230                       'svcpart' => '',
 231                       'svc'     => 'Domain email alias',
 232                       'svcdb'   => 'svc_acct_sm',,
 233                       'svc_acct__popnum_flag' => '',
 234                       'svc_acct__popnum' => '',
 235                       'svc_acct__dir_flag' => '',
 236                       'svc_acct__dir' => '',
 237                       'svc_acct__username_flag' => '',
 238                       'svc_acct__username' => '',
 239                       'svc_acct__uid_flag' => '',
 240                       'svc_acct__uid' => '',
 241                       'svc_acct__quota_flag' => '',
 242                       'svc_acct__quota' => '',
 243                       'svc_acct__slipip_flag' => '',
 244                       'svc_acct__slipip' => '',
 245                       'svc_acct___password_flag' => '',
 246                       'svc_acct___password' => '',
 247                       'svc_acct__gid_flag' => '',
 248                       'svc_acct__gid' => '',
 249                       'svc_acct__shell_flag' => '',
 250                       'svc_acct__shell' => '',
 251                       'svc_acct__finger_flag' => '',
 252                       'svc_acct__finger' => '',
 253                       'svc_domain__domain_flag' => '',
 254                       'svc_domain__domain' => '',
 255                       'svc_acct_sm__domuser_flag' => '',
 256                       'svc_acct_sm__domuser' => '',
 257                       'svc_acct_sm__domuid_flag' => '',
 258                       'svc_acct_sm__domuid' => '',
 259                       'svc_acct_sm__domsvc_flag' => '',
 260                       'svc_acct_sm__domsvc' => '',
 261                     },
 262       'location' => 'browse/part_svc.cgi',
 263     },
 264
 265     { 'url'      => 'edit/process/part_pkg.cgi',
 266       'params'   => {
 267                       'pkgpart' => '',
 268                       'pkg' => 'Personal SLIP/PPP',
 269                       'comment' => '$30/setup, $19.99/month',
 270                       'setup' => '30',
 271                       'recur' => '19.99',
 272                       'freq' => '1',
 273                       'pkg_svc1' => '0',
 274                       'pkg_svc2' => '1',
 275                       'pkg_svc3' => '0',
 276                       'pkg_svc4' => '0',
 277                       'pkg_svc5' => '0',
 278                     },
 279       'location' => 'browse/part_pkg.cgi',
 280     },
 281     { 'url'      => 'edit/process/part_pkg.cgi',
 282       'params'   => {
 283                       'pkgpart' => '',
 284                       'pkg' => 'Personal SLIP/PPP',
 285                       'comment' => '$0/setup, $179.88/year',
 286                       'setup' => '0',
 287                       'recur' => '179.88',
 288                       'freq' => '12',
 289                       'pkg_svc1' => '0',
 290                       'pkg_svc2' => '1',
 291                       'pkg_svc3' => '0',
 292                       'pkg_svc4' => '0',
 293                       'pkg_svc5' => '0',
 294                     },
 295       'location' => 'browse/part_pkg.cgi',
 296     },
 297     { 'url'      => 'edit/process/part_pkg.cgi',
 298       'params'   => {
 299                       'pkgpart' => '',
 300                       'pkg' => 'Personal POP mailbox',
 301                       'comment' => '$10/setup, $5/month',
 302                       'setup' => '10',
 303                       'recur' => '5',
 304                       'freq' => '1',
 305                       'pkg_svc1' => '0',
 306                       'pkg_svc2' => '0',
 307                       'pkg_svc3' => '1',
 308                       'pkg_svc4' => '0',
 309                       'pkg_svc5' => '0',
 310                     },
 311       'location' => 'browse/part_pkg.cgi',
 312     },
 313     { 'url'      => 'edit/process/part_pkg.cgi',
 314       'params'   => {
 315                       'pkgpart' => '',
 316                       'pkg' => 'Business SLIP/PPP',
 317                       'comment' => '$30/setup, $29.99/month',
 318                       'setup' => '30',
 319                       'recur' => '29.99',
 320                       'freq' => '1',
 321                       'pkg_svc1' => '0',
 322                       'pkg_svc2' => '1',
 323                       'pkg_svc3' => '0',
 324                       'pkg_svc4' => '1',
 325                       'pkg_svc5' => '1',
 326                     },
 327       'location' => 'browse/part_pkg.cgi',
 328     },
 329     { 'url'      => 'edit/process/part_pkg.cgi',
 330       'params'   => {
 331                       'pkgpart' => '',
 332                       'pkg' => 'Business SLIP/PPP',
 333                       'comment' => '$0/setup, $299.88/year',
 334                       'setup' => '0',
 335                       'recur' => '299.88',
 336                       'freq' => '12',
 337                       'pkg_svc1' => '0',
 338                       'pkg_svc2' => '1',
 339                       'pkg_svc3' => '0',
 340                       'pkg_svc4' => '1',
 341                       'pkg_svc5' => '1',
 342                     },
 343       'location' => 'browse/part_pkg.cgi',
 344     },
 345     { 'url'      => 'edit/process/part_pkg.cgi',
 346       'params'   => {
 347                       'pkgpart' => '',
 348                       'pkg' => 'Business POP mailbox',
 349                       'comment' => '$10/setup, $5/month',
 350                       'setup' => '10',
 351                       'recur' => '5',
 352                       'freq' => '1',
 353                       'pkg_svc1' => '0',
 354                       'pkg_svc2' => '0',
 355                       'pkg_svc3' => '1',
 356                       'pkg_svc4' => '0',
 357                       'pkg_svc5' => '1',
 358                     },
 359       'location' => 'browse/part_pkg.cgi',
 360     },
 361     { 'url'      => 'edit/process/part_pkg.cgi',
 362       'params'   => {
 363                       'pkgpart' => '',
 364                       'pkg' => 'UNIX shell',
 365                       'comment' => '$20/setup, $9.99/month',
 366                       'setup' => '20',
 367                       'recur' => '9.99',
 368                       'freq' => '1',
 369                       'pkg_svc1' => '1',
 370                       'pkg_svc2' => '0',
 371                       'pkg_svc3' => '0',
 372                       'pkg_svc4' => '0',
 373                       'pkg_svc5' => '0',
 374                     },
 375       'location' => 'browse/part_pkg.cgi',
 376     },
 377     { 'url'      => 'edit/process/part_pkg.cgi',
 378       'params'   => {
 379                       'pkgpart' => '',
 380                       'pkg' => 'Point-to-point T1',
 381                       'comment' => '$1000/setup, $1000/month',
 382                       'setup' => '1000',
 383                       'recur' => '1000',
 384                       'freq' => '1',
 385                       'pkg_svc1' => '0',
 386                       'pkg_svc2' => '0',
 387                       'pkg_svc3' => '5',
 388                       'pkg_svc4' => '1',
 389                       'pkg_svc5' => '5',
 390                     },
 391       'location' => 'browse/part_pkg.cgi',
 392     },
 393     { 'url'      => 'edit/process/part_pkg.cgi',
 394       'params'   => {
 395                       'pkgpart' => '',
 396                       'pkg' => 'Cisco 2501 Router',
 397                       'comment' => '$2500',
 398                       'setup' => '2500',
 399                       'recur' => '0',
 400                       'freq' => '0',
 401                       'pkg_svc1' => '0',
 402                       'pkg_svc2' => '0',
 403                       'pkg_svc3' => '0',
 404                       'pkg_svc4' => '0',
 405                       'pkg_svc5' => '0',
 406                     },
 407       'location' => 'browse/part_pkg.cgi',
 408     },
 409
 410     { 'url'      => 'edit/process/agent_type.cgi',
 411       'params'   => {
 412                       'typenum' => '',
 413                       'atype' => 'Internal Sales',
 414                       'pkgpart1' => 'ON',
 415                       'pkgpart2' => 'ON',
 416                       'pkgpart3' => 'ON',
 417                       'pkgpart4' => 'ON',
 418                       'pkgpart5' => 'ON',
 419                       'pkgpart6' => 'ON',
 420                       'pkgpart7' => 'ON',
 421                       'pkgpart8' => 'ON',
 422                       'pkgpart9' => 'ON',
 423                     },
 424       'location' => 'browse/agent_type.cgi',
 425     },
 426
 427     { 'url'      => 'edit/process/agent.cgi',
 428       'params'   => {
 429                       'agentnum' => '',
 430                       'agent' => 'Internal Sales',
 431                       'typenum' => '1',
 432                       'freq' => '',
 433                       'prog' => '',
 434                     },
 435       'location' => 'browse/agent.cgi',
 436     },
 437
 438     { 'url'      => 'edit/process/part_referral.cgi',
 439       'params'   => {
 440                       'refnum' => '',
 441                       'referral' => 'Another customer',
 442                     },
 443       'location' => 'browse/part_referral.cgi',
 444     },
 445     { 'url'      => 'edit/process/part_referral.cgi',
 446       'params'   => {
 447                       'refnum' => '',
 448                       'referral' => 'Newspaper ad',
 449                     },
 450       'location' => 'browse/part_referral.cgi',
 451     },
 452
 453     { 'url'      => 'edit/process/svc_acct_pop.cgi',
 454       'params'   => {
 455                       'popnum' => '',
 456                       'city' => 'Line Lexington',
 457                       'state' => 'PA',
 458                       'ac' => '215',
 459                       'exch' => '996',
 460                     },
 461       'location' => 'browse/svc_acct_pop.cgi',
 462     },
 463     { 'url'      => 'edit/process/svc_acct_pop.cgi',
 464       'params'   => {
 465                       'popnum' => '',
 466                       'city' => 'Oakland',
 467                       'state' => 'CA',
 468                       'ac' => '510',
 469                       'exch' => '208',
 470                     },
 471       'location' => 'browse/svc_acct_pop.cgi',
 472     },
 473
 474     { 'url'      => 'edit/process/cust_main.cgi',
 475       'params'   => {
 476                       'custnum' => '',
 477                       'agentnum' => '1',
 478                       'refnum' => '1',
 479                       'last' => 'Hogan',
 480                       'first' => 'Shawn D.',
 481                       'ss' => '',
 482                       'company' => 'Digital Point Solutions',
 483                       'address1' => '3570 Tony Drive',
 484                       'address2' => '',
 485                       'city' => 'San Diego',
 486                       'state' => 'CA / US',
 487                       'zip' => '92122-2307',
 488                       'daytime' => '',
 489                       'night' => '',
 490                       'fax' => '',
 491                       'tax' => '',
 492                       'invoicing_list_POST' => '',
 493                       'invoicing_list' => '',
 494                       'payby' => 'BILL',
 495                       'CARD_payinfo' => '',
 496                       'CARD_month' => '1',
 497                       'CARD_year' => '1999',
 498                       'CARD_payname' => '',
 499                       'BILL_payinfo' => '',
 500                       'BILL_month' => '12',
 501                       'BILL_year' => '2037',
 502                       'BILL_payname' => 'Accounts Payable',
 503                       'COMP_payinfo' => '',
 504                       'COMP_month' => '1',
 505                       'COMP_year' => '1999',
 506                       'pkgpart_svcpart' => '1_2',
 507                       'username' => 'cyborg',
 508                       '_password' => '',
 509                       'popnum' => '1',
 510                       'otaker' => 'example',
 511                     },
 512       'location' => 'view/cust_main.cgi?1',
 513     },
 514     { 'url'      => 'edit/process/cust_main.cgi',
 515       'params'   => {
 516                       'custnum' => '',
 517                       'agentnum' => '1',
 518                       'refnum' => '2',
 519                       'last' => 'Ford',
 520                       'first' => 'Bill',
 521                       'ss' => '',
 522                       'company' => 'Boardtown Corporation',
 523                       'address1' => '116 East Main Street',
 524                       'address2' => '',
 525                       'city' => 'Starkville',
 526                       'state' => 'MS / US',
 527                       'zip' => '39759',
 528                       'daytime' => '',
 529                       'night' => '',
 530                       'fax' => '',
 531                       'tax' => '',
 532                       'invoicing_list_POST' => '',
 533                       'invoicing_list' => '',
 534                       'payby' => 'BILL',
 535                       'CARD_payinfo' => '',
 536                       'CARD_month' => '1',
 537                       'CARD_year' => '1999',
 538                       'CARD_payname' => '',
 539                       'BILL_payinfo' => '',
 540                       'BILL_month' => '12',
 541                       'BILL_year' => '2037',
 542                       'BILL_payname' => 'Accounts Payable',
 543                       'COMP_payinfo' => '',
 544                       'COMP_month' => '1',
 545                       'COMP_year' => '1999',
 546                       'pkgpart_svcpart' => '3_3',
 547                       'username' => 'billf',
 548                       '_password' => '',
 549                       'popnum' => '',
 550                       'otaker' => 'example',
 551                     },
 552       'location' => 'view/cust_main.cgi?2',
 553     },
 554
 555
 556   );
 557 }
 558