#!/usr/bin/perl

chdir("elencopubblico");

@elenco = glob ("*");
print @elenco;
$a=1;
foreach $n (@elenco)
{

@elenco2 = glob ($n."/*.der");
	foreach $n1 (@elenco2)
	{
	$certificato='"'.$n1.'"';	
	print $certificato."\n";
	$risult=`cp $certificato ./$a.der`;
  	$risult=system("openssl x509 -inform der -in $a.der -text >> caitalia.pem");
        if ($risult != 0)
        {
        $risult=system("openssl x509 -inform pem -in $a.der -text >> caitalia.pem");
        }
	$a+=1;
	}

@elenco2 = glob ($n."/*.cer");
	foreach $n1 (@elenco2)
	{
	$certificato='"'.$n1.'"';	
	print $certificato."\n";
	$risult=`cp $certificato ./$a.der`;
  	$risult=system("openssl x509 -inform der -in $a.der -text >> caitalia.pem");
        if ($risult != 0)
        {
        $risult=system("openssl x509 -inform pem -in $a.der -text >> caitalia.pem");
        }
	$a+=1;
	}

@elenco2 = glob ($n."/*.crt");
	foreach $n1 (@elenco2)
	{
	$certificato='"'.$n1.'"';	
	print $certificato."\n";
	$risult=`cp $certificato ./$a.der`;
  	$risult=system("openssl x509 -inform der -in $a.der -text >> caitalia.pem");
        if ($risult != 0)
        {
        $risult=system("openssl x509 -inform pem -in $a.der -text >> caitalia.pem");
        }
	$a+=1;
	}
}