diff options
author | Mikkel Krautz <mikkel@krautz.dk> | 2014-01-12 18:55:58 +0400 |
---|---|---|
committer | Mikkel Krautz <mikkel@krautz.dk> | 2014-01-13 01:09:04 +0400 |
commit | 44a5bd1219e37fe8c263c2334388f2af067b5643 (patch) | |
tree | 6ae2fa3a3a0dba4b2765aad2ecef9d70262302ed /scripts | |
parent | 97b75de204001c26fd62218d1b81dc19804a7b69 (diff) |
scripts: remove unused svn2cl scripts.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/svn2cl.pl | 70 | ||||
-rwxr-xr-x | scripts/svn2cl.sh | 5 |
2 files changed, 0 insertions, 75 deletions
diff --git a/scripts/svn2cl.pl b/scripts/svn2cl.pl deleted file mode 100755 index 3afbb87a8..000000000 --- a/scripts/svn2cl.pl +++ /dev/null @@ -1,70 +0,0 @@ -#! /usr/bin/perl -w - -use warnings; -use strict; -use XML::Simple; -use Data::Dumper; -use Date::Parse; -use Text::Wrap qw(wrap fill); - -print "Reading XML...\n"; - -my $ref = XMLin('-'); - -my %log; -my %rev; - -$Text::Wrap::columns = 79; - -print "Parsing log...\n"; - -foreach my $entry (@{$$ref{'logentry'}}) { - my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime($$entry{'date'}); - my $date = sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day); - if (! $log{$date}) { - $log{$date} = (); - $rev{$date} = {}; - } - push @{$log{$date}},$entry; - $rev{$date}->{$$entry{'revision'}}=1; -# print Dumper($entry); -# print "$date\n"; -} -#print Dumper(\%rev); - -print "Creating CHANGES...\n"; - -open(C, ">CHANGES"); - -foreach my $date (reverse sort keys %log) { - my @revs=sort {$a <=> $b} keys %{$rev{$date}}; - my $minrev = $revs[0]; - my $maxrev = $revs[$#revs-1]; - print C "$date Revision $minrev"; - if ($maxrev != $minrev) { - print C "-$maxrev"; - } - print C "\n"; - - my $laststr = ""; - foreach my $entry (@{$log{$date}}) { - my $str = $$entry{'msg'}; - next if ($str =~ /^HASH\(/); - next if ($str =~ /^\*\*\* empty/); - $str =~ s/\r//g; - $str =~ s/\n+$//g; -# $str =~ s/\n/\n\t /g; - next if ($str eq $laststr); - $laststr = $str; - - my $html = $str; - $html =~ s/\n/<br \/>/g; - if ($$entry{'author'} ne "slicer") { - $str .= " [".$$entry{'author'}."]"; - } - print C wrap("\t* ","\t ",$str); - print C "\n"; - } -} - -close(C); diff --git a/scripts/svn2cl.sh b/scripts/svn2cl.sh deleted file mode 100755 index 609090fd5..000000000 --- a/scripts/svn2cl.sh +++ /dev/null @@ -1,5 +0,0 @@ -#! /bin/bash - -svn update -svn log -v --xml | perl scripts/svn2cl.pl -svn -m "Changelog update" commit |