Contacts -> PerlMail::Contacts

diff --git a/PerlMail/Contacts.pm b/PerlMail/Contacts.pm
index 7f1d0b3..ea210ee 100644 (file)
--- a/PerlMail/Contacts.pm
+++ b/PerlMail/Contacts.pm
@@ -1,7 +1,7 @@
 #! /usr/bin/perl -w
 # 
 #      $Id$
 #! /usr/bin/perl -w
 # 
 #      $Id$

-# Copyright (C) 2002 Jan Kratochvil <short@ucw.cz>
+# Copyright (C) 2002-2003 Jan Kratochvil <short@ucw.cz>

 # 
 # 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
 # 
 # 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


@@ -18,7 +18,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 

-package Contacts;
+package PerlMail::Contacts;

 use vars qw($VERSION);
 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
 use vars qw($VERSION);
 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;

diff --git a/contacts-n9k2mutt b/contacts-n9k2mutt
index b2b0117..5054de9 100755 (executable)
--- a/contacts-n9k2mutt
+++ b/contacts-n9k2mutt
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 
 require Getopt::Long;
 use warnings;
 
 require Getopt::Long;

-require Contacts;
+require PerlMail::Contacts;

 require Mail::Address;
 
 
 require Mail::Address;
 
 


@@ -34,7 +34,7 @@ while (<>) {
                                                        "iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
                                                        }));
                                        } @record);
                                                        "iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
                                                        }));
                                        } @record);

-                       } Contacts->import($_));
+                       } PerlMail::Contacts->import($_));

        my @nicked=map({
                        my $data=$_;
                        my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));
        my @nicked=map({
                        my $data=$_;
                        my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));