Provision Differences

set_server_info

This snippet of code is found in provision.pl (Inphonex) but not in provision_symbio.pl

?Do we need this in provision_symbio.pl?

    # Enter a cp version for the customer
    unless (
        F::Server::set_server_info(
            $dbh, { server_id => $server_id, cp_version => F::Globals::kCP_VERSION }
        )
      )
    {
        print
          "We were unable to set the customers PBXtra web interface version. Please contact engineering.\n";
    }

    # Set up their default alerts.
    # Kirsle - 2010/02/11

Country and language settings

if ($tz) {

        # set timezone
        # Felix Nilam - 05/04/2010
        # set country to Australia if localtime is in Australia
        if ($tz =~ /Australia/i) {

            # also set the language to au
            # TODO:  Generalize version to arbitrary provider
            F::Server::set_server_info(
                $dbh,
                {
                    'server_id'      => $server_id,
                    'localtime_file' => $tz,
                    'country'        => 'Australia',
                    'language'       => 'au',
                    'provider_type'  => lc($order->{provider}),
                }
            );
        }

determine_software

sub determine_software {
    my $order = shift;

    # determine PBXtra Software version
    my ($pbxtratype);
    if (ref($order) eq "HASH") {

        # regular PBXtra
        ($pbxtratype) = grep { $_->{group_name} eq "PBXtra Software" } @{ $order->{items} };

        # UNBOUND
        if (!$pbxtratype) {
            ($pbxtratype) =
              grep { $_->{group_name} eq "PBXtra UNBOUND User Licenses" } @{ $order->{items} };
        }

        # Connect
        if (!$pbxtratype) {
            ($pbxtratype) =
              grep { $_->{group_name} eq "Connect Australia User Licenses" } @{ $order->{items} };
        }

        # still can't find PBXtra version?
        if (!$pbxtratype) {
            print "ERROR: Unable to determine PBXtra version!\n";
            print "There may be other inaccuracies with this order!\n\n";
        }
    }

    return $pbxtratype;
}

My tags:

 

Popular tags: