Changeset 387

Timestamp:

Jan 4, 2018, 11:34:41 PM (6 years ago)

Author:

g7moreau

Message:

• Add computerdb_save function

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -931 +931 @@
 
 #---------------------------------------------------------------
+# Save computer database
+sub computerdb_save {
+   my ($computerdb) = @_;
+
+   my $dirdb = $KLASK_DB_FILE;
+      $dirdb =~ s{ / [^/]* $}{}xms;
+   mkdir "$dirdb", 0755 unless -d "$dirdb";
+   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+
+   return $computerdb;
+   }
+
+#---------------------------------------------------------------
 sub get_switchdb_checksum {
    my %switch_db = @_; # same as global %SWITCH_DB
@@ -1523 +1536 @@
    printf "\n";
 
-   my $dirdb = $KLASK_DB_FILE;
-      $dirdb =~ s{ / [^/]* $}{}xms;
-   mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+   computerdb_save($computerdb);
 
    for my $one_computer (keys %computer_not_detected) {
@@ -1558 +1568 @@
       }
 
-   my $dirdb = $KLASK_DB_FILE;
-      $dirdb =~ s{ / [^/]* $}{}xms;
-   mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+   computerdb_save($computerdb);
    return;
    }
@@ -1640 +1647 @@
       };
 
-   my $dirdb = $KLASK_DB_FILE;
-      $dirdb =~ s{ / [^/]* $}{}xms;
-   mkdir "$dirdb", 0755 unless -d "$dirdb";
-   YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
+   computerdb_save($computerdb);
    return;
    }
@@ -1753 +1757 @@
       }
 
-   if ($database_has_changed) {
-      my $dirdb = $KLASK_DB_FILE;
-         $dirdb =~ s{ / [^/]* $}{}xms;
-      mkdir "$dirdb", 0755 unless -d "$dirdb";
-      YAML::Syck::DumpFile("$KLASK_DB_FILE", $computerdb);
-      }
+   computerdb_save($computerdb) if $database_has_changed;
    return;
    }