source: LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm @ 291

package LATMOS::Accounts::Utils;
use 5.010000;
use strict;
use warnings;
use Exporter ();
use vars qw(@ISA @EXPORT_OK @EXPORT);
use utf8;
use LATMOS::Accounts::Log;

our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];

@ISA = qw(Exporter);
@EXPORT = qw(to_ascii exec_command);
@EXPORT_OK = qw(to_ascii exec_command);

sub to_ascii {
    my ($text) = @_;
    return $text unless(defined($text));
    utf8::decode($text) unless(utf8::is_utf8($text));
    $text =~ tr/uà âÀÂÄÀçéÚêëÉÈÊËïîÏÎöÎÖÔÌûÛÜ/uaaaAAAceeeeEEEEiiIIooOOuuUU/;
    $text =~ s/([^[:ascii:]])//;
    $text
} 

sub exec_command {
    my ($command, $env) = @_;

    my @exec = ref $command
        ? (@$command)
        : ($command);
    la_log(LA_DEBUG, 'running command `%s\'', join(' ', @exec));

    my $pid = fork;
    if (!defined($pid)) {
        la_log(LA_ERR, "Can't launch script: cannot fork");
    } elsif ($pid) {
        # Father
        waitpid($pid, 0);
        if (my $exitstatus = $?) {
            la_log(LA_ERR, 'command %s exit with status %d',
                join(' ', @exec), $exitstatus);
        }
    } else {
        # Child
        foreach (keys %{ $env || {} }) {
            $ENV{"LA_$_"} = $env->{$_};
        }
        exec(@exec);
        exit($!);
    }
    1
}


1;