[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi/misc areacodes.cgi, NONE, 1.1 exchanges.cgi, NONE, 1.1 phonenums.cgi, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/misc
In directory wavetail.420.am:/tmp/cvs-serv26500/fs_selfservice/FS-SelfService/cgi/misc

Added Files:
	areacodes.cgi exchanges.cgi phonenums.cgi 
Log Message:
signup w/globalpops DID selection via mason components pass-through

--- NEW FILE: exchanges.cgi ---
#!/usr/bin/perl -w

use strict;
use CGI;
use FS::SelfService qw( mason_comp );

my $cgi = new CGI;

my $rv = mason_comp( 'comp'         => '/misc/exchanges.cgi',
                     'query_string' => $cgi->query_string, #pass CGI params...
                   );

#hmm.
my $output = $rv->{'error'} || $rv->{'output'};

print $cgi->header( '-expires' => 'now' ).
      $output;


--- NEW FILE: areacodes.cgi ---
#!/usr/bin/perl -w

use strict;
use CGI;
use FS::SelfService qw( mason_comp );

my $cgi = new CGI;

my $rv = mason_comp( 'comp'         => '/misc/areacodes.cgi',
                     'query_string' => $cgi->query_string, #pass CGI params...
                   );

#hmm.
my $output = $rv->{'error'} || $rv->{'output'};

print $cgi->header( '-expires' => 'now' ).
      $output;


--- NEW FILE: phonenums.cgi ---
#!/usr/bin/perl -w

use strict;
use CGI;
use FS::SelfService qw( mason_comp );

my $cgi = new CGI;

my $rv = mason_comp( 'comp'         => '/misc/phonenums.cgi',
                     'query_string' => $cgi->query_string, #pass CGI params...
                   );

#hmm.
my $output = $rv->{'error'} || $rv->{'output'};

print $cgi->header( '-expires' => 'now' ).
      $output;