get rid of old SVN structure

This commit is contained in:
Ward Wouts 2020-03-11 07:23:11 +01:00
parent 64eaf7c89f
commit 08e83501be
324 changed files with 0 additions and 70245 deletions

30
tools/cacheconverter Executable file
View file

@ -0,0 +1,30 @@
#!/usr/bin/perl
my %servers;
$cachefile = $ARGV[0];
if ($ARGV[1]) {
print "Usage: $ARGV[0] <cachefile>\n";
exit;
}
print "Group: $groupname\n";
while (<>) {
/^([^|]*)\|([^|]*)\|([^|]*)\|(.*)/;
if (exists $servers{$3}) {
push @{$servers{$3}}, "$1|$2|$4\n";
} else {
$servers{$3} = [];
push @{$servers{$3}}, "$1|$2|$4\n";
}
}
foreach (keys %servers) {
print ":KEY: $_\n";
open FH, ">$cachefile.$_" or die "Couldn't write new cachefile\n";
foreach (@{$servers{$_}}) {
print FH;
}
close FH;
}

5
tools/cacheconverter2 Executable file
View file

@ -0,0 +1,5 @@
#!/bin/sh
for i in *;do
sed -e 's/\([^|]*\|[^|]*\|\)/\1\|/' < $i > $i.new
mv $i.new $i
done