Code

removed images from templates
[gosa.git] / gosa-plugins / squid / contrib / mkHash.pl
1 #!/usr/bin/perl
3 use strict;
4 use DB_File;
6 my $db = "/var/spool/squid/domains.db";
7 my %db;
9 tie(%db, 'DB_File', $db);
11 while(<>)
12 {
13         chomp;
14         unless(exists($db{$_}))
15         {
16                 $db{$_} = 1;
17         }
18 }
20 untie %db;