rev 1450 - in trunk/Siesta-Integrate-Aliases: . lib/Siesta/Integrate t

[prev] [thread] [next] [lurker] [Date index for 2003/10/17]

Author: richardc
Date: 2003-10-17 17:36:27 +0100 (Fri, 17 Oct 2003)
New Revision: 1450

Added:
   trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Aliases.pm
   trunk/Siesta-Integrate-Aliases/t/aliases.t
Removed:
   trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm
   trunk/Siesta-Integrate-Aliases/t/postfix.t
Modified:
   trunk/Siesta-Integrate-Aliases/Build.PL
Log:
grand rename

Modified: trunk/Siesta-Integrate-Aliases/Build.PL
===================================================================
--- trunk/Siesta-Integrate-Aliases/Build.PL	2003-10-17 16:34:15 UTC (rev 1449)
+++ trunk/Siesta-Integrate-Aliases/Build.PL	2003-10-17 16:36:27 UTC (rev 1450)
@@ -2,7 +2,7 @@
 use Module::Build;
 
 Module::Build->new(
-    module_name => "Siesta::Integrate::Postfix",
+    module_name => "Siesta::Integrate::Aliases",
     license     => 'perl',
     build_requires => {
         'Test::More' => 0,

Copied: trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Aliases.pm (from rev 1449, trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm)
===================================================================
--- trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm	2003-10-17 16:34:15 UTC (rev 1449)
+++ trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Aliases.pm	2003-10-17 16:36:27 UTC (rev 1450)
@@ -0,0 +1,31 @@
+use strict;
+package Siesta::Integrate::Aliases;
+use Siesta::Config qw( $config );
+use Siesta::List;
+
+our $VERSION = '0.01';
+
+# try not, do
+sub do {
+    my $self = shift;
+    my $alias_file = $config->root . "/aliases";
+    open my $fh, ">$alias_file" or die "couldn't open $alias_file: $!";
+    for my $list ( Siesta::List->retrieve_all ) {
+        print $fh $list->alias;
+    }
+    return 1;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Siesta::Integrate::Postfix - integrate with postfix aliases
+
+=head1 SYNOPSIS
+
+I'll tell you later.
+
+=head1

Deleted: trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm
===================================================================
--- trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm	2003-10-17 16:34:15 UTC (rev 1449)
+++ trunk/Siesta-Integrate-Aliases/lib/Siesta/Integrate/Postfix.pm	2003-10-17 16:36:27 UTC (rev 1450)
@@ -1,31 +0,0 @@
-use strict;
-package Siesta::Integrate::Postfix;
-use Siesta::Config qw( $config );
-use Siesta::List;
-
-our $VERSION = '0.01';
-
-# try not, do
-sub do {
-    my $self = shift;
-    my $alias_file = $config->root . "/postfix.aliases";
-    open my $fh, ">$alias_file" or die "couldn't open $alias_file: $!";
-    for my $list ( Siesta::List->retrieve_all ) {
-        print $fh $list->alias;
-    }
-    return 1;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Siesta::Integrate::Postfix - integrate with postfix aliases
-
-=head1 SYNOPSIS
-
-I'll tell you later.
-
-=head1

Copied: trunk/Siesta-Integrate-Aliases/t/aliases.t (from rev 1449, trunk/Siesta-Integrate-Aliases/t/postfix.t)
===================================================================
--- trunk/Siesta-Integrate-Aliases/t/postfix.t	2003-10-17 16:34:15 UTC (rev 1449)
+++ trunk/Siesta-Integrate-Aliases/t/aliases.t	2003-10-17 16:36:27 UTC (rev 1450)
@@ -0,0 +1,26 @@
+#!perl -w
+use strict;
+use Test::More tests => 4;
+use Siesta::Test 'init_db';
+use Siesta::Config qw( $config );
+use Siesta::List;
+
+require_ok( "Siesta::Integrate::Aliases" );
+$config->root('t');
+
+my $list = Siesta::List->create({
+    name  => 'testlist',
+    owner => Siesta::Member->create({
+        email => 'test@test',
+    }),
+});
+
+my $filename = $config->root . "/aliases";
+unlink $filename;
+ok( Siesta::Integrate::Aliases->do, "we can do" );
+ok( -e $filename, "we maded a file" );
+
+open my $fh, "$filename" or die "couldn't reopen $filename";
+chomp( my $name = <$fh> );
+is( $name, $list->name, "alias file looks good" )
+

Deleted: trunk/Siesta-Integrate-Aliases/t/postfix.t
===================================================================
--- trunk/Siesta-Integrate-Aliases/t/postfix.t	2003-10-17 16:34:15 UTC (rev 1449)
+++ trunk/Siesta-Integrate-Aliases/t/postfix.t	2003-10-17 16:36:27 UTC (rev 1450)
@@ -1,26 +0,0 @@
-#!perl -w
-use strict;
-use Test::More tests => 4;
-use Siesta::Test 'init_db';
-use Siesta::Config qw( $config );
-use Siesta::List;
-
-require_ok( "Siesta::Integrate::Postfix" );
-$config->root('t');
-
-my $list = Siesta::List->create({
-    name  => 'testlist',
-    owner => Siesta::Member->create({
-        email => 'test@test',
-    }),
-});
-
-my $filename = $config->root . "/postfix.aliases";
-unlink $filename;
-ok( Siesta::Integrate::Postfix->do, "we can do" );
-ok( -e $filename, "we maded a file" );
-
-open my $fh, "$filename" or die "couldn't reopen $filename";
-chomp( my $name = <$fh> );
-is( $name, $list->name, "alias file looks good" )
-

• rev 1450 - in trunk/Siesta-Integrate-Aliases: . lib/Siesta/Integrate t richardc 17:36 on 17 Oct 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52