#!/usr/bin/perl


use CGI qw(:standard);
open(FILE, "/test/aliases") or die "Couldn't open $0";
    
        print header('text/html'),
                start_html('Answer the call!'),
                h1('Select your pager number and click submit:'),
                start_form,
                popup_menu(-name=>'pager',
                           -values=>['','1234567890@messaging.sprintpcs.com',
                                     '1234567890@archwireless.net',
                                     '0987654321@archwireless.net']),p,
                submit,
                end_form;

        if (param() )
        {   
                my $pager       = param('pager');

                if($pager == '') 
                {   
                        print "You selected an invalid number, please try again.";
                }   

                while(<FILE>)
                {   
                        if(/^pageoncall:/)
                        {   

                                print FILE "pageoncall: $pager";
                        }   
                }   
    
        }