| ... | ... |
@@ -33,6 +33,14 @@ sub data_dir {
|
| 33 | 33 |
return $data_dir; |
| 34 | 34 |
} |
| 35 | 35 |
|
| 36 |
+sub rep_home {
|
|
| 37 |
+ my $self = shift; |
|
| 38 |
+ |
|
| 39 |
+ my $rep_home = $self->data_dir . "/rep"; |
|
| 40 |
+ |
|
| 41 |
+ return $rep_home; |
|
| 42 |
+} |
|
| 43 |
+ |
|
| 36 | 44 |
sub rep_info {
|
| 37 | 45 |
my ($self, $user, $project) = @_; |
| 38 | 46 |
|
| ... | ... |
@@ -44,6 +52,14 @@ sub rep_info {
|
| 44 | 52 |
return $info; |
| 45 | 53 |
} |
| 46 | 54 |
|
| 55 |
+sub work_rep_home {
|
|
| 56 |
+ my $self = shift; |
|
| 57 |
+ |
|
| 58 |
+ my $work_rep_home = $self->data_dir . "/work"; |
|
| 59 |
+ |
|
| 60 |
+ return $work_rep_home; |
|
| 61 |
+} |
|
| 62 |
+ |
|
| 47 | 63 |
sub work_rep_info {
|
| 48 | 64 |
my ($self, $user, $project) = @_; |
| 49 | 65 |
|
| ... | ... |
@@ -56,14 +72,6 @@ sub work_rep_info {
|
| 56 | 72 |
return $info; |
| 57 | 73 |
} |
| 58 | 74 |
|
| 59 |
-sub rep_home {
|
|
| 60 |
- my $self = shift; |
|
| 61 |
- |
|
| 62 |
- my $rep_home = $self->data_dir . "/rep"; |
|
| 63 |
- |
|
| 64 |
- return $rep_home; |
|
| 65 |
-} |
|
| 66 |
- |
|
| 67 | 75 |
sub rep_path {
|
| 68 | 76 |
my ($self, $user, $project) = @_; |
| 69 | 77 |
|
| ... | ... |
@@ -72,22 +80,6 @@ sub rep_path {
|
| 72 | 80 |
return $rep_path |
| 73 | 81 |
} |
| 74 | 82 |
|
| 75 |
-sub rep_work_home {
|
|
| 76 |
- my $self = shift; |
|
| 77 |
- |
|
| 78 |
- my $work_home = $self->data_dir . "/work"; |
|
| 79 |
- |
|
| 80 |
- return $work_home; |
|
| 81 |
-} |
|
| 82 |
- |
|
| 83 |
-sub rep_work_path {
|
|
| 84 |
- my ($self, $user, $project) = @_; |
|
| 85 |
- |
|
| 86 |
- my $rep_path = $self->rep_work_home . "/$user/$project"; |
|
| 87 |
- |
|
| 88 |
- return $rep_path |
|
| 89 |
-} |
|
| 90 |
- |
|
| 91 | 83 |
sub startup {
|
| 92 | 84 |
my $self = shift; |
| 93 | 85 |
|