mirror of
https://github.com/vgough/encfs.git
synced 2024-11-21 15:33:16 +01:00
drop old script
This commit is contained in:
parent
9cc4196f3d
commit
6cd40ff136
32
dk2ChangeLog
32
dk2ChangeLog
@ -1,32 +0,0 @@
|
||||
#!/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)
|
||||
|
Loading…
Reference in New Issue
Block a user