#!/usr/bin/perl
# ---------------------------------------------------------------------
# augm_taille_tab.pl
# modifie valeurs des tailles de certains parametres de creation de tables :
# a) INITIATIAL = INITIAL (1 +20 %)
# b) NEXT = 10% * INITIAL
# c) MAXEXTENTS = 255
# Note: ce programme a ete redige en PERL pour des questions de rapidite
# ---------------------------------------------------------------------

# toutes les variables d'environnement du 'ksh' appelant sont dans une pile appellee 'ENV'
$DIR = $ENV{DIR};

open (INFILE,    "$DIR/indexfile_maj2.sql") || die "ouverture FIC INDEXFILE impossible: $!\n";
open (OUTFILE, "> $DIR/indexfile_maj.sql")  || die "ouverture FIC RESULTAT TRAITEMENT impossible: $!\n";

$ligne = '' ;

while( $record = <INFILE>)
{
     chomp $record ;
     if ( $record =~ /\(INITIAL / )
           {
             ($rec_left, $rec_right ) = split /\(INITIAL /, $record ;
             #print "- Gauche --> ".$rec_left."\n"  ;
             #print "- Droite --> ".$rec_right."\n" ;
             ($ini, $rest) = split / FREELISTS.*\)/, $rec_right ;
             #print "- ini --> ".$ini."\n" ;
             #print "- rest --> ".$rest."\n" ;
             $init = int( ( $ini * 1.20 ) / 1024 ) ;
             #print "- init --> ".$init."\n" ;
    
             $next = int( $ini1 / 10 + 2 ) ;
             #print "- next --> ".$next."\n" ;
             $record = $rec_left." \(INITIAL ".$init."K NEXT ".$next."K MAXEXTENTS UNLIMITED\) ".$rest."\n" ;
             #print "- record --> ".$record."\n" ;
           }
     print OUTFILE $record."\n";
}
