Changeset 1359

Show
Ignore:
Timestamp:
03/18/08 12:35:42 (5 months ago)
Author:
kindlund
Message:

Updated utility scripts.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/trunk/bin/migrate_clients.pl

    r1357 r1359  
    2222my $datastore_path = getVar(name => "datastore_path", namespace => "HoneyClient::Manager::VM"); 
    2323my $snapshot_path = getVar(name => "snapshot_path", namespace => "HoneyClient::Manager::VM"); 
     24my $suspicious_path = "/vm/suspicious"; 
    2425 
    2526my $clients = HoneyClient::Manager::Database::get_not_deleted_clients($args); 
    …… 
    4142    system("vmware-cmd -s unregister " . $datastore_path . "/" . $cid . "/*.cfg"); 
    4243     
     44    $LOG->info("Executing: mv " . $datastore_path . "/" . $cid . " " . $suspicious_path); 
     45    system("mv " . $datastore_path . "/" . $cid . " " . $suspicious_path); 
     46 
     47    $LOG->info("Executing: vmware-cmd -s register " . $suspicious_path . "/" . $cid . "/*.vmx"); 
     48    system("vmware-cmd -s register " . $suspicious_path . "/" . $cid . "/*.vmx"); 
     49     
     50    $LOG->info("Executing: vmware-cmd -s register " . $suspicious_path . "/" . $cid . "/*.cfg"); 
     51    system("vmware-cmd -s register " . $suspicious_path . "/" . $cid . "/*.cfg"); 
     52     
    4353    #$LOG->info("Executing: cp -Rp " . $old_datastore_path . "/" . $cid . " " . $datastore_path); 
    4454    #system("cp -Rp " . $old_datastore_path . "/" . $cid . " " . $datastore_path);