This commit was manufactured by cvs2svn to create branch 'rh'.

[PerlMail.git] / PerlMail / Contacts / 9210.pm

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
deleted file mode 100644 (file)
index 9d7a880..0000000
--- a/PerlMail/Contacts/9210.pm
+++ /dev/null
@@ -1,133 +0,0 @@
-#! /usr/bin/perl
-# 
-#      $Id$
-# Copyright (C) 2002-2004 Jan Kratochvil <project-PerlMail@jankratochvil.net>
-# 
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-# 
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-package PerlMail::Contacts::9210::Text::CSV::Simple;
-use vars qw(@ISA);
-require Text::CSV::Simple;
-@ISA=qw(Text::CSV::Simple);
-require Encode::Guess;
-use bytes;
-
-sub _contents
-{
-my($self)=@_;
-
-       my $pathname=$self->{"_file"};
-       my $F;
-       if (substr($pathname,0,1) eq "\x00") {
-               $F=substr($pathname,1);
-               }
-       else {
-               local *F;
-               open F,$pathname or die "open \"$pathname\": $!";
-               $F=do { undef $/; <F>; };
-               close F or die "close \"$pathname\": $!";
-               }
-       my $encoding=Encode::Guess::guess_encoding($F);
-       ref $encoding or die "Cannot guess encoding of: $pathname";
-       my $F_utf8=$encoding->decode($F);
-       $F_utf8=~tr/\r\n/\n\n/s;
-       return split /\n/,$F_utf8;
-}
-
-
-package PerlMail::Contacts::9210;
-use vars qw($VERSION);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-use strict;
-use warnings;
-use vars qw(@ISA);
-require PerlMail::Contacts;
-@ISA=qw(PerlMail::Contacts);
-
-
-sub in
-{
-my($self,$data)=@_;
-
-       $self=$self->new() if !ref $self;
-       my @F=PerlMail::Contacts::9210::Text::CSV::Simple->new()->read_file("\x00".$data);
-       my @id=@{shift @F};
-       $id[0] eq "CntMngCsv 3.0.0" or die "Unknown file format";
-       shift @F;       # drop unknown header numbers;
-       my @names=@{shift @F};
-       $names[0] eq "ID" or die "field[0] not 'ID'";
-       my %id;
-       for my $fields (@F) {
-               @names==@$fields or die "Fields line fields do not match the header names number";
-               my $id=$fields->[0];
-               my($omail_name,$omail_data);
-               my($name_last,$name_first);
-               my @mail;
-               for my $fieldi (1..$#names) {
-                       my $string=$fields->[$fieldi];
-                       next if $string eq "";
-                       my $name=$names[$fieldi];
-                       my $first=!exists $id{$id}{$name};
-                       $id{$id}{$name}=$string if $first;
-                       if ($name eq "Last name") {
-                               die "Non-matching field" if $string ne $id{$id}{$name};
-                               $name_last=$string;
-                               }
-                       elsif ($name eq "First name") {
-                               die "Non-matching field" if $string ne $id{$id}{$name};
-                               $name_first=$string;
-                               }
-                       elsif ($name eq "Company") {
-                               die "Non-matching field" if $string ne $id{$id}{$name};
-                               push @{$id{$id}{""}},{
-            "FIELD"=>"Company",
-            "FIELD-DATA"=>$string,
-                                               } if $first;
-                               }
-                       elsif ($name eq "Other Mail desc.") {
-                               $omail_name=$string;
-                               }
-                       elsif ($name eq "Other Mail") {
-                               $omail_data=$string;
-                               }
-                       elsif ($name eq "Mail") {
-                               push @mail,undef()=>$string;
-                               }
-                       elsif ($name=~/^Mail [(](.*)[)]$/) {
-                               push @mail,$1=>$string;
-                               }
-                       }
-               my $name=$name_last;
-               $name.=" ".$name_first if defined $name_first;
-               push @{$id{$id}{""}},{
-                               "FIELD"=>"Name",
-                               "FIELD-DATA"=>$name,
-                               } if defined $name;
-               push @mail,$omail_name=>$omail_data if defined $omail_data;
-               while (@mail) {
-                       my $name=shift @mail;
-                       my $data=shift @mail;
-                       push @{$id{$id}{""}},{
-                                       "FIELD"=>"Mail",
-                                       "FIELD-NAME"=>$name,
-                                       "FIELD-DATA"=>$data,
-                                       };
-                       }
-               }
-       return map(($id{$_}{""}||()),(sort { ($a<=>$b); } keys(%id)));
-}
-
-1;