Speaking about UA-IX, from wikipedia we know:

The Ukrainian traffic exchange network (UA-IX) (Ukrainian: Українська мережа обміну інтернет-трафіком) is an Internet exchange point that was established in Kiev, the capital of Ukraine, on July 2000 and is the daughter company of Ukrainian Internet Association. Companies that established Ukrainian traffic exchange network are major Ukrainian businesses that work expanding Ukrainian Internet market.

Here the list of all networks which belongs to UA-IX net. Download it to your machine and save as ua-list.txt.

Content of file. We have some networks list here:

$ head -3 ua-list.txt
8.8.4.0/24
8.8.8.0/24
62.16.0.0/19

Here is the script:

$cat uaix.pl
#!/usr/local/bin/perl
# Written by Andrii Grytsenko 2010
# PP: http://andriigrytsenko.net     

use POSIX;
use strict;

sub dec2bin {
   my $hex = shift;
   my $pack = unpack("B32",pack("N",$hex));
   my $pack = substr($pack,-8);
   return $pack;
}

my $bin_ip;
$bin_ip .= dec2bin($_) foreach (split(/\./,$ARGV[0]));

open(IP, "<$ARGV[1]");
while(){
    chomp();
    my ($ip,$net_mask) = split(/\//,$_);
    $net_mask = 24 if (!defined($net_mask));
    my $bin_network;
    $bin_network .= dec2bin($_) foreach (split(/\./,$ip));
    my $net_net_part = substr($bin_network,0,$net_mask);
    my $net_ip_part  = substr($bin_ip,0,$net_mask);
    if ( $net_net_part == $net_ip_part) {
        print "IP $ARGV[0] belong to network $_\n";
        exit;
    }
}

print "IP $ARGV[0] is not part of UA-IX\n";
close(IP);

To run the script:

$ perl uaix.pl [ip_addr] [path/to/ua-list.txt]

For example:

$ perl uaix.pl 72.14.228.156 ua-list.txt
IP 72.14.228.156 belong to network 72.14.192.0/18

There is also some ways to use script on your own… You can use your list of networks to detect ;)

Get script mail_quota.pl and mail_quota.conf configuration file at first.

To make script work fine two cpan modules should be installed:

cpan -i Mail::Send

and

cpan -i DBD::Pg

This is dbmail table dbmail_users description:

dbmail=# \d dbmail_users
Table "public.dbmail_users"
Column      |            Type             |                              Modifiers
-----------------+-----------------------------+---------------------------------------------------------------------
user_idnr       | bigint                      | not null default nextval('dbmail_user_idnr_seq'::regclass)
userid          | character varying(100)      | not null
passwd          | character varying(34)       | not null
client_idnr     | bigint                      | not null default 0::bigint
maxmail_size    | bigint                      | not null default 0::bigint
curmail_size    | bigint                      | not null default 0::bigint
maxsieve_size   | bigint                      | not null default 0::bigint
cursieve_size   | bigint                      | not null default 0::bigint
encryption_type | character varying(20)       | not null default ''::character varying
last_login      | timestamp without time zone | not null default '1979-11-03 22:05:58'::timestamp without time zone

There is configuration:

cat mail_quota.conf:
user=user
host=localhost
port=5432
dbname=db
password=pass
min_thre=80
max_thre=90
admin_mail=admin@domain.com

No comment in the configuration file is permitted. First 4 lines describe database connection.
min_thre/max_thre – minimum and maximum threshold for notification measure is percent. If minimum threshold will be reached user receive mail about quota exceeding. In case of maximum reaching, mail also will be sent to administrator.

To make checking on regular basis add it into the crontab file.

crontab -l
# m h  dom mon dow   command
59 23 * * *     /path/to/mail_quota.pl /path/to/mail_quota.conf

Below we check mail quota every day at 23.59.