tools/web_projects.dat


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

# database of l10n resources for rebuild_gettext_catalogs.sh script

resources[about/code-of-conduct]="en/about/code-of-conduct/index.php"
resources[about/constitution]="en/about/constitution/index.php"
resources[about/license]="en/about/license/index.php"
resources[about/media]="en/about/media/index.php"
resources[about/policies/privacy]="en/about/policies/privacy/index.php"
resources[about/reports]="en/about/reports/index.php"
resources[about/values]="en/about/values/index.php"
resources[downloads/get]="en/downloads/get/index.php en/downloads/get/lib.php"

resources[2]="en/2/download_index.php en/2/for-pc/index.php en/2/for-server/index.php en/2/index.php en/2/nav.php"
resources[3]="en/3/download_index.php en/3/for-pc/index.php en/3/for-server/index.php en/3/index.php en/3/nav.php"
resources[4]="en/4/download_index.php en/4/nav.php en/4/index.php"
resources[5]="en/5/download_index.php en/5/nav.php en/5/index.php"
resources[6]="en/6/download_index.php en/6/nav.php en/6/index.php"
resources[7]="en/7/download_index.php en/7/nav.php en/7/index.php"

resources[cauldron]="en/downloads/prerelease/download_index.php en/downloads/prerelease/nav.php en/downloads/alternative/index.php"

resources[404]="404.php"
resources[about]="en/about/index.php"
resources[calendar]="en/calendar/index.php"
resources[community]="en/community/index.php"
resources[contact]="en/contact/index.php"
resources[contribute]="en/contribute/index.php"
resources[documentation]="en/doc/index.php en/doc/archive.php en/doc/doc.php"
resources[donate]="en/donate/index.php"
resources[index]="en/index.php"
resources[map]="en/map/index.php"
resources[news]="lib/news.php"
resources[support]="en/support/index.php"
resources[thank-you]="en/thank-you/index.php"
resources[timeline]="en/timeline/index.php"
resources[mognase]="_nav/lib.php"
resources[common_footer]="langs.php"
package network::wireless;

use strict;
use common;

sub convert_wep_key_for_iwconfig {
    #- 5 or 13 characters, consider the key as ASCII and prepend "s:"
    #- else consider the key as hexadecimal, do not strip dashes
    #- always quote the key as string
    my ($real_key, $restricted) = @_;
    my $key = member(length($real_key), (5, 13)) ? "s:$real_key" : $real_key;
    $restricted ? "restricted $key" : "open $key";
}

sub get_wep_key_from_iwconfig {
    #- strip "s:" if the key is 5 or 13 characters (ASCII)
    #- else the key as hexadecimal, do not modify
    my ($key) = @_;
    $key =~ s/^s:// if member(length($key), (7,15));
    my ($mode, $real_key) = $key =~ /^(?:(open|restricted)\s+)?(.*)$/;
    ($real_key, $mode eq 'restricted');
}

sub convert_key_for_wpa_supplicant {
    my ($key) = @_;
    if ($key =~ /^([[:xdigit:]]{4}[\:-])+[[:xdigit:]]{2,}$/) {
        $key =~ s/[\:-]//g;
        return lc($key);
    } else {
        return qq("$key");
    }
}

sub wlan_ng_needed {
    my ($module) = @_;
    $module =~ /^prism2_/;
}

#- FIXME: to be improved (quotes, comments) and moved in common files