STDIN

[Vema Venkata]

 
use Time::Local;
use FileHandle;
my @month_list = qw/
        January February March
        April May June
        July August September
        October November December
/;
                #Set the path here                              
                        my $path1=      
"/proj/ahd02/CAisd/site/mods/scripts/log/Summary";
                        my $path2=      "/proj/ahd02/CAisd/site/mods/scripts/log";     
                                 
        
                #
                #  The date to be entered should be done here:
                #  The data archived will be for records OPENED the day before the 
entered date and older.

                my $day_of_the_month    = 28;           # 1 - 31 Day of the month.
                my $month                               = 7;            # 1 - 12 Jan = 
1, Feb = 2, Mar = 3, etc.
                my $year                                = 2003;
                
                #  Option for removing active, inactive records, or both
                my $active_flag                 = 0;            # 0 for inactive, 1 
for active, NOT NULL for both
                
                #
                #  Leave this alone
                #

                my $hours       = 0;
                my $minutes     = 0;
                my $seconds     = 0;
                my $month_index = $month - 1;
                my $choose_table= <STDIN> ;   #user has to key in 
Change_Request,call_req,Both
                read(STDIN,call_req )
                chomp $choose_table;





hpls advise

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]