Changeset 34

Timestamp:

Feb 11, 2008, 9:11:57 PM (16 years ago)

Author:

g7moreau

Message:

• Add some check to verify taht the databse exists and if not, propose the good command to do.

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -113 +113 @@
    }
 
+sub test_switchdb_environnement {
+   die "Switch database $KLASK_SW_FILE does not exists. Launch updatesw before this command !\n" if not -e "$KLASK_SW_FILE";
+   }
+
+sub test_maindb_environnement {
+   die "Main database $KLASK_DB_FILE does not exists. Launch updatedb before this command !\n" if not -e "$KLASK_DB_FILE";
+   }
+
 ###
 # fast ping dont l'objectif est de remplir la table arp de la machine
@@ -537 +545 @@
       @network = get_list_network() if not @network;
 
-   my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
+   test_switchdb_environnement();
+
+   my $computerdb = {};
+      $computerdb = YAML::LoadFile("$KLASK_DB_FILE") if -e "$KLASK_DB_FILE";
    my $timestamp = time;
 
@@ -708 +719 @@
 sub cmd_removedb {
    my @computer = @_;
-   
+
+   test_maindb_environnement();
+
    my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
 
@@ -726 +739 @@
 
 sub cmd_exportdb {
+   test_maindb_environnement();
+
    my $computerdb = YAML::LoadFile("$KLASK_DB_FILE");
 
@@ -986 +1001 @@
    my @ARGV   = @_;
 
+   test_switchdb_environnement();
+
    my $format = 'txt';