Changeset 1769 for branches/release-33/lib/MT/ConfigMgr.pm

Timestamp:

04/04/08 06:08:04 (19 months ago)

Author:

fumiakiy

Message:

Stopped saving something in the database while database driver is being initialized. Let us see if this fixes the occasional "Time to Upgrade!" bug. BugId:58199

Files:

• branches/release-33/lib/MT/ConfigMgr.pm (modified) (4 diffs)

branches/release-33/lib/MT/ConfigMgr.pm

@@ -17 +17 @@
 
 sub new {
-    my $mgr = bless { __var => { }, __dbvar => { }, __paths => [] }, $_[0];
+    my $mgr = bless { __var => { }, __dbvar => { }, __paths => [], __dirty => 0 }, $_[0];
     $mgr->init;
     $mgr;
@@ -162 +162 @@
         $mgr->{$set}{$var} = $val;
     }
+    $mgr->set_dirty() if defined($_[2]) && $_[2];
 }
 
@@ -186 +187 @@
 }
 
+sub set_dirty {
+    my $mgr = shift;
+    $mgr = $mgr->instance unless ref($mgr);
+    $mgr->{__dirty} = 1;
+}
+
+sub clear_dirty {
+    my $mgr = shift;
+    $mgr = $mgr->instance unless ref($mgr);
+    $mgr->{__dirty} = 0;
+}
+
+sub is_dirty {
+    my $mgr = shift;
+    $mgr = $mgr->instance unless ref($mgr);
+    $mgr->{__dirty};
+}
+
 sub save_config {
     my $class = shift;
     my $mgr = $class->instance;
+    return 0 unless $mgr->is_dirty();
     my $data = '';
     my $settings = $mgr->{__dbvar};
@@ -220 +240 @@
     $config->data($data);
     $config->save or die $config->errstr;
+    $mgr->clear_dirty;
+    1;
 }