Changeset 408

Timestamp:

11/15/11 12:07:35 (12 years ago)

Author:

nanardon

Message:

• update needupdate flags

Location:

server/trunk/web

Files:

• bin/sophie_scan (modified) (1 diff)
• lib/Sophie/Base.pm (modified) (1 diff)
• lib/Sophie/Base/Result/Paths.pm (modified) (1 diff)
• lib/Sophie/Scan/RpmsPath.pm (modified) (2 diffs)

server/trunk/web/bin/sophie_scan

@@ -16 +16 @@
 foreach my $pathkey (@pkey) {
     my $time = time;
+    Sophie::Scan::RpmsPath
+        ->new($pathkey, Sophie::Scan->new)
+        ->set_no_needupdate;
     my @delta = Sophie::Scan::RpmsPath
     ->new($pathkey, Sophie::Scan->new)

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

@@ -17 +17 @@
         my $cg = Config::General->new($file);
         $config = { $cg->getall() };
+        last
     }
     $config or die "No config found";

server/trunk/web/lib/Sophie/Base/Result/Paths.pm

@@ -6 +6 @@
 
 __PACKAGE__->table('d_path');
-__PACKAGE__->add_columns(qw/d_path_key path added updated meta_path exists/);
+__PACKAGE__->add_columns(
+    qw/d_path_key path added updated meta_path
+    exists needupdate/
+);
 __PACKAGE__->set_primary_key('d_path_key');
 __PACKAGE__->add_unique_constraint('path' => [ 'path' ]);

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

@@ -128 +128 @@
 sub set_no_needupdate {
     my ($self) = @_;
-    warn "$$ UPD";
     $self->db->base->resultset('Paths')->find(
         { d_path_key => $self->key }
@@ -137 +136 @@
 sub set_updated {
     my ($self) = @_;
-    warn "$$ UPD";
     $self->db->base->resultset('Paths')->find(
         { d_path_key => $self->key }