#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Ernad::Erimp;

my $impna=$ARGV[0];
if(not $impna) {
  print "I have no impna to work with. I can do several ones. Just gave several argments\n";
  exit;
}

our $e;
foreach my $impna (@ARGV) {
  $e=Ernad::Erimp->new({'impna'=>$impna});
  my $cgi_file=$e->{'const'}->{'apache_cgi_dir'}."/$impna".'_'.$e->{'const'}->{'name'}.'.fcgi';
  my $cgi_text=$e->{'t'}->t('','cgi_ernad',$cgi_file,{'impna'=>"'$impna'"});
  chmod 0755, $cgi_file;
}