Changeset 42 for server/trunk/web/lib/Sophie/Base/RpmsPath.pm

Timestamp:

11/28/10 14:59:48 (14 years ago)

Author:

nanardon

Message:

• add dump/load distrib config using Yaml
• separate DB connection for session

File:

• server/trunk/web/lib/Sophie/Base/RpmsPath.pm (modified) (6 diffs)

server/trunk/web/lib/Sophie/Base/RpmsPath.pm

@@ -15 +15 @@
     my ($class, $pathkey) = @_;
 
-    bless(\$pathkey, $class);
-}
+    bless({ key => $pathkey }, $class);
+}
+
+sub key { $_[0]->{key} }
 
 sub path {
@@ -24 +26 @@
         q{select path from d_path where d_path_key = ?}
     );
-    $sth->execute($$self);
+    $sth->execute($self->key);
     my $res = $sth->fetchrow_hashref;
     $sth->finish;
@@ -36 +38 @@
         q{select * from rpmfiles where d_path = ?}
     );
-    $sth->execute($$self);
+    $sth->execute($self->key);
     $sth->fetchall_hashref([ 'filename' ]);
 }
@@ -101 +103 @@
     $self->db->prepare_cached(q{
         update d_path set updated = now() where d_path_key = ?
-        })->execute($$self);
+        })->execute($self->key);
     $self->db->commit;
 }
@@ -114 +116 @@
     );
     for (1 .. 3) {
-        if ($remove->execute($$self, $rpm)) { 
+        if ($remove->execute($self->key, $rpm)) { 
             warn "deleting $rpm";
             $self->db->commit;
@@ -135 +137 @@
                 }
             );
-            if ($register->execute($$self, $rpm, $pkgid)) {
+            if ($register->execute($self->key, $rpm, $pkgid)) {
                 warn "adding $rpm";
                 $self->db->commit;