| Line 32... |
Line 32... |
| 32 |
sub pre_workspace {
|
32 |
sub pre_workspace {
|
| 33 |
my($self) = shift;
|
33 |
my($self) = shift;
|
| 34 |
my($fh) = shift;
|
34 |
my($fh) = shift;
|
| 35 |
my($crlf) = $self->crlf();
|
35 |
my($crlf) = $self->crlf();
|
| 36 |
|
36 |
|
| - |
|
37 |
print $fh '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', $crlf,
|
| 37 |
print $fh '<html>', $crlf,
|
38 |
'<html>', $crlf,
|
| 38 |
'<!-- $Id: HTMLWorkspaceCreator.pm 107 2005-09-02 16:42:23Z bj $ -->', $crlf,
|
39 |
'<!-- $Id: HTMLWorkspaceCreator.pm 217 2006-05-05 09:35:48Z bj $ -->', $crlf,
|
| 39 |
'<!-- MPC Command: -->', $crlf,
|
40 |
'<!-- MPC Command: -->', $crlf,
|
| 40 |
"<!-- $0@ARGV -->", $crlf,
|
41 |
"<!-- $0@ARGV -->", $crlf,
|
| 41 |
'<head>', $crlf,
|
42 |
'<head>', $crlf,
|
| - |
|
43 |
'<title>', $self->get_workspace_name(), '</title>', $crlf,
|
| 42 |
' <style>', $crlf,
|
44 |
' <style type="text/css">', $crlf,
|
| 43 |
' a {font: 12pt bold verdana, lucida; color: white; padding: 3px;}', $crlf,
|
45 |
' a {font: 12pt bold verdana, lucida; color: white; padding: 3px;}', $crlf,
|
| 44 |
' td {font: 12pt bold verdana, lucida; color: white; padding: 3px; background-color: cadetblue;}', $crlf,
|
46 |
' td {font: 12pt bold verdana, lucida; color: white; padding: 3px; background-color: cadetblue;}', $crlf,
|
| 45 |
' thead tr td {font: 18pt "trebuchet ms", helvetica; color: white; padding: 3px; background-color: teal;}', $crlf,
|
47 |
' thead tr td {font: 18pt "trebuchet ms", helvetica; color: white; padding: 3px; background-color: teal;}', $crlf,
|
| 46 |
' </style>', $crlf,
|
48 |
' </style>', $crlf,
|
| 47 |
'</head>', $crlf,
|
49 |
'</head>', $crlf,
|
| Line 51... |
Line 53... |
| 51 |
|
53 |
|
| 52 |
sub write_comps {
|
54 |
sub write_comps {
|
| 53 |
my($self) = shift;
|
55 |
my($self) = shift;
|
| 54 |
my($fh) = shift;
|
56 |
my($fh) = shift;
|
| 55 |
my($creator) = shift;
|
57 |
my($creator) = shift;
|
| 56 |
my($projects) = $self->get_projects();
|
- |
|
| 57 |
my($project_info) = $self->get_project_info();
|
58 |
my($project_info) = $self->get_project_info();
|
| 58 |
my($crlf) = $self->crlf();
|
59 |
my($crlf) = $self->crlf();
|
| 59 |
|
60 |
|
| 60 |
print $fh "<table style=\"table-layout:fixed\" width=\"400\">$crlf" .
|
61 |
print $fh "<table style=\"table-layout:fixed\" width=\"400\" " .
|
| - |
|
62 |
"summary=\"MPC Projects\">$crlf" .
|
| 61 |
"<col style=\"background-color: darkcyan;\">$crlf" .
|
63 |
"<col style=\"background-color: darkcyan;\">$crlf" .
|
| 62 |
"<thead>$crlf" .
|
64 |
"<thead>$crlf" .
|
| 63 |
"<tr><td>Projects</td></tr>$crlf" .
|
65 |
"<tr><td>Projects In Build Order</td></tr>$crlf" .
|
| 64 |
"</thead>$crlf" .
|
66 |
"</thead>$crlf" .
|
| 65 |
"<tbody>$crlf";
|
67 |
"<tbody>$crlf";
|
| 66 |
|
68 |
|
| - |
|
69 |
## Sort the projects in build order instead of alphabetical order
|
| 67 |
foreach my $project (sort { $creator->file_sorter($a, $b) } @$projects) {
|
70 |
foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
|
| 68 |
my($name) = $$project_info{$project}->[0];
|
71 |
my($name) = $$project_info{$project}->[0];
|
| 69 |
print $fh "<tr><td>" .
|
72 |
print $fh "<tr><td>" .
|
| 70 |
"<a href='$project'>$name</a>" .
|
73 |
"<a href='$project'>$name</a>" .
|
| 71 |
"</td></tr>$crlf";
|
74 |
"</td></tr>$crlf";
|
| 72 |
}
|
75 |
}
|