Perl CGI -- Edit sendmail aliases

0.o · 01-06-2008, 04:57 PM

Hello,

I am trying to write a small CGI program to edit one line of a very long aliases file. The one line consists of the name: pageoncall and a pager number in the form of: 1234567890@pager.com. The pager number listed within that aliases could be in several other locations within the file. I have written most everything with the exception of this. I cannot figure out how to edit just that one line within the file. Here is the code that i have so far:

Code:

#!/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";
                        }   
                }   
    
        }

Any help would be greatly appreciated.

theNbomr · 01-08-2008, 01:21 AM

If the file is not HUGE, I like to do this sort of thing by reading the entire file into an array, and then iterating over the array, performing modifications/edits on each iteration. Finally, write the array back out to the original file, or a new file.
(untested)

Code:

    open( FILE, "$filename" ) || die "No can do... $!\n";
    my @fileData = <FILE>;
    close FILE;
    foreach my $line ( @fileData ){
        if( $line =~ m/^pageoncall:/ ){
             # Modify $line according to your requirements here...
        }
    }
    open( FILE, ">$filename" ) || die "No can do... $!\n";
    print FILE @fileData;
    close FILE;

--- rod.