Szerkesztő:GumiBot/codeadhoc 1

A(z) adhoc_1. kódú hibát javító kódrészlet[szerkesztés]

sub fix_adhoc_1 {	# {{MEK}} berakasa
    my ($error_code, $title_str, $text_str) = @_;

    my $count = 0;
    $count += $text_str =~ s/([\*=\[>] *)http:\/\/mek\.(oszk|niif)\.hu\/([\w\/\.\#\%-]+)([ \|<\}\]]|$)/$1\{\{MEK|$3\}\}$4/igm;

    $count or return ('Nincs MEK-es link');
    my $summary_str = $latin2->decode(
        "Bot: $count MEK-es link sablonosítva"
    );
    return ($summary_str, $count, $text_str);
}