#!/usr/bin/perl

use strict;
use warnings;

use lib '.';
use bmhead;

use BM::Module;
use BM::WWW::Operator::Service::ChangePassword;

{ # MAIN
    BM::WWW::Operator::Service::ChangePassword->handler();

    exit( 0);
}

package BM::WWW::Operator::Service::ChangePassword;

use strict;
use warnings;

use Crypt::GeneratePassword qw( chars);

use cfg;

use Logging;
use ActionLog;
use Navigator;

use BM::Exception qw( :try);
use BM::Exceptions;

use BM::Module;

use BM::CGI;
use BM::HTML::Template;
use BM::DBI;
use BM::Messages;
use BM::Error qw(Error);
use BM::GetForm;

use BM::Storable;
use Operator::Auth;

use BL::Service;
use BL::Service::Factory;

use constant MESSAGES    => "$cfg::dir_msg_operators/change_ser.msg";
use constant SG_MESSAGES => "$cfg::dir_msg_common/sg_errors.msg";
use constant TMPL        => "$cfg::dir_tmpl_operators/service/change_password.html";

use constant PARAM_0  => ...
use constant PARAM_1 => ...

our %info = ();

...

sub action {
    my( $auth, $insert) = @_;

    my $dbh = $auth->dbh();

    $dbh->begin_work();

    $insert->{service}->passwd($insert->{new_password});
    $insert->{service}->update();

    if( my $alog = new ActionLog( dbh => $dbh, auth => $auth)) {
        $alog->log(
                   service          => $insert->{service},
                   old_value        => $insert->{old_clnt_passwd},
                   new_value        => $insert->{new_password},
                   staff_comment    => "Operator edit service password: $insert->{description}",
                   action           => 'service_change_password'
                  );
    }

    $dbh->commit();

    print $auth->cgi()->redirect( "../deal_service?service_id=" . $insert->{service_id} . "&session_id=" . $auth->session_id());

    1;
}

...