Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
DISCONTINUED:openSUSE:11.2:Update
postgrey
postgrey_clients_dump
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File postgrey_clients_dump of Package postgrey
#!/usr/sepp/bin/perl-5.8.4 -w use lib '/usr/isgtc/lib/perl'; use BerkeleyDB; use Socket; my $dbdir = '/var/spool/postfix/postgrey'; sub resolv($) { my $host = shift; my $iaddr = inet_aton($host); return gethostbyaddr($iaddr, AF_INET) || $host; } sub dbopen($) { my ($dbdir) = @_; my %db; my $dbenv = BerkeleyDB::Env->new( -Home => $dbdir, -Flags => DB_INIT_TXN|DB_INIT_MPOOL|DB_INIT_LOG, ) or die "ERROR: can't open DB environment: $!\n"; tie(%db, 'BerkeleyDB::Btree', -Filename => "postgrey_clients.db", -Flags => DB_RDONLY, -Env => $dbenv, ) or die "ERROR: can't open database $dbdir/postgrey_clients.db: $!\n"; return \%db; } sub main() { # go through the database my $db = dbopen($dbdir); while (my ($key, $value) = each %$db) { my ($c,$l) = split(/,/,$value); $c >= 5 or next; my $host = resolv($key); print "$host ($c)\n"; } } main; # vim: sw=4
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
