Untitled

my $sql = new Atmail::SQL;

# Query the user-database of @Mail
my @users = $sql->idquery("select Account from Users");


# put users into @users array
foreach(@users) {
        my $user = $_;
        next if(!$user);


        # figure out what install type large ge for geo or normal g for geo
    my ($type);

    if ( $pref{install_size} eq "large" ) {
        $type = $1 if ( $user =~ /^([A-Z]{2})/i );
    }

    if ( $pref{install_size} eq "normal" ) {
        $type = $1 if ( $user =~ /^([A-Z]{1})/i );
    }

        # other if user is a number or combination of numbers to start
    $type = "other" if ( !$type );


        my $quota = $sql->sqlgetfield("select UserQuota from UserSettings_$type where Account=?", $user);

        if($quota)      {
        #$sql->sqldo("Update Users set UserQuota=? where Account=?", $quota, $user);
        #print "Updated quota to $quota for $user\n";

        print "the quota is $quota";

        }

}