|
0
|
1 #/bin/perl
|
|
|
2
|
|
|
3 require 'config.pl';
|
|
|
4 require 'project_man.pl';
|
|
|
5
|
|
|
6 &set_project_status("jesse_test1", 1, 0);
|
|
|
7 &set_project_status("jesse_test2", 1, 1);
|
|
|
8 &set_project_status("jesse_test3", 1, 0);
|
|
|
9 &set_project_status("jesse_test1", 0, 1);
|
|
|
10 &set_project_status("aaron_test1", 1, 1);
|
|
|
11
|
|
|
12
|
|
|
13 my $projects_ref = &get_project_list("");
|
|
|
14 print "All:\n";
|
|
|
15 foreach my $project (@{$projects_ref}) {
|
|
|
16 print "\t$project\n";
|
|
|
17 }
|
|
|
18
|
|
|
19 $projects_ref = &get_project_list("aaron_");
|
|
|
20 print "\nAaron:\n";
|
|
|
21 foreach my $project (@{$projects_ref}) {
|
|
|
22 print "\t$project\n";
|
|
|
23 }
|
|
|
24
|
|
|
25 $projects_ref = &get_project_list("jesse_");
|
|
|
26 print "\nJesse:\n";
|
|
|
27 foreach my $project (@{$projects_ref}) {
|
|
|
28 print "\t$project\n";
|
|
|
29 }
|
|
|
30
|
|
|
31 &delete_project("aaron_test1");
|
|
|
32 $projects_ref = &get_project_list("");
|
|
|
33 print "\nAll (aaron deleted):\n";
|
|
|
34 foreach my $project (@{$projects_ref}) {
|
|
|
35 print "\t$project\n";
|
|
|
36 }
|
|
|
37
|
