Codes

• ASM (1)
• Bash (3)
• C (4)
• JavaScript (2)
• Perl (2)
• PHP (2)

while(($id_networks)=$sth->fetchrow()) {
    $sth = $dbh->prepare("select id_networks from stats_networks WHERE id_networks='$id_networks'");
    $sth->execute or die $DBI::errstr;
    ($existe)=$sth->fetchrow();
    if (!is_numeric($existe)) {
        $sth = $dbh->prepare("
                INSERT INTO stats_networks (id_networks) VALUES
                ('$id_networks')");
	$sth->execute or die $DBI::errstr;
	$sth = $dbh->prepare("INSERT INTO stats_users_networks (id_networks) VALUES
                ('$id_networks')");
	$sth->execute or die $DBI::errstr;
	$sth = $dbh->prepare("INSERT INTO stats_servers_networks (id_networks) VALUES
                ('$id_networks')");
	$sth->execute or die $DBI::errstr;
	$sth = $dbh->prepare("INSERT INTO stats_channels_networks (id_networks) VALUES
                ('$id_networks')");
	$sth->execute or die $DBI::errstr;
	
    }
    system(perl irc.pl $id_networks);
}