Changeset 159

Timestamp:

04/05/09 15:32:54 (15 years ago)

Author:

nanardon

Message:

• add Vote::DB::common module to share common functions

Location:

trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/Vote/DB.pm (modified) (2 diffs)
• lib/Vote/DB/common.pm (added)

trunk/MANIFEST

@@ -23 +23 @@
 lib/Vote/Controller/Vote.pm
 lib/Vote/DB.pm
+lib/Vote/DB/common.pm
 lib/Vote/Model/Vote.pm
 lib/Vote/Template/Plugin/Mail.pm

trunk/lib/Vote/DB.pm

@@ -6 +6 @@
 use warnings;
 use Vote;
-use DBI;
 use Mail::Mailer;
+use base 'Vote::DB::common';
 
 =head1 NAME
@@ -24 +24 @@
     bless {
         dbstring => $dbstring,
-        db => _newdb($dbstring),
+        db => Vote::DB::common::_newdb($dbstring),
     }, $class;
-}
-
-sub _newdb {
-    my ($dbstring) = @_;
-    my $db = DBI->connect(
-        'dbi:Pg:' . $dbstring,
-        undef, undef,
-        {
-            RaiseError => 0,
-            AutoCommit => 0,
-            PrintWarn => 0,
-            PrintError => 1,
-        }
-    ) or return;
-    $db->do(q{set DATESTYLE to 'DMY'});
-    return $db;
-}
-
-sub db {
-    my ($self) = @_;
-    return $_[0]->{db} && $_[0]->{db}->ping
-        ? $_[0]->{db}
-        : $_[0]->_newdb($self->{dbstring});
-}
-
-sub mail_header {
-    return(
-        'Content-Type' => 'text/plain; charset=UTF-8; format=flowed',
-        'Content-Transfer-Encoding' => '8bit',
-        'X-Epoll-version' => $Vote::VERSION,
-    );
-}
-
-sub random_string {
-    my $lenght = $_[-1] || 8;
-
-    return join('', map { ('a'..'z', 'A'..'Z', 0..9)[rand 62] } (1..$lenght));
-}
-
-sub gen_enc_passwd {
-    my ($self, $passwd) = @_;
-
-    $passwd ||= random_string(8);
-    return(crypt($passwd, '$1$' . random_string(8) . '$'));
-}
-
-sub dbtime {
-    my ($self) = @_;
-    my $sth = $self->db->prepare(
-        q{select to_char(now(), 'DD/MM/YYYY HH24:MI:SS') as d}
-    );
-
-    $sth->execute();
-    my $res = $sth->fetchrow_hashref;
-    $sth->finish;
-    $res->{d};
 }