#!/usr/bin/env perl $arg = shift; # standard prefix $viewname = "/view/doc"; $prefix = "/vob"; $mailto = "Marc Girod"; $mailaddr = "girod\@shire.ntc.nokia.com"; $ENV{PATH} = "/opt/rational/clearcase/bin:/bin"; # simplify argument: # 0) allow access only to $prefix subtree # 1) no .. allowed # 2) replace // sequences by / # 3) strip leading and trailing spaces and /'s if (!($arg =~ /^$viewname$prefix/)) { errorpage("Only '$prefix' subtree can be accessed.\n"); } $arg =~ s/\.\.//g; while ($arg =~ s/\/\//\//g) {}; $arg =~ /^\s*(.*?)\/?\s*$/; $arg = $1; if (! -r $arg) { errorpage("Can't read '$arg'.\n"); } $comment = `cleartool describe -fmt "%c" $arg 2>&1`; $changes = `cleartool diff -pred -ser $arg 2>&1`; # Changes can contain SGML code which should not be formatted $changes =~ s//\>/g; $title = "Version information for $arg"; $now = localtime(); print < $title

$title

$now

Comment

$comment

Changes from previous version

$changes

This page is automagically generated. Mail your remarks to $mailto

HTML exit(0); sub errorpage { my $msg = shift; # print out HTML header print < Error

Error:

$msg

This page is automagically generated. Mail your remarks to $mailto

HTML exit(0); }