mirror of
https://github.com/vgough/encfs.git
synced 2024-11-24 17:03:13 +01:00
33 lines
430 B
Perl
33 lines
430 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
open(LOG, "darcs changes|") || die "Can't open 'dk changes': $!";
|
|
|
|
my $lastDate = "";
|
|
while(<LOG>)
|
|
{
|
|
if( /^(\w+)\s+(\w+)\s+(\d+)\s+([0-9:]+)\s+(\w+)\s+(\d+)\s+(.*)$/ )
|
|
{
|
|
my $date = "$1 $2 $3 $6";
|
|
if($date ne $lastDate)
|
|
{
|
|
$lastDate = $date;
|
|
print "$date $7\n";
|
|
}
|
|
} else
|
|
{
|
|
s/^\s+//;
|
|
if(/\w/)
|
|
{
|
|
print "\t$_";
|
|
} else
|
|
{
|
|
#print "\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
close(LOG)
|
|
|