#*****************************************************************#
  # ALLGEMEIN:                                                      #
  # Outlook-Kontaktdaten (vcf) erzeugen                             #
  #*****************************************************************#
  
  # vcf-Definitionen: 
  
  # TYPE(2)
  # ----
  # DOM: Indicates a domestic address
  # INTL: Indicates an international address
  # POSTAL: Indicates a postal delivery address
  # PARCEL: Indicates a parcel delivery address
  # HOME: Indicates a home delivery address
  # WORK: Indicates a work delivery address
  
  # TYPE(3)
  # ----
  # PREF: Indicates preferred number
  # WORK: Indicates a work number
  # HOME: Indicates a home number
  # VOICE: Indicates a voice number (Default)
  # FAX: Indicates a facsimile number
  # MSG: Indicates a messaging service on the number
  # CELL: Indicates a cellular number
  # PAGER: Indicates a pager number
  # BBS: Indicates a bulletin board service number
  # MODEM: Indicates a MODEM number
  # CAR: Indicates a car-phone number
  # ISDN: Indicates an ISDN number
  # VIDEO: Indicates a video-phone number
  #*****************************************************************#


  # Identnummer übergeben

  my $ID = $ENV{'QUERY_STRING'};

  # Datenbankverbindung herstellen

  my $sql = "SELECT vorname, name, strasse, ort, plz, telefon, fax, homepage " . 
             "FROM tabelle WHERE id = $ID";

  my ($V, $N, $S, $O, $P, $T, $F, $H) = $dbh->selectrow_array($sql);


  print "Content-Type: text/ascii\n";
  print "Content-Disposition: attachment; filename=\"$ID.vcf\"\n\n";

  print "BEGIN:VCARD\n";

  print " VERSION:2.1\n";

        # name, forname, middlename, prefix, suffix
  print " N:$N;$V;;;\n";

        # forname name
  print " FN:$V $N\n";

        # postfach, zusätze, strasse, ort, region, plz, land
  print " ADR;WORK:;;$S;$O;;$P;Deutschland\n";

  print " TEL;WORK;VOICE:$T\n";

  print " TEL;WORK;FAX:$F\n";

  print " TEL;HOME:$T\n";

  print " URL;http://$H\n";

  print "END:VCARD";