get rid of old SVN structure
This commit is contained in:
parent
64eaf7c89f
commit
08e83501be
324 changed files with 0 additions and 70245 deletions
30
tools/cacheconverter
Executable file
30
tools/cacheconverter
Executable 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
5
tools/cacheconverter2
Executable file
|
|
@ -0,0 +1,5 @@
|
|||
#!/bin/sh
|
||||
for i in *;do
|
||||
sed -e 's/\([^|]*\|[^|]*\|\)/\1\|/' < $i > $i.new
|
||||
mv $i.new $i
|
||||
done
|
||||
Loading…
Add table
Add a link
Reference in a new issue