package HTMLWorkspaceCreator; # ************************************************************ # Description : An html workspace creator # Author : Justin Michel # Create Date : 8/25/2003 # ************************************************************ # ************************************************************ # Pragmas # ************************************************************ use strict; use HTMLProjectCreator; use WorkspaceCreator; use vars qw(@ISA); @ISA = qw(WorkspaceCreator); # ************************************************************ # Subroutine Section # ************************************************************ sub workspace_file_extension { #my $self = shift; return '_workspace.html'; } sub pre_workspace { my($self, $fh) = @_; my $crlf = $self->crlf(); ## Print the header print $fh '', $crlf, '', $crlf; ## Next, goes the workspace comment $self->print_workspace_comment($fh, '', $crlf, '', $crlf, '', $crlf); ## Then, comes the title and the CSS settings. print $fh '', $crlf, '', $self->get_workspace_name(), '', $crlf, ' ', $crlf, '', $crlf, '', $crlf; } sub write_comps { my($self, $fh, $creator) = @_; my $crlf = $self->crlf(); ## Start the table for all of the projects print $fh "$crlf", "$crlf", "$crlf", "$crlf", "$crlf", "$crlf"; ## Sort the projects in build order instead of alphabetical order my $project_info = $self->get_project_info(); foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) { print $fh "$crlf"; } ## End the table print $fh "
Projects In Build Order
", $$project_info{$project}->[ProjectCreator::PROJECT_NAME], "
"; } sub post_workspace { my($self, $fh) = @_; print $fh "" . $self->crlf(); } 1;