use strict;
use warnings;
use Tie::File;
my $curlver = $ARGV[0];
my $curldate = $ARGV[1];
my @dirlist = ("docs/", "docs/libcurl/", "docs/libcurl/opts/", "tests/");
my @extlist = (".1", ".3");
my @excludelist = ("mk-ca-bundle.1", "template.3");
sub printargs{
print "usage: updatemanpages.pl <version> <date>\n";
exit;
}
sub getthline{
my $filename = shift;
my $file_handle;
my $file_line;
open($file_handle, $filename);
tie(my @file_data, 'Tie::File', $filename);
foreach my $file_data_line(@file_data) {
if($file_data_line =~ /^.TH/) {
$file_line = $file_data_line;
last;
}
}
close($file_handle);
return $file_line;
}
sub extractth{
my $input = shift;
my @tharray;
my $inputsize = length($input);
my $inputcurrent = "";
my $quotemode = 0;
for(my $inputseek = 0; $inputseek < $inputsize; $inputseek++) {
if(substr($input, $inputseek, 1) eq " " && $quotemode eq 0) {
push(@tharray, $inputcurrent);
$inputcurrent = "";
next;
}
$inputcurrent = $inputcurrent . substr($input, $inputseek, 1);
if(substr($input, $inputseek, 1) eq "\"") {
if($quotemode eq 0) {
$quotemode = 1;
}
else {
$quotemode = 0;
}
}
}
if($inputcurrent ne "") {
push(@tharray, $inputcurrent);
}
return @tharray;
}
sub getdate{
my $filename = shift;
my $thline;
my @tharray;
my $date = "";
$thline = getthline($filename);
if(!$thline || $thline eq "") {
return "";
}
@tharray = extractth($thline);
$date = substr($tharray[3], 1, -1);
return $date;
}
sub processth{
my $input = shift;
my $date = shift;
my @tharray = extractth($input);
my $itemdate = "\"";
$itemdate .= $date;
$itemdate .= "\"";
$tharray[3] = $itemdate;
my $itemver = $tharray[4];
my $itemname = "";
for(my $itemnameseek = 1;
$itemnameseek < length($itemver);
$itemnameseek++) {
if(substr($itemver, $itemnameseek, 1) eq " " ||
substr($itemver, $itemnameseek, 1) eq "\"") {
last;
}
$itemname .= substr($itemver, $itemnameseek, 1);
}
$itemver = "\"";
$itemver .= $itemname;
$itemver .= " ";
$itemver .= $curlver;
$itemver .= "\"";
$tharray[4] = $itemver;
my $thoutput = "";
foreach my $thvalue (@tharray) {
$thoutput .= $thvalue;
$thoutput .= " ";
}
$thoutput =~ s/\s+$//;
$thoutput .= "\n";
return $thoutput;
}
sub processfile{
my $filename = shift;
my $date = shift;
my $file_handle;
my $file_dist_handle;
my $filename_dist;
$filename_dist = $filename . ".dist";
open($file_handle, $filename);
open($file_dist_handle, ">" . $filename_dist);
tie(my @file_data, 'Tie::File', $filename);
foreach my $file_data_line (@file_data) {
if($file_data_line =~ /^.TH/) {
my $file_dist_line = processth($file_data_line, $date);
print $file_dist_handle $file_dist_line . "\n";
}
else {
print $file_dist_handle $file_data_line . "\n";
}
}
close($file_handle);
close($file_dist_handle);
}
if(!$curlver) {
printargs();
}
my $gitcheck = `git log -1 --date="format:%B %d, %Y" $dirlist[0] 2>/dev/null`;
if(length($gitcheck) < 1) {
print "git version too old or $dirlist[0] is a bad argument\n";
exit;
}
my $dir_handle;
foreach my $dirname (@dirlist) {
foreach my $extname (@extlist) {
opendir($dir_handle, $dirname);
my @filelist = grep(/.$extname$/i, readdir($dir_handle));
foreach my $file (@filelist) {
if(grep(/^$file$/, @excludelist)) {
next;
}
my $filedate;
if(-e ($dirname . $file . ".dist")) {
$filedate = getdate(($dirname . $file . ".dist"));
}
else {
$filedate = getdate(($dirname . $file));
}
if(!$filedate || $filedate eq "") {
next;
}
my $repodata = `LC_TIME=C git log -1 --date="format:%B %d, %Y" \\
--since="$filedate" $dirname$file | grep ^Date:`;
if($repodata) {
my $thisdate;
if(!$curldate) {
if($repodata =~ /^Date: +(.*)/) {
$thisdate = $1;
}
else {
print STDERR "Warning: " . ($dirname . $file) . ": found no " .
"date\n";
}
}
else {
$thisdate = $curldate;
}
processfile(($dirname . $file), $thisdate);
print $dirname . $file . " page updated to $thisdate\n";
}
}
closedir($dir_handle);
}
}
__END__
=pod
=head1 updatemanpages.pl
Updates the man pages with the version number and optional date. If the date
isn't provided, the last modified date from git is used.
=head2 USAGE
updatemanpages.pl version [date]
=head3 version
Specifies version (required)
=head3 date
Specifies date (optional)
=head2 SETTINGS
=head3 @dirlist
Specifies the list of directories to look for files in.
=head3 @extlist
Specifies the list of files with extensions to process.
=head3 @excludelist
Specifies the list of files to not process.
=head2 NOTES
This script is used during maketgz.
=cut