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); ## Then, comes the title and the CSS settings. print $fh '
', $crlf, 'Projects In Build Order |
", $$project_info{$project}->[ProjectCreator::PROJECT_NAME], " |