#!/usr/bin/env perl
#
# Must have the yote server shut down to run this maintenance script.
# Usage : library_application_path_updater <list of paths to include>
#
use Yote::YoteRoot;
use Yote::ObjProvider;
use Yote::ConfigData;
my $var_dir = Yote::ConfigData->config( 'yote_var_dir' );
my $sqlitefile = "$var_dir/SQLite.yote.db";
Yote::ObjProvider::init( sqlitefile => $sqlitefile );
my $root = Yote::YoteRoot::fetch_root();
$root->set__application_lib_directories( [
keys %{ +{map { $_ => 1 } @{$root->get__application_lib_directories( [] )}, @ARGV} }
] );
print "Yote Classpaths now ".join("\n\t",@{$root->get__application_lib_directories()})."\n";
Yote::ObjProvider::stow_all();