tokkee.org
Code
projects
/
gosa.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Updated FAI release creation check, valid characters for a release are now "a-z0-9."
[gosa.git]
/
gosa-plugins
/
squid
/
contrib
/
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;