-
Notifications
You must be signed in to change notification settings - Fork 0
/
ECFGTseshaht.pm
executable file
·112 lines (96 loc) · 9.83 KB
/
ECFGTseshaht.pm
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
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
#!/usr/bin/perl
# use moduleuse XML::Simple;
package ECFGTseshaht;
use XML::Simple;
use Data::Dumper;
use HTTP::Date;
use utf8;
use Encode;
use Exporter;
our @ISA= qw(Exporter);
# these CAN be exported.
our @EXPORT_OK = qw( tseshaht_weather );
# these are exported by default.
our @EXPORT = qw( tseshaht_weather );
sub tseshaht_weather {
#print "hello";
my ($fullforecast,$warnLink,$thunderLink,$boldDays,$textColor,$freezeDrizzleWarn,$freezeRainWarn,$freezingTemp,$nearfreezeTemp,$hotTemp,$exhotTemp,$exHumidex,$thunderWarn,$flurriesColor,$windyColor,$hRainColor,$vhRainColor,$warningColor,$endedColor,$comma,$forecastlink,$warnings,$warnings2,$warnings3,$forecastPlaceName,$forecastName,$footerMsg,$mainStyleElement,$daystrongStyle,$drizzstrongStyle,$frainstrongStyle,$flurstrongStyle,$snowflstrongStyle,$snowstrongStyle,$ftempstrongStyle,$htempstrongStyle,$thunderstrongStyle) = @_;
####
#GLOSSARY OF HTML ENCODINGS FOR INDIGENOUS LETTERS
# ENCODINGS THAT START WITH A LETTER ARE ADDITIONS THAT CAN BE ADDED TO ANY LETTER.
#
# ʔ = ʔ
# ʕ = ܅
# ḥ = ḥ
# ł = ł
# ƛ = ƛ
# m̓ = m̓
# č = č
#
####
$fullforecast =~ s/Forecast/<span title="What is the day doing?">ʔaaqinḥa n̓aasʔii<\/span>/gi; # "What is the day doing?"
$fullforecast =~ s/ night/<span title="night"> ʔatḥii<\/span>/gi; # "night" ʔatḥii
$fullforecast =~ s/Sunny/<span title="It is nice weatther">ƛ̓upaa<\/span>/gi; # "It is nice weather"
$fullforecast =~ s/ Sun /<span title="Sun"> hupał <\/span>/gi; # "sun"
$fullforecast =~ s/Clearing/<span title="Sky or Ceiling">hinaayił<\/span>/gi; # "Sky or Ceiling" hinaayił
$fullforecast =~ s/ Clear/<span title="good clear night"> kuƛuḥak<\/span>/gi; # "good clear night" kuuhak
$fullforecast =~ s/Raining/<span title="It is raining">m̓iƛaama<\/span>/gi; # "It is raining"
$fullforecast =~ s/ rain/<span title="Rain"> m̓iƛaa<\/span>/gi; # "Rain" m̓iƛaa
$fullforecast =~ s/Showers/<span title="It is raining off and on">m̓iƛm̓iƛš<\/span>/gi; # "It is raining off and on"
$fullforecast =~ s/Cloudy periods/<span title="Times of covered skies"> łiw̓aḥakma<\/span>/gi; # "It is cloudy"
$fullforecast =~ s/partly cloudy/<span title="Parts of covered skies"> naaʔuuksta łiw̓aḥakma <\/span>/gi; # "Part CLoud"
$fullforecast =~ s/ cloudy /<span title="covered skies"> łiw̓aḥakma <\/span>/gi; # "It is cloudy"
$fullforecast =~ s/ cloud/<span title="It is cloudy"> łiw̓aḥakma<\/span>/gi; # "It is cloudy"
$fullforecast =~ s/thunderstorms/<span title="It is stormy">wiiqsiima<\/span>/gi; # "It is stormy"
$fullforecast =~ s/Windy/<span title="It is windy">yuʔi<\/span>/gi; # "It is windy"
$fullforecast =~ s/Wind/<span title="It is windy"> yuʔi <\/span>/gi; # "It is windy"
$fullforecast =~ s/Snowing/<span title="It is snowing">kʷisaama<\/span>/gi; # "It is snowing"
$fullforecast =~ s/Snow/<span title="It is snowing">k̓ʷisšiƛ̓asma<\/span>/gi; # "It will snow k̓ʷisšiƛ̓asma"
$fullforecast =~ s/Flurries/<span title="It is snowing">kʷisaama<\/span>/gi; # "It is snowing"
$fullforecast =~ s/Fog/<span title="It is foggy">ʔučqakma<\/span>/gi; # "It is foggy"
$fullforecast =~ s/Frost/<span title="It is frosty">kʷimacyuma<\/span>/gi; # "It is frosty"
$fullforecast =~ s/Hail/<span title="It is hailing">kacaama<\/span>/gi; # "It is hailing "
$fullforecast =~ s/Winter/<span title="Winter">c̓uʔičḥ<\/span>/gi; # "Winter"
$fullforecast =~ s/December/<span title="Youngest Sibling Moon">y̓ukʷiiqsu<\/span>/gi; # "December" yukwiiqsu
$fullforecast =~ s/January/<span title="Elder Sibling Moon">m̓aam̓iiqsu<\/span>/gi; # "January" maamiiqsu
$fullforecast =~ s/February/<span title="False Spawning Moon">܅etimł<\/span>/gi; # "February" ʕetimł
$fullforecast =~ s/Spring/<span title="Spring">ƛaqʔiičḥ<\/span>/gi; # "SPring" ƛaqʔiičḥ
$fullforecast =~ s/March/<span title="Spawning Moon">܅aayaqimł<\/span>/gi; # "Spawning Moon" ʕaayaqimł
$fullforecast =~ s/April/<span title="Flying Geese Moon">huyaaqimł<\/span>/gi; # "Flying Geese Moon" huyaaqimł
$fullforecast =~ s/ May /<span title="Nesting Moon"> paawaacimł <\/span>/gi; # "Nesting Moon" paawaacimł
$fullforecast =~ s/Sunset/<span title="Sunset">huupatu<\/span>/gi; # "Sunset" huupatu
$fullforecast =~ s/Summer/<span title="Summer">ƛ̓up̓iičḥ<\/span>/gi; # "Summer" /upiičḥ
$fullforecast =~ s/Morning/<span title="Morning">kuʔał<\/span>/gi; # "Morning" kuʔał
$fullforecast =~ s/Noon/<span title="Middle or Noon">ʔapw̓in n̓aas<\/span>/gi; # "Noon" ʔapw̓in n̓aas
$fullforecast =~ s/June/<span title="Berry Moon">qawas̓imł<\/span>/gi; # "June" qawaimł̣
$fullforecast =~ s/July/<span title="Bee Moon">܅asac̓imł<\/span>/gi; # "Bee Moon" ʕasaimł
$fullforecast =~ s/August/<span title="Spring Salmon Moon">sac̓upimł<\/span>/gi; # "August" sacupimł
$fullforecast =~ s/ Fall /<span title="Fall"> ܅ay̓iičḥ <\/span>/gi; # "Fall" ʕayiičḥ
$fullforecast =~ s/Autumn/<span title="Autumn">܅ay̓iičḥ<\/span>/gi; # "Autumn" ʕayiičḥ
$fullforecast =~ s/September/<span title="Dog Salmon Moon">hinkĹuuʔasimł<\/span>/gi; # "September" hinķuuʔasimł
$fullforecast =~ s/October/<span title="Cutting Fish Moon">č̓ayaaqimł<\/span>/gi; # "October" č̓ayaaqimł
$fullforecast =~ s/November/<span title="Sweeping Moon">yaxs˄iƛimł<\/span>/gi; # "October" yaxšiƛimł
$fullforecast =~ s/Storm/<span title="Storm">łaqqiiʔaБma łiwㄺḥmis nučiiБi<\/span>/gi; # "Storm" łaqqii?aƛma łiw'ah.mis nuc^ii?i A Stationary cloud hanging around the top of mountain all dayl it is going to be stormy.
$fullforecast =~ s/sunset/<span title="the sun is setting">huupatu<\/span>/gi; # The sun is setting. huupatu
$fullforecast =~ s/Evening/<span title="Evening">tuupšiƛ<\/span>/gi; # The sun is setting. tuupsiƛ
$fullforecast =~ s/Periods of/<span title="Period">k̓ačƛis<\/span>/gi; # A period of time k̓ačʔis
$fullforecast =~ s/Gold River/<span title="Gold River changed to Machalaht Territory">mačłaatḥ ḥaḥuułi<\/span>/gi; # Gold River changed to Machalaht for the territory of the Machalaht
$fullforecast =~ s/midnight/<span title="Directly translated midnight as middle night"> ʔapw̓in ʔatḥii <\/span>/gi; # Gold River changed to Machalaht for the territory of the Machalaht
$fullforecast =~ s/near/<span title="Direct translation of near">ƛawaa<\/span>/gi; # Replacing the word "near" ƛawaa
$fullforecast =~ s/becoming/<span title="To Become something">ʔuuƛtup$scaron;iƛ<\/span>/gi; # Becoming
$fullforecast =~ s/Lake Cowichan/<span title="Lake Cowichan changed to Cowichan Territory">quw'utsun ḥaḥuułi<\/span>/gi; # Lake Cowichan changed to the territory of Cowichan First Nation quw'utsun
$fullforecast =~ s/Tseshaht/<span title="Proper spelling of Tseshaht">c̓išaaʔatḥ<\/span>/gi; # "Proper spelling of Tseshaht c̓išaaʔatḥ " č
$fullforecast =~ s/Hupacasath/<span title="Proper spelling of Hupacasath">hupač̓asʔatḥ<\/span>/gi; # "Proper spelling of Hupacasath " nuučaan̓uł
$fullforecast =~ s/Nuuchanulth/<span title="Proper spelling of nuuchanulth">nuučaan̓uł<\/span>/gi; # "Proper spelling of Nuu-cha-nulth "
$fullforecast =~ s/Monday/<span title="One day or Monday">n̓upčiił<\/span>/gi; # "One Day or Monday" n̓upčiił
$fullforecast =~ s/Tuesday/<span title="Two days or Tuesday">ʔaƛčiił<\/span>/gi; # "Two days or Tuesday" ʔaƛčiił
$fullforecast =~ s/Wednesday/<span title="Third day">qacc̓ačił<\/span>/gi; # "Third day" qacc̓ačił
$fullforecast =~ s/Thursday/<span title="Four Days or Thursday">muučiił<\/span>/gi; # "Four Days or Thursday" muučiił
$fullforecast =~ s/Friday/<span title="Friday">suč̓ačił<\/span>/gi; # "Friday"" suč̓ačił
$fullforecast =~ s/Sunday/<span title="Sunday">saantii<\/span>/gi; # "Sunday" saantii
$fullforecast =~ s/Territory/<span title="Territory or Chief's Territory'">ḥaḥuułi<\/span>/gi; # "Territory" or "Chief's Territory" ḥaḥuułi
my $nuuchahnulth = "<br><span style='font-size: xx-small;'><span style='color:red;text-decoration:underline;' title='Proper spelling of nuuchanulth'>Hover over nuučaan̓uł words</span> to see English meaning. Displayed in <span title='Proper spelling of Nuuchanulth'>nuučaan̓uł</span> using <span title='Proper spelling of Hupacasath'><a href='https://www.hupacasath.ca/about-us/language-culture/' target='_blank'>hupač̓asʔatḥ</a></span>, <span title='Proper spelling of Tseshaht'><a href='https://tseshaht.com/history-culture/language/' target='_blank'>c̓išaaʔatḥ</a></span>, <span title='Proper spelling of Nuuchanulth'><a href='https://nuuchahnulth.org/language/alpha/alpha-1' target='_blank'>nuučaan̓uł</a></span> sources including <a href='https://www.firstvoices.com/home' target='_blank'>FirstVoices</a>. Go to the <a href='/translations/' target='_blank'>Translations page</a> for the current list of words being substituted.</a> Please contact me if you see any errors or have any suggestions for improvements.</span>";
$fullforecast = $fullforecast . $nuuchahnulth;
return $fullforecast;
}
1;