#!/usr/bin/perl -w
#
# p4_labels_2_html for Safari
# Copyright (c) 1999 by Barrie Slaymaker, rbs@telerama.com
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the README file.
#
use strict ;
my $up_to_project = $ENV{SAF_UP_TO_PROJECT} ;
my @output ;
while (<>) {
s/&/&/g ;
s//>/g ;
chomp ;
if ( m/(Label\s+)(\S+)\s+(\S+)\s+(?:'\s*)?([^'].*?)\s*'?\s*$/ )
{
$_ = qq(| $2 | [ Browse ] | $3 | $4 |
) ;
}
else {
$_ = qq(
|
|
| $_ |
) ;
}
push( @output, $_ ) ;
}
print <
Labels
| Label |
| Date | Description |
|---|
TOHERE
print( map{ $_ .= "\n" } @output ) ;
print <