mirror of
https://github.com/vgough/encfs.git
synced 2024-11-25 01:13:12 +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