Ispcp v1.0.3 testers needed - Printable Version

Code:

    # Saving all current production files it they exist

    foreach($main::cfg{'MTA_VIRTUAL_ALIAS_HASH'}, $main::cfg{'MTA_TRANSPORT_HASH'})

    {

        next if(!-e $_);



        $cmd = "$main::cfg{'CMD_CP'} -p $_ $bkp_dir/$_.$timestamp";

        $rs = sys_command_rs($cmd);

        return $rs if($rs !=0);

    }

Code:

    # Saving all current production files it they exist

    foreach($main::cfg{'MTA_VIRTUAL_ALIAS_HASH'}, $main::cfg{'MTA_TRANSPORT_HASH'})

    {

        next if(!-e $_);

        my ($fname) = /.*\/(.*)$/;



        $cmd = "$main::cfg{'CMD_CP'} -p $_ $bkp_dir/$fname.$timestamp";

        $rs = sys_command_rs($cmd);

        return $rs if($rs !=0);

    }

Code:

# Note About the syntax validation of the mail adress:

#

# The RFC 2822 list quite a few characters that can be

# used in an email address. However, in practice, the

# mail clients accept a limited version of this list.

#

# This regular expression allows the character list in

# the local part of the email. Regarding the domain part,

# the syntax is much more strict.

#

# Local part:

#

#  Validation is a limited version of the syntax allowed by the RFC 2228.

#

# Domain part:

#

# The syntax is much more strict:

#

# - The dash characters are forbidden in the beginning and end of line;

# - The underscore is prohibited;

# - It requires at least one second level domain in accordance with

#   standards set by the both RFC 952 and 1123;

# - It allows only IPv4 domain literal.

if ($rdata =~ /^

                    # Local part :

                    # Optional segment for the local part

                    (?:[-!#\$%&'*+\/=?^`{|}~\w]+\.)*

                    # Segment required for the local part

                    [-!#\$%&'*+\/=?^`{|}~\w]+

                    # Separator

                    @

                    # Domain part

                    (?:

                        # As common form ( ex. local@domain.tld ) :

                        (?:

                            [a-z0-9](?:

                            (?:[.](?!-))?[-a-z0-9]*[a-z0-9](?:(?:(?<!-)[.](?!-))?[-a-z0-9])*)?

                        )+

                        (?<!-)[.][a-z0-9]{2,6}

                        |

                        # As IPv4 domain literal ( ex. local@[192.168.0.130] )

                        (?:\[(?:(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\])

                    )

            $/x

)

        {