#! /usr/local/bin/perl
$, =",";

open (f, "<sample");

@fields = (
"O",
"OU",
"POSTALCODE",
"C",
"DESCRIPTION",
"FACSIMILETELEPHONENUMBER",
"LATITUDE",
"LONGITUDE",
"BUSINESSCATEGORY",
"dmCN",
"dmEMAIL",
"Date",
"Time",
"Remote User",
"STREETADDRESS",
"dmADDRESS",
"computeresourceDESCRIPTION",
"wwwDESCRIPTION",
"schedulersDESCRIPTION" );

foreach $f (@fields) {
  $field{$f} = 1;
}


@multiline = (
"STREETADDRESS",
"dmADDRESS",
"computeresourceDESCRIPTION",
"wwwDESCRIPTION",
"schedulersDESCRIPTION" );

#print @fields;

# ignore till ****
$start = 0;

$last_attr = "";
$lines = "";
while (<f>) {

  if ($start) {
    $line = $_;

    ($attr, $rest) = split (':', $_, 2);
    
    if ($field{$attr}) {
      $lines =~ s/^[\n]+//g;
      $lines =~ s/[\n]+$//g;
      $lines =~ s/^[ ]+//g;
      $lines =~ s/[ ]+$//g;
      $lines =~ s/[\n]/\\n/g;
      if ($last_attr) {
	$v{$last_attr} =  $lines;
      }
      $lines = $rest;
      $last_attr = $attr;
    } else {
      $lines .= $line;
    }
    
  }
  $start = $start | (/^\*+/) ;
}


for $f (@fields) {
  printf "%s=%s\n", $f, $v{$f};
}
