my %results;

open(FH,"<$weblog") || die ("cannot open file");


while (<FH>){

    next if ($_ =~ /^\//);
    next if (/^(\s)*$/);

    if (/^TYPE\s(\S+)\s\S+\s\S+/){
        $key = $1;}
        
    if (/^CAUSE\s(\S+)/){
        $cause = $1);}
    else{
        $cause = "UNDEF";}

    if (/^AFFECT\s(\S+)/){
        $affect = $1;}
    else{
        $affect = "UNDEF";}

    

    $results{$key}= join "," => $cause => $affect;

}


    for (sort keys %results) {
        print "$_:$results{$key}\n";}


    close (FH);