bitlbee - personal fork of github.com/bitlbee/bitlbee

about summary refs log tree commit diff stats

diff options

Diffstat (limited to 'protocols/oscar/search.h')

0 files changed, 0 insertions, 0 deletions

a id='n25' href='#n25'>25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

#!/usr/bin/perl -w
use strict;

package PoChange;

sub translate($$) {
    my $file = shift;
    my $s = shift;

    if ( $file eq 'FixMyStreet-EmptyHomes' ) {
        return fixmystreet_to_reportemptyhomes( $s );
    } elsif ( $file eq 'FixMyBarangay' ) {
        return fixmystreet_to_fixmybarangay( $s );
    }

    return $s;
}

# Takes a msgid from the main FixMyStreet .po file and
# converts it to a msgid for the ReportEmptyHomes .po file
sub fixmystreet_to_reportemptyhomes($) {
    my $s = shift;

    $s =~ s/FixMyStreet/reportemptyhomes.com/g;
    $s =~ s/\bproblem\b/empty property/g;
    $s =~ s/\bProblem\b/Empty property/g;
    $s =~ s/\bproblems\b/empty properties/g;
    $s =~ s/\bProblems\b/Empty properties/g;
    $s =~ s/a empty/an empty/g;
    $s =~ s/fixed/returned to use/g;

    $s =~ s/Recently put back into use empty properties/Recent empty properties put back into use/;
    $s =~ s/New empty properties/New empty property reports/;
    $s =~ s/Older empty properties/Older empty property reports/;
    $s =~ s/Report, view, or discuss local empty properties/Report and view empty properties/;
    $s =~ s/There were empty properties with your/There were problems with your/;

    $s =~ s/\(like graffiti.*\)/ /;
    $s =~ s/(Please enter your full name).*? -/$1 -/;

    $s =~ s/We send it to the council on your behalf/The details will be sent directly to the right person in the local council for them to take action/;
    $s =~ s/To find out what local alerts we have for you/To find out what local alerts we have in your area, council or ward/;
    $s =~ s/Local alerts/Get local reports/;
    $s =~ s/Report an empty property/Report a property/;
    $s =~ s/Help/FAQs/;

    return $s;
}

sub fixmystreet_to_fixmybarangay($) {
    my $s = shift;

    $s =~ s/FixMyStreet/FixMyBarangay/g;
    $s =~ s/\bcouncil\b/barangay/g;
    $s =~ s/\bCouncil\b/Barangay/g;
    $s =~ s/\bcouncils\b/barangays/g;
    $s =~ s/\bCouncils\b/Barangays/g;

    return $s;
}

1;


context:
space:
mode: