tokkee.org
Code
projects
/
gosa.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Updated mysql creator for gofon db's
[gosa.git]
/
contrib
/
scripts
/
mkHash.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use DB_File;
5
6
my $db = "/var/spool/squid/domains.db";
7
my %db;
8
9
tie(%db, 'DB_File', $db);
10
11
while(<>)
12
{
13
chomp;
14
unless(exists($db{$_}))
15
{
16
$db{$_} = 1;
17
}
18
}
19
20
untie %db;