#/bin/perl

require 'config.pl';
require 'project_man.pl';

&set_project_status("jesse_test1", 1, 0);
&set_project_status("jesse_test2", 1, 1);
&set_project_status("jesse_test3", 1, 0);
&set_project_status("jesse_test1", 0, 1);
&set_project_status("aaron_test1", 1, 1);


my $projects_ref = &get_project_list("");
print "All:\n";
foreach my $project (@{$projects_ref}) {
    print "\t$project\n";
}

$projects_ref = &get_project_list("aaron_");
print "\nAaron:\n";
foreach my $project (@{$projects_ref}) {
    print "\t$project\n";
}

$projects_ref = &get_project_list("jesse_");
print "\nJesse:\n";
foreach my $project (@{$projects_ref}) {
    print "\t$project\n";
}

&delete_project("aaron_test1");
$projects_ref = &get_project_list("");
print "\nAll (aaron deleted):\n";
foreach my $project (@{$projects_ref}) {
    print "\t$project\n";
}