adding passwdfile export base class

diff --git a/FS/FS/part_export/passwdfile.pm b/FS/FS/part_export/passwdfile.pm
new file mode 100644 (file)
index 0000000..2978d25
--- /dev/null
+++ b/FS/FS/part_export/passwdfile.pm
@@ -0,0 +1,18 @@
+package FS::part_export::passwdfile;
+
+use strict;
+use vars qw(@ISA %options);
+use Tie::IxHash;
+use FS::part_export::null;
+
+@ISA = qw(FS::part_export::null);
+
+tie %options, 'Tie::IxHash',
+  'crypt' => { label=>'Password encryption',
+               type=>'select', options=>[qw(crypt md5)],
+               default=>'crypt',
+             },
+;
+
+1;
+

diff --git a/FS/MANIFEST b/FS/MANIFEST
index b12fdc4..10a64d0 100644 (file)
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -173,6 +173,7 @@ t/part_export-http.t
 t/part_export-infostreet.t
 t/part_export-ldap.t
 t/part_export-null.t
+t/part_export-passwdfile.t
 t/part_export-postfix.t
 t/part_export-router.t
 t/part_export-shellcommands.t

diff --git a/FS/t/part_export-passwdfile.t b/FS/t/part_export-passwdfile.t
new file mode 100644 (file)
index 0000000..0f18f30
--- /dev/null
+++ b/FS/t/part_export-passwdfile.t
@@ -0,0 +1,5 @@
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::part_export::passwdfile;
+$loaded=1;
+print "ok 1\n";