From 375d02bca4c452eb8734a10d536668ee8fa7bfd2 Mon Sep 17 00:00:00 2001 From: GeneralChaos81 Date: Tue, 9 Aug 2016 15:24:49 +1000 Subject: [PATCH 01/92] First commit. Deployment works. Deconstruction has problems. --- code/game/objects/items/stacks/sheets/sheet_types.dm | 3 ++- code/game/turfs/simulated/floor.dm | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/code/game/objects/items/stacks/sheets/sheet_types.dm b/code/game/objects/items/stacks/sheets/sheet_types.dm index 0b99edde497..763ea7bdf93 100644 --- a/code/game/objects/items/stacks/sheets/sheet_types.dm +++ b/code/game/objects/items/stacks/sheets/sheet_types.dm @@ -112,7 +112,8 @@ var/global/list/datum/stack_recipe/plasteel_recipes = list( new /datum/stack_recipe("AI core", /obj/structure/AIcore, 4, time = 50, one_per_turf = 1), new /datum/stack_recipe("Surgery Table", /obj/machinery/optable, 5, time = 50, one_per_turf = 1, on_floor = 1), new /datum/stack_recipe("Metal crate", /obj/structure/closet/crate, 10, time = 50, one_per_turf = 1), - new /datum/stack_recipe("Mass Driver frame", /obj/machinery/mass_driver_frame, 3, time = 50, one_per_turf = 1) + new /datum/stack_recipe("Mass Driver frame", /obj/machinery/mass_driver_frame, 3, time = 50, one_per_turf = 1), + new /datum/stack_recipe("Mech Recharge Bay", /turf/simulated/floor/mech_bay_recharge_floor, 2, time = 50, one_per_turf = 1), ) /obj/item/stack/sheet/plasteel diff --git a/code/game/turfs/simulated/floor.dm b/code/game/turfs/simulated/floor.dm index b8a6635225a..a3ca17f7287 100644 --- a/code/game/turfs/simulated/floor.dm +++ b/code/game/turfs/simulated/floor.dm @@ -146,6 +146,8 @@ var/list/icons_to_ignore_at_floor_init = list("damaged1","damaged2","damaged3"," else if(istype(src, /turf/simulated/floor/wood)) to_chat(user, "You forcefully pry off the planks, destroying them in the process.") + else if(istype(src, /turf/simulated/floor/mech_bay_recharge_floor)) + to_chat(user, "You hack apart the mech bay recharge station, destroying it in the process.") //there is probably a better way to do this, but I don't know it. else if(!builtin_tile) to_chat(user, "You are unable to pry up \the [src] with a crowbar.") return 1 From 20b33bcb1ff7c58937b4d1ea4fea5a4c25f62325 Mon Sep 17 00:00:00 2001 From: FalseIncarnate Date: Wed, 10 Aug 2016 06:39:13 -0400 Subject: [PATCH 02/92] WOLOLO New traitor chaplain items: Missionary Robe and Missionary Staff. They look like ordinary chaplain hoodies, but the Missionary Robes actually are armored and can be linked to a single Missionary Staff to recharge "faith" while wearing the robes. The Missionary Staff looks like either the red or blue godstaff nullrods, and is also a nullrod (can't be reskinned). However, the true power comes when linked to a set of Missionary Robes, charging the staff with "faith" that can be used to perform ranged conversions on individual targets within sight of the missionary. Conversions mimic the effects of a mindslave implant, except that it only last for 10 minutes before the victim returns to normal. The victim is specifically told when they deconvert that they forget their actions and master. Conversion is able to overcome loyalty implants sometimes, but if successful it will take longer than normal to recharge. Likewise, the more "educated" crew members (psychiatrist and librarian) are more resistant to conversion, though much less so than the loyalty implanted crew (these resistances do not stack). Civilians, on the other hand, have a chance to only use half the "faith" of a normal conversion, meaning you can attempt another conversion much sooner. Crew that is already mindslaved (whether by a staff or implant) cannot be converted, as they are already mentally dominated, so this can also potentially help you make a new traitor friend if you play your cards right. Successfully converting a crew member mindslaves them to you for 10 minutes, and recolors their worn jumpsuit to match the color of your staff (red or blue, chosen randomly when the staff is spawned). Failure to convert a target expends 25-75 "faith" (based on circumstances), while a successful conversion typically uses 100 "faith" but can use more or less in special cases. As long as you wear the Missionary Robes and keep your Missionary Staff close by, the "faith" recharges passively and will notify you when you are able to attempt another conversion. Times, chances, and values are subject to change. TODO: Upon conversion, play "WOLOLO" to the missionary and new zealot, to inform them both of the good news. Also, testing. --- .../objects/items/weapons/holy_weapons.dm | 144 ++++++++++++++++++ code/modules/clothing/suits/miscellaneous.dm | 43 ++++++ 2 files changed, 187 insertions(+) diff --git a/code/game/objects/items/weapons/holy_weapons.dm b/code/game/objects/items/weapons/holy_weapons.dm index ada15a3b108..76ec5cf8597 100644 --- a/code/game/objects/items/weapons/holy_weapons.dm +++ b/code/game/objects/items/weapons/holy_weapons.dm @@ -445,5 +445,149 @@ if(prob(10)) to_chat(M, "Being in the presence of [holder]'s [src] is interfering with your powers!") +/obj/item/weapon/nullrod/missionary_staff + reskinned = TRUE + icon_state = "godstaff-red" + item_state = "godstaff-red" + name = "holy staff" + desc = "It has a mysterious, protective aura." + description_antag = "This seemingly standard holy staff is actually a disguised neurotransmitter capable of inducing blind zealotry in its victims. It must be allowed to recharge in the presence of a linked set of missionary robes." + w_class = 5 + force = 5 + slot_flags = SLOT_BACK + block_chance = 50 + var/team_color = "red" + var/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/robes = null //the robes linked with this staff + var/faith = 99 //a conversion requires 100 faith to attempt. faith recharges over time while you are wearing missionary robes that have been linked to the staff. +/obj/item/weapon/nullrod/missionary_staff/New() + team_color = pick("red", "blue") + icon_state = "godstaff-[team_color]" + item_state = "godstaff-[team_color]" + name = "[team_color] holy staff" + +/obj/item/weapon/nullrod/missionary_staff/Destroy() + if(robes) //delink on destruction + robes.linked_staff = null + robes = null + ..() + +/obj/item/weapon/nullrod/missionary_staff/attack_self(mob/user) + if(robes) //as long as it is linked, sec can't try to meta by stealing your staff and seeing if they get the link error message + return + if(!ishuman(user)) //prevents the horror (runtimes) of missionary xenos and other non-human mobs that might be able to activate the item + return + var/mob/living/carbon/human/missionary = user + if(missionary.wear_suit && istype(missionary.wear_suit, /obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe)) + if(robes.linked_staff) + to_chat(missionary, "These robes are already linked with a staff and cannot support another. Connection refused.") + return + robes = missionary.wear_suit + robes.linked_staff = src + to_chat(missionary, "Link established. Faith generators initialized. Go spread the word.") + faith = 100 //full charge when a fresh link is made (can't be delinked without destroying the robes so this shouldn't be an exploitable thing) + else + to_chat(missionary, "You must be wearing the missionary robes you wish to link with this staff.") + +/obj/item/weapon/nullrod/missionary_staff/afterattack(mob/living/carbon/human/target, mob/living/carbon/human/missionary, flag, params) + if(!istype(target) || !istype(missionary)) //ishuman checks effectively + return + if(target == missionary) //you can't convert yourself, that would raise too many questions about your own dedication to the cause + return + if(!robes) //staff must be linked to convert + to_chat(missionary, "You must link your staff to a set of missionary robes before attempting conversions.") + return + if(!missionary.wear_suit || missionary.wear_suit != robes) //must be wearing the robes to convert + return + if(faith < 100) + to_chat(missionary, "You don't have enough faith to attempt a conversion right now.") + return + to_chat(missionary, "You concentrate on [target] and begin the conversion ritual...") + if(!target.mind) //no mind means no conversion, but also means no faith lost. + to_chat(missionary, "You halt the conversion as you realize [target] is mindless! Best to save your faith for someone more worthwhile.") + return + if(do_after(missionary, 40)) //4 seconds to temporarily convert, roughly 1 second faster than a vampire's enthrall ability + if(faith < 100) //to stop people from trying to exploit the do_after system to multi-convert, we check again if you have enough faith when it completes + to_chat(missionary, "You don't have enough faith to complete the conversion on [target]!") + return + if(missionary in viewers(target)) //missionary must maintain line of sight to target, but the target doesn't necessary need to be able to see the missionary + do_convert(target, missionary) + return + else + to_chat(missionary, "You lost sight of the target before they could be converted!") + faith -= 25 //they escaped, so you only lost a little faith (to prevent spamming) + return + else //the do_after failed, probably because you moved or dropped the staff + to_chat(missionary, "Your concentration was broken!") + +/obj/item/weapon/nullrod/missionary_staff/proc/do_convert(mob/living/carbon/human/target, mob/living/carbon/human/missionary) + if(!target || !missionary) + return + if(ismindslave(target)) //mindslaves override the staff because the staff is just a temporary mindslave + to_chat(missionary, "Your faith is strong, but their mind is already slaved to someone else's ideals. Perhaps an inquisition would reveal more...") + faith -= 25 //same faith cost as losing sight of them mid-conversion, but did you just find someone who can lead you to a fellow traitor? + if(isloyal(target)) + if(prob(20)) //loyalty implants typically overpower this, but you CAN get lucky and convert still (20% chance of success) + faith -= 125 //yes, this puts it negative. it's gonna take longer to recharge if you manage to convert a one of these people to balance the new power you gained through them + to_chat(missionary, "Through sheer willpower, you overcome their closed mind and rally [target] to your cause! You may need a bit longer than usual before your faith is fully recharged...") + else //80% chance to fail + faith -= 75 + to_chat(missionary, "Your faith is strong, but their mind remains closed to your ideals. Your resolve helps you retain a bit of faith though.") + return + else if(target.mind.assigned_role == "Psychiatrist" || target.mind.assigned_role == "Librarian") //fancy book lernin helps counter religion (day 0 job love, what madness!) + if(prob(35)) //35% chance to fail + to_chat(missionary, "This one is well trained in matters of the mind... They will not be swayed as easily as you thought...") + faith -=50 //lose half your faith to the book-readers + return + else if(target.mind.assigned_role == "Civilian") + if(prob(55)) //55% chance to take LESS faith than normal, because civies are stupid and easily manipulated + to_chat(missionary, "Your message seems to resound well with [target]; converting them was much easier than expected.") + faith -= 50 + else //45% chance to take the normal 100 faith cost + faith -= 100 + else //everyone else takes 100 faith cost because they are normal + to_chat(missionary, "You successfully convert [target] to your cause. The following grows because of your faith!") + faith -= 100 + //if you made it this far: congratulations! you are now a religious zealot! + var/list/implanters + var/ref = "\ref[missionary.mind]" + if(!(missionary.mind in ticker.mode:implanter)) + ticker.mode:implanter[ref] = list() + implanters = ticker.mode:implanter[ref] + implanters.Add(target.mind) + ticker.mode.implanted.Add(target.mind) + ticker.mode.implanted[target.mind] = missionary.mind + //ticker.mode:implanter[missionary.mind] += target.mind + ticker.mode:implanter[ref] = implanters + ticker.mode.traitors += target.mind + target.mind.special_role = "traitor" + to_chat(target, "You're now a loyal zealot of [missionary.name]! You now must lay down your life to protect them and assist in their goals at any cost.") + var/datum/objective/protect/mindslave/MS = new + MS.owner = target.mind + MS.target = missionary:mind + MS.explanation_text = "Obey every order from and protect [missionary:real_name], the [missionary:mind:assigned_role=="MODE" ? (missionary:mind:special_role) : (missionary:mind:assigned_role)]." + target.mind.objectives += MS + for(var/datum/objective/objective in target.mind.objectives) + to_chat(target, "Objective #1: [objective.explanation_text]") + + ticker.mode.update_traitor_icons_added(missionary.mind) + ticker.mode.update_traitor_icons_added(target.mind)//handles datahuds/observerhuds + + if(missionary.mind.som)//do not add if not a traitor..and you just picked up an implanter in the hall... + var/datum/mindslaves/slaved = missionary.mind.som + target.mind.som = slaved + slaved.serv += target + slaved.add_serv_hud(missionary.mind, "master") //handles master servent icons + slaved.add_serv_hud(target.mind, "mindslave") + + if(target.w_uniform) + target.w_uniform.color = team_color + target.update_inv_w_uniform(0,0) + + log_admin("[ckey(missionary.key)] has converted [ckey(target.key)] as a zealot.") + spawn(6000) //10 minutes of zealotry before you return to normal + ticker.mode.remove_traitor_mind(target.mind) + to_chat(target, "You seem to have forgotten the events of the past 10 minutes or so, and your head aches a bit as if someone beat it savagely with a stick.") + to_chat(target, "This means you don't remember who you were working for or what you were doing.") + log_admin("[ckey(target.key)] has deconverted and is no a zealot of [ckey(missionary.key)].") \ No newline at end of file diff --git a/code/modules/clothing/suits/miscellaneous.dm b/code/modules/clothing/suits/miscellaneous.dm index ef89720e0e3..57f90f56a02 100644 --- a/code/modules/clothing/suits/miscellaneous.dm +++ b/code/modules/clothing/suits/miscellaneous.dm @@ -878,3 +878,46 @@ user.reagents.add_reagent("syndicate_nanites", 15) else processing_objects.Remove(src) + +//Syndicate Chaplain Robe (WOLOLO!) +/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe + description_antag = "This robe is made of reinforced fibers, granting it superior protection and also wirelessly generates power for the neurotransmitter in the linked missionary staff while being worn." + armor = list(melee = 10, bullet = 10, laser = 5, energy = 5, bomb = 0, bio = 0, rad = 15) + var/obj/item/weapon/nullrod/missionary_staff/linked_staff = null + +/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/Destroy() + if(linked_staff) //delink on destruction + linked_staff.robes = null + linked_staff = null + ..() + +/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/equipped(mob/living/carbon/human/H, slot) + if(!istype(H) || slot != slot_wear_suit) + if(src in processing_objects) + processing_objects -= src + return + else + processing_objects |= src + +/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/process() + if(!linked_staff) //if we don't have a linked staff, the rest of this is useless + return + + var/mob/living/carbon/human/H = loc + + if(!istype(H)) //if we somehow try to process while not on a human, remove ourselves from processing and return + processing_objects -= src + return + + if(linked_staff.faith >= 100) //if the linked staff is fully recharged, do nothing + return + + if(!linked_staff in range(3, get_turf(src))) //staff won't charge at range (to prevent it from being handed off / stolen and used) + if(prob(10)) //10% chance per process should avoid being too spammy, can tweak if it ends up still being too frequent. + to_chat(H, "Your staff is unable to charge at this range. Get closer!") + return + + linked_staff.faith += 5 + if(linked_staff.faith >= 100) //if this charge puts the staff at or above full, notify the wearer + to_chat(H, "Faith renewed; ready to convert new followers.") + return \ No newline at end of file From b4e687f05778703044301e8c55fcabf7545877bd Mon Sep 17 00:00:00 2001 From: chopchop1614 Date: Thu, 11 Aug 2016 00:28:32 +0100 Subject: [PATCH 03/92] changeling gamemode update --- code/game/gamemodes/changeling/powers/tiny_prick.dm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/code/game/gamemodes/changeling/powers/tiny_prick.dm b/code/game/gamemodes/changeling/powers/tiny_prick.dm index 6f93554766e..f42dabeb998 100644 --- a/code/game/gamemodes/changeling/powers/tiny_prick.dm +++ b/code/game/gamemodes/changeling/powers/tiny_prick.dm @@ -61,7 +61,7 @@ return 1 -/obj/effect/proc_holder/changeling/sting/transformation +obj/effect/proc_holder/changeling/sting/transformation name = "Transformation Sting" desc = "We silently sting a human, injecting a retrovirus that forces them to transform." helptext = "The victim will transform much like a changeling would. The effects will be obvious to the victim, and the process will damage our genomes." @@ -80,8 +80,9 @@ selected_dna = changeling.select_dna("Select the target DNA: ", "Target DNA") if(!selected_dna) return + ..() -/obj/effect/proc_holder/changeling/sting/transformation/can_sting(var/mob/user, var/mob/target) +/obj/effect/proc_holder/changeling/sting/transformation/can_sting(var/mob/user, var/mob/living/carbon/human/target) if(!..()) return if((HUSK in target.mutations) || (!ishuman(target))) @@ -95,6 +96,9 @@ if(H.species.flags & NO_BLOOD) to_chat(user, "This won't work on a creature without a circulatory system.") return 0 + if(H.species.flags & NO_DNA) + to_chat(user, "This won't work on a creature with no DNA.") + return 0 return 1 /obj/effect/proc_holder/changeling/sting/transformation/sting_action(var/mob/user, var/mob/target) From 6caa024e9818522981f13fe99910d1812b44c6e8 Mon Sep 17 00:00:00 2001 From: chopchop1614 Date: Thu, 11 Aug 2016 00:31:23 +0100 Subject: [PATCH 04/92] woops --- code/game/gamemodes/changeling/powers/tiny_prick.dm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/game/gamemodes/changeling/powers/tiny_prick.dm b/code/game/gamemodes/changeling/powers/tiny_prick.dm index f42dabeb998..e12ff058daf 100644 --- a/code/game/gamemodes/changeling/powers/tiny_prick.dm +++ b/code/game/gamemodes/changeling/powers/tiny_prick.dm @@ -82,7 +82,7 @@ obj/effect/proc_holder/changeling/sting/transformation return ..() -/obj/effect/proc_holder/changeling/sting/transformation/can_sting(var/mob/user, var/mob/living/carbon/human/target) +/obj/effect/proc_holder/changeling/sting/transformation/can_sting(var/mob/user, var/mob/target) if(!..()) return if((HUSK in target.mutations) || (!ishuman(target))) From 225b63ffa5ef31c0885af9446da5fb1c174648a6 Mon Sep 17 00:00:00 2001 From: Chopchop1614 Date: Thu, 11 Aug 2016 00:42:37 +0100 Subject: [PATCH 05/92] Update tiny_prick.dm --- code/game/gamemodes/changeling/powers/tiny_prick.dm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/game/gamemodes/changeling/powers/tiny_prick.dm b/code/game/gamemodes/changeling/powers/tiny_prick.dm index e12ff058daf..ece89e32a9c 100644 --- a/code/game/gamemodes/changeling/powers/tiny_prick.dm +++ b/code/game/gamemodes/changeling/powers/tiny_prick.dm @@ -97,7 +97,7 @@ obj/effect/proc_holder/changeling/sting/transformation to_chat(user, "This won't work on a creature without a circulatory system.") return 0 if(H.species.flags & NO_DNA) - to_chat(user, "This won't work on a creature with no DNA.") + to_chat(user, "This won't work on a creature without DNA.") return 0 return 1 From f9a91eba5527ad9a3adfd6ad457330a9376994b5 Mon Sep 17 00:00:00 2001 From: GeneralChaos81 Date: Thu, 11 Aug 2016 12:03:50 +1000 Subject: [PATCH 06/92] Added the attackby proc to mech_bay.dm instead of an else in floor.dm --- code/game/mecha/mech_bay.dm | 16 ++++++++++++++++ code/game/turfs/simulated/floor.dm | 2 -- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/code/game/mecha/mech_bay.dm b/code/game/mecha/mech_bay.dm index 46c92271308..eb00f7d5eba 100644 --- a/code/game/mecha/mech_bay.dm +++ b/code/game/mecha/mech_bay.dm @@ -22,6 +22,22 @@ recharging_mecha = null return ..() + +/turf/simulated/floor/mech_bay_recharge_floor/attackby(obj/item/C as obj, mob/user as mob, params) + if(!C || !user) // I don't know what these do, they're leftovers from floor.dm + return 1 + if(..()) // Ditto + return 1 + if(intact && istype(C, /obj/item/weapon/screwdriver)) //Can't be a crowbar, because otherwise the attackby() for floor.dm intercepts the call + to_chat(user, "You disassemble the mech bay recharge station.") + Destroy() //calls the proc above that stops the machine from working + make_plating() //turns the floor back into uncovered plates + //how to get back the plasteel? + playsound(src, 'sound/items/Crowbar.ogg', 80, 1) + return 1 + return 0 + + /turf/simulated/floor/mech_bay_recharge_floor/Entered(var/obj/mecha/mecha, atom/OL, ignoreRest = 0) . = ..() if(istype(mecha)) diff --git a/code/game/turfs/simulated/floor.dm b/code/game/turfs/simulated/floor.dm index a3ca17f7287..b8a6635225a 100644 --- a/code/game/turfs/simulated/floor.dm +++ b/code/game/turfs/simulated/floor.dm @@ -146,8 +146,6 @@ var/list/icons_to_ignore_at_floor_init = list("damaged1","damaged2","damaged3"," else if(istype(src, /turf/simulated/floor/wood)) to_chat(user, "You forcefully pry off the planks, destroying them in the process.") - else if(istype(src, /turf/simulated/floor/mech_bay_recharge_floor)) - to_chat(user, "You hack apart the mech bay recharge station, destroying it in the process.") //there is probably a better way to do this, but I don't know it. else if(!builtin_tile) to_chat(user, "You are unable to pry up \the [src] with a crowbar.") return 1 From 8028695077f527b936685df50ccd68f631be86f7 Mon Sep 17 00:00:00 2001 From: FalseIncarnate Date: Wed, 10 Aug 2016 23:40:02 -0400 Subject: [PATCH 07/92] WOLOLO AEOOEO --- code/datums/mind.dm | 49 +++++++++ code/datums/uplink_item.dm | 10 +- .../objects/items/weapons/holy_weapons.dm | 93 +++++++----------- .../items/weapons/storage/uplink_kits.dm | 13 +++ code/modules/clothing/suits/miscellaneous.dm | 2 +- sound/misc/wololo.ogg | Bin 0 -> 20847 bytes 6 files changed, 109 insertions(+), 58 deletions(-) create mode 100644 sound/misc/wololo.ogg diff --git a/code/datums/mind.dm b/code/datums/mind.dm index 21ff9dcd3fc..de98b6e5808 100644 --- a/code/datums/mind.dm +++ b/code/datums/mind.dm @@ -75,6 +75,9 @@ //put this here for easier tracking ingame var/datum/money_account/initial_account + //zealot_master is a reference to the mob that converted them into a zealot (for ease of investigation and such) + var/mob/living/carbon/human/zealot_master = null + /datum/mind/proc/transfer_to(mob/living/new_character) if(!istype(new_character)) log_to_dd("## DEBUG: transfer_to(): Some idiot has tried to transfer_to() a non mob/living mob. Please inform Carn") @@ -1527,6 +1530,52 @@ if(G) G.reenter_corpse() +/datum/mind/proc/make_zealot(mob/living/carbon/human/missionary) + if(!missionary || !istype(missionary)) //better provide a proper missionary or the rest of this is gonna break + return 0 + + zealot_master = missionary + + var/list/implanters + var/ref = "\ref[missionary.mind]" + if(!(missionary.mind in ticker.mode:implanter)) + ticker.mode:implanter[ref] = list() + implanters = ticker.mode:implanter[ref] + implanters.Add(src) + ticker.mode.implanted.Add(src) + ticker.mode.implanted[src] = missionary.mind + //ticker.mode:implanter[missionary.mind] += src + ticker.mode:implanter[ref] = implanters + ticker.mode.traitors += src + special_role = "traitor" + to_chat(current, "You're now a loyal zealot of [missionary.name]! You now must lay down your life to protect them and assist in their goals at any cost.") + var/datum/objective/protect/mindslave/MS = new + MS.owner = src + MS.target = missionary:mind + MS.explanation_text = "Obey every order from and protect [missionary:real_name], the [missionary:mind:assigned_role=="MODE" ? (missionary:mind:special_role) : (missionary:mind:assigned_role)]." + objectives += MS + for(var/datum/objective/objective in objectives) + to_chat(current, "Objective #1: [objective.explanation_text]") + + ticker.mode.update_traitor_icons_added(missionary.mind) + ticker.mode.update_traitor_icons_added(src)//handles datahuds/observerhuds + + if(missionary.mind.som)//do not add if not a traitor..and you just picked up a robe and staff in the hall... + var/datum/mindslaves/slaved = missionary.mind.som + som = slaved + slaved.serv += current + slaved.add_serv_hud(missionary.mind, "master") //handles master servent icons + slaved.add_serv_hud(src, "mindslave") + return 1 + +/datum/mind/proc/remove_zealot() + if(!zealot_master) //if they aren't a zealot, we can't remove their zealot status, obviously. don't bother with the rest so we don't confuse them with the messages + return + zealot_master = null + ticker.mode.remove_traitor_mind(src) + to_chat(current, "You seem to have forgotten the events of the past 10 minutes or so, and your head aches a bit as if someone beat it savagely with a stick.") + to_chat(current, "This means you don't remember who you were working for or what you were doing.") + //Initialisation procs /mob/proc/mind_initialize() if(mind) diff --git a/code/datums/uplink_item.dm b/code/datums/uplink_item.dm index 211374c3c31..e0a7f2e2b33 100644 --- a/code/datums/uplink_item.dm +++ b/code/datums/uplink_item.dm @@ -180,6 +180,14 @@ var/list/uplink_items = list() cost = 13 job = list("Chaplain") +/datum/uplink_item/jobspecific/missionary_kit + name = "Missionary Starter Kit" + desc = "A box containing a missionary staff, missionary robes, and bible. The robes and staff can be linked to allow you to convert victims at range for a short time to do your bidding. The bible is for bible stuff." + reference = "MK" + item = /obj/item/weapon/storage/box/syndie_kit/missionary_set + cost = 15 + job = list("Chaplain") + /datum/uplink_item/jobspecific/artistic_toolbox name = "Artistic Toolbox" desc = "An accursed toolbox that grants its followers extreme power at the cost of requiring repeated sacrifices to it. If sacrifices are not provided, it will turn on its follower." @@ -309,7 +317,7 @@ var/list/uplink_items = list() item = /obj/item/clothing/under/contortionist cost = 6 job = list("Life Support Specialist") - + /datum/uplink_item/dangerous/energizedfireaxe name = "Energized Fire Axe" desc = "A fire axe with a massive electrical charge built into it. It can release this charge on its first victim and will be rather plain after that." diff --git a/code/game/objects/items/weapons/holy_weapons.dm b/code/game/objects/items/weapons/holy_weapons.dm index 76ec5cf8597..64088ddaa65 100644 --- a/code/game/objects/items/weapons/holy_weapons.dm +++ b/code/game/objects/items/weapons/holy_weapons.dm @@ -58,9 +58,9 @@ qdel(src) /obj/item/weapon/nullrod/godhand + name = "god hand" icon_state = "disintegrate" item_state = "disintegrate" - name = "god hand" desc = "This hand of yours glows with an awesome power!" flags = ABSTRACT | NODROP w_class = 5 @@ -69,9 +69,9 @@ attack_verb = list("punched", "cross countered", "pummeled") /obj/item/weapon/nullrod/staff + name = "red holy staff" icon_state = "godstaff-red" item_state = "godstaff-red" - name = "red holy staff" desc = "It has a mysterious, protective aura." w_class = 5 force = 5 @@ -84,9 +84,9 @@ item_state = "godstaff-blue" /obj/item/weapon/nullrod/claymore + name = "holy claymore" icon_state = "claymore" item_state = "claymore" - name = "holy claymore" desc = "A weapon fit for a crusade!" w_class = 4 slot_flags = SLOT_BACK|SLOT_BELT @@ -102,26 +102,26 @@ return ..() /obj/item/weapon/nullrod/claymore/darkblade + name = "dark blade" icon_state = "cultblade" item_state = "cultblade" - name = "dark blade" desc = "Spread the glory of the dark gods!" slot_flags = SLOT_BELT hitsound = 'sound/hallucinations/growl1.ogg' /obj/item/weapon/nullrod/claymore/chainsaw_sword + name = "sacred chainsaw sword" icon_state = "chainswordon" item_state = "chainswordon" - name = "sacred chainsaw sword" desc = "Suffer not a heretic to live." slot_flags = SLOT_BELT attack_verb = list("sawed", "torn", "cut", "chopped", "diced") hitsound = 'sound/weapons/chainsaw.ogg' /obj/item/weapon/nullrod/claymore/glowing + name = "force weapon" icon_state = "swordon" item_state = "swordon" - name = "force weapon" desc = "The blade glows with the power of faith. Or possibly a battery." slot_flags = SLOT_BELT @@ -171,9 +171,9 @@ attack_verb = list("attacked", "slashed", "stabbed", "sliced", "torn", "ripped", "diced", "cut") /obj/item/weapon/nullrod/scythe + name = "reaper scythe" icon_state = "scythe0" item_state = "scythe0" - name = "reaper scythe" desc = "Ask not for whom the bell tolls..." w_class = 4 armour_penetration = 35 @@ -184,16 +184,16 @@ hitsound = 'sound/weapons/bladeslice.ogg' /obj/item/weapon/nullrod/scythe/vibro + name = "high frequency blade" icon_state = "hfrequency0" item_state = "hfrequency1" - name = "high frequency blade" desc = "Bad references are the DNA of the soul." attack_verb = list("chopped", "sliced", "cut", "zandatsu'd") /obj/item/weapon/nullrod/scythe/talking + name = "possessed blade" icon_state = "talking_sword" item_state = "talking_sword" - name = "possessed blade" desc = "When the station falls into chaos, it's nice to have a friend by your side." attack_verb = list("chopped", "sliced", "cut") hitsound = 'sound/weapons/bladeslice.ogg' @@ -234,9 +234,9 @@ return ..() /obj/item/weapon/nullrod/hammmer + name = "relic war hammer" icon_state = "hammeron" item_state = "hammeron" - name = "relic war hammer" desc = "This war hammer cost the chaplain fourty thousand space dollars." slot_flags = SLOT_BELT w_class = 5 @@ -255,10 +255,10 @@ hitsound = 'sound/weapons/chainsaw.ogg' /obj/item/weapon/nullrod/clown + name = "clown dagger" icon = 'icons/obj/wizard.dmi' icon_state = "clownrender" item_state = "gold_horn" - name = "clown dagger" desc = "Used for absolutely hilarious sacrifices." hitsound = 'sound/items/bikehorn.ogg' sharp = 1 @@ -342,9 +342,9 @@ item_state = "bostaff0" /obj/item/weapon/nullrod/tribal_knife + name = "arrhythmic knife" icon_state = "crysknife" item_state = "crysknife" - name = "arrhythmic knife" w_class = 5 desc = "They say fear is the true mind killer, but stabbing them in the head works too. Honour compels you to not sheathe it once drawn." sharp = 1 @@ -366,9 +366,9 @@ slowdown = rand(-2, 2) /obj/item/weapon/nullrod/pitchfork + name = "unholy pitchfork" icon_state = "pitchfork0" item_state = "pitchfork0" - name = "unholy pitchfork" w_class = 3 desc = "Holding this makes you look absolutely devilish." attack_verb = list("poked", "impaled", "pierced", "jabbed") @@ -377,9 +377,9 @@ edge = 1 /obj/item/weapon/nullrod/rosary + name = "prayer beads" icon_state = "rosary" item_state = null - name = "prayer beads" desc = "A set of prayer beads used by many of the more traditional religions in space.
Vampires and other unholy abominations have learned to fear these." force = 0 throwforce = 0 @@ -451,7 +451,7 @@ item_state = "godstaff-red" name = "holy staff" desc = "It has a mysterious, protective aura." - description_antag = "This seemingly standard holy staff is actually a disguised neurotransmitter capable of inducing blind zealotry in its victims. It must be allowed to recharge in the presence of a linked set of missionary robes." + description_antag = "This seemingly standard holy staff is actually a disguised neurotransmitter capable of inducing blind zealotry in its victims. It must be allowed to recharge in the presence of a linked set of missionary robes. Activate the staff while wearing robes to link, then aim the staff at your victim to try and convert them." w_class = 5 force = 5 slot_flags = SLOT_BACK @@ -475,20 +475,23 @@ /obj/item/weapon/nullrod/missionary_staff/attack_self(mob/user) if(robes) //as long as it is linked, sec can't try to meta by stealing your staff and seeing if they get the link error message - return + return 0 if(!ishuman(user)) //prevents the horror (runtimes) of missionary xenos and other non-human mobs that might be able to activate the item - return + return 0 var/mob/living/carbon/human/missionary = user if(missionary.wear_suit && istype(missionary.wear_suit, /obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe)) - if(robes.linked_staff) + var/obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/robe_to_link = missionary.wear_suit + if(robe_to_link.linked_staff) to_chat(missionary, "These robes are already linked with a staff and cannot support another. Connection refused.") - return - robes = missionary.wear_suit + return 0 + robes = robe_to_link robes.linked_staff = src to_chat(missionary, "Link established. Faith generators initialized. Go spread the word.") faith = 100 //full charge when a fresh link is made (can't be delinked without destroying the robes so this shouldn't be an exploitable thing) + return 1 else to_chat(missionary, "You must be wearing the missionary robes you wish to link with this staff.") + return 0 /obj/item/weapon/nullrod/missionary_staff/afterattack(mob/living/carbon/human/target, mob/living/carbon/human/missionary, flag, params) if(!istype(target) || !istype(missionary)) //ishuman checks effectively @@ -522,11 +525,12 @@ to_chat(missionary, "Your concentration was broken!") /obj/item/weapon/nullrod/missionary_staff/proc/do_convert(mob/living/carbon/human/target, mob/living/carbon/human/missionary) - if(!target || !missionary) + if(!target || !istype(target) || !missionary || !istype(missionary)) return - if(ismindslave(target)) //mindslaves override the staff because the staff is just a temporary mindslave + if(ismindslave(target) || target.mind.zealot_master) //mindslaves and zealots override the staff because the staff is just a temporary mindslave to_chat(missionary, "Your faith is strong, but their mind is already slaved to someone else's ideals. Perhaps an inquisition would reveal more...") faith -= 25 //same faith cost as losing sight of them mid-conversion, but did you just find someone who can lead you to a fellow traitor? + return if(isloyal(target)) if(prob(20)) //loyalty implants typically overpower this, but you CAN get lucky and convert still (20% chance of success) faith -= 125 //yes, this puts it negative. it's gonna take longer to recharge if you manage to convert a one of these people to balance the new power you gained through them @@ -540,54 +544,31 @@ to_chat(missionary, "This one is well trained in matters of the mind... They will not be swayed as easily as you thought...") faith -=50 //lose half your faith to the book-readers return + else + to_chat(missionary, "You successfully convert [target] to your cause. The following grows because of your faith!") + faith -= 100 else if(target.mind.assigned_role == "Civilian") if(prob(55)) //55% chance to take LESS faith than normal, because civies are stupid and easily manipulated to_chat(missionary, "Your message seems to resound well with [target]; converting them was much easier than expected.") faith -= 50 else //45% chance to take the normal 100 faith cost + to_chat(missionary, "You successfully convert [target] to your cause. The following grows because of your faith!") faith -= 100 else //everyone else takes 100 faith cost because they are normal to_chat(missionary, "You successfully convert [target] to your cause. The following grows because of your faith!") faith -= 100 //if you made it this far: congratulations! you are now a religious zealot! - var/list/implanters - var/ref = "\ref[missionary.mind]" - if(!(missionary.mind in ticker.mode:implanter)) - ticker.mode:implanter[ref] = list() - implanters = ticker.mode:implanter[ref] - implanters.Add(target.mind) - ticker.mode.implanted.Add(target.mind) - ticker.mode.implanted[target.mind] = missionary.mind - //ticker.mode:implanter[missionary.mind] += target.mind - ticker.mode:implanter[ref] = implanters - ticker.mode.traitors += target.mind - target.mind.special_role = "traitor" - to_chat(target, "You're now a loyal zealot of [missionary.name]! You now must lay down your life to protect them and assist in their goals at any cost.") - var/datum/objective/protect/mindslave/MS = new - MS.owner = target.mind - MS.target = missionary:mind - MS.explanation_text = "Obey every order from and protect [missionary:real_name], the [missionary:mind:assigned_role=="MODE" ? (missionary:mind:special_role) : (missionary:mind:assigned_role)]." - target.mind.objectives += MS - for(var/datum/objective/objective in target.mind.objectives) - to_chat(target, "Objective #1: [objective.explanation_text]") + target.mind.make_zealot(missionary) - ticker.mode.update_traitor_icons_added(missionary.mind) - ticker.mode.update_traitor_icons_added(target.mind)//handles datahuds/observerhuds - - if(missionary.mind.som)//do not add if not a traitor..and you just picked up an implanter in the hall... - var/datum/mindslaves/slaved = missionary.mind.som - target.mind.som = slaved - slaved.serv += target - slaved.add_serv_hud(missionary.mind, "master") //handles master servent icons - slaved.add_serv_hud(target.mind, "mindslave") + target << sound('sound/misc/wololo.ogg', 0, 1, 25) + missionary.say("WOLOLO!") + missionary << sound('sound/misc/wololo.ogg', 0, 1, 25) if(target.w_uniform) target.w_uniform.color = team_color target.update_inv_w_uniform(0,0) log_admin("[ckey(missionary.key)] has converted [ckey(target.key)] as a zealot.") - spawn(6000) //10 minutes of zealotry before you return to normal - ticker.mode.remove_traitor_mind(target.mind) - to_chat(target, "You seem to have forgotten the events of the past 10 minutes or so, and your head aches a bit as if someone beat it savagely with a stick.") - to_chat(target, "This means you don't remember who you were working for or what you were doing.") - log_admin("[ckey(target.key)] has deconverted and is no a zealot of [ckey(missionary.key)].") \ No newline at end of file + spawn(6000) //10 minutes of zealotry before you return to normal (there has to be a better way than this, but I can't think of one that doesn't involve a self-deleting implant/tumor off hand) + target.mind.remove_zealot() + log_admin("[ckey(target.key)] has deconverted and is no longer a zealot of [ckey(missionary.key)].") \ No newline at end of file diff --git a/code/game/objects/items/weapons/storage/uplink_kits.dm b/code/game/objects/items/weapons/storage/uplink_kits.dm index ac994fe4b77..86be5498607 100644 --- a/code/game/objects/items/weapons/storage/uplink_kits.dm +++ b/code/game/objects/items/weapons/storage/uplink_kits.dm @@ -205,3 +205,16 @@ ..() new /obj/item/weapon/grenade/clusterbuster/plasma(src) new /obj/item/weapon/grenade/clusterbuster/n2o(src) + +/obj/item/weapon/storage/box/syndie_kit/missionary_set + name = "Missionary Starter Kit" + +/obj/item/weapon/storage/box/syndie_kit/missionary_set/New() + ..() + new /obj/item/weapon/nullrod/missionary_staff(src) + new /obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe(src) + var/obj/item/weapon/storage/bible/B = new /obj/item/weapon/storage/bible(src) + if(prob(25)) //an omen of success to come? + B.deity_name = "Success" + B.icon_state = "greentext" + B.item_state = "greentext" diff --git a/code/modules/clothing/suits/miscellaneous.dm b/code/modules/clothing/suits/miscellaneous.dm index 57f90f56a02..27ae3c853e0 100644 --- a/code/modules/clothing/suits/miscellaneous.dm +++ b/code/modules/clothing/suits/miscellaneous.dm @@ -881,7 +881,7 @@ //Syndicate Chaplain Robe (WOLOLO!) /obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe - description_antag = "This robe is made of reinforced fibers, granting it superior protection and also wirelessly generates power for the neurotransmitter in the linked missionary staff while being worn." + description_antag = "This robe is made of reinforced fibers, granting it superior protection. The robes also wirelessly generate power for the neurotransmitter in the linked missionary staff while being worn." armor = list(melee = 10, bullet = 10, laser = 5, energy = 5, bomb = 0, bio = 0, rad = 15) var/obj/item/weapon/nullrod/missionary_staff/linked_staff = null diff --git a/sound/misc/wololo.ogg b/sound/misc/wololo.ogg new file mode 100644 index 0000000000000000000000000000000000000000..9c704d99d2ba36b946f661fdd26f7c5721d94dc4 GIT binary patch literal 20847 zcmeFYc~n!^{x^Iw5JLzwfh2|i8p6;JLYpX1gldzJ079?{Bs7L%lK@HrSVwH_lmv(& z3<4^RpcVqe5WpsuVAa}&AvmJQBx0@ejMi$ewYHV_fWv$5UC&z2Z>{I~>s{|&Cnsm` zv(MgVfA@Fze7}32_gAe-2cW>qU>lDiMGX+p?2LMci3HTi{ z`~N-U{h23UrV2W&wv0( z08mr-#D4WqwHN>}0MOX+PTgn6j{Nb=UA$vbdM|L>&z!r9Z_Pt`E_VZo z0qi(!!gHAoO(X$|hA-GA_`|KM-_ zXRskc?~t<#B1Y1p(ibiki+E!q@dx6ptWAYuMTKK^h37J6FER?3cNbpx&trDzWC+k0 zw5T>Htd*$H= zBag0sH*o{^=m!4r?V{t34?SK@0yynpV)@W{>F*xh_U;*C3kigw5>r`sw!fN>}S=3;p1s`bAG*1%1_{Cj&qU=HIzEP)Ahg1NZJ)hoV_pY7Mj#)bCC$I7y#5b@ZK%y=Uvg#G{#A z!^!lhv5f3W$IU(K_bp1wZ*`1I!&^ZH4{LoPQQ)MKbE?@0-&y(48P|bQ(WpiJ`@}sA zK7$Q7`)|jY-~2&le!D(8W&Q*RiSC_lI?mvzfLkC9! z%!t#hIBr)|FpuskUdC~MF~Kh-Cvh$AXpR5zn&6cE!KuUa!AFtrKaM=>!vonR9iMd; zzj1_+n;xAt5|uk5&K)btJ>Q+1dEkrX-Ctb#R8~IWG+R$0aY1_HyPMhh!B&RXYu-9nVt2f-zS5eFAlx6kSgQkKL`|ch3-yW|e2NW3a z;H3rg{zGz{O#gULc=pp%AHNvm;4dFP{doj!}5KD_^L)9@5U`sH&mb`Q*Qk}DW zC^C=4_aQGQM0(aEMqZfr8EUW|fj1&OO~~rVH|i0o#njiR5g;qU8}$ewJZa{Jnf*$J zz^8`zJ|?8FLsrew|LbP{=cWJEAw*3DfGuE$Yy3|_tFo7~YUv)b<-i~;kHo@3W-3Ex-p(&F zgfNF1nG*tF+6gaxmb$5>t2MQ`7BFO?ma!6Km-wA9IDc)O4|U$F;n= zTV*C{z1eD|fgPQhHBn-5R$l$f;zMt}d*)^Bthsw`eQKf_%x%_v9zq-s1U{ewKj#KE z3Km)K9%9Xufkjz!^)H&-cMtlq(vB>((rUGW_68~fE1cVy>)SZ<$iDECz`2cC=XT^S zM_dN)p4bn<_sdQQKz1Tyk6ZR5{ZhYw2;fNjDS#g2g$j8xvlX4~%|SKE`JAM{oU}Ar zSSyM{3)zvzPHJsQTaX;lT9@V)xT7|?jogx!7Ul-117g6R1X-%3 zmG`ZVne1%Y|J73lKrSkUIhU1qwg>IPRk{&K`@I3=9B@Y2dgkq55YLrjvWJ!?wK|C5 zCB$Mua&o7``0g$Lk~FC*V&M9sTjZ8eX$3R%95|BJIz_qtdjf|R<``FW94GEbQ$=(W z^Y6PX+mln61H^pBz|EP;;dnT3g&>c1Uuj&WOq2uQ7W+eUBl8&2O_(|e$X+Y z8azl0s@NCd$jBdb1B~y+0IZOSn7-uU9& zO@Sw{qqO9gH`0<*!1iYPn7uoD7QM`dwT{j__TsKIA0%)Z?M1z=QE5Kd{EK?ZPOzio zupKX&2i2|y2C&rF9R$T*-w)<#f>6GpjkCO$0|4me?P*IRcv?y;v89d^f?qF4Gf>xi zrFFD%PLpp2?=Ub+wik;Q%-NB4ij4})<%c0UcMxL-jLk+BttlG~>R2}D=U2PKQH@R( z0`MmXCqaNxH=P%j!m5D6u3a5Q0Ays1F9mBS28W7ZJl6)m_Pw+E4ZxS=r<^-?C|B)q z==*ytBpb=Wl*6cG$ecHSe%SA~XHBus219bdtUsrQ0U*i?_G59mk?Z{f=FKMuQi6g* zLf?F0b}l1;`5-(*VX)Xi|HLgv=OpQmA(xgNcTWZYGN`V>gd_tH$SlB`%|l)WET$7? z?*cOcix~^{4IFjAAJQ5TL8ph)!Wj$B44pi3e&XJxhc_ngU;29*@(5T^_hGHq6W02$ zYtX(6l66aCCt!oE6&~o1KgJsBV|ln8^~p_Bx4QT#Z+0~`YgQG%XdeJnofZjfKeOeYAJgK!q+rfn2iq*SV<`O!FBM zv>Fg#%HW>R*oV{8nE6ltdP7u`I&lB=8$S|`#|VA5=&+~`w zmhq#H{>c4av#C2epS1=72-;~X{&oHzYo1Sra6BLvD8TlRMaG98t%2{OAMYud)&{M) z1w94>x^U{I+)9(x@I(RqzWDlT_uys^xDWu!9s1Ut z&$s;W-d~U3$BZx`6(M2%e}21f5n(lb>6K$&Z5*_(S#__{8q7oije4Z&`qSw0q}>&E zJs0Y6JtSiH@84eKJo|KM%A5bRe_#EaeI6AG0PRY9oV4HhK|oqsYIv`-dne&?9({Ke$sSCx25m;%U2yTG{hYtw@>E#30d zm*Ou@t4yn*XM6#tl$p_w;Ra(L>@3trm>z!lt+c(+E`ac3VISR|mM*;BvhZQ)^KYZ# ze^d!0y#Gc5PLdFg+j!eJeC}bG!p~377GWK>t}Z*AWVk=EYVr;HcfWYwK*cvrRDEIo z2NQQMLb#9dyC-0S?fTB4K6gd(waH^Q1l}p7;v|m(zog0lt1t@R%JojP&-PyXN`{keiw&XxK zO5w7J90IgoJ4I30X;vyx1||Yna`K4##V5b9rx!)z-|+pU?lYf5_pcQ{Utd6*x8UKR zIkm=_3z;{+vjzy5)V_20l@zc94Ox7bju%j%N}$u8~PG70^a~5c`y| zgc%Q%T#dqy;2f&#ErDjd!%)~^kT($lWGU>E3+l`DA4nHrO1%0Q+K5CUk!pr<6vV?s zvpmxi+h^4nLzg@Y*!i~WA)PaQ)%3JPllW86<5uDx-tCV*#C^kf_y#~OKg0_GxL@ZU zcEioz`fcl>w0~aDQl7TNPRoGfS)3f0fn+gyr1c!NJ;7LsivZ>Z+aflr%Vn&A)pHDB$bQxMh4E2ql!&W@&EGb|4 z&B=?aCI($Jbof6Ry}a+v+<35X>ZSs(`v(kM(XC_fiBI00H&&$I{no3wQF{Xkb`?+T zCJ0WF>qAORD!L!hB3HUadHRK$#oP$@_+WlyKY5i8GB5PZ)3@I2F~*3Fs182y7O?N~ zvAW5(KIslvYe6Eb{dd?{s2umt9Byt&69ZIl;)9iceHQo2)qhqeetmrd)RfH+Hbc+X z#j^*?5B9+_RU|@PMnpva@Fa^4{5ZM0Wb3i{MbqP1i`s|2Eqe1x(4#FEf77wxPbWM`KC!@E47*9CjcljOB&{Mse*E9p+edS#y(a(6-z^fN#(2>3JZ# zoJS&*Lo8IlplLg(Ng#od%ppHiCw9P_mmCO#ctQQhC%S_kh}$PFeDXt45%1BDuVw|{F0EGU^>&GnMG*?3VuN<`TTlBVk{HrMtT z%TuorO+e&CZL`;Pq!*;8D>uxF)GlB~0)UXQ4pZrCF+|vNt$2^VVS_lX!?U2QuswrW z*fHs{sjPBkHj$!r7-UL1WW{6zE8)a@r>E}BOD|Nky?viR4!SXa)sqcd+oJ8G(*R&~ zxakk^u%B?WqIZHyE4RM$SKT4?1Q;=Ykyr~M`JFtc70az;^B_!wT`^{h(_guLnQEw? z2qxo|6i-ianUy98CVAH25!lGzF8_7w>GNgpnJ1_egjTNhjzPKy$uXqM@S(%SLZW*~ ze930i<6EjrVY;0m3d>;#t&wvc(03|9isXVWSJi}b}99{kvXWf13b zWIVA1vaa7&s1aYtxQ|PrcSyAoeMEbmLc;85>}Jdj1C~7dS0iHHswdyZtzUhmcj)%H zV$vtO&j0k_)WK4Z`1b&H@z~J2FQmF93bGIF(Y(F=k>Av4KM;_xn3~s!FcxOh+UJKy^TIGt=J_7Ym$R zfO`xdAe%I9-p7(^1VVRUi}2a5tA)3sN>kO%SX@aU_1g|B^yGqL8d#!dI)LvR?o!E% zn=*3v5027~o?P>#O58;~3EXsTAa>h}J$ zuXS6}f2HQvtonL1Hva1!ha%todj>wO5I|M!_{V(ckBj^?MlVOitDylZKQ#)#;o6}z z3z0cSGt(?cb-g}Jh8L~buC5+1XhP&~l~x->C4@FoK3&R4!zl1#alR0bb_5yR5EnRS z$#6fip+ucTM6jt>1lBo?Iz0os(-~dIfIY#T-M)6 zvgqTFVhG3d*YECJnfe$$0WF9_7^DVq-&;ggeO*RbQa4g~n^@&*kL-{}bxN$Ig&vMb zJOtSDEa1j=dO(rN+P1kMCjF=8UA3)!%TlAnTRm@q3cvkdh{k=_{XiG}hsybPPJG)J zw=m+m9Q5H{rbsD}P$}W@a223S7iyLpRR#*#i{Rhi(Z!H={;XXEgMRC1CF-g={%JULWwRO(x9aZa*CbOF=Th61>;*o%~h@{xstXTtG z{#CezoretA5po6!PU_mq9a|Pj$M;dM`2>w15 zLfg3D>1M;ZP0;gmUkwo$BmvDCTyBNcVzDaVVv(p4%4vK@z>mmhVG;!(L5l(3gDTzsk;cMND@z?82y+U|zQ%OXhL1T54 z>RZdWIRb8pT;JF?H{G)B8!8o0I_ z!rr*?SJbP44N=u}HJ>5F+Y#Xk0RUt4vjYl4y#=Mq+P}+t3s*9l|9dPD){@ao>5!5_ z$GfpYoX58NZ`a)kOjr;TiQ!Fk!F+o9MPf1yncCkJ&;EQq^2p{J)5|UjbAF-}KdO4W z-hx|5DP{8m`7R_Nb81>GWu=v^rKLtgpp1SeZox*{(BEWTgdOWzb|E@iS30>rx**dr zvMl97M#PlKtjxYJJU}x`W%UZVadm?Q;eq`47gR=QzF zaBh8}R;_1y@kNzo%!)9(Hn0NFc0G?j$DJdi5Aq|exZADIYp;K`X#MbFSX~Rn_edXaZt6!R89+NiDhBzvrL+P4LTQw*nH- za!gX4=F79!65d`5z3?Ru-IvgBt;Dy3hX4M=htTIcQ>zoarsZ2j<}HuUrv33>Sup$n zd=HO)xbge95T};#?`m?kpn2n{Wb7)RS2GG!w*oX4#L`@B(Z*T_x%`oSTl)mv&}Kz= zN$6Me<|amsDHbMR!Ut$p{lw_XSVJr+qr7=gB`gENa4Dp0h{bR)w{tsrL!M`_fut&Q zEn|m3!v#AvqO(hBk~&(rxVcEwF{^(w5!$-YevMld-(C32icijxFq0KL&Qv(D`=%KO2U zzR%bGzWi67_tKyLBlkCY!C07w1pq!|EWUYq>&GAQ*ZCCW-|t$mU|*&GtDy_TK?771 zG9e|H?9J$}(z?#tv@RTfZI=x19}!(XsIdE5RhvX}qFlCEeX(+~!>gzdW#OSu(KXf9 zrU54(890XVh{H3Pbbh)sx(XSDbRJVXxj2WykKZ%QN`?5a=^b|3IFjOhZkwu&Rh1erF%Kr-ngIt=)zR1c=Bw+ka|Hy6eWu-LIf3$Z7??(0pO zLOpdmCq>QpNULtt+M{Po%9n>ODl1aI_Br&|kN#P;J!|%?-bBhCxl!`q$F~!|&SC5V zxqI_HXjBdRdpTLNXZ|@Jbj77Rcis4h|6jA3!fGVIJE$2EW+U~gOp0!AD;hEBG=Wy# z#YlkZxz=W_m#LK`gJrTX)a>di&!SY5c&nCY2aB5Af=kmHiJV$Ws7XDk$Jg-rpO{HH zl6f}~Nz^^Mx-9lzhkdu9eTt1tokpLXP~u<7#ioSU)tNHTer_Qp&Z-mpL*{(l^NSl3 z&&M+8or80a+hlnUn1$*0Bl-QqA`k4y07uLp@ftBGr4X3?hws54;Ou6JY2AwnoQXZm zpjhuyF6z7o&!-{NZqu-7_i56!*EDu|9{5iLe}3Rq!1EIqN2E#Phc<3lR^#h;`hy31 z#yR`PJDb-VPED+NK10kpm~rtrPsX2|uQmOfV4S<(y>`8T?X@hoV5gR%lEqlmMpab6 zluj-6i~{;s>P;DkmBwhF9+SB&prMS1ZTDoPtZq5 z031+n*+c*aD~`elU_Dp!@N*h2uAV3)vq`>p2l-KHRs>-~FHWP7 z!TjPF+|glcDJs<9PSYu+?QS|K1!YxP%N(UUz821HSYYp@6fs9xJQpjJg;+#h`ANZ- zaZ5_bXlOYx6bZ{N#Sjzwh9rih-fldXqG|T3WFehjZ%*!EpdB__AA=S1%RJL&^mOIj zIU`+NB70Y1c6OKobb#tq5hk56R5oc5J3MtX09c~BFPU3EeSB}LV9+_qNv|w-i}1mNmMI^DXQ!+kaYnHMUzBPvcEtd zgF78{36=dcZ^c2MzkV3jdzUysd*_uO zZq|rLyHQ0Fm=S#aUzT^OLkp+-e)%Wm%)zan4ac_Qhg$A`HF5Z>JB$8U`~D0C2&3aW z$ZrukuQz0^y0k*(`IARy(Xyh~o<$lYL_{a%V_eb>lW_u#X=s*+8206iPLo&0NMr!N z+(k2*%wsDpVoLR}=v!f_0L_SU4qMC00(B0~XE_hP+eA(5neakt^DY~`O8k4gkT)2} z5FdLG0?ijP1?Y9*Rnu_!I z)wqR7ZXT~-Zs6g~O*&FE(JaX}8hejd?fW{g&ZNnX(FUDO8YPy50FFF1QsNNx^$vH@ z>U5KTzOydGcT=PrAQ(;S@XU}~?aObJE%?!bQ7z4d_bKvefTlNS~q%$kk&f)&&z zEi?zxh|(*@r0vA^tbi$nB@9s5C&qe0GaT|w8w3p(BN?Fan7B`1(!IP}5WH0-8F>uh z?3R4)Z2el|vHjV!goa;N8SkX?^(=IIcLyjVQez!L z=;4bYnhXm8VmxM{nLZ_IuNyaI6!Hb(Hy6bLdsK_vd>1``XZS$jSM}%0YOd7%cfpex zv44sHfRt62x);53cXtg1E^Kh{d^>Gn?|`>v6ANZ>$AJq1fGi3Q!q@bEs{+>{sgPzL z?YS!hf#H?QxAPnlfU%%EM*$JRQdUaCFuJs{r3^-NoqDJt+$yL?Y6JiU{bGr4ZdG6^NXX^v(n<2Oz-t;KI)GsxWl8 z$~7?ARj70g+al2?8F~t6Hh&RpsE5yV}b0h&{q0lIoWR;^hUaElADKZMMtmuvjE^8+O}}L{=>iSE^< z5`23%-VY7K>n91CAU5Cy8!_xQn)L`+H zNu*Ez+%j@;&-l_F+xR`+@UfHc?RxN}YZ+=L@W)CW_lAE21x_t=zv)>HFZf~KXh8O6 z>_|hN(mn%0X46@Iqtzg+V0T!AKx1#euIXytcSMy*r#L{3ZdXe9HtGGld9bMoPiz#t z-KF{f{C!9C%4k={PVf`?iRH?TT^Ct~!mF93X9q@-_sk{DW-n&1~{X ziVlatAOk7h3s9BuK09hKMHmUQkI2lP2-FG48Ua8slrZ^dj2m5CFsf=)TLM_P7Qryn z_cP1y7pFW@G6~)Nk)yai%;o&WL1*CrD

Wp#Zc*2E8?)J3{E;u!YOOHT++sM^sHo z&iS7eRc#q*s6xNdIo3`v!2hjdr)^!1oGW6S3 zhK?}Ny(iDo8UkKY1<=>BAT&UnE$*;N@$Gl>><#A0Q5(gib*ShW9pnMaMp3&fvapIU zvho0_2q;19UhyWop2~T%B*WO8NF9cHGkFCV02U8jv@#e|o1HL4Mw`6lR8y#4>arGw z>spmcaR)__04qhgY1TA4dwc6j+f+(}nuyZCpiqB|%c^k0I(ls7;`Tc8ZbG+b96t(< zXYzKP`QWP`1CDX=B%EQ0S;|Qv(}U$~F4bV7Z$0vC8xAP>joCkp8aLy^i)4Yu?t%uQ z1@we}k$#b8Av)jt+4GumJ4&}@{O&f63wVBIHSzss5#!yz!3DSdX2j)Fp}ydE~UcgIG`UGV_<&TEG{$Gv)t$WZkYSsm8K=!T}tGGvjzt16Hp(}pSR z3Orrq6W^)3Dx2HWb61b=v!RI1264Eg!*C~WvIlD?5fU55fUs6gSxBdbrD*i9nV8j3 zpM(f#Vh|>1L-0zXNuXwPd#f=W)_O4DEoHi-sRE2J-4h?rA3+5P|Xmp7NQWh5Cvz;IJ}-(Is_#U@<-|*8J-@8PhhIS4F@4Xih-`KKC2_k)2|QV zh!&j+2iFU@J6}(^bSwEO5SwVSi?v-MXv6pVi)oQK7j#p zU<=a(H_Yt4UP4=J>$rdSjAFyNz1vcA`uZ%tJNI|DzgK=X>zifKHJ)#Pj@l$2mz#xI z4JT*{-~-)RGR4YEJAR(<+~#*==c&G;rLV}M&Vw$k5ZbK+QtlX;MmQ`Lz~;0Y)EX&2 z-fd*%`pC`7<#HyP&*Y2IYr8CEFx|yaUGp8;1U=f{bEBwyaE)y_-?dt3 zZ!1>5GqxQt6CyIZ(X=|WCv}aC!HzWRNjfWPyvU-|Gcm~oravrY#8A3h7h-B;>FI0G z*Yhy&B3HLTE0Ic!)TEgHrsf)FEsooQ)KJ*LEDX$J4iZD5Xr&ITB2aN*z@p-HC{M)8Frv1dF(!0l(iM@(ip*1j_|p##gb4#-&I4hOMW)k*BZj5tAy zu5Z3rB?(Cqg*mJQp2KpWgoe3!b09VhXUx{y}<&Lf>eTSoAc#f})a3?gfx`ZzzV&kr?_b5b{Vp*TkJ7 zYbnfK4Upg%{lwD8B>f}^MOH|&TD(4ZuYJ>|>4!P;3lAm#m47;;ekIV&pMAB=`HLR% zW7+iv&u2yI$0hJroWc^3z4HKlqeVW)VTd7F#1RxrJq;o2i{zmhj0i%5*!5QQ;lZd3Iy4tMTMHBq#`>9jBE{bp;J;)M$$Y} z4o_w{`n){+4o@iSb#kiOf+gAfj|GM*CO?UT%}FDhuv%nOb^@-9YmyT&@DiC8i7ciA zPE36s#=9Sxn+=Zd%jB%KrH7sw-wXKDzU0rcv4?B^yWk-VzzD?KoZi(bvcbnW>fKvE zZeD%(K4zd_AJYKthI^T|qqCM zUASl&7M2f8_D7d zhYa6d{UcSTUm7WhR3Tdz-ZuP%L&4a@GVg?-CUK^&-W*m(p_(}uw=Do-4wUTYgG}tR zC=?n{6kbM1dS8riCPFg95q;q+=Fgj+JMBB|JsT78pC(M>z{rUAbnrBOI$#+aJgd7(l0Lk3pz4z^y9tv-#1l| z!aQ>&PK4FBSIxyMagDrPZ5^&*&VB{%WcDkEJkwb0S z&dEQ{9rF;h*eU{ow52Ajn^$nqoKWvR2#siIBB~0rrD|LfBv5!f+Gav1tQv_TGs2cj zsv}tRYW>22#dlj<9e5vX{s_wr&Ht|9n|RY%GPw&!S}=JiQeiO~b)`xW@eU7n%M0=R zC@~yk7t(PZR22Z7)2LO*r40y^ZqlvKDkWu%O}<5lE~?LnD9B`Y(um`#F+E}?#t2$8 z)~>%FZT+XvawfOo!@g@_|AMZ4bn?9?2bz|AUAWG3E2z3D?!3jmnAI(Ak}rZ9qdq2= zYHlC&((g;ks$+dU2+H!yM1t%O0|O#l2#%M!F*0B@lu#~T$ivd3qj2IrwlE40_fR=3 zWn)#b5__zLm&!%^_>ZlYa)pPL6FdgmCPl+~R!bv5s`htDrp(RFV?uw=J_Ci|-$`&s z!piF^ahlOgZ?0z((iZQY!UGr`q`Gdj=Y1-Yr_~pOOa2L54SfqSFtaofSu(9sE4=+1`J0{9?ApF7*BEU+e$u{{8*Gjz_B78pu_%QB z^tneB_Sng(qB-;`l?2XDAR*%qx9rJv{)&|L;c zL^xE4wZjDcMbvn*DT6ptlSk$`g>KwzV%$o;4=uQwg}^;{Ozd`vJbXOjxt>w){Dt`E zBHqImk5BjH*KBHiN5O&O5TT@g5m(nLR~A~WfuJ$z)CbZ4n`Q@~)`qB*lQn5Gj1pwI z4t(|QrtHt9Z?2qSl&Z#B*x$eXT=|=Fw{ezHkd`)Biw9)=y+^^e-|oHbE!gzgGe1P* zrWkNDdYRtgjqs|hHnF!? zS3B3`rBqQ9MhAu?>2!K(pH0w?(Ba6}Eo-^A6W9N7&)(H@)skW>RS+ucLp#^>i}>ZFq{Z$}>sbU95q6#$OgsmDn`vRrJ^ z|M2AKySw-NxH2tj*WS?p!?FCYPL15TlOHPX`x6FOf<^g3n$B--<-z7MHmjO1RxlvO z?3QliPTorD>xdL9wR%i3W^jyCO$rclWt3a3YNQSyNAaRn>E!k}5}~i^BE!~3DoXS# z+K7vqBG@zeeRtIktEz&TfzAk4|Dw$mk0rO^Z_*Tjm_WVdqq6dFQsY{ z6RyZiZC6;@tR?5q<-%gDw5tKaGdm$Q{r~sj%9ALYNVR86&(0D&z znpIu)!;`fS?ykOI3Wa@@HaCaz?H9WaAG*+OIqsZAK6BGXLl-nh{oeUT=TwJrpCM__#Z0hZK^gDxiaihH@u|F*}Zpx;RofM=9 zvEp{9UO6^g#}4KWBweh`|C=f&m7YGZTd!)6sfC^Mt~3}358$F zM|(`!7zO+e3z3SL2ceQFTfh}vnI?;$k|OS@GiHdv#XfH|%&uDXKJZJ}Zls|8{#PAE zDSx=`)Jyx~_imuDl-<+z$%u<{_vWi+y@+}wHp;Qnxn$M3cOW@%$ByHW#SY=MkHrHvx z#Es6_NIF)CX;;YgM)PhIwX3JDkC+x|&7+nUVLY`?W*Iko(yOc=S9c%i6%cAH&9rE% z&Rt<`?7H>gtpm*%KX<`s(ipBi18>iO-}s}*mqpc0F-%Fph$2V3GKJTnm!gc?J{I#j z66N{f%{f3p;3AVnLawW8)H(1eeNJmDJ~M+(?;q%v>6HVZUHy`_I50if`QGW(){l=y z{nM3x$9*RS@_cPk`WJEg?(F?%MnYBu3d>0~ZI=$ctM&*Tynavl^~J1r+cMu@J|31F zmCJptcXQlEp$mWxy%3Afx1&@>LOff{65+srzkYDFPkaIBe7ZG^IZfs^okgwiRCE}u z+++d&_s#L*yvkDEVop+akOl`8H=CO*5pcA}h_$pNFc?=Ai|p_3LSXw77{Yd4A(I|~ z6QR#0QQfy_nwx^;{Q2nxMd1>=LP?4?)ghCKJ^O2Vylya1nl(7cp-ovXHyIDFrZ9t; z3LU#~C`Qq%2811{K1`-qoOulgps{va4=aKnWm9QdTPt^W7kCI~qERc77uSe_okzdF za5tV8E%}ceC_7Z2<)f+2(mHv=`fDJNdu!#DHo<6TaNsMI0$?0au^^mc5i<(%8IH{NoCEgv3%xjJ8%JF5786wh0McBh8sJYeC2sK<` z=t}~W>sD2YWxnwBJ~C+M08 zMKpo}a6;5Qb*5T2yx+UeP${1rQ*kwDkRVH>ivz{ML+{=EE@%lJ|B>f`vv=LwD4OTY zZvuX6vpiLOKg%q?kVmz2=oi<2`FK_J;tyAOlOXny)qw=o0P}>!DlXG+f6XqKvv4e) z3JmClVx~$U;xQTi{vx^pY92&n@B;k#1!hPisB#s|9-StuN91~Iq61-2O8nvFV=I}w z9>7M_xl|MAbkBqiyR3(lADo1X&xR@Wlv9xe0mOr-0zchwc{_)rLuG-{x{c`(=KFCYQb)QNEIdygfC$yct{ep!jFXZUe0NRlx2V$Y zcz=6H&R%_lPq?B@Qm?Zr3$^vpbqWP=(2@gS?ERR2uYZ>L0bfe9m{mVKd*ktW!jg_{ zrys8QuRQ2d>D4Nc`UeJfWE*DK4n;vKon2lTI$-!_ehYe_Z)R##oOqH642U6rbLR zA5IF#hK-lJ@h#RUX*4xvj1Cu-fU#39 zEVBuA9&?%69R&5MfB_<$M?rh*`7Fc=>27BE!M~6Gt^94p>F3u;-*?4k6W0H^_0N&3 zM|S;l{H0UmnUhuHYhsa~?8|za@%!g-_jiod61MIZx4I7N`ia_#s7{etqXux`Br*c9Y#Z`#8hXA z=pZS=6k8lhniWL`P%^!-J2e~$g@S-0|1pT)mq;(VcM#QIJ&pe4LTGMZLVKJB4}18= zCB(-US_&rK0a!!HyOZ4x~HfolHOl5de&H#Jb)8D$P6Y?Yx=j|`wnQKmU`&~ua4N3?^WjI@uf(iTT$HGPvb%M+Laubdqk1qwI{l;< zB>SPSKe(%&q^k@wmzC)yY|jfB3_gEGEi92{sRawv@BJM$ws-Gfjl6lx4H*J^+V@fV z7n>*jeV>4cg)&BPL(bjIS^YK8-Fd5FG*>t8>lLp^0+3T6H7cyguGdT4Fy%pnk+ZgX zoxZ-P&kI2q>C!3>Om-Hv*Mnlj>?EwQSzRhIfOSXmR-FetExNkYlqm6(!6ci5)JDL9H?BWTZOmm%`z ziiQHOLS^$R?=z~UGDDlLbyDtu@4nxEOq&z8A+iFq(0h{V4QC>4)i%!2?YSqR;3mJ) zb?{O{lR_Fr@9#AjGYT#kiyYSO!b~v;-d{!|p1c_4Of+H!(R1#;Ehm9-hd0281Pa`t z;R9a#O^1SeHVELg_lo3;*s34?-m2ul)#jdkeo*olSOk(*2kHXHE?X!}GjK0~8`rQhYLJA@uPNSd- zD!GneuvIv9470qrm8dmXwK1d` zs4u)~0_T$g!h*(Vo!s`>yx<_3j$$^dc=Q<=oK$AJr7*bsaHQHOr$UBnpJ3g@Vj>#wWIc}PY2+zY2CG~CSD#d*8|Iw7MwVKC z@Y$AC>3St zO3IF~64?S~hk|Ini1o*WTghfQNqd!=!Q{7t4t113h>jy*XS!EOT?$9JQd&?1ZU#(s z_2^tZB3n7U#jYt6h+D=-S*h4`mlM-J*;_k=>ZMBL+l}iYS;C<6MO6Ob$^EKArIA2T zG;$Th#2{u)!TGlrpUb?$<|d^PNj_?gl9xI%8QEzSr{6r0qrhNU&2H z-&*(lEzenTIek0uX5nXmZGD>?|HryRSVURTPd~lZAlOt)hz9&Z#xf}M9I;ta$3VpZ zs*Q5+lMXZ_9nM5E=w^K1*{Y_Z0uw;4pWq+XxUdch+Hs-NJh)QA_w%kc*vD&! zC{gCR(q-XMh9Oi?6QvaV@JJY0EeJMik!g`6*%nqXGK2#6ZsJ<f&P^s9rL+3F>w>FDX)w^~|Pum-)uvo_}uG zvGAKY$M+*^)?lIv&UY*7tvX|oz0gn@K!JwNa7Y$oaLvEoIAeZRq)Od}NNn>k`|f*w z<-F+9vQFjj<=H(U75%3RGrJ+%zU|A@4nBDuzvKq7>wx7DfbCgs&7u?53i=cWv=cp% z5RZ(*#Jg%GekAffEeTD(mx{;ZQik^<1Y(Z_X$xv|c9^#(4EzQ!tbuIvzp8h)#hWz2 zzLcuKZtf^F+@h4#6G~9_GI0CzXf*x4K}j@Q+K5)K(#|15Q-H%zT3R1URJo!vz^`bQ zQw&-LLm0+Tm?9Z8w_HX#=JFD@nb2er1MaeV5~MRfq{{d*@iX#(aRn|jSI=Yba47%_;zP<2rB z24eHL#6dvgZHBQfaFIj8@a*f-0slW7$ymMXRN>(5Fw-&qZ_C zm(>^__qF}KoVwCZS-lSY2qd}yZNFVLHO|Jtd_?`dwt>3(Xq~3gGt|oe_|{57!jun* zQluuMngkAoYZ(k&WX`MucM~gIy`m`4J})5!K&nZ8vu-Lc7=&tfm%zWG!3 zHxHh={@Cs12Z9+Y`R;fdocn`Xs-d1d@$;>;`Nq$0jYHR8dZkL#9qLG}H7Wzo=J8lq zagfSB-qTfvXUs%+V`51uSV5eCCmdPkQSQW^4<+%)IGRe1 z*xjRP z0rUgGX2n&2>zuDI4MC#4dIcqH%tjz>JAi}$PFXzeLhmuT+62aOHOk5T3_99njfe+T zcLJU3*|#jSNDpo~ml+jJ(c`Mg1swwwvK-LM0qqW>^2n3kb z>8AV9zn=XwYaeHNW?Alg45wg~cfnl7@r|rg-{qYBi6zWIv<RK!(`Fxzd7AW~N#1%!@ZO!(mvxZ$eZ z=9+X#1@wkjY&A|tb?tz)1kq;DfnDr=&sy6tax z-uKP(e4fwuMGXYWS52a@0D$46Cfub<#>#RF)st1Lxw-l}r5(#KDpt*H1hM4u_Um*# zJmx5>9?jVC3`57)aHbn8$2*DVMXT$x3g&*hw$~O4JMor=nh2_QJN3n(F1_0Tk!WPf zZ7&;QB`+P@PSheA6D!pXfNtZ>scHl?TP!p|QX5r4XRcn}vhNDyDj8NCWHKURYI~Kc zgDPzXr}ENtK2fxkO0G)c8G@6+$uwRv-)^)m&V-wiJZ!|bz8cs}_I&&FK<16d{b5_C z71Qh?S$3=yx9@v)8bw6wR`P`J)DVweq**!eDWi2TaWMbKpKc5+h+do>*12q_nn>8X z-65|JUy6CrAEb~I9#C0uaR1$R507)H*cqG_hJkd)Mm|=j9t|76?Xppis*a;p(pQ;|wwu*N$VMh9P)~;agQ7yhKZ~blxO7W$ zn+&+?<+Mr_uKF6)8AmUN?>K05%5-`GI5Jpi)sFluBDL6Orb`If0;m#R?_B_z>nYMTbeG z`d+$x5a`4M(4RFT0cVQc7a|K4#VQcEb`Ri~s?`MnR!mY?kYYnSxw%{WdaaN8;BP+9 z8#BZ=2qS`WehLLlHO5YUq^G=WZ-_}LlY!j}>QWNRZOR8ZiHc{HaFz~kfCP5e2u=&x zyz_$?dp_9RR6ZAGn?G(+?%uVTO)py8Ec@{JX_U7SIe851Ji375mvzYokj`Y7kSG|c(ANAVw{>X11-Bwhy$zrzRYNpob7(J8j^S+j`(d1p#YZ?8GOoymsA`%l z^HS?JWFd2|1T)ROGM>rD68(!#h|PXBtc`OUN!=@ zF{?q<#TiPY*;b^k)SCygqa2^tv6ZcJ(#`mmWasF`Y0%F$ZPX=eYQh0Po_4V zdNX3*kvM*9^-0l*N=fe(8&GB1wknmC_V?UUpWfhsWZf+t!fD=%zTC z!6pH@VbyFt;0F;D+TrAXWvUK~1JrD0@G9mHXDfXS{rjk58@qr#0 z*CPS!s&?9bc#l941)=;=(Kv8@!sPw3QJTz?m!X7evB3Jex<#d(l?WnQ`Grnt^JR~I zLoJh<;qYiifK^O_bWjeTF&PebXTa>fo-UZIo!y|-okdWae5~b!)9L?bcBHQTZ+2Yo MMSxfDPLoN00d74IPXGV_ literal 0 HcmV?d00001 From ae17b3861d62833785fa3fa71ee0a7f4c2d77141 Mon Sep 17 00:00:00 2001 From: GeneralChaos81 Date: Thu, 11 Aug 2016 14:16:05 +1000 Subject: [PATCH 08/92] Fixes where the dropped metal appears and use qdel instead of destroy --- code/game/mecha/mech_bay.dm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/code/game/mecha/mech_bay.dm b/code/game/mecha/mech_bay.dm index eb00f7d5eba..5d947fde38e 100644 --- a/code/game/mecha/mech_bay.dm +++ b/code/game/mecha/mech_bay.dm @@ -12,6 +12,9 @@ nitrogen = 0.01 temperature = TCMB + +///turf/simulated/floor/mech_bay_recharge_floor/BeforeChange() //I'm told this is a better thing to call this request by. Undefinied proc error though. + /turf/simulated/floor/mech_bay_recharge_floor/Destroy() if(recharge_console && recharge_console.recharge_floor == src) recharge_console.recharge_floor = null @@ -28,11 +31,11 @@ return 1 if(..()) // Ditto return 1 - if(intact && istype(C, /obj/item/weapon/screwdriver)) //Can't be a crowbar, because otherwise the attackby() for floor.dm intercepts the call + if(intact && istype(C, /obj/item/weapon/screwdriver)) //Can't be a crowbar, because otherwise the attackby() for floor.dm intercepts the call, I think to_chat(user, "You disassemble the mech bay recharge station.") - Destroy() //calls the proc above that stops the machine from working + new /obj/item/stack/sheet/plasteel(src, 2) + qdel() //calls the proc above that stops the machine from working - Not required with BeforeChange, but that isn't working. make_plating() //turns the floor back into uncovered plates - //how to get back the plasteel? playsound(src, 'sound/items/Crowbar.ogg', 80, 1) return 1 return 0 From b4ce7576131cbb900154bbc5106e25fcab1eca9f Mon Sep 17 00:00:00 2001 From: GeneralChaos81 Date: Fri, 12 Aug 2016 15:09:32 +1000 Subject: [PATCH 09/92] Ported TG's mechbay. Functional. Still can't make/break mechbay floors. No nanoUI yet. Unsure what the effects of commenting that line in admin.dm is. --- code/game/mecha/mech_bay.dm | 277 +++++++++--------------------------- code/modules/admin/admin.dm | 4 +- 2 files changed, 66 insertions(+), 215 deletions(-) diff --git a/code/game/mecha/mech_bay.dm b/code/game/mecha/mech_bay.dm index 5d947fde38e..b4f6748bde8 100644 --- a/code/game/mecha/mech_bay.dm +++ b/code/game/mecha/mech_bay.dm @@ -2,9 +2,6 @@ name = "Mech Bay Recharge Station" icon = 'icons/mecha/mech_bay.dmi' icon_state = "recharge_floor" - var/obj/machinery/mech_bay_recharge_port/recharge_port - var/obj/machinery/computer/mech_bay_power_console/recharge_console - var/obj/mecha/recharging_mecha = null /turf/simulated/floor/mech_bay_recharge_floor/airless icon_state = "recharge_floor_asteroid" @@ -12,82 +9,6 @@ nitrogen = 0.01 temperature = TCMB - -///turf/simulated/floor/mech_bay_recharge_floor/BeforeChange() //I'm told this is a better thing to call this request by. Undefinied proc error though. - -/turf/simulated/floor/mech_bay_recharge_floor/Destroy() - if(recharge_console && recharge_console.recharge_floor == src) - recharge_console.recharge_floor = null - recharge_console = null - if(recharge_port && recharge_port.recharge_floor == src) - recharge_port.recharge_floor = null - recharge_port = null - recharging_mecha = null - return ..() - - -/turf/simulated/floor/mech_bay_recharge_floor/attackby(obj/item/C as obj, mob/user as mob, params) - if(!C || !user) // I don't know what these do, they're leftovers from floor.dm - return 1 - if(..()) // Ditto - return 1 - if(intact && istype(C, /obj/item/weapon/screwdriver)) //Can't be a crowbar, because otherwise the attackby() for floor.dm intercepts the call, I think - to_chat(user, "You disassemble the mech bay recharge station.") - new /obj/item/stack/sheet/plasteel(src, 2) - qdel() //calls the proc above that stops the machine from working - Not required with BeforeChange, but that isn't working. - make_plating() //turns the floor back into uncovered plates - playsound(src, 'sound/items/Crowbar.ogg', 80, 1) - return 1 - return 0 - - -/turf/simulated/floor/mech_bay_recharge_floor/Entered(var/obj/mecha/mecha, atom/OL, ignoreRest = 0) - . = ..() - if(istype(mecha)) - mecha.occupant_message("Initializing power control devices.") - init_devices() - if(recharge_console && recharge_port) - recharging_mecha = mecha - recharge_console.mecha_in(mecha) - return - else if(!recharge_console) - mecha.occupant_message("Control console not found. Terminating.") - else if(!recharge_port) - mecha.occupant_message("Power port not found. Terminating.") - return - -/turf/simulated/floor/mech_bay_recharge_floor/Exited(atom) - . = ..() - if(atom == recharging_mecha) - recharging_mecha = null - if(recharge_console) - recharge_console.mecha_out() - return - -/turf/simulated/floor/mech_bay_recharge_floor/proc/init_devices() - if(!recharge_console) - recharge_console = locate() in range(1,src) - if(!recharge_port) - recharge_port = locate() in get_step(src, WEST) - - if(recharge_console) - recharge_console.recharge_floor = src - if(recharge_port) - recharge_console.recharge_port = recharge_port - if(recharge_port) - recharge_port.recharge_floor = src - if(recharge_console) - recharge_port.recharge_console = recharge_console - return - -/* // temporary fix for broken icon until somebody gets around to make these player-buildable -/turf/simulated/floor/mech_bay_recharge_floor/attackby(obj/item/C as obj, mob/user as mob) - ..() - if(floor_type) - icon_state = "recharge_floor" - else - icon_state = "support_lattice" */ - /obj/machinery/mech_bay_recharge_port name = "Mech Bay Power Port" density = 1 @@ -95,9 +16,12 @@ dir = EAST icon = 'icons/mecha/mech_bay.dmi' icon_state = "recharge_port" - var/turf/simulated/floor/mech_bay_recharge_floor/recharge_floor + var/obj/mecha/recharging_mecha var/obj/machinery/computer/mech_bay_power_console/recharge_console - var/datum/global_iterator/mech_bay_recharger/pr_recharger + var/max_charge = 50 + var/on = 0 + var/repairability = 0 //What's this? I don't think this is a thing on paradise + var/turf/recharging_turf = null /obj/machinery/mech_bay_recharge_port/New() ..() @@ -110,8 +34,7 @@ component_parts += new /obj/item/weapon/stock_parts/capacitor(null) component_parts += new /obj/item/stack/cable_coil(null, 1) RefreshParts() - - pr_recharger = new /datum/global_iterator/mech_bay_recharger(null,0) + recharging_turf = get_step(loc, dir) // this is new. It picks the turf based on the direction the recharger is facing by the looks of it. Still needs to be a recharge_floor /obj/machinery/mech_bay_recharge_port/upgraded/New() ..() @@ -129,17 +52,7 @@ var/MC for(var/obj/item/weapon/stock_parts/capacitor/C in component_parts) MC += C.rating - if(pr_recharger) - pr_recharger.max_charge = MC * 10 - if(recharge_console) - recharge_console.voltage = MC * 10 - -/obj/machinery/mech_bay_recharge_port/Destroy() - qdel(pr_recharger) - pr_recharger = null - recharge_console.recharge_port = null - recharge_floor.recharge_port = null - return ..() + max_charge = MC * 25 /obj/machinery/mech_bay_recharge_port/attackby(obj/item/I, mob/user, params) if(default_deconstruction_screwdriver(user, "recharge_port-o", "recharge_port", I)) @@ -151,70 +64,49 @@ if(exchange_parts(user, I)) return - default_deconstruction_crowbar(I) + if(default_deconstruction_crowbar(I)) + return + return ..() -/obj/machinery/mech_bay_recharge_port/proc/start_charge(var/obj/mecha/recharging_mecha) - if(stat&(NOPOWER|BROKEN)) - recharging_mecha.occupant_message("Power port not responding. Terminating.") - return 0 - else - if(recharging_mecha.cell) - recharging_mecha.occupant_message("Now charging...") - pr_recharger.start(list(src,recharging_mecha)) - return 1 + +/obj/machinery/mech_bay_recharge_port/process() + if(stat & NOPOWER || !recharge_console) + return + if(!recharging_mecha) + recharging_mecha = locate(/obj/mecha) in recharging_turf + if(recharging_mecha) + recharge_console.update_icon() + if(recharging_mecha && recharging_mecha.cell) + if(recharging_mecha.cell.charge < recharging_mecha.cell.maxcharge) + var/delta = min(max_charge, recharging_mecha.cell.maxcharge - recharging_mecha.cell.charge) + recharging_mecha.give_power(delta) + use_power(delta*150) else - return 0 - -/obj/machinery/mech_bay_recharge_port/proc/stop_charge() - if(recharge_console && !recharge_console.stat) - update_icon() - pr_recharger.stop() - return - -/obj/machinery/mech_bay_recharge_port/proc/active() - if(pr_recharger.active()) - return 1 - else - return 0 + recharge_console.update_icon() + if(recharging_mecha.loc != recharging_turf) + recharging_mecha = null + recharge_console.update_icon() + return //This was missing... Is it not needed? Appeared in the original, but not in the port. Added it back in, to be safe. -/obj/machinery/mech_bay_recharge_port/power_change() - if(powered()) - stat &= ~NOPOWER - else - spawn(rand(0, 15)) - stat |= NOPOWER - pr_recharger.stop() - return - -/obj/machinery/mech_bay_recharge_port/proc/set_voltage(new_voltage) - if(new_voltage && isnum(new_voltage)) - pr_recharger.max_charge = new_voltage - return 1 - else - return 0 - -/datum/global_iterator/mech_bay_recharger - delay = 20 - var/max_charge = 50 - check_for_null = 0 //since port.stop_charge() must be called. The checks are made in process() - -/datum/global_iterator/mech_bay_recharger/process(var/obj/machinery/mech_bay_recharge_port/port, var/obj/mecha/mecha) - if(!port) - return 0 - if(mecha && mecha in port.recharge_floor) - if(!mecha.cell) - return - var/delta = min(max_charge, mecha.cell.maxcharge - mecha.cell.charge) - if(delta>0) - mecha.give_power(delta) - port.use_power(delta*150) +/obj/machinery/computer/mech_bay_power_console/proc/reconnect() + if(recharge_port) + return + recharge_port = locate(/obj/machinery/mech_bay_recharge_port) in range(1) + if(!recharge_port ) + for(var/D in cardinal) + var/turf/A = get_step(src, D) + A = get_step(A, D) + recharge_port = locate(/obj/machinery/mech_bay_recharge_port) in A + if(recharge_port) + break + if(recharge_port) + if(!recharge_port.recharge_console) + recharge_port.recharge_console = src else - mecha.occupant_message("Fully charged.") - port.stop_charge() - else - port.stop_charge() - return + recharge_port = null + + /obj/machinery/computer/mech_bay_power_console name = "mech bay power control console" @@ -225,82 +117,35 @@ icon_screen = "recharge_comp" light_color = LIGHT_COLOR_FADEDPURPLE circuit = /obj/item/weapon/circuitboard/mech_bay_power_console - var/autostart = 1 - var/voltage = 50 - var/turf/simulated/floor/mech_bay_recharge_floor/recharge_floor var/obj/machinery/mech_bay_recharge_port/recharge_port -/obj/machinery/computer/mech_bay_power_console/Destroy() - recharge_port.recharge_console = null - recharge_floor.recharge_console = null - return ..() - -/obj/machinery/computer/mech_bay_power_console/proc/mecha_in(var/obj/mecha/mecha) - if(stat&(NOPOWER|BROKEN)) - mecha.occupant_message("Control console not responding. Terminating...") - return - if(recharge_port && autostart) - var/answer = recharge_port.start_charge(mecha) - if(answer) - recharge_port.set_voltage(voltage) - update_icon() - return - -/obj/machinery/computer/mech_bay_power_console/proc/mecha_out() - if(recharge_port) - recharge_port.stop_charge() - update_icon() - return - -/obj/machinery/computer/mech_bay_power_console/power_change() - ..() - if(stat & BROKEN) - update_icon() - if(recharge_port) - recharge_port.stop_charge() - else if(powered()) - update_icon() - stat &= ~NOPOWER - else - spawn(rand(0, 15)) - update_icon() - stat |= NOPOWER - if(recharge_port) - recharge_port.stop_charge() - -/obj/machinery/computer/mech_bay_power_console/set_broken() - ..() - if(recharge_port) - recharge_port.stop_charge() /obj/machinery/computer/mech_bay_power_console/update_icon() - if(!recharge_floor || !recharge_floor.recharging_mecha || !recharge_floor.recharging_mecha.cell || !(recharge_floor.recharging_mecha.cell.charge < recharge_floor.recharging_mecha.cell.maxcharge)) + if(!recharge_port || !recharge_port.recharging_mecha || !recharge_port.recharging_mecha.cell || !(recharge_port.recharging_mecha.cell.charge < recharge_port.recharging_mecha.cell.maxcharge) || stat & (NOPOWER|BROKEN)) icon_screen = "recharge_comp" else icon_screen = "recharge_comp_on" ..() + /obj/machinery/computer/mech_bay_power_console/attack_hand(mob/user as mob) if(..()) return - if(!recharge_floor || !recharge_port) - var/turf/simulated/floor/mech_bay_recharge_floor/F = locate() in range(1,src) - if(F) - F.init_devices() ui_interact(user) /obj/machinery/computer/mech_bay_power_console/ui_interact(mob/user, ui_key = "main", var/datum/nanoui/ui = null, var/force_open = 1) var/list/data = list() - data["has_floor"] = recharge_floor - data["has_port"] = recharge_port - if(recharge_floor && recharge_floor.recharging_mecha && recharge_floor.recharging_mecha.cell) - data["has_mech"] = 1 - data["mecha_name"] = recharge_floor.recharging_mecha || "None" - data["mecha_charge"] = isnull(recharge_floor.recharging_mecha) ? 0 : recharge_floor.recharging_mecha.cell.charge - data["mecha_maxcharge"] = isnull(recharge_floor.recharging_mecha) ? 0 : recharge_floor.recharging_mecha.cell.maxcharge - data["mecha_charge_percentage"] = isnull(recharge_floor.recharging_mecha) ? 0 : round(recharge_floor.recharging_mecha.cell.percent()) - else - data["has_mech"] = 0 + if(recharge_port && !qdeleted(recharge_port)) + data["recharge_port"] = list("mech" = null) + if(recharge_port.recharging_mecha && !qdeleted(recharge_port.recharging_mecha)) + data["recharge_port"]["mech"] = list("health" = recharge_port.recharging_mecha.health, "maxhealth" = initial(recharge_port.recharging_mecha.health), "cell" = null) + if(recharge_port.recharging_mecha.cell && !qdeleted(recharge_port.recharging_mecha.cell)) + data["recharge_port"]["mech"]["cell"] = list( + "critfail" = recharge_port.recharging_mecha.cell.crit_fail, + "charge" = recharge_port.recharging_mecha.cell.charge, + "maxcharge" = recharge_port.recharging_mecha.cell.maxcharge + ) +/* Need to update the nanoUI for these new data types. ui = nanomanager.try_update_ui(user, src, ui_key, ui, data, force_open) if(!ui) // the ui does not exist, so we'll create a new() one @@ -312,3 +157,9 @@ ui.open() // auto update every Master Controller tick ui.set_auto_update(1) + return data +*/ + +/obj/machinery/computer/mech_bay_power_console/initialize() + reconnect() + update_icon() //this the right place for it? Otherwise the computer sits there with a black screen. \ No newline at end of file diff --git a/code/modules/admin/admin.dm b/code/modules/admin/admin.dm index 233cc931831..d0eab325481 100644 --- a/code/modules/admin/admin.dm +++ b/code/modules/admin/admin.dm @@ -897,8 +897,8 @@ var/gamma_ship_location = 1 // 0 = station , 1 = space toArea = locate(/area/shuttle/gamma/space) fromArea.move_contents_to(toArea) - for(var/turf/simulated/floor/mech_bay_recharge_floor/F in toArea) - F.init_devices() +// for(var/turf/simulated/floor/mech_bay_recharge_floor/F in toArea) +// F.init_devices() for(var/obj/machinery/power/apc/A in toArea) A.init() From 258f477eb384869320a7b7ae75eb197cda22cb53 Mon Sep 17 00:00:00 2001 From: Tigercat2000 Date: Fri, 12 Aug 2016 05:46:03 -0700 Subject: [PATCH 10/92] /tg/ mecha - Part 1 Start of porting the /tg/station mecha update. This commit only cleans up the code and adds the proper dependencies for the mecha. - Removes relative pathing from /datum/events - Updated Process_Spacemove() to use atom/movable/proc/get_spacemove_backup() - Basically just makes launching off of unanchored objects in space an OOP behaviour - Removed styling atrocities and relative pathing from most of the mecha files. - Notable exceptions: - code/game/mecha/mech_bay.dm - code/game/mecha/mech_fabricator.dm - code/game/mecha/mecha_construction_paths.dm - code/game/mecha/mecha_parts.dm - code/game/mecha/mecha_wreckage.dm - code/game/mecha/paintkits.dm - Removed dyndomove/dyndoattackby/dyndobulletact. No more icky dynamic calls. Replaced by specific code for the 3 modules that used it. - Refactored module cooldown. It now uses addtimer, and power usage is hooked directly into the cooldown calls. - Added atom/movable/proc/has_buckled_mobs(). Currently not that useful, but, necessary for porting the multi-buckling system from /tg/. - Split code/game/mecha/equipment/tools/tools.dm into multiple files. - Removed snowflake behaviour from exosuit drill. It now calls turf.drill_act(src). - Different from /tg/: Allows you to drill any wall/floor normally. - Drill no longer gibs mobs. It deals 80 organ damage instead. - Drill can be used to harvest dead mobs. - Removed all global_iterator systems from mecha and mecha equipment. Everything now uses object processing. - Mecha now have a turn sound variable and step sound variable. Updated all subtypes to use these instead of snowflake domove procs. - Removed mecha_do_after, mecha now uses the normal do_after. - Removed enter_after, same as above. - /obj/mecha/Process_Spacemove no longer strangely calls the user's spacemove. - /obj/mecha/return_pressure now uses return_air instead of copypasted cabin air detection. - Same for /obj/mecha/return_temperature - Added /obj/mecha/Exited. Basically, properly clears occupant refs, even if they teleport out/otherwise exit improperly. - Added hooks for mecha action buttons; Didn't implement them yet. - Moved mecha UI to code/game/mecha/mecha_topic.dm - Fixed turfs not updating atmos when ChangeTurf(/turf/space) is used. - Updated visible_message and audible_message. Both now use get_mobs_in_view() to ensure that mobs inside containers can see messages. - Removed /obj/item/mecha_parts/mecha_equipment/tool subtype. It had no use. Any subtypes are now just subtypes of /obj/item/mecha_parts/mecha_equipment. --- _maps/map_files/RandomZLevels/spacebattle.dmm | 6 +- _maps/map_files/cyberiad/z2.dmm | 2 +- code/datums/helper_datums/events.dm | 103 +- code/game/atoms_movable.dm | 19 + code/game/machinery/doors/airlock.dm | 2 +- code/game/mecha/combat/combat.dm | 18 +- code/game/mecha/combat/durand.dm | 16 +- code/game/mecha/combat/gygax.dm | 24 +- code/game/mecha/combat/honker.dm | 11 +- code/game/mecha/combat/marauder.dm | 116 +- code/game/mecha/combat/phazon.dm | 35 +- code/game/mecha/combat/recitence.dm | 2 +- code/game/mecha/equipment/mecha_equipment.dm | 73 +- .../mecha/equipment/tools/medical_tools.dm | 1103 ++++++------- .../mecha/equipment/tools/mining_tools.dm | 136 ++ .../game/mecha/equipment/tools/other_tools.dm | 494 ++++++ code/game/mecha/equipment/tools/tools.dm | 1147 -------------- code/game/mecha/equipment/tools/work_tools.dm | 452 ++++++ code/game/mecha/mecha.dm | 1411 +++++------------ code/game/mecha/mecha_topic.dm | 393 +++++ code/game/mecha/medical/medical.dm | 23 +- code/game/mecha/medical/odysseus.dm | 63 +- code/game/mecha/working/ripley.dm | 84 +- code/game/mecha/working/working.dm | 26 - code/game/objects/buckling.dm | 5 + code/game/turfs/turf.dm | 3 + code/modules/mining/mine_turfs.dm | 5 +- code/modules/mob/mob.dm | 14 +- code/modules/mob/mob_movement.dm | 34 +- .../designs/mechfabricator_designs.dm | 20 +- .../xenoarchaeology/artifact/artifact.dm | 2 +- .../artifact/artifact_hoverpod.dm | 31 +- code/modules/surgery/generic.dm | 2 +- paradise.dme | 5 +- 34 files changed, 2716 insertions(+), 3164 deletions(-) create mode 100644 code/game/mecha/equipment/tools/mining_tools.dm create mode 100644 code/game/mecha/equipment/tools/other_tools.dm delete mode 100644 code/game/mecha/equipment/tools/tools.dm create mode 100644 code/game/mecha/equipment/tools/work_tools.dm create mode 100644 code/game/mecha/mecha_topic.dm diff --git a/_maps/map_files/RandomZLevels/spacebattle.dmm b/_maps/map_files/RandomZLevels/spacebattle.dmm index f398c6134e5..3f824e041db 100644 --- a/_maps/map_files/RandomZLevels/spacebattle.dmm +++ b/_maps/map_files/RandomZLevels/spacebattle.dmm @@ -190,8 +190,8 @@ "dH" = (/obj/item/stack/rods,/turf/simulated/floor/plasteel,/area/awaymission/spacebattle/cruiser) "dI" = (/obj/mecha/medical/odysseus,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "dJ" = (/obj/mecha/working/ripley/firefighter,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) -"dK" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) -"dL" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/tool/drill,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) +"dK" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) +"dL" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/drill,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "dM" = (/obj/structure/reagent_dispensers/watertank,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "dN" = (/obj/structure/reagent_dispensers/fueltank,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "dO" = (/obj/structure/stool/bed/chair{dir = 4},/turf/simulated/floor/plasteel{icon_state = "bar"},/area/awaymission/spacebattle/cruiser) @@ -209,7 +209,7 @@ "ea" = (/obj/machinery/gateway{dir = 9},/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "eb" = (/obj/machinery/gateway{dir = 1},/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "ec" = (/obj/machinery/gateway{dir = 5},/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) -"ed" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) +"ed" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/syringe_gun,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "ee" = (/obj/structure/closet/crate{name = "Gold Crate"},/obj/item/mecha_parts/mecha_equipment/repair_droid,/turf/simulated/floor/plating,/area/awaymission/spacebattle/cruiser) "ef" = (/mob/living/simple_animal/hostile/syndicate/melee,/turf/simulated/floor/plasteel{icon_state = "bar"},/area/awaymission/spacebattle/cruiser) "eg" = (/obj/structure/closet/l3closet/security,/turf/simulated/floor/plasteel{icon_state = "red"; dir = 4},/area/awaymission/spacebattle/cruiser) diff --git a/_maps/map_files/cyberiad/z2.dmm b/_maps/map_files/cyberiad/z2.dmm index 1938244976c..c8213e50a6f 100644 --- a/_maps/map_files/cyberiad/z2.dmm +++ b/_maps/map_files/cyberiad/z2.dmm @@ -1127,7 +1127,7 @@ "Eb" = (/obj/structure/rack,/obj/item/clothing/shoes/magboots/syndie{pixel_x = -3; pixel_y = 3},/obj/item/clothing/shoes/magboots/advance,/obj/item/clothing/shoes/magboots{pixel_x = 3; pixel_y = -3},/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) "Ec" = (/obj/structure/rack,/obj/item/clothing/shoes/green{pixel_x = -3; pixel_y = 3},/obj/item/clothing/shoes/centcom,/obj/item/clothing/shoes/syndigaloshes{pixel_x = 3; pixel_y = -3},/obj/item/clothing/shoes/rainbow{pixel_x = -3; pixel_y = 3},/obj/item/clothing/shoes/combat/swat,/obj/item/clothing/shoes/combat{pixel_x = 3; pixel_y = -3},/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) "Ed" = (/obj/structure/rack,/obj/item/clothing/suit/pirate_black{pixel_x = -3; pixel_y = 3},/obj/item/clothing/suit/blacktrenchcoat,/obj/item/clothing/suit/jacket{pixel_x = 3; pixel_y = -3},/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) -"Ee" = (/obj/item/mecha_parts/mecha_equipment/tool/cable_layer,/obj/item/mecha_parts/mecha_equipment/tool/drill/diamonddrill,/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp,/obj/item/mecha_parts/mecha_equipment/tool/rcd,/obj/item/mecha_parts/mecha_equipment/tool/extinguisher,/obj/structure/closet/crate,/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) +"Ee" = (/obj/item/mecha_parts/mecha_equipment/cable_layer,/obj/item/mecha_parts/mecha_equipment/drill/diamonddrill,/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp,/obj/item/mecha_parts/mecha_equipment/rcd,/obj/item/mecha_parts/mecha_equipment/extinguisher,/obj/structure/closet/crate,/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) "Ef" = (/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/turf/unsimulated/wall{desc = "This window appears to be reinforced, it looks nearly impossible to break."; dir = 4; icon = 'icons/turf/shuttle.dmi'; icon_state = "window5_end"; name = "window"; opacity = 0; tag = "icon-window5 (EAST)"},/area/admin) "Eg" = (/obj/structure/rack,/obj/item/clothing/under/syndicate{pixel_x = -3; pixel_y = 3},/obj/item/clothing/under/syndicate/combat,/obj/item/clothing/under/acj{pixel_x = 3; pixel_y = -3},/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) "Eh" = (/obj/structure/mirror{pixel_y = -30},/turf/unsimulated/floor{tag = "icon-floor"; icon_state = "floor"},/area/admin) diff --git a/code/datums/helper_datums/events.dm b/code/datums/helper_datums/events.dm index bb5e76deef3..fa0dccd2a15 100644 --- a/code/datums/helper_datums/events.dm +++ b/code/datums/helper_datums/events.dm @@ -6,62 +6,63 @@ /datum/events var/list/events - New() - ..() - events = new +/datum/events/New() + ..() + events = new - proc/addEventType(event_type as text) - if(!(event_type in events) || !islist(events[event_type])) - events[event_type] = list() - return 1 - return - - - // Arguments: event_type as text, proc_holder as datum, proc_name as text - // Returns: New event, null on error. - proc/addEvent(event_type as text, proc_holder, proc_name as text) - if(!event_type || !proc_holder || !proc_name) - return - addEventType(event_type) - var/list/event = events[event_type] - var/datum/events_event/E = new /datum/events_event(proc_holder,proc_name) - event += E - return E - - // Arguments: event_type as text, any number of additional arguments to pass to event handler - // Returns: null - proc/fireEvent() -// to_chat(world, "Events in [args[1]] called") - var/list/event = listgetindex(events,args[1]) - if(istype(event)) - spawn(-1) - for(var/datum/events_event/E in event) - if(!E.Fire(arglist(args.Copy(2)))) - clearEvent(args[1],E) - return - - // Arguments: event_type as text, E as /datum/events_event - // Returns: 1 if event cleared, null on error - proc/clearEvent(event_type as text, datum/events_event/E) - if(!event_type || !E) - return - var/list/event = listgetindex(events,event_type) - event -= E +/datum/events/proc/addEventType(event_type as text) + if(!(event_type in events) || !islist(events[event_type])) + events[event_type] = list() return 1 + return -/datum/events_event +// Arguments: event_type as text, proc_holder as datum, proc_name as text +// Returns: New event, null on error. +/datum/events/proc/addEvent(event_type as text, proc_holder, proc_name as text) + if(!event_type || !proc_holder || !proc_name) + return + addEventType(event_type) + var/list/event = events[event_type] + var/datum/event/E = new /datum/event(proc_holder,proc_name) + event += E + return E + +// Arguments: event_type as text, any number of additional arguments to pass to event handler +// Returns: null +/datum/events/proc/fireEvent() + //world << "Events in [args[1]] called" + var/list/event = listgetindex(events,args[1]) + if(istype(event)) + spawn(0) + for(var/datum/event/E in event) + if(!E.Fire(arglist(args.Copy(2)))) + clearEvent(args[1],E) + return + +// Arguments: event_type as text, E as /datum/event +// Returns: 1 if event cleared, null on error + +/datum/events/proc/clearEvent(event_type as text, datum/event/E) + if(!event_type || !E) + return + var/list/event = listgetindex(events,event_type) + event -= E + return 1 + + +/datum/event var/listener var/proc_name - New(tlistener,tprocname) - listener = tlistener - proc_name = tprocname - return ..() +/datum/event/New(tlistener,tprocname) + listener = tlistener + proc_name = tprocname + return ..() - proc/Fire() -// to_chat(world, "Event fired") - if(listener) - call(listener,proc_name)(arglist(args)) - return 1 - return \ No newline at end of file +/datum/event/proc/Fire() + //world << "Event fired" + if(listener) + call(listener,proc_name)(arglist(args)) + return 1 + return diff --git a/code/game/atoms_movable.dm b/code/game/atoms_movable.dm index a903e4ea8ed..0dd6c109170 100644 --- a/code/game/atoms_movable.dm +++ b/code/game/atoms_movable.dm @@ -345,3 +345,22 @@ if(buckled_mob == mover) return 1 return ..() + +/atom/movable/proc/get_spacemove_backup() + var/atom/movable/dense_object_backup + for(var/A in orange(1, get_turf(src))) + if(isarea(A)) + continue + else if(isturf(A)) + var/turf/turf = A + if(!turf.density) + continue + return turf + else + var/atom/movable/AM = A + if(!AM.CanPass(src) || AM.density) + if(AM.anchored) + return AM + dense_object_backup = AM + break + . = dense_object_backup diff --git a/code/game/machinery/doors/airlock.dm b/code/game/machinery/doors/airlock.dm index 29dd5b7c9c1..3f21e952a36 100644 --- a/code/game/machinery/doors/airlock.dm +++ b/code/game/machinery/doors/airlock.dm @@ -1001,7 +1001,7 @@ About the new airlock wires panel: to_chat(user, "The hatch is coated with a product that prevents the shaped charge from sticking!") return - if(istype(C, /obj/item/mecha_parts/mecha_equipment/tool/rcd) || istype(C, /obj/item/weapon/rcd)) + if(istype(C, /obj/item/mecha_parts/mecha_equipment/rcd) || istype(C, /obj/item/weapon/rcd)) to_chat(user, "The hatch is made of an advanced compound that cannot be deconstructed using an RCD.") return diff --git a/code/game/mecha/combat/combat.dm b/code/game/mecha/combat/combat.dm index d9b26404cad..99db971b420 100644 --- a/code/game/mecha/combat/combat.dm +++ b/code/game/mecha/combat/combat.dm @@ -3,8 +3,6 @@ var/maxsize = 2 internal_damage_threshold = 50 maint_access = 0 - //add_req_access = 0 - //operation_req_access = list(access_hos) damage_absorption = list("brute"=0.7,"fire"=1,"bullet"=0.7,"laser"=0.85,"energy"=1,"bomb"=0.8) var/am = "d3c2fbcadca903a41161ccc9df9cf948" @@ -26,21 +24,13 @@ /obj/mecha/combat/go_out() - if(src.occupant && src.occupant.client) - src.occupant.client.mouse_pointer_icon = initial(src.occupant.client.mouse_pointer_icon) + if(occupant && occupant.client) + occupant.client.mouse_pointer_icon = initial(occupant.client.mouse_pointer_icon) ..() - return /obj/mecha/combat/Topic(href,href_list) ..() - var/datum/topic_input/filter = new (href,href_list) + var/datum/topic_input/filter = new(href, href_list) if(filter.get("close")) am = null - return - /* - if(filter.get("saminput")) - if(md5(filter.get("saminput")) == am) - occupant_message("From the lies of the Antipath, Circuit preserve us.") - am = null - return - */ \ No newline at end of file + return \ No newline at end of file diff --git a/code/game/mecha/combat/durand.dm b/code/game/mecha/combat/durand.dm index cfe94888123..57614a8e426 100644 --- a/code/game/mecha/combat/durand.dm +++ b/code/game/mecha/combat/durand.dm @@ -22,17 +22,15 @@ ME.attach(src) ME = new /obj/item/mecha_parts/mecha_equipment/weapon/ballistic/missile_rack ME.attach(src) - return /obj/mecha/combat/durand/relaymove(mob/user,direction) if(defence) if(world.time - last_message > 20) - src.occupant_message("Unable to move while in defence mode") + occupant_message("Unable to move while in defence mode") last_message = world.time return 0 . = ..() - return /obj/mecha/combat/durand/verb/defence_mode() @@ -40,17 +38,16 @@ set name = "Toggle defence mode" set src = usr.loc set popup_menu = 0 - if(usr!=src.occupant) + if(usr != occupant) return defence = !defence if(defence) deflect_chance = defence_deflect - src.occupant_message("You enable [src] defence mode.") + occupant_message("You enable [src] defence mode.") else deflect_chance = initial(deflect_chance) - src.occupant_message("You disable [src] defence mode.") - src.log_message("Toggled defence mode.") - return + occupant_message("You disable [src] defence mode.") + log_message("Toggled defence mode.") /obj/mecha/combat/durand/get_stats_part() @@ -72,8 +69,7 @@ /obj/mecha/combat/durand/Topic(href, href_list) ..() if(href_list["toggle_defence_mode"]) - src.defence_mode() - return + defence_mode() /obj/mecha/combat/durand/old desc = "A retired, third-generation combat exosuit utilized by the Nanotrasen corporation. Originally developed to combat hostile alien lifeforms." diff --git a/code/game/mecha/combat/gygax.dm b/code/game/mecha/combat/gygax.dm index 09caf2fcaf0..faa2329f5e4 100644 --- a/code/game/mecha/combat/gygax.dm +++ b/code/game/mecha/combat/gygax.dm @@ -24,7 +24,6 @@ ME.attach(src) ME = new /obj/item/mecha_parts/mecha_equipment/weapon/ballistic/missile_rack/flashbang ME.attach(src) - return /obj/mecha/combat/gygax/dark desc = "A lightweight exosuit, painted in a dark scheme. This model appears to have some modifications." @@ -51,7 +50,6 @@ ME.attach(src) ME = new /obj/item/mecha_parts/mecha_equipment/tesla_energy_relay ME.attach(src) - return /obj/mecha/combat/gygax/dark/add_cell(var/obj/item/weapon/stock_parts/cell/C=null) if(C) @@ -68,31 +66,30 @@ set name = "Toggle leg actuators overload" set src = usr.loc set popup_menu = 0 - if(usr!=src.occupant) + if(usr != occupant) return if(overload) overload = 0 step_in = initial(step_in) step_energy_drain = initial(step_energy_drain) - src.occupant_message("You disable leg actuators overload.") + occupant_message("You disable leg actuators overload.") else overload = 1 step_in = min(1, round(step_in/2)) step_energy_drain = step_energy_drain*overload_coeff - src.occupant_message("You enable leg actuators overload.") - src.log_message("Toggled leg actuators overload.") - return + occupant_message("You enable leg actuators overload.") + log_message("Toggled leg actuators overload.") -/obj/mecha/combat/gygax/dyndomove(direction) - if(!..()) return +/obj/mecha/combat/gygax/domove(direction) + if(!..()) + return if(overload) health-- - if(health < initial(health) - initial(health)/3) + if(health < initial(health) - initial(health) / 3) overload = 0 step_in = initial(step_in) step_energy_drain = initial(step_energy_drain) - src.occupant_message("Leg actuators damage threshold exceded. Disabling overload.") - return + occupant_message("Leg actuators damage threshold exceded. Disabling overload.") /obj/mecha/combat/gygax/get_stats_part() @@ -114,5 +111,4 @@ /obj/mecha/combat/gygax/Topic(href, href_list) ..() if(href_list["toggle_leg_overload"]) - src.overload() - return \ No newline at end of file + overload() \ No newline at end of file diff --git a/code/game/mecha/combat/honker.dm b/code/game/mecha/combat/honker.dm index 4bfd5f9a161..1053b3e9856 100644 --- a/code/game/mecha/combat/honker.dm +++ b/code/game/mecha/combat/honker.dm @@ -24,7 +24,6 @@ ME.attach(src) ME = new /obj/item/mecha_parts/mecha_equipment/weapon/ballistic/missile_rack/mousetrap_mortar ME.attach(src) - return /obj/mecha/combat/honker/get_stats_part() var/integrity = health/initial(health)*100 @@ -45,13 +44,13 @@ HONK pressure: [cabin_pressure>WARNING_HIGH_PRESSURE ? "[cabin_pressure]": cabin_pressure]kPa
HONK temperature: [return_temperature()]°K|[return_temperature() - T0C]°C
Lights: [lights?"on":"off"]
- [src.dna?"DNA-locked:
[src.dna] \[Reset\]
":null] + [dna?"DNA-locked:
[dna] \[Reset\]
":null] "} return output /obj/mecha/combat/honker/get_stats_html() var/output = {" - [src.name] data + [name] data - - -

Health statistics

-
- [get_occupant_dam()] -
-

Reagents in bloodstream

-
- [get_occupant_reagents()] -
-
- [get_available_reagents()] -
- - "} - - proc/get_occupant_dam() - var/t1 - switch(occupant.stat) - if(0) - t1 = "Conscious" - if(1) - t1 = "Unconscious" - if(2) - t1 = "*dead*" - else - t1 = "Unknown" - return {"Health: [occupant.health]% ([t1])
- Core Temperature: [src.occupant.bodytemperature-T0C]°C ([src.occupant.bodytemperature*1.8-459.67]°F)
- Brute Damage: [occupant.getBruteLoss()]%
- Respiratory Damage: [occupant.getOxyLoss()]%
- Toxin Content: [occupant.getToxLoss()]%
- Burn Severity: [occupant.getFireLoss()]%
- "} - - proc/get_occupant_reagents() - if(occupant.reagents) - for(var/datum/reagent/R in occupant.reagents.reagent_list) - if(R.volume > 0) - . += "[R]: [round(R.volume,0.01)]
" - return . || "None" - - proc/get_available_reagents() - var/output - var/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun/SG = locate(/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun) in chassis - if(SG && SG.reagents && islist(SG.reagents.reagent_list)) - for(var/datum/reagent/R in SG.reagents.reagent_list) - if(R.volume > 0) - output += "Inject [R.name]
" - return output - - - proc/inject_reagent(var/datum/reagent/R,var/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun/SG) - if(!R || !occupant || !SG || !(SG in chassis.equipment)) - return 0 - var/to_inject = min(R.volume, inject_amount) - if(to_inject && occupant.reagents.get_reagent_amount(R.id) + to_inject <= inject_amount*2) - occupant_message("Injecting [occupant] with [to_inject] units of [R.name].") - log_message("Injecting [occupant] with [to_inject] units of [R.name].") - SG.reagents.trans_id_to(occupant,R.id,to_inject) - update_equip_info() - return - - container_resist(var/mob/living/L) - go_out() - - update_equip_info() - if(..()) - send_byjax(chassis.occupant,"msleeper.browser","lossinfo",get_occupant_dam()) - send_byjax(chassis.occupant,"msleeper.browser","reagents",get_occupant_reagents()) - send_byjax(chassis.occupant,"msleeper.browser","injectwith",get_available_reagents()) - return 1 - return - -/datum/global_iterator/mech_sleeper - - process(var/obj/item/mecha_parts/mecha_equipment/tool/sleeper/S) - if(!S.chassis) - S.set_ready_state(1) - return stop() - if(!S.chassis.has_charge(S.energy_drain)) - S.set_ready_state(1) - S.log_message("Deactivated.") - S.occupant_message("[src] deactivated - no power.") - return stop() - var/mob/living/carbon/M = S.occupant - if(!M) - return - if(M.health > 0) - M.adjustOxyLoss(-1) - M.updatehealth() - M.AdjustStunned(-4) - M.AdjustWeakened(-4) - M.AdjustStunned(-4) - if(M.reagents.get_reagent_amount("epinephrine") < 5) - M.reagents.add_reagent("epinephrine", 5) - S.chassis.use_power(S.energy_drain) - S.update_equip_info() - return - - -/obj/item/mecha_parts/mecha_equipment/tool/cable_layer - name = "Cable Layer" - icon_state = "mecha_wire" - var/datum/event/event - var/turf/old_turf - var/obj/structure/cable/last_piece - var/obj/item/stack/cable_coil/cable - var/max_cable = 1000 - - New() - cable = new(src) - cable.amount = 0 - ..() - - can_attach(obj/mecha/working/M) - if(..()) - if(istype(M)) - return 1 - return 0 - - attach() - ..() - event = chassis.events.addEvent("onMove",src,"layCable") - return - - detach() - chassis.events.clearEvent("onMove",event) - return ..() - - Destroy() - chassis.events.clearEvent("onMove",event) - return ..() - - action(var/obj/item/stack/cable_coil/target) - if(!action_checks(target)) - return - var/result = load_cable(target) - var/message - if(isnull(result)) - message = "Unable to load [target] - no cable found." - else if(!result) - message = "Reel is full." - else - message = "[result] meters of cable successfully loaded." - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - occupant_message(message) - return - - Topic(href,href_list) - ..() - if(href_list["toggle"]) - set_ready_state(!equip_ready) - occupant_message("[src] [equip_ready?"dea":"a"]ctivated.") - log_message("[equip_ready?"Dea":"A"]ctivated.") - return - if(href_list["cut"]) - if(cable && cable.amount) - var/m = round(input(chassis.occupant,"Please specify the length of cable to cut","Cut cable",min(cable.amount,30)) as num, 1) - m = min(m, cable.amount) - if(m) - use_cable(m) - var/obj/item/stack/cable_coil/CC = new (get_turf(chassis)) - CC.amount = m - else - occupant_message("There's no more cable on the reel.") - return - - get_equip_info() - var/output = ..() - if(output) - return "[output] \[Cable: [cable ? cable.amount : 0] m\][(cable && cable.amount) ? "- [!equip_ready?"Dea":"A"]ctivate|Cut" : null]" - return - - proc/load_cable(var/obj/item/stack/cable_coil/CC) - if(istype(CC) && CC.amount) - var/cur_amount = cable? cable.amount : 0 - var/to_load = max(max_cable - cur_amount,0) - if(to_load) - to_load = min(CC.amount, to_load) - if(!cable) - cable = new(src) - cable.amount = 0 - cable.amount += to_load - CC.use(to_load) - return to_load - else - return 0 - return - - proc/use_cable(amount) - if(!cable || cable.amount<1) - set_ready_state(1) - occupant_message("Cable depleted, [src] deactivated.") - log_message("Cable depleted, [src] deactivated.") - return - if(cable.amount < amount) - occupant_message("No enough cable to finish the task.") - return - cable.use(amount) + target.forceMove(src) + patient = target + processing_objects.Add(src) update_equip_info() + occupant_message("[target] successfully loaded into [src]. Life support functions engaged.") + chassis.visible_message("[chassis] loads [target] into [src].") + log_message("[target] loaded. Life support functions engaged.") + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/patient_insertion_check(mob/living/carbon/target) + if(target.buckled) + occupant_message("[target] will not fit into the sleeper because they are buckled to [target.buckled]!") + return + if(target.has_buckled_mobs()) + occupant_message("[target] will not fit into the sleeper because of the creatures attached to it!") + return + if(patient) + occupant_message("The sleeper is already occupied!") + return + return 1 + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/go_out() + if(!patient) + return + patient.forceMove(get_turf(src)) + occupant_message("[patient] ejected. Life support functions disabled.") + log_message("[patient] ejected. Life support functions disabled.") + processing_objects.Remove(src) + patient = null + update_equip_info() + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/detach() + if(patient) + occupant_message("Unable to detach [src] - equipment occupied!") + return + processing_objects.Remove(src) + return ..() + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/get_equip_info() + var/output = ..() + if(output) + var/temp = "" + if(patient) + temp = "
\[Occupant: [patient] ([patient.stat > 1 ? "*DECEASED*" : "Health: [patient.health]%"])\]
View stats|Eject" + return "[output] [temp]" + return + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/Topic(href,href_list) + ..() + var/datum/topic_input/filter = new /datum/topic_input(href,href_list) + if(filter.get("eject")) + go_out() + if(filter.get("view_stats")) + chassis.occupant << browse(get_patient_stats(),"window=msleeper") + onclose(chassis.occupant, "msleeper") + return + if(filter.get("inject")) + inject_reagent(filter.getType("inject",/datum/reagent),filter.getObj("source")) + return + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/get_patient_stats() + if(!patient) + return + return {" + + [patient] statistics + + + + +

Health statistics

+
+ [get_patient_dam()] +
+

Reagents in bloodstream

+
+ [get_patient_reagents()] +
+
+ [get_available_reagents()] +
+ + "} + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/get_patient_dam() + var/t1 + switch(patient.stat) + if(0) + t1 = "Conscious" + if(1) + t1 = "Unconscious" + if(2) + t1 = "*dead*" + else + t1 = "Unknown" + return {"Health: [patient.stat > 1 ? "[t1]" : "[patient.health]% ([t1])"]
+ Core Temperature: [patient.bodytemperature-T0C]°C ([patient.bodytemperature*1.8-459.67]°F)
+ Brute Damage: [patient.getBruteLoss()]%
+ Respiratory Damage: [patient.getOxyLoss()]%
+ Toxin Content: [patient.getToxLoss()]%
+ Burn Severity: [patient.getFireLoss()]%
+ [patient.getCloneLoss() ? "Subject appears to have cellular damage." : ""]
+ [patient.getBrainLoss() ? "Significant brain damage detected." : ""]
+ "} + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/get_patient_reagents() + if(patient.reagents) + for(var/datum/reagent/R in patient.reagents.reagent_list) + if(R.volume > 0) + . += "[R]: [round(R.volume,0.01)]
" + return . || "None" + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/get_available_reagents() + var/output + var/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/SG = locate(/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun) in chassis + if(SG && SG.reagents && islist(SG.reagents.reagent_list)) + for(var/datum/reagent/R in SG.reagents.reagent_list) + if(R.volume > 0) + output += "Inject [R.name]
" + return output + + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/proc/inject_reagent(datum/reagent/R,obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/SG) + if(!R || !patient || !SG || !(SG in chassis.equipment)) + return 0 + var/to_inject = min(R.volume, inject_amount) + if(to_inject && patient.reagents.get_reagent_amount(R.id) + to_inject <= inject_amount*2) + occupant_message("Injecting [patient] with [to_inject] units of [R.name].") + log_message("Injecting [patient] with [to_inject] units of [R.name].") + add_logs(chassis.occupant, patient, "injected", "[name] ([R] - [to_inject] units)") + SG.reagents.trans_id_to(patient,R.id,to_inject) + update_equip_info() + return + +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/update_equip_info() + if(..()) + if(patient) + send_byjax(chassis.occupant,"msleeper.browser","lossinfo",get_patient_dam()) + send_byjax(chassis.occupant,"msleeper.browser","reagents",get_patient_reagents()) + send_byjax(chassis.occupant,"msleeper.browser","injectwith",get_available_reagents()) return 1 + return - proc/reset() - last_piece = null +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/container_resist() + go_out() - proc/dismantleFloor(var/turf/new_turf) - if(istype(new_turf, /turf/simulated/floor)) - var/turf/simulated/floor/T = new_turf - if(!istype(T, /turf/simulated/floor/plating)) - if(!T.broken && !T.burnt) - new T.floor_tile(T) - T.make_plating() - return !new_turf.intact +/obj/item/mecha_parts/mecha_equipment/medical/sleeper/process() + if(..()) + return + if(!chassis.has_charge(energy_drain)) + set_ready_state(1) + log_message("Deactivated.") + occupant_message("[src] deactivated - no power.") + processing_objects.Remove(src) + return + var/mob/living/carbon/M = patient + if(!M) + return + if(M.health > 0) + M.adjustOxyLoss(-1) + M.updatehealth() + M.AdjustStunned(-4) + M.AdjustWeakened(-4) + M.AdjustStunned(-4) + if(M.reagents.get_reagent_amount("epinephrine") < 5) + M.reagents.add_reagent("epinephrine", 5) + chassis.use_power(energy_drain) + update_equip_info() - proc/layCable(var/turf/new_turf) - if(equip_ready || !istype(new_turf) || !dismantleFloor(new_turf)) - return reset() - var/fdirn = turn(chassis.dir,180) - for(var/obj/structure/cable/LC in new_turf) // check to make sure there's not a cable there already - if(LC.d1 == fdirn || LC.d2 == fdirn) - return reset() - if(!use_cable(1)) - return reset() - var/obj/structure/cable/NC = new(new_turf) - NC.cableColor("red") - NC.d1 = 0 - NC.d2 = fdirn - NC.updateicon() - var/datum/powernet/PN - if(last_piece && last_piece.d2 != chassis.dir) - last_piece.d1 = min(last_piece.d2, chassis.dir) - last_piece.d2 = max(last_piece.d2, chassis.dir) - last_piece.updateicon() - PN = last_piece.powernet - - if(!PN) - PN = new() - PN.add_cable(NC) - NC.mergeConnectedNetworks(NC.d2) - - //NC.mergeConnectedNetworksOnTurf() - last_piece = NC - return 1 - -/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun - name = "Syringe Gun" - desc = "Exosuit-mounted chem synthesizer with syringe gun. Reagents inside are held in stasis, so no reactions will occur. (Can be attached to: Medical Exosuits)" +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun + name = "exosuit syringe gun" + desc = "Equipment for medical exosuits. A chem synthesizer with syringe gun. Reagents inside are held in stasis, so no reactions will occur." icon = 'icons/obj/guns/projectile.dmi' icon_state = "syringegun" - item_state = "syringegun" - lefthand_file = 'icons/mob/inhands/guns_lefthand.dmi' - righthand_file = 'icons/mob/inhands/guns_righthand.dmi' + flags = NOREACT var/list/syringes var/list/known_reagents var/list/processed_reagents @@ -397,273 +252,271 @@ var/synth_speed = 5 //[num] reagent units per cycle energy_drain = 10 var/mode = 0 //0 - fire syringe, 1 - analyze reagents. - var/datum/global_iterator/mech_synth/synth range = MELEE|RANGED equip_cooldown = 10 - origin_tech = "materials=3;biotech=4;magnets=4;programming=3" + origin_tech = "materials=3;biotech=4;magnets=4" - New() - ..() - flags |= NOREACT - syringes = new - known_reagents = list("epinephrine"="Epinephrine","charcoal"="Charcoal") - processed_reagents = new - create_reagents(max_volume) - synth = new (list(src),0) +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/New() + ..() + create_reagents(max_volume) + syringes = new + known_reagents = list("epinephrine"="Epinephrine","charcoal"="Charcoal") + processed_reagents = new - detach() - synth.stop() - return ..() +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/detach() + processing_objects.Remove(src) + return ..() - critfail() - ..() - flags &= ~NOREACT +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/Destroy() + processing_objects.Remove(src) + return ..() + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/critfail() + ..() + flags &= ~NOREACT + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/can_attach(obj/mecha/medical/M) + if(..()) + if(istype(M)) + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/get_equip_info() + var/output = ..() + if(output) + return "[output] \[[mode? "Analyze" : "Launch"]\]
\[Syringes: [syringes.len]/[max_syringes] | Reagents: [reagents.total_volume]/[reagents.maximum_volume]\]
Reagents list" + return + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/action(atom/movable/target) + if(!action_checks(target)) return - - can_attach(obj/mecha/medical/M) - if(..()) - if(istype(M)) - return 1 - return 0 - - get_equip_info() - var/output = ..() - if(output) - return "[output] \[[mode? "Analyze" : "Launch"]\]
\[Syringes: [syringes.len]/[max_syringes] | Reagents: [reagents.total_volume]/[reagents.maximum_volume]\]
Reagents list" + if(istype(target,/obj/item/weapon/reagent_containers/syringe)) + return load_syringe(target) + if(istype(target,/obj/item/weapon/storage))//Loads syringes from boxes + for(var/obj/item/weapon/reagent_containers/syringe/S in target.contents) + load_syringe(S) return - - action(atom/movable/target) - if(!action_checks(target)) - return - if(istype(target,/obj/item/weapon/reagent_containers/syringe)) - return load_syringe(target) - if(istype(target,/obj/item/weapon/storage))//Loads syringes from boxes - for(var/obj/item/weapon/reagent_containers/syringe/S in target.contents) - load_syringe(S) - return - if(mode) - return analyze_reagents(target) - if(!syringes.len) - occupant_message("No syringes loaded.") - return - if(reagents.total_volume<=0) - occupant_message("No available reagents to load syringe with.") - return - set_ready_state(0) - chassis.use_power(energy_drain) - var/turf/trg = get_turf(target) - var/obj/item/weapon/reagent_containers/syringe/S = syringes[1] - S.forceMove(get_turf(chassis)) - reagents.trans_to(S, min(S.volume, reagents.total_volume)) - syringes -= S - S.icon = 'icons/obj/chemical.dmi' - S.icon_state = "syringeproj" - playsound(chassis, 'sound/items/syringeproj.ogg', 50, 1) - log_message("Launched [S] from [src], targeting [target].") - spawn(-1) - src = null //if src is deleted, still process the syringe - for(var/i=0, i<6, i++) - if(!S) - break - if(step_towards(S,trg)) - var/list/mobs = new - for(var/mob/living/carbon/M in S.loc) - mobs += M - var/mob/living/carbon/M = safepick(mobs) - if(M) - S.icon_state = initial(S.icon_state) - S.icon = initial(S.icon) - S.reagents.reaction(M, INGEST) - S.reagents.trans_to(M, S.reagents.total_volume) + if(mode) + return analyze_reagents(target) + if(!syringes.len) + occupant_message("No syringes loaded.") + return + if(reagents.total_volume<=0) + occupant_message("No available reagents to load syringe with.") + return + var/turf/trg = get_turf(target) + var/obj/item/weapon/reagent_containers/syringe/mechsyringe = syringes[1] + mechsyringe.forceMove(get_turf(chassis)) + reagents.trans_to(mechsyringe, min(mechsyringe.volume, reagents.total_volume)) + syringes -= mechsyringe + mechsyringe.icon = 'icons/obj/chemical.dmi' + mechsyringe.icon_state = "syringeproj" + playsound(chassis, 'sound/items/syringeproj.ogg', 50, 1) + log_message("Launched [mechsyringe] from [src], targeting [target].") + var/mob/originaloccupant = chassis.occupant + spawn(0) + src = null //if src is deleted, still process the syringe + for(var/i=0, i<6, i++) + if(!mechsyringe) + break + if(step_towards(mechsyringe,trg)) + var/list/mobs = new + for(var/mob/living/carbon/M in mechsyringe.loc) + mobs += M + var/mob/living/carbon/M = safepick(mobs) + if(M) + var/R + mechsyringe.visible_message(" [M] was hit by the syringe!") + if(M.can_inject(null, 1)) + if(mechsyringe.reagents) + for(var/datum/reagent/A in mechsyringe.reagents.reagent_list) + R += A.id + " (" + R += num2text(A.volume) + ")," + mechsyringe.icon_state = initial(mechsyringe.icon_state) + mechsyringe.icon = initial(mechsyringe.icon) + mechsyringe.reagents.reaction(M, INGEST) + mechsyringe.reagents.trans_to(M, mechsyringe.reagents.total_volume) M.take_organ_damage(2) - S.visible_message(" [M] was hit by the syringe!") - break - else if(S.loc == trg) - S.icon_state = initial(S.icon_state) - S.icon = initial(S.icon) - S.update_icon() - break - else - S.icon_state = initial(S.icon_state) - S.icon = initial(S.icon) - S.update_icon() + add_logs(originaloccupant, M, "shot", "syringegun") break - sleep(1) - do_after_cooldown() - return 1 - - - Topic(href,href_list) - ..() - var/datum/topic_input/filter = new (href,href_list) - if(filter.get("toggle_mode")) - mode = !mode - update_equip_info() - return - if(filter.get("select_reagents")) - processed_reagents.len = 0 - var/m = 0 - var/message - for(var/i=1 to known_reagents.len) - if(m>=synth_speed) + else if(mechsyringe.loc == trg) + mechsyringe.icon_state = initial(mechsyringe.icon_state) + mechsyringe.icon = initial(mechsyringe.icon) + mechsyringe.update_icon() break - var/reagent = filter.get("reagent_[i]") - if(reagent && (reagent in known_reagents)) - message = "[m ? ", " : null][known_reagents[reagent]]" - processed_reagents += reagent - m++ - if(processed_reagents.len) - message += " added to production" - synth.start() - occupant_message(message) - occupant_message("Reagent processing started.") - log_message("Reagent processing started.") - return - if(filter.get("show_reagents")) - chassis.occupant << browse(get_reagents_page(),"window=msyringegun") - if(filter.get("purge_reagent")) - var/reagent = filter.get("purge_reagent") - if(reagent) - reagents.del_reagent(reagent) - return - if(filter.get("purge_all")) - reagents.clear_reagents() - return - return - - proc/get_reagents_page() - var/output = {" - - Reagent Synthesizer - - - - -

Current reagents:

-
- [get_current_reagents()] -
-

Reagents production:

-
- [get_reagents_form()] -
- - - "} - return output - - proc/get_reagents_form() - var/r_list = get_reagents_list() - var/inputs - if(r_list) - inputs += "" - inputs += "" - inputs += "" - var/output = {"
- [r_list || "No known reagents"] - [inputs] -
- [r_list? "Only the first [synth_speed] selected reagent\s will be added to production" : null] - "} - return output - - proc/get_reagents_list() - var/output - for(var/i=1 to known_reagents.len) - var/reagent_id = known_reagents[i] - output += {" [known_reagents[reagent_id]]
"} - return output - - proc/get_current_reagents() - var/output - for(var/datum/reagent/R in reagents.reagent_list) - if(R.volume > 0) - output += "[R]: [round(R.volume,0.001)] - Purge Reagent
" - if(output) - output += "Total: [round(reagents.total_volume,0.001)]/[reagents.maximum_volume] - Purge All" - return output || "None" - - proc/load_syringe(obj/item/weapon/reagent_containers/syringe/S) - if(syringes.len= 2) - occupant_message("The syringe is too far away.") - return 0 - for(var/obj/structure/D in S.loc)//Basic level check for structures in the way (Like grilles and windows) - if(!(D.CanPass(S,src.loc))) - occupant_message("Unable to load syringe.") - return 0 - for(var/obj/machinery/door/D in S.loc)//Checks for doors - if(!(D.CanPass(S,src.loc))) - occupant_message("Unable to load syringe.") - return 0 - S.reagents.trans_to(src, S.reagents.total_volume) - S.forceMove(src) - syringes += S - occupant_message("Syringe loaded.") - update_equip_info() - return 1 - occupant_message("The [src] syringe chamber is full.") - return 0 - - proc/analyze_reagents(atom/A) - if(get_dist(src,A) >= 4) - occupant_message("The object is too far away.") - return 0 - if(!A.reagents || istype(A,/mob)) - occupant_message("No reagent info gained from [A].") - return 0 - occupant_message("Analyzing reagents...") - for(var/datum/reagent/R in A.reagents.reagent_list) - if(R.reagent_state == 2 && add_known_reagent(R.id,R.name)) - occupant_message("Reagent analyzed, identified as [R.name] and added to database.") - send_byjax(chassis.occupant,"msyringegun.browser","reagents_form",get_reagents_form()) - occupant_message("Analyzis complete.") - return 1 - - proc/add_known_reagent(r_id,r_name) - set_ready_state(0) - do_after_cooldown() - if(!(r_id in known_reagents)) - known_reagents += r_id - known_reagents[r_id] = r_name - return 1 - return 0 + else + mechsyringe.icon_state = initial(mechsyringe.icon_state) + mechsyringe.icon = initial(mechsyringe.icon) + mechsyringe.update_icon() + break + sleep(1) + return 1 - update_equip_info() - if(..()) - send_byjax(chassis.occupant,"msyringegun.browser","reagents",get_current_reagents()) - send_byjax(chassis.occupant,"msyringegun.browser","reagents_form",get_reagents_form()) - return 1 - return - - on_reagent_change() - ..() +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/Topic(href,href_list) + ..() + var/datum/topic_input/filter = new (href,href_list) + if(filter.get("toggle_mode")) + mode = !mode update_equip_info() return + if(filter.get("select_reagents")) + processed_reagents.len = 0 + var/m = 0 + var/message + for(var/i=1 to known_reagents.len) + if(m>=synth_speed) + break + var/reagent = filter.get("reagent_[i]") + if(reagent && (reagent in known_reagents)) + message = "[m ? ", " : null][known_reagents[reagent]]" + processed_reagents += reagent + m++ + if(processed_reagents.len) + message += " added to production" + processing_objects.Add(src) + occupant_message(message) + occupant_message("Reagent processing started.") + log_message("Reagent processing started.") + return + if(filter.get("show_reagents")) + chassis.occupant << browse(get_reagents_page(),"window=msyringegun") + if(filter.get("purge_reagent")) + var/reagent = filter.get("purge_reagent") + if(reagent) + reagents.del_reagent(reagent) + return + if(filter.get("purge_all")) + reagents.clear_reagents() + return + return -/datum/global_iterator/mech_synth - delay = 100 +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/get_reagents_page() + var/output = {" + + Reagent Synthesizer + + + + +

Current reagents:

+
+ [get_current_reagents()] +
+

Reagents production:

+
+ [get_reagents_form()] +
+ + + "} + return output - process(var/obj/item/mecha_parts/mecha_equipment/tool/syringe_gun/S) - if(!S.chassis) - return stop() - var/energy_drain = S.energy_drain*10 - if(!S.processed_reagents.len || S.reagents.total_volume >= S.reagents.maximum_volume || !S.chassis.has_charge(energy_drain)) - S.occupant_message("Reagent processing stopped.") - S.log_message("Reagent processing stopped.") - return stop() - if(anyprob(S.reliability)) - S.critfail() - var/amount = S.synth_speed / S.processed_reagents.len - for(var/reagent in S.processed_reagents) - S.reagents.add_reagent(reagent,amount) - S.chassis.use_power(energy_drain) +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/get_reagents_form() + var/r_list = get_reagents_list() + var/inputs + if(r_list) + inputs += "" + inputs += "" + inputs += "" + var/output = {"
+ [r_list || "No known reagents"] + [inputs] +
+ [r_list? "Only the first [synth_speed] selected reagent\s will be added to production" : null] + "} + return output + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/get_reagents_list() + var/output + for(var/i=1 to known_reagents.len) + var/reagent_id = known_reagents[i] + output += {" [known_reagents[reagent_id]]
"} + return output + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/get_current_reagents() + var/output + for(var/datum/reagent/R in reagents.reagent_list) + if(R.volume > 0) + output += "[R]: [round(R.volume,0.001)] - Purge Reagent
" + if(output) + output += "Total: [round(reagents.total_volume,0.001)]/[reagents.maximum_volume] - Purge All" + return output || "None" + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/load_syringe(obj/item/weapon/reagent_containers/syringe/S) + if(syringes.len= 2) + occupant_message("The syringe is too far away.") + return 0 + for(var/obj/structure/D in S.loc)//Basic level check for structures in the way (Like grilles and windows) + if(!(D.CanPass(S,src.loc))) + occupant_message("Unable to load syringe.") + return 0 + for(var/obj/machinery/door/D in S.loc)//Checks for doors + if(!(D.CanPass(S,src.loc))) + occupant_message("Unable to load syringe.") + return 0 + S.reagents.trans_to(src, S.reagents.total_volume) + S.forceMove(src) + syringes += S + occupant_message("Syringe loaded.") + update_equip_info() return 1 + occupant_message("The [src] syringe chamber is full.") + return 0 + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/analyze_reagents(atom/A) + if(get_dist(src,A) >= 4) + occupant_message("The object is too far away.") + return 0 + if(!A.reagents || istype(A,/mob)) + occupant_message("No reagent info gained from [A].") + return 0 + occupant_message("Analyzing reagents...") + for(var/datum/reagent/R in A.reagents.reagent_list) + if(R.reagent_state == 2 && add_known_reagent(R.id,R.name)) + occupant_message("Reagent analyzed, identified as [R.name] and added to database.") + send_byjax(chassis.occupant,"msyringegun.browser","reagents_form",get_reagents_form()) + occupant_message("Analyzis complete.") + return 1 + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/proc/add_known_reagent(r_id,r_name) + if(!(r_id in known_reagents)) + known_reagents += r_id + known_reagents[r_id] = r_name + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/update_equip_info() + if(..()) + send_byjax(chassis.occupant,"msyringegun.browser","reagents",get_current_reagents()) + send_byjax(chassis.occupant,"msyringegun.browser","reagents_form",get_reagents_form()) + return 1 + return + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/on_reagent_change() + ..() + update_equip_info() + return + + +/obj/item/mecha_parts/mecha_equipment/medical/syringe_gun/process() + if(..()) + return + if(!processed_reagents.len || reagents.total_volume >= reagents.maximum_volume || !chassis.has_charge(energy_drain)) + occupant_message("Reagent processing stopped.") + log_message("Reagent processing stopped.") + processing_objects.Remove(src) + return + var/amount = synth_speed / processed_reagents.len + for(var/reagent in processed_reagents) + reagents.add_reagent(reagent,amount) + chassis.use_power(energy_drain) + diff --git a/code/game/mecha/equipment/tools/mining_tools.dm b/code/game/mecha/equipment/tools/mining_tools.dm new file mode 100644 index 00000000000..4f7211282c9 --- /dev/null +++ b/code/game/mecha/equipment/tools/mining_tools.dm @@ -0,0 +1,136 @@ +// Drill, Diamond drill, Mining scanner + +/obj/item/mecha_parts/mecha_equipment/drill + name = "exosuit drill" + desc = "Equipment for engineering and combat exosuits. This is the drill that'll pierce the heavens!" + icon_state = "mecha_drill" + equip_cooldown = 30 + energy_drain = 10 + force = 15 + +/obj/item/mecha_parts/mecha_equipment/drill/action(atom/target) + if(!action_checks(target)) + return + if(istype(target, /turf/space)) + return + if(isobj(target)) + var/obj/target_obj = target + if(target_obj.unacidable) + return + target.visible_message("[chassis] starts to drill [target].", + "[chassis] starts to drill [target]...", + blind_message = "You hear drilling.") + if(do_after_cooldown(target)) + if(isturf(target)) + var/turf/T = target + T.drill_act(src) + else + log_message("Drilled through [target]") + if(isliving(target)) + if(istype(src , /obj/item/mecha_parts/mecha_equipment/drill/diamonddrill)) + drill_mob(target, chassis.occupant, 120) + else + drill_mob(target, chassis.occupant) + else + target.ex_act(2) + +/turf/proc/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + return + +/turf/simulated/floor/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + ex_act(1) + +/turf/simulated/wall/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + ex_act(2) + +/turf/simulated/wall/r_wall/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + if(istype(drill, /obj/item/mecha_parts/mecha_equipment/drill/diamonddrill)) + if(drill.do_after_cooldown(src))//To slow down how fast mechs can drill through the station + drill.log_message("Drilled through [src]") + ex_act(3) + else + drill.occupant_message("[src] is too durable to drill through.") + +/turf/simulated/mineral/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + for(var/turf/simulated/mineral/M in range(drill.chassis, 1)) + if(get_dir(drill.chassis, M) & drill.chassis.dir) + M.gets_drilled() + drill.log_message("Drilled through [src]") + drill.move_ores() + +/turf/simulated/floor/plating/airless/asteroid/drill_act(obj/item/mecha_parts/mecha_equipment/drill/drill) + if(istype(drill, /obj/item/mecha_parts/mecha_equipment/drill/diamonddrill)) + for(var/turf/simulated/floor/plating/airless/asteroid/M in range(1, src)) + M.gets_drilled() + else + for(var/turf/simulated/floor/plating/airless/asteroid/M in range(1, drill.chassis)) + if(get_dir(drill.chassis, M) & drill.chassis.dir) + M.gets_drilled() + drill.log_message("Drilled through [src]") + drill.move_ores() + +/obj/item/mecha_parts/mecha_equipment/drill/proc/move_ores() + if(locate(/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp) in chassis.equipment) + var/obj/structure/ore_box/ore_box = locate(/obj/structure/ore_box) in chassis:cargo + if(ore_box) + for(var/obj/item/weapon/ore/ore in range(1, chassis)) + if(get_dir(chassis, ore) & chassis.dir) + ore.Move(ore_box) + +/obj/item/mecha_parts/mecha_equipment/drill/can_attach(obj/mecha/M) + if(..()) + if(istype(M, /obj/mecha/working) || istype(M, /obj/mecha/combat)) + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/drill/proc/drill_mob(mob/living/target, mob/user, var/drill_damage=80) + target.visible_message("[chassis] drills [target] with [src].", \ + "[chassis] drills [target] with [src].") + add_logs(user, target, "attacked", "[name]", "(INTENT: [uppertext(user.a_intent)]) (DAMTYPE: [uppertext(damtype)])") + if(target.stat == DEAD && target.butcher_results) + target.harvest(chassis) // Butcher the mob with our drill. + else + target.take_organ_damage(drill_damage) + + if(target) + target.Paralyse(10) + target.updatehealth() + + +/obj/item/mecha_parts/mecha_equipment/drill/diamonddrill + name = "diamond-tipped exosuit drill" + desc = "Equipment for engineering and combat exosuits. This is an upgraded version of the drill that'll pierce the heavens!" + icon_state = "mecha_diamond_drill" + origin_tech = "materials=4;engineering=4" + equip_cooldown = 20 + force = 15 + + +/obj/item/mecha_parts/mecha_equipment/mining_scanner + name = "exosuit mining scanner" + desc = "Equipment for engineering and combat exosuits. It will automatically check surrounding rock for useful minerals." + icon_state = "mecha_analyzer" + origin_tech = "materials=3;engineering=2" + selectable = 0 + equip_cooldown = 30 + var/scanning = 0 + +/obj/item/mecha_parts/mecha_equipment/mining_scanner/New() + processing_objects.Add(src) + +/obj/item/mecha_parts/mecha_equipment/mining_scanner/process() + if(!loc) + processing_objects.Remove(src) + qdel(src) + if(scanning) + return + if(istype(loc,/obj/mecha/working)) + var/obj/mecha/working/mecha = loc + if(!mecha.occupant) + return + var/list/occupant = list() + occupant |= mecha.occupant + scanning = 1 + mineral_scan_pulse(occupant,get_turf(loc)) + spawn(equip_cooldown) + scanning = 0 diff --git a/code/game/mecha/equipment/tools/other_tools.dm b/code/game/mecha/equipment/tools/other_tools.dm new file mode 100644 index 00000000000..e57ee9ba8a2 --- /dev/null +++ b/code/game/mecha/equipment/tools/other_tools.dm @@ -0,0 +1,494 @@ +// Teleporter, Wormhole generator, Gravitational catapult, Armor booster modules, +// Repair droid, Tesla Energy relay, Generators + +////////////////////////////////////////////// TELEPORTER /////////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/teleporter + name = "mounted teleporter" + desc = "An exosuit module that allows exosuits to teleport to any position in view." + icon_state = "mecha_teleport" + origin_tech = "bluespace=10" + equip_cooldown = 150 + energy_drain = 1000 + range = RANGED + +/obj/item/mecha_parts/mecha_equipment/teleporter/action(atom/target) + if(!action_checks(target) || !is_teleport_allowed(loc.z)) + return + var/turf/T = get_turf(target) + if(T) + do_teleport(chassis, T, 4) + return 1 + + + +////////////////////////////////////////////// WORMHOLE GENERATOR ////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/wormhole_generator + name = "mounted wormhole generator" + desc = "An exosuit module that allows generating of small quasi-stable wormholes." + icon_state = "mecha_wholegen" + origin_tech = "bluespace=3" + equip_cooldown = 50 + energy_drain = 300 + range = RANGED + +/obj/item/mecha_parts/mecha_equipment/wormhole_generator/action(atom/target) + if(!action_checks(target) || !is_teleport_allowed(loc.z)) + return + var/list/theareas = get_areas_in_range(100, chassis) + if(!theareas.len) + return + var/area/thearea = pick(theareas) + var/list/L = list() + var/turf/pos = get_turf(src) + for(var/turf/T in get_area_turfs(thearea.type)) + if(!T.density && pos.z == T.z) + var/clear = 1 + for(var/obj/O in T) + if(O.density) + clear = 0 + break + if(clear) + L+=T + if(!L.len) + return + var/turf/target_turf = pick(L) + if(!target_turf) + return + var/obj/effect/portal/P = new /obj/effect/portal(get_turf(target), target_turf) + P.icon = 'icons/obj/objects.dmi' + P.failchance = 0 + P.icon_state = "anom" + P.name = "wormhole" + message_admins("[key_name_admin(chassis.occupant, chassis.occupant.client)](?) (FLW) used a Wormhole Generator in ([loc.x],[loc.y],[loc.z] - JMP)",0,1) + log_game("[key_name(chassis.occupant)] used a Wormhole Generator in ([loc.x],[loc.y],[loc.z])") + src = null + spawn(rand(150,300)) + qdel(P) + return 1 + +/////////////////////////////////////// GRAVITATIONAL CATAPULT /////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/gravcatapult + name = "mounted gravitational catapult" + desc = "An exosuit mounted Gravitational Catapult." + icon_state = "mecha_teleport" + origin_tech = "bluespace=2;magnets=3" + equip_cooldown = 10 + energy_drain = 100 + range = MELEE|RANGED + var/atom/movable/locked + var/mode = 1 //1 - gravsling 2 - gravpush + +/obj/item/mecha_parts/mecha_equipment/gravcatapult/action(atom/movable/target) + if(!action_checks(target)) + return + switch(mode) + if(1) + if(!locked) + if(!istype(target) || target.anchored) + occupant_message("Unable to lock on [target]") + return + locked = target + occupant_message("Locked on [target]") + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + else if(target!=locked) + if(locked in view(chassis)) + locked.throw_at(target, 14, 1.5) + locked = null + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + return 1 + else + locked = null + occupant_message("Lock on [locked] disengaged.") + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + if(2) + var/list/atoms = list() + if(isturf(target)) + atoms = range(3, target) + else + atoms = orange(3, target) + for(var/atom/movable/A in atoms) + if(A.anchored) continue + spawn(0) + var/iter = 5-get_dist(A,target) + for(var/i=0 to iter) + step_away(A,target) + sleep(2) + var/turf/T = get_turf(target) + log_game("[chassis.occupant.ckey]([chassis.occupant]) used a Gravitational Catapult in ([T.x],[T.y],[T.z])") + return 1 + + +/obj/item/mecha_parts/mecha_equipment/gravcatapult/get_equip_info() + return "[..()] [mode==1?"([locked||"Nothing"])":null] \[S|P\]" + +/obj/item/mecha_parts/mecha_equipment/gravcatapult/Topic(href, href_list) + ..() + if(href_list["mode"]) + mode = text2num(href_list["mode"]) + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + return + +//////////////////////////// ARMOR BOOSTER MODULES ////////////////////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/anticcw_armor_booster //what is that noise? A BAWWW from TK mutants. + name = "Armor Booster Module (Close Combat Weaponry)" + desc = "Boosts exosuit armor against armed melee attacks. Requires energy to operate." + icon_state = "mecha_abooster_ccw" + origin_tech = "materials=3" + equip_cooldown = 10 + energy_drain = 50 + range = 0 + var/deflect_coeff = 1.15 + var/damage_coeff = 0.8 + selectable = 0 + +/obj/item/mecha_parts/mecha_equipment/anticcw_armor_booster/proc/attack_react(mob/user as mob) + if(action_checks(user)) + start_cooldown() + return 1 + + +/obj/item/mecha_parts/mecha_equipment/antiproj_armor_booster + name = "Armor Booster Module (Ranged Weaponry)" + desc = "Boosts exosuit armor against ranged attacks. Completely blocks taser shots. Requires energy to operate." + icon_state = "mecha_abooster_proj" + origin_tech = "materials=4" + equip_cooldown = 10 + energy_drain = 50 + range = 0 + var/deflect_coeff = 1.15 + var/damage_coeff = 0.8 + selectable = 0 + +/obj/item/mecha_parts/mecha_equipment/antiproj_armor_booster/proc/projectile_react() + if(action_checks(src)) + start_cooldown() + return 1 + + +////////////////////////////////// REPAIR DROID ////////////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/repair_droid + name = "Repair Droid" + desc = "Automated repair droid. Scans exosuit for damage and repairs it. Can fix almost all types of external or internal damage." + icon_state = "repair_droid" + origin_tech = "magnets=3;programming=3" + equip_cooldown = 20 + energy_drain = 100 + range = 0 + var/health_boost = 1 + var/icon/droid_overlay + var/list/repairable_damage = list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH) + selectable = 0 + +/obj/item/mecha_parts/mecha_equipment/repair_droid/Destroy() + processing_objects.Remove(src) + if(chassis) + chassis.overlays -= droid_overlay + return ..() + +/obj/item/mecha_parts/mecha_equipment/repair_droid/attach(obj/mecha/M) + ..() + droid_overlay = new(icon, icon_state = "repair_droid") + M.overlays += droid_overlay + +/obj/item/mecha_parts/mecha_equipment/repair_droid/detach() + chassis.overlays -= droid_overlay + processing_objects.Remove(src) + +/obj/item/mecha_parts/mecha_equipment/repair_droid/get_equip_info() + if(!chassis) return + return "*  [name] - [equip_ready?"A":"Dea"]ctivate" + + +/obj/item/mecha_parts/mecha_equipment/repair_droid/Topic(href, href_list) + ..() + if(href_list["toggle_repairs"]) + chassis.overlays -= droid_overlay + if(equip_ready) + processing_objects.Add(src) + droid_overlay = new(icon, icon_state = "repair_droid_a") + log_message("Activated.") + set_ready_state(0) + else + processing_objects.Remove(src) + droid_overlay = new(icon, icon_state = "repair_droid") + log_message("Deactivated.") + set_ready_state(1) + chassis.overlays += droid_overlay + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + + +/obj/item/mecha_parts/mecha_equipment/repair_droid/process() + if(!chassis) + processing_objects.Remove(src) + set_ready_state(1) + return + var/h_boost = health_boost + var/repaired = 0 + if(chassis.internal_damage & MECHA_INT_SHORT_CIRCUIT) + h_boost *= -2 + else if(chassis.internal_damage && prob(15)) + for(var/int_dam_flag in repairable_damage) + if(chassis.internal_damage & int_dam_flag) + chassis.clearInternalDamage(int_dam_flag) + repaired = 1 + break + if(health_boost<0 || chassis.health < initial(chassis.health)) + chassis.health += min(health_boost, initial(chassis.health)-chassis.health) + repaired = 1 + if(repaired) + if(!chassis.use_power(energy_drain)) + processing_objects.Remove(src) + set_ready_state(1) + else //no repair needed, we turn off + processing_objects.Remove(src) + set_ready_state(1) + chassis.overlays -= droid_overlay + droid_overlay = new(icon, icon_state = "repair_droid") + chassis.overlays += droid_overlay + +/////////////////////////////////// TESLA ENERGY RELAY //////////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay + name = "exosuit energy relay" + desc = "An exosuit module that wirelessly drains energy from any available power channel in area. The performance index is quite low." + icon_state = "tesla" + origin_tech = "magnets=4;powerstorage=4;engineering=4" + energy_drain = 0 + range = 0 + var/coeff = 100 + var/list/use_channels = list(EQUIP,ENVIRON,LIGHT) + selectable = 0 + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/Destroy() + processing_objects.Remove(src) + return ..() + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/detach() + processing_objects.Remove(src) + ..() + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/proc/get_charge() + if(equip_ready) //disabled + return + var/area/A = get_area(chassis) + var/pow_chan = get_power_channel(A) + if(pow_chan) + return 1000 //making magic + + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/proc/get_power_channel(var/area/A) + var/pow_chan + if(A) + for(var/c in use_channels) + if(A.powered(c)) + pow_chan = c + break + return pow_chan + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/Topic(href, href_list) + ..() + if(href_list["toggle_relay"]) + if(equip_ready) //inactive + processing_objects.Add(src) + set_ready_state(0) + log_message("Activated.") + else + processing_objects.Remove(src) + set_ready_state(1) + log_message("Deactivated.") + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/get_equip_info() + if(!chassis) return + return "*  [name] - [equip_ready?"A":"Dea"]ctivate" + + +/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/process() + if(!chassis || chassis.internal_damage & MECHA_INT_SHORT_CIRCUIT) + processing_objects.Remove(src) + set_ready_state(1) + return + var/cur_charge = chassis.get_charge() + if(isnull(cur_charge) || !chassis.cell) + processing_objects.Remove(src) + set_ready_state(1) + occupant_message("No powercell detected.") + return + if(cur_charge < chassis.cell.maxcharge) + var/area/A = get_area(chassis) + if(A) + var/pow_chan + for(var/c in list(EQUIP,ENVIRON,LIGHT)) + if(A.powered(c)) + pow_chan = c + break + if(pow_chan) + var/delta = min(20, chassis.cell.maxcharge-cur_charge) + chassis.give_power(delta) + A.use_power(delta*coeff, pow_chan) + +/////////////////////////////////////////// GENERATOR ///////////////////////////////////////////// + +/obj/item/mecha_parts/mecha_equipment/generator + name = "exosuit plasma converter" + desc = "An exosuit module that generates power using solid plasma as fuel. Pollutes the environment." + icon_state = "tesla" + origin_tech = "plasmatech=2;powerstorage=2;engineering=2" + range = MELEE + var/coeff = 100 + var/fuel_type = MAT_PLASMA + var/max_fuel = 150000 + var/fuel_name = "plasma" // Our fuel name as a string + var/fuel_amount = 0 + var/fuel_per_cycle_idle = 10 + var/fuel_per_cycle_active = 100 + var/power_per_cycle = 30 + +/obj/item/mecha_parts/mecha_equipment/generator/New() + ..() + generator_init() + +/obj/item/mecha_parts/mecha_equipment/generator/Destroy() + processing_objects.Remove(src) + return ..() + +/obj/item/mecha_parts/mecha_equipment/generator/proc/generator_init() + fuel_amount = 0 + +/obj/item/mecha_parts/mecha_equipment/generator/detach() + processing_objects.Remove(src) + ..() + +/obj/item/mecha_parts/mecha_equipment/generator/Topic(href, href_list) + ..() + if(href_list["toggle"]) + if(equip_ready) //inactive + set_ready_state(0) + processing_objects.Add(src) + log_message("Activated.") + else + set_ready_state(1) + processing_objects.Remove(src) + log_message("Deactivated.") + +/obj/item/mecha_parts/mecha_equipment/generator/get_equip_info() + var/output = ..() + if(output) + return "[output] \[[fuel_name]: [round(fuel_amount,0.1)] cm3\] - [equip_ready?"A":"Dea"]ctivate" + +/obj/item/mecha_parts/mecha_equipment/generator/action(target) + if(chassis) + var/result = load_fuel(target) + if(result) + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",get_equip_info()) + +/obj/item/mecha_parts/mecha_equipment/generator/proc/load_fuel(var/obj/item/I) + if(istype(I) && (fuel_type in I.materials)) + if(istype(I, /obj/item/stack/sheet)) + var/obj/item/stack/sheet/P = I + var/to_load = max(max_fuel - P.amount*P.perunit,0) + if(to_load) + var/units = min(max(round(to_load / P.perunit),1),P.amount) + if(units) + var/added_fuel = units * P.perunit + fuel_amount += added_fuel + P.use(units) + occupant_message("[units] unit\s of [fuel_name] successfully loaded.") + return added_fuel + else + occupant_message("Unit is full.") + return 0 + else // Some other object containing our fuel's type, so we just eat it (ores mainly) + var/to_load = max(min(I.materials[fuel_type], max_fuel - fuel_amount),0) + if(to_load == 0) + return 0 + fuel_amount += to_load + qdel(I) + return to_load + + else if(istype(I, /obj/structure/ore_box)) + var/fuel_added = 0 + for(var/baz in I.contents) + var/obj/item/O = baz + if(fuel_type in O.materials) + fuel_added = load_fuel(O) + break + return fuel_added + + else + occupant_message("[fuel_name] traces in target minimal! [I] cannot be used as fuel.") + return + +/obj/item/mecha_parts/mecha_equipment/generator/attackby(weapon,mob/user, params) + load_fuel(weapon) + +/obj/item/mecha_parts/mecha_equipment/generator/critfail() + ..() + var/turf/simulated/T = get_turf(src) + if(!istype(T)) + return + var/datum/gas_mixture/GM = new + if(prob(10)) + GM.toxins += 100 + GM.temperature = 1500+T0C //should be enough to start a fire + T.visible_message("[src] suddenly disgorges a cloud of heated plasma.") + qdel(src) + else + GM.toxins += 5 + GM.temperature = istype(T) ? T.air.return_temperature() : T20C + T.visible_message("[src] suddenly disgorges a cloud of plasma.") + T.assume_air(GM) + +/obj/item/mecha_parts/mecha_equipment/generator/process() + if(!chassis) + processing_objects.Remove(src) + set_ready_state(1) + return + if(fuel_amount<=0) + processing_objects.Remove(src) + log_message("Deactivated - no fuel.") + set_ready_state(1) + return + var/cur_charge = chassis.get_charge() + if(isnull(cur_charge)) + set_ready_state(1) + occupant_message("No powercell detected.") + log_message("Deactivated.") + processing_objects.Remove(src) + return + var/use_fuel = fuel_per_cycle_idle + if(cur_charge < chassis.cell.maxcharge) + use_fuel = fuel_per_cycle_active + chassis.give_power(power_per_cycle) + fuel_amount -= min(use_fuel, fuel_amount) + update_equip_info() + return 1 + + +/obj/item/mecha_parts/mecha_equipment/generator/nuclear + name = "exonuclear reactor" + desc = "An exosuit module that generates power using uranium as fuel. Pollutes the environment." + icon_state = "tesla" + origin_tech = "powerstorage=4;engineering=4" + fuel_name = "uranium" // Our fuel name as a string + fuel_type = MAT_URANIUM + max_fuel = 50000 + fuel_per_cycle_idle = 10 + fuel_per_cycle_active = 30 + power_per_cycle = 50 + var/rad_per_cycle = 0.3 + +/obj/item/mecha_parts/mecha_equipment/generator/nuclear/generator_init() + fuel_amount = 0 + +/obj/item/mecha_parts/mecha_equipment/generator/nuclear/critfail() + return + +/obj/item/mecha_parts/mecha_equipment/generator/nuclear/process() + if(..()) + for(var/mob/living/carbon/M in view(chassis)) + M.apply_effect((rad_per_cycle * 3),IRRADIATE,0) \ No newline at end of file diff --git a/code/game/mecha/equipment/tools/tools.dm b/code/game/mecha/equipment/tools/tools.dm deleted file mode 100644 index d945e1cbb7f..00000000000 --- a/code/game/mecha/equipment/tools/tools.dm +++ /dev/null @@ -1,1147 +0,0 @@ -/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp - name = "Hydraulic Clamp" - icon_state = "mecha_clamp" - equip_cooldown = 15 - energy_drain = 10 - var/dam_force = 20 - var/obj/mecha/working/ripley/cargo_holder - - can_attach(obj/mecha/working/ripley/M as obj) - if(..()) - if(istype(M)) - return 1 - return 0 - - attach(obj/mecha/M as obj) - ..() - cargo_holder = M - return - - action(atom/target) - if(!action_checks(target)) return - if(!cargo_holder) return - if(istype(target, /obj/structure/stool)) return - - if(istype(target,/obj)) - var/obj/O = target - if(!O.anchored) - if(cargo_holder.cargo.len < cargo_holder.cargo_capacity) - occupant_message("You lift [target] and start to load it into cargo compartment.") - chassis.visible_message("[chassis] lifts [target] and starts to load it into cargo compartment.") - set_ready_state(0) - chassis.use_power(energy_drain) - O.anchored = 1 - var/T = chassis.loc - if(do_after_cooldown(target)) - if(T == chassis.loc && src == chassis.selected) - cargo_holder.cargo += O - O.loc = chassis - O.anchored = 0 - occupant_message("[target] succesfully loaded.") - log_message("Loaded [O]. Cargo compartment capacity: [cargo_holder.cargo_capacity - cargo_holder.cargo.len]") - else - occupant_message("You must hold still while handling objects.") - O.anchored = initial(O.anchored) - else - occupant_message("Not enough room in cargo compartment.") - else - occupant_message("[target] is firmly secured.") - - else if(istype(target,/mob/living)) - var/mob/living/M = target - if(M.stat>1) return - if(chassis.occupant.a_intent == I_HARM) - M.take_overall_damage(dam_force) - M.adjustOxyLoss(round(dam_force/2)) - M.updatehealth() - occupant_message("\red You squeeze [target] with [src.name]. Something cracks.") - chassis.visible_message("\red [chassis] squeezes [target].") - else - step_away(M,chassis) - occupant_message("You push [target] out of the way.") - chassis.visible_message("[chassis] pushes [target] out of the way.") - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return 1 - -/obj/item/mecha_parts/mecha_equipment/tool/drill - name = "Drill" - desc = "This is the drill that'll pierce the heavens! (Can be attached to: Combat and Engineering Exosuits)" - icon_state = "mecha_drill" - equip_cooldown = 30 - energy_drain = 10 - force = 15 - - action(atom/target) - if(!action_checks(target)) return - if(isobj(target)) - var/obj/target_obj = target - if(!target_obj.vars.Find("unacidable") || target_obj.unacidable) return - set_ready_state(0) - chassis.use_power(energy_drain) - chassis.visible_message("[chassis] starts to drill [target]", "You hear the drill.") - occupant_message("You start to drill [target]") - var/T = chassis.loc - var/C = target.loc //why are these backwards? we may never know -Pete - if(do_after_cooldown(target)) - if(T == chassis.loc && src == chassis.selected) - if(istype(target, /turf/simulated/wall/r_wall)) - occupant_message("[target] is too durable to drill through.") - else if(istype(target, /turf/simulated/mineral)) - for(var/turf/simulated/mineral/M in range(chassis,1)) - if(get_dir(chassis,M)&chassis.dir) - M.gets_drilled() - log_message("Drilled through [target]") - if(locate(/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp) in chassis.equipment) - var/obj/structure/ore_box/ore_box = locate(/obj/structure/ore_box) in chassis:cargo - if(ore_box) - for(var/obj/item/weapon/ore/ore in range(chassis,1)) - if(get_dir(chassis,ore)&chassis.dir) - ore.Move(ore_box) - else if(istype(target, /turf/simulated/floor/plating/airless/asteroid)) - for(var/turf/simulated/floor/plating/airless/asteroid/M in range(chassis,1)) - if(get_dir(chassis,M)&chassis.dir) - M.gets_drilled() - log_message("Drilled through [target]") - if(locate(/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp) in chassis.equipment) - var/obj/structure/ore_box/ore_box = locate(/obj/structure/ore_box) in chassis:cargo - if(ore_box) - for(var/obj/item/weapon/ore/ore in range(chassis,1)) - if(get_dir(chassis,ore)&chassis.dir) - ore.Move(ore_box) - else if(target.loc == C) - if(istype(target, /mob/living)) - var/mob/living/M = target - M.attack_log +="\[[time_stamp()]\] Mech Drilled by [chassis.occupant.name] ([chassis.occupant.ckey]) with [src.name]" - chassis.occupant.attack_log += "\[[time_stamp()]\] Mech Drilled [M.name] ([M.ckey]) with [src.name]" - log_attack("[chassis.occupant.name] ([chassis.occupant.ckey]) mech drilled [M.name] ([M.ckey]) with [src.name]" ) - if(!iscarbon(chassis.occupant)) - M.LAssailant = null - else - M.LAssailant = chassis.occupant - log_message("Drilled through [target]") - target.ex_act(2) - return 1 - - can_attach(obj/mecha/M as obj) - if(..()) - if(istype(M, /obj/mecha/working) || istype(M, /obj/mecha/combat)) - return 1 - return 0 - -/obj/item/mecha_parts/mecha_equipment/tool/drill/diamonddrill - name = "Diamond Drill" - desc = "This is an upgraded version of the drill that'll pierce the heavens! (Can be attached to: Combat and Engineering Exosuits)" - icon_state = "mecha_diamond_drill" - origin_tech = "materials=4;engineering=3" - equip_cooldown = 20 - force = 15 - - action(atom/target) - if(!action_checks(target)) return - if(isobj(target)) - var/obj/target_obj = target - if(target_obj.unacidable) return - set_ready_state(0) - chassis.use_power(energy_drain) - chassis.visible_message("[chassis] starts to drill [target]", "You hear the drill.") - occupant_message("You start to drill [target]") - var/T = chassis.loc - var/C = target.loc //why are these backwards? we may never know -Pete - if(do_after_cooldown(target)) - if(T == chassis.loc && src == chassis.selected) - if(istype(target, /turf/simulated/wall/r_wall)) - if(do_after_cooldown(target))//To slow down how fast mechs can drill through the station - log_message("Drilled through [target]") - target.ex_act(3) - else if(istype(target, /turf/simulated/mineral)) - for(var/turf/simulated/mineral/M in range(chassis,1)) - if(get_dir(chassis,M)&chassis.dir) - M.gets_drilled() - log_message("Drilled through [target]") - if(locate(/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp) in chassis.equipment) - var/obj/structure/ore_box/ore_box = locate(/obj/structure/ore_box) in chassis:cargo - if(ore_box) - for(var/obj/item/weapon/ore/ore in range(chassis,1)) - if(get_dir(chassis,ore)&chassis.dir) - ore.Move(ore_box) - else if(istype(target,/turf/simulated/floor/plating/airless/asteroid)) - for(var/turf/simulated/floor/plating/airless/asteroid/M in range(target,1)) - M.gets_drilled() - log_message("Drilled through [target]") - if(locate(/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp) in chassis.equipment) - var/obj/structure/ore_box/ore_box = locate(/obj/structure/ore_box) in chassis:cargo - if(ore_box) - for(var/obj/item/weapon/ore/ore in range(target,1)) - ore.Move(ore_box) - else if(target.loc == C) - if(istype(target, /mob/living)) - var/mob/living/M = target - M.attack_log +="\[[time_stamp()]\] Mech Drilled by [chassis.occupant.name] ([chassis.occupant.ckey]) with [src.name]" - chassis.occupant.attack_log += "\[[time_stamp()]\] Mech Drilled [M.name] ([M.ckey]) with [src.name]" - log_attack("[chassis.occupant.name] ([chassis.occupant.ckey]) mech drilled [M.name] ([M.ckey]) with [src.name]" ) - if(!iscarbon(chassis.occupant)) - M.LAssailant = null - else - M.LAssailant = chassis.occupant - log_message("Drilled through [target]") - target.ex_act(2) - return 1 - - can_attach(obj/mecha/M as obj) - if(..()) - if(istype(M, /obj/mecha/working) || istype(M, /obj/mecha/combat)) - return 1 - return 0 - -/obj/item/mecha_parts/mecha_equipment/tool/extinguisher - name = "Extinguisher" - desc = "Exosuit-mounted extinguisher (Can be attached to: Engineering exosuits)" - icon_state = "mecha_exting" - equip_cooldown = 5 - energy_drain = 0 - range = MELEE|RANGED - - New() - reagents = new/datum/reagents(1000) - reagents.my_atom = src - reagents.add_reagent("water", 1000) - ..() - return - - action(atom/target) //copypasted from extinguisher. TODO: Rewrite from scratch. - if(!action_checks(target) || get_dist(chassis, target)>3) return - if(get_dist(chassis, target)>2) return - set_ready_state(0) - if(do_after_cooldown(target)) - if(istype(target, /obj/structure/reagent_dispensers/watertank) && get_dist(chassis,target) <= 1) - var/obj/o = target - o.reagents.trans_to(src, 1000) - occupant_message("\blue Extinguisher refilled") - playsound(chassis, 'sound/effects/refill.ogg', 50, 1, -6) - else - if(src.reagents.total_volume > 0) - playsound(chassis, 'sound/effects/extinguish.ogg', 75, 1, -3) - var/direction = get_dir(chassis,target) - var/turf/T = get_turf(target) - var/turf/T1 = get_step(T,turn(direction, 90)) - var/turf/T2 = get_step(T,turn(direction, -90)) - - var/list/the_targets = list(T,T1,T2) - spawn(0) - for(var/a=0, a<5, a++) - var/obj/effect/effect/water/W = new /obj/effect/effect/water(get_turf(chassis)) - if(!W) - return - var/turf/my_target = pick(the_targets) - var/datum/reagents/R = new/datum/reagents(5) - W.reagents = R - R.my_atom = W - src.reagents.trans_to(W,1) - for(var/b=0, b<4, b++) - if(!W) - return - step_towards(W,my_target) - if(!W) - return - var/turf/W_turf = get_turf(W) - W.reagents.reaction(W_turf) - for(var/atom/atm in W_turf) - W.reagents.reaction(atm) - if(W.loc == my_target) - break - sleep(2) - return 1 - - get_equip_info() - return "[..()] \[[src.reagents.total_volume]\]" - - on_reagent_change() - return - - can_attach(obj/mecha/working/M as obj) - if(..()) - if(istype(M)) - return 1 - return 0 - - -/obj/item/mecha_parts/mecha_equipment/tool/rcd - name = "Mounted RCD" - desc = "An exosuit-mounted Rapid Construction Device. (Can be attached to: Any exosuit)" - icon_state = "mecha_rcd" - origin_tech = "materials=4;bluespace=3;magnets=4;powerstorage=4" - equip_cooldown = 10 - energy_drain = 250 - range = MELEE|RANGED - var/mode = 0 //0 - deconstruct, 1 - wall or floor, 2 - airlock. - var/canRwall = 0 - - New() - rcd_list += src - ..() - - Destroy() - rcd_list -= src - return ..() - - action(atom/target) - if(istype(target, /turf/space/transit))//>implying these are ever made -Sieve - return - if(!istype(target, /turf) && !istype(target, /obj/machinery/door/airlock)) - target = get_turf(target) - if(!action_checks(target) || get_dist(chassis, target)>3) return - playsound(chassis, 'sound/machines/click.ogg', 50, 1) - //meh - switch(mode) - if(0) - if(istype(target, /turf/simulated/wall)) - if(istype(target, /turf/simulated/wall/r_wall) && !canRwall) - return 0 - occupant_message("Deconstructing [target]...") - set_ready_state(0) - if(do_after_cooldown(target)) - chassis.spark_system.start() - target:ChangeTurf(/turf/simulated/floor/plating) - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - chassis.use_power(energy_drain) - else if(istype(target, /turf/simulated/floor)) - occupant_message("Deconstructing [target]...") - set_ready_state(0) - if(do_after_cooldown(target)) - chassis.spark_system.start() - target:ChangeTurf(/turf/space) - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - chassis.use_power(energy_drain) - else if(istype(target, /obj/machinery/door/airlock)) - occupant_message("Deconstructing [target]...") - set_ready_state(0) - if(do_after_cooldown(target)) - chassis.spark_system.start() - qdel(target) - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - chassis.use_power(energy_drain) - if(1) - if(istype(target, /turf/space)) - occupant_message("Building Floor...") - set_ready_state(0) - if(do_after_cooldown(target)) - target:ChangeTurf(/turf/simulated/floor/plating) - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - chassis.spark_system.start() - chassis.use_power(energy_drain*2) - else if(istype(target, /turf/simulated/floor)) - occupant_message("Building Wall...") - set_ready_state(0) - if(do_after_cooldown(target)) - target:ChangeTurf(/turf/simulated/wall) - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - chassis.spark_system.start() - chassis.use_power(energy_drain*2) - if(2) - if(istype(target, /turf/simulated/floor)) - occupant_message("Building Airlock...") - set_ready_state(0) - if(do_after_cooldown(target)) - chassis.spark_system.start() - var/obj/machinery/door/airlock/T = new /obj/machinery/door/airlock(target) - T.autoclose = 1 - playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) - playsound(target, 'sound/effects/sparks2.ogg', 50, 1) - chassis.use_power(energy_drain*2) - return - - - Topic(href,href_list) - ..() - if(href_list["mode"]) - mode = text2num(href_list["mode"]) - switch(mode) - if(0) - occupant_message("Switched RCD to Deconstruct.") - if(1) - occupant_message("Switched RCD to Construct.") - if(2) - occupant_message("Switched RCD to Construct Airlock.") - return - - get_equip_info() - return "[..()] \[D|C|A\]" - - - - -/obj/item/mecha_parts/mecha_equipment/teleporter - name = "Teleporter" - desc = "An exosuit module that allows exosuits to teleport to any position in view." - icon_state = "mecha_teleport" - origin_tech = "bluespace=10" - equip_cooldown = 150 - energy_drain = 1000 - range = RANGED - - action(atom/target) - if(!action_checks(target) || !is_teleport_allowed(src.loc.z)) return - var/turf/T = get_turf(target) - if(T) - set_ready_state(0) - chassis.use_power(energy_drain) - do_teleport(chassis, T, 4) - do_after_cooldown() - return - - -/obj/item/mecha_parts/mecha_equipment/wormhole_generator - name = "Wormhole Generator" - desc = "An exosuit module that allows generating of small quasi-stable wormholes." - icon_state = "mecha_wholegen" - origin_tech = "bluespace=3" - equip_cooldown = 50 - energy_drain = 300 - range = RANGED - - - action(atom/target) - if(!action_checks(target) || !is_teleport_allowed(src.loc.z)) return - var/list/theareas = list() - for(var/area/AR in orange(100, chassis)) - if(AR in theareas) continue - theareas += AR - if(!theareas.len) - return - var/area/thearea = pick(theareas) - var/list/L = list() - var/turf/pos = get_turf(src) - for(var/turf/T in get_area_turfs(thearea.type)) - if(!T.density && pos.z == T.z) - var/clear = 1 - for(var/obj/O in T) - if(O.density) - clear = 0 - break - if(clear) - L+=T - if(!L.len) - return - var/turf/target_turf = pick(L) - if(!target_turf) - return - chassis.use_power(energy_drain) - set_ready_state(0) - var/obj/effect/portal/P = new /obj/effect/portal(get_turf(target), target_turf) - P.icon = 'icons/obj/objects.dmi' - P.failchance = 0 - P.icon_state = "anom" - P.name = "wormhole" - message_admins("[key_name_admin(chassis.occupant, chassis.occupant.client)](?) (FLW) used a Wormhole Generator in ([loc.x],[loc.y],[loc.z] - JMP)",0,1) - log_game("[key_name(chassis.occupant)] used a Wormhole Generator in ([loc.x],[loc.y],[loc.z])") - do_after_cooldown() - src = null - spawn(rand(150,300)) - qdel(P) - return - -/obj/item/mecha_parts/mecha_equipment/gravcatapult - name = "Gravitational Catapult" - desc = "An exosuit mounted Gravitational Catapult." - icon_state = "mecha_teleport" - origin_tech = "bluespace=2;magnets=3" - equip_cooldown = 10 - energy_drain = 100 - range = MELEE|RANGED - var/atom/movable/locked - var/mode = 1 //1 - gravsling 2 - gravpush - - - action(atom/movable/target) - switch(mode) - if(1) - if(!action_checks(target) && !locked) return - if(!locked) - if(!istype(target) || target.anchored) - occupant_message("Unable to lock on [target]") - return - locked = target - occupant_message("Locked on [target]") - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - return - else if(target!=locked) - if(locked in view(chassis)) - locked.throw_at(target, 14, 1.5, chassis) - locked = null - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - else - locked = null - occupant_message("Lock on [locked] disengaged.") - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - if(2) - if(!action_checks(target)) return - var/list/atoms = list() - if(isturf(target)) - atoms = range(target,3) - else - atoms = orange(target,3) - for(var/atom/movable/A in atoms) - if(A.anchored) continue - spawn(0) - var/iter = 5-get_dist(A,target) - for(var/i=0 to iter) - step_away(A,target) - sleep(2) - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return - - get_equip_info() - return "[..()] [mode==1?"([locked||"Nothing"])":null] \[S|P\]" - - Topic(href, href_list) - ..() - if(href_list["mode"]) - mode = text2num(href_list["mode"]) - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - return - - -/obj/item/mecha_parts/mecha_equipment/anticcw_armor_booster //what is that noise? A BAWWW from TK mutants. - name = "Armor Booster Module (Close Combat Weaponry)" - desc = "Boosts exosuit armor against armed melee attacks. Requires energy to operate." - icon_state = "mecha_abooster_ccw" - origin_tech = "materials=3" - equip_cooldown = 10 - energy_drain = 50 - range = 0 - var/deflect_coeff = 1.15 - var/damage_coeff = 0.8 - - can_attach(obj/mecha/M as obj) - if(..()) - if(!istype(M, /obj/mecha/combat/honker)) - if(!M.proc_res["dynattackby"]) - return 1 - return 0 - - attach(obj/mecha/M as obj) - ..() - chassis.proc_res["dynattackby"] = src - return - - detach() - chassis.proc_res["dynattackby"] = null - ..() - return - - get_equip_info() - if(!chassis) return - return "* [src.name]" - - proc/dynattackby(obj/item/weapon/W as obj, mob/user as mob, params) - if(!action_checks(user)) - return chassis.dynattackby(W,user, params) - chassis.log_message("Attacked by [W]. Attacker - [user]") - if(prob(chassis.deflect_chance*deflect_coeff)) - to_chat(user, "\red The [W] bounces off [chassis] armor.") - chassis.log_append_to_last("Armor saved.") - else - chassis.occupant_message("[user] hits [chassis] with [W].") - user.visible_message("[user] hits [chassis] with [W].", "You hit [src] with [W].") - chassis.take_damage(round(W.force*damage_coeff),W.damtype) - chassis.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return - - -/obj/item/mecha_parts/mecha_equipment/antiproj_armor_booster - name = "Armor Booster Module (Ranged Weaponry)" - desc = "Boosts exosuit armor against ranged attacks. Completely blocks taser shots. Requires energy to operate." - icon_state = "mecha_abooster_proj" - origin_tech = "materials=4" - equip_cooldown = 10 - energy_drain = 50 - range = 0 - var/deflect_coeff = 1.15 - var/damage_coeff = 0.8 - - can_attach(obj/mecha/M as obj) - if(..()) - if(!istype(M, /obj/mecha/combat/honker)) - if(!M.proc_res["dynbulletdamage"] && !M.proc_res["dynhitby"]) - return 1 - return 0 - - attach(obj/mecha/M as obj) - ..() - chassis.proc_res["dynbulletdamage"] = src - chassis.proc_res["dynhitby"] = src - return - - detach() - chassis.proc_res["dynbulletdamage"] = null - chassis.proc_res["dynhitby"] = null - ..() - return - - get_equip_info() - if(!chassis) return - return "* [src.name]" - - proc/dynbulletdamage(var/obj/item/projectile/Proj) - if(!action_checks(src)) - return chassis.dynbulletdamage(Proj) - if(prob(chassis.deflect_chance*deflect_coeff)) - chassis.occupant_message("\blue The armor deflects incoming projectile.") - chassis.visible_message("The [chassis.name] armor deflects the projectile") - chassis.log_append_to_last("Armor saved.") - else - chassis.take_damage(round(Proj.damage*src.damage_coeff),Proj.flag) - chassis.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - Proj.on_hit(chassis) - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return - - proc/dynhitby(atom/movable/A) - if(!action_checks(A)) - return chassis.dynhitby(A) - if(prob(chassis.deflect_chance*deflect_coeff) || istype(A, /mob/living) || istype(A, /obj/item/mecha_parts/mecha_tracking)) - chassis.occupant_message("\blue The [A] bounces off the armor.") - chassis.visible_message("The [A] bounces off the [chassis] armor") - chassis.log_append_to_last("Armor saved.") - if(istype(A, /mob/living)) - var/mob/living/M = A - M.take_organ_damage(10) - else if(istype(A, /obj)) - var/obj/O = A - if(O.throwforce) - chassis.take_damage(round(O.throwforce*damage_coeff)) - chassis.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return - - -/obj/item/mecha_parts/mecha_equipment/repair_droid - name = "Repair Droid" - desc = "Automated repair droid. Scans exosuit for damage and repairs it. Can fix almost all types of external or internal damage." - icon_state = "repair_droid" - origin_tech = "magnets=3;programming=3" - equip_cooldown = 20 - energy_drain = 100 - range = 0 - var/health_boost = 2 - var/datum/global_iterator/pr_repair_droid - var/icon/droid_overlay - var/list/repairable_damage = list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH) - - New() - ..() - pr_repair_droid = new /datum/global_iterator/mecha_repair_droid(list(src),0) - pr_repair_droid.set_delay(equip_cooldown) - return - - attach(obj/mecha/M as obj) - ..() - droid_overlay = new(src.icon, icon_state = "repair_droid") - M.overlays += droid_overlay - return - - Destroy() - chassis.overlays -= droid_overlay - return ..() - - detach() - chassis.overlays -= droid_overlay - pr_repair_droid.stop() - ..() - return - - get_equip_info() - if(!chassis) return - return "* [src.name] - [pr_repair_droid.active()?"Dea":"A"]ctivate" - - - Topic(href, href_list) - ..() - if(href_list["toggle_repairs"]) - chassis.overlays -= droid_overlay - if(pr_repair_droid.toggle()) - droid_overlay = new(src.icon, icon_state = "repair_droid_a") - log_message("Activated.") - else - droid_overlay = new(src.icon, icon_state = "repair_droid") - log_message("Deactivated.") - set_ready_state(1) - chassis.overlays += droid_overlay - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - return - - -/datum/global_iterator/mecha_repair_droid - - process(var/obj/item/mecha_parts/mecha_equipment/repair_droid/RD as obj) - if(!RD.chassis) - stop() - RD.set_ready_state(1) - return - var/health_boost = RD.health_boost - var/repaired = 0 - if(RD.chassis.hasInternalDamage(MECHA_INT_SHORT_CIRCUIT)) - health_boost *= -2 - else if(RD.chassis.hasInternalDamage() && prob(15)) - for(var/int_dam_flag in RD.repairable_damage) - if(RD.chassis.hasInternalDamage(int_dam_flag)) - RD.chassis.clearInternalDamage(int_dam_flag) - repaired = 1 - break - if(health_boost<0 || RD.chassis.health < initial(RD.chassis.health)) - RD.chassis.health += min(health_boost, initial(RD.chassis.health)-RD.chassis.health) - repaired = 1 - if(repaired) - if(RD.chassis.use_power(RD.energy_drain)) - RD.set_ready_state(0) - else - stop() - RD.set_ready_state(1) - return - else - RD.set_ready_state(1) - return - - -/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay - name = "Energy Relay" - desc = "Wirelessly drains energy from any available power channel in area. The performance index is quite low." - icon_state = "tesla" - origin_tech = "magnets=4;powerstorage=3" - equip_cooldown = 10 - energy_drain = 0 - range = 0 - var/datum/global_iterator/pr_energy_relay - var/coeff = 100 - var/list/use_channels = list(EQUIP,ENVIRON,LIGHT) - - New() - ..() - pr_energy_relay = new /datum/global_iterator/mecha_energy_relay(list(src),0) - pr_energy_relay.set_delay(equip_cooldown) - return - - detach() - pr_energy_relay.stop() -// chassis.proc_res["dynusepower"] = null - chassis.proc_res["dyngetcharge"] = null - ..() - return - - attach(obj/mecha/M) - ..() - chassis.proc_res["dyngetcharge"] = src -// chassis.proc_res["dynusepower"] = src - return - - can_attach(obj/mecha/M) - if(..()) - if(!M.proc_res["dyngetcharge"])// && !M.proc_res["dynusepower"]) - return 1 - return 0 - - proc/dyngetcharge() - if(equip_ready) //disabled - return chassis.dyngetcharge() - var/area/A = get_area(chassis) - var/pow_chan = get_power_channel(A) - var/charge = 0 - if(pow_chan) - charge = 1000 //making magic - else - return chassis.dyngetcharge() - return charge - - proc/get_power_channel(var/area/A) - var/pow_chan - if(A) - for(var/c in use_channels) - if(A.powered(c)) - pow_chan = c - break - return pow_chan - - Topic(href, href_list) - ..() - if(href_list["toggle_relay"]) - if(pr_energy_relay.toggle()) - set_ready_state(0) - log_message("Activated.") - else - set_ready_state(1) - log_message("Deactivated.") - return - - get_equip_info() - if(!chassis) return - return "* [src.name] - [pr_energy_relay.active()?"Dea":"A"]ctivate" - -/* proc/dynusepower(amount) - if(!equip_ready) //enabled - var/area/A = get_area(chassis) - var/pow_chan = get_power_channel(A) - if(pow_chan) - A.master.use_power(amount*coeff, pow_chan) - return 1 - return chassis.dynusepower(amount)*/ - -/datum/global_iterator/mecha_energy_relay - - process(var/obj/item/mecha_parts/mecha_equipment/tesla_energy_relay/ER) - if(!ER.chassis || ER.chassis.hasInternalDamage(MECHA_INT_SHORT_CIRCUIT)) - stop() - ER.set_ready_state(1) - return - var/cur_charge = ER.chassis.get_charge() - if(isnull(cur_charge) || !ER.chassis.cell) - stop() - ER.set_ready_state(1) - ER.occupant_message("No powercell detected.") - return - if(cur_charge3\] - [pr_mech_generator.active()?"Dea":"A"]ctivate" - return - - action(target) - if(chassis) - var/result = load_fuel(target) - var/message - if(isnull(result)) - message = "[fuel_name] traces in target minimal. [target] cannot be used as fuel." - else if(!result) - message = "Unit is full." - else - message = "[result] unit\s of [fuel_name] successfully loaded." - send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) - occupant_message(message) - return - - proc/load_fuel(var/obj/item/I) - if(istype(I) && (fuel_type in I.materials)) - if(istype(I, /obj/item/stack/sheet)) - var/obj/item/stack/sheet/P = I - var/to_load = max(max_fuel - P.amount*P.perunit,0) - if(to_load) - var/units = min(max(round(to_load / P.perunit),1),P.amount) - if(units) - var/added_fuel = units * P.perunit - fuel_amount += added_fuel - P.use(units) - return added_fuel - else - return 0 - else // Some other object containing our fuel's type, so we just eat it (ores mainly) - var/to_load = max(min(I.materials[fuel_type], max_fuel - fuel_amount),0) - if(to_load == 0) - return 0 - fuel_amount += to_load - qdel(I) - return to_load - else if(istype(I, /obj/structure/ore_box)) - var/fuel_added = 0 - for(var/baz in I.contents) // Istypeless loop - var/obj/item/O = baz - if(fuel_type in O.materials) - fuel_added = load_fuel(O) - break - return fuel_added - return - - attackby(weapon,mob/user, params) - var/result = load_fuel(weapon) - var/weapon_name = "[weapon]" - if(isnull(result)) - user.visible_message("[user] tries to shove [weapon_name] into [src], but \the [src] rejects it.","[fuel_name] traces in target minimal. [weapon_name] cannot be used as fuel.") - else if(!result) - to_chat(user, "Unit is full.") - else - user.visible_message("[user] loads [src] with \the [weapon_name].","[result] unit\s of [fuel_name] successfully loaded.") - return - - critfail() - ..() - var/turf/simulated/T = get_turf(src) - if(!T) - return - var/datum/gas_mixture/GM = new - if(prob(10)) - GM.toxins += 100 - GM.temperature = 1500+T0C //should be enough to start a fire - T.visible_message("The [src] suddenly disgorges a cloud of heated plasma.") - qdel(src) - else - GM.toxins += 5 - GM.temperature = istype(T) ? T.air.temperature : T20C - T.visible_message("The [src] suddenly disgorges a cloud of plasma.") - T.assume_air(GM) - return - -/datum/global_iterator/mecha_generator - - process(var/obj/item/mecha_parts/mecha_equipment/generator/EG) - if(!EG.chassis) - stop() - EG.set_ready_state(1) - return 0 - if(EG.fuel_amount<=0) - stop() - EG.log_message("Deactivated - no fuel.") - EG.set_ready_state(1) - return 0 - if(anyprob(EG.reliability)) - EG.critfail() - stop() - return 0 - var/cur_charge = EG.chassis.get_charge() - if(isnull(cur_charge)) - EG.set_ready_state(1) - EG.occupant_message("No powercell detected.") - EG.log_message("Deactivated.") - stop() - return 0 - var/use_fuel = EG.fuel_per_cycle_idle - if(cur_charge[target] succesfully loaded.") - chassis.log_message("Loaded [O]. Cargo compartment capacity: [cargo_holder.cargo_capacity - cargo_holder.cargo.len]") - else - chassis.occupant_message("You must hold still while handling objects.") - O.anchored = initial(O.anchored) - else - chassis.occupant_message("Not enough room in cargo compartment.") - else - chassis.occupant_message("[target] is firmly secured.") - - else if(istype(target,/mob/living)) - var/mob/living/M = target - if(M.stat>1) return - if(chassis.occupant.a_intent == I_HARM) - chassis.occupant_message("\red You obliterate [target] with [src.name], leaving blood and guts everywhere.") - chassis.visible_message("\red [chassis] destroys [target] in an unholy fury.") - if(chassis.occupant.a_intent == I_DISARM) - chassis.occupant_message("\red You tear [target]'s limbs off with [src.name].") - chassis.visible_message("\red [chassis] rips [target]'s arms off.") - else - step_away(M,chassis) - chassis.occupant_message("You smash into [target], sending them flying.") - chassis.visible_message("[chassis] tosses [target] like a piece of paper.") - set_ready_state(0) - chassis.use_power(energy_drain) - do_after_cooldown() - return 1 - -/obj/item/mecha_parts/mecha_equipment/tool/mining_scanner - name = "exosuit mining scanner" - desc = "Equipment for engineering and combat exosuits. It will automatically check surrounding rock for useful minerals." - icon_state = "mecha_analyzer" - origin_tech = "materials=3;engineering=2" - equip_cooldown = 30 - var/scanning = 0 - -/obj/item/mecha_parts/mecha_equipment/tool/mining_scanner/New() - processing_objects.Add(src) - -/obj/item/mecha_parts/mecha_equipment/tool/mining_scanner/process() - if(!loc) - processing_objects.Remove(src) - qdel(src) - if(scanning) - return - if(istype(loc,/obj/mecha/working)) - var/obj/mecha/working/mecha = loc - if(!mecha.occupant) - return - var/list/occupant = list() - occupant |= mecha.occupant - scanning = 1 - mineral_scan_pulse(occupant,get_turf(loc)) - spawn(equip_cooldown) - scanning = 0 - - -/obj/item/mecha_parts/mecha_equipment/tool/mimercd - name = "Mounted MRCD" - desc = "An exosuit-mounted Mime Rapid Construction Device. (Can be attached to: Recitence)" - icon_state = "mecha_rcd" - origin_tech = "materials=4;bluespace=3;magnets=4;powerstorage=4" - equip_cooldown = 10 - energy_drain = 250 - range = MELEE|RANGED - -/obj/item/mecha_parts/mecha_equipment/tool/mimercd/can_attach(obj/mecha/combat/recitence/M as obj) - if(..()) - if(istype(M)) - return 1 - return 0 - -/obj/item/mecha_parts/mecha_equipment/tool/mimercd/action(atom/target) - if(istype(target, /turf/space/transit))//>implying these are ever made -Sieve - return - if(!istype(target, /turf) && !istype(target, /obj/machinery/door/airlock)) - target = get_turf(target) - if(!action_checks(target) || get_dist(chassis, target)>3) - return - - if(istype(target, /turf/simulated/floor)) - occupant_message("Building Wall...") - set_ready_state(0) - if(do_after_cooldown(target)) - new /obj/structure/barricade/mime/mrcd(target) - chassis.spark_system.start() - chassis.use_power(energy_drain*2) diff --git a/code/game/mecha/equipment/tools/work_tools.dm b/code/game/mecha/equipment/tools/work_tools.dm new file mode 100644 index 00000000000..4ff69a0d34e --- /dev/null +++ b/code/game/mecha/equipment/tools/work_tools.dm @@ -0,0 +1,452 @@ +//Hydraulic clamp, Kill clamp, Extinguisher, RCD, Mime RCD, Cable layer. + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp + name = "hydraulic clamp" + desc = "Equipment for engineering exosuits. Lifts objects and loads them into cargo." + icon_state = "mecha_clamp" + equip_cooldown = 15 + energy_drain = 10 + var/dam_force = 20 + var/obj/mecha/working/ripley/cargo_holder + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/can_attach(obj/mecha/working/ripley/M) + if(..()) + if(istype(M)) + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/attach(obj/mecha/M) + ..() + cargo_holder = M + return + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/detach(atom/moveto = null) + ..() + cargo_holder = null + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/action(atom/target) + if(!action_checks(target)) + return + if(!cargo_holder) + return + if(istype(target,/obj)) + var/obj/O = target + if(!O.anchored) + if(cargo_holder.cargo.len < cargo_holder.cargo_capacity) + chassis.visible_message("[chassis] lifts [target] and starts to load it into cargo compartment.") + O.anchored = 1 + if(do_after_cooldown(target)) + cargo_holder.cargo += O + O.loc = chassis + O.anchored = 0 + occupant_message("[target] successfully loaded.") + log_message("Loaded [O]. Cargo compartment capacity: [cargo_holder.cargo_capacity - cargo_holder.cargo.len]") + else + O.anchored = initial(O.anchored) + else + occupant_message("Not enough room in cargo compartment!") + else + occupant_message("[target] is firmly secured!") + + else if(istype(target,/mob/living)) + var/mob/living/M = target + if(M.stat == DEAD) return + if(chassis.occupant.a_intent == I_HARM) + M.take_overall_damage(dam_force) + if(!M) + return + M.adjustOxyLoss(round(dam_force/2)) + M.updatehealth() + target.visible_message("[chassis] squeezes [target].", \ + "[chassis] squeezes [target].",\ + "You hear something crack.") + add_logs(chassis.occupant, M, "attacked", "[name]", "(INTENT: [uppertext(chassis.occupant.a_intent)]) (DAMTYE: [uppertext(damtype)])") + start_cooldown() + else + step_away(M,chassis) + occupant_message("You push [target] out of the way.") + chassis.visible_message("[chassis] pushes [target] out of the way.") + return 1 + + + +//This is pretty much just for the death-ripley +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/kill + name = "\improper KILL CLAMP" + desc = "They won't know what clamped them!" + energy_drain = 0 + +/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/kill/action(atom/target) + if(!action_checks(target)) return + if(!cargo_holder) return + if(istype(target,/obj)) + var/obj/O = target + if(!O.anchored) + if(cargo_holder.cargo.len < cargo_holder.cargo_capacity) + chassis.visible_message("[chassis] lifts [target] and starts to load it into cargo compartment.") + O.anchored = 1 + if(do_after_cooldown(target)) + cargo_holder.cargo += O + O.loc = chassis + O.anchored = 0 + occupant_message("[target] successfully loaded.") + log_message("Loaded [O]. Cargo compartment capacity: [cargo_holder.cargo_capacity - cargo_holder.cargo.len]") + else + O.anchored = initial(O.anchored) + else + occupant_message("Not enough room in cargo compartment!") + else + occupant_message("[target] is firmly secured!") + + else if(istype(target,/mob/living)) + var/mob/living/M = target + if(M.stat == DEAD) return + if(chassis.occupant.a_intent == I_HARM) + target.visible_message("[chassis] destroys [target] in an unholy fury.", + "[chassis] destroys [target] in an unholy fury.") + M.gib() + /*if(chassis.occupant.a_intent == I_DISARM) + target.visible_message("[chassis] rips [target]'s arms off.", + "[chassis] rips [target]'s arms off.")*/ + else + step_away(M,chassis) + target.visible_message("[chassis] tosses [target] like a piece of paper.") + return 1 + + +/obj/item/mecha_parts/mecha_equipment/extinguisher + name = "exosuit extinguisher" + desc = "Equipment for engineering exosuits. A rapid-firing high capacity fire extinguisher." + icon_state = "mecha_exting" + equip_cooldown = 5 + energy_drain = 0 + range = MELEE|RANGED + +/obj/item/mecha_parts/mecha_equipment/extinguisher/New() + create_reagents(1000) + reagents.add_reagent("water", 1000) + ..() + return + +/obj/item/mecha_parts/mecha_equipment/extinguisher/action(atom/target) //copypasted from extinguisher. TODO: Rewrite from scratch. + if(!action_checks(target) || get_dist(chassis, target)>3) + return + + if(istype(target, /obj/structure/reagent_dispensers/watertank) && get_dist(chassis,target) <= 1) + var/obj/structure/reagent_dispensers/watertank/WT = target + WT.reagents.trans_to(src, 1000) + occupant_message("Extinguisher refilled.") + playsound(chassis, 'sound/effects/refill.ogg', 50, 1, -6) + else + if(reagents.total_volume > 0) + playsound(chassis, 'sound/effects/extinguish.ogg', 75, 1, -3) + var/direction = get_dir(chassis,target) + var/turf/T = get_turf(target) + var/turf/T1 = get_step(T,turn(direction, 90)) + var/turf/T2 = get_step(T,turn(direction, -90)) + + var/list/the_targets = list(T,T1,T2) + spawn(0) + for(var/a=0, a<5, a++) + var/obj/effect/effect/water/W = new /obj/effect/effect/water(get_turf(chassis)) + if(!W) + return + var/turf/my_target = pick(the_targets) + var/datum/reagents/R = new/datum/reagents(5) + W.reagents = R + R.my_atom = W + reagents.trans_to(W,1) + for(var/b=0, b<4, b++) + if(!W) + return + step_towards(W,my_target) + if(!W) + return + var/turf/W_turf = get_turf(W) + W.reagents.reaction(W_turf) + for(var/atom/atm in W_turf) + W.reagents.reaction(atm) + if(W.loc == my_target) + break + sleep(2) + return 1 + +/obj/item/mecha_parts/mecha_equipment/extinguisher/get_equip_info() + return "[..()] \[[src.reagents.total_volume]\]" + +/obj/item/mecha_parts/mecha_equipment/extinguisher/on_reagent_change() + return + +/obj/item/mecha_parts/mecha_equipment/extinguisher/can_attach(obj/mecha/working/M) + if(..()) + if(istype(M)) + return 1 + return 0 + + +/obj/item/mecha_parts/mecha_equipment/rcd + name = "Mounted RCD" + desc = "An exosuit-mounted Rapid Construction Device. (Can be attached to: Any exosuit)" + icon_state = "mecha_rcd" + origin_tech = "materials=4;bluespace=3;magnets=4;powerstorage=4" + equip_cooldown = 10 + energy_drain = 250 + range = MELEE|RANGED + var/mode = 0 //0 - deconstruct, 1 - wall or floor, 2 - airlock. + var/canRwall = 0 + +/obj/item/mecha_parts/mecha_equipment/rcd/New() + rcd_list += src + ..() + +/obj/item/mecha_parts/mecha_equipment/rcd/Destroy() + rcd_list -= src + return ..() + +/obj/item/mecha_parts/mecha_equipment/rcd/action(atom/target) + if(istype(target, /turf/space/transit))//>implying these are ever made -Sieve + return + + if(!istype(target, /turf) && !istype(target, /obj/machinery/door/airlock)) + target = get_turf(target) + + if(!action_checks(target) || get_dist(chassis, target)>3) + return + playsound(chassis, 'sound/machines/click.ogg', 50, 1) + + switch(mode) + if(0) + if(istype(target, /turf/simulated/wall)) + if(istype(target, /turf/simulated/wall/r_wall) && !canRwall) + return 0 + var/turf/simulated/wall/W = target + occupant_message("Deconstructing [target]...") + if(do_after_cooldown(W)) + chassis.spark_system.start() + W.ChangeTurf(/turf/simulated/floor/plating) + playsound(W, 'sound/items/Deconstruct.ogg', 50, 1) + else if(istype(target, /turf/simulated/floor)) + var/turf/simulated/floor/F = target + occupant_message("Deconstructing [target]...") + if(do_after_cooldown(F)) + chassis.spark_system.start() + F.ChangeTurf(/turf/space) + F.air_update_turf() + playsound(F, 'sound/items/Deconstruct.ogg', 50, 1) + else if(istype(target, /obj/machinery/door/airlock)) + occupant_message("Deconstructing [target]...") + if(do_after_cooldown(target)) + chassis.spark_system.start() + qdel(target) + playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) + if(1) + if(istype(target, /turf/space)) + var/turf/space/S = target + occupant_message("Building Floor...") + if(do_after_cooldown(S)) + S.ChangeTurf(/turf/simulated/floor/plating) + playsound(S, 'sound/items/Deconstruct.ogg', 50, 1) + chassis.spark_system.start() + else if(istype(target, /turf/simulated/floor)) + var/turf/simulated/floor/F = target + occupant_message("Building Wall...") + if(do_after_cooldown(F)) + F.ChangeTurf(/turf/simulated/wall) + playsound(F, 'sound/items/Deconstruct.ogg', 50, 1) + chassis.spark_system.start() + if(2) + if(istype(target, /turf/simulated/floor)) + occupant_message("Building Airlock...") + if(do_after_cooldown(target)) + chassis.spark_system.start() + var/obj/machinery/door/airlock/T = new /obj/machinery/door/airlock(target) + T.autoclose = 1 + playsound(target, 'sound/items/Deconstruct.ogg', 50, 1) + playsound(target, 'sound/effects/sparks2.ogg', 50, 1) + + +/obj/item/mecha_parts/mecha_equipment/rcd/Topic(href,href_list) + ..() + if(href_list["mode"]) + mode = text2num(href_list["mode"]) + switch(mode) + if(0) + occupant_message("Switched RCD to Deconstruct.") + if(1) + occupant_message("Switched RCD to Construct.") + if(2) + occupant_message("Switched RCD to Construct Airlock.") + +/obj/item/mecha_parts/mecha_equipment/rcd/get_equip_info() + return "[..()] \[D|C|A\]" + + +/obj/item/mecha_parts/mecha_equipment/mimercd + name = "mounted MRCD" + desc = "An exosuit-mounted Mime Rapid Construction Device. (Can be attached to: Recitence)" + icon_state = "mecha_rcd" + origin_tech = "materials=4;bluespace=3;magnets=4;powerstorage=4" + equip_cooldown = 10 + energy_drain = 250 + range = MELEE|RANGED + +/obj/item/mecha_parts/mecha_equipment/mimercd/can_attach(obj/mecha/combat/recitence/M) + if(..()) + if(istype(M)) + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/mimercd/action(atom/target) + if(istype(target, /turf/space/transit))//>implying these are ever made -Sieve + return + if(!istype(target, /turf)) + target = get_turf(target) + if(!action_checks(target) || get_dist(chassis, target)>3) + return + + if(istype(target, /turf/simulated/floor)) + occupant_message("Building Wall...") + if(do_after_cooldown(target)) + new /obj/structure/barricade/mime/mrcd(target) + chassis.spark_system.start() + + + +/obj/item/mecha_parts/mecha_equipment/cable_layer + name = "cable layer" + desc = "Equipment for engineering exosuits. Lays cable along the exosuit's path." + icon_state = "mecha_wire" + var/datum/event/event + var/turf/old_turf + var/obj/structure/cable/last_piece + var/obj/item/stack/cable_coil/cable + var/max_cable = 1000 + +/obj/item/mecha_parts/mecha_equipment/cable_layer/New() + cable = new(src) + cable.amount = 0 + ..() + +/obj/item/mecha_parts/mecha_equipment/cable_layer/can_attach(obj/mecha/working/M) + if(..()) + if(istype(M)) + return 1 + return 0 + +/obj/item/mecha_parts/mecha_equipment/cable_layer/attach() + ..() + event = chassis.events.addEvent("onMove",src,"layCable") + return + +/obj/item/mecha_parts/mecha_equipment/cable_layer/detach() + chassis.events.clearEvent("onMove",event) + return ..() + +/obj/item/mecha_parts/mecha_equipment/cable_layer/Destroy() + chassis.events.clearEvent("onMove",event) + return ..() + +/obj/item/mecha_parts/mecha_equipment/cable_layer/action(var/obj/item/stack/cable_coil/target) + if(!action_checks(target)) + return + if(istype(target) && target.amount) + var/cur_amount = cable? cable.amount : 0 + var/to_load = max(max_cable - cur_amount,0) + if(to_load) + to_load = min(target.amount, to_load) + if(!cable) + cable = new(src) + cable.amount = 0 + cable.amount += to_load + target.use(to_load) + occupant_message("[to_load] meters of cable successfully loaded.") + send_byjax(chassis.occupant,"exosuit.browser","\ref[src]",src.get_equip_info()) + else + occupant_message("Reel is full.") + else + occupant_message("Unable to load [target] - no cable found.") + + +/obj/item/mecha_parts/mecha_equipment/cable_layer/Topic(href,href_list) + ..() + if(href_list["toggle"]) + set_ready_state(!equip_ready) + occupant_message("[src] [equip_ready?"dea":"a"]ctivated.") + log_message("[equip_ready?"Dea":"A"]ctivated.") + return + if(href_list["cut"]) + if(cable && cable.amount) + var/m = round(input(chassis.occupant,"Please specify the length of cable to cut","Cut cable",min(cable.amount,30)) as num, 1) + m = min(m, cable.amount) + if(m) + use_cable(m) + var/obj/item/stack/cable_coil/CC = new (get_turf(chassis)) + CC.amount = m + else + occupant_message("There's no more cable on the reel.") + return + +/obj/item/mecha_parts/mecha_equipment/cable_layer/get_equip_info() + var/output = ..() + if(output) + return "[output] \[Cable: [cable ? cable.amount : 0] m\][(cable && cable.amount) ? "- [!equip_ready?"Dea":"A"]ctivate|Cut" : null]" + return + +/obj/item/mecha_parts/mecha_equipment/cable_layer/proc/use_cable(amount) + if(!cable || cable.amount<1) + set_ready_state(1) + occupant_message("Cable depleted, [src] deactivated.") + log_message("Cable depleted, [src] deactivated.") + return + if(cable.amount < amount) + occupant_message("No enough cable to finish the task.") + return + cable.use(amount) + update_equip_info() + return 1 + +/obj/item/mecha_parts/mecha_equipment/cable_layer/proc/reset() + last_piece = null + +/obj/item/mecha_parts/mecha_equipment/cable_layer/proc/dismantleFloor(var/turf/new_turf) + if(istype(new_turf, /turf/simulated/floor)) + var/turf/simulated/floor/T = new_turf + if(!istype(T, /turf/simulated/floor/plating)) + if(!T.broken && !T.burnt) + new T.floor_tile(T) + T.make_plating() + return !new_turf.intact + +/obj/item/mecha_parts/mecha_equipment/cable_layer/proc/layCable(var/turf/new_turf) + if(equip_ready || !istype(new_turf) || !dismantleFloor(new_turf)) + return reset() + var/fdirn = turn(chassis.dir,180) + for(var/obj/structure/cable/LC in new_turf) // check to make sure there's not a cable there already + if(LC.d1 == fdirn || LC.d2 == fdirn) + return reset() + if(!use_cable(1)) + return reset() + var/obj/structure/cable/NC = new(new_turf) + NC.cableColor("red") + NC.d1 = 0 + NC.d2 = fdirn + NC.updateicon() + + var/datum/powernet/PN + if(last_piece && last_piece.d2 != chassis.dir) + last_piece.d1 = min(last_piece.d2, chassis.dir) + last_piece.d2 = max(last_piece.d2, chassis.dir) + last_piece.updateicon() + PN = last_piece.powernet + + if(!PN) + PN = new() + powernets += PN + NC.powernet = PN + PN.cables += NC + NC.mergeConnectedNetworks(NC.d2) + + //NC.mergeConnectedNetworksOnTurf() + last_piece = NC + return 1 + diff --git a/code/game/mecha/mecha.dm b/code/game/mecha/mecha.dm index c425ec0edef..69189e51456 100644 --- a/code/game/mecha/mecha.dm +++ b/code/game/mecha/mecha.dm @@ -58,10 +58,6 @@ var/list/operation_req_access = list()//required access level for mecha operation var/list/internals_req_access = list(access_engine,access_robotics)//required access level to open cell compartment - var/datum/global_iterator/pr_int_temp_processor //normalizes internal air mixture temperature - var/datum/global_iterator/pr_give_air //moves air from tank to cabin - var/datum/global_iterator/pr_internal_damage //processes internal damage - var/wreckage var/list/equipment = new @@ -70,7 +66,9 @@ var/datum/events/events var/turf/crashing = null - var/stepsound = 'sound/mecha/mechturn.ogg' + + var/stepsound = 'sound/mecha/mechstep.ogg' + var/turnsound = 'sound/mecha/mechturn.ogg' var/melee_cooldown = 10 var/melee_can_hit = 1 @@ -83,16 +81,18 @@ icon_state += "-open" add_radio() add_cabin() + if(!add_airtank()) //we check this here in case mecha does not have an internal tank available by default - WIP removeVerb(/obj/mecha/verb/connect_to_port) removeVerb(/obj/mecha/verb/toggle_internal_tank) + spark_system.set_up(2, 0, src) spark_system.attach(src) add_cell() - add_iterators() + + processing_objects.Add(src) removeVerb(/obj/mecha/verb/disconnect_from_port) - log_message("[src.name] created.") - loc.Entered(src) + log_message("[src] created.") mechas_list += src //global mech list prepare_huds() var/datum/atom_hud/data/diagnostic/diag_hud = huds[DATA_HUD_DIAGNOSTIC] @@ -100,7 +100,6 @@ diag_hud_set_mechhealth() diag_hud_set_mechcell() diag_hud_set_mechstat() - return //////////////////////// ////// Helpers ///////// @@ -140,29 +139,6 @@ radio.icon_state = icon_state radio.subspace_transmission = 1 -/obj/mecha/proc/add_iterators() - pr_int_temp_processor = new /datum/global_iterator/mecha_preserve_temp(list(src)) - pr_give_air = new /datum/global_iterator/mecha_tank_give_air(list(src)) - pr_internal_damage = new /datum/global_iterator/mecha_internal_damage(list(src),0) - -/obj/mecha/proc/mecha_do_after(delay as num) - sleep(delay) - if(src) - return 1 - return 0 - -/obj/mecha/proc/enter_after(delay as num, var/mob/user as mob, var/numticks = 5) - var/delayfraction = delay/numticks - - var/turf/T = user.loc - - for(var/i = 0, iMaintenance protocols in effect.") @@ -230,28 +180,30 @@ return if(src == target) return - var/dir_to_target = get_dir(src,target) - if(dir_to_target && !(dir_to_target & src.dir))//wrong direction + + var/dir_to_target = get_dir(src, target) + if(dir_to_target && !(dir_to_target & dir))//wrong direction return + if(hasInternalDamage(MECHA_INT_CONTROL_LOST)) target = safepick(view(3,target)) if(!target) return + if(!target.Adjacent(src)) if(selected && selected.is_ranged()) selected.action(target, params) else if(selected && selected.is_melee()) selected.action(target, params) else - if(internal_damage&MECHA_INT_CONTROL_LOST) - target = safepick(oview(1,src)) - if(!melee_can_hit || !istype(target, /atom)) + if(internal_damage & MECHA_INT_CONTROL_LOST) + target = safepick(oview(1, src)) + if(!melee_can_hit || !isatom(target)) return target.mech_melee_attack(src) melee_can_hit = 0 - if(mecha_do_after(melee_cooldown)) + spawn(melee_cooldown) melee_can_hit = 1 - return /obj/mecha/proc/mech_toxin_damage(mob/living/target) playsound(src, 'sound/effects/spray2.ogg', 50, 1) @@ -293,54 +245,65 @@ events.fireEvent("onMove",get_turf(src)) /obj/mecha/Process_Spacemove(var/movement_dir = 0) - if(occupant) - return occupant.Process_Spacemove(movement_dir) //We'll just say you used the clamp to grab the wall - return ..() + . = ..() + if(.) + return 1 -/obj/mecha/relaymove(mob/user,direction) - if(user != src.occupant) //While not "realistic", this piece is player friendly. + var/atom/movable/backup = get_spacemove_backup() + if(backup) + if(istype(backup) && movement_dir && !backup.anchored) + if(backup.newtonian_move(turn(movement_dir, 180))) + if(occupant) + to_chat(occupant, "You push off of [backup] to propel yourself.") + return 1 + +/obj/mecha/relaymove(mob/user, direction) + if(!direction) + return + if(user != occupant) //While not "realistic", this piece is player friendly. user.forceMove(get_turf(src)) - to_chat(user, "You climb out from [src]") + to_chat(user, "You climb out from [src].") return 0 if(connected_port) if(world.time - last_message > 20) - src.occupant_message("Unable to move while connected to the air system port") + occupant_message("Unable to move while connected to the air system port!") last_message = world.time return 0 if(state) - occupant_message("Maintenance protocols in effect") + occupant_message("Maintenance protocols in effect.") return return domove(direction) - + /obj/mecha/proc/domove(direction) - return call((proc_res["dyndomove"]||src), "dyndomove")(direction) - -/obj/mecha/proc/dyndomove(direction) if(!can_move) return 0 if(!Process_Spacemove(direction)) return 0 if(!has_charge(step_energy_drain)) return 0 + var/move_result = 0 - if(hasInternalDamage(MECHA_INT_CONTROL_LOST)) + if(internal_damage & MECHA_INT_CONTROL_LOST) move_result = mechsteprand() - else if(src.dir!=direction) + else if(dir != direction) move_result = mechturn(direction) else move_result = mechstep(direction) + + can_move = 0 + spawn(step_in) + can_move = 1 + if(move_result) - can_move = 0 use_power(step_energy_drain) - if(mecha_do_after(step_in)) - can_move = 1 return 1 return 0 + /obj/mecha/proc/mechturn(direction) dir = direction - if(stepsound) - playsound(src,stepsound,40,1) + if(turnsound) + playsound(src,turnsound,40,1) return 1 /obj/mecha/proc/mechstep(direction) @@ -354,12 +317,13 @@ if(result && stepsound) playsound(src,stepsound,40,1) return result + + -/obj/mecha/Bump(var/atom/obstacle) -// src.inertia_dir = null - if(src.throwing)//high velocity mechas in your face! +/obj/mecha/Bump(var/atom/obstacle, bump_allowed) + if(throwing) //high velocity mechas in your face! var/breakthrough = 0 - if(istype(obstacle, /obj/structure/window/)) + if(istype(obstacle, /obj/structure/window)) qdel(obstacle) breakthrough = 1 @@ -385,7 +349,7 @@ else if(istype(obstacle, /obj/structure/reagent_dispensers/fueltank)) obstacle.ex_act(1) - else if(istype(obstacle, /mob/living)) + else if(isliving(obstacle)) var/mob/living/L = obstacle var/hit_sound = list('sound/weapons/genhit1.ogg','sound/weapons/genhit2.ogg','sound/weapons/genhit3.ogg') if(L.flags & GODMODE) @@ -400,34 +364,34 @@ breakthrough = 1 else - src.throwing = 0//so mechas don't get stuck when landing after being sent by a Mass Driver - src.crashing = null + throwing = 0 //so mechas don't get stuck when landing after being sent by a Mass Driver + crashing = null if(breakthrough) if(crashing) spawn(1) - src.throw_at(crashing, 50, src.throw_speed) + throw_at(crashing, 50, throw_speed) else spawn(1) crashing = get_distant_turf(get_turf(src), dir, 3)//don't use get_dir(src, obstacle) or the mech will stop if he bumps into a one-direction window on his tile. - src.throw_at(crashing, 50, src.throw_speed) + throw_at(crashing, 50, throw_speed) - if(istype(obstacle, /obj)) - var/obj/O = obstacle - if(istype(O, /obj/effect/portal)) //derpfix - src.anchored = 0 - O.Bumped(src) - spawn(0)//countering portal teleport spawn(0), hurr - src.anchored = 1 - else if(!O.anchored) - step(obstacle,src.dir) - else //I have no idea why I disabled this - obstacle.Bumped(src) - else if(istype(obstacle, /mob)) - step(obstacle,src.dir) else - obstacle.Bumped(src) - return + if(bump_allowed) + if(..()) + return + if(isobj(obstacle)) + var/obj/O = obstacle + if(istype(O, /obj/effect/portal)) //derpfix + anchored = 0 + O.Bumped(src) + spawn(0) //countering portal teleport spawn(0), hurr + anchored = 1 + else if(!O.anchored) + step(obstacle, dir) + else if(ismob(obstacle)) + step(obstacle, dir) + /////////////////////////////////// //////// Internal damage //////// @@ -436,7 +400,7 @@ /obj/mecha/proc/check_for_internal_damage(var/list/possible_int_damage,var/ignore_threshold=null) if(!islist(possible_int_damage) || isemptylist(possible_int_damage)) return if(prob(20)) - if(ignore_threshold || src.health*100/initial(src.health)Life support system reactivated.") - pr_int_temp_processor.start() + occupant_message("Life support system reactivated.") if(MECHA_INT_FIRE) - occupant_message("Internal fire extinquished.") + occupant_message("Internal fire extinquished.") if(MECHA_INT_TANK_BREACH) - occupant_message("Damaged internal tank has been sealed.") + occupant_message("Damaged internal tank has been sealed.") diag_hud_set_mechstat() - return //////////////////////////////////////// @@ -496,8 +456,8 @@ /obj/mecha/proc/update_health() - if(src.health > 0) - src.spark_system.start() + if(health > 0) + spark_system.start() diag_hud_set_mechhealth() else qdel(src) @@ -506,108 +466,109 @@ /obj/mecha/attack_hand(mob/living/user as mob) user.changeNext_move(CLICK_CD_MELEE) user.do_attack_animation(src) - src.log_message("Attack by hand/paw. Attacker - [user].",1) + log_message("Attack by hand/paw. Attacker - [user].",1) - - if((HULK in user.mutations) && !prob(src.deflect_chance)) - src.take_damage(15) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - user.visible_message("[user] hits [src.name], doing some damage.", "You hit [src.name] with all your might. The metal creaks and bends.") + if((HULK in user.mutations) && !prob(deflect_chance)) + take_damage(15) + check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) + user.visible_message("[user] hits [name], doing some damage.", + "You hit [name] with all your might. The metal creaks and bends.") else - user.visible_message("[user] hits [src.name]. Nothing happens","You hit [src.name] with no visible effect.") - src.log_append_to_last("Armor saved.") + user.visible_message("[user] hits [name]. Nothing happens","You hit [name] with no visible effect.") + log_append_to_last("Armor saved.") return /obj/mecha/attack_alien(mob/living/user as mob) - src.log_message("Attack by alien. Attacker - [user].",1) + log_message("Attack by alien. Attacker - [user].",1) user.changeNext_move(CLICK_CD_MELEE) user.do_attack_animation(src) - if(!prob(src.deflect_chance)) - src.take_damage(15) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - playsound(src.loc, 'sound/weapons/slash.ogg', 50, 1, -1) + if(!prob(deflect_chance)) + take_damage(15) + check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) + playsound(loc, 'sound/weapons/slash.ogg', 50, 1, -1) to_chat(user, "\red You slash at the armored suit!") - visible_message("\red The [user] slashes at [src.name]'s armor!") + visible_message("\red The [user] slashes at [name]'s armor!") else - src.log_append_to_last("Armor saved.") - playsound(src.loc, 'sound/weapons/slash.ogg', 50, 1, -1) + log_append_to_last("Armor saved.") + playsound(loc, 'sound/weapons/slash.ogg', 50, 1, -1) to_chat(user, "\green Your claws had no effect!") - src.occupant_message("\blue The [user]'s claws are stopped by the armor.") - visible_message("\blue The [user] rebounds off [src.name]'s armor!") + occupant_message("\blue The [user]'s claws are stopped by the armor.") + visible_message("\blue The [user] rebounds off [name]'s armor!") return /obj/mecha/attack_animal(mob/living/simple_animal/user as mob) - src.log_message("Attack by simple animal. Attacker - [user].",1) + log_message("Attack by simple animal. Attacker - [user].",1) if(user.melee_damage_upper == 0) user.custom_emote(1, "[user.friendly] [src]") else user.do_attack_animation(src) - if(!prob(src.deflect_chance)) + if(!prob(deflect_chance)) var/damage = rand(user.melee_damage_lower, user.melee_damage_upper) - src.take_damage(damage) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) + take_damage(damage) + check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) visible_message("[user] [user.attacktext] [src]!") user.attack_log += text("\[[time_stamp()]\] attacked [src.name]") else - src.log_append_to_last("Armor saved.") - playsound(src.loc, 'sound/weapons/slash.ogg', 50, 1, -1) - src.occupant_message("\blue The [user]'s attack is stopped by the armor.") - visible_message("\blue The [user] rebounds off [src.name]'s armor!") - user.attack_log += text("\[[time_stamp()]\] attacked [src.name]") + log_append_to_last("Armor saved.") + playsound(loc, 'sound/weapons/slash.ogg', 50, 1, -1) + occupant_message("\blue The [user]'s attack is stopped by the armor.") + visible_message("\blue The [user] rebounds off [name]'s armor!") + user.attack_log += text("\[[time_stamp()]\] attacked [name]") return /obj/mecha/hitby(atom/movable/A as mob|obj) //wrapper ..() - src.log_message("Hit by [A].",1) - call((proc_res["dynhitby"]||src), "dynhitby")(A) - return + log_message("Hit by [A].",1) -/obj/mecha/proc/dynhitby(atom/movable/A) + var/def_coeff = 1 + var/dam_coeff = 1 + var/counter_tracking = 0 + for(var/obj/item/mecha_parts/mecha_equipment/antiproj_armor_booster/B in equipment) + if(B.projectile_react()) + def_coeff = B.deflect_coeff + dam_coeff = B.damage_coeff + counter_tracking = 1 + break if(istype(A, /obj/item/mecha_parts/mecha_tracking)) - A.forceMove(src) - src.visible_message("The [A] fastens firmly to [src].") - return - if(prob(src.deflect_chance) || istype(A, /mob)) - src.occupant_message("\blue The [A] bounces off the armor.") - src.visible_message("The [A] bounces off the [src.name] armor") - src.log_append_to_last("Armor saved.") - if(istype(A, /mob/living)) + if(!counter_tracking) + A.forceMove(src) + visible_message("The [A] fastens firmly to [src].") + return + + if(prob(deflect_chance * def_coeff) || ismob(A)) + occupant_message("[A] bounces off the armor.") + visible_message("[A] bounces off the [src]\s armor!") + log_append_to_last("Armor saved.") + if(isliving(A)) var/mob/living/M = A - M.take_organ_damage(10) - else if(istype(A, /obj)) + M.take_organ_damage(10) + + if(isobj(A)) var/obj/O = A if(O.throwforce) - src.take_damage(O.throwforce) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - return + take_damage(O.throwforce * dam_coeff) + check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) /obj/mecha/bullet_act(var/obj/item/projectile/Proj) //wrapper - src.log_message("Hit by projectile. Type: [Proj.name]([Proj.flag]).",1) - call((proc_res["dynbulletdamage"]||src), "dynbulletdamage")(Proj) //calls equipment - ..() - return + log_message("Hit by projectile. Type: [Proj.name]([Proj.flag]).",1) -/obj/mecha/proc/dynbulletdamage(var/obj/item/projectile/Proj) - if(prob(src.deflect_chance)) - src.occupant_message("\blue The armor deflects incoming projectile.") - src.visible_message("The [src.name] armor deflects the projectile") - src.log_append_to_last("Armor saved.") - return - var/ignore_threshold - if(Proj.flag == "taser") - use_power(200) - return - if(istype(Proj, /obj/item/projectile/beam/pulse)) - ignore_threshold = 1 - if((Proj.damage_type == BRUTE || Proj.damage_type == BURN)) - src.take_damage(Proj.damage,Proj.flag) - src.visible_message("[src.name] is hit by [Proj].") - src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST,MECHA_INT_SHORT_CIRCUIT),ignore_threshold) + var/deflection = 1 + var/dam_coeff = 1 + for(var/obj/item/mecha_parts/mecha_equipment/antiproj_armor_booster/B in equipment) + if(B.projectile_react()) + deflection = B.deflect_coeff + dam_coeff = B.damage_coeff + break + + if(prob(deflect_chance & deflection) && (Proj.damage_type == BRUTE || Proj.damage_type == BURN)) + visible_message("[src] is hit by [Proj].") + take_damage(Proj.damage * dam_coeff, Proj.flag) + check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST,MECHA_INT_SHORT_CIRCUIT)) Proj.on_hit(src) - return + /obj/mecha/Destroy() go_out() @@ -615,19 +576,11 @@ if(isAI(M)) M.gib() //AIs are loaded into the mech computer itself. When the mech dies, so does the AI. Forever. else - M.Move(loc) + M.forceMove(loc) if(prob(30)) explosion(get_turf(loc), 0, 0, 1, 3) - if(istype(src, /obj/mecha/working/ripley/)) - var/obj/mecha/working/ripley/R = src - if(R.cargo) - for(var/obj/O in R.cargo) //Dump contents of stored cargo - O.forceMove(loc) - R.cargo -= O - loc.Entered(O) - if(wreckage) var/obj/effect/decal/mecha_wreckage/WR = new wreckage(loc) for(var/obj/item/mecha_parts/mecha_equipment/E in equipment) @@ -654,65 +607,43 @@ qdel(cell) if(internal_tank) qdel(internal_tank) + + processing_objects.Remove(src) equipment.Cut() cell = null internal_tank = null - - qdel(pr_int_temp_processor) - qdel(pr_give_air) - qdel(pr_internal_damage) + if(loc) + loc.assume_air(cabin_air) + air_update_turf() + else + qdel(cabin_air) + cabin_air = null qdel(spark_system) - pr_int_temp_processor = null - pr_give_air = null - pr_internal_damage = null spark_system = null mechas_list -= src //global mech list return ..() /obj/mecha/ex_act(severity) - src.log_message("Affected by explosion of severity: [severity].",1) - if(prob(src.deflect_chance)) + log_message("Affected by explosion of severity: [severity].",1) + if(prob(deflect_chance)) severity++ - src.log_append_to_last("Armor saved, changing severity to [severity].") + log_append_to_last("Armor saved, changing severity to [severity].") switch(severity) - if(1.0) + if(1) qdel(src) - if(2.0) + if(2) if(prob(30)) qdel(src) else - src.take_damage(initial(src.health)/2) - src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST,MECHA_INT_SHORT_CIRCUIT),1) - if(3.0) + take_damage(initial(health)/2) + check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL, MECHA_INT_TANK_BREACH, MECHA_INT_CONTROL_LOST, MECHA_INT_SHORT_CIRCUIT), 1) + if(3) if(prob(5)) qdel(src) else - src.take_damage(initial(src.health)/5) - src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST,MECHA_INT_SHORT_CIRCUIT),1) - return - -/*Will fix later -Sieve -/obj/mecha/attack_blob(mob/user as mob) - src.log_message("Attack by blob. Attacker - [user].",1) - if(!prob(src.deflect_chance)) - src.take_damage(6) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - playsound(src.loc, 'sound/effects/blobattack.ogg', 50, 1, -1) - to_chat(user, "\red You smash at the armored suit!") - for(var/mob/V in viewers(src)) - if(V.client && !(V.blinded)) - V.show_message("\red The [user] smashes against [src.name]'s armor!", 1) - else - src.log_append_to_last("Armor saved.") - playsound(src.loc, 'sound/effects/blobattack.ogg', 50, 1, -1) - to_chat(user, "\green Your attack had no effect!") - src.occupant_message("\blue The [user]'s attack is stopped by the armor.") - for(var/mob/V in viewers(src)) - if(V.client && !(V.blinded)) - V.show_message("\blue The [user] rebounds off the [src.name] armor!", 1) - return -*/ + take_damage(initial(health) / 5) + check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL, MECHA_INT_TANK_BREACH, MECHA_INT_CONTROL_LOST, MECHA_INT_SHORT_CIRCUIT), 1) //TODO /obj/mecha/blob_act() @@ -721,45 +652,23 @@ /obj/mecha/emp_act(severity) if(get_charge()) - use_power((cell.charge/2)/severity) - take_damage(50 / severity,"energy") - src.log_message("EMP detected",1) - check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_CONTROL_LOST,MECHA_INT_SHORT_CIRCUIT),1) - return + use_power((cell.charge / 2) / severity) + take_damage(50 / severity, "energy") + log_message("EMP detected", 1) + check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL, MECHA_INT_CONTROL_LOST, MECHA_INT_SHORT_CIRCUIT), 1) /obj/mecha/temperature_expose(datum/gas_mixture/air, exposed_temperature, exposed_volume) - if(exposed_temperature>src.max_temperature) - src.log_message("Exposed to dangerous temperature.",1) - src.take_damage(5,"fire") - src.check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL)) - return - -/obj/mecha/proc/dynattackby(obj/item/weapon/W as obj, mob/living/user as mob, params) - src.log_message("Attacked by [W]. Attacker - [user]") - user.changeNext_move(CLICK_CD_MELEE) - user.do_attack_animation(src) - if(prob(src.deflect_chance)) - to_chat(user, "\red The [W] bounces off [src.name] armor.") - src.log_append_to_last("Armor saved.") -/* - for(var/mob/V in viewers(src)) - if(V.client && !(V.blinded)) - V.show_message("The [W] bounces off [src.name] armor.", 1) -*/ - else - src.occupant_message("[user] hits [src] with [W].") - user.visible_message("[user] hits [src] with [W].", "You hit [src] with [W].") - src.take_damage(W.force,W.damtype) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - return + if(exposed_temperature > max_temperature) + log_message("Exposed to dangerous temperature.", 1) + take_damage(5, "fire") + check_for_internal_damage(list(MECHA_INT_FIRE, MECHA_INT_TEMP_CONTROL)) ////////////////////// ////// AttackBy ////// ////////////////////// -/obj/mecha/attackby(obj/item/weapon/W as obj, mob/user as mob, params) - - if(istype(W, /obj/item/device/mmi) || istype(W, /obj/item/device/mmi/posibrain)) +/obj/mecha/attackby(obj/item/weapon/W, mob/user, params) + if(istype(W, /obj/item/device/mmi)) if(mmi_move_inside(W,user)) to_chat(user, "[src]-MMI interface initialized successfuly") else @@ -770,13 +679,15 @@ var/obj/item/mecha_parts/mecha_equipment/E = W spawn() if(E.can_attach(src)) - user.drop_item() + if(!user.drop_item()) + return E.attach(src) - user.visible_message("[user] attaches [W] to [src]", "You attach [W] to [src]") + user.visible_message("[user] attaches [W] to [src].", "You attach [W] to [src].") else - to_chat(user, "You were unable to attach [W] to [src]") + to_chat(user, "You were unable to attach [W] to [src]!") return - if(istype(W, /obj/item/weapon/card/id)||istype(W, /obj/item/device/pda)) + + if(W.GetID()) if(add_req_access || maint_access) if(internals_access_allowed(usr)) var/obj/item/weapon/card/id/id_card @@ -788,10 +699,11 @@ output_maintenance_dialog(id_card, user) return else - to_chat(user, "\red Invalid ID: Access denied.") + to_chat(user, "Invalid ID: Access denied.") else - to_chat(user, "\red Maintenance protocols disabled by operator.") - else if(istype(W, /obj/item/weapon/wrench)) + to_chat(user, "Maintenance protocols disabled by operator.") + + else if(iswrench(W)) if(state==1) state = 2 to_chat(user, "You undo the securing bolts.") @@ -799,7 +711,8 @@ state = 1 to_chat(user, "You tighten the securing bolts.") return - else if(istype(W, /obj/item/weapon/crowbar)) + + else if(iscrowbar(W)) if(state==2) state = 3 to_chat(user, "You open the hatch to the power unit") @@ -815,7 +728,6 @@ go_out() return - else if(istype(W, /obj/item/stack/cable_coil)) if(state == 3 && hasInternalDamage(MECHA_INT_SHORT_CIRCUIT)) var/obj/item/stack/cable_coil/CC = W @@ -826,58 +738,61 @@ else to_chat(user, "There's not enough wire to finish the task.") return - else if(istype(W, /obj/item/weapon/screwdriver)) + + else if(isscrewdriver(W) && user.a_intent != I_HARM) if(hasInternalDamage(MECHA_INT_TEMP_CONTROL)) clearInternalDamage(MECHA_INT_TEMP_CONTROL) - to_chat(user, "You repair the damaged temperature controller.") - else if(state==3 && src.cell) - src.cell.forceMove(src.loc) - src.cell = null + to_chat(user, "You repair the damaged temperature controller.") + else if(state==3 && cell) + cell.forceMove(loc) + cell = null state = 4 - to_chat(user, "You unscrew and pry out the powercell.") - src.log_message("Powercell removed") - else if(state==4 && src.cell) + to_chat(user, "You unscrew and pry out the powercell.") + log_message("Powercell removed") + else if(state==4 && cell) state=3 - to_chat(user, "You screw the cell in place") + to_chat(user, "You screw the cell in place.") return else if(istype(W, /obj/item/weapon/stock_parts/cell)) if(state==4) - if(!src.cell) - to_chat(user, "You install the powercell") - user.drop_item() + if(!cell) + if(!user.drop_item()) + return + to_chat(user, "You install the powercell.") W.forceMove(src) - src.cell = W - src.log_message("Powercell installed") + cell = W + log_message("Powercell installed") else - to_chat(user, "There's already a powercell installed.") + to_chat(user, "There's already a powercell installed.") return - else if(istype(W, /obj/item/weapon/weldingtool) && user.a_intent != I_HARM) + else if(iswelder(W) && user.a_intent != I_HARM) var/obj/item/weapon/weldingtool/WT = W - if(WT.remove_fuel(0,user)) - if(hasInternalDamage(MECHA_INT_TANK_BREACH)) - clearInternalDamage(MECHA_INT_TANK_BREACH) - to_chat(user, "\blue You repair the damaged gas tank.") + if(healthYou repair the damaged gas tank.") + else + user.visible_message("[user] repairs some damage to [name].") + health += min(10, initial(health)-health) + else + to_chat(user, "The welder must be on for this task!") + return 1 else - return - if(src.healthThe [name] is at full integrity!") + return 1 else if(istype(W, /obj/item/mecha_parts/mecha_tracking)) if(!user.unEquip(W)) to_chat(user, "\the [W] is stuck to your hand, you cannot put it in \the [src]") return W.forceMove(src) - user.visible_message("[user] attaches [W] to [src].", "You attach [W] to [src]") + user.visible_message("[user] attaches [W] to [src].", "You attach [W] to [src].") return else if(istype(W, /obj/item/weapon/paintkit)) - if(occupant) to_chat(user, "You can't customize a mech while someone is piloting it - that would be unsafe!") return @@ -886,7 +801,7 @@ var/found = null for(var/type in P.allowed_types) - if(type==src.initial_icon) + if(type == initial_icon) found = 1 break @@ -896,43 +811,41 @@ user.visible_message("[user] opens [P] and spends some quality time customising [src].") - src.name = P.new_name - src.desc = P.new_desc - src.initial_icon = P.new_icon - src.reset_icon() + name = P.new_name + desc = P.new_desc + initial_icon = P.new_icon + reset_icon() user.drop_item() qdel(P) else - call((proc_res["dynattackby"]||src), "dynattackby")(W,user) -/* - src.log_message("Attacked by [W]. Attacker - [user]") - if(prob(src.deflect_chance)) - to_chat(user, "\red The [W] bounces off [src.name] armor.") - src.log_append_to_last("Armor saved.") -/* - for(var/mob/V in viewers(src)) - if(V.client && !(V.blinded)) - V.show_message("The [W] bounces off [src.name] armor.", 1) -*/ - else - src.occupant_message("[user] hits [src] with [W].") - user.visible_message("[user] hits [src] with [W].", "You hit [src] with [W].") - src.take_damage(W.force,W.damtype) - src.check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) -*/ - diag_hud_set_mechhealth() - diag_hud_set_mechcell() - diag_hud_set_mechstat() - return + return attacked_by(W, user) + +/obj/mecha/proc/attacked_by(obj/item/I, mob/user) + log_message("Attacked by [I]. Attacker - [user]") + var/deflection = deflect_chance + var/dam_coeff = 1 + for(var/obj/item/mecha_parts/mecha_equipment/anticcw_armor_booster/B in equipment) + if(B.attack_react(user)) + deflection *= B.deflect_coeff + dam_coeff *= B.damage_coeff + break + if(prob(deflection)) + to_chat(user, "[I] bounces off [src]\s armor.") + log_append_to_last("Armor saved.") + else + user.visible_message("[user] hits [src] with [I].", "You hit [src] with [I].") + take_damage(round(I.force * dam_coeff), I.damtype) + check_for_internal_damage(list(MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) + /obj/mecha/emag_act(user as mob) if(istype(src, /obj/mecha/working/ripley) && emagged == 0) emagged = 1 to_chat(usr, "\blue You slide the card through the [src]'s ID slot.") - playsound(src.loc, "sparks", 100, 1) - src.desc += "
The mech's equipment slots spark dangerously!" + playsound(loc, "sparks", 100, 1) + desc += "
The mech's equipment slots spark dangerously!" else to_chat(usr, "\red The [src]'s ID slot rejects the card.") return @@ -1033,7 +946,6 @@ var/turf/T = get_turf(src) if(T) . = T.return_air() - return /obj/mecha/remove_air(amount) if(use_internal_tank) @@ -1042,7 +954,6 @@ var/turf/T = get_turf(src) if(T) return T.remove_air(amount) - return /obj/mecha/return_air() if(use_internal_tank) @@ -1050,25 +961,15 @@ return get_turf_air() /obj/mecha/proc/return_pressure() - . = 0 - if(use_internal_tank) - . = cabin_air.return_pressure() - else - var/datum/gas_mixture/t_air = get_turf_air() - if(t_air) - . = t_air.return_pressure() - return + var/datum/gas_mixture/t_air = return_air() + if(t_air) + . = t_air.return_pressure() //skytodo: //No idea what you want me to do here, mate. /obj/mecha/proc/return_temperature() - . = 0 - if(use_internal_tank) - . = cabin_air.return_temperature() - else - var/datum/gas_mixture/t_air = get_turf_air() - if(t_air) - . = t_air.return_temperature() - return + var/datum/gas_mixture/t_air = return_air() + if(t_air) + . = t_air.return_temperature() /obj/mecha/proc/connect(obj/machinery/atmospherics/unary/portables_connector/new_port) //Make sure not already connected to something else @@ -1076,7 +977,7 @@ return 0 //Make sure are close enough for a valid connection - if(new_port.loc != src.loc) + if(new_port.loc != loc) return 0 //Perform the connection @@ -1093,7 +994,7 @@ connected_port.connected_device = null connected_port = null - src.log_message("Disconnected from gas port.") + log_message("Disconnected from gas port.") return 1 /obj/mecha/portableConnectorReturnAir() @@ -1110,21 +1011,21 @@ set category = "Exosuit Interface" set src = usr.loc set popup_menu = 0 - if(!src.occupant) return - if(usr!=src.occupant) + if(!occupant) return + if(usr!=occupant) return var/obj/machinery/atmospherics/unary/portables_connector/possible_port = locate(/obj/machinery/atmospherics/unary/portables_connector/) in loc if(possible_port) if(connect(possible_port)) - src.occupant_message("\blue [name] connects to the port.") - src.verbs += /obj/mecha/verb/disconnect_from_port - src.verbs -= /obj/mecha/verb/connect_to_port + occupant_message("\blue [name] connects to the port.") + verbs += /obj/mecha/verb/disconnect_from_port + verbs -= /obj/mecha/verb/connect_to_port return else - src.occupant_message("\red [name] failed to connect to the port.") + occupant_message("\red [name] failed to connect to the port.") return else - src.occupant_message("Nothing happens") + occupant_message("Nothing happens") /obj/mecha/verb/disconnect_from_port() @@ -1132,15 +1033,15 @@ set category = "Exosuit Interface" set src = usr.loc set popup_menu = 0 - if(!src.occupant) return - if(usr!=src.occupant) + if(!occupant) return + if(usr!=occupant) return if(disconnect()) - src.occupant_message("\blue [name] disconnects from the port.") - src.verbs -= /obj/mecha/verb/disconnect_from_port - src.verbs += /obj/mecha/verb/connect_to_port + occupant_message("\blue [name] disconnects from the port.") + verbs -= /obj/mecha/verb/disconnect_from_port + verbs += /obj/mecha/verb/connect_to_port else - src.occupant_message("\red [name] is not connected to the port at the moment.") + occupant_message("\red [name] is not connected to the port at the moment.") /obj/mecha/verb/toggle_lights() set name = "Toggle Lights" @@ -1151,7 +1052,7 @@ lights = !lights if(lights) set_light(light_range + lights_power) else set_light(light_range - lights_power) - src.occupant_message("Toggled lights [lights?"on":"off"].") + occupant_message("Toggled lights [lights?"on":"off"].") log_message("Toggled lights [lights?"on":"off"].") return @@ -1161,98 +1062,103 @@ set category = "Exosuit Interface" set src = usr.loc set popup_menu = 0 - if(usr!=src.occupant) + if(usr!=occupant) return use_internal_tank = !use_internal_tank - src.occupant_message("Now taking air from [use_internal_tank?"internal airtank":"environment"].") - src.log_message("Now taking air from [use_internal_tank?"internal airtank":"environment"].") + occupant_message("Now taking air from [use_internal_tank?"internal airtank":"environment"].") + log_message("Now taking air from [use_internal_tank?"internal airtank":"environment"].") return -/obj/mecha/MouseDrop_T(mob/M as mob, mob/user as mob) - if(user.restrained() || user.stat || user.weakened || user.stunned || user.paralysis || user.resting) //are you cuffed, dying, lying, stunned or other +/obj/mecha/MouseDrop_T(mob/M, mob/user) + if(user.incapacitated()) return if(user != M) return - src.log_message("[user] tries to move in.") - if(src.occupant) - to_chat(usr, "The [src.name] is already occupied!") - src.log_append_to_last("Permission denied.") + log_message("[user] tries to move in.") + if(occupant) + to_chat(user, "The [src] is already occupied!") + log_append_to_last("Permission denied.") return var/passed - if(src.dna) - if(user.stat || ishuman(user)) - if(user.dna.unique_enzymes==src.dna) + if(dna) + if(ishuman(user)) + if(user.dna.unique_enzymes == dna) passed = 1 - else if(src.operation_allowed(user)) + else if(operation_allowed(user)) passed = 1 if(!passed) to_chat(user, "Access denied.") - src.log_append_to_last("Permission denied.") + log_append_to_last("Permission denied.") + return + if(user.buckled) + to_chat(user, "You are currently buckled and cannot move.") + log_append_to_last("Permission denied.") + return + if(user.has_buckled_mobs()) //mob attached to us + to_chat(user, "You can't enter the exosuit with other creatures attached to you!") return for(var/mob/living/carbon/slime/S in range(1,user)) if(S.Victim == user) to_chat(user, "You're too busy getting your life sucked out of you.") return - visible_message("[user] starts to climb into [src.name]") + visible_message("[user] starts to climb into [src]") - if(enter_after(40,user)) - if(!src.occupant) + if(do_after(user, 40, target = src)) + if(health <= 0) + to_chat(user, "You cannot get in the [name], it has been destroyed!") + else if(occupant) + to_chat(user, "[occupant] was faster! Try better next time, loser.") + else if(user.buckled) + to_chat(user, "You can't enter the exosuit while buckled.") + else if(user.has_buckled_mobs()) + to_chat(user, "You can't enter the exosuit with other creatures attached to you!") + else moved_inside(user) - else if(src.occupant!=user) - to_chat(user, "[src.occupant] was faster. Try better next time, loser.") else - to_chat(user, "You stop entering the exosuit.") - return + to_chat(user, "You stop entering the exosuit!") /obj/mecha/proc/moved_inside(var/mob/living/carbon/human/H as mob) if(H && H.client && H in range(1)) - H.reset_view(src) - /* - H.client.perspective = EYE_PERSPECTIVE - H.client.eye = src - */ + occupant = H H.stop_pulling() H.forceMove(src) - src.occupant = H - src.add_fingerprint(H) - src.forceMove(src.loc) - src.log_append_to_last("[H] moved in as pilot.") - src.icon_state = src.reset_icon() + H.reset_view(src) + add_fingerprint(H) + //GrantActions(H, human_occupant=1) + forceMove(loc) + log_append_to_last("[H] moved in as pilot.") + icon_state = reset_icon() dir = dir_in playsound(src, 'sound/machines/windowdoor.ogg', 50, 1) if(!hasInternalDamage()) - occupant << sound('sound/mecha/nominal.ogg',volume=50) + occupant << sound('sound/mecha/nominal.ogg', volume = 50) return 1 else return 0 /obj/mecha/proc/mmi_move_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) if(!mmi_as_oc.brainmob || !mmi_as_oc.brainmob.client) - to_chat(user, "Consciousness matrix not detected.") + to_chat(user, "Consciousness matrix not detected!") return 0 else if(mmi_as_oc.brainmob.stat) - to_chat(user, "Beta-rhythm below acceptable level.") + to_chat(user, "Beta-rhythm below acceptable level!") return 0 else if(occupant) - to_chat(user, "Occupant detected.") + to_chat(user, "Occupant detected!") return 0 - else if(dna && dna!=mmi_as_oc.brainmob.dna.unique_enzymes) - to_chat(user, "Stop it!") + else if(dna && dna != mmi_as_oc.brainmob.dna.unique_enzymes) + to_chat(user, "Access denied. [name] is secured with a DNA lock.") return 0 - //Added a message here since people assume their first click failed or something./N -// to_chat(user, "Installing MMI, please stand by.") - visible_message("\blue [usr] starts to insert an MMI into [src.name]") - - if(enter_after(40,user)) + if(do_after(user, 40, target = src)) if(!occupant) return mmi_moved_inside(mmi_as_oc,user) else - to_chat(user, "Occupant detected.") + to_chat(user, "Occupant detected!") else - to_chat(user, "You stop inserting the MMI.") + to_chat(user, "You stop inserting the MMI.") return 0 /obj/mecha/proc/mmi_moved_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) @@ -1277,14 +1183,14 @@ brainmob.canmove = 1 mmi_as_oc.loc = src mmi_as_oc.mecha = src - src.verbs -= /obj/mecha/verb/eject - src.Entered(mmi_as_oc) - src.Move(src.loc) - src.icon_state = src.reset_icon() + verbs -= /obj/mecha/verb/eject + Entered(mmi_as_oc) + Move(loc) + icon_state = reset_icon() dir = dir_in - src.log_message("[mmi_as_oc] moved in as pilot.") + log_message("[mmi_as_oc] moved in as pilot.") if(!hasInternalDamage()) - to_chat(src.occupant, sound('sound/mecha/nominal.ogg',volume=50)) + to_chat(occupant, sound('sound/mecha/nominal.ogg',volume=50)) return 1 else return 0 @@ -1306,88 +1212,65 @@ set category = "Exosuit Interface" set src = usr.loc set popup_menu = 0 - if(usr!=src.occupant) + if(usr!=occupant) return - //pr_update_stats.start() - src.occupant << browse(src.get_stats_html(), "window=exosuit") + occupant << browse(get_stats_html(), "window=exosuit") return -/* -/obj/mecha/verb/force_eject() - set category = "Object" - set name = "Force Eject" - set src in view(5) - src.go_out() - return -*/ - /obj/mecha/verb/eject() set name = "Eject" set category = "Exosuit Interface" set src = usr.loc set popup_menu = 0 - if(usr!=src.occupant) + if(usr != occupant) return - src.go_out() + go_out() add_fingerprint(usr) - return -/obj/mecha/proc/go_out(var/forced) - if(!src.occupant) return +/obj/mecha/Exited(atom/movable/M, atom/newloc) + if(occupant && occupant == M) // The occupant exited the mech without calling go_out() + go_out(1, newloc) + +/obj/mecha/proc/go_out(var/forced, var/atom/newloc = loc) + if(!occupant) + return var/atom/movable/mob_container + occupant.clear_alert("charge") + occupant.clear_alert("mech damage") if(ishuman(occupant)) - mob_container = src.occupant + mob_container = occupant + //RemoveActions(occupant, human_occupant=1) else if(istype(occupant, /mob/living/carbon/brain)) var/mob/living/carbon/brain/brain = occupant + //RemoveActions(brain) mob_container = brain.container else if(isAI(occupant) && forced) //This should only happen if there are multiple AIs in a round, and at least one is Malf. + //RemoveActions(occupant) occupant.gib() //If one Malf decides to steal a mech from another AI (even other Malfs!), they are destroyed, as they have nowhere to go when replaced. occupant = null return else return - if(mob_container.forceMove(src.loc))//ejecting mob container - /* - if(ishuman(occupant) && (return_pressure() > HAZARD_HIGH_PRESSURE)) - use_internal_tank = 0 - var/datum/gas_mixture/environment = get_turf_air() - if(environment) - var/env_pressure = environment.return_pressure() - var/pressure_delta = (cabin.return_pressure() - env_pressure) - //Can not have a pressure delta that would cause environment pressure > tank pressure + var/mob/living/L = occupant + occupant = null //we need it null when forceMove calls Exited(). + if(mob_container.forceMove(newloc))//ejecting mob container + log_message("[mob_container] moved out.") + L << browse(null, "window=exosuit") - var/transfer_moles = 0 - if(pressure_delta > 0) - transfer_moles = pressure_delta*environment.volume/(cabin.return_temperature() * R_IDEAL_GAS_EQUATION) - - //Actually transfer the gas - var/datum/gas_mixture/removed = cabin.air_contents.remove(transfer_moles) - loc.assume_air(removed) - - occupant.SetStunned(5) - occupant.SetWeakened(5) - to_chat(occupant, "You were blown out of the mech!") - */ - src.log_message("[mob_container] moved out.") - occupant.reset_view() - /* - if(src.occupant.client) - src.occupant.client.eye = src.occupant.client.mob - src.occupant.client.perspective = MOB_PERSPECTIVE - */ - src.occupant << browse(null, "window=exosuit") - if(istype(mob_container, /obj/item/device/mmi) || istype(mob_container, /obj/item/device/mmi/posibrain)) + if(istype(mob_container, /obj/item/device/mmi)) var/obj/item/device/mmi/mmi = mob_container if(mmi.brainmob) - occupant.loc = mmi + L.loc = mmi + L.reset_view() mmi.mecha = null - src.occupant.canmove = 0 - src.verbs += /obj/mecha/verb/eject - src.occupant = null - src.icon_state = src.reset_icon()+"-open" - src.dir = dir_in - return + mmi.update_icon() + L.canmove = 0 + icon_state = initial(icon_state)+"-open" + dir = dir_in + + if(L && L.client) + L.client.view = world.view ///////////////////////// ////// Access stuff ///// @@ -1397,14 +1280,14 @@ if(!ishuman(H)) return 0 for(var/ID in list(H.get_active_hand(), H.wear_id, H.belt)) - if(src.check_access(ID,src.operation_req_access)) + if(check_access(ID,operation_req_access)) return 1 return 0 /obj/mecha/proc/internals_access_allowed(mob/living/carbon/human/H) for(var/atom/ID in list(H.get_active_hand(), H.wear_id, H.belt)) - if(src.check_access(ID,src.internals_req_access)) + if(check_access(ID,internals_req_access)) return 1 return 0 @@ -1419,410 +1302,16 @@ I = pda.id if(!istype(I) || !I.access) //not ID or no access return 0 - if(access_list==src.operation_req_access) + if(access_list==operation_req_access) for(var/req in access_list) if(!(req in I.access)) //doesn't have this access return 0 - else if(access_list==src.internals_req_access) + else if(access_list==internals_req_access) for(var/req in access_list) if(req in I.access) return 1 return 1 - -//////////////////////////////////// -///// Rendering stats window /////// -//////////////////////////////////// - -/obj/mecha/proc/get_stats_html() - var/output = {" - [src.name] data - - - - -
- [src.get_stats_part()] -
-
- [src.get_equipment_list()] -
-
-
- [src.get_commands()] -
- - - "} - return output - - -/obj/mecha/proc/report_internal_damage() - var/output = null - var/list/dam_reports = list( - "[MECHA_INT_FIRE]" = "INTERNAL FIRE", - "[MECHA_INT_TEMP_CONTROL]" = "LIFE SUPPORT SYSTEM MALFUNCTION", - "[MECHA_INT_TANK_BREACH]" = "GAS TANK BREACH", - "[MECHA_INT_CONTROL_LOST]" = "COORDINATION SYSTEM CALIBRATION FAILURE - Recalibrate", - "[MECHA_INT_SHORT_CIRCUIT]" = "SHORT CIRCUIT" - ) - for(var/tflag in dam_reports) - var/intdamflag = text2num(tflag) - if(hasInternalDamage(intdamflag)) - output += dam_reports[tflag] - output += "
" - if(return_pressure() > WARNING_HIGH_PRESSURE) - output += "DANGEROUSLY HIGH CABIN PRESSURE
" - return output - - -/obj/mecha/proc/get_stats_part() - var/integrity = health/initial(health)*100 - var/cell_charge = get_charge() - var/tank_pressure = internal_tank ? round(internal_tank.return_pressure(),0.01) : "None" - var/tank_temperature = internal_tank ? internal_tank.return_temperature() : "Unknown" - var/cabin_pressure = round(return_pressure(),0.01) - var/output = {"[report_internal_damage()] - [integrity<30?"DAMAGE LEVEL CRITICAL
":null] - Integrity: [integrity]%
- Powercell charge: [isnull(cell_charge)?"No powercell installed":"[cell.percent()]%"]
- Air source: [use_internal_tank?"Internal Airtank":"Environment"]
- Airtank pressure: [tank_pressure]kPa
- Airtank temperature: [tank_temperature]°K|[tank_temperature - T0C]°C
- Cabin pressure: [cabin_pressure>WARNING_HIGH_PRESSURE ? "[cabin_pressure]": cabin_pressure]kPa
- Cabin temperature: [return_temperature()]°K|[return_temperature() - T0C]°C
- Lights: [lights?"on":"off"]
- [src.dna?"DNA-locked:
[src.dna] \[Reset\]
":null] - "} - return output - -/obj/mecha/proc/get_commands() - var/output = {"
-
Electronics
-
- Toggle Lights
- Radio settings:
- Microphone: [radio.broadcasting?"Engaged":"Disengaged"]
- Speaker: [radio.listening?"Engaged":"Disengaged"]
- Frequency: - - - - - [format_frequency(radio.frequency)] - + - +
-
-
-
-
Airtank
-
- Toggle Internal Airtank Usage
- [(/obj/mecha/verb/disconnect_from_port in src.verbs)?"Disconnect from port
":null] - [(/obj/mecha/verb/connect_to_port in src.verbs)?"Connect to port
":null] -
-
-
-
Permissions & Logging
-
- [add_req_access?"L":"Unl"]ock ID upload panel
- [maint_access?"Forbid":"Permit"] maintenance protocols
- DNA-lock
- View internal log
- Change exosuit name
-
-
-
[get_equipment_menu()]
-
- [(/obj/mecha/verb/eject in src.verbs)?"Eject
":null] - "} - return output - -/obj/mecha/proc/get_equipment_menu() //outputs mecha html equipment menu - var/output - if(equipment.len) - output += {"
-
Equipment
-
"} - for(var/obj/item/mecha_parts/mecha_equipment/W in equipment) - output += "[W.name] Detach
" - output += "Available equipment slots: [max_equip-equipment.len]" - output += "
" - return output - -/obj/mecha/proc/get_equipment_list() //outputs mecha equipment list in html - if(!equipment.len) - return - var/output = "Equipment:
" - for(var/obj/item/mecha_parts/mecha_equipment/MT in equipment) - output += "
[MT.get_equip_info()]
" - output += "
" - return output - - -/obj/mecha/proc/get_log_html() - var/output = "[src.name] Log" - for(var/list/entry in log) - output += {"
[time2text(entry["time"],"DDD MMM DD hh:mm:ss")] 2555
-
[entry["message"]]
- "} - output += "" - return output - - -/obj/mecha/proc/output_access_dialog(obj/item/weapon/card/id/id_card, mob/user) - if(!id_card || !user) return - var/output = {" - - - -

Following keycodes are present in this system:

"} - for(var/a in operation_req_access) - output += "[get_access_desc(a)] - Delete
" - output += "

Following keycodes were detected on portable device:

" - for(var/a in id_card.access) - if(a in operation_req_access) continue - var/a_name = get_access_desc(a) - if(!a_name) continue //there's some strange access without a name - output += "[a_name] - Add
" - output += "
Finish (Warning! The ID upload panel will be locked. It can be unlocked only through Exosuit Interface.)" - output += "" - user << browse(output, "window=exosuit_add_access") - onclose(user, "exosuit_add_access") - return - -/obj/mecha/proc/output_maintenance_dialog(obj/item/weapon/card/id/id_card,mob/user) - if(!id_card || !user) return - var/output = {" - - - - - [add_req_access?"Edit operation keycodes":null] - [maint_access?"Initiate maintenance protocol":null] - [(state>0) ?"Set Cabin Air Pressure":null] - - "} - user << browse(output, "window=exosuit_maint_console") - onclose(user, "exosuit_maint_console") - return - - -//////////////////////////////// -/////// Messages and Log /////// -//////////////////////////////// - -/obj/mecha/proc/occupant_message(message as text) - if(message) - if(src.occupant && src.occupant.client) - to_chat(src.occupant, "[bicon(src)] [message]") - return - -/obj/mecha/proc/log_message(message as text,red=null) - log.len++ - log[log.len] = list("time"=world.timeofday,"message"="[red?"":null][message][red?"":null]") - return log.len - -/obj/mecha/proc/log_append_to_last(message as text,red=null) - var/list/last_entry = src.log[src.log.len] - last_entry["message"] += "
[red?"":null][message][red?"":null]" - return - - -///////////////// -///// Topic ///// -///////////////// - -/obj/mecha/Topic(href, href_list) - ..() - if(href_list["update_content"]) - if(usr != src.occupant) return - send_byjax(src.occupant,"exosuit.browser","content",src.get_stats_part()) - return - if(href_list["close"]) - return - if(usr.stat > 0) - return - var/datum/topic_input/filter = new /datum/topic_input(href,href_list) - if(href_list["select_equip"]) - if(usr != src.occupant) return - var/obj/item/mecha_parts/mecha_equipment/equip = filter.getObj("select_equip") - if(equip) - src.selected = equip - src.occupant_message("You switch to [equip]") - src.visible_message("[src] raises [equip]") - send_byjax(src.occupant,"exosuit.browser","eq_list",src.get_equipment_list()) - return - if(href_list["eject"]) - if(usr != src.occupant) return - src.eject() - return - if(href_list["toggle_lights"]) - if(usr != src.occupant) return - src.toggle_lights() - return - if(href_list["toggle_airtank"]) - if(usr != src.occupant) return - src.toggle_internal_tank() - return - if(href_list["rmictoggle"]) - if(usr != src.occupant) return - radio.broadcasting = !radio.broadcasting - send_byjax(src.occupant,"exosuit.browser","rmicstate",(radio.broadcasting?"Engaged":"Disengaged")) - return - if(href_list["rspktoggle"]) - if(usr != src.occupant) return - radio.listening = !radio.listening - send_byjax(src.occupant,"exosuit.browser","rspkstate",(radio.listening?"Engaged":"Disengaged")) - return - if(href_list["rfreq"]) - if(usr != src.occupant) return - var/new_frequency = (radio.frequency + filter.getNum("rfreq")) - if((radio.frequency < PUBLIC_LOW_FREQ || radio.frequency > PUBLIC_HIGH_FREQ)) - new_frequency = sanitize_frequency(new_frequency) - radio.set_frequency(new_frequency) - send_byjax(src.occupant,"exosuit.browser","rfreq","[format_frequency(radio.frequency)]") - return - if(href_list["port_disconnect"]) - if(usr != src.occupant) return - src.disconnect_from_port() - return - if(href_list["port_connect"]) - if(usr != src.occupant) return - src.connect_to_port() - return - if(href_list["view_log"]) - if(usr != src.occupant) return - src.occupant << browse(src.get_log_html(), "window=exosuit_log") - onclose(occupant, "exosuit_log") - return - if(href_list["change_name"]) - if(usr != src.occupant) return - var/newname = strip_html_simple(input(occupant,"Choose new exosuit name","Rename exosuit",initial(name)) as text, MAX_NAME_LEN) - if(newname && trim(newname)) - name = newname - else - alert(occupant, "nope.avi") - return - if(href_list["toggle_id_upload"]) - if(usr != src.occupant) return - add_req_access = !add_req_access - send_byjax(src.occupant,"exosuit.browser","t_id_upload","[add_req_access?"L":"Unl"]ock ID upload panel") - return - if(href_list["toggle_maint_access"]) - if(usr != src.occupant) return - if(state) - occupant_message("Maintenance protocols in effect") - return - maint_access = !maint_access - send_byjax(src.occupant,"exosuit.browser","t_maint_access","[maint_access?"Forbid":"Permit"] maintenance protocols") - return - if(href_list["req_access"] && add_req_access) - if(!in_range(src, usr)) return - output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) - return - if(href_list["maint_access"] && maint_access) - if(!in_range(src, usr)) return - var/mob/user = filter.getMob("user") - if(user) - if(state==0) - state = 1 - to_chat(user, "The securing bolts are now exposed.") - else if(state==1) - state = 0 - to_chat(user, "The securing bolts are now hidden.") - output_maintenance_dialog(filter.getObj("id_card"),user) - return - if(href_list["set_internal_tank_valve"] && state >=1) - if(!in_range(src, usr)) return - var/mob/user = filter.getMob("user") - if(user) - var/new_pressure = input(user,"Input new output pressure","Pressure setting",internal_tank_valve) as num - if(new_pressure) - internal_tank_valve = new_pressure - to_chat(user, "The internal pressure valve has been set to [internal_tank_valve]kPa.") - if(href_list["add_req_access"] && add_req_access && filter.getObj("id_card")) - if(!in_range(src, usr)) return - operation_req_access += filter.getNum("add_req_access") - output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) - return - if(href_list["del_req_access"] && add_req_access && filter.getObj("id_card")) - if(!in_range(src, usr)) return - operation_req_access -= filter.getNum("del_req_access") - output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) - return - if(href_list["finish_req_access"]) - if(!in_range(src, usr)) return - add_req_access = 0 - var/mob/user = filter.getMob("user") - user << browse(null,"window=exosuit_add_access") - return - if(href_list["dna_lock"]) - if(usr != src.occupant) - return - if(src.occupant && !iscarbon(src.occupant)) - to_chat(src.occupant, "You do not have any DNA!") - return - src.dna = src.occupant.dna.unique_enzymes - src.occupant_message("You feel a prick as the needle takes your DNA sample.") - return - if(href_list["reset_dna"]) - if(usr != src.occupant) return - src.dna = null - if(href_list["repair_int_control_lost"]) - if(usr != src.occupant) return - src.occupant_message("Recalibrating coordination system.") - src.log_message("Recalibration of coordination system started.") - var/T = src.loc - if(mecha_do_after(100)) - if(T == src.loc) - src.clearInternalDamage(MECHA_INT_CONTROL_LOST) - src.occupant_message("Recalibration successful.") - src.log_message("Recalibration of coordination system finished with 0 errors.") - else - src.occupant_message("Recalibration failed.") - src.log_message("Recalibration of coordination system failed with 1 error.",1) - - //debug - /* - if(href_list["debug"]) - if(href_list["set_i_dam"]) - setInternalDamage(filter.getNum("set_i_dam")) - if(href_list["clear_i_dam"]) - clearInternalDamage(filter.getNum("clear_i_dam")) - return - */ - - return - /////////////////////// ///// Power stuff ///// /////////////////////// @@ -1834,9 +1323,9 @@ return call((proc_res["dyngetcharge"]||src), "dyngetcharge")() /obj/mecha/proc/dyngetcharge()//returns null if no powercell, else returns cell.charge - if(!src.cell) return + if(!cell) return diag_hud_set_mechcell() - return max(0, src.cell.charge) + return max(0, cell.charge) /obj/mecha/proc/use_power(amount) return call((proc_res["dynusepower"]||src), "dynusepower")(amount) @@ -1872,122 +1361,88 @@ //////// Mecha global iterators //////// ////////////////////////////////////////// +/obj/mecha/process() + process_internal_damage() + regulate_temp() + give_air() + update_huds() -/datum/global_iterator/mecha_preserve_temp //normalizing cabin air temperature to 20 degrees celsium - delay = 20 - - process(var/obj/mecha/mecha) - if(mecha.cabin_air && mecha.cabin_air.return_volume() > 0) - var/delta = mecha.cabin_air.temperature - T20C - mecha.cabin_air.temperature -= max(-10, min(10, round(delta/4,0.1))) +/obj/mecha/proc/process_internal_damage() + if(!internal_damage) return -/datum/global_iterator/mecha_tank_give_air - delay = 15 + if(internal_damage & MECHA_INT_FIRE) + if(!(internal_damage & MECHA_INT_TEMP_CONTROL) && prob(5)) + clearInternalDamage(MECHA_INT_FIRE) + if(internal_tank) + var/datum/gas_mixture/int_tank_air = internal_tank.return_air() + if(int_tank_air.return_pressure() > internal_tank.maximum_pressure && !(internal_damage & MECHA_INT_TANK_BREACH)) + setInternalDamage(MECHA_INT_TANK_BREACH) - process(var/obj/mecha/mecha) - if(mecha.internal_tank) - var/datum/gas_mixture/tank_air = mecha.internal_tank.return_air() - var/datum/gas_mixture/cabin_air = mecha.cabin_air + if(int_tank_air && int_tank_air.return_volume() > 0) + int_tank_air.temperature = min(6000 + T0C, cabin_air.return_temperature() + rand(10, 15)) - var/release_pressure = mecha.internal_tank_valve - var/cabin_pressure = cabin_air.return_pressure() - var/pressure_delta = min(release_pressure - cabin_pressure, (tank_air.return_pressure() - cabin_pressure)/2) - var/transfer_moles = 0 - if(pressure_delta > 0) //cabin pressure lower than release pressure - if(tank_air.return_temperature() > 0) - transfer_moles = pressure_delta*cabin_air.return_volume()/(cabin_air.return_temperature() * R_IDEAL_GAS_EQUATION) - var/datum/gas_mixture/removed = tank_air.remove(transfer_moles) - cabin_air.merge(removed) - else if(pressure_delta < 0) //cabin pressure higher than release pressure - var/datum/gas_mixture/t_air = mecha.get_turf_air() - pressure_delta = cabin_pressure - release_pressure - if(t_air) - pressure_delta = min(cabin_pressure - t_air.return_pressure(), pressure_delta) - if(pressure_delta > 0) //if location pressure is lower than cabin pressure - transfer_moles = pressure_delta*cabin_air.return_volume()/(cabin_air.return_temperature() * R_IDEAL_GAS_EQUATION) - var/datum/gas_mixture/removed = cabin_air.remove(transfer_moles) - if(t_air) - t_air.merge(removed) - else //just delete the cabin gas, we're in space or some shit - qdel(removed) - else - return stop() + if(cabin_air && cabin_air.return_volume()>0) + cabin_air.temperature = min(6000+T0C, cabin_air.return_temperature()+rand(10,15)) + if(cabin_air.return_temperature() > max_temperature/2) + take_damage(4/round(max_temperature/cabin_air.return_temperature(),0.1),"fire") + + if(internal_damage & MECHA_INT_TANK_BREACH) //remove some air from internal tank + if(internal_tank) + var/datum/gas_mixture/int_tank_air = internal_tank.return_air() + var/datum/gas_mixture/leaked_gas = int_tank_air.remove_ratio(0.10) + if(loc) + loc.assume_air(leaked_gas) + air_update_turf() + else + qdel(leaked_gas) + + if(internal_damage & MECHA_INT_SHORT_CIRCUIT) + if(get_charge()) + spark_system.start() + cell.charge -= min(20,cell.charge) + cell.maxcharge -= min(20,cell.maxcharge) + +/obj/mecha/proc/regulate_temp() + if(internal_damage & MECHA_INT_TEMP_CONTROL) return + if(cabin_air && cabin_air.return_volume() > 0) + var/delta = cabin_air.temperature - T20C + cabin_air.temperature -= max(-10, min(10, round(delta / 4, 0.1))) -/datum/global_iterator/mecha_internal_damage // processing internal damage - - process(var/obj/mecha/mecha) - if(!mecha.hasInternalDamage()) - return stop() - if(mecha.hasInternalDamage(MECHA_INT_FIRE)) - if(!mecha.hasInternalDamage(MECHA_INT_TEMP_CONTROL) && prob(5)) - mecha.clearInternalDamage(MECHA_INT_FIRE) - if(mecha.internal_tank) - if(mecha.internal_tank.return_pressure()>mecha.internal_tank.maximum_pressure && !(mecha.hasInternalDamage(MECHA_INT_TANK_BREACH))) - mecha.setInternalDamage(MECHA_INT_TANK_BREACH) - var/datum/gas_mixture/int_tank_air = mecha.internal_tank.return_air() - if(int_tank_air && int_tank_air.return_volume()>0) //heat the air_contents - int_tank_air.temperature = min(6000+T0C, int_tank_air.temperature+rand(10,15)) - if(mecha.cabin_air && mecha.cabin_air.return_volume()>0) - mecha.cabin_air.temperature = min(6000+T0C, mecha.cabin_air.return_temperature()+rand(10,15)) - if(mecha.cabin_air.return_temperature()>mecha.max_temperature/2) - mecha.take_damage(4/round(mecha.max_temperature/mecha.cabin_air.return_temperature(),0.1),"fire") - if(mecha.hasInternalDamage(MECHA_INT_TEMP_CONTROL)) //stop the mecha_preserve_temp loop datum - mecha.pr_int_temp_processor.stop() - if(mecha.hasInternalDamage(MECHA_INT_TANK_BREACH)) //remove some air from internal tank - if(mecha.internal_tank) - var/datum/gas_mixture/int_tank_air = mecha.internal_tank.return_air() - var/datum/gas_mixture/leaked_gas = int_tank_air.remove_ratio(0.10) - if(mecha.loc && hascall(mecha.loc,"assume_air")) - mecha.loc.assume_air(leaked_gas) - else - qdel(leaked_gas) - if(mecha.hasInternalDamage(MECHA_INT_SHORT_CIRCUIT)) - if(mecha.get_charge()) - mecha.spark_system.start() - mecha.cell.charge -= min(20,mecha.cell.charge) - mecha.cell.maxcharge -= min(20,mecha.cell.maxcharge) +/obj/mecha/proc/give_air() + if(!internal_tank) return + var/datum/gas_mixture/tank_air = internal_tank.return_air() -///////////// + var/release_pressure = internal_tank_valve + var/cabin_pressure = cabin_air.return_pressure() + var/pressure_delta = min(release_pressure - cabin_pressure, (tank_air.return_pressure() - cabin_pressure)/2) + var/transfer_moles = 0 + if(pressure_delta > 0) //cabin pressure lower than release pressure + if(tank_air.return_temperature() > 0) + transfer_moles = pressure_delta*cabin_air.return_volume()/(cabin_air.return_temperature() * R_IDEAL_GAS_EQUATION) + var/datum/gas_mixture/removed = tank_air.remove(transfer_moles) + cabin_air.merge(removed) + else if(pressure_delta < 0) //cabin pressure higher than release pressure + var/datum/gas_mixture/t_air = return_air() + pressure_delta = cabin_pressure - release_pressure + if(t_air) + pressure_delta = min(cabin_pressure - t_air.return_pressure(), pressure_delta) + if(pressure_delta > 0) //if location pressure is lower than cabin pressure + transfer_moles = pressure_delta*cabin_air.return_volume()/(cabin_air.return_temperature() * R_IDEAL_GAS_EQUATION) + var/datum/gas_mixture/removed = cabin_air.remove(transfer_moles) + if(t_air) + t_air.merge(removed) + else //just delete the cabin gas, we're in space or some shit + qdel(removed) -//debug -/* -/obj/mecha/verb/test_int_damage() - set name = "Test internal damage" - set category = "Exosuit Interface" - set src in view(0) - if(!occupant) return - if(usr!=occupant) - return - var/output = {" - - - -

Set:

- MECHA_INT_FIRE
- MECHA_INT_TEMP_CONTROL
- MECHA_INT_SHORT_CIRCUIT
- MECHA_INT_TANK_BREACH
- MECHA_INT_CONTROL_LOST
-
-

Clear:

- MECHA_INT_FIRE
- MECHA_INT_TEMP_CONTROL
- MECHA_INT_SHORT_CIRCUIT
- MECHA_INT_TANK_BREACH
- MECHA_INT_CONTROL_LOST
- - "} - - occupant << browse(output, "window=ex_debug") - //src.health = initial(src.health)/2.2 - //src.check_for_internal_damage(list(MECHA_INT_FIRE,MECHA_INT_TEMP_CONTROL,MECHA_INT_TANK_BREACH,MECHA_INT_CONTROL_LOST)) - return -*/ +/obj/mecha/proc/update_huds() + diag_hud_set_mechhealth() + diag_hud_set_mechcell() + diag_hud_set_mechstat() /obj/mecha/speech_bubble(var/bubble_state = "",var/bubble_loc = src, var/list/bubble_recipients = list()) diff --git a/code/game/mecha/mecha_topic.dm b/code/game/mecha/mecha_topic.dm new file mode 100644 index 00000000000..c24a85b6967 --- /dev/null +++ b/code/game/mecha/mecha_topic.dm @@ -0,0 +1,393 @@ + +//////////////////////////////////// +///// Rendering stats window /////// +//////////////////////////////////// + +/obj/mecha/proc/get_stats_html() + var/output = {" + [name] data + + + + +
+ [get_stats_part()] +
+
+ [get_equipment_list()] +
+
+
+ [get_commands()] +
+ + + "} + return output + + +/obj/mecha/proc/report_internal_damage() + var/output = null + var/list/dam_reports = list( + "[MECHA_INT_FIRE]" = "INTERNAL FIRE", + "[MECHA_INT_TEMP_CONTROL]" = "LIFE SUPPORT SYSTEM MALFUNCTION", + "[MECHA_INT_TANK_BREACH]" = "GAS TANK BREACH", + "[MECHA_INT_CONTROL_LOST]" = "COORDINATION SYSTEM CALIBRATION FAILURE - Recalibrate", + "[MECHA_INT_SHORT_CIRCUIT]" = "SHORT CIRCUIT" + ) + for(var/tflag in dam_reports) + var/intdamflag = text2num(tflag) + if(hasInternalDamage(intdamflag)) + output += dam_reports[tflag] + output += "
" + if(return_pressure() > WARNING_HIGH_PRESSURE) + output += "DANGEROUSLY HIGH CABIN PRESSURE
" + return output + + +/obj/mecha/proc/get_stats_part() + var/integrity = health/initial(health)*100 + var/cell_charge = get_charge() + var/tank_pressure = internal_tank ? round(internal_tank.return_pressure(),0.01) : "None" + var/tank_temperature = internal_tank ? internal_tank.return_temperature() : "Unknown" + var/cabin_pressure = round(return_pressure(),0.01) + var/output = {"[report_internal_damage()] + [integrity<30?"DAMAGE LEVEL CRITICAL
":null] + Integrity: [integrity]%
+ Powercell charge: [isnull(cell_charge)?"No powercell installed":"[cell.percent()]%"]
+ Air source: [use_internal_tank?"Internal Airtank":"Environment"]
+ Airtank pressure: [tank_pressure]kPa
+ Airtank temperature: [tank_temperature]°K|[tank_temperature - T0C]°C
+ Cabin pressure: [cabin_pressure>WARNING_HIGH_PRESSURE ? "[cabin_pressure]": cabin_pressure]kPa
+ Cabin temperature: [return_temperature()]°K|[return_temperature() - T0C]°C
+ Lights: [lights?"on":"off"]
+ [dna?"DNA-locked:
[dna] \[Reset\]
":null] + "} + return output + +/obj/mecha/proc/get_commands() + var/output = {"
+
Electronics
+
+ Toggle Lights
+ Radio settings:
+ Microphone: [radio.broadcasting?"Engaged":"Disengaged"]
+ Speaker: [radio.listening?"Engaged":"Disengaged"]
+ Frequency: + - + - + [format_frequency(radio.frequency)] + + + +
+
+
+
+
Airtank
+
+ Toggle Internal Airtank Usage
+ [(/obj/mecha/verb/disconnect_from_port in verbs)?"Disconnect from port
":null] + [(/obj/mecha/verb/connect_to_port in verbs)?"Connect to port
":null] +
+
+
+
Permissions & Logging
+
+ [add_req_access?"L":"Unl"]ock ID upload panel
+ [maint_access?"Forbid":"Permit"] maintenance protocols
+ DNA-lock
+ View internal log
+ Change exosuit name
+
+
+
[get_equipment_menu()]
+
+ [(/obj/mecha/verb/eject in verbs)?"Eject
":null] + "} + return output + +/obj/mecha/proc/get_equipment_menu() //outputs mecha html equipment menu + var/output + if(equipment.len) + output += {"
+
Equipment
+
"} + for(var/obj/item/mecha_parts/mecha_equipment/W in equipment) + output += "[W.name] Detach
" + output += "Available equipment slots: [max_equip-equipment.len]" + output += "
" + return output + +/obj/mecha/proc/get_equipment_list() //outputs mecha equipment list in html + if(!equipment.len) + return + var/output = "Equipment:
" + for(var/obj/item/mecha_parts/mecha_equipment/MT in equipment) + output += "
[MT.get_equip_info()]
" + output += "
" + return output + + +/obj/mecha/proc/get_log_html() + var/output = "[name] Log" + for(var/list/entry in log) + output += {"
[time2text(entry["time"],"DDD MMM DD hh:mm:ss")] 2555
+
[entry["message"]]
+ "} + output += "" + return output + + +/obj/mecha/proc/output_access_dialog(obj/item/weapon/card/id/id_card, mob/user) + if(!id_card || !user) return + var/output = {" + + + +

Following keycodes are present in this system:

"} + for(var/a in operation_req_access) + output += "[get_access_desc(a)] - Delete
" + output += "

Following keycodes were detected on portable device:

" + for(var/a in id_card.access) + if(a in operation_req_access) continue + var/a_name = get_access_desc(a) + if(!a_name) continue //there's some strange access without a name + output += "[a_name] - Add
" + output += "
Finish (Warning! The ID upload panel will be locked. It can be unlocked only through Exosuit Interface.)" + output += "" + user << browse(output, "window=exosuit_add_access") + onclose(user, "exosuit_add_access") + return + +/obj/mecha/proc/output_maintenance_dialog(obj/item/weapon/card/id/id_card,mob/user) + if(!id_card || !user) return + var/output = {" + + + + + [add_req_access?"Edit operation keycodes":null] + [maint_access?"Initiate maintenance protocol":null] + [(state>0) ?"Set Cabin Air Pressure":null] + + "} + user << browse(output, "window=exosuit_maint_console") + onclose(user, "exosuit_maint_console") + return + + +//////////////////////////////// +/////// Messages and Log /////// +//////////////////////////////// + +/obj/mecha/proc/occupant_message(message as text) + if(message) + if(occupant && occupant.client) + to_chat(occupant, "[bicon(src)] [message]") + return + +/obj/mecha/proc/log_message(message as text,red=null) + log.len++ + log[log.len] = list("time"=world.timeofday,"message"="[red?"":null][message][red?"":null]") + return log.len + +/obj/mecha/proc/log_append_to_last(message as text,red=null) + var/list/last_entry = log[log.len] + last_entry["message"] += "
[red?"":null][message][red?"":null]" + return + + +///////////////// +///// Topic ///// +///////////////// + +/obj/mecha/Topic(href, href_list) + ..() + if(href_list["update_content"]) + if(usr != occupant) return + send_byjax(occupant,"exosuit.browser","content",get_stats_part()) + return + if(href_list["close"]) + return + if(usr.stat > 0) + return + var/datum/topic_input/filter = new /datum/topic_input(href,href_list) + if(href_list["select_equip"]) + if(usr != occupant) return + var/obj/item/mecha_parts/mecha_equipment/equip = filter.getObj("select_equip") + if(equip) + selected = equip + occupant_message("You switch to [equip]") + visible_message("[src] raises [equip]") + send_byjax(occupant,"exosuit.browser","eq_list",get_equipment_list()) + return + if(href_list["eject"]) + if(usr != occupant) return + eject() + return + if(href_list["toggle_lights"]) + if(usr != occupant) return + toggle_lights() + return + if(href_list["toggle_airtank"]) + if(usr != occupant) return + toggle_internal_tank() + return + if(href_list["rmictoggle"]) + if(usr != occupant) return + radio.broadcasting = !radio.broadcasting + send_byjax(occupant,"exosuit.browser","rmicstate",(radio.broadcasting?"Engaged":"Disengaged")) + return + if(href_list["rspktoggle"]) + if(usr != occupant) return + radio.listening = !radio.listening + send_byjax(occupant,"exosuit.browser","rspkstate",(radio.listening?"Engaged":"Disengaged")) + return + if(href_list["rfreq"]) + if(usr != occupant) return + var/new_frequency = (radio.frequency + filter.getNum("rfreq")) + if((radio.frequency < PUBLIC_LOW_FREQ || radio.frequency > PUBLIC_HIGH_FREQ)) + new_frequency = sanitize_frequency(new_frequency) + radio.set_frequency(new_frequency) + send_byjax(occupant,"exosuit.browser","rfreq","[format_frequency(radio.frequency)]") + return + if(href_list["port_disconnect"]) + if(usr != occupant) return + disconnect_from_port() + return + if(href_list["port_connect"]) + if(usr != occupant) return + connect_to_port() + return + if(href_list["view_log"]) + if(usr != occupant) return + occupant << browse(get_log_html(), "window=exosuit_log") + onclose(occupant, "exosuit_log") + return + if(href_list["change_name"]) + if(usr != occupant) return + var/newname = strip_html_simple(input(occupant,"Choose new exosuit name","Rename exosuit",initial(name)) as text, MAX_NAME_LEN) + if(newname && trim(newname)) + name = newname + else + alert(occupant, "nope.avi") + return + if(href_list["toggle_id_upload"]) + if(usr != occupant) return + add_req_access = !add_req_access + send_byjax(occupant,"exosuit.browser","t_id_upload","[add_req_access?"L":"Unl"]ock ID upload panel") + return + if(href_list["toggle_maint_access"]) + if(usr != occupant) return + if(state) + occupant_message("Maintenance protocols in effect") + return + maint_access = !maint_access + send_byjax(occupant,"exosuit.browser","t_maint_access","[maint_access?"Forbid":"Permit"] maintenance protocols") + return + if(href_list["req_access"] && add_req_access) + if(!in_range(src, usr)) return + output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) + return + if(href_list["maint_access"] && maint_access) + if(!in_range(src, usr)) return + var/mob/user = filter.getMob("user") + if(user) + if(state==0) + state = 1 + to_chat(user, "The securing bolts are now exposed.") + else if(state==1) + state = 0 + to_chat(user, "The securing bolts are now hidden.") + output_maintenance_dialog(filter.getObj("id_card"),user) + return + if(href_list["set_internal_tank_valve"] && state >=1) + if(!in_range(src, usr)) return + var/mob/user = filter.getMob("user") + if(user) + var/new_pressure = input(user,"Input new output pressure","Pressure setting",internal_tank_valve) as num + if(new_pressure) + internal_tank_valve = new_pressure + to_chat(user, "The internal pressure valve has been set to [internal_tank_valve]kPa.") + if(href_list["add_req_access"] && add_req_access && filter.getObj("id_card")) + if(!in_range(src, usr)) return + operation_req_access += filter.getNum("add_req_access") + output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) + return + if(href_list["del_req_access"] && add_req_access && filter.getObj("id_card")) + if(!in_range(src, usr)) return + operation_req_access -= filter.getNum("del_req_access") + output_access_dialog(filter.getObj("id_card"),filter.getMob("user")) + return + if(href_list["finish_req_access"]) + if(!in_range(src, usr)) return + add_req_access = 0 + var/mob/user = filter.getMob("user") + user << browse(null,"window=exosuit_add_access") + return + if(href_list["dna_lock"]) + if(usr != occupant) + return + if(occupant && !iscarbon(occupant)) + to_chat(occupant, "You do not have any DNA!") + return + dna = occupant.dna.unique_enzymes + occupant_message("You feel a prick as the needle takes your DNA sample.") + return + if(href_list["reset_dna"]) + if(usr != occupant) return + dna = null + if(href_list["repair_int_control_lost"]) + if(usr != occupant) return + occupant_message("Recalibrating coordination system.") + log_message("Recalibration of coordination system started.") + var/T = loc + spawn(100) + if(T == loc) + clearInternalDamage(MECHA_INT_CONTROL_LOST) + occupant_message("Recalibration successful.") + log_message("Recalibration of coordination system finished with 0 errors.") + else + occupant_message("Recalibration failed.") + log_message("Recalibration of coordination system failed with 1 error.",1) + + //debug + /* + if(href_list["debug"]) + if(href_list["set_i_dam"]) + setInternalDamage(filter.getNum("set_i_dam")) + if(href_list["clear_i_dam"]) + clearInternalDamage(filter.getNum("clear_i_dam")) + return + */ + + return diff --git a/code/game/mecha/medical/medical.dm b/code/game/mecha/medical/medical.dm index a63a8d3d6dd..ce28687a9e6 100644 --- a/code/game/mecha/medical/medical.dm +++ b/code/game/mecha/medical/medical.dm @@ -1,22 +1,7 @@ +/obj/mecha/medical + turnsound = 'sound/mecha/mechmove01.ogg' + stepsound = 'sound/mecha/mechstep.ogg' + /obj/mecha/medical/New() ..() new /obj/item/mecha_parts/mecha_tracking(src) - return - - -/obj/mecha/medical/mechturn(direction) - dir = direction - playsound(src,'sound/mecha/mechmove01.ogg',40,1) - return 1 - -/obj/mecha/medical/mechstep(direction) - var/result = step(src,direction) - if(result) - playsound(src,'sound/mecha/mechstep.ogg',25,1) - return result - -/obj/mecha/medical/mechsteprand() - var/result = step_rand(src) - if(result) - playsound(src,'sound/mecha/mechstep.ogg',25,1) - return result \ No newline at end of file diff --git a/code/game/mecha/medical/odysseus.dm b/code/game/mecha/medical/odysseus.dm index deb3df8b4fc..b7a320adc77 100644 --- a/code/game/mecha/medical/odysseus.dm +++ b/code/game/mecha/medical/odysseus.dm @@ -12,44 +12,35 @@ step_energy_drain = 6 var/builtin_hud_user = 0 - moved_inside(var/mob/living/carbon/human/H as mob) - if(..()) - if(H.glasses && istype(H.glasses, /obj/item/clothing/glasses/hud)) - occupant_message("Your [H.glasses] prevent you from using the built-in medical hud.") - else - var/datum/atom_hud/data/human/medical/advanced/A = huds[DATA_HUD_MEDICAL_ADVANCED] - A.add_hud_to(H) - builtin_hud_user = 1 - return 1 +/obj/mecha/medical/odysseus/moved_inside(var/mob/living/carbon/human/H) + . = ..() + if(. && ishuman(H)) + if(istype(H.glasses, /obj/item/clothing/glasses/hud)) + occupant_message("[H.glasses] prevent you from using the built-in medical hud.") else - return 0 - - mmi_moved_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) - if(..()) - if(occupant.client) - var/datum/atom_hud/A = huds[DATA_HUD_MEDICAL_ADVANCED] - A.add_hud_to(occupant) - builtin_hud_user = 1 - return 1 - else - return 0 - - go_out() - if(istype(occupant,/mob/living/carbon/human) && builtin_hud_user) - var/mob/living/carbon/human/H = occupant var/datum/atom_hud/data/human/medical/advanced/A = huds[DATA_HUD_MEDICAL_ADVANCED] - A.remove_hud_from(H) - builtin_hud_user = 0 - else if((istype(occupant, /mob/living/carbon/brain) || pilot_is_mmi()) && builtin_hud_user ) - var/mob/living/carbon/brain/H = occupant + A.add_hud_to(H) + builtin_hud_user = 1 + +/obj/mecha/medical/odysseus/mmi_moved_inside(var/obj/item/device/mmi/mmi_as_oc, mob/user) + . = ..() + if(.) + if(occupant.client) var/datum/atom_hud/A = huds[DATA_HUD_MEDICAL_ADVANCED] - A.remove_hud_from(H) - builtin_hud_user = 0 + A.add_hud_to(occupant) + builtin_hud_user = 1 - ..() - return +/obj/mecha/medical/odysseus/go_out() + if(ishuman(occupant) && builtin_hud_user) + var/mob/living/carbon/human/H = occupant + var/datum/atom_hud/data/human/medical/advanced/A = huds[DATA_HUD_MEDICAL_ADVANCED] + A.remove_hud_from(H) + builtin_hud_user = 0 + else if((isbrain(occupant) || pilot_is_mmi()) && builtin_hud_user) + var/mob/living/carbon/brain/H = occupant + var/datum/atom_hud/A = huds[DATA_HUD_MEDICAL_ADVANCED] + A.remove_hud_from(H) + builtin_hud_user = 0 + + . = ..() -//TODO - Check documentation for client.eye and client.perspective... -/obj/item/clothing/glasses/hud/health/mech - name = "Integrated Medical Hud" - HUDType = DATA_HUD_MEDICAL_ADVANCED diff --git a/code/game/mecha/working/ripley.dm b/code/game/mecha/working/ripley.dm index 2a4f6adf189..c2ddd11d787 100644 --- a/code/game/mecha/working/ripley.dm +++ b/code/game/mecha/working/ripley.dm @@ -14,52 +14,46 @@ var/list/cargo = new var/cargo_capacity = 15 -/* -/obj/mecha/working/ripley/New() - ..() - return -*/ - /obj/mecha/working/ripley/Move() . = ..() update_pressure() /obj/mecha/working/ripley/Destroy() - while(src.damage_absorption.["brute"] < 0.6) - new /obj/item/asteroid/goliath_hide(src.loc) - src.damage_absorption.["brute"] = src.damage_absorption.["brute"] + 0.1 //If a goliath-plated ripley gets killed, all the plates drop - for(var/atom/movable/A in src.cargo) - A.loc = loc + while(damage_absorption.["brute"] < 0.6) + new /obj/item/asteroid/goliath_hide(loc) + damage_absorption.["brute"] = damage_absorption.["brute"] + 0.1 //If a goliath-plated ripley gets killed, all the plates drop + for(var/atom/movable/A in cargo) + A.forceMove(loc) step_rand(A) cargo.Cut() return ..() /obj/mecha/working/ripley/go_out() ..() - if(src.damage_absorption.["brute"] < 0.6 && src.damage_absorption.["brute"] > 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-open") - else if(src.damage_absorption.["brute"] == 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full-open") + if(damage_absorption.["brute"] < 0.6 && damage_absorption.["brute"] > 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-open") + else if(damage_absorption.["brute"] == 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full-open") /obj/mecha/working/ripley/moved_inside(var/mob/living/carbon/human/H as mob) ..() - if(src.damage_absorption.["brute"] < 0.6 && src.damage_absorption.["brute"] > 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g") - else if(src.damage_absorption.["brute"] == 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full") + if(damage_absorption.["brute"] < 0.6 && damage_absorption.["brute"] > 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g") + else if(damage_absorption.["brute"] == 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full") /obj/mecha/working/ripley/mmi_moved_inside(var/obj/item/device/mmi/mmi_as_oc as obj,mob/user as mob) ..() - if(src.damage_absorption.["brute"] < 0.6 && src.damage_absorption.["brute"] > 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g") - else if(src.damage_absorption.["brute"] == 0.3) - src.overlays = null - src.overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full") + if(damage_absorption.["brute"] < 0.6 && damage_absorption.["brute"] > 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g") + else if(damage_absorption.["brute"] == 0.3) + overlays = null + overlays += image("icon" = "mecha.dmi", "icon_state" = "ripley-g-full") /obj/mecha/working/ripley/firefighter desc = "Standart APLU chassis was refitted with additional thermal protection and cistern." @@ -90,7 +84,7 @@ /obj/mecha/working/ripley/deathripley/New() ..() - var/obj/item/mecha_parts/mecha_equipment/ME = new /obj/item/mecha_parts/mecha_equipment/tool/safety_clamp + var/obj/item/mecha_parts/mecha_equipment/ME = new /obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/kill ME.attach(src) return @@ -102,10 +96,10 @@ ..() //Attach drill if(prob(25)) //Possible diamond drill... Feeling lucky? - var/obj/item/mecha_parts/mecha_equipment/tool/drill/diamonddrill/D = new /obj/item/mecha_parts/mecha_equipment/tool/drill/diamonddrill + var/obj/item/mecha_parts/mecha_equipment/drill/diamonddrill/D = new /obj/item/mecha_parts/mecha_equipment/drill/diamonddrill D.attach(src) else - var/obj/item/mecha_parts/mecha_equipment/tool/drill/D = new /obj/item/mecha_parts/mecha_equipment/tool/drill + var/obj/item/mecha_parts/mecha_equipment/drill/D = new /obj/item/mecha_parts/mecha_equipment/drill D.attach(src) //Add possible plasma cutter @@ -117,12 +111,12 @@ cargo.Add(new /obj/structure/ore_box(src)) //Attach hydrolic clamp - var/obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp/HC = new /obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp + var/obj/item/mecha_parts/mecha_equipment/hydraulic_clamp/HC = new /obj/item/mecha_parts/mecha_equipment/hydraulic_clamp HC.attach(src) - for(var/obj/item/mecha_parts/mecha_tracking/B in src.contents)//Deletes the beacon so it can't be found easily + for(var/obj/item/mecha_parts/mecha_tracking/B in contents)//Deletes the beacon so it can't be found easily qdel(B) - var/obj/item/mecha_parts/mecha_equipment/tool/mining_scanner/scanner = new /obj/item/mecha_parts/mecha_equipment/tool/mining_scanner + var/obj/item/mecha_parts/mecha_equipment/mining_scanner/scanner = new /obj/item/mecha_parts/mecha_equipment/mining_scanner scanner.attach(src) /obj/mecha/working/ripley/Exit(atom/movable/O) @@ -134,14 +128,14 @@ ..() if(href_list["drop_from_cargo"]) var/obj/O = locate(href_list["drop_from_cargo"]) - if(O && O in src.cargo) - src.occupant_message("\blue You unload [O].") + if(O && O in cargo) + occupant_message("\blue You unload [O].") O.loc = get_turf(src) - src.cargo -= O + cargo -= O var/turf/T = get_turf(O) if(T) T.Entered(O) - src.log_message("Unloaded [O]. Cargo compartment capacity: [cargo_capacity - src.cargo.len]") + log_message("Unloaded [O]. Cargo compartment capacity: [cargo_capacity - cargo.len]") return @@ -149,8 +143,8 @@ /obj/mecha/working/ripley/get_stats_part() var/output = ..() output += "Cargo Compartment Contents:
" - if(src.cargo.len) - for(var/obj/O in src.cargo) + if(cargo.len) + for(var/obj/O in cargo) output += "Unload : [O]
" else output += "Nothing" @@ -159,12 +153,12 @@ /obj/mecha/working/ripley/Destroy() for(var/mob/M in src) - if(M==src.occupant) + if(M == occupant) continue M.loc = get_turf(src) M.loc.Entered(M) step_rand(M) - for(var/atom/movable/A in src.cargo) + for(var/atom/movable/A in cargo) A.loc = get_turf(src) var/turf/T = get_turf(A) if(T) @@ -179,9 +173,9 @@ if(pressure < 20) step_in = 3 - for(var/obj/item/mecha_parts/mecha_equipment/tool/drill/drill in equipment) + for(var/obj/item/mecha_parts/mecha_equipment/drill/drill in equipment) drill.equip_cooldown = initial(drill.equip_cooldown)/2 else step_in = 5 - for(var/obj/item/mecha_parts/mecha_equipment/tool/drill/drill in equipment) + for(var/obj/item/mecha_parts/mecha_equipment/drill/drill in equipment) drill.equip_cooldown = initial(drill.equip_cooldown) \ No newline at end of file diff --git a/code/game/mecha/working/working.dm b/code/game/mecha/working/working.dm index 7a59b6190ed..ccbfe2ef21b 100644 --- a/code/game/mecha/working/working.dm +++ b/code/game/mecha/working/working.dm @@ -4,29 +4,3 @@ /obj/mecha/working/New() ..() new /obj/item/mecha_parts/mecha_tracking(src) - return - -/* -/obj/mecha/working/melee_action(atom/target as obj|mob|turf) - if(internal_damage&MECHA_INT_CONTROL_LOST) - target = pick(oview(1,src)) - if(selected_tool) - selected_tool.action(target) - return -*/ - -/obj/mecha/working/range_action(atom/target as obj|mob|turf) - return - -/* -/obj/mecha/working/get_stats_part() - var/output = ..() - output += "[src.name] Tools:
" - if(equipment.len) - for(var/obj/item/mecha_parts/mecha_equipment/MT in equipment) - output += "[selected==MT?"":""][MT.get_equip_info()][selected==MT?"":""]
" - else - output += "None" - output += "
" - return output -*/ \ No newline at end of file diff --git a/code/game/objects/buckling.dm b/code/game/objects/buckling.dm index cead6e33ffd..4c61393d9f7 100644 --- a/code/game/objects/buckling.dm +++ b/code/game/objects/buckling.dm @@ -29,6 +29,11 @@ . = ..() unbuckle_mob() +/atom/movable/proc/has_buckled_mobs() + if(buckled_mob) + return TRUE + return FALSE + //procs that handle the actual buckling and unbuckling /atom/movable/proc/buckle_mob(mob/living/M) if(!can_buckle || !istype(M) || (M.loc != loc) || M.buckled || M.buckled_mob || buckled_mob || (buckle_requires_restraints && !M.restrained()) || M == src) diff --git a/code/game/turfs/turf.dm b/code/game/turfs/turf.dm index 5946ef77f0a..3a04a11f9e6 100644 --- a/code/game/turfs/turf.dm +++ b/code/game/turfs/turf.dm @@ -200,6 +200,9 @@ levelupdate() CalculateAdjacentTurfs() + if(air_master && !ignore_air) + air_master.add_to_active(src) + if(!keep_cabling && !can_have_cabling()) for(var/obj/structure/cable/C in contents) qdel(C) diff --git a/code/modules/mining/mine_turfs.dm b/code/modules/mining/mine_turfs.dm index a76dfa9a699..0c24daf977c 100644 --- a/code/modules/mining/mine_turfs.dm +++ b/code/modules/mining/mine_turfs.dm @@ -436,10 +436,9 @@ var/global/list/rockTurfEdgeCache = list( else if(istype(AM,/obj/mecha)) var/obj/mecha/M = AM - if(istype(M.selected,/obj/item/mecha_parts/mecha_equipment/tool/drill)) + if(istype(M.selected,/obj/item/mecha_parts/mecha_equipment/drill)) M.selected.action(src) - else - return + /**********************Asteroid**************************/ diff --git a/code/modules/mob/mob.dm b/code/modules/mob/mob.dm index 93b94e74f9e..1d2b40c6a70 100644 --- a/code/modules/mob/mob.dm +++ b/code/modules/mob/mob.dm @@ -90,21 +90,23 @@ // blind_message (optional) is what blind people will hear e.g. "You hear something!" /mob/visible_message(var/message, var/self_message, var/blind_message) - for(var/mob/M in viewers(src)) + for(var/mob/M in get_mobs_in_view(7, src)) if(M.see_invisible < invisibility) continue //can't view the invisible var/msg = message - if(self_message && M==src) + if(self_message && M == src) msg = self_message - M.show_message( msg, 1, blind_message, 2) + M.show_message(msg, 1, blind_message, 2) // Show a message to all mobs in sight of this atom // Use for objects performing visible actions // message is output to anyone who can see, e.g. "The [src] does something!" // blind_message (optional) is what blind people will hear e.g. "You hear something!" /atom/proc/visible_message(var/message, var/blind_message) - for(var/mob/M in viewers(src)) - M.show_message( message, 1, blind_message, 2) + for(var/mob/M in get_mobs_in_view(7, src)) + if(!M.client) + continue + M.show_message(message, 1, blind_message, 2) // Show a message to all mobs in earshot of this one // This would be for audible actions by the src mob @@ -118,7 +120,7 @@ range = hearing_distance var/msg = message for(var/mob/M in get_mobs_in_view(range, src)) - if(self_message && M==src) + if(self_message && M == src) msg = self_message M.show_message(msg, 2, deaf_message, 1) diff --git a/code/modules/mob/mob_movement.dm b/code/modules/mob/mob_movement.dm index 69e29fa9aa8..4c210f6f8f8 100644 --- a/code/modules/mob/mob_movement.dm +++ b/code/modules/mob/mob_movement.dm @@ -408,44 +408,42 @@ ///Called by /client/Move() ///For moving in space ///Return 1 for movement 0 for none -/mob/Process_Spacemove(var/movement_dir = 0) - +/mob/Process_Spacemove(movement_dir = 0) if(..()) return 1 + var/atom/movable/backup = get_spacemove_backup() + if(backup) + if(istype(backup) && movement_dir && !backup.anchored) + if(backup.newtonian_move(turn(movement_dir, 180))) //You're pushing off something movable, so it moves + src << "You push off of [backup] to propel yourself." + return 1 + return 0 +/mob/get_spacemove_backup() var/atom/movable/dense_object_backup - for(var/atom/A in orange(1, get_turf(src))) + for(var/A in orange(1, get_turf(src))) if(isarea(A)) continue - else if(isturf(A)) var/turf/turf = A - if(istype(turf,/turf/space)) + if(istype(turf, /turf/space)) continue - if(!turf.density && !mob_negates_gravity()) continue - - return 1 - + return A else var/atom/movable/AM = A if(AM == buckled) //Kind of unnecessary but let's just be sure continue - if(AM.density) + if(!AM.CanPass(src) || AM.density) if(AM.anchored) - return 1 + return AM if(pulling == AM) continue dense_object_backup = AM + break + . = dense_object_backup - if(movement_dir && dense_object_backup) - if(dense_object_backup.newtonian_move(turn(movement_dir, 180))) //You're pushing off something movable, so it moves - to_chat(src, "You push off of [dense_object_backup] to propel yourself.") - - - return 1 - return 0 /mob/proc/mob_has_gravity(turf/T) return has_gravity(src, T) diff --git a/code/modules/research/designs/mechfabricator_designs.dm b/code/modules/research/designs/mechfabricator_designs.dm index f292209ac3e..1a26599b93a 100644 --- a/code/modules/research/designs/mechfabricator_designs.dm +++ b/code/modules/research/designs/mechfabricator_designs.dm @@ -601,7 +601,7 @@ name = "Exosuit Engineering Equipment (Cable Layer)" id = "mech_cable_layer" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/cable_layer + build_path = /obj/item/mecha_parts/mecha_equipment/cable_layer materials = list(MAT_METAL=10000) construction_time = 100 category = list("Exosuit Equipment") @@ -610,7 +610,7 @@ name = "Exosuit Engineering Equipment (Drill)" id = "mech_drill" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/drill + build_path = /obj/item/mecha_parts/mecha_equipment/drill materials = list(MAT_METAL=10000) construction_time = 100 category = list("Exosuit Equipment") @@ -619,7 +619,7 @@ name = "Exosuit Engineering Equipment (Extinguisher)" id = "mech_extinguisher" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/extinguisher + build_path = /obj/item/mecha_parts/mecha_equipment/extinguisher materials = list(MAT_METAL=10000) construction_time = 100 category = list("Exosuit Equipment") @@ -628,7 +628,7 @@ name = "Exosuit Engineering Equipment (Hydraulic Clamp)" id = "mech_hydraulic_clamp" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/hydraulic_clamp + build_path = /obj/item/mecha_parts/mecha_equipment/hydraulic_clamp materials = list(MAT_METAL=10000) construction_time = 100 category = list("Exosuit Equipment") @@ -638,7 +638,7 @@ id = "mech_sleeper" build_type = MECHFAB req_tech = list("biotech" = 2) - build_path = /obj/item/mecha_parts/mecha_equipment/tool/sleeper + build_path = /obj/item/mecha_parts/mecha_equipment/medical/sleeper materials = list(MAT_METAL=5000,MAT_GLASS=10000) construction_time = 100 category = list("Exosuit Equipment") @@ -648,7 +648,7 @@ id = "mech_syringe_gun" build_type = MECHFAB req_tech = list("magnets" = 3,"biotech" = 3) - build_path = /obj/item/mecha_parts/mecha_equipment/tool/syringe_gun + build_path = /obj/item/mecha_parts/mecha_equipment/medical/syringe_gun materials = list(MAT_METAL=3000,MAT_GLASS=2000) construction_time = 200 category = list("Exosuit Equipment") @@ -723,7 +723,7 @@ desc = "An exosuit-mounted Mime Rapid Construction Device." id = "mech_mrcd" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/mimercd + build_path = /obj/item/mecha_parts/mecha_equipment/mimercd materials = list(MAT_METAL=30000,MAT_TRANQUILLITE=10000) construction_time = 700 category = list("Exosuit Equipment") @@ -735,7 +735,7 @@ id = "mech_diamond_drill" build_type = MECHFAB req_tech = list("materials" = 4, "engineering" = 3) - build_path = /obj/item/mecha_parts/mecha_equipment/tool/drill/diamonddrill + build_path = /obj/item/mecha_parts/mecha_equipment/drill/diamonddrill materials = list(MAT_METAL=10000,MAT_DIAMOND=6500) construction_time = 100 category = list("Exosuit Equipment") @@ -744,7 +744,7 @@ name = "Exosuit Engineering Equipement (Mining Scanner)" id = "mech_mscanner" build_type = MECHFAB - build_path = /obj/item/mecha_parts/mecha_equipment/tool/mining_scanner + build_path = /obj/item/mecha_parts/mecha_equipment/mining_scanner materials = list(MAT_METAL=5000,MAT_GLASS=2500) construction_time = 50 category = list("Exosuit Equipment") @@ -788,7 +788,7 @@ id = "mech_rcd" build_type = MECHFAB req_tech = list("materials" = 4, "bluespace" = 3, "magnets" = 4, "powerstorage"=4, "engineering" = 4) - build_path = /obj/item/mecha_parts/mecha_equipment/tool/rcd + build_path = /obj/item/mecha_parts/mecha_equipment/rcd materials = list(MAT_METAL=30000,MAT_GOLD=20000,MAT_PLASMA=25000,MAT_SILVER=20000) construction_time = 1200 category = list("Exosuit Equipment") diff --git a/code/modules/research/xenoarchaeology/artifact/artifact.dm b/code/modules/research/xenoarchaeology/artifact/artifact.dm index 82caa2b9be5..57759308aee 100644 --- a/code/modules/research/xenoarchaeology/artifact/artifact.dm +++ b/code/modules/research/xenoarchaeology/artifact/artifact.dm @@ -59,7 +59,7 @@ else if(istype(AM,/obj/mecha)) var/obj/mecha/M = AM - if(istype(M.selected,/obj/item/mecha_parts/mecha_equipment/tool/drill)) + if(istype(M.selected,/obj/item/mecha_parts/mecha_equipment/drill)) M.selected.action(src) /obj/structure/boulder/attackby(obj/item/weapon/W as obj, mob/user as mob, params) diff --git a/code/modules/research/xenoarchaeology/artifact/artifact_hoverpod.dm b/code/modules/research/xenoarchaeology/artifact/artifact_hoverpod.dm index 4b16c25aeea..6544deb1d68 100644 --- a/code/modules/research/xenoarchaeology/artifact/artifact_hoverpod.dm +++ b/code/modules/research/xenoarchaeology/artifact/artifact_hoverpod.dm @@ -3,40 +3,11 @@ icon_state = "engineering_pod" desc = "Stubby and round, it has a human sized access hatch on the top." wreckage = /obj/effect/decal/mecha_wreckage/hoverpod + stepsound = 'sound/machines/hiss.ogg' /obj/mecha/working/hoverpod/Process_Spacemove(var/movement_dir = 0) return 1 // puts the hover in hoverpod -//these three procs overriden to play different sounds -/obj/mecha/working/hoverpod/mechturn(direction) - dir = direction - //playsound(src,'sound/machines/hiss.ogg',40,1) - return 1 - -/obj/mecha/working/hoverpod/mechstep(direction) - var/result = step(src,direction) - if(result) - playsound(src,'sound/machines/hiss.ogg',40,1) - return result - - -/obj/mecha/working/hoverpod/mechsteprand() - var/result = step_rand(src) - if(result) - playsound(src,'sound/machines/hiss.ogg',40,1) - return result - /obj/effect/decal/mecha_wreckage/hoverpod name = "Hover pod wreckage" icon_state = "engineering_pod-broken" - - /*New() - ..() - var/list/parts = list( - - for(var/i=0;i<2;i++) - if(!isemptylist(parts) && prob(40)) - var/part = pick(parts) - welder_salvage += part - parts -= part - return*/ diff --git a/code/modules/surgery/generic.dm b/code/modules/surgery/generic.dm index d02787eb3b5..fa7c8c63451 100644 --- a/code/modules/surgery/generic.dm +++ b/code/modules/surgery/generic.dm @@ -214,7 +214,7 @@ //drill bone /datum/surgery_step/generic/drill name = "drill bone" - allowed_tools = list(/obj/item/weapon/surgicaldrill = 100, /obj/item/weapon/pickaxe/drill = 60, /obj/item/mecha_parts/mecha_equipment/tool/drill = 60, /obj/item/weapon/screwdriver = 20) + allowed_tools = list(/obj/item/weapon/surgicaldrill = 100, /obj/item/weapon/pickaxe/drill = 60, /obj/item/mecha_parts/mecha_equipment/drill = 60, /obj/item/weapon/screwdriver = 20) time = 30 /datum/surgery_step/generic/drill/begin_step(mob/living/user, mob/living/carbon/target, target_zone, obj/item/tool, datum/surgery/surgery) diff --git a/paradise.dme b/paradise.dme index c75e5fc0c2c..c4dcba43636 100644 --- a/paradise.dme +++ b/paradise.dme @@ -639,6 +639,7 @@ #include "code\game\mecha\mecha_construction_paths.dm" #include "code\game\mecha\mecha_control_console.dm" #include "code\game\mecha\mecha_parts.dm" +#include "code\game\mecha\mecha_topic.dm" #include "code\game\mecha\mecha_wreckage.dm" #include "code\game\mecha\paintkits.dm" #include "code\game\mecha\combat\combat.dm" @@ -650,7 +651,9 @@ #include "code\game\mecha\combat\recitence.dm" #include "code\game\mecha\equipment\mecha_equipment.dm" #include "code\game\mecha\equipment\tools\medical_tools.dm" -#include "code\game\mecha\equipment\tools\tools.dm" +#include "code\game\mecha\equipment\tools\mining_tools.dm" +#include "code\game\mecha\equipment\tools\other_tools.dm" +#include "code\game\mecha\equipment\tools\work_tools.dm" #include "code\game\mecha\equipment\weapons\weapons.dm" #include "code\game\mecha\medical\medical.dm" #include "code\game\mecha\medical\odysseus.dm" From 8d15e683a6ce883d6a72f7d6ece9020de293d23d Mon Sep 17 00:00:00 2001 From: FalseIncarnate Date: Fri, 12 Aug 2016 21:29:18 -0400 Subject: [PATCH 11/92] WOLOLO cleanup Cleans up those nasty trailing returns, colons, and other clutter. Also went ahead and removed the colons from the original mindslave code I copied. Converting loyalty implanted crew now results in a shorter zealot duration. Previously, all crew was a zealot for 10 minutes, now crew that is loyalty implanted AT THE TIME OF CONVERSION remains a zealot for only 5 minutes before deconverting. --- code/datums/mind.dm | 14 +++++----- .../objects/items/weapons/holy_weapons.dm | 26 +++++++++++++------ .../items/weapons/implants/implant_traitor.dm | 14 +++++----- code/modules/clothing/suits/miscellaneous.dm | 15 +++++------ 4 files changed, 39 insertions(+), 30 deletions(-) diff --git a/code/datums/mind.dm b/code/datums/mind.dm index de98b6e5808..a3c60066ef9 100644 --- a/code/datums/mind.dm +++ b/code/datums/mind.dm @@ -1538,21 +1538,21 @@ var/list/implanters var/ref = "\ref[missionary.mind]" - if(!(missionary.mind in ticker.mode:implanter)) - ticker.mode:implanter[ref] = list() - implanters = ticker.mode:implanter[ref] + if(!(missionary.mind in ticker.mode.implanter)) + ticker.mode.implanter[ref] = list() + implanters = ticker.mode.implanter[ref] implanters.Add(src) ticker.mode.implanted.Add(src) ticker.mode.implanted[src] = missionary.mind - //ticker.mode:implanter[missionary.mind] += src - ticker.mode:implanter[ref] = implanters + //ticker.mode.implanter[missionary.mind] += src + ticker.mode.implanter[ref] = implanters ticker.mode.traitors += src special_role = "traitor" to_chat(current, "You're now a loyal zealot of [missionary.name]! You now must lay down your life to protect them and assist in their goals at any cost.") var/datum/objective/protect/mindslave/MS = new MS.owner = src - MS.target = missionary:mind - MS.explanation_text = "Obey every order from and protect [missionary:real_name], the [missionary:mind:assigned_role=="MODE" ? (missionary:mind:special_role) : (missionary:mind:assigned_role)]." + MS.target = missionary.mind + MS.explanation_text = "Obey every order from and protect [missionary.real_name], the [missionary.mind.assigned_role=="MODE" ? (missionary.mind.special_role) : (missionary.mind.assigned_role)]." objectives += MS for(var/datum/objective/objective in objectives) to_chat(current, "Objective #1: [objective.explanation_text]") diff --git a/code/game/objects/items/weapons/holy_weapons.dm b/code/game/objects/items/weapons/holy_weapons.dm index 64088ddaa65..68c7727dc2b 100644 --- a/code/game/objects/items/weapons/holy_weapons.dm +++ b/code/game/objects/items/weapons/holy_weapons.dm @@ -471,7 +471,7 @@ if(robes) //delink on destruction robes.linked_staff = null robes = null - ..() + return ..() /obj/item/weapon/nullrod/missionary_staff/attack_self(mob/user) if(robes) //as long as it is linked, sec can't try to meta by stealing your staff and seeing if they get the link error message @@ -516,15 +516,14 @@ return if(missionary in viewers(target)) //missionary must maintain line of sight to target, but the target doesn't necessary need to be able to see the missionary do_convert(target, missionary) - return else to_chat(missionary, "You lost sight of the target before they could be converted!") faith -= 25 //they escaped, so you only lost a little faith (to prevent spamming) - return else //the do_after failed, probably because you moved or dropped the staff to_chat(missionary, "Your concentration was broken!") /obj/item/weapon/nullrod/missionary_staff/proc/do_convert(mob/living/carbon/human/target, mob/living/carbon/human/missionary) + var/convert_duration = 6000 //10 min if(!target || !istype(target) || !missionary || !istype(missionary)) return if(ismindslave(target) || target.mind.zealot_master) //mindslaves and zealots override the staff because the staff is just a temporary mindslave @@ -534,7 +533,8 @@ if(isloyal(target)) if(prob(20)) //loyalty implants typically overpower this, but you CAN get lucky and convert still (20% chance of success) faith -= 125 //yes, this puts it negative. it's gonna take longer to recharge if you manage to convert a one of these people to balance the new power you gained through them - to_chat(missionary, "Through sheer willpower, you overcome their closed mind and rally [target] to your cause! You may need a bit longer than usual before your faith is fully recharged...") + to_chat(missionary, "Through sheer willpower, you overcome their closed mind and rally [target] to your cause! You may need a bit longer than usual before your faith is fully recharged, and they won't remain loyal to you for long ...") + convert_duration = 3000 //5 min, because the loyalty implant will attempt to counteract the subversion else //80% chance to fail faith -= 75 to_chat(missionary, "Your faith is strong, but their mind remains closed to your ideals. Your resolve helps you retain a bit of faith though.") @@ -564,11 +564,21 @@ missionary.say("WOLOLO!") missionary << sound('sound/misc/wololo.ogg', 0, 1, 25) + var/obj/item/clothing/under/jumpsuit = null + if(target.w_uniform) - target.w_uniform.color = team_color + jumpsuit = target.w_uniform + jumpsuit.color = team_color target.update_inv_w_uniform(0,0) log_admin("[ckey(missionary.key)] has converted [ckey(target.key)] as a zealot.") - spawn(6000) //10 minutes of zealotry before you return to normal (there has to be a better way than this, but I can't think of one that doesn't involve a self-deleting implant/tumor off hand) - target.mind.remove_zealot() - log_admin("[ckey(target.key)] has deconverted and is no longer a zealot of [ckey(missionary.key)].") \ No newline at end of file + addtimer(src, "do_deconvert", convert_duration, FALSE, target, missionary, jumpsuit) //deconverts after the timer expires + +/obj/item/weapon/nullrod/missionary_staff/proc/do_deconvert(mob/living/carbon/human/target, mob/living/carbon/human/missionary, obj/item/clothing/under/jumpsuit) + if(!target || !istype(target)) //if we didn't supply a target (or a non-human target), stop here + return 0 + if(jumpsuit) + jumpsuit.color = initial(jumpsuit.color) + target.update_inv_w_uniform(0,0) + target.mind.remove_zealot() + log_admin("[ckey(target.key)] has deconverted and is no longer a zealot of [ckey(missionary.key)].") \ No newline at end of file diff --git a/code/game/objects/items/weapons/implants/implant_traitor.dm b/code/game/objects/items/weapons/implants/implant_traitor.dm index 78e63ddfae4..dbb4f1fb020 100644 --- a/code/game/objects/items/weapons/implants/implant_traitor.dm +++ b/code/game/objects/items/weapons/implants/implant_traitor.dm @@ -45,21 +45,21 @@ return -1 H.implanting = 1 to_chat(H, "You feel completely loyal to [user.name].") - if(!(user.mind in ticker.mode:implanter)) - ticker.mode:implanter[ref] = list() - implanters = ticker.mode:implanter[ref] + if(!(user.mind in ticker.mode.implanter)) + ticker.mode.implanter[ref] = list() + implanters = ticker.mode.implanter[ref] implanters.Add(H.mind) ticker.mode.implanted.Add(H.mind) ticker.mode.implanted[H.mind] = user.mind - //ticker.mode:implanter[user.mind] += H.mind - ticker.mode:implanter[ref] = implanters + //ticker.mode.implanter[user.mind] += H.mind + ticker.mode.implanter[ref] = implanters ticker.mode.traitors += H.mind H.mind.special_role = "traitor" to_chat(H, "You're now completely loyal to [user.name]! You now must lay down your life to protect them and assist in their goals at any cost.") var/datum/objective/protect/mindslave/MS = new MS.owner = H.mind - MS.target = user:mind - MS.explanation_text = "Obey every order from and protect [user:real_name], the [user:mind:assigned_role=="MODE" ? (user:mind:special_role) : (user:mind:assigned_role)]." + MS.target = user.mind + MS.explanation_text = "Obey every order from and protect [user.real_name], the [user.mind.assigned_role=="MODE" ? (user.mind.special_role) : (user.mind.assigned_role)]." H.mind.objectives += MS for(var/datum/objective/objective in H.mind.objectives) to_chat(H, "Objective #1: [objective.explanation_text]") diff --git a/code/modules/clothing/suits/miscellaneous.dm b/code/modules/clothing/suits/miscellaneous.dm index 27ae3c853e0..4573a176cba 100644 --- a/code/modules/clothing/suits/miscellaneous.dm +++ b/code/modules/clothing/suits/miscellaneous.dm @@ -889,12 +889,12 @@ if(linked_staff) //delink on destruction linked_staff.robes = null linked_staff = null - ..() + processing_objects -= src //probably is cleared in a parent call already, but just in case we're gonna do it here + return ..() /obj/item/clothing/suit/hooded/chaplain_hoodie/missionary_robe/equipped(mob/living/carbon/human/H, slot) if(!istype(H) || slot != slot_wear_suit) - if(src in processing_objects) - processing_objects -= src + processing_objects -= src return else processing_objects |= src @@ -903,12 +903,12 @@ if(!linked_staff) //if we don't have a linked staff, the rest of this is useless return - var/mob/living/carbon/human/H = loc - - if(!istype(H)) //if we somehow try to process while not on a human, remove ourselves from processing and return + if(!ishuman(loc)) //if we somehow try to process while not on a human, remove ourselves from processing and return processing_objects -= src return + var/mob/living/carbon/human/H = loc + if(linked_staff.faith >= 100) //if the linked staff is fully recharged, do nothing return @@ -919,5 +919,4 @@ linked_staff.faith += 5 if(linked_staff.faith >= 100) //if this charge puts the staff at or above full, notify the wearer - to_chat(H, "Faith renewed; ready to convert new followers.") - return \ No newline at end of file + to_chat(H, "Faith renewed; ready to convert new followers.") \ No newline at end of file From beed79121168bf6235bb114e5ba80a82b75480bb Mon Sep 17 00:00:00 2001 From: TullyBurnalot Date: Sat, 13 Aug 2016 21:09:04 +0100 Subject: [PATCH 12/92] Fixes Ghost Proximity Tripping --- code/modules/assembly/infrared.dm | 8 +++++--- code/modules/assembly/proximity.dm | 2 ++ 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/code/modules/assembly/infrared.dm b/code/modules/assembly/infrared.dm index 2a23732a90b..26af2340354 100644 --- a/code/modules/assembly/infrared.dm +++ b/code/modules/assembly/infrared.dm @@ -174,7 +174,7 @@ return dir = turn(dir, 90) - + if(usr.machine == src) interact(usr) @@ -246,7 +246,9 @@ hit() /obj/effect/beam/i_beam/Crossed(atom/movable/AM as mob|obj) - if(istype(AM, /obj/effect/beam) || !AM.density) + if(!isobj(AM) && !isliving(AM)) + return + if(istype(AM, /obj/effect/beam)) return hit() @@ -259,4 +261,4 @@ if(previous) previous.next = null master.last = previous - return ..() \ No newline at end of file + return ..() diff --git a/code/modules/assembly/proximity.dm b/code/modules/assembly/proximity.dm index 267d1600523..5fb87740af3 100644 --- a/code/modules/assembly/proximity.dm +++ b/code/modules/assembly/proximity.dm @@ -42,6 +42,8 @@ HasProximity(atom/movable/AM as mob|obj) + if(!isobj(AM) && !isliving(AM)) + return if(istype(AM, /obj/effect/beam)) return if(AM.move_speed < 12) sense() return From 1df5fd5e9d8e1cf6d5e96fe7c5afc82256d1b30a Mon Sep 17 00:00:00 2001 From: Fox-McCloud Date: Sun, 14 Aug 2016 00:03:09 -0400 Subject: [PATCH 13/92] Strips Out Media Players --- _maps/map_files/cyberiad/cyberiad.dmm | 26 +- _maps/map_files/cyberiad/z2.dmm | 3 +- _maps/map_files/cyberiad/z4.dmm | 2 +- _maps/map_files/cyberiad/z6.dmm | 2 +- code/__DEFINES/preferences.dm | 9 +- code/controllers/configuration.dm | 4 - code/game/area/areas.dm | 2 +- .../client/preference/preferences_toggles.dm | 14 - code/modules/media/broadcast/receiver.dm | 46 --- .../media/broadcast/receivers/radio.dm | 84 ----- code/modules/media/broadcast/transmitter.dm | 46 --- .../media/broadcast/transmitters/broadcast.dm | 221 ------------ code/modules/media/jukebox.dm | 333 ------------------ code/modules/media/machinery.dm | 104 ------ code/modules/media/mediamanager.dm | 160 --------- code/world.dm | 5 - config/example/config.txt | 3 - paradise.dme | 7 - 18 files changed, 20 insertions(+), 1051 deletions(-) delete mode 100644 code/modules/media/broadcast/receiver.dm delete mode 100644 code/modules/media/broadcast/receivers/radio.dm delete mode 100644 code/modules/media/broadcast/transmitter.dm delete mode 100644 code/modules/media/broadcast/transmitters/broadcast.dm delete mode 100644 code/modules/media/jukebox.dm delete mode 100644 code/modules/media/machinery.dm delete mode 100644 code/modules/media/mediamanager.dm diff --git a/_maps/map_files/cyberiad/cyberiad.dmm b/_maps/map_files/cyberiad/cyberiad.dmm index a154a765dad..7c24594092b 100644 --- a/_maps/map_files/cyberiad/cyberiad.dmm +++ b/_maps/map_files/cyberiad/cyberiad.dmm @@ -249,7 +249,7 @@ "aeO" = (/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/turf/simulated/floor/plasteel{icon_state = "dark"},/area/security/hos) "aeP" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply,/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/turf/simulated/floor/plasteel{icon_state = "dark"},/area/security/hos) "aeQ" = (/obj/machinery/recharger{pixel_y = 4},/obj/structure/table/woodentable,/turf/simulated/floor/plasteel{icon_state = "dark"},/area/security/hos) -"aeR" = (/obj/structure/table/woodentable,/obj/item/weapon/reagent_containers/food/drinks/flask/barflask,/obj/machinery/camera{c_tag = "Brig Head of Security's Office"; dir = 1; network = list("SS13")},/obj/machinery/media/receiver/boombox,/turf/simulated/floor/plasteel{icon_state = "dark"},/area/security/hos) +"aeR" = (/obj/structure/table/woodentable,/obj/item/weapon/reagent_containers/food/drinks/flask/barflask,/obj/machinery/camera{c_tag = "Brig Head of Security's Office"; dir = 1; network = list("SS13")},/turf/simulated/floor/plasteel{icon_state = "dark"},/area/security/hos) "aeS" = (/obj/structure/reagent_dispensers/fueltank,/obj/machinery/atmospherics/unary/vent_pump,/obj/effect/decal/warning_stripes/yellow/hollow,/obj/effect/decal/warning_stripes/northeastcorner,/turf/simulated/floor/plasteel,/area/security/podbay) "aeT" = (/obj/effect/decal/warning_stripes/north,/turf/simulated/floor/plasteel,/area/security/podbay) "aeU" = (/turf/simulated/floor/plasteel{tag = "icon-stage_stairs"; icon_state = "stage_stairs"},/area/security/podbay) @@ -1001,7 +1001,7 @@ "atm" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4; level = 1},/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers{dir = 10; initialize_directions = 10; level = 1},/obj/structure/window/reinforced{dir = 1; layer = 2.9},/obj/structure/stool/bed/chair{dir = 1},/turf/simulated/floor/wood,/area/crew_quarters/courtroom) "atn" = (/obj/machinery/newscaster{pixel_x = -28; pixel_y = 1},/obj/structure/table/woodentable,/obj/item/device/flashlight/lamp/green{on = 0; pixel_x = -3; pixel_y = 8},/obj/item/weapon/reagent_containers/food/drinks/flask/detflask,/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 5},/turf/simulated/floor/plasteel{icon_state = "grimy"},/area/security/detectives_office) "ato" = (/obj/machinery/atmospherics/pipe/manifold/hidden/supply{dir = 1; level = 1},/obj/structure/table/woodentable,/turf/simulated/floor/carpet,/area/security/detectives_office) -"atp" = (/obj/machinery/atmospherics/unary/vent_pump{dir = 8; on = 1},/obj/structure/table/woodentable,/obj/machinery/media/receiver/boombox,/turf/simulated/floor/carpet,/area/security/detectives_office) +"atp" = (/obj/machinery/atmospherics/unary/vent_pump{dir = 8; on = 1},/obj/structure/table/woodentable,/turf/simulated/floor/carpet,/area/security/detectives_office) "atq" = (/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/obj/machinery/hologram/holopad,/turf/simulated/floor/carpet,/area/security/detectives_office) "atr" = (/obj/structure/table/woodentable,/obj/item/device/taperecorder{pixel_x = 0; pixel_y = 0},/obj/machinery/alarm{dir = 8; icon_state = "alarm0"; pixel_x = 24},/turf/simulated/floor/plasteel{icon_state = "grimy"},/area/security/detectives_office) "ats" = (/obj/structure/disposalpipe/segment,/obj/machinery/atmospherics/pipe/simple/hidden/supply,/turf/simulated/floor/plating,/area/maintenance/fsmaint) @@ -1756,7 +1756,7 @@ "aHN" = (/obj/structure/disposalpipe/segment,/obj/machinery/atmospherics/pipe/manifold/hidden/supply{dir = 4; initialize_directions = 11; level = 1},/turf/simulated/floor/plating,/area/maintenance/fsmaint) "aHO" = (/obj/machinery/firealarm{dir = 8; pixel_x = -24},/turf/simulated/floor/plasteel{icon_state = "white"},/area/crew_quarters/sleep) "aHP" = (/turf/simulated/floor/plasteel{icon_state = "white"},/area/crew_quarters/sleep) -"aHQ" = (/obj/structure/table/woodentable,/obj/machinery/media/receiver/boombox,/turf/simulated/floor/plasteel,/area/crew_quarters/fitness) +"aHQ" = (/obj/structure/table,/obj/structure/window/reinforced{dir = 4},/obj/structure/window/reinforced{dir = 1},/obj/item/weapon/phone{pixel_x = -3; pixel_y = 3},/turf/simulated/floor/plasteel{dir = 5; icon_state = "blue"},/area/medical/reception) "aHR" = (/obj/structure/table/woodentable,/obj/machinery/hologram/holopad,/turf/simulated/floor/plasteel,/area/crew_quarters/fitness) "aHS" = (/obj/structure/table/woodentable,/obj/item/toy/cards/deck,/turf/simulated/floor/plasteel,/area/crew_quarters/fitness) "aHT" = (/obj/structure/stool,/turf/simulated/floor/plasteel,/area/crew_quarters/fitness) @@ -3407,7 +3407,7 @@ "bnA" = (/turf/simulated/wall/r_wall,/area/crew_quarters/captain) "bnB" = (/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/obj/structure/disposalpipe/segment,/obj/machinery/door/firedoor,/obj/machinery/door/airlock/command{id_tag = "captainofficedoor"; name = "Captain's Office"; req_access = null; req_access_txt = "20"},/turf/simulated/floor/wood,/area/crew_quarters/captain) "bnC" = (/obj/machinery/atmospherics/unary/vent_pump{dir = 1; on = 1},/turf/simulated/floor/wood,/area/crew_quarters/bar) -"bnD" = (/obj/machinery/media/jukebox/bar,/turf/simulated/floor/wood,/area/crew_quarters/bar) +"bnD" = (/obj/structure/table,/obj/machinery/newscaster/security_unit{pixel_x = 0; pixel_y = 32},/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/obj/item/stack/packageWrap,/obj/item/weapon/hand_labeler,/turf/simulated/floor/plasteel,/area/crew_quarters/heads) "bnE" = (/obj/machinery/computer/arcade,/turf/simulated/floor/wood,/area/crew_quarters/bar) "bnF" = (/obj/machinery/disposal,/obj/structure/disposalpipe/trunk{dir = 1},/turf/simulated/floor/wood,/area/crew_quarters/bar) "bnG" = (/obj/machinery/light,/obj/machinery/firealarm{dir = 1; pixel_y = -24},/turf/simulated/floor/wood,/area/crew_quarters/bar) @@ -4108,7 +4108,7 @@ "bAZ" = (/obj/structure/table,/obj/item/device/flashlight/lamp,/obj/structure/window/reinforced{dir = 1},/turf/simulated/floor/plasteel{dir = 1; icon_state = "blue"},/area/medical/reception) "bBa" = (/obj/structure/table,/obj/item/weapon/paper_bin,/obj/item/weapon/pen,/obj/structure/window/reinforced{dir = 1},/turf/simulated/floor/plasteel{dir = 1; icon_state = "blue"},/area/medical/reception) "bBb" = (/obj/structure/table,/obj/machinery/door/window/northright{name = "Medbay Lobby"; req_access_txt = "5"},/obj/item/device/radio/intercom/department/medbay,/turf/simulated/floor/plasteel{dir = 1; icon_state = "blue"},/area/medical/reception) -"bBc" = (/obj/structure/table,/obj/machinery/media/receiver/boombox,/obj/structure/window/reinforced{dir = 4},/obj/structure/window/reinforced{dir = 1},/obj/item/weapon/phone{pixel_x = -3; pixel_y = 3},/turf/simulated/floor/plasteel{dir = 5; icon_state = "blue"},/area/medical/reception) +"bBc" = (/obj/structure/table,/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/turf/simulated/floor/plasteel{tag = "icon-whiteblue"; icon_state = "whiteblue"},/area/medical/medbay2) "bBd" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply,/obj/item/device/radio/intercom{frequency = 1459; name = "station intercom (General)"; pixel_x = 28},/turf/simulated/floor/plasteel{tag = "icon-whiteblue (EAST)"; icon_state = "whiteblue"; dir = 4},/area/medical/reception) "bBe" = (/obj/structure/table,/obj/machinery/atmospherics/pipe/simple/hidden/supply,/obj/item/weapon/reagent_containers/syringe/antiviral,/obj/structure/closet/secure_closet/medical_wall{name = "Pill Cabinet"; pixel_y = -32},/obj/machinery/light_switch{pixel_x = -23; pixel_y = 0},/obj/item/weapon/reagent_containers/syringe/charcoal,/obj/item/weapon/reagent_containers/syringe/insulin,/obj/item/weapon/reagent_containers/glass/bottle/morphine,/obj/item/weapon/reagent_containers/glass/bottle/epinephrine,/obj/item/weapon/reagent_containers/syringe,/obj/item/stack/medical/bruise_pack/advanced,/obj/item/stack/medical/ointment/advanced,/obj/item/weapon/reagent_containers/food/pill/patch/styptic,/obj/item/weapon/reagent_containers/food/pill/patch/styptic,/obj/item/weapon/reagent_containers/food/pill/patch/silver_sulf,/obj/item/weapon/reagent_containers/food/pill/patch/silver_sulf,/obj/item/weapon/storage/pill_bottle/painkillers,/turf/simulated/floor/plasteel{dir = 2; icon_state = "cafeteria"; tag = "icon-cafeteria (NORTHEAST)"},/area/medical/exam_room) "bBf" = (/obj/machinery/atmospherics/unary/vent_scrubber{on = 1; scrub_N2O = 1; scrub_Toxins = 1},/obj/structure/table,/obj/item/weapon/cane,/obj/item/weapon/cane{pixel_x = -3; pixel_y = 2},/obj/item/weapon/cane{pixel_x = -6; pixel_y = 4},/obj/item/weapon/storage/box/rxglasses,/turf/simulated/floor/plasteel{dir = 2; icon_state = "cafeteria"; tag = "icon-cafeteria (NORTHEAST)"},/area/medical/exam_room) @@ -4263,7 +4263,7 @@ "bDY" = (/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/obj/machinery/atmospherics/pipe/simple/hidden/supply,/turf/simulated/floor/plasteel,/area/hallway/primary/central/sw) "bDZ" = (/obj/machinery/atmospherics/unary/vent_pump{dir = 1; on = 1},/obj/item/device/radio/intercom{dir = 4; name = "station intercom (General)"; pixel_x = 28},/turf/simulated/floor/plasteel{dir = 2; icon_state = "redcorner"},/area/hallway/primary/central/sw) "bEa" = (/obj/machinery/computer/secure_data,/obj/machinery/flasher_button{id = "hopflash"; pixel_x = 6; pixel_y = 36},/obj/machinery/door_control{id = "hopqueue"; name = "Queue Privacy Shutters Control"; pixel_x = -4; pixel_y = 25; req_access_txt = "28"},/obj/machinery/door_control{id = "hop"; name = "Privacy Shutters Control"; pixel_x = 6; pixel_y = 25; req_access_txt = "28"},/obj/machinery/light_switch{pixel_x = -4; pixel_y = 36},/turf/simulated/floor/plasteel{dir = 9; icon_state = "blue"},/area/crew_quarters/heads) -"bEb" = (/obj/structure/table,/obj/machinery/newscaster/security_unit{pixel_x = 0; pixel_y = 32},/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/obj/machinery/media/receiver/boombox,/obj/item/stack/packageWrap,/obj/item/weapon/hand_labeler,/turf/simulated/floor/plasteel,/area/crew_quarters/heads) +"bEb" = (/obj/structure/table,/obj/machinery/status_display{density = 0; layer = 4; pixel_x = 0; pixel_y = 32},/turf/simulated/floor/plasteel,/area/engine/break_room) "bEc" = (/obj/machinery/disposal,/obj/structure/disposalpipe/trunk,/obj/machinery/recharger/wallcharger{pixel_x = 0; pixel_y = 30},/turf/simulated/floor/plasteel,/area/crew_quarters/heads) "bEd" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply,/obj/machinery/power/apc{dir = 1; name = "Head of Personnel APC"; pixel_y = 24},/obj/structure/cable{icon_state = "0-4"; d2 = 4},/obj/machinery/photocopier,/turf/simulated/floor/plasteel,/area/crew_quarters/heads) "bEe" = (/obj/machinery/light{dir = 4; icon_state = "tube1"},/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/obj/structure/disposalpipe/segment,/obj/structure/cable{d1 = 2; d2 = 8; icon_state = "2-8"; tag = ""},/turf/simulated/floor/plasteel,/area/crew_quarters/heads) @@ -5880,7 +5880,6 @@ "cjd" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/turf/simulated/floor/plasteel{tag = "icon-whiteblue (SOUTHWEST)"; icon_state = "whiteblue"; dir = 10},/area/medical/medbay2) "cje" = (/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/obj/structure/disposalpipe/segment,/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/turf/simulated/floor/plasteel{dir = 2; icon_state = "whiteblue"; tag = "icon-whitehall (WEST)"},/area/medical/medbay2) "cjf" = (/obj/structure/stool/bed/chair/comfy/teal{dir = 4},/obj/machinery/power/apc{dir = 2; name = "Medbay APC"; pixel_y = -24},/obj/structure/cable,/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/turf/simulated/floor/plasteel{tag = "icon-whiteblue"; icon_state = "whiteblue"},/area/medical/medbay2) -"cjg" = (/obj/structure/table,/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/obj/machinery/media/receiver/boombox,/turf/simulated/floor/plasteel{tag = "icon-whiteblue"; icon_state = "whiteblue"},/area/medical/medbay2) "cjh" = (/obj/structure/stool/bed/chair/comfy/teal{dir = 8},/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/turf/simulated/floor/plasteel{dir = 2; icon_state = "whiteblue"; tag = "icon-whitehall (WEST)"},/area/medical/medbay2) "cji" = (/obj/structure/cable{d1 = 1; d2 = 2; icon_state = "1-2"; tag = ""},/obj/machinery/atmospherics/pipe/simple/hidden/supply{dir = 4},/obj/machinery/hologram/holopad,/obj/machinery/vending/cola,/turf/simulated/floor/plasteel{dir = 2; icon_state = "whiteblue"; tag = "icon-whitehall (WEST)"},/area/medical/medbay2) "cjj" = (/obj/structure/table,/obj/machinery/atmospherics/pipe/manifold/hidden/supply{dir = 4; initialize_directions = 11; level = 1},/turf/simulated/floor/plasteel{dir = 2; icon_state = "whiteblue"; tag = "icon-whitehall (WEST)"},/area/medical/medbay2) @@ -6435,7 +6434,6 @@ "ctQ" = (/obj/machinery/atmospherics/pipe/simple/hidden/supply,/obj/machinery/recharge_station,/turf/simulated/floor/plasteel,/area/engine/break_room) "ctS" = (/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers,/obj/machinery/newscaster{pixel_y = 32},/obj/machinery/computer/station_alert,/turf/simulated/floor/plasteel,/area/engine/break_room) "ctT" = (/obj/machinery/computer/arcade,/turf/simulated/floor/plasteel,/area/engine/break_room) -"ctU" = (/obj/structure/table,/obj/machinery/media/receiver/boombox,/obj/machinery/status_display{density = 0; layer = 4; pixel_x = 0; pixel_y = 32},/turf/simulated/floor/plasteel,/area/engine/break_room) "ctV" = (/obj/machinery/light{dir = 4; icon_state = "tube1"},/obj/machinery/atmospherics/pipe/simple/hidden/supply{level = 1},/obj/structure/table,/turf/simulated/floor/plasteel,/area/engine/break_room) "ctW" = (/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers{level = 1},/turf/simulated/wall/r_wall,/area/atmos/control) "ctX" = (/obj/machinery/computer/general_air_control{frequency = 1441; name = "Tank Monitor"; sensors = list("n2_sensor" = "Nitrogen", "o2_sensor" = "Oxygen", "co2_sensor" = "Carbon Dioxide", "tox_sensor" = "Toxins", "n2o_sensor" = "Nitrous Oxide", "waste_sensor" = "Gas Mix Tank")},/obj/machinery/alarm{frequency = 1439; pixel_y = 23},/turf/simulated/floor/plasteel,/area/atmos/control) @@ -9087,7 +9085,7 @@ bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbi bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaDEaBtaCyaBtaDEaCwaDFaCwaDEaxVaAlaDHaDIaAlaAlaxVazHazHazHazHazHazHazHaCBaCLaxVaxVaxVaxVaxVaDJaxVaxVazHaDKaxVaDLaCLaxVaxVaxVbikbikbikbikbikaDMaDMaDMaDMaDMaDMaDMaDMawmaCMaDNaDOaDPaDQaDRaDSaDTaDUaDVaDWaABaDXaBPaDYaDZaEaaEbaEcaEdaAKaxlaxqaxrazIatsaEeaEfaCZaDaaDbaEgaEhaEhaEhaEhaEhaEhaEhaEhaEhaEhaEiaEjaEkaElaEmaEnaEoaEpaCgaChaChaChaChaChaCgaCfaCfaCfbikbikazvayHaEqaEraBhayJaDAaCoaDxayHaEtayIaEuaAkayHayHayHayHaEvayHayHaDAaEwayHaDzayHaDCaExaEyaEzaDCaEAaEBaECaDCaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaDEaDGcUCaEDaDEaEFddzaEGaEJaEKazHaELaEMaENaDKaEOazHaxVaxVaxVaxVaxVaxVaxVaCLaxVaEPaEQaERaxVaESaETaEUazHaEOaxVaENaEVaBEaBFaEWbikbikbikbikbikaEXaEYaEZaFaaFbaFcaFdaDMdoXaCMaFeaFfaFgaCMaFhazOaFiaFjaFkaFlaABaFnaBPaFoaFpaFqaFraFsaFtaFuaFvaydaFwaFxaFyaFzaFAaCZaDaaDbaFBaEhaHTaHTaHTaEhaEhaFDaFEaFEaFFaEiaFGaFHaFIaFIaFJaFKaFLaFMaChaChaChaChaChaFNaFOaFPaFQbikbikazvayHayHaFRayHayJaFSayHaFTaFUaFUaFUaFUaFVaFUaFWayHayHayHayHayHayHayHayHayJayIaDCaFXaFYaFYaDCaFZaGaaGbaDCbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaDEaGcaGdaGeaDEaGcaGdaGeaEJaBzazHaGfazHazHazHazHazHaxVaGgaGhaGiaGjaGkaxVaCLaxVaEQaGlaEPaGmaGnaGoaxVaGpaxVaxVaxVaxVaGpaCLaEWbikazyazyazyazyaGqaEYaGraGsaGtaGuaGvaGwaDMaCMaBHaGxaGxaGxaGyaGzaGAaGzaGzaGzaGBaGCaGDaGEaGFaGFaGFaGFaGGaGHaGIaxqaGJazIatsaGKaGLaCZaDaaDbaEgaHTaGMaGMaGNaHTaEhaGOaGPaGPaGQaGRaFGaGSaGTaGUaGVaEhaGWaFQaChaChaChaChaChaFQaGXaGYaFQaabaabayGayHayHayJayJayJazxazxayGayGayGayJayJayJayGaHaaHbayGayJayJayGayJayJayGayGaHcaHdaHeaHfaHgaHhaHiaFXaHjaDCbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbjNaInaCuaDEaEIaHlaCuaDEaEIaHlaCuaxVaCBaxVaxVaxVaxVaxVazHaxVazHaHnaHoazHazHaxVaCLaxVaHpaabaHpaxVaBvaGoaxVaHqaHraxVaENaBzaxVaAwaDMaDMaHsaHsaHsaHsaHsaHsaHsaHsaHsaGvaGvaGwaHtaHuaHvaHwaHxaHyaHzaHAaHBaHBaHBaHBaHCaHDaHEaHFaHGaHBaHBaHHaHHaHIaHJaHKaHLaHMaHNaGKaHOaHPaHPaDbaEgaHTaHQaHRaHSaHTaEhaGOaGPaGPaGQaKhaFGaGSaGUaGUaGVaEhaGWaFQaChaChaChaChaChaFQaHUaGYaFQbikbikayGaHVayHayHaHWayJaHXazwaHYaHZayKayGaFSayKayGaIaayHayGaIbayHayGaIcaIdaIeaFUaIfaFUaIgaIhaIiaIjaIkaIlaImaDCaDDaDDaacaacaDDaDDaDDaDDaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbjNaInaCuaDEaEIaHlaCuaDEaEIaHlaCuaxVaCBaxVaxVaxVaxVaxVazHaxVazHaHnaHoazHazHaxVaCLaxVaHpaabaHpaxVaBvaGoaxVaHqaHraxVaENaBzaxVaAwaDMaDMaHsaHsaHsaHsaHsaHsaHsaHsaHsaGvaGvaGwaHtaHuaHvaHwaHxaHyaHzaHAaHBaHBaHBaHBaHCaHDaHEaHFaHGaHBaHBaHHaHHaHIaHJaHKaHLaHMaHNaGKaHOaHPaHPaDbaEgaHTaGMaHRaHSaHTaEhaGOaGPaGPaGQaKhaFGaGSaGUaGUaGVaEhaGWaFQaChaChaChaChaChaFQaHUaGYaFQbikbikayGaHVayHayHaHWayJaHXazwaHYaHZayKayGaFSayKayGaIaayHayGaIbayHayGaIcaIdaIeaFUaIfaFUaIgaIhaIiaIjaIkaIlaImaDCaDDaDDaacaacaDDaDDaDDaDDaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdmJdmKaGddmKaIoaIoaIoaIqaIoaIoaIoaIsaItaIuaIuaIuaIuaIvaxVazHaxVaIwaIxaIyazHaIzaGpaCLaxVaxVaxVaxVaxVaxVaGpaxVazHaIyaCBazHazHaGvaIAaIBaICaIDaIDaIDaIDaIEaIDaIDaIFaIGaICaIHaIIaIIaIIaIIaIIaIIaIIaIJaIKaIKaIKaIKaILaIMaIKaINaIKaIOaILaIKaIKaIKaIKaIPaIQaIRaISaITaFzaIUaIVaHPaIWaEgaHTaIXaIYbvsaHTaEhaIZaJaaJaaJbaEiaFGaJcaJdaJdaJeaEhaJfaJgaChaChaChaChaChaJhaJiaJjaFQbikbikayGayHayHayHayHayHayHaIeaFUaFUaFUaFUaFUaFUaFUaCmayHayHayHayHaDzayHayHaDxayHaJkaJlaJmaJnaJoaFYaFYaFYaJpaDCaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaInaInaKzaJqaJraJsaJtaJuaJvaJwaJxaJvaJyaJzaJvaJvaJAaxVazHaxVaJBazHazHaJCaJDaxVaEVaBFazHazHazHazHazHazHaGpaJEazHaxVaEKaEKaDMaJFaDMaJGaJHaJIaJIaJIaJJaJIaJIaJIaJKaJGaJLaJMaJMaJMaJMaJMaJMaJMaGvaIKaJNaJOaJPaJQaJRawxaJTaJUaJVaJWaJXaJOaJYaIKaJZaxqaKaazIaKbaGKaKcaKdaKdaKeaKfaKgaSsaKiaKiaKjaKkaKlaKjaKkaKkaKmaKnaKoaEhaEhaKpaEhaKqaKraChaChaChaChaChaKraCfaCfaCfayGayGayGayKayJayJaAkayGayGaDxayJayGaKsayJayGaAkayGaDxaHVayJayGaAkayGayHaHVaDxayHaKtaDCaKuaIhaKvaKwaKxaIhaKyaDCaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabaabaDEaKzaKAaKzaKBaJraJraKCaKzaKAaKzaKDaKEaKFaKGaxVazHaGpaGpaxVaxVaxVaKHaKHaKHazNaKHaKHaKHaKHaKHaGvaDMaDMaDMaDMaDMaDMaDMaJFaKIaJGbikaabbikaabbikaabbikaabbikaJGaJLaJMaKJaKKaKLaKMaKNaJMaGvaIKaKOaKOaKPaKQaKRaKSaKTaKSaKUaKVaKWaKOaKOaIKaJZaxqaKXazIaKbaGKaGLaCZaDaaDbaEgaKYaKZaLaaLbaLcaLcaLdaLeaLcaLeaLfaLgaLhaLiaLjaLkaLlaCfaKraChaChaChaChaChaKrayGaCtayHaLmaLnayJayGayJaCtayHayGaCtaDxayGaLoayHayGaLpayHayJaLqaLrayGaLsayHayJaAkaAkaDxaAkaLtaDCaLuaIhaLvaLwaLvaIhaLxaDCaabaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik @@ -9109,7 +9107,7 @@ bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbi bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikblsbltbltblubltbltbltblvbltbltbmPaabaInaLAaJtbilbgNbimbinbiobipbiqbirbisbitbgNbiubivbiwbixbcobiybecbecdhUbgTbizbiAdhUbecbecbiBbiCbcobejbekbctbctbiDbctbcvbiEbiFbiGbcvbiHbhfbiIbhfbiJbesbeubiKaXOaXPaXPbiLbiMbiNbcEbiObfRbiPbhobhobiQbiRbiSakybiSbiUbiVbiWbiXbiYbiZbjabcEbjbbiMbjcbjdbjebeGaYiaYibjfbmwbjgbmwbmwbmwbjhbjibmwbhDbjjbglbmwbeLbeMbeMbjkbBDbjmbjnbjobjpbhLbjqaVbdlJdlIdlKbeYbeYbeXbhPbjsaVbbjtbjuaRDbjvaRDaRDbjwbbQbjxbjyaTvbjzbjAaWSbjBbdvbjCbjDbjEbjFbjFbjGbjHbjIbdvbjJbjKbatbjLbatbavbatbatddAbaAbaAbaAbaAbgKbqUddBbmKbutbwmbtmbmKbutbwmbtmbmKddCbqUbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikblsbohbptbojbpwbpwbqWbpwbpwbpwbqWblubjNaInaKzaKBbfqbgNbimbjObjPbimbjQbjRbjSbjTbgNbjUaFmbjWbcsbcobjXbjYbjZbkabkbbkcbkdbkebkebkebkfbkgbcobejbivbkhbkibkjbkkbcvbcvbcvbcvbcvbklbkmbknbkobkpbesbeubiKaXJaXJaXJbkqbkrbksbktbkubkvbhobkwbkxbkybkzbkAbkBbkCbkDbkEbkFbkGbkubkHbkIbkJbkKbkMbkLbkObkObkPaYibkQaMebmwbkRbkSbglbmwbkTbkUbmwbkVbkWbglbmwbnMbeMbeMbeMbeNbeMbkXbeMbjpbhLbkYaVbdlObhNbeXbeYbeYbeXbhPblaaVbblbblcbldbleblfblgblhblibljbljbljbljbljbljblkbllblmbfgbfgbfgbfgbfgbfgblnbloblpbgHbatbatbatbavbatbatddDbgKblrblrblrbaAbwmbtmbmKbutbBQbtmbmKbutbBQbtmbmKbutbwmbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbqYbqXbqXbqXbqXbqXbqXbqXbqXbqXbqXbqZbraaGdbraaJrbfqbgNblwbimblxblxblxblybimblzbgNblAblBbjWblCblCblCblCblDblCblEbecblFblGblHblHblIblJbcoblKblLblMblNblOblPblQblRblSblRblTblTblTblTblTboFblUbeublVblWblXblYblZbmabmbbmcbmdbkBbmebmfbmgbmgbmgbmgbmhbmgbmibmjbmkbmlbmebmmbmnbcEbmobmpbmqbkNbmsbmtaYiaYibjfbmwbnCbmwbmwbmwaRebmwbmwbmvbmvbmwbmwbmxbeMbeMbmybmzbeMbeMbeMbmAbmBbmCaVbbgxbhNbeXbeXbeXbeXbhPbmDaVbbmEbmFbmFbmGbmFbmHbbPbbPbbPbbPbmIbbPbbPbbPbmJblobfgbfgbfgbfgbfgbfgbfgblnbloblpbgHbatbfjbfjbfkbfjbatddEbaAbmLbmMbmNbaAbBQbtmbmKbutbBQbtmbmKbutbBQbtmbmKbutbBQbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbrcbrbbrebrdbrfbrfbrgbrfbrfbrfbrgbluaInaInaKzbrVbcjbmQbimbmRblxblxblxblybmRbimbgNbmSbmTbjWblCbmUbmVbmWbmXblCbmYbmZbnabcobnbbncbndbnebcobejbnfbngbngbnhbngbngbngbngbnibnjbnjbnjbnkbnjbnlbuWbnnbnobnpbnrbnrbnrbnrbnrbnqbnqbnsbnqbmgbmgbntbnubnvbnwbnxbnybntbnzbmgbnAbnBbnAbnAbnAbnAbnAbnAbnAbmtaYiaYiaMebnEbnDcakbnGbmwbnFbmwbnJdmhdmgbmwbpjaUTbnKbnLaUTaUTczObnNddybnNaUTaUTaVbbnObnPbnQbnQbnQbnQbnPbnRaVbbnSbmFbmFbmGbnTaRDbnUbnVbnWbnXbnYbnZboabobbocaQbbodaRSboebfgbfgboeaRSbofaQbbogbgHbatbgIbgIbgJbgIbatddDbgKblrblrblrbaAbGVbtmbmKbutbGVbtmbmKbutbGVbtmbmKbutbGVbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbrcbrbbrebrdbrfbrfbrgbrfbrfbrfbrgbluaInaInaKzbrVbcjbmQbimbmRblxblxblxblybmRbimbgNbmSbmTbjWblCbmUbmVbmWbmXblCbmYbmZbnabcobnbbncbndbnebcobejbnfbngbngbnhbngbngbngbngbnibnjbnjbnjbnkbnjbnlbuWbnnbnobnpbnrbnrbnrbnrbnrbnqbnqbnsbnqbmgbmgbntbnubnvbnwbnxbnybntbnzbmgbnAbnBbnAbnAbnAbnAbnAbnAbnAbmtaYiaYiaMebnEbmwcakbnGbmwbnFbmwbnJdmhdmgbmwbpjaUTbnKbnLaUTaUTczObnNddybnNaUTaUTaVbbnObnPbnQbnQbnQbnQbnPbnRaVbbnSbmFbmFbmGbnTaRDbnUbnVbnWbnXbnYbnZboabobbocaQbbodaRSboebfgbfgboeaRSbofaQbbogbgHbatbgIbgIbgJbgIbatddDbgKblrblrblrbaAbGVbtmbmKbutbGVbtmbmKbutbGVbtmbmKbutbGVbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbrcbltbltblubltbltbltblvbltbltbtnaabaInboibdFbokbgNbjObjObjObimbolbombonboobgNbopboqbjWblCborblCbosbotblCboubovbowbcobnbbncbndbiCbcobejbnfbngboxboybozboAboBbngboCboDboEbSVbyzbyzbyzbuVboGboHboIbnrboJboKboLboMboNboOboPboQbmgboRbnvbnvbpWboTbpWbnvbnvboVbmgboWboXboYboZbpabpbbpcbpdbnAbpebpfbpfbpgaMeaMeaMeaMebphbjfbphbpiaMeaURaMeaMeaUTaUTaUTaUTbplbpkbpkbpkbpkbpmbpJaVbbakbpnbakbpobpobakbpnbakaVbbnSbmFbmFbppbnTaRDaRDaRDaRDaRDbjvaRDaRDaRDaRDaQbbpqaQcaQcaQcaQcaQcaQcaQbaQbbprbpsbatbatbatbavbatbatddAbaAbaAbaAbaAbgKbqUddFbmKbmKbmKbmKbmKbmKbmKbmKbmKddGbqUbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaLyaCuaKzaKzaKzaDEaDEaDEaDEaDEaDEbtobpubgNbgNbgNbgNbgNbgNbpvbgNbgNbgNbejbejbpxblCbpybpzbosbpAblCdlEbpCbpBbcobnbbncbndbecbcobejbnfbngbpDbpEbpFboAbpFbngboCbpGbpHbAibmubpKbpLbnmbpMbpNboIbpObpPbpQbpRbpSbpSbpRbpTbpUbmgbpVbnvbnvbpWboUbpWbnvbnvbpYbmkbpZbqabqbbqcbqdbqebqbbqfbnAbqgbqhbqibqjbqkbqlbqmbqnbqnbqnbqnbqnbqnbqobqpbqqbqnbqnbqsbqnbqnbqnbqnbqnbqnbqnbqndcZbqubqvbqvbqvbqvbqvbqvbqwbqlbqxbqybqyaHkbqAbqBbqAbqCbqAbqDbqEbqFbqAbqGbqHbqIbqJbqKbqKbqKbqKbqKbqKbqKbqLbqMbqNbqNbqNbqNbqObqNbqPbKnddHbPfddIbiibPfdlbbmKbmKbmKbmKddKbmKddKbmKbmKbmKddGbdBbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbtpbtqbtqbtqbtqbwpbwpbtqbtqbxZbikaabaInaLAaJtbzPbzObzRbzQbzQbzQbzQbzSbzUbzTbcsbdVbBFbrhblCblCblCbribotblCbcobcobcobcobnbbrjbrkbrlbcobrmbrnbngbrobrpboAbpFbrqbngboCbrrbpHbAibpIbrsbrtbnmbrubpNboIbpObrvbrwbrxbrybrzbrAbpTbrBbmgbrCbpWbnvbrDbrEbrDbnvbpWbrFbnzbrGbqbbqbbqcbrHbqebqbbrIbnAbrJbqibqibqjbqkbqlbqnbqnbqnbqnbqnbqnbqnbrKbqnbqnbqnbqnbqnbqnbrLbrMbrMbrMbrMbrMbrMbrMbrMbrMbrMbrMbrMbrMbrMbrNbrObrPbqKbqKbrQbmFbmFbmFbmFbmFbmGbmFbmFbmFbmFbmFbmFbmFbmFbmFbmFbmFbmFbrRbmFbrSbrTbatbatbatbatbatbatbatddLbaAbgKbaAbaAbaAbqUddMddOddNbdBddPbdBddPbdBddQddMddObqUbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik @@ -9118,9 +9116,9 @@ bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbi bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbBGbDCdjodjpdjpdjidjpdjpdjpbtqdjqaInaInaInaKBbuvbrXbuwbuxbuxbuxbuybrZbejbuzbuAbuBbuCbuDblCbmUbuEbosbuFborbuGbuHbuIbuJbuKbuLbuLbuMbuLbuNbuObngbuPbuQbuRbuSbuTbuUdngbyzdnidnhbpIbuXbuYbuZbtMbpNbvabnrbvbbvcbvdbvebvfbvgbvhbnqbnqbvibvjbvkbvlbvmbvlbvnbvjbikbvobnAbvpbvqbvrccIbtXbqbbvtbnAbxebvwbxfbucbzcbvybvzbvAbvBbvCbvDbvEbvFbvGbvHbvHbvGbvIbvJbvKbuhbvLbvMbvNbvObuhbvPbvQbvRbvSbvTbvUbvUbvVbuiafNbvXbvYbvZbvYbwabwabupbwbbwcbwdbupbwebwfbwebupbwgbtfburbusbwhbwibwhbusbwjbwkbusdeicngbxXbwobikbikbikbikbikbikbikbikbikbikbqUddXddYddYdejbqUbikbqUdekdekdekdekbqUbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdjrbtqbtqbtqbtqbtqbtqbtqbtqdjqbikbikaInbwqbdFbwrbrXbwsbrXbwtbuxbwubwvbrZbwwbwxbwybwzbuDblCblCblCblCblCblCbwAbwBbwCbwDbwEbngbngbngbngbngbngbngbwFbngbngbngbwGbngbwHbwIbwJbpIbpIbpIbwKbtLbwLbpNbwMbnrbIDbvcbnrbnrbnrbnqbwObnqbwPbwQbwRbwSbwTbwUbwVbwWbwXbwYbwZbnAbxabqbbxbbxcbtXbxdbqbbnAbzbbxgbANbucbxhbxibxjbxkbxlbxmbxnbvHbvHbvHbvHbvHbvHbvHbvHbxobxpbxqbxrbxsbxtbuhbxubxvbxwbxxbxAbxzbxvbxAbuibDdbvXbxCbxDbxEbxFbxFbxGbxHbxIbxJbxKbxLbxMbxNbupbxObxPbxQbusbxRbxSbxTbLSbxUbxVbusbxWbxXbxYbwobikbikbikbikbikbikbikbikbikbikbDybtldemdemdemdenbikdeodepdepdepbtlbDzbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaLyaCuaKzaKzaInaInaInaInaInaInaInaKBaJrbyabrXbybbycbydbyebyebyfbygbyhbyibyibyjbykbtzbtzbtzbtzbtzbtzbylbymbymbynbyobngbypbyqbyrbysbytbyubyvbywbngbyxbyybyzbuVbtLbwJbpIbpIbyAbnmbnmbyBbyCbyDbpXbyFbyGbyHbyIbyJbyKbyLbyMbyNbyObwXbyPbyQbyPbyQbyRbwXbwYbySbyTbyUbyVbyWbyXbyYbyZbzabyTbAObvwbvwbucbzebzdcSCbzfbzgbucbxnbvHbvHbvHbvHbvHbvHbvHbzhbzibzjbzkbzlbxqbzmbuhbznbzobzpbxxbxAbxzbzqbzrbuibIbbztbzubzvbzvbzwbzxbzybzzbzAbzAbzAbzBbzAbzCbzDbzEbzFbzGbzHbzIbzJbzKbzKbzKbzLbusbzMbxXbzNbwobikbikbikbikbikbikbikbikbikbikbikbDyderderderbDzbikbDyderderderbDzbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaIndjtdjsdjuaIoaIoaIobdFaJraJrbrXbzVbrXbzWbzXbzYbzZbrXbcsbAabAabAbbAcbAbbAbbAbbAcbAbbcsbcsbngbngbngbAdbngbAebAebAebAebAebAebyvbAfbAgbAhbAibAjbAkbAlbAmbAnbAobApbAqbArbAsbAtbAubAvbAwbAwbAxbAybAzbAAbABbACbADbAEbvjbAFbwVbAGbwTbAHbvjbikbAIbAJbAKbALbAJbAJbAJbAJbAMbnAbCBbvwbCCbAPbAQbARbASbATbAUbucbAVbAWbAXbAYbAZbBabBbbBcbvHbBdbuhbBebzlbBfbBgbuhbBhbBibxwbxxbxAbxzbxvbxAbuibDdbvXbBjbBkbBlbBmbBnbBobBpbBqbBrbBsbBtbBubKpbupbBwbBxbBybusbBzbBAbBBbxUbBCbKwbusbzMbxXbBEbwobikbikbikbikaabaabaabaabaabaabaabaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaIndjtdjsdjuaIoaIoaIobdFaJraJrbrXbzVbrXbzWbzXbzYbzZbrXbcsbAabAabAbbAcbAbbAbbAbbAcbAbbcsbcsbngbngbngbAdbngbAebAebAebAebAebAebyvbAfbAgbAhbAibAjbAkbAlbAmbAnbAobApbAqbArbAsbAtbAubAvbAwbAwbAxbAybAzbAAbABbACbADbAEbvjbAFbwVbAGbwTbAHbvjbikbAIbAJbAKbALbAJbAJbAJbAJbAMbnAbCBbvwbCCbAPbAQbARbASbATbAUbucbAVbAWbAXbAYbAZbBabBbaHQbvHbBdbuhbBebzlbBfbBgbuhbBhbBibxwbxxbxAbxzbxvbxAbuibDdbvXbBjbBkbBlbBmbBnbBobBpbBqbBrbBsbBtbBubKpbupbBwbBxbBybusbBzbBAbBBbxUbBCbKwbusbzMbxXbBEbwobikbikbikbikaabaabaabaabaabaabaabaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaIndjwdjvdjuaJqaJqbBIbBJaJqbBKbrXbBLbycbBMbBNbBObBPbrXbikaabaabdfMdesdesdesdesdesdfNbikbikbBRbBSbBTbBUbBVbAebAebAebAebAebAebBWbBXbBYbBZbCabCbbCcbCdbnmbnmbCebCfbnmbnmbCgbChbCibPcbCkbCpbCpbKzbCpbCnbCobCpbCqbAEbvjbCrbvlbvlbvlbCsbvjbikbAIbAJbCtbCubCvbCwbCxbCybCzbCAbEsbvwbEtbucbvxbCDbCEbCFbCGbCHbCIbCJbCKbCLbCMbCNbCObCPbCQbCRbCSbCTbzlbCUbCVbuhbCWbCXbCYbCZbDabDbbDcbvVbuibIcbDebDfbDgbDgbDhbDibDjbDkbDlbDmbDnbDobDpbDqbupbDrbBxbDsbusbDtbDubDvbxUbxUbDwbusbxWbxXbDxbwobikbikbikbikaabbDAbFfbDBbFfbDBbFfbFgaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaIndjudjubDEaInaInaLyaCubDFbDGbrXbDHbycbycbycbrXbrXbrXbikbikbikdewdevdevdexdevdevdewbikbikbBRbDIbAebDJbDKbDKbDKbDKbDKbDLbDMbDKbDNbDObDPbDQbDRbDSbDTbnmbDUbpIbDVbDWbtLbDXbDYbDZbPcbPcbCpbEabEbbEcbEdbEebCpbvibAEbvjbEfbEgbEhbqtbEjbvjbikbEkbAJbElbEmbEnbEobEpbEobEqbErbFWbvwbHBbucbEubEubEvbEwbExbEybEzbEAbEBbECbEDbEDbEEbEFbEGbEHbuhbCTbEIbujbuhbuhbuibEKbELbEMbuibuibuibuibENbIdbvXbEPbBkbBlbEQbDgbDjbERbESbESbETbxJbEUbEVbEWbEXbxPbEYbusbEZbFabxUbFbbFcbFdbusbzMbFebwobwobikbikbikbikaabbFhbFjbFibGSbFkbGTbFhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaIndjudjubDEaInaInaLyaCubDFbDGbrXbDHbycbycbycbrXbrXbrXbikbikbikdewdevdevdexdevdevdewbikbikbBRbDIbAebDJbDKbDKbDKbDKbDKbDLbDMbDKbDNbDObDPbDQbDRbDSbDTbnmbDUbpIbDVbDWbtLbDXbDYbDZbPcbPcbCpbEabnDbEcbEdbEebCpbvibAEbvjbEfbEgbEhbqtbEjbvjbikbEkbAJbElbEmbEnbEobEpbEobEqbErbFWbvwbHBbucbEubEubEvbEwbExbEybEzbEAbEBbECbEDbEDbEEbEFbEGbEHbuhbCTbEIbujbuhbuhbuibEKbELbEMbuibuibuibuibENbIdbvXbEPbBkbBlbEQbDgbDjbERbESbESbETbxJbEUbEVbEWbEXbxPbEYbusbEZbFabxUbFbbFcbFdbusbzMbFebwobwobikbikbikbikaabbFhbFjbFibGSbFkbGTbFhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdjxdjydjydjydjydjAdjzdjydjydjydjydjBbikbikbikbikbikbikbikbikbikbikbikbikbikdewdevdevdevdevdevdewbFnbBRbBRbFobFpbFqbFrbFrbFrbFpbAebyvbAfbAebAebAgbFsbFtbFubFvbFwbFxbFybpIbpIbFzbtLbDXbDYbFAbFBbFCbFDbFEbFFbFGbFHbFIbCpbFJbFKbwRbFLbFMbFNbFObFPbwXbwYbFQbAJbFRbFSbFTbEobFUbEobFVbErbJebvwbKObucbFYbFZbGabGbbGcbGdbGebGfbGgbGgbGhbGibGgbGgbGjbGkbGlbGmbGnbGobGpbGqbGrbGsbGtbGubGvcbAbKhbIebKjbKibvXbGBbGCbGDbGEbGFbxGbGGbESbESbGHbGIbEUbGJbupbGKbGKbGLbusbGMbGNbGObGPbxUbGQbusbzMbGRbwobikbikbikbikbikaabbGUbIybFibFkbFibKkbDBaabbikbikbikbikbikaahbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdjxdjCdjEdjDdjGdjFdjIdjHdjFdjJdjLdjKdjydjydjBbikbikbikbikbikbikbikbikbikbikbikdewdevdevdevdevdevbGWbmrbNkbmrbGXbGYbGZbGYbGYbGYbGYbHabyvbAfbHbbngbngbHcbpIbAibFvbHdbtLbHebHfbHfbHgbHhbHibHjbHkbHlbHmbHnbHobHpbHqbHrbHsbCpbCqbAEbvjbEibHubHvbHwbHxbvjbikbEkbHybHzbHybHybHybHybHybHAbHybKPbvwbKObucbHCbHDbHDbHEbHFbEybHGbHHbHIbHJbHKbHLbHMbHIbHNbHObHPbHQbHRbHSbHTbHTbHUbHVbHWbHXbHYbLibLCbLBbNdbNcbNebIfbIfbIgbIhbIibxGbIjbxJbxJbIkbIlbEUbImbInbIobIpbIqbIrbIsbItbIubxybIubusbusbIwbEXbGxbLDbLDbLDbLDbLDbGxbFhbFkbFibFkbFkbGTbFhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdjxdjydjHdjHdjHdjMdjFdjNdjNdjFdjOdjHdjHdjQdjPdjydjBbikbikbikbikbikbikbikbikbikbikdewdevdevdevdevdevbLFbKmbIAbKmbIBbAebFqbFrbFrbFrbAebAebyvbAfbICbKobngbIEbpIbAibFvbIFbtLbIGbpIbrsbpIbIHbDXbvvbIIbHlbHmbIJbIKbILbIMbINbIObIPbIQbIRbISbISbITbIUbIVbvjbvjbikbEkbHybIWbIXbIYbIZbJabJbbJcbJdbMhbvwbKObCHbJfbJgbJhbJibJjbEybJkbJlbJmbJnbJobJpbJqbJrbJsbJtbJubJvbJwbJxbJybJzbJAbJBbJCbJDbJEcbAchEbIecnfcjubvYbJIbJJbJKbJLbJLbxGbJMbJNbJObxGbJPbEUbJQbxGbJRbJSbJTbJUbJVbJWbJXbJYbJZbKabKbbKcbKdbKebKfbKfbIxbJFbJHbGzbKlbFfbDBbNhbDBbFfbLEaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik @@ -9140,7 +9138,7 @@ bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbi bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaacbikaacbUTcfQcqsbUTcfQcqsbUTbikbikaabaabaabaabaabaabaabaabaabbUTcqscAjcwNbUTcEvcEwbUTcGJbUTbUTcekbUTbUTcelbUVcemcenceocepceqcercescetceucevcewccKcexceycezceAbNKbNKbNKbNKbPRbPgbPTceFceGceFceHceIceJceKchvceMceNceOcePceQceRceSceTceUceVceWceXceYceZcfacfbcfccfgbMmbMmcfichOcgHceYchVcfjcfjcfkcfjcflcfmcfncfocdCcfpcfqcfrcfscfrcftcfucfvcbPbZkcfwbZkbZkcfxcfybZnbBxbEXbUAcfzbUAbUAcfAcfBcfCcfDcfEcebcfFcfGcfHcdUcfHcdUcfIcdUcdUbUAcfJcfKcfLcfMaabaabaabaabaabaabaabaabbikbikbikbikbikbWhbXZbXZbXZbXZbXZbXZcfNbXZcfObXZbXZbXZbXZbXZbWhbWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabdnkaacaabaDDaDDaacbUTbUTcekbUTbUTcekbUTbUTbUTcjMcjMcjMbUTbUTbUTbUTbUTbUTbUTcqschodnmbUTdnnbUTbUTdnobUTcfPbVccqsbUTcfSbUVcfTcfUcfVbZHcfWcfXcfYbYpcfZcgacgbcfXcgccgdcgecodcodcggcghcgicgjcgkceBcgmbGycgnbVicgobGybGycgpcgqcgrcgscgtceQcgucgvcgwcgxcgycgzbMVcgBcgCcgzcgzcgDcgEcgEcgEcgEcgEcgGcgFciOcgJcgJcgKcgLcgMcgNcgOcgPcdCdomcgRcgScgTcgScgUcgVcfrcgWcgXcgYbBxcgZbBxcfybZnbBxbxOchachbchcbUAbUAbUAbUAbUAchdcdUchechfcfIcdUchgcdUbZpcdUchhbUAchichjchkbUAaabbikbikbikbikaabbikbikbikbikbikbikbikbWhchlchlchlchlchlchlchmbXZchnchlcfObXZbXZbXZbXZbWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabaacaaccjMcqscqscqscqsdoadnxcqscqscuRdnpdnpdowdnpdnpdnpdnpdnpdnpdnpdnpdnpdnpdnpdnpcsubUTchocfQchpbUTcfSchrchrchrchrchrchrbUZbUZbUZbUZbUZbUZbUZchschtchucWpchwchxchychychzchAceBbGybGychBchCchDbGybGybGycqOchFchGceOchHchIchJcgEchKchLchMbSqchLchNcfdcfdcfdcjncjlcjlcjlcjlckacgIbSqclPchPchQchRchSchTchUclQcdCchWchXcfrchYcfrchZciacibciccidciecifbBxcigcfybZncihbxObFeciicijcikcyJbxXbxXbUAcilcimcinciocipciqcirciscitciucivbUAciwciycixcizbikbikbikbikaahbikbikbikbikbikbikbikbikciAbXXbXXbXXbXXbXXbXXbXXciBciCbXZbXZbXZbXZciDbYabWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabaacaabaabaaccjMdnrdnqdnscqscqsdoxcqscqsdnobUTbUTbUTbUTbUTbUTcekbUTbUTbUTbUTdntdntdntdntdntdntdntdntdntbUTcfScejbikbikbikbikciEbaTciGciHciIciJciKciLciMciNcmPciPciQciRciSciSciTbPSceDceCceCceCceCceEceCbGybGybPlciYciZcjacjbcjccjdchScjecjfcjgcjhcjicjjcjkcjlcfdcnicxVcxVcxVcxVckNclSckUcnjcjqcjrcjscjtcbAcwncjvcdCcjwcjxcjycjzcjAcfrcjBcdCcdCbxOcgfbxObxObxOcjDcjEcjFbxObxXciicjGcjHcyJcyJcyJbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbikbikbikbikbikaabbikbikbikbikbikbikbikbWhccvccvccvccvccvccvcjIbXZccuccvcjJbXZbXZbXZbXZbWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabaacaabaabaaccjMdnrdnqdnscqscqsdoxcqscqsdnobUTbUTbUTbUTbUTbUTcekbUTbUTbUTbUTdntdntdntdntdntdntdntdntdntbUTcfScejbikbikbikbikciEbaTciGciHciIciJciKciLciMciNcmPciPciQciRciSciSciTbPSceDceCceCceCceCceEceCbGybGybPlciYciZcjacjbcjccjdchScjecjfbBccjhcjicjjcjkcjlcfdcnicxVcxVcxVcxVckNclSckUcnjcjqcjrcjscjtcbAcwncjvcdCcjwcjxcjycjzcjAcfrcjBcdCcdCbxOcgfbxObxObxOcjDcjEcjFbxObxXciicjGcjHcyJcyJcyJbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbUAbikbikbikbikbikaabbikbikbikbikbikbikbikbWhccvccvccvccvccvccvcjIbXZccuccvcjJbXZbXZbXZbXZbWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabbUTcjKcjKcjKcjKcjKcjKcjLcjKdnodnubUTcqsdoydnwdnycqsdnydnvdnzdnwdntdnAdnAdntdnBdntdnDdnCdntcqscelcjMbikcjNcjOcjPcjQcjRcjScjTcjUcjVcjWcjXcjYcjZcosckbckcckdckeckfckgckhceDckickjckjckjckkceCbGybGycklcklcklcklckmcklckncknckocklcklckpcklckqckrckscktckscglaPKcmacmmcmlcmocmnckzckAckBckCckDckEckFcdccdCcdCciVcdCckHcdCciXciWcjpcgnckLckMckvckOcwAcjCckRcxTcwAbxXciickTbxXbxXckVckWckXchabxXbxXbxXbxXbxXbxXbxXckYckZcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbWhbXZbXZbXZbXZbXZbXZcfNbXZcjJbXZbXZbXZbXZbXZbWhbWhaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdnEclbclbclbclbclbclbclccldcleclfclgclhclicjLdnocnRbUTcqsdozdnwcqscqscqsdnvcwNdnwdntdnAdnFdnCdnCdnGdnCdnHdntcljcelcjMbikclkcllclmclnclocjSclpdhpclrclsciLcltcgdcoaciPcluchyclvchyclwclxclyclzclAclAclAclBceCbGybGycklclCbzsclEclDclGclHclHclFclJclKclMclLclNclOcotcfhcpwckGcmrcmqctbcsZcuoctcckDclVclWclXckzclYcmtcmscmbcmbcmccmdcmecmfcmgcmhcmfcmfcmfcmicmfcmfcmjcmucnpcnlcqRcoXcrGcqScrHcrHcrIcrHcrHcrHcrHcrJcrKcrHcrHcrHcrMcmvbxXcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbWhbWhceibXZbXZbXZbXZbXZbXZbXZbXZbXZbXZbXZbWhbWhaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikcmwcmxcmxcmxcmxcmycmzcmAcmBcmCcmCcmDcjKdnocqscekcqscqscqscqscqscqscqscqscqsdntdntdnCdnIdnCdntdnCdnIdntcmEcfScjMbikclkcmFcmGcmHcmIcmJcmKcmLcmIcmIcmMcmNcmOcpxckIckIcmRbHtchycmTcmUclyclAclAclAclAcmVceCbGybGycklcmWcmXcmYcmZcnacnbcnbclIbvWbulbxBclHconcklcqQcfdcrLcxVcwscvxcwEcwCcxNcxIckDcnmcnncnockDbJGcumctecnqcnqcnqcnqcnqcnrcnscntcnucnvcnvcnwcnwcnvcnxcnycnzcnAcnCcnCcnDcnEcnCcnCcnCcnCcnCcnCcnCcnCcnCcnCcnCcnCcuncnFcnGcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikcaUbWhbWhchlchlbXZbXZbXZbXZbXZbXZbXZbXZbWhbWhaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik @@ -9149,7 +9147,7 @@ bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbi bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikcnHcqlcnJcqmcnJcqncqocqpcqqcnNcqrcjKdoAcwNbUTcfQcejbikbikbikbikbikcejdnRdntdnSdnSdnAdnUdnTdnCdnVdntcqscelcejbikbikbikbikciEcqtcqucqvcqvciLcqwciLcqxcgdcbkcqyckQcqAcqBcqCcqCcqCcqDcqEclAcqFclAcqGceCbGybGycpFcqHcrFcqJcqKcqLcsPcpFcsUcqMcqKcqNcsVcqPcpFczecyWczgdbAdbpdbodbrdbqdbsctcckDcpOcpPcpQckDbGycuscoAcvyaabaabaabbikbikbikbikbikbikbikbikbikbikcpRcqUcqVcqWcqXcqYcqZcracrbcpXcpXcrccpXcpXcpZcqbcqbcqbcrdbwocvzbxXbwoaabaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbWfcrhcribZvbWgbWhbWhbXZbYabXZbWhbWhaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikcjKcjKcjKcjKcjKcjKdnWcrjcrjcrjcrjcrjdnQcwUcwUcwUcrjcrjcrjcrjcrjcrjcrjcwUcwUcwUdntdntdntdntdntdntdntcekcrlcrmcrmcrmcrmcrmciEciLciLciLciLciLciLciLcrncgdcbkcroclZcrqcrrcrscrtcrucmpcrwcrxcrycrzcrAceCbGybGycpFcuicsYcvocujcujcvpcpFcwicujcujcwjcujcwkcpMbGwbGwbGwcEjdbudbtdbvdbmdbxctcdbydbydbycoAcoAbGycuscoDcwpbikaabaabaabbikbikbikbikbikbikbikbikbikcpRczNczPcoBcrOcrPcrQcrRcrScpXcpXcpXcpXcrTcrUcrVcrWcrXcrYbwocvzbxXbwobikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbWfbWfbWfbWfbWgbWgbWhbWhbWhbWhbWiaabaabbikbikaahbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaahbikbikbikbikbikbikbikaSecsdctvdnZctvdoBcsdcsecsfcsgcsgcshcsicspcskcslcsmcsncsocsrcsqcsqcsscsqcstctzctzctAcsvcswcsxcsycsxcsxcsxcswcsxcsxcszcsAcsBcsCcgdcbkcsDcmQcsFcnBcodcoeckIcoEcorcsKcsLcsMcsNcsObGybGycpFcwlcsQcsRcsScsTcwmcpFdehcsTcsWcsXdlFdqVcwrbikbikbikcEjdbAdbzdbAdbAdbCdbBdbEdbDcoGcwFbVibGycuscoDcwpbikbikaabaabaabbikbikbikbikbikbikbikbikctdckPcxGckSctdctfctgcthctictjctkctlcpXcpXctmctnctoctpctqbwocvzbxXcxHbikbikbikbikbikbikbikbikbikbikbikaahbikbikbikbikbikbikbikaabaabaabaabbikbikbikbikaabaabaabaabbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik -bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaSecsdctvctvctvdoBcsdctuctvctwctvctxctyctDctCdmedcYdmedmfcxnctEctFctEctEctGcblcblctEctHctEctEctEctEctEctEctEctEctEctEctIctJctKctLctMctNcqzctPctQcyqctSctTctUctVctWctXciFctZcuacnqcubcuccudcuecufcugcuhdqWcpFdqXcqKcugcukcqKculcwrbikbikbikdbFcmkdbGdbJdbIdbCdbKdbMdbLcrpdbNceFceJdbPcoDcwpbikbikbikaabaabaabbikbikbikbikbikbikbikckPcurczQcutckPcnCcnCcnCcnCcnCcnCcuuctlcuvcuwcuxcuycnCcnCbwocvzbxXcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik +bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaSecsdctvctvctvdoBcsdctuctvctwctvctxctyctDctCdmedcYdmedmfcxnctEctFctEctEctGcblcblctEctHctEctEctEctEctEctEctEctEctEctEctIctJctKctLctMctNcqzctPctQcyqctSctTbEbctVctWctXciFctZcuacnqcubcuccudcuecufcugcuhdqWcpFdqXcqKcugcukcqKculcwrbikbikbikdbFcmkdbGdbJdbIdbCdbKdbMdbLcrpdbNceFceJdbPcoDcwpbikbikbikaabaabaabbikbikbikbikbikbikbikckPcurczQcutckPcnCcnCcnCcnCcnCcnCcuuctlcuvcuwcuxcuycnCcnCbwocvzbxXcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikaSedobctvdocctvdoBcuBdodcuCcuDcuEcuFcuGcuHcuIcuJcuKcuLcuMcuNcuOcuPcuQdoeceAcuSceAcuNcuTcuNcuNcuNcuNcuNcuNcuNcuNcuNcuNcuUctEcuVcuWcuXcuYcuZcvacvbcvccvdcvecvfcvgcvhcvicvjcvkcsLceJcvlcvmcvncqKcqJcqKcqKdqYcpFdqZcqKcqKcqNcqKcyGcwrbikbikbikdbFdbRdbQdbTdbSdbVdbUdbXdbWcoGbGychCcyHcuscoAbikbikbikbikbikaabckPckPckPckPckPckPckPckPckPcvucxScvwcwAcxOcxOcyIckPaabcnCcnCcvAcnCcvBcvCcvDcnCcyKcyJcvzbxXcxHbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikdogdofcrjcrjcrjcrjdnQcwUcwUcwUcwUdnXcwUcvFcvGcvGcvHctBdlXcwUcCmcvJcvKcvKcvLcvKcvMcvKcvKcvNcvOcvKcvKcvOcvOcvOcvKcvKcvKcvKcvPcvQcvRcvScvTcvUcvVcvWcvXcvWcvWcvWcvWcvZcwacwbcwccwdcsObGycvrcwecwfcwgcwhdradrcdrbcpFdrddrcdrecqNcqKcwocpMbikbikbikdbFdbZdbYdcadbIdccdcbdbUczRcoGcyObVibVicuscoAbikbikbikbikbikbikckPcwtcwucwvcwwcwxcwycwzcwAcwBczScwDcwAcxOcBZcyPckPaabaabcwGcwHcwIcwJcwKcwLcwGbxXbxXcvzczfbwobikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik bikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikacGacGacGafxafxacGafxafxaabagiaabaqZbikaqZaqZdoidoCdojdojdojdoldokcwUcwOcwPcwQcwRcwScwTcwUcwVcwWcvOcwYcwZcxacxbcxccxdcxecxfcxgcvKcxfcxhcxicxjcxjcxkcvKcxlcxmcxncxocbkcxpcxqcxrcxscxtcxucxtcxvcxwcxxcxycxzcxAcsOcsOcvrcwecpFcpFcxBcpFcpFcwecrvcuccuccuccxFcuccsEcpMbikbikbikdbFdbFdbFdbFdbFdbydcedcgdcfcoGbGybGyczhcuscoAbikbikbikbikbikbikckPcxOcxPcxOcxQcxRcqUcxScwAcxTczicxTcwAcxOcxOcMpckPaabbikcwGcxWcxXcwJcwJcxYcwGczjbxXcvzbzNczMbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbikbik diff --git a/_maps/map_files/cyberiad/z2.dmm b/_maps/map_files/cyberiad/z2.dmm index 1938244976c..479d3271086 100644 --- a/_maps/map_files/cyberiad/z2.dmm +++ b/_maps/map_files/cyberiad/z2.dmm @@ -402,7 +402,6 @@ "hL" = (/obj/machinery/vending/cigarette,/obj/machinery/light/small{dir = 1},/turf/simulated/floor/wood,/area/dynamic/source/lobby_russian) "hM" = (/obj/structure/stool/bed/chair/sofa/right,/turf/simulated/floor/wood,/area/dynamic/source/lobby_disco) "hN" = (/obj/machinery/light/small{dir = 1},/obj/structure/stool/bed/chair/sofa/left,/turf/simulated/floor/wood,/area/dynamic/source/lobby_disco) -"hO" = (/obj/machinery/media/jukebox/bar,/turf/simulated/floor/wood,/area/dynamic/source/lobby_disco) "hP" = (/obj/machinery/light/small{dir = 1},/obj/structure/stool/bed/chair/sofa/right,/turf/simulated/floor/wood,/area/dynamic/source/lobby_disco) "hQ" = (/obj/structure/stool/bed/chair/sofa/left,/turf/simulated/floor/wood,/area/dynamic/source/lobby_disco) "hR" = (/obj/structure/reagent_dispensers/beerkeg,/turf/simulated/floor/wood,/area/dynamic/source/lobby_bar) @@ -1396,7 +1395,7 @@ ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNapapapapapapapapapap ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNapapapapapapapapapapapapapapapapapapapapapapapapaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNfghrgdgdgdgdgehshtgehsgehuhvhvhvhwhvfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNhyhzhzhzhzhzhAhzhzhzhzhzhAhzhzhzhzhzhAhzhzhzhzhzhAhzhzhzhzhzhAhzhzhzhzhzhAhzhzhzhzhzhB ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNapapapapapapapapapapapapapapapapapapapapapapapapaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNfgfghChDhDhCfgfgfgfgfgfgfgfgfgfgfgfgfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaN ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNfghEhFhFhFfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbZaPaPaPaPaPbZaPaPaPaPaPbZaPaPaPaPaPbZ -ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNfghFhFhFhFfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbphHhIhJhKhLbshMhNhOhPhQbshRhShThUhVbD +ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNfghFhFhFhFfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbphHhIhJhKhLbshMhNhYhPhQbshRhShThUhVbD ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNfgfgfgfgfgfgaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbphWhWhXhWhWbshYhZhZhZhYbsiaiaiaiaiabD ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbphWhWhWhWhWbshYhZhZhZhYbsiaiaiaiaiabD ckckckckckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNckckckckckckckckckckckckckckckckckckckckckckckaNckckckckckckckckckckckckckckckckckckckckckckckckaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNaNbpibichWicibbshYidhZidhYbsieifiaigiebD diff --git a/_maps/map_files/cyberiad/z4.dmm b/_maps/map_files/cyberiad/z4.dmm index c8ef280d538..cf6f91d08f6 100644 --- a/_maps/map_files/cyberiad/z4.dmm +++ b/_maps/map_files/cyberiad/z4.dmm @@ -221,7 +221,7 @@ "em" = (/obj/machinery/shower{dir = 4; icon_state = "shower"; pixel_x = 5; tag = "icon-shower (EAST)"},/obj/structure/curtain/open/shower/engineering,/turf/simulated/floor/plasteel{dir = 2; icon_state = "cmo"},/area/engiestation) "en" = (/turf/simulated/floor/plasteel{dir = 2; icon_state = "cmo"},/area/engiestation) "eo" = (/obj/machinery/light,/obj/item/device/radio/intercom{dir = 1; name = "station intercom (General)"; pixel_y = -28},/turf/simulated/floor/plasteel{icon_state = "vault"; dir = 5},/area/engiestation) -"ep" = (/obj/structure/table/reinforced,/obj/item/weapon/lipstick/random,/obj/item/weapon/lipstick/random,/obj/item/weapon/storage/fancy/cigarettes/cigpack_carp,/obj/machinery/media/receiver/boombox,/turf/simulated/floor/plasteel{icon_state = "vault"; dir = 5},/area/engiestation) +"ep" = (/obj/structure/table/reinforced,/obj/item/weapon/lipstick/random,/obj/item/weapon/lipstick/random,/obj/item/weapon/storage/fancy/cigarettes/cigpack_carp,/turf/simulated/floor/plasteel{icon_state = "vault"; dir = 5},/area/engiestation) "eq" = (/obj/effect/decal/cleanable/dirt,/obj/item/weapon/contraband/poster,/obj/item/weapon/contraband/poster,/obj/item/weapon/contraband/poster,/obj/item/weapon/reagent_containers/food/drinks/bottle/whiskey,/obj/item/weapon/reagent_containers/food/drinks/bottle/vodka,/obj/item/weapon/reagent_containers/food/drinks/bottle/vodka,/turf/simulated/floor/plasteel,/area/engiestation) "er" = (/obj/structure/sign/nosmoking_2{pixel_x = -32},/turf/simulated/floor/plasteel{tag = "icon-stage_stairs"; icon_state = "stage_stairs"},/area/engiestation) "es" = (/turf/simulated/floor/plasteel{tag = "icon-stage_stairs"; icon_state = "stage_stairs"},/area/engiestation) diff --git a/_maps/map_files/cyberiad/z6.dmm b/_maps/map_files/cyberiad/z6.dmm index e47f28bf95c..5a0231c9394 100644 --- a/_maps/map_files/cyberiad/z6.dmm +++ b/_maps/map_files/cyberiad/z6.dmm @@ -22,7 +22,7 @@ "av" = (/turf/simulated/floor/plating/airless,/area/space) "aw" = (/obj/structure/closet/emcloset,/turf/simulated/floor/plasteel{tag = "icon-cafeteria (NORTHEAST)"; icon_state = "cafeteria"; dir = 5},/area/djstation) "ax" = (/turf/simulated/floor/plasteel{tag = "icon-cafeteria (NORTHEAST)"; icon_state = "cafeteria"; dir = 5},/area/djstation) -"ay" = (/obj/machinery/newscaster{pixel_y = 32},/obj/machinery/media/jukebox/dj,/turf/simulated/floor/plasteel{tag = "icon-cafeteria (NORTHEAST)"; icon_state = "cafeteria"; dir = 5},/area/djstation) +"ay" = (/obj/machinery/newscaster{pixel_y = 32},/turf/simulated/floor/plasteel{tag = "icon-cafeteria (NORTHEAST)"; icon_state = "cafeteria"; dir = 5},/area/djstation) "az" = (/turf/simulated/floor/plasteel/airless,/area/space) "aA" = (/turf/simulated/wall/r_wall,/area/space) "aB" = (/obj/structure/table,/obj/machinery/cell_charger,/turf/simulated/floor/plasteel{icon_state = "bar"},/area/djstation) diff --git a/code/__DEFINES/preferences.dm b/code/__DEFINES/preferences.dm index 8ac165cec6a..e4298b55a9a 100644 --- a/code/__DEFINES/preferences.dm +++ b/code/__DEFINES/preferences.dm @@ -3,12 +3,11 @@ #define SOUND_MIDI 2 #define SOUND_AMBIENCE 4 #define SOUND_LOBBY 8 -#define SOUND_STREAMING 16 -#define SOUND_HEARTBEAT 32 -#define SOUND_BUZZ 64 -#define SOUND_INSTRUMENTS 128 +#define SOUND_HEARTBEAT 16 +#define SOUND_BUZZ 32 +#define SOUND_INSTRUMENTS 64 -#define SOUND_DEFAULT (SOUND_ADMINHELP|SOUND_MIDI|SOUND_AMBIENCE|SOUND_LOBBY|SOUND_STREAMING|SOUND_HEARTBEAT|SOUND_BUZZ|SOUND_INSTRUMENTS) +#define SOUND_DEFAULT (SOUND_ADMINHELP|SOUND_MIDI|SOUND_AMBIENCE|SOUND_LOBBY|SOUND_HEARTBEAT|SOUND_BUZZ|SOUND_INSTRUMENTS) #define CHAT_OOC 1 #define CHAT_DEAD 2 diff --git a/code/controllers/configuration.dm b/code/controllers/configuration.dm index 6b1d1d8e19f..88b631f5c18 100644 --- a/code/controllers/configuration.dm +++ b/code/controllers/configuration.dm @@ -86,7 +86,6 @@ var/donationsurl = "http://example.org" var/repositoryurl = "http://example.org" - var/media_base_url = "http://example.org" var/overflow_server_url var/forbid_singulo_possession = 0 @@ -484,9 +483,6 @@ if("assistant_ratio") config.assistantratio = text2num(value) - if("media_base_url") - media_base_url = value - if("allow_drone_spawn") config.allow_drone_spawn = text2num(value) diff --git a/code/game/area/areas.dm b/code/game/area/areas.dm index 5963d461daf..7caaf090914 100644 --- a/code/game/area/areas.dm +++ b/code/game/area/areas.dm @@ -327,7 +327,7 @@ L << sound('sound/ambience/shipambience.ogg', repeat = 1, wait = 0, volume = 35, channel = 2) else if(L && L.client && !(L.client.prefs.sound & SOUND_BUZZ)) L.client.ambience_playing = 0 - if(prob(35) && !newarea.media_source && L && L.client && (L.client.prefs.sound & SOUND_AMBIENCE)) + if(prob(35) && L && L.client && (L.client.prefs.sound & SOUND_AMBIENCE)) var/sound = pick(ambientsounds) if(!L.client.played) diff --git a/code/modules/client/preference/preferences_toggles.dm b/code/modules/client/preference/preferences_toggles.dm index 541dee07242..10f6c58982f 100644 --- a/code/modules/client/preference/preferences_toggles.dm +++ b/code/modules/client/preference/preferences_toggles.dm @@ -194,20 +194,6 @@ to_chat(src, "You will no longer hear musical instruments.") feedback_add_details("admin_verb","TInstru") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc! -/client/verb/toggle_media() - set name = "Hear/Silence Streaming" - set category = "Preferences" - set desc = "Toggle hearing streaming media (radios, jukeboxes, etc)" - - prefs.sound ^= SOUND_STREAMING - prefs.save_preferences(src) - to_chat(usr, "You will [(prefs.sound & SOUND_STREAMING) ? "now" : "no longer"] hear streamed media.") - if(!media) return - if(prefs.sound & SOUND_STREAMING) - media.update_music() - else - media.stop_music() - /client/verb/setup_character() set name = "Game Preferences" set category = "Preferences" diff --git a/code/modules/media/broadcast/receiver.dm b/code/modules/media/broadcast/receiver.dm deleted file mode 100644 index e4f083bdc6d..00000000000 --- a/code/modules/media/broadcast/receiver.dm +++ /dev/null @@ -1,46 +0,0 @@ -// frequency => list(listeners) -var/global/media_receivers=list() - - -/////////////////////// -// RECEIVERS -/////////////////////// - -/obj/machinery/media/receiver - var/media_frequency = 1015 // 123.4 MHz - var/media_crypto = null // Crypto key - -/obj/machinery/media/receiver/New() - ..() - connect_frequency() - -/obj/machinery/media/receiver/proc/receive_broadcast(var/url="", var/start_time=0) - media_url = url - media_start_time = start_time - update_music() - -/obj/machinery/media/receiver/proc/connect_frequency() - // This is basically media_receivers["[media_frequency]"] += src - var/list/receivers=list() - var/freq = num2text(media_frequency) - if(freq in media_receivers) - receivers = media_receivers[freq] - receivers.Add(src) - media_receivers[freq]=receivers - - // Check if there's a broadcast to tune into. - if(freq in media_transmitters) - // Pick a random broadcast in that frequency. - var/obj/machinery/media/transmitter/B = pick(media_transmitters[freq]) - if(B.media_crypto == media_crypto) // Crypto-key check, if needed. - receive_broadcast(B.media_url,B.media_start_time) - -/obj/machinery/media/receiver/proc/disconnect_frequency() - var/list/receivers=list() - var/freq = num2text(media_frequency) - if(freq in media_receivers) - receivers = media_receivers[freq] - receivers.Remove(src) - media_receivers[freq]=receivers - - receive_broadcast() diff --git a/code/modules/media/broadcast/receivers/radio.dm b/code/modules/media/broadcast/receivers/radio.dm deleted file mode 100644 index a0d94dcbf31..00000000000 --- a/code/modules/media/broadcast/receivers/radio.dm +++ /dev/null @@ -1,84 +0,0 @@ -/obj/machinery/media/receiver/boombox - name = "Boombox" - desc = "Tune in and tune out." - - icon='icons/obj/radio.dmi' - icon_state="radio" - - var/on=0 - -/obj/machinery/media/receiver/boombox/initialize() - ..() - if(on) - update_on() - update_icon() - -/obj/machinery/media/receiver/boombox/attack_hand(var/mob/user) - if(stat & (NOPOWER|BROKEN)) - to_chat(usr, "\red You don't see anything to mess with.") - return - user.set_machine(src) - interact(user) - -/obj/machinery/media/receiver/boombox/interact(var/mob/user) - var/dat = "[src]" - dat += {" - Power: [on ? "On" : "Off"]
- Frequency: [format_frequency(media_frequency)]
- "} - dat+={""} - user << browse(dat, "window=radio-recv") - onclose(user, "radio-recv") - return - -/obj/machinery/media/receiver/boombox/proc/update_on() - if(on) - visible_message("\The [src] hisses to life!") - playing=1 - connect_frequency() - else - visible_message("\The [src] falls quiet.") - playing=0 - disconnect_frequency() - -/obj/machinery/media/receiver/boombox/Topic(href,href_list) - ..() - if("power" in href_list) - on = !on - update_on() - if("set_freq" in href_list) - var/newfreq=media_frequency - if(href_list["set_freq"]!="-1") - newfreq = text2num(href_list["set_freq"]) - else - newfreq = input(usr, "Set a new frequency (MHz, 90.0, 200.0).", src, media_frequency) as null|num - if(newfreq) - if(findtext(num2text(newfreq), ".")) - newfreq *= 10 // shift the decimal one place - if(newfreq > 900 && newfreq < 2000) // Between (90.0 and 100.0) - disconnect_frequency() - media_frequency = newfreq - connect_frequency() - else - to_chat(usr, "\red Invalid FM frequency. (90.0, 200.0)") - updateDialog() - - -/obj/machinery/media/receiver/boombox/wallmount - name = "Sound System" - desc = "This plays music for this room." - - icon='icons/obj/radio.dmi' - icon_state="wallradio" - anchored=1 - -/obj/machinery/media/receiver/boombox/wallmount/muzak - on=1 - media_frequency=1015 - -/obj/machinery/media/receiver/boombox/wallmount/update_on() - ..() - if(on) - icon_state="wallradio-p" - else - icon_state="wallradio" diff --git a/code/modules/media/broadcast/transmitter.dm b/code/modules/media/broadcast/transmitter.dm deleted file mode 100644 index 92c37f9d917..00000000000 --- a/code/modules/media/broadcast/transmitter.dm +++ /dev/null @@ -1,46 +0,0 @@ -var/global/media_transmitters=list() - -/////////////////////// -// BROADCASTERS -/////////////////////// - -/obj/machinery/media/transmitter - var/media_frequency = 1234 // 123.4 MHz - var/media_crypto = null // No crypto keys. - -/obj/machinery/media/transmitter/New() - ..() - connect_frequency() - -/obj/machinery/media/transmitter/proc/broadcast(var/url="", var/start_time=0) - media_url = url - media_start_time = start_time - update_music() - -/obj/machinery/media/transmitter/proc/connect_frequency() - var/list/transmitters=list() - var/freq = num2text(media_frequency) - if(freq in media_transmitters) - transmitters = media_transmitters[freq] - transmitters.Add(src) - media_transmitters[freq]=transmitters - - -/obj/machinery/media/transmitter/update_music() - //..() - var/freq = num2text(media_frequency) - if(freq in media_receivers) - for(var/obj/machinery/media/receiver/R in media_receivers[freq]) - if(R.media_crypto == media_crypto) - R.receive_broadcast(media_url,media_start_time) - //testing("[src]: Sending music to [R]") - -/obj/machinery/media/transmitter/proc/disconnect_frequency() - var/list/transmitters=list() - var/freq = num2text(media_frequency) - if(freq in media_transmitters) - transmitters = media_transmitters[freq] - transmitters.Remove(src) - media_transmitters[freq]=transmitters - - broadcast() diff --git a/code/modules/media/broadcast/transmitters/broadcast.dm b/code/modules/media/broadcast/transmitters/broadcast.dm deleted file mode 100644 index 898771b496d..00000000000 --- a/code/modules/media/broadcast/transmitters/broadcast.dm +++ /dev/null @@ -1,221 +0,0 @@ -/obj/machinery/media/transmitter/broadcast - name = "Radio Transmitter" - desc = "A huge hulk of steel containing high-powered phase-modulating radio transmitting equipment." - - icon = 'icons/obj/machines/broadcast.dmi' - icon_state = "broadcaster" - light_color="#4285F4" - use_power = 1 - idle_power_usage = 50 - active_power_usage = 1000 - - var/on=0 - var/integrity=100 - var/list/obj/machinery/media/sources=list() - var/heating_power=40000 - var/list/autolink = null - - var/const/RADS_PER_TICK=150 - var/const/MAX_TEMP=70 // Celsius - -/obj/machinery/media/transmitter/broadcast/initialize() - ..() - testing("[type]/initialize() called!") - if(autolink && autolink.len) - for(var/obj/machinery/media/source in orange(20, src)) - if(source.id_tag in autolink) - sources.Add(source) - testing("Autolinked [source] -> [src]") - hook_media_sources() - if(on) - update_on() - update_icon() - -/obj/machinery/media/transmitter/broadcast/proc/hook_media_sources() - if(!sources.len) - return - - for(var/obj/machinery/media/source in sources) - // Hook into output - source.hookMediaOutput(src,exclusive=1) // Don't hook into the room media sources. - source.update_music() // Request music update - -/obj/machinery/media/transmitter/broadcast/proc/unhook_media_sources() - if(!sources.len) - return - - for(var/obj/machinery/media/source in sources) - source.unhookMediaOutput(src) - - broadcast() // Bzzt -/* -/obj/machinery/media/transmitter/broadcast/attackby(var/obj/item/W, mob/user, params) - if(istype(W, /obj/item/device/multitool)) - update_multitool_menu(user) - return 1 - -/obj/machinery/media/transmitter/broadcast/attack_ai(var/mob/user as mob) - src.add_hiddenprint(user) - attack_hand(user) - -/obj/machinery/media/transmitter/broadcast/attack_hand(var/mob/user as mob) - update_multitool_menu(user) - -/obj/machinery/media/transmitter/broadcast/multitool_menu(var/mob/user,var/obj/item/device/multitool/P) - // You need a multitool to use this, or be silicon - if(!issilicon(user)) - // istype returns false if the value is null - if(!istype(user.get_active_hand(), /obj/item/device/multitool)) - return - - if(stat & (BROKEN|NOPOWER)) - return - - var/screen = {" -

Settings

- -

Media Sources

"} - if(!sources.len) - screen += "No media sources have been selected." - else - screen += "
    " - for(var/i=1;i<=sources.len;i++) - var/obj/machinery/media/source=sources[i] - screen += "
  1. \ref[source] [source.name] ([source.id_tag]) \[X\]
    2. " - screen += "
" - return screen -*/ - -/obj/machinery/media/transmitter/broadcast/update_icon() - overlays = 0 - if(stat & (NOPOWER|BROKEN)) - return - if(on) - overlays+="broadcaster on" - set_light(3) // OH FUUUUCK - use_power = 2 - else - set_light(1) // Only the tile we're on. - use_power = 1 - if(sources.len) - overlays+="broadcaster linked" - -/obj/machinery/media/transmitter/broadcast/proc/update_on() - if(on) - visible_message("\The [src] hums as it begins pumping energy into the air!") - connect_frequency() - hook_media_sources() - else - visible_message("\The [src] falls quiet and makes a soft ticking noise as it cools down.") - unhook_media_sources() - disconnect_frequency() - update_icon() - -/obj/machinery/media/transmitter/broadcast/Topic(href,href_list) - if(..(href, href_list)) - return - - if("power" in href_list) - on = !on - update_on() - return - if("set_freq" in href_list) - var/newfreq=media_frequency - if(href_list["set_freq"]!="-1") - newfreq = text2num(href_list["set_freq"]) - else - newfreq = input(usr, "Set a new frequency (MHz, 90.0, 200.0).", src, media_frequency) as null|num - if(newfreq) - if(findtext(num2text(newfreq), ".")) - newfreq *= 10 // shift the decimal one place - if(newfreq > 900 && newfreq < 2000) // Between (90.0 and 100.0) - disconnect_frequency() - media_frequency = newfreq - connect_frequency() - else - to_chat(usr, "\red Invalid FM frequency. (90.0, 200.0)") - -/obj/machinery/media/transmitter/broadcast/process() - if(stat & (NOPOWER|BROKEN)) - return - if(on) - if(integrity<=0) - on=0 - update_on() - - // Radiation - for(var/mob/living/carbon/M in view(src,3)) - var/rads = RADS_PER_TICK * sqrt( 1 / (get_dist(M, src) + 1) ) - M.apply_effect((rads*3),IRRADIATE) - - // Heat output - var/turf/simulated/L = loc - if(istype(L) && heating_power) - var/datum/gas_mixture/env = L.return_air() - if(env.temperature != MAX_TEMP + T0C) - - var/transfer_moles = 0.25 * env.total_moles() - - var/datum/gas_mixture/removed = env.remove(transfer_moles) - -// to_chat(world, "got [transfer_moles] moles at [removed.temperature]") - - if(removed) - - var/heat_capacity = removed.heat_capacity() -// to_chat(world, "heating ([heat_capacity])") - if(heat_capacity) // Added check to avoid divide by zero (oshi-) runtime errors -- TLE - if(removed.temperature < MAX_TEMP + T0C) - removed.temperature = min(removed.temperature + heating_power/heat_capacity, 1000) // Added min() check to try and avoid wacky superheating issues in low gas scenarios -- TLE - else - removed.temperature = max(removed.temperature - heating_power/heat_capacity, TCMB) - -// to_chat(world, "now at [removed.temperature]") - - env.merge(removed) - -// to_chat(world, "turf now at [env.temperature]") -/* - // Checks heat from the environment and applies any integrity damage - var/datum/gas_mixture/environment = loc.return_air() - switch(environment.temperature) - if(T0C to (T20C + 20)) - integrity = between(0, integrity, 100) - if((T20C + 20) to INFINITY) - integrity = max(0, integrity - 1) -*/ -/* -/obj/machinery/media/transmitter/broadcast/linkWith(var/mob/user, var/obj/O, var/list/context) - if(istype(O,/obj/machinery/media) && !is_type_in_list(O,list(/obj/machinery/media/transmitter,/obj/machinery/media/receiver))) - if(sources.len) - unhook_media_sources() - sources.Add(O) - hook_media_sources() - update_icon() - return 1 - return 0 - -/obj/machinery/media/transmitter/broadcast/unlinkFrom(var/mob/user, var/obj/O) - if(O in sources) - unhook_media_sources() - sources.Remove(O) - if(sources.len) - hook_media_sources() - update_icon() - return 0 - -/obj/machinery/media/transmitter/broadcast/canLink(var/obj/O, var/list/context) - return istype(O,/obj/machinery/media) && !is_type_in_list(O,list(/obj/machinery/media/transmitter,/obj/machinery/media/receiver)) - -/obj/machinery/media/transmitter/broadcast/isLinkedWith(var/obj/O) - return O in sources -*/ - -/obj/machinery/media/transmitter/broadcast/dj - id_tag = "dj" - media_frequency=1015 - autolink = list("DJ Satellite") - on=1 diff --git a/code/modules/media/jukebox.dm b/code/modules/media/jukebox.dm deleted file mode 100644 index d7cf0f77de7..00000000000 --- a/code/modules/media/jukebox.dm +++ /dev/null @@ -1,333 +0,0 @@ -/******************************* - * Largely a rewrite of the Jukebox from D2K5 - * - * By N3X15 - *******************************/ - -#define JUKEMODE_SHUFFLE 1 // Default -#define JUKEMODE_REPEAT_SONG 2 -#define JUKEMODE_PLAY_ONCE 3 // Play, then stop. -#define JUKEMODE_COUNT 3 - -#define JUKEBOX_RELOAD_COOLDOWN 600 // 60s - -// Represents a record returned. -/datum/song_info - var/title = "" - var/artist = "" - var/album = "" - - var/url = "" - var/length = 0 // decaseconds - - var/emagged = 0 - - New(var/list/json) - title = json["title"] - artist = json["artist"] - album = json["album"] - - url = json["url"] - - length = text2num(json["length"]) - - proc/display() - var/str="\"[title]\"" - if(artist!="") - str += ", by [artist]" - if(album!="") - str += ", from '[album]'" - return str - - proc/displaytitle() - if(artist==""&&title=="") - return "\[NO TAGS\]" - var/str="" - if(artist!="") - str += "[artist] - " - if(title!="") - str += "\"[title]\"" - else - str += "Untitled" - return str - - -var/global/loopModeNames=list( - JUKEMODE_SHUFFLE = "Shuffle", - JUKEMODE_REPEAT_SONG = "Single", - JUKEMODE_PLAY_ONCE= "Once", -) -/obj/machinery/media/jukebox - name = "Jukebox" - desc = "A jukebox used for parties and shit." - icon = 'icons/obj/jukebox.dmi' - icon_state = "jukebox2-nopower" - density = 1 - - anchored = 1 - luminosity = 4 // Why was this 16 - - playing=0 - - var/loop_mode = JUKEMODE_SHUFFLE - - // Server-side playlist IDs this jukebox can play. - var/list/playlists=list() // ID = Label - - // Playlist to load at startup. - var/playlist_id = "" - - var/list/playlist - var/current_song = 0 - var/autoplay = 0 - var/last_reload = 0 - var/state_base = "jukebox2" - - -/obj/machinery/media/jukebox/attack_ai(var/mob/user) - attack_hand(user) - - -/obj/machinery/media/jukebox/power_change() - ..() - if(emagged && !(stat & (NOPOWER|BROKEN))) - playing = 1 - update_icon() - -/obj/machinery/media/jukebox/update_icon() - overlays = 0 - if(stat & (NOPOWER|BROKEN) || !anchored) - if(stat & BROKEN) - icon_state = "[state_base]-broken" - else - icon_state = "[state_base]-nopower" - stop_playing() - return - icon_state = state_base - if(playing) - if(emagged) - overlays += "[state_base]-emagged" - else - overlays += "[state_base]-running" - -/obj/machinery/media/jukebox/proc/check_reload() - return world.time > last_reload + JUKEBOX_RELOAD_COOLDOWN - -/obj/machinery/media/jukebox/attack_hand(var/mob/user) - if(stat & NOPOWER) - to_chat(usr, "\red You don't see anything to mess with.") - return - if(stat & BROKEN && playlist!=null) - user.visible_message("[user.name] smacks the side of \the [src.name].","\red You hammer the side of \the [src.name].") - stat &= ~BROKEN - playlist=null - playing=emagged - update_icon() - return - var/t = "

Jukebox Interface

" - t += "Power: [playing?"On":"Off"]
" - t += "Play Mode: [loopModeNames[loop_mode]]
" - if(playlist == null) - t += "\[DOWNLOADING PLAYLIST, PLEASE WAIT\]" - else - if(check_reload()) - t += "Playlist: " - for(var/plid in playlists) - t += "[playlists[plid]]" - else - t += "Please wait before changing playlists." - t += "
" - if(current_song) - var/datum/song_info/song=playlist[current_song] - t += "Current song: [song.artist] - [song.title]
" - t += "" - var/i - for(i = 1,i <= playlist.len,i++) - var/datum/song_info/song=playlist[i] - t += "" - t += "
Artist - TitleAlbum
#[i][song.displaytitle()][song.album]
" - user.set_machine(src) - var/datum/browser/popup = new (user,"jukebox",name,420,700) - popup.set_content(t) - popup.set_title_image(user.browse_rsc_icon(icon, icon_state)) - popup.open() - - -/obj/machinery/media/jukebox/attackby(obj/item/W, mob/user, params) - if(istype(W, /obj/item/weapon/card/emag)) - current_song=0 - if(!emagged) - playlist_id = "emagged" - last_reload=world.time - playlist=null - loop_mode = JUKEMODE_SHUFFLE - emagged = 1 - playing = 1 - user.visible_message("\red [user.name] slides something into the [src.name]'s card-reader.","\red You short out the [src.name].") - update_icon() - update_music() - else if(istype(W,/obj/item/weapon/wrench)) - var/un = !anchored ? "" : "un" - user.visible_message("\blue [user.name] begins [un]locking \the [src.name]'s casters.","\blue You begin [un]locking \the [src.name]'s casters.") - if(do_after(user,30, target = src)) - playsound(get_turf(src), 'sound/items/Ratchet.ogg', 50, 1) - anchored = !anchored - user.visible_message("\blue [user.name] [un]locks \the [src.name]'s casters.","\red You [un]lock \the [src.name]'s casters.") - playing = emagged - update_music() - update_icon() - -/obj/machinery/media/jukebox/Topic(href, href_list) - ..() - if(emagged) - to_chat(usr, "\red You touch the bluescreened menu. Nothing happens. You feel dumber.") - return - - if(href_list["power"]) - playing=!playing - update_music() - update_icon() - - if(href_list["playlist"]) - if(!check_reload()) - to_chat(usr, "\red You must wait 60 seconds between playlist reloads.") - return - playlist_id=href_list["playlist"] - last_reload=world.time - playlist=null - current_song=0 - update_music() - update_icon() - - if(href_list["song"]) - current_song=Clamp(text2num(href_list["song"]),1,playlist.len) - update_music() - update_icon() - - if(href_list["mode"]) - loop_mode = (loop_mode % JUKEMODE_COUNT) + 1 - - return attack_hand(usr) - -/obj/machinery/media/jukebox/process() - if(!playlist) - var/url="[config.media_base_url]/index.php?playlist=[playlist_id]" - //testing("[src] - Updating playlist from [url]...") - var/response = world.Export(url) - playlist=list() - if(response) - var/json = file2text(response["CONTENT"]) - if("/>" in json) - visible_message("[bicon(src)] \The [src] buzzes, unable to update its playlist.","You hear a buzz.") - stat &= BROKEN - update_icon() - return - var/songdata = json_decode(json) - for(var/list/record in songdata) - playlist += new /datum/song_info(record) - if(playlist.len==0) - visible_message("[bicon(src)] \The [src] buzzes, unable to update its playlist.","You hear a buzz.") - stat &= BROKEN - update_icon() - return - visible_message("[bicon(src)] \The [src] beeps, and the menu on its front fills with [playlist.len] items.","You hear a beep.") - if(autoplay) - playing=1 - autoplay=0 - else - //testing("[src] failed to update playlist: Response null.") - stat &= BROKEN - update_icon() - return - if(playing) - var/datum/song_info/song - if(current_song) - song = playlist[current_song] - if(!current_song || (song && world.time >= media_start_time + song.length)) - current_song=1 - switch(loop_mode) - if(JUKEMODE_SHUFFLE) - current_song=rand(1,playlist.len) - if(JUKEMODE_REPEAT_SONG) - current_song=current_song - if(JUKEMODE_PLAY_ONCE) - playing=0 - update_icon() - return - update_music() - -/obj/machinery/media/jukebox/update_music() - if(current_song && playing) - var/datum/song_info/song = playlist[current_song] - media_url = song.url - media_start_time = world.time - visible_message("[bicon(src)] \The [src] begins to play [song.display()].","You hear music.") - //visible_message("[bicon(src)] \The [src] warbles: [song.length/10]s @ [song.url]") - else - media_url="" - media_start_time = 0 - ..() - -/obj/machinery/media/jukebox/proc/stop_playing() - //current_song=0 - playing=0 - update_music() - return - -/obj/machinery/media/jukebox/bar - playlist_id="bar" - // Must be defined on your server. - playlists=list( - "bar" = "Bar Mix", - "aussie" = "Aussie", - "club" = "Club", - "lounge" = "Portishead - Dummy", - "customs" = "Customs Music", - ) - -// Relaxing elevator music~ -/obj/machinery/media/jukebox/dj - - playlist_id="bar" - autoplay = 1 - - id_tag="DJ Satellite" // For autolink - - // Must be defined on your server. - playlists=list( - "bar" = "Bar Mix", - "aussie" = "Aussie", - "club" = "Club", - "lounge" = "Portishead - Dummy", - "customs" = "Customs Music", - ) - -/obj/machinery/media/jukebox/techno - name = "Techno disc" - desc = "Looks like an oldschool mixing board that somehow plays music, don't ask us how, we don't know." - state_base = "mixer" - playlist_id="club" - - playlists=list( - "club" = "Club Mix", - - ) - -/obj/machinery/media/jukebox/shuttle - playlist_id="shuttle" - // Must be defined on your server. - playlists=list( - "shuttle" = "Shuttle Mix" - ) - invisibility=101 // FAK U NO SONG 4 U - -/obj/machinery/media/jukebox/lobby - playlist_id="lobby" - // Must be defined on your server. - playlists=list( - "lobby" = "Lobby Mix" - ) - playlist_id = "lobby" - use_power = 0 - invisibility=101 - autoplay = 1 diff --git a/code/modules/media/machinery.dm b/code/modules/media/machinery.dm deleted file mode 100644 index cf46c8dcdf8..00000000000 --- a/code/modules/media/machinery.dm +++ /dev/null @@ -1,104 +0,0 @@ -// Machinery serving as a media source. -/obj/machinery/media - var/playing=0 - var/media_url="" - var/media_start_time=0 - - var/area/master_area - - var/list/obj/machinery/media/transmitter/hooked = list() - var/exclusive_hook=null // Disables output to the room - - // Media system autolink. - var/id_tag = "???" - -/obj/machinery/media/proc/hookMediaOutput(var/obj/machinery/media/transmitter/T, exclusive=0) - if(exclusive) - exclusive_hook=T - hooked.Add(T) - return 1 - -/obj/machinery/media/proc/unhookMediaOutput(var/obj/machinery/media/transmitter/T) - if(exclusive_hook==T) - exclusive_hook=null - hooked.Remove(T) - return 1 - -// Notify everyone in the area of new music. -// YOU MUST SET MEDIA_URL AND MEDIA_START_TIME YOURSELF! -/obj/machinery/media/proc/update_music() - // Broadcasting shit - for(var/obj/machinery/media/transmitter/T in hooked) - testing("[src] Writing media to [T].") - T.broadcast(media_url,media_start_time) - - if(exclusive_hook) - disconnect_media_source() // Just to be sure. - return - - update_media_source() - - // Bail if we lost connection to master. - if(!master_area) - return - - // Send update to clients. - for(var/mob/M in mobs_in_area(master_area)) - if(M && M.client) - M.update_music() - -/obj/machinery/media/proc/update_media_source() - var/area/A = get_area_master(src) - - // Check if there's a media source already. - if(A.media_source && A.media_source!=src) - master_area=null - return - - // Update Media Source. - if(!A.media_source) - A.media_source=src - - master_area=A - -/obj/machinery/media/proc/disconnect_media_source() - var/area/A = get_area_master(src) - - // Sanity - if(!A) - master_area=null - return - - // Check if there's a media source already. - if(A && A.media_source && A.media_source!=src) - master_area=null - return - - // Update Media Source. - A.media_source=null - - // Clients - for(var/mob/M in mobs_in_area(A)) - if(M && M.client) - M.update_music() - - master_area=null - -/obj/machinery/media/Move() - ..() - if(anchored) - update_music() - -/obj/machinery/media/setLoc(var/turf/T, var/teleported=0) - disconnect_media_source() - ..(T) - if(anchored) - update_music() - -/obj/machinery/media/New() - ..() - update_media_source() - -/obj/machinery/media/Destroy() - disconnect_media_source() - return ..() \ No newline at end of file diff --git a/code/modules/media/mediamanager.dm b/code/modules/media/mediamanager.dm deleted file mode 100644 index 125b224c8ea..00000000000 --- a/code/modules/media/mediamanager.dm +++ /dev/null @@ -1,160 +0,0 @@ -/********************** - * AWW SHIT IT'S TIME FOR RADIO - * - * Concept stolen from D2K5 - * - * Rewritten (except for player HTML) by N3X15 - ***********************/ - -// Open up VLC and play musique. -// Converted to VLC for cross-platform and ogg support. - N3X -var/const/PLAYER_HTML={" - - - -"} - -// Hook into the events we desire. -/hook/mob_login/proc/init_media_manager(client/client, mob/mob) - client.media = new /datum/media_manager(mob) - client.media.open() - spawn(20) - client.media.update_music() - return 1 - - // Update when moving between areas. -/hook/mob_area_change/proc/update_media(mob/mob, area/newarea, area/oldarea) - if(mob.client) - mob.update_music() - return 1 - -/mob/proc/update_music() - if(client && client.media) - client.media.update_music() - //else - // testing("[src] - client: [client?"Y":"N"]; client.media: [client && client.media ? "Y":"N"]") - -/area - // One media source per area. - var/obj/machinery/media/media_source = null - - -#ifdef DEBUG_MEDIAPLAYER -to_chat(#define MP_DEBUG(x) owner, x) -#warning Please comment out #define DEBUG_MEDIAPLAYER before committing. -#else -#define MP_DEBUG(x) -#endif - - -/datum/media_manager - var/url = "" - var/start_time = 0 - - var/client/owner - var/mob/mob - - var/const/window = "rpane.hosttracker" - //var/const/window = "mediaplayer" // For debugging. - - New(var/mob/holder) - src.mob=holder - owner=src.mob.client - - // Actually pop open the player in the background. - proc/open() - owner << browse(PLAYER_HTML, "window=[window]") - send_update() - - // Tell the player to play something via JS. - proc/send_update() - if(!(owner.prefs.sound & SOUND_STREAMING) && url != "") - return // Nope. - MP_DEBUG("\green Sending update to WMP ([url])...") - owner << output(list2params(list(url, (world.time - start_time) / 10, get_volume())), "[window]:SetMusic") - - proc/stop_music() - url="" - start_time=world.time - send_update() - - // Scan for media sources and use them. - proc/update_music() - var/targetURL = "" - var/targetStartTime = 0 - - if(!owner) - //testing("owner is null") - return - - var/area/A = get_area_master(mob) - if(!A) - //testing("[owner] in [mob.loc]. Aborting.") - stop_music() - return - var/obj/machinery/media/M = A.media_source - if(M && M.playing) - targetURL = M.media_url - targetStartTime = M.media_start_time -// to_chat(owner, "Found audio source: [M.media_url] @ [(world.time - start_time) / 10]s.") - //else - // testing("M is not playing or null.") - - if(url != targetURL || abs(targetStartTime - start_time) > 1) - url = targetURL - start_time = targetStartTime - send_update() - - proc/get_volume() - return (owner && owner.prefs) ? owner.prefs.volume : 25 - -/client/verb/change_volume() - set name = "Set Volume" - set category = "Preferences" - set desc = "Set jukebox volume" - - if(!media || !istype(media)) - to_chat(usr, "You have no media datum to change, if you're not in the lobby tell an admin.") - return - var/value = input("Choose your Jukebox volume.", "Jukebox volume", media.get_volume()) - value = round(max(0, min(100, value))) - if(prefs) - prefs.volume = value - prefs.save_preferences(src) - media.send_update() \ No newline at end of file diff --git a/code/world.dm b/code/world.dm index 508591604f0..3de52993a84 100644 --- a/code/world.dm +++ b/code/world.dm @@ -334,11 +334,6 @@ var/world_topic_spam_protect_time = world.timeofday fdel(F) F << the_mode -/hook/startup/proc/loadMusic() - for(var/obj/machinery/media/jukebox/J in machines) - J.process() - return 1 - /hook/startup/proc/loadMOTD() world.load_motd() return 1 diff --git a/config/example/config.txt b/config/example/config.txt index a3066e3d234..6787c06c24a 100644 --- a/config/example/config.txt +++ b/config/example/config.txt @@ -181,9 +181,6 @@ GUEST_BAN ## Ban appeals URL - usually for a forum or wherever people should go to contact your admins # BANAPPEALS http://example.org -## Media base URL - determines where to pull the jukebox playlist from. -# MEDIA_BASE_URL http://example.org - ## In-game features ## spawns a spellbook which gives object-type spells instead of verb-type spells for the wizard # FEATURE_OBJECT_SPELL_SYSTEM diff --git a/paradise.dme b/paradise.dme index 5847ccb02b8..37c7d2cedf2 100644 --- a/paradise.dme +++ b/paradise.dme @@ -1408,13 +1408,6 @@ #include "code\modules\martial_arts\plasma_fist.dm" #include "code\modules\martial_arts\sleeping_carp.dm" #include "code\modules\martial_arts\wrestleing.dm" -#include "code\modules\media\jukebox.dm" -#include "code\modules\media\machinery.dm" -#include "code\modules\media\mediamanager.dm" -#include "code\modules\media\broadcast\receiver.dm" -#include "code\modules\media\broadcast\transmitter.dm" -#include "code\modules\media\broadcast\receivers\radio.dm" -#include "code\modules\media\broadcast\transmitters\broadcast.dm" #include "code\modules\mining\abandonedcrates.dm" #include "code\modules\mining\coins.dm" #include "code\modules\mining\equipment_locker.dm" From 03fafac9d99dbfb201a635762a20cf702ebd1a54 Mon Sep 17 00:00:00 2001 From: FalseIncarnate Date: Sun, 14 Aug 2016 01:02:23 -0400 Subject: [PATCH 14/92] WOLOLO Cleanup v2 Moves the timer (and deconversion) to the mind datum instead of on the staff. Rewrites nullrod reskin list-building to instead rely on a variable set on the subtype of nullrod to determine whether or not to include it by default. - By default, all nullrod subtypes EXCEPT fluff subtypes and the missionary_staff subtype have this set to TRUE. - Fluff subtypes still re-add themselves to the list as appropriate through their fluff_transformations list entries, like they previously did. - This also allows future coders to potentially make new nullrod variants that are not reskin options (such as for admin-only versions, or special away mission reward versions) with better stats / effects by simply setting "reskin_selectable = FALSE" in the subtype declaration instead of manually removing the path from the list --- code/datums/mind.dm | 26 +++++++++++-- .../objects/items/weapons/holy_weapons.dm | 38 +++++++------------ 2 files changed, 37 insertions(+), 27 deletions(-) diff --git a/code/datums/mind.dm b/code/datums/mind.dm index a3c60066ef9..04eedf6a1bc 100644 --- a/code/datums/mind.dm +++ b/code/datums/mind.dm @@ -1530,7 +1530,7 @@ if(G) G.reenter_corpse() -/datum/mind/proc/make_zealot(mob/living/carbon/human/missionary) +/datum/mind/proc/make_zealot(mob/living/carbon/human/missionary, convert_duration = 6000, team_color = "red") if(!missionary || !istype(missionary)) //better provide a proper missionary or the rest of this is gonna break return 0 @@ -1566,13 +1566,33 @@ slaved.serv += current slaved.add_serv_hud(missionary.mind, "master") //handles master servent icons slaved.add_serv_hud(src, "mindslave") + + var/obj/item/clothing/under/jumpsuit = null + if(ishuman(current)) //only bother with the jumpsuit stuff if we are a human type, since we won't have the slot otherwise + var/mob/living/carbon/human/H = current + if(H.w_uniform) + jumpsuit = H.w_uniform + jumpsuit.color = team_color + H.update_inv_w_uniform(0,0) + + log_admin("[ckey(missionary.key)] has converted [ckey(current.key)] as a zealot.") + addtimer(src, "remove_zealot", convert_duration, FALSE, jumpsuit) //deconverts after the timer expires + return 1 -/datum/mind/proc/remove_zealot() +/datum/mind/proc/remove_zealot(obj/item/clothing/under/jumpsuit = null) if(!zealot_master) //if they aren't a zealot, we can't remove their zealot status, obviously. don't bother with the rest so we don't confuse them with the messages return - zealot_master = null ticker.mode.remove_traitor_mind(src) + log_admin("[ckey(current.key)] has deconverted and is no longer a zealot of [ckey(zealot_master.key)].") + zealot_master = null + + if(jumpsuit) + jumpsuit.color = initial(jumpsuit.color) //reset the jumpsuit no matter where our mind is + if(ishuman(current)) //but only try updating us if we are still a human type since it is a human proc + var/mob/living/carbon/human/H = current + H.update_inv_w_uniform(0,0) + to_chat(current, "You seem to have forgotten the events of the past 10 minutes or so, and your head aches a bit as if someone beat it savagely with a stick.") to_chat(current, "This means you don't remember who you were working for or what you were doing.") diff --git a/code/game/objects/items/weapons/holy_weapons.dm b/code/game/objects/items/weapons/holy_weapons.dm index 68c7727dc2b..f93e4b67eca 100644 --- a/code/game/objects/items/weapons/holy_weapons.dm +++ b/code/game/objects/items/weapons/holy_weapons.dm @@ -9,6 +9,7 @@ throwforce = 10 w_class = 1 var/reskinned = FALSE + var/reskin_selectable = TRUE //set to FALSE if a subtype is meant to not normally be available as a reskin option (fluff ones will get re-added through their list) var/list/fluff_transformations = list() //does it have any special transformations only accessible to it? Should only be subtypes of /obj/item/weapon/nullrod /obj/item/weapon/nullrod/suicide_act(mob/user) @@ -31,7 +32,11 @@ reskin_holy_weapon(user) /obj/item/weapon/nullrod/proc/reskin_holy_weapon(mob/M) - var/list/holy_weapons_list = typesof(/obj/item/weapon/nullrod) - typesof(/obj/item/weapon/nullrod/fluff) + var/list/holy_weapons_list = typesof(/obj/item/weapon/nullrod) + for(var/entry in holy_weapons_list) + var/obj/item/weapon/nullrod/variant = entry + if(initial(variant.reskin_selectable) == FALSE) + holy_weapons_list -= variant if(fluff_transformations.len) for(var/thing in fluff_transformations) holy_weapons_list += thing @@ -57,6 +62,9 @@ M.put_in_active_hand(holy_weapon) qdel(src) +/obj/item/weapon/nullrod/fluff //fluff subtype to be used for all donator nullrods + reskin_selectable = FALSE + /obj/item/weapon/nullrod/godhand name = "god hand" icon_state = "disintegrate" @@ -446,12 +454,13 @@ to_chat(M, "Being in the presence of [holder]'s [src] is interfering with your powers!") /obj/item/weapon/nullrod/missionary_staff - reskinned = TRUE - icon_state = "godstaff-red" - item_state = "godstaff-red" name = "holy staff" desc = "It has a mysterious, protective aura." description_antag = "This seemingly standard holy staff is actually a disguised neurotransmitter capable of inducing blind zealotry in its victims. It must be allowed to recharge in the presence of a linked set of missionary robes. Activate the staff while wearing robes to link, then aim the staff at your victim to try and convert them." + reskinned = TRUE + reskin_selectable = FALSE + icon_state = "godstaff-red" + item_state = "godstaff-red" w_class = 5 force = 5 slot_flags = SLOT_BACK @@ -558,27 +567,8 @@ to_chat(missionary, "You successfully convert [target] to your cause. The following grows because of your faith!") faith -= 100 //if you made it this far: congratulations! you are now a religious zealot! - target.mind.make_zealot(missionary) + target.mind.make_zealot(missionary, convert_duration, team_color) target << sound('sound/misc/wololo.ogg', 0, 1, 25) missionary.say("WOLOLO!") missionary << sound('sound/misc/wololo.ogg', 0, 1, 25) - - var/obj/item/clothing/under/jumpsuit = null - - if(target.w_uniform) - jumpsuit = target.w_uniform - jumpsuit.color = team_color - target.update_inv_w_uniform(0,0) - - log_admin("[ckey(missionary.key)] has converted [ckey(target.key)] as a zealot.") - addtimer(src, "do_deconvert", convert_duration, FALSE, target, missionary, jumpsuit) //deconverts after the timer expires - -/obj/item/weapon/nullrod/missionary_staff/proc/do_deconvert(mob/living/carbon/human/target, mob/living/carbon/human/missionary, obj/item/clothing/under/jumpsuit) - if(!target || !istype(target)) //if we didn't supply a target (or a non-human target), stop here - return 0 - if(jumpsuit) - jumpsuit.color = initial(jumpsuit.color) - target.update_inv_w_uniform(0,0) - target.mind.remove_zealot() - log_admin("[ckey(target.key)] has deconverted and is no longer a zealot of [ckey(missionary.key)].") \ No newline at end of file From 6a620fcdf3c04c192ff86661bcbed72ac6e53431 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sat, 13 Aug 2016 22:56:43 -0700 Subject: [PATCH 15/92] Alt click now works quickly and only deactivates when alt clicking distant tiles --- code/_onclick/click.dm | 9 +++++---- code/modules/mob/mob.dm | 29 ++++++++++++++++++----------- 2 files changed, 23 insertions(+), 15 deletions(-) diff --git a/code/_onclick/click.dm b/code/_onclick/click.dm index fa1d696a067..50653a71199 100644 --- a/code/_onclick/click.dm +++ b/code/_onclick/click.dm @@ -263,12 +263,13 @@ /atom/proc/AltClick(var/mob/user) var/turf/T = get_turf(src) - if(T && user.TurfAdjacent(T)) - if(user.listed_turf == T) - user.listed_turf = null - else + if(T) + if(user.TurfAdjacent(T)) user.listed_turf = T user.client.statpanel = T.name + // If we had a method to force a `Stat` update, it would go here + else + user.listed_turf = null return /mob/proc/TurfAdjacent(var/turf/T) diff --git a/code/modules/mob/mob.dm b/code/modules/mob/mob.dm index 93b94e74f9e..b2a63e7b25e 100644 --- a/code/modules/mob/mob.dm +++ b/code/modules/mob/mob.dm @@ -943,17 +943,7 @@ var/list/slot_equipment_priority = list( \ /mob/Stat() ..() - if(listed_turf && client) - if(!TurfAdjacent(listed_turf)) - listed_turf = null - else - statpanel(listed_turf.name, null, listed_turf) - for(var/atom/A in listed_turf) - if(A.invisibility > see_invisible) - continue - if(is_type_in_list(A, shouldnt_see)) - continue - statpanel(listed_turf.name, null, A) + show_stat_turf_contents() statpanel("Status") // We only want alt-clicked turfs to come before Status @@ -990,6 +980,23 @@ var/list/slot_equipment_priority = list( \ if(ETA) stat(null, "[ETA] [shuttle_master.emergency.getTimerStr()]") +/mob/proc/show_stat_turf_contents() + if(listed_turf && client) + if(!TurfAdjacent(listed_turf)) + listed_turf = null + else + statpanel(listed_turf.name, null, listed_turf) + var/list/statpanel_things = list() + for(var/foo in listed_turf) + var/atom/A = foo + if(A.invisibility > see_invisible) + continue + if(is_type_in_list(A, shouldnt_see)) + continue + statpanel_things += A + statpanel(listed_turf.name, null, statpanel_things) + + /mob/proc/add_stings_to_statpanel(var/list/stings) for(var/obj/effect/proc_holder/changeling/S in stings) if(S.chemical_cost >=0 && S.can_be_used_by(src)) From 3ca5a1f3f7307f6c428e0f1e5274dd560eb58753 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sat, 13 Aug 2016 23:05:32 -0700 Subject: [PATCH 16/92] Removes eye color vars on the human, stores it on the eyes Also adds a proc nifty for SDQL fans, which grants greater control over spawning atoms. Also fixes deserialization to make hair show up again --- code/datums/datacore.dm | 8 +- code/game/dna/dna2.dm | 5 +- code/game/dna/dna2_helpers.dm | 95 ++++++++++++------- code/game/dna/genes/vg_powers.dm | 18 +++- code/game/gamemodes/nuclear/nuclear.dm | 9 +- code/game/response_team.dm | 7 +- .../modules/admin/verbs/SDQL2/useful_procs.dm | 29 ++++++ code/modules/client/preference/preferences.dm | 6 +- .../mob/living/carbon/human/appearance.dm | 22 +++-- code/modules/mob/living/carbon/human/human.dm | 2 +- .../mob/living/carbon/human/human_defines.dm | 5 - .../mob/living/carbon/human/update_icons.dm | 37 -------- code/modules/mob/living/carbon/superheroes.dm | 6 +- code/modules/mob/mob_defines.dm | 2 +- code/modules/nano/modules/human_appearance.dm | 23 ++++- code/modules/space_management/space_chunk.dm | 11 +++ code/modules/surgery/organs/augments_eyes.dm | 36 ++----- code/modules/surgery/organs/organ_icon.dm | 36 +++---- code/modules/surgery/organs/organ_internal.dm | 19 +--- .../surgery/organs/subtypes/standard.dm | 4 + paradise.dme | 1 + 21 files changed, 212 insertions(+), 169 deletions(-) create mode 100644 code/modules/admin/verbs/SDQL2/useful_procs.dm diff --git a/code/datums/datacore.dm b/code/datums/datacore.dm index f9c3ce39b08..46d83bdb0c2 100644 --- a/code/datums/datacore.dm +++ b/code/datums/datacore.dm @@ -129,6 +129,7 @@ proc/get_id_photo(var/mob/living/carbon/human/H) var/icon/preview_icon = null var/obj/item/organ/external/head/head_organ = H.get_organ("head") + var/obj/item/organ/internal/eyes/eyes_organ = H.get_int_organ(/obj/item/organ/internal/eyes) var/g = "m" if(H.gender == FEMALE) @@ -170,7 +171,12 @@ proc/get_id_photo(var/mob/living/carbon/human/H) var/icon/face_s = new/icon("icon" = 'icons/mob/human_face.dmi', "icon_state" = "bald_s") if(!(H.species.bodyflags & NO_EYES)) var/icon/eyes_s = new/icon("icon" = 'icons/mob/human_face.dmi', "icon_state" = H.species ? H.species.eyes : "eyes_s") - eyes_s.Blend(rgb(H.r_eyes, H.g_eyes, H.b_eyes), ICON_ADD) + if(!eyes_organ) // Probably needs a means for IPCs to have their optics show + return + var/eye_red = eyes_organ.eye_colour[1] + var/eye_green = eyes_organ.eye_colour[2] + var/eye_blue = eyes_organ.eye_colour[3] + eyes_s.Blend(rgb(eye_red, eye_green, eye_blue), ICON_ADD) face_s.Blend(eyes_s, ICON_OVERLAY) var/datum/sprite_accessory/hair_style = hair_styles_list[head_organ.h_style] diff --git a/code/game/dna/dna2.dm b/code/game/dna/dna2.dm index 4224ad1aa5e..24c55089d79 100644 --- a/code/game/dna/dna2.dm +++ b/code/game/dna/dna2.dm @@ -134,6 +134,7 @@ var/global/list/bad_blocks[0] // Hair // FIXME: Species-specific defaults pls var/obj/item/organ/external/head/H = character.get_organ("head") + var/obj/item/organ/internal/eyes/eyes_organ = character.get_int_organ(/obj/item/organ/internal/eyes) if(!H.h_style) H.h_style = "Skinhead" var/hair = hair_styles_list.Find(H.h_style) @@ -166,9 +167,7 @@ var/global/list/bad_blocks[0] SetUIValueRange(DNA_UI_BEARD_G, H.g_facial, 255, 1) SetUIValueRange(DNA_UI_BEARD_B, H.b_facial, 255, 1) - SetUIValueRange(DNA_UI_EYES_R, character.r_eyes, 255, 1) - SetUIValueRange(DNA_UI_EYES_G, character.g_eyes, 255, 1) - SetUIValueRange(DNA_UI_EYES_B, character.b_eyes, 255, 1) + eye_color_to_dna(eyes_organ) SetUIValueRange(DNA_UI_SKIN_R, character.r_skin, 255, 1) SetUIValueRange(DNA_UI_SKIN_G, character.g_skin, 255, 1) diff --git a/code/game/dna/dna2_helpers.dm b/code/game/dna/dna2_helpers.dm index 5bc984b11ac..aed47fa5400 100644 --- a/code/game/dna/dna2_helpers.dm +++ b/code/game/dna/dna2_helpers.dm @@ -132,33 +132,16 @@ dna.check_integrity() var/mob/living/carbon/human/H = src var/obj/item/organ/external/head/head_organ = H.get_organ("head") - head_organ.r_hair = dna.GetUIValueRange(DNA_UI_HAIR_R, 255) - head_organ.g_hair = dna.GetUIValueRange(DNA_UI_HAIR_G, 255) - head_organ.b_hair = dna.GetUIValueRange(DNA_UI_HAIR_B, 255) - - head_organ.r_facial = dna.GetUIValueRange(DNA_UI_BEARD_R, 255) - head_organ.g_facial = dna.GetUIValueRange(DNA_UI_BEARD_G, 255) - head_organ.b_facial = dna.GetUIValueRange(DNA_UI_BEARD_B, 255) + dna.write_head_attributes(head_organ) H.r_skin = dna.GetUIValueRange(DNA_UI_SKIN_R, 255) H.g_skin = dna.GetUIValueRange(DNA_UI_SKIN_G, 255) H.b_skin = dna.GetUIValueRange(DNA_UI_SKIN_B, 255) - H.r_eyes = dna.GetUIValueRange(DNA_UI_EYES_R, 255) - H.g_eyes = dna.GetUIValueRange(DNA_UI_EYES_G, 255) - H.b_eyes = dna.GetUIValueRange(DNA_UI_EYES_B, 255) - - head_organ.r_headacc = dna.GetUIValueRange(DNA_UI_HACC_R, 255) - head_organ.g_headacc = dna.GetUIValueRange(DNA_UI_HACC_G, 255) - head_organ.b_headacc = dna.GetUIValueRange(DNA_UI_HACC_B, 255) - H.r_markings = dna.GetUIValueRange(DNA_UI_MARK_R, 255) H.g_markings = dna.GetUIValueRange(DNA_UI_MARK_G, 255) H.b_markings = dna.GetUIValueRange(DNA_UI_MARK_B, 255) - - H.update_eyes() - H.s_tone = 35 - dna.GetUIValueRange(DNA_UI_SKIN_TONE, 220) // Value can be negative. if(dna.GetUIState(DNA_UI_GENDER)) @@ -166,21 +149,6 @@ else H.change_gender(MALE, 0) - //Hair - var/hair = dna.GetUIValueRange(DNA_UI_HAIR_STYLE,hair_styles_list.len) - if((0 < hair) && (hair <= hair_styles_list.len)) - head_organ.h_style = hair_styles_list[hair] - - //Facial Hair - var/beard = dna.GetUIValueRange(DNA_UI_BEARD_STYLE,facial_hair_styles_list.len) - if((0 < beard) && (beard <= facial_hair_styles_list.len)) - head_organ.f_style = facial_hair_styles_list[beard] - - //Head Accessories - var/headacc = dna.GetUIValueRange(DNA_UI_HACC_STYLE,head_accessory_styles_list.len) - if((0 < headacc) && (headacc <= head_accessory_styles_list.len)) - head_organ.ha_style = head_accessory_styles_list[headacc] - //Markings var/marks = dna.GetUIValueRange(DNA_UI_MARK_STYLE,marking_styles_list.len) if((0 < marks) && (marks <= marking_styles_list.len)) @@ -196,3 +164,64 @@ return 1 else return 0 + +/* + ORGAN WRITING PROCS +*/ + + +// I'm putting this here because nothing outside the DNA module should ever have +// to directly mess with the guts of DNA code + +// This proc applies the DNA's information to the given head +/datum/dna/proc/write_head_attributes(obj/item/organ/external/head/head_organ) + + //Hair + var/hair = GetUIValueRange(DNA_UI_HAIR_STYLE,hair_styles_list.len) + if((0 < hair) && (hair <= hair_styles_list.len)) + head_organ.h_style = hair_styles_list[hair] + + head_organ.r_hair = GetUIValueRange(DNA_UI_HAIR_R, 255) + head_organ.g_hair = GetUIValueRange(DNA_UI_HAIR_G, 255) + head_organ.b_hair = GetUIValueRange(DNA_UI_HAIR_B, 255) + + //Facial Hair + var/beard = GetUIValueRange(DNA_UI_BEARD_STYLE,facial_hair_styles_list.len) + if((0 < beard) && (beard <= facial_hair_styles_list.len)) + head_organ.f_style = facial_hair_styles_list[beard] + + head_organ.r_facial = GetUIValueRange(DNA_UI_BEARD_R, 255) + head_organ.g_facial = GetUIValueRange(DNA_UI_BEARD_G, 255) + head_organ.b_facial = GetUIValueRange(DNA_UI_BEARD_B, 255) + + //Head Accessories + var/headacc = GetUIValueRange(DNA_UI_HACC_STYLE,head_accessory_styles_list.len) + if((0 < headacc) && (headacc <= head_accessory_styles_list.len)) + head_organ.ha_style = head_accessory_styles_list[headacc] + + head_organ.r_headacc = GetUIValueRange(DNA_UI_HACC_R, 255) + head_organ.g_headacc = GetUIValueRange(DNA_UI_HACC_G, 255) + head_organ.b_headacc = GetUIValueRange(DNA_UI_HACC_B, 255) + +// This proc gives the DNA info for eye color to the given eyes +/datum/dna/proc/write_eyes_attributes(obj/item/organ/internal/eyes/eyes_organ) + eyes_organ.eye_colour = list( + GetUIValueRange(DNA_UI_EYES_R, 255), + GetUIValueRange(DNA_UI_EYES_G, 255), + GetUIValueRange(DNA_UI_EYES_B, 255) + ) + +/* + TRAIT CHANGING PROCS +*/ +/datum/dna/proc/eye_color_to_dna(obj/item/organ/internal/eyes/eyes_organ) + if(!eyes_organ) + // In absence of eyes, possibly randomize the eye color DNA? + return + + var/eye_red = eyes_organ.eye_colour[1] + var/eye_green = eyes_organ.eye_colour[2] + var/eye_blue = eyes_organ.eye_colour[3] + SetUIValueRange(DNA_UI_EYES_R, eye_red, 255, 1) + SetUIValueRange(DNA_UI_EYES_G, eye_green, 255, 1) + SetUIValueRange(DNA_UI_EYES_B, eye_blue, 255, 1) diff --git a/code/game/dna/genes/vg_powers.dm b/code/game/dna/genes/vg_powers.dm index 7ed7f3fea97..992e4326317 100644 --- a/code/game/dna/genes/vg_powers.dm +++ b/code/game/dna/genes/vg_powers.dm @@ -36,6 +36,7 @@ return var/mob/living/carbon/human/M=usr var/obj/item/organ/external/head/head_organ = M.get_organ("head") + var/obj/item/organ/internal/eyes/eyes_organ = M.get_int_organ(/obj/item/organ/internal/eyes) var/new_gender = alert(usr, "Please select gender.", "Character Generation", "Male", "Female") if(new_gender) @@ -44,12 +45,19 @@ else M.change_gender(FEMALE) - var/new_eyes = input("Please select eye color.", "Character Generation", rgb(M.r_eyes,M.g_eyes,M.b_eyes)) as null|color + var/eyes_red = 0 + var/eyes_green = 0 + var/eyes_blue = 0 + if(eyes_organ) + eyes_red = eyes_organ.eye_colour[1] + eyes_green = eyes_organ.eye_colour[2] + eyes_blue = eyes_organ.eye_colour[3] + var/new_eyes = input("Please select eye color.", "Character Generation", rgb(eyes_red,eyes_green,eyes_blue)) as null|color if(new_eyes) - M.r_eyes = hex2num(copytext(new_eyes, 2, 4)) - M.g_eyes = hex2num(copytext(new_eyes, 4, 6)) - M.b_eyes = hex2num(copytext(new_eyes, 6, 8)) - M.change_eye_color(M.r_eyes, M.g_eyes, M.b_eyes) + eyes_red = hex2num(copytext(new_eyes, 2, 4)) + eyes_green = hex2num(copytext(new_eyes, 4, 6)) + eyes_blue = hex2num(copytext(new_eyes, 6, 8)) + M.change_eye_color(eyes_red, eyes_green, eyes_blue) // hair var/list/valid_hairstyles = M.generate_valid_hairstyles() diff --git a/code/game/gamemodes/nuclear/nuclear.dm b/code/game/gamemodes/nuclear/nuclear.dm index f5fdd85242f..1a607bea3ca 100644 --- a/code/game/gamemodes/nuclear/nuclear.dm +++ b/code/game/gamemodes/nuclear/nuclear.dm @@ -154,9 +154,10 @@ proc/issyndicate(mob/living/M as mob) head_organ.r_hair = hex2num(copytext(hair_c, 2, 4)) head_organ.g_hair = hex2num(copytext(hair_c, 4, 6)) head_organ.b_hair = hex2num(copytext(hair_c, 6, 8)) - M.r_eyes = hex2num(copytext(eye_c, 2, 4)) - M.g_eyes = hex2num(copytext(eye_c, 4, 6)) - M.b_eyes = hex2num(copytext(eye_c, 6, 8)) + var/eyes_red = hex2num(copytext(eye_c, 2, 4)) + var/eyes_green = hex2num(copytext(eye_c, 4, 6)) + var/eyes_blue = hex2num(copytext(eye_c, 6, 8)) + M.change_eye_color(eyes_red, eyes_green, eyes_blue) M.s_tone = skin_tone head_organ.h_style = hair_style head_organ.f_style = facial_hair_style @@ -517,4 +518,4 @@ proc/issyndicate(mob/living/M as mob) dat += "Station Destroyed: [score_nuked ? "Yes" : "No"] (-[score_nuked_penalty] Points)
" dat += "
" - return dat \ No newline at end of file + return dat diff --git a/code/game/response_team.dm b/code/game/response_team.dm index 9e5605c3b28..81e800a2b00 100644 --- a/code/game/response_team.dm +++ b/code/game/response_team.dm @@ -173,9 +173,10 @@ var/ert_request_answered = 0 head_organ.r_hair = hex2num(copytext(hair_c, 2, 4)) head_organ.g_hair = hex2num(copytext(hair_c, 4, 6)) head_organ.b_hair = hex2num(copytext(hair_c, 6, 8)) - M.r_eyes = hex2num(copytext(eye_c, 2, 4)) - M.g_eyes = hex2num(copytext(eye_c, 4, 6)) - M.b_eyes = hex2num(copytext(eye_c, 6, 8)) + var/eyes_red = hex2num(copytext(eye_c, 2, 4)) + var/eyes_green = hex2num(copytext(eye_c, 4, 6)) + var/eyes_blue = hex2num(copytext(eye_c, 6, 8)) + M.change_eye_color(eyes_red, eyes_green, eyes_blue) M.s_tone = skin_tone head_organ.h_style = hair_style head_organ.f_style = facial_hair_style diff --git a/code/modules/admin/verbs/SDQL2/useful_procs.dm b/code/modules/admin/verbs/SDQL2/useful_procs.dm new file mode 100644 index 00000000000..4476131fc41 --- /dev/null +++ b/code/modules/admin/verbs/SDQL2/useful_procs.dm @@ -0,0 +1,29 @@ +// This one's for you, SDQL fans + +// Give this a string and a location to create the object. Examples of functioning +// strings for this function: +/* +{"type":"/obj/item/weapon/crowbar", "color":"#FF0000","force":5000,"name":"Greytide's Gravedigger"} +*/ +// This is a bit more flexible than the serialization interface because that interface +// expects a rigid structure for the data +/proc/json_to_object_arbitrary_vars(json_data, position) + var/data = json_decode(json_data) + return list_to_object_arbitrary_vars(data, position) + + +/proc/list_to_object_arbitrary_vars(list/data, position) + if(!islist(data)) + throw EXCEPTION("Not a list.") + if(!("type" in data)) + throw EXCEPTION("No 'type' field in the data") + var/path = text2path(data["type"]) + if(!path) + throw EXCEPTION("Path not found: [path]") + + var/atom/movable/thing = new path(position) + data -= "type" + for(var/attribute in data) + thing.vars[attribute] = data[attribute] + + return thing diff --git a/code/modules/client/preference/preferences.dm b/code/modules/client/preference/preferences.dm index a78e65eec79..c360c26b7e5 100644 --- a/code/modules/client/preference/preferences.dm +++ b/code/modules/client/preference/preferences.dm @@ -1851,9 +1851,7 @@ var/global/list/special_role_times = list( //minimum age (in days) for accounts character.age = age character.b_type = b_type - character.r_eyes = r_eyes - character.g_eyes = g_eyes - character.b_eyes = b_eyes + character.change_eye_color(r_eyes, g_eyes, b_eyes) //Head-specific var/obj/item/organ/external/head/H = character.get_organ("head") @@ -2016,4 +2014,4 @@ var/global/list/special_role_times = list( //minimum age (in days) for accounts popup.open(0) /datum/preferences/proc/close_load_dialog(mob/user) - user << browse(null, "window=saves") \ No newline at end of file + user << browse(null, "window=saves") diff --git a/code/modules/mob/living/carbon/human/appearance.dm b/code/modules/mob/living/carbon/human/appearance.dm index ca241306f00..c4fb4b89dac 100644 --- a/code/modules/mob/living/carbon/human/appearance.dm +++ b/code/modules/mob/living/carbon/human/appearance.dm @@ -170,14 +170,24 @@ H.ha_style = "None" update_head_accessory() -/mob/living/carbon/human/proc/change_eye_color(var/red, var/green, var/blue) - if(red == r_eyes && green == g_eyes && blue == b_eyes) - return +/mob/living/carbon/human/proc/change_eye_color(var/red, var/green, var/blue, update_dna = 1) + // Update the main DNA datum, then sync the change across the organs + var/obj/item/organ/internal/eyes/eyes_organ = get_int_organ(/obj/item/organ/internal/eyes) + if(eyes_organ) + var/eyes_red = eyes_organ.eye_colour[1] + var/eyes_green = eyes_organ.eye_colour[2] + var/eyes_blue = eyes_organ.eye_colour[3] + if(red == eyes_red && green == eyes_green && blue == eyes_blue) + return - r_eyes = red - g_eyes = green - b_eyes = blue + eyes_organ.eye_colour[1] = red + eyes_organ.eye_colour[2] = green + eyes_organ.eye_colour[3] = blue + dna.eye_color_to_dna(eyes_organ) + if(update_dna) + update_dna() + sync_organ_dna(assimilate=0) update_eyes() update_body() return 1 diff --git a/code/modules/mob/living/carbon/human/human.dm b/code/modules/mob/living/carbon/human/human.dm index 5f2de47752c..48111b46d8a 100644 --- a/code/modules/mob/living/carbon/human/human.dm +++ b/code/modules/mob/living/carbon/human/human.dm @@ -2081,7 +2081,6 @@ dna.deserialize(data["dna"]) real_name = dna.real_name name = real_name - UpdateAppearance() set_species(dna.species) age = data["age"] undershirt = data["ushirt"] @@ -2105,6 +2104,7 @@ // As above, "New" code handles insertion, DNA sync list_to_object(organs_list[organ], src) + UpdateAppearance() // De-serialize equipment // #1: Jumpsuit diff --git a/code/modules/mob/living/carbon/human/human_defines.dm b/code/modules/mob/living/carbon/human/human_defines.dm index a74409a9b44..9fb4058d4d9 100644 --- a/code/modules/mob/living/carbon/human/human_defines.dm +++ b/code/modules/mob/living/carbon/human/human_defines.dm @@ -9,11 +9,6 @@ var/global/default_martial_art = new/datum/martial_art var/b_markings = 0 var/m_style = "None" - //Eye colour - var/r_eyes = 0 - var/g_eyes = 0 - var/b_eyes = 0 - var/s_tone = 0 //Skin tone //Skin colour diff --git a/code/modules/mob/living/carbon/human/update_icons.dm b/code/modules/mob/living/carbon/human/update_icons.dm index b919912a6c1..8f7ed81a5fa 100644 --- a/code/modules/mob/living/carbon/human/update_icons.dm +++ b/code/modules/mob/living/carbon/human/update_icons.dm @@ -1301,43 +1301,6 @@ var/global/list/damage_icon_parts = list() if(update_icons) update_icons() - -// Used mostly for creating head items -/mob/living/carbon/human/proc/generate_head_icon() -//gender no longer matters for the mouth, although there should probably be seperate base head icons. -// var/g = "m" -// if(gender == FEMALE) g = "f" - var/obj/item/organ/external/head/H = get_organ("head") - //base icons - var/icon/face_lying = new /icon('icons/mob/human_face.dmi',"bald_l") - - - if(H.f_style) - var/datum/sprite_accessory/facial_hair_style = facial_hair_styles_list[H.f_style] - if(facial_hair_style) - var/icon/facial_l = new/icon("icon" = facial_hair_style.icon, "icon_state" = "[facial_hair_style.icon_state]_l") - facial_l.Blend(rgb(H.r_facial, H.g_facial, H.b_facial), ICON_ADD) - face_lying.Blend(facial_l, ICON_OVERLAY) - - if(H.h_style) - var/datum/sprite_accessory/hair_style = hair_styles_list[H.h_style] - if(hair_style) - var/icon/hair_l = new/icon("icon" = hair_style.icon, "icon_state" = "[hair_style.icon_state]_l") - hair_l.Blend(rgb(H.r_hair, H.g_hair, H.b_hair), ICON_ADD) - face_lying.Blend(hair_l, ICON_OVERLAY) - - //Eyes - // Note: These used to be in update_face(), and the fact they're here will make it difficult to create a disembodied head - var/icon/eyes_l = new/icon('icons/mob/human_face.dmi', "eyes_l") - eyes_l.Blend(rgb(r_eyes, g_eyes, b_eyes), ICON_ADD) - face_lying.Blend(eyes_l, ICON_OVERLAY) - - if(lip_style) - face_lying.Blend(new/icon('icons/mob/human_face.dmi', "lips_[lip_style]_l"), ICON_OVERLAY) - - var/image/face_lying_image = new /image(icon = face_lying) - return face_lying_image - /mob/living/carbon/human/proc/force_update_limbs() for(var/obj/item/organ/external/O in organs) O.sync_colour_to_human(src) diff --git a/code/modules/mob/living/carbon/superheroes.dm b/code/modules/mob/living/carbon/superheroes.dm index 862a44eb57b..60e1cd82654 100644 --- a/code/modules/mob/living/carbon/superheroes.dm +++ b/code/modules/mob/living/carbon/superheroes.dm @@ -215,9 +215,8 @@ head_organ.h_style = "Bald" head_organ.f_style = "Shaved" target.s_tone = 35 - target.r_eyes = 1 - target.b_eyes = 1 - target.g_eyes = 1 + // No `update_dna=0` here because the character is being over-written + target.change_eye_color(1,1,1) for(var/obj/item/W in target) if(istype(W,/obj/item/organ)) continue target.unEquip(W) @@ -233,4 +232,3 @@ target.equip_to_slot_or_del(W, slot_wear_id) target.equip_to_slot_or_del(new /obj/item/device/radio/headset(target), slot_l_ear) target.regenerate_icons() - diff --git a/code/modules/mob/mob_defines.dm b/code/modules/mob/mob_defines.dm index e4765b4f106..3e56307b206 100644 --- a/code/modules/mob/mob_defines.dm +++ b/code/modules/mob/mob_defines.dm @@ -214,4 +214,4 @@ var/list/permanent_huds = list() - var/list/actions = list() \ No newline at end of file + var/list/actions = list() diff --git a/code/modules/nano/modules/human_appearance.dm b/code/modules/nano/modules/human_appearance.dm index ee289cfec9b..5a60d261c91 100644 --- a/code/modules/nano/modules/human_appearance.dm +++ b/code/modules/nano/modules/human_appearance.dm @@ -30,6 +30,8 @@ if(can_change(APPEARANCE_RACE) && (href_list["race"] in valid_species)) if(owner.change_species(href_list["race"])) cut_and_generate_data() + // Species change creates new organs - runtimes ahoy if we forget this + head_organ = owner.get_organ("head") return 1 if(href_list["gender"]) if(can_change(APPEARANCE_GENDER)) @@ -102,7 +104,15 @@ return 1 if(href_list["eye_color"]) if(can_change(APPEARANCE_EYE_COLOR)) - var/new_eyes = input("Please select eye color.", "Eye Color", rgb(owner.r_eyes, owner.g_eyes, owner.b_eyes)) as color|null + var/obj/item/organ/internal/eyes/eyes_organ = owner.get_int_organ(/obj/item/organ/internal/eyes) + var/eyes_red = 0 + var/eyes_green = 0 + var/eyes_blue = 0 + if(eyes_organ) + eyes_red = eyes_organ.eye_colour[1] + eyes_green = eyes_organ.eye_colour[2] + eyes_blue = eyes_organ.eye_colour[3] + var/new_eyes = input("Please select eye color.", "Eye Color", rgb(eyes_red, eyes_green, eyes_blue)) as color|null if(new_eyes && can_still_topic(state)) var/r_eyes = hex2num(copytext(new_eyes, 2, 4)) var/g_eyes = hex2num(copytext(new_eyes, 4, 6)) @@ -158,7 +168,7 @@ if(data["change_race"]) var/species[0] for(var/specimen in valid_species) - species[++species.len] = list("specimen" = specimen) + species[++species.len] = list("specimen" = specimen) data["species"] = species data["change_gender"] = can_change(APPEARANCE_GENDER) @@ -171,7 +181,7 @@ for(var/head_accessory_style in valid_head_accessories) head_accessory_styles[++head_accessory_styles.len] = list("headaccessorystyle" = head_accessory_style) data["head_accessory_styles"] = head_accessory_styles - data["head_accessory_style"] = head_organ.ha_style + data["head_accessory_style"] = (head_organ ? head_organ.ha_style : "None") data["change_hair"] = can_change(APPEARANCE_HAIR) if(data["change_hair"]) @@ -179,7 +189,7 @@ for(var/hair_style in valid_hairstyles) hair_styles[++hair_styles.len] = list("hairstyle" = hair_style) data["hair_styles"] = hair_styles - data["hair_style"] = head_organ.h_style + data["hair_style"] = (head_organ ? head_organ.h_style : "Skinhead") data["change_facial_hair"] = can_change(APPEARANCE_FACIAL_HAIR) if(data["change_facial_hair"]) @@ -187,7 +197,7 @@ for(var/facial_hair_style in valid_facial_hairstyles) facial_hair_styles[++facial_hair_styles.len] = list("facialhairstyle" = facial_hair_style) data["facial_hair_styles"] = facial_hair_styles - data["facial_hair_style"] = head_organ.f_style + data["facial_hair_style"] = (head_organ ? head_organ.f_style : "Shaved") data["change_markings"] = can_change_markings() if(data["change_markings"]) @@ -233,6 +243,9 @@ return owner && (flags & APPEARANCE_SKIN) && (owner.species.bodyflags & HAS_SKIN_COLOR) /datum/nano_module/appearance_changer/proc/can_change_head_accessory() + if(!head_organ) + log_debug("Missing head!") + return 0 return owner && (flags & APPEARANCE_HEAD_ACCESSORY) && (head_organ.species.bodyflags & HAS_HEAD_ACCESSORY) /datum/nano_module/appearance_changer/proc/can_change_markings() diff --git a/code/modules/space_management/space_chunk.dm b/code/modules/space_management/space_chunk.dm index b7764e5673e..a150d25d2f3 100644 --- a/code/modules/space_management/space_chunk.dm +++ b/code/modules/space_management/space_chunk.dm @@ -1,3 +1,9 @@ +// I'd use consts here, but our coding standard is silly and demonizes usage +// of that. +#define BOTTOM_LEFT_CHUNK 1 +#define BOTTOM_RIGHT_CHUNK 2 +#define TOP_LEFT_CHUNK 3 +#define TOP_RIGHT_CHUNK 4 /datum/space_chunk var/x var/y @@ -22,3 +28,8 @@ /datum/space_chunk/proc/return_turfs() return + +#undef BOTTOM_LEFT_CHUNK +#undef BOTTOM_RIGHT_CHUNK +#undef TOP_LEFT_CHUNK +#undef TOP_RIGHT_CHUNK diff --git a/code/modules/surgery/organs/augments_eyes.dm b/code/modules/surgery/organs/augments_eyes.dm index 679a98c98f4..fbbd911e45e 100644 --- a/code/modules/surgery/organs/augments_eyes.dm +++ b/code/modules/surgery/organs/augments_eyes.dm @@ -12,29 +12,19 @@ var/list/old_eye_colour = list(0,0,0) var/flash_protect = 0 var/aug_message = "Your vision is augmented!" - -/obj/item/organ/internal/cyberimp/eyes/proc/update_colour() - if(!owner) - return - eye_colour = list( - owner.r_eyes ? owner.r_eyes : 0, - owner.g_eyes ? owner.g_eyes : 0, - owner.b_eyes ? owner.b_eyes : 0 - ) +// +// /obj/item/organ/internal/cyberimp/eyes/proc/update_colour() +// if(!owner) +// return +// eye_colour = list( +// owner.r_eyes ? owner.r_eyes : 0, +// owner.g_eyes ? owner.g_eyes : 0, +// owner.b_eyes ? owner.b_eyes : 0 +// ) /obj/item/organ/internal/cyberimp/eyes/insert(var/mob/living/carbon/M, var/special = 0) ..() - if(istype(owner, /mob/living/carbon/human) && eye_colour) - var/mob/living/carbon/human/HMN = owner - old_eye_colour[1] = HMN.r_eyes - old_eye_colour[2] = HMN.g_eyes - old_eye_colour[2] = HMN.b_eyes - - HMN.r_eyes = eye_colour[1] - HMN.g_eyes = eye_colour[2] - HMN.b_eyes = eye_colour[3] - HMN.update_eyes() if(aug_message && !special) to_chat(owner, "[aug_message]") M.sight |= vision_flags @@ -42,12 +32,6 @@ /obj/item/organ/internal/cyberimp/eyes/remove(var/mob/living/carbon/M, var/special = 0) ..() M.sight ^= vision_flags - if(istype(owner,/mob/living/carbon/human) && eye_colour) - var/mob/living/carbon/human/HMN = owner - HMN.r_eyes = old_eye_colour[1] - HMN.g_eyes = old_eye_colour[2] - HMN.b_eyes = old_eye_colour[3] - HMN.update_eyes() /obj/item/organ/internal/cyberimp/eyes/on_life() ..() @@ -132,4 +116,4 @@ // Welding with thermals will still hurt your eyes a bit. /obj/item/organ/internal/cyberimp/eyes/shield/emp_act(severity) - return \ No newline at end of file + return diff --git a/code/modules/surgery/organs/organ_icon.dm b/code/modules/surgery/organs/organ_icon.dm index 49777aa4a5c..d3690cb5740 100644 --- a/code/modules/surgery/organs/organ_icon.dm +++ b/code/modules/surgery/organs/organ_icon.dm @@ -55,13 +55,15 @@ var/global/list/limb_icon_cache = list() overlays.Cut() if(!owner) return - var/obj/item/organ/external/head/H = owner.get_organ("head") if(species.has_organ["eyes"]) - var/obj/item/organ/internal/eyes/eyes = owner.get_int_organ(/obj/item/organ/internal/eyes)//owner.internal_organs_by_name["eyes"] + var/obj/item/organ/internal/eyes/eyes = owner.get_int_organ(/obj/item/organ/internal/eyes) + var/obj/item/organ/internal/cyberimp/eyes/eye_implant = owner.get_int_organ(/obj/item/organ/internal/cyberimp/eyes) if(species.eyes) var/icon/eyes_icon = new/icon('icons/mob/human_face.dmi', species.eyes) - if(eyes) + if(eye_implant) // Eye implants override native DNA eye color + eyes_icon.Blend(rgb(eye_implant.eye_colour[1],eye_implant.eye_colour[2],eye_implant.eye_colour[3]), ICON_ADD) + else if(eyes) eyes_icon.Blend(rgb(eyes.eye_colour[1], eyes.eye_colour[2], eyes.eye_colour[3]), ICON_ADD) else eyes_icon.Blend(rgb(128,0,0), ICON_ADD) @@ -81,32 +83,32 @@ var/global/list/limb_icon_cache = list() markings_s.Blend(rgb(owner.r_markings, owner.g_markings, owner.b_markings), ICON_ADD) overlays |= markings_s - if(H.ha_style) - var/datum/sprite_accessory/head_accessory_style = head_accessory_styles_list[H.ha_style] - if(head_accessory_style && head_accessory_style.species_allowed && (H.species.name in head_accessory_style.species_allowed)) + if(ha_style) + var/datum/sprite_accessory/head_accessory_style = head_accessory_styles_list[ha_style] + if(head_accessory_style && head_accessory_style.species_allowed && (species.name in head_accessory_style.species_allowed)) var/icon/head_accessory_s = new/icon("icon" = head_accessory_style.icon, "icon_state" = "[head_accessory_style.icon_state]_s") if(head_accessory_style.do_colouration) - head_accessory_s.Blend(rgb(H.r_headacc, H.g_headacc, H.b_headacc), ICON_ADD) + head_accessory_s.Blend(rgb(r_headacc, g_headacc, b_headacc), ICON_ADD) overlays |= head_accessory_s - if(H.f_style) - var/datum/sprite_accessory/facial_hair_style = facial_hair_styles_list[H.f_style] - if(facial_hair_style && ((facial_hair_style.species_allowed && (H.species.name in facial_hair_style.species_allowed)) || (src.species.flags & ALL_RPARTS))) + if(f_style) + var/datum/sprite_accessory/facial_hair_style = facial_hair_styles_list[f_style] + if(facial_hair_style && ((facial_hair_style.species_allowed && (species.name in facial_hair_style.species_allowed)) || (src.species.flags & ALL_RPARTS))) var/icon/facial_s = new/icon("icon" = facial_hair_style.icon, "icon_state" = "[facial_hair_style.icon_state]_s") - if(H.species.name == "Slime People") // I am el worstos + if(species.name == "Slime People") // I am el worstos facial_s.Blend(rgb(owner.r_skin, owner.g_skin, owner.b_skin, 160), ICON_AND) else if(facial_hair_style.do_colouration) - facial_s.Blend(rgb(H.r_facial, H.g_facial, H.b_facial), ICON_ADD) + facial_s.Blend(rgb(r_facial, g_facial, b_facial), ICON_ADD) overlays |= facial_s - if(H.h_style && !(owner.head && (owner.head.flags & BLOCKHEADHAIR))) - var/datum/sprite_accessory/hair_style = hair_styles_list[H.h_style] - if(hair_style && ((H.species.name in hair_style.species_allowed) || (src.species.flags & ALL_RPARTS))) + if(h_style && !(owner.head && (owner.head.flags & BLOCKHEADHAIR))) + var/datum/sprite_accessory/hair_style = hair_styles_list[h_style] + if(hair_style && ((species.name in hair_style.species_allowed) || (src.species.flags & ALL_RPARTS))) var/icon/hair_s = new/icon("icon" = hair_style.icon, "icon_state" = "[hair_style.icon_state]_s") - if(H.species.name == "Slime People") // I am el worstos + if(species.name == "Slime People") // I am el worstos hair_s.Blend(rgb(owner.r_skin, owner.g_skin, owner.b_skin, 160), ICON_AND) else if(hair_style.do_colouration) - hair_s.Blend(rgb(H.r_hair, H.g_hair, H.b_hair), ICON_ADD) + hair_s.Blend(rgb(r_hair, g_hair, b_hair), ICON_ADD) overlays |= hair_s return mob_icon diff --git a/code/modules/surgery/organs/organ_internal.dm b/code/modules/surgery/organs/organ_internal.dm index 9c28a60b055..990c807f0aa 100644 --- a/code/modules/surgery/organs/organ_internal.dm +++ b/code/modules/surgery/organs/organ_internal.dm @@ -335,23 +335,14 @@ var/list/eye_colour = list(0,0,0) /obj/item/organ/internal/eyes/proc/update_colour() - if(!owner) - return - eye_colour = list( - owner.r_eyes ? owner.r_eyes : 0, - owner.g_eyes ? owner.g_eyes : 0, - owner.b_eyes ? owner.b_eyes : 0 - ) + dna.write_eyes_attributes(src) /obj/item/organ/internal/eyes/insert(mob/living/carbon/M, special = 0) -// Apply our eye colour to the target. - if(istype(M) && eye_colour) - var/mob/living/carbon/human/eyes = M - eyes.r_eyes = eye_colour[1] - eyes.g_eyes = eye_colour[2] - eyes.b_eyes = eye_colour[3] - eyes.update_eyes() ..() + if(istype(M) && eye_colour) + var/mob/living/carbon/human/H = M + // Apply our eye colour to the target. + H.update_body() /obj/item/organ/internal/eyes/surgeryize() if(!owner) diff --git a/code/modules/surgery/organs/subtypes/standard.dm b/code/modules/surgery/organs/subtypes/standard.dm index 1c6240318fe..2c2d3fa124c 100644 --- a/code/modules/surgery/organs/subtypes/standard.dm +++ b/code/modules/surgery/organs/subtypes/standard.dm @@ -193,3 +193,7 @@ disfigure("brute") if(burn_dam > 40) disfigure("burn") + +/obj/item/organ/external/head/set_dna(datum/dna/new_dna) + ..() + new_dna.write_head_attributes(src) diff --git a/paradise.dme b/paradise.dme index 5847ccb02b8..57e5fb29d8a 100644 --- a/paradise.dme +++ b/paradise.dme @@ -1053,6 +1053,7 @@ #include "code\modules\admin\verbs\vox_raiders.dm" #include "code\modules\admin\verbs\SDQL2\SDQL_2.dm" #include "code\modules\admin\verbs\SDQL2\SDQL_2_parser.dm" +#include "code\modules\admin\verbs\SDQL2\useful_procs.dm" #include "code\modules\alarm\alarm.dm" #include "code\modules\alarm\alarm_handler.dm" #include "code\modules\alarm\atmosphere_alarm.dm" From d523521f5f9882993156b541f2723a4182e71552 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sat, 13 Aug 2016 23:17:31 -0700 Subject: [PATCH 17/92] Improves documentation --- code/modules/admin/verbs/SDQL2/useful_procs.dm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/modules/admin/verbs/SDQL2/useful_procs.dm b/code/modules/admin/verbs/SDQL2/useful_procs.dm index 4476131fc41..8c53895b36c 100644 --- a/code/modules/admin/verbs/SDQL2/useful_procs.dm +++ b/code/modules/admin/verbs/SDQL2/useful_procs.dm @@ -1,9 +1,9 @@ // This one's for you, SDQL fans -// Give this a string and a location to create the object. Examples of functioning -// strings for this function: +// Give this a string and a location to create the object. Examples of using +// this function: /* -{"type":"/obj/item/weapon/crowbar", "color":"#FF0000","force":5000,"name":"Greytide's Gravedigger"} +CALL global.json_to_object_arbitrary_vars("{'type':'/obj/item/weapon/crowbar', 'color':'#FF0000','force':5000,'name':'Greytides Gravedigger'}", loc) ON /mob/living/carbon/human WHERE ckey == 'crazylemon'". */ // This is a bit more flexible than the serialization interface because that interface // expects a rigid structure for the data From 2567e04d685423f8e2434c385cbcffa8a8982f05 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sat, 13 Aug 2016 23:23:52 -0700 Subject: [PATCH 18/92] Turns out IPC optics use the "marking" system --- code/datums/datacore.dm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/datums/datacore.dm b/code/datums/datacore.dm index 46d83bdb0c2..26738b137fe 100644 --- a/code/datums/datacore.dm +++ b/code/datums/datacore.dm @@ -171,7 +171,7 @@ proc/get_id_photo(var/mob/living/carbon/human/H) var/icon/face_s = new/icon("icon" = 'icons/mob/human_face.dmi', "icon_state" = "bald_s") if(!(H.species.bodyflags & NO_EYES)) var/icon/eyes_s = new/icon("icon" = 'icons/mob/human_face.dmi', "icon_state" = H.species ? H.species.eyes : "eyes_s") - if(!eyes_organ) // Probably needs a means for IPCs to have their optics show + if(!eyes_organ) return var/eye_red = eyes_organ.eye_colour[1] var/eye_green = eyes_organ.eye_colour[2] From af8ebfc469db8d6f56a272b117ce2127b6e31151 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sat, 13 Aug 2016 23:28:39 -0700 Subject: [PATCH 19/92] Adds a helper for saving a head's traits to DNA --- code/game/dna/dna2.dm | 29 +---------------------------- code/game/dna/dna2_helpers.dm | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 35 insertions(+), 28 deletions(-) diff --git a/code/game/dna/dna2.dm b/code/game/dna/dna2.dm index 24c55089d79..347e6470869 100644 --- a/code/game/dna/dna2.dm +++ b/code/game/dna/dna2.dm @@ -135,19 +135,7 @@ var/global/list/bad_blocks[0] // FIXME: Species-specific defaults pls var/obj/item/organ/external/head/H = character.get_organ("head") var/obj/item/organ/internal/eyes/eyes_organ = character.get_int_organ(/obj/item/organ/internal/eyes) - if(!H.h_style) - H.h_style = "Skinhead" - var/hair = hair_styles_list.Find(H.h_style) - // Facial Hair - if(!H.f_style) - H.f_style = "Shaved" - var/beard = facial_hair_styles_list.Find(H.f_style) - - // Head Accessory - if(!H.ha_style) - H.ha_style = "None" - var/headacc = head_accessory_styles_list.Find(H.ha_style) /*// Body Accessory if(!character.body_accessory) @@ -159,24 +147,13 @@ var/global/list/bad_blocks[0] character.m_style = "None" var/marks = marking_styles_list.Find(character.m_style) - SetUIValueRange(DNA_UI_HAIR_R, H.r_hair, 255, 1) - SetUIValueRange(DNA_UI_HAIR_G, H.g_hair, 255, 1) - SetUIValueRange(DNA_UI_HAIR_B, H.b_hair, 255, 1) - - SetUIValueRange(DNA_UI_BEARD_R, H.r_facial, 255, 1) - SetUIValueRange(DNA_UI_BEARD_G, H.g_facial, 255, 1) - SetUIValueRange(DNA_UI_BEARD_B, H.b_facial, 255, 1) - + head_traits_to_dna(H) eye_color_to_dna(eyes_organ) SetUIValueRange(DNA_UI_SKIN_R, character.r_skin, 255, 1) SetUIValueRange(DNA_UI_SKIN_G, character.g_skin, 255, 1) SetUIValueRange(DNA_UI_SKIN_B, character.b_skin, 255, 1) - SetUIValueRange(DNA_UI_HACC_R, H.r_headacc, 255, 1) - SetUIValueRange(DNA_UI_HACC_G, H.g_headacc, 255, 1) - SetUIValueRange(DNA_UI_HACC_B, H.b_headacc, 255, 1) - SetUIValueRange(DNA_UI_MARK_R, character.r_markings, 255, 1) SetUIValueRange(DNA_UI_MARK_G, character.g_markings, 255, 1) SetUIValueRange(DNA_UI_MARK_B, character.b_markings, 255, 1) @@ -184,11 +161,7 @@ var/global/list/bad_blocks[0] SetUIValueRange(DNA_UI_SKIN_TONE, 35-character.s_tone, 220, 1) // Value can be negative. SetUIState(DNA_UI_GENDER, character.gender!=MALE, 1) - - SetUIValueRange(DNA_UI_HAIR_STYLE, hair, hair_styles_list.len, 1) - SetUIValueRange(DNA_UI_BEARD_STYLE, beard, facial_hair_styles_list.len, 1) /*SetUIValueRange(DNA_UI_BACC_STYLE, bodyacc, facial_hair_styles_list.len, 1)*/ - SetUIValueRange(DNA_UI_HACC_STYLE, headacc, head_accessory_styles_list.len, 1) SetUIValueRange(DNA_UI_MARK_STYLE, marks, marking_styles_list.len, 1) diff --git a/code/game/dna/dna2_helpers.dm b/code/game/dna/dna2_helpers.dm index aed47fa5400..3aecc2fb918 100644 --- a/code/game/dna/dna2_helpers.dm +++ b/code/game/dna/dna2_helpers.dm @@ -225,3 +225,37 @@ SetUIValueRange(DNA_UI_EYES_R, eye_red, 255, 1) SetUIValueRange(DNA_UI_EYES_G, eye_green, 255, 1) SetUIValueRange(DNA_UI_EYES_B, eye_blue, 255, 1) + +/datum/dna/proc/head_traits_to_dna(obj/item/organ/external/head/H) + if(!H) + log_debug("Attempting to reset DNA from a missing head!") + return + if(!H.h_style) + H.h_style = "Skinhead" + var/hair = hair_styles_list.Find(H.h_style) + + // Facial Hair + if(!H.f_style) + H.f_style = "Shaved" + var/beard = facial_hair_styles_list.Find(H.f_style) + + // Head Accessory + if(!H.ha_style) + H.ha_style = "None" + var/headacc = head_accessory_styles_list.Find(H.ha_style) + + SetUIValueRange(DNA_UI_HAIR_R, H.r_hair, 255, 1) + SetUIValueRange(DNA_UI_HAIR_G, H.g_hair, 255, 1) + SetUIValueRange(DNA_UI_HAIR_B, H.b_hair, 255, 1) + + SetUIValueRange(DNA_UI_BEARD_R, H.r_facial, 255, 1) + SetUIValueRange(DNA_UI_BEARD_G, H.g_facial, 255, 1) + SetUIValueRange(DNA_UI_BEARD_B, H.b_facial, 255, 1) + + SetUIValueRange(DNA_UI_HACC_R, H.r_headacc, 255, 1) + SetUIValueRange(DNA_UI_HACC_G, H.g_headacc, 255, 1) + SetUIValueRange(DNA_UI_HACC_B, H.b_headacc, 255, 1) + + SetUIValueRange(DNA_UI_HAIR_STYLE, hair, hair_styles_list.len, 1) + SetUIValueRange(DNA_UI_BEARD_STYLE, beard, facial_hair_styles_list.len, 1) + SetUIValueRange(DNA_UI_HACC_STYLE, headacc, head_accessory_styles_list.len, 1) From ba136b8cfdffc6facd1f78801d4c63bc06c8f141 Mon Sep 17 00:00:00 2001 From: Fox-McCloud Date: Sun, 14 Aug 2016 18:25:14 -0400 Subject: [PATCH 20/92] further removal --- code/__DEFINES/preferences.dm | 6 +- interface/skin.dmf | 26 - web/htdocs/media/config.php.dist | 17 - web/htdocs/media/files/index.htm | 1 - web/htdocs/media/index.php | 107 - .../media/lib/getid3/extension.cache.dbm.php | 208 - .../lib/getid3/extension.cache.mysql.php | 171 - .../lib/getid3/extension.cache.sqlite3.php | 264 -- web/htdocs/media/lib/getid3/getid3.lib.php | 1342 ------- web/htdocs/media/lib/getid3/getid3.php | 1776 --------- .../media/lib/getid3/module.archive.gzip.php | 280 -- .../media/lib/getid3/module.archive.rar.php | 50 - .../media/lib/getid3/module.archive.szip.php | 96 - .../media/lib/getid3/module.archive.tar.php | 176 - .../media/lib/getid3/module.archive.zip.php | 512 --- .../lib/getid3/module.audio-video.asf.php | 2019 ---------- .../lib/getid3/module.audio-video.bink.php | 71 - .../lib/getid3/module.audio-video.flv.php | 729 ---- .../getid3/module.audio-video.matroska.php | 1765 --------- .../lib/getid3/module.audio-video.mpeg.php | 296 -- .../lib/getid3/module.audio-video.nsv.php | 223 -- .../getid3/module.audio-video.quicktime.php | 2221 ----------- .../lib/getid3/module.audio-video.real.php | 527 --- .../lib/getid3/module.audio-video.riff.php | 2435 ------------ .../lib/getid3/module.audio-video.swf.php | 139 - .../lib/getid3/module.audio-video.ts.php | 78 - .../media/lib/getid3/module.audio.aa.php | 58 - .../media/lib/getid3/module.audio.aac.php | 512 --- .../media/lib/getid3/module.audio.ac3.php | 473 --- .../media/lib/getid3/module.audio.au.php | 162 - .../media/lib/getid3/module.audio.avr.php | 124 - .../media/lib/getid3/module.audio.bonk.php | 227 -- .../media/lib/getid3/module.audio.dss.php | 77 - .../media/lib/getid3/module.audio.dts.php | 290 -- .../media/lib/getid3/module.audio.flac.php | 442 --- .../media/lib/getid3/module.audio.la.php | 225 -- .../media/lib/getid3/module.audio.lpac.php | 127 - .../media/lib/getid3/module.audio.midi.php | 529 --- .../media/lib/getid3/module.audio.mod.php | 98 - .../media/lib/getid3/module.audio.monkey.php | 203 - .../media/lib/getid3/module.audio.mp3.php | 2009 ---------- .../media/lib/getid3/module.audio.mpc.php | 506 --- .../media/lib/getid3/module.audio.ogg.php | 671 ---- .../lib/getid3/module.audio.optimfrog.php | 426 -- .../media/lib/getid3/module.audio.rkau.php | 92 - .../media/lib/getid3/module.audio.shorten.php | 181 - .../media/lib/getid3/module.audio.tta.php | 106 - .../media/lib/getid3/module.audio.voc.php | 204 - .../media/lib/getid3/module.audio.vqf.php | 159 - .../media/lib/getid3/module.audio.wavpack.php | 397 -- .../media/lib/getid3/module.graphic.bmp.php | 687 ---- .../media/lib/getid3/module.graphic.efax.php | 50 - .../media/lib/getid3/module.graphic.gif.php | 181 - .../media/lib/getid3/module.graphic.jpg.php | 344 -- .../media/lib/getid3/module.graphic.pcd.php | 132 - .../media/lib/getid3/module.graphic.png.php | 517 --- .../media/lib/getid3/module.graphic.svg.php | 101 - .../media/lib/getid3/module.graphic.tiff.php | 224 -- .../media/lib/getid3/module.misc.cue.php | 311 -- .../media/lib/getid3/module.misc.exe.php | 58 - .../media/lib/getid3/module.misc.iso.php | 387 -- .../media/lib/getid3/module.misc.msoffice.php | 37 - .../media/lib/getid3/module.misc.par2.php | 30 - .../media/lib/getid3/module.misc.pdf.php | 30 - .../media/lib/getid3/module.tag.apetag.php | 370 -- .../media/lib/getid3/module.tag.id3v1.php | 359 -- .../media/lib/getid3/module.tag.id3v2.php | 3414 ----------------- .../media/lib/getid3/module.tag.lyrics3.php | 294 -- .../media/lib/getid3/module.tag.xmp.php | 767 ---- web/htdocs/media/lib/getid3/write.apetag.php | 223 -- web/htdocs/media/lib/getid3/write.id3v1.php | 136 - web/htdocs/media/lib/getid3/write.id3v2.php | 2049 ---------- web/htdocs/media/lib/getid3/write.lyrics3.php | 71 - .../media/lib/getid3/write.metaflac.php | 161 - web/htdocs/media/lib/getid3/write.php | 613 --- web/htdocs/media/lib/getid3/write.real.php | 273 -- .../media/lib/getid3/write.vorbiscomment.php | 119 - web/htdocs/media/playlists/example.php | 18 - 78 files changed, 3 insertions(+), 35786 deletions(-) delete mode 100644 web/htdocs/media/config.php.dist delete mode 100644 web/htdocs/media/files/index.htm delete mode 100644 web/htdocs/media/index.php delete mode 100644 web/htdocs/media/lib/getid3/extension.cache.dbm.php delete mode 100644 web/htdocs/media/lib/getid3/extension.cache.mysql.php delete mode 100644 web/htdocs/media/lib/getid3/extension.cache.sqlite3.php delete mode 100644 web/htdocs/media/lib/getid3/getid3.lib.php delete mode 100644 web/htdocs/media/lib/getid3/getid3.php delete mode 100644 web/htdocs/media/lib/getid3/module.archive.gzip.php delete mode 100644 web/htdocs/media/lib/getid3/module.archive.rar.php delete mode 100644 web/htdocs/media/lib/getid3/module.archive.szip.php delete mode 100644 web/htdocs/media/lib/getid3/module.archive.tar.php delete mode 100644 web/htdocs/media/lib/getid3/module.archive.zip.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.asf.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.bink.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.flv.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.matroska.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.mpeg.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.nsv.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.quicktime.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.real.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.riff.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.swf.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio-video.ts.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.aa.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.aac.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.ac3.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.au.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.avr.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.bonk.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.dss.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.dts.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.flac.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.la.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.lpac.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.midi.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.mod.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.monkey.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.mp3.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.mpc.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.ogg.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.optimfrog.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.rkau.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.shorten.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.tta.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.voc.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.vqf.php delete mode 100644 web/htdocs/media/lib/getid3/module.audio.wavpack.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.bmp.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.efax.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.gif.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.jpg.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.pcd.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.png.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.svg.php delete mode 100644 web/htdocs/media/lib/getid3/module.graphic.tiff.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.cue.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.exe.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.iso.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.msoffice.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.par2.php delete mode 100644 web/htdocs/media/lib/getid3/module.misc.pdf.php delete mode 100644 web/htdocs/media/lib/getid3/module.tag.apetag.php delete mode 100644 web/htdocs/media/lib/getid3/module.tag.id3v1.php delete mode 100644 web/htdocs/media/lib/getid3/module.tag.id3v2.php delete mode 100644 web/htdocs/media/lib/getid3/module.tag.lyrics3.php delete mode 100644 web/htdocs/media/lib/getid3/module.tag.xmp.php delete mode 100644 web/htdocs/media/lib/getid3/write.apetag.php delete mode 100644 web/htdocs/media/lib/getid3/write.id3v1.php delete mode 100644 web/htdocs/media/lib/getid3/write.id3v2.php delete mode 100644 web/htdocs/media/lib/getid3/write.lyrics3.php delete mode 100644 web/htdocs/media/lib/getid3/write.metaflac.php delete mode 100644 web/htdocs/media/lib/getid3/write.php delete mode 100644 web/htdocs/media/lib/getid3/write.real.php delete mode 100644 web/htdocs/media/lib/getid3/write.vorbiscomment.php delete mode 100644 web/htdocs/media/playlists/example.php diff --git a/code/__DEFINES/preferences.dm b/code/__DEFINES/preferences.dm index e4298b55a9a..703b3e6b205 100644 --- a/code/__DEFINES/preferences.dm +++ b/code/__DEFINES/preferences.dm @@ -3,9 +3,9 @@ #define SOUND_MIDI 2 #define SOUND_AMBIENCE 4 #define SOUND_LOBBY 8 -#define SOUND_HEARTBEAT 16 -#define SOUND_BUZZ 32 -#define SOUND_INSTRUMENTS 64 +#define SOUND_HEARTBEAT 32 +#define SOUND_BUZZ 64 +#define SOUND_INSTRUMENTS 128 #define SOUND_DEFAULT (SOUND_ADMINHELP|SOUND_MIDI|SOUND_AMBIENCE|SOUND_LOBBY|SOUND_HEARTBEAT|SOUND_BUZZ|SOUND_INSTRUMENTS) diff --git a/interface/skin.dmf b/interface/skin.dmf index 4d41549359c..6e5a03c7c8b 100644 --- a/interface/skin.dmf +++ b/interface/skin.dmf @@ -2540,32 +2540,6 @@ window "rpane" splitter = 50 show-splitter = true lock = none - elem "hosttracker" - type = BROWSER - pos = 392,25 - size = 1x1 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = true - use-title = false - on-show = "" - on-hide = "" elem "rulesb" type = BUTTON pos = 278,0 diff --git a/web/htdocs/media/config.php.dist b/web/htdocs/media/config.php.dist deleted file mode 100644 index c3aeaf101d9..00000000000 --- a/web/htdocs/media/config.php.dist +++ /dev/null @@ -1,17 +0,0 @@ - $file) - { - $relfile = substr($file->getPathname(),$striplen);// . '/' . $file; - if(substr($relfile,-1)=='.') continue; - $pl[$relfile] = array(); - } - return $pl; -} - -require (PLAYLIST_DIR . '/' . $playlist . '.php'); - -if (!file_exists('cache/')) - mkdir('cache/'); - -$json = array(); -foreach ($playlist as $file => $data) { - list(, $ext) = explode('.', $file); - - if (!in_array($ext, $validExtensions)) - continue; - - $json[]=analyzeFile($file, $data); -} - -function analyzeFile($file,$playlist_data) { - global $validExtensions, $getID3; - $fileURL = BASE_URL . '/files/' . $file; - $file = FILE_DIR . '/' . $file; - - // use cache, if available - $cachefile = 'cache/' . md5($file) . '.cache.php'; - if (file_exists($cachefile)) { - require ($cachefile); - $row = array_merge($row, $playlist_data); - return $row; - } - - // Get ID3 tags and whatnot - $data = $getID3->analyze($file); - getid3_lib::CopyTagsToComments($data); - - // We need a playtime. Abort if not found. - if (!isset($data['playtime_seconds'])) { - echo "

{$file}

"; - var_dump($data); - return; - } - - //@formatter:off - $row = array( - 'title' => '???', - 'artist' => 'Unknown', - 'album' => '', - - 'url' => $fileURL, - 'length' => '' . (int)($data['playtime_seconds'] * 10) - ); - //@formatter:on - - if (isset($data['comments_html']) && (array_key_exists('artist', $data['comments_html']) || array_key_exists('album', $data['comments_html']))) { - $row['title'] = $data['comments_html']['title'][0]; - if (isset($data['comments']['artist'])) - $row['artist'] = $data['comments']['artist'][0]; - if (isset($data['comments']['album'])) - $row['album'] = $data['comments']['album'][0]; - } else { - $matches = array(); - // Search for something of the form "artist - title (album).ext" - if (preg_match('/([^\\-]+)\\-([^\\(\\.]+)(\\(([^\\)])\\))?\\.([a-z0-9]{3})/', $file, $matches) !== FALSE) { - if (count($matches) >= 2) { - $row['artist'] = trim($matches[1]); - $row['title'] = trim($matches[2]); - $row['album'] = trim($matches[3]); - } - } - } - - file_put_contents($cachefile, ' // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// // -// extension.cache.dbm.php - part of getID3() // -// Please see readme.txt for more information // -// /// -///////////////////////////////////////////////////////////////// -// // -// This extension written by Allan Hansen // -// /// -///////////////////////////////////////////////////////////////// - - -/** -* This is a caching extension for getID3(). It works the exact same -* way as the getID3 class, but return cached information very fast -* -* Example: -* -* Normal getID3 usage (example): -* -* require_once 'getid3/getid3.php'; -* $getID3 = new getID3; -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* getID3_cached usage: -* -* require_once 'getid3/getid3.php'; -* require_once 'getid3/getid3/extension.cache.dbm.php'; -* $getID3 = new getID3_cached('db3', '/tmp/getid3_cache.dbm', -* '/tmp/getid3_cache.lock'); -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* -* Supported Cache Types -* -* SQL Databases: (use extension.cache.mysql) -* -* cache_type cache_options -* ------------------------------------------------------------------- -* mysql host, database, username, password -* -* -* DBM-Style Databases: (this extension) -* -* cache_type cache_options -* ------------------------------------------------------------------- -* gdbm dbm_filename, lock_filename -* ndbm dbm_filename, lock_filename -* db2 dbm_filename, lock_filename -* db3 dbm_filename, lock_filename -* db4 dbm_filename, lock_filename (PHP5 required) -* -* PHP must have write access to both dbm_filename and lock_filename. -* -* -* Recommended Cache Types -* -* Infrequent updates, many reads any DBM -* Frequent updates mysql -*/ - - -class getID3_cached_dbm extends getID3 -{ - - // public: constructor - see top of this file for cache type and cache_options - public function getID3_cached_dbm($cache_type, $dbm_filename, $lock_filename) { - - // Check for dba extension - if (!extension_loaded('dba')) { - throw new Exception('PHP is not compiled with dba support, required to use DBM style cache.'); - } - - // Check for specific dba driver - if (!function_exists('dba_handlers') || !in_array($cache_type, dba_handlers())) { - throw new Exception('PHP is not compiled --with '.$cache_type.' support, required to use DBM style cache.'); - } - - // Create lock file if needed - if (!file_exists($lock_filename)) { - if (!touch($lock_filename)) { - throw new Exception('failed to create lock file: '.$lock_filename); - } - } - - // Open lock file for writing - if (!is_writeable($lock_filename)) { - throw new Exception('lock file: '.$lock_filename.' is not writable'); - } - $this->lock = fopen($lock_filename, 'w'); - - // Acquire exclusive write lock to lock file - flock($this->lock, LOCK_EX); - - // Create dbm-file if needed - if (!file_exists($dbm_filename)) { - if (!touch($dbm_filename)) { - throw new Exception('failed to create dbm file: '.$dbm_filename); - } - } - - // Try to open dbm file for writing - $this->dba = dba_open($dbm_filename, 'w', $cache_type); - if (!$this->dba) { - - // Failed - create new dbm file - $this->dba = dba_open($dbm_filename, 'n', $cache_type); - - if (!$this->dba) { - throw new Exception('failed to create dbm file: '.$dbm_filename); - } - - // Insert getID3 version number - dba_insert(getID3::VERSION, getID3::VERSION, $this->dba); - } - - // Init misc values - $this->cache_type = $cache_type; - $this->dbm_filename = $dbm_filename; - - // Register destructor - register_shutdown_function(array($this, '__destruct')); - - // Check version number and clear cache if changed - if (dba_fetch(getID3::VERSION, $this->dba) != getID3::VERSION) { - $this->clear_cache(); - } - - parent::getID3(); - } - - - - // public: destructor - public function __destruct() { - - // Close dbm file - dba_close($this->dba); - - // Release exclusive lock - flock($this->lock, LOCK_UN); - - // Close lock file - fclose($this->lock); - } - - - - // public: clear cache - public function clear_cache() { - - // Close dbm file - dba_close($this->dba); - - // Create new dbm file - $this->dba = dba_open($this->dbm_filename, 'n', $this->cache_type); - - if (!$this->dba) { - throw new Exception('failed to clear cache/recreate dbm file: '.$this->dbm_filename); - } - - // Insert getID3 version number - dba_insert(getID3::VERSION, getID3::VERSION, $this->dba); - - // Re-register shutdown function - register_shutdown_function(array($this, '__destruct')); - } - - - - // public: analyze file - public function analyze($filename) { - - if (file_exists($filename)) { - - // Calc key filename::mod_time::size - should be unique - $key = $filename.'::'.filemtime($filename).'::'.filesize($filename); - - // Loopup key - $result = dba_fetch($key, $this->dba); - - // Hit - if ($result !== false) { - return unserialize($result); - } - } - - // Miss - $result = parent::analyze($filename); - - // Save result - if (file_exists($filename)) { - dba_insert($key, serialize($result), $this->dba); - } - - return $result; - } - -} diff --git a/web/htdocs/media/lib/getid3/extension.cache.mysql.php b/web/htdocs/media/lib/getid3/extension.cache.mysql.php deleted file mode 100644 index 771c8b03190..00000000000 --- a/web/htdocs/media/lib/getid3/extension.cache.mysql.php +++ /dev/null @@ -1,171 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// // -// extension.cache.mysql.php - part of getID3() // -// Please see readme.txt for more information // -// /// -///////////////////////////////////////////////////////////////// -// // -// This extension written by Allan Hansen // -// Table name mod by Carlo Capocasa // -// /// -///////////////////////////////////////////////////////////////// - - -/** -* This is a caching extension for getID3(). It works the exact same -* way as the getID3 class, but return cached information very fast -* -* Example: (see also demo.cache.mysql.php in /demo/) -* -* Normal getID3 usage (example): -* -* require_once 'getid3/getid3.php'; -* $getID3 = new getID3; -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* getID3_cached usage: -* -* require_once 'getid3/getid3.php'; -* require_once 'getid3/getid3/extension.cache.mysql.php'; -* // 5th parameter (tablename) is optional, default is 'getid3_cache' -* $getID3 = new getID3_cached_mysql('localhost', 'database', 'username', 'password', 'tablename'); -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* -* Supported Cache Types (this extension) -* -* SQL Databases: -* -* cache_type cache_options -* ------------------------------------------------------------------- -* mysql host, database, username, password -* -* -* DBM-Style Databases: (use extension.cache.dbm) -* -* cache_type cache_options -* ------------------------------------------------------------------- -* gdbm dbm_filename, lock_filename -* ndbm dbm_filename, lock_filename -* db2 dbm_filename, lock_filename -* db3 dbm_filename, lock_filename -* db4 dbm_filename, lock_filename (PHP5 required) -* -* PHP must have write access to both dbm_filename and lock_filename. -* -* -* Recommended Cache Types -* -* Infrequent updates, many reads any DBM -* Frequent updates mysql -*/ - - -class getID3_cached_mysql extends getID3 -{ - - // private vars - private $cursor; - private $connection; - - - // public: constructor - see top of this file for cache type and cache_options - public function getID3_cached_mysql($host, $database, $username, $password, $table='getid3_cache') { - - // Check for mysql support - if (!function_exists('mysql_pconnect')) { - throw new Exception('PHP not compiled with mysql support.'); - } - - // Connect to database - $this->connection = mysql_pconnect($host, $username, $password); - if (!$this->connection) { - throw new Exception('mysql_pconnect() failed - check permissions and spelling.'); - } - - // Select database - if (!mysql_select_db($database, $this->connection)) { - throw new Exception('Cannot use database '.$database); - } - - // Set table - $this->table = $table; - - // Create cache table if not exists - $this->create_table(); - - // Check version number and clear cache if changed - $version = ''; - if ($this->cursor = mysql_query("SELECT `value` FROM `".mysql_real_escape_string($this->table)."` WHERE (`filename` = '".mysql_real_escape_string(getID3::VERSION)."') AND (`filesize` = '-1') AND (`filetime` = '-1') AND (`analyzetime` = '-1')", $this->connection)) { - list($version) = mysql_fetch_array($this->cursor); - } - if ($version != getID3::VERSION) { - $this->clear_cache(); - } - - parent::getID3(); - } - - - - // public: clear cache - public function clear_cache() { - - $this->cursor = mysql_query("DELETE FROM `".mysql_real_escape_string($this->table)."`", $this->connection); - $this->cursor = mysql_query("INSERT INTO `".mysql_real_escape_string($this->table)."` VALUES ('".getID3::VERSION."', -1, -1, -1, '".getID3::VERSION."')", $this->connection); - } - - - - // public: analyze file - public function analyze($filename) { - - if (file_exists($filename)) { - - // Short-hands - $filetime = filemtime($filename); - $filesize = filesize($filename); - - // Lookup file - $this->cursor = mysql_query("SELECT `value` FROM `".mysql_real_escape_string($this->table)."` WHERE (`filename` = '".mysql_real_escape_string($filename)."') AND (`filesize` = '".mysql_real_escape_string($filesize)."') AND (`filetime` = '".mysql_real_escape_string($filetime)."')", $this->connection); - if (mysql_num_rows($this->cursor) > 0) { - // Hit - list($result) = mysql_fetch_array($this->cursor); - return unserialize(base64_decode($result)); - } - } - - // Miss - $analysis = parent::analyze($filename); - - // Save result - if (file_exists($filename)) { - $this->cursor = mysql_query("INSERT INTO `".mysql_real_escape_string($this->table)."` (`filename`, `filesize`, `filetime`, `analyzetime`, `value`) VALUES ('".mysql_real_escape_string($filename)."', '".mysql_real_escape_string($filesize)."', '".mysql_real_escape_string($filetime)."', '".mysql_real_escape_string(time())."', '".mysql_real_escape_string(base64_encode(serialize($analysis)))."')", $this->connection); - } - return $analysis; - } - - - - // private: (re)create sql table - private function create_table($drop=false) { - - $this->cursor = mysql_query("CREATE TABLE IF NOT EXISTS `".mysql_real_escape_string($this->table)."` ( - `filename` VARCHAR(255) NOT NULL DEFAULT '', - `filesize` INT(11) NOT NULL DEFAULT '0', - `filetime` INT(11) NOT NULL DEFAULT '0', - `analyzetime` INT(11) NOT NULL DEFAULT '0', - `value` TEXT NOT NULL, - PRIMARY KEY (`filename`,`filesize`,`filetime`)) ENGINE=MyISAM", $this->connection); - echo mysql_error($this->connection); - } -} diff --git a/web/htdocs/media/lib/getid3/extension.cache.sqlite3.php b/web/htdocs/media/lib/getid3/extension.cache.sqlite3.php deleted file mode 100644 index d4d4f7781c4..00000000000 --- a/web/htdocs/media/lib/getid3/extension.cache.sqlite3.php +++ /dev/null @@ -1,264 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org /// -///////////////////////////////////////////////////////////////////////////////// -/// // -// extension.cache.sqlite3.php - part of getID3() // -// Please see readme.txt for more information // -// /// -///////////////////////////////////////////////////////////////////////////////// -/// // -// MySQL extension written by Allan Hansen // -// Table name mod by Carlo Capocasa // -// MySQL extension was reworked for SQLite3 by Karl G. Holz // -// /// -///////////////////////////////////////////////////////////////////////////////// -/** -* This is a caching extension for getID3(). It works the exact same -* way as the getID3 class, but return cached information much faster -* -* Normal getID3 usage (example): -* -* require_once 'getid3/getid3.php'; -* $getID3 = new getID3; -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* getID3_cached usage: -* -* require_once 'getid3/getid3.php'; -* require_once 'getid3/extension.cache.sqlite3.php'; -* // all parameters are optional, defaults are: -* $getID3 = new getID3_cached_sqlite3($table='getid3_cache', $hide=FALSE); -* $getID3->encoding = 'UTF-8'; -* $info1 = $getID3->analyze('file1.flac'); -* $info2 = $getID3->analyze('file2.wv'); -* -* -* Supported Cache Types (this extension) -* -* SQL Databases: -* -* cache_type cache_options -* ------------------------------------------------------------------- -* mysql host, database, username, password -* -* sqlite3 table='getid3_cache', hide=false (PHP5) -* - -*** database file will be stored in the same directory as this script, -*** webserver must have write access to that directory! -*** set $hide to TRUE to prefix db file with .ht to pervent access from web client -*** this is a default setting in the Apache configuration: - -# The following lines prevent .htaccess and .htpasswd files from being viewed by Web clients. - - - Order allow,deny - Deny from all - Satisfy all - - -******************************************************************************** -* -* ------------------------------------------------------------------- -* DBM-Style Databases: (use extension.cache.dbm) -* -* cache_type cache_options -* ------------------------------------------------------------------- -* gdbm dbm_filename, lock_filename -* ndbm dbm_filename, lock_filename -* db2 dbm_filename, lock_filename -* db3 dbm_filename, lock_filename -* db4 dbm_filename, lock_filename (PHP5 required) -* -* PHP must have write access to both dbm_filename and lock_filename. -* -* Recommended Cache Types -* -* Infrequent updates, many reads any DBM -* Frequent updates mysql -******************************************************************************** -* -* IMHO this is still a bit slow, I'm using this with MP4/MOV/ M4v files -* there is a plan to add directory scanning and analyzing to make things work much faster -* -* -*/ -class getID3_cached_sqlite3 extends getID3 { - - /** - * __construct() - * @param string $table holds name of sqlite table - * @return type - */ - public function __construct($table='getid3_cache', $hide=false) { - $this->table = $table; // Set table - $file = dirname(__FILE__).'/'.basename(__FILE__, 'php').'sqlite'; - if ($hide) { - $file = dirname(__FILE__).'/.ht.'.basename(__FILE__, 'php').'sqlite'; - } - $this->db = new SQLite3($file); - $db = $this->db; - $this->create_table(); // Create cache table if not exists - $version = ''; - $sql = $this->version_check; - $stmt = $db->prepare($sql); - $stmt->bindValue(':filename', getID3::VERSION, SQLITE3_TEXT); - $result = $stmt->execute(); - list($version) = $result->fetchArray(); - if ($version != getID3::VERSION) { // Check version number and clear cache if changed - $this->clear_cache(); - } - return parent::__construct(); - } - - /** - * close the database connection - */ - public function __destruct() { - $db=$this->db; - $db->close(); - } - - /** - * hold the sqlite db - * @var SQLite Resource - */ - private $db; - - /** - * table to use for caching - * @var string $table - */ - private $table; - - /** - * clear the cache - * @access private - * @return type - */ - private function clear_cache() { - $db = $this->db; - $sql = $this->delete_cache; - $db->exec($sql); - $sql = $this->set_version; - $stmt = $db->prepare($sql); - $stmt->bindValue(':filename', getID3::VERSION, SQLITE3_TEXT); - $stmt->bindValue(':dirname', getID3::VERSION, SQLITE3_TEXT); - $stmt->bindValue(':val', getID3::VERSION, SQLITE3_TEXT); - return $stmt->execute(); - } - - /** - * analyze file and cache them, if cached pull from the db - * @param type $filename - * @return boolean - */ - public function analyze($filename) { - if (!file_exists($filename)) { - return false; - } - // items to track for caching - $filetime = filemtime($filename); - $filesize = filesize($filename); - // this will be saved for a quick directory lookup of analized files - // ... why do 50 seperate sql quries when you can do 1 for the same result - $dirname = dirname($filename); - // Lookup file - $db = $this->db; - $sql = $this->get_id3_data; - $stmt = $db->prepare($sql); - $stmt->bindValue(':filename', $filename, SQLITE3_TEXT); - $stmt->bindValue(':filesize', $filesize, SQLITE3_INTEGER); - $stmt->bindValue(':filetime', $filetime, SQLITE3_INTEGER); - $res = $stmt->execute(); - list($result) = $res->fetchArray(); - if (count($result) > 0 ) { - return unserialize(base64_decode($result)); - } - // if it hasn't been analyzed before, then do it now - $analysis = parent::analyze($filename); - // Save result - $sql = $this->cache_file; - $stmt = $db->prepare($sql); - $stmt->bindValue(':filename', $filename, SQLITE3_TEXT); - $stmt->bindValue(':dirname', $dirname, SQLITE3_TEXT); - $stmt->bindValue(':filesize', $filesize, SQLITE3_INTEGER); - $stmt->bindValue(':filetime', $filetime, SQLITE3_INTEGER); - $stmt->bindValue(':atime', time(), SQLITE3_INTEGER); - $stmt->bindValue(':val', base64_encode(serialize($analysis)), SQLITE3_TEXT); - $res = $stmt->execute(); - return $analysis; - } - - /** - * create data base table - * this is almost the same as MySQL, with the exception of the dirname being added - * @return type - */ - private function create_table() { - $db = $this->db; - $sql = $this->make_table; - return $db->exec($sql); - } - - /** - * get cached directory - * - * This function is not in the MySQL extention, it's ment to speed up requesting multiple files - * which is ideal for podcasting, playlists, etc. - * - * @access public - * @param string $dir directory to search the cache database for - * @return array return an array of matching id3 data - */ - public function get_cached_dir($dir) { - $db = $this->db; - $rows = array(); - $sql = $this->get_cached_dir; - $stmt = $db->prepare($sql); - $stmt->bindValue(':dirname', $dir, SQLITE3_TEXT); - $res = $stmt->execute(); - while ($row=$res->fetchArray()) { - $rows[] = unserialize(base64_decode($row)); - } - return $rows; - } - - /** - * use the magical __get() for sql queries - * - * access as easy as $this->{case name}, returns NULL if query is not found - */ - public function __get($name) { - switch($name) { - case 'version_check': - return "SELECT val FROM $this->table WHERE filename = :filename AND filesize = '-1' AND filetime = '-1' AND analyzetime = '-1'"; - break; - case 'delete_cache': - return "DELETE FROM $this->table"; - break; - case 'set_version': - return "INSERT INTO $this->table (filename, dirname, filesize, filetime, analyzetime, val) VALUES (:filename, :dirname, -1, -1, -1, :val)"; - break; - case 'get_id3_data': - return "SELECT val FROM $this->table WHERE filename = :filename AND filesize = :filesize AND filetime = :filetime"; - break; - case 'cache_file': - return "INSERT INTO $this->table (filename, dirname, filesize, filetime, analyzetime, val) VALUES (:filename, :dirname, :filesize, :filetime, :atime, :val)"; - break; - case 'make_table': - return "CREATE TABLE IF NOT EXISTS $this->table (filename VARCHAR(255) NOT NULL DEFAULT '', dirname VARCHAR(255) NOT NULL DEFAULT '', filesize INT(11) NOT NULL DEFAULT '0', filetime INT(11) NOT NULL DEFAULT '0', analyzetime INT(11) NOT NULL DEFAULT '0', val text not null, PRIMARY KEY (filename, filesize, filetime))"; - break; - case 'get_cached_dir': - return "SELECT val FROM $this->table WHERE dirname = :dirname"; - break; - } - return null; - } - -} diff --git a/web/htdocs/media/lib/getid3/getid3.lib.php b/web/htdocs/media/lib/getid3/getid3.lib.php deleted file mode 100644 index 54008194ac1..00000000000 --- a/web/htdocs/media/lib/getid3/getid3.lib.php +++ /dev/null @@ -1,1342 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// // -// getid3.lib.php - part of getID3() // -// See readme.txt for more details // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_lib -{ - - public static function PrintHexBytes($string, $hex=true, $spaces=true, $htmlencoding='UTF-8') { - $returnstring = ''; - for ($i = 0; $i < strlen($string); $i++) { - if ($hex) { - $returnstring .= str_pad(dechex(ord($string{$i})), 2, '0', STR_PAD_LEFT); - } else { - $returnstring .= ' '.(preg_match("#[\x20-\x7E]#", $string{$i}) ? $string{$i} : '¤'); - } - if ($spaces) { - $returnstring .= ' '; - } - } - if (!empty($htmlencoding)) { - if ($htmlencoding === true) { - $htmlencoding = 'UTF-8'; // prior to getID3 v1.9.0 the function's 4th parameter was boolean - } - $returnstring = htmlentities($returnstring, ENT_QUOTES, $htmlencoding); - } - return $returnstring; - } - - public static function trunc($floatnumber) { - // truncates a floating-point number at the decimal point - // returns int (if possible, otherwise float) - if ($floatnumber >= 1) { - $truncatednumber = floor($floatnumber); - } elseif ($floatnumber <= -1) { - $truncatednumber = ceil($floatnumber); - } else { - $truncatednumber = 0; - } - if (self::intValueSupported($truncatednumber)) { - $truncatednumber = (int) $truncatednumber; - } - return $truncatednumber; - } - - - public static function safe_inc(&$variable, $increment=1) { - if (isset($variable)) { - $variable += $increment; - } else { - $variable = $increment; - } - return true; - } - - public static function CastAsInt($floatnum) { - // convert to float if not already - $floatnum = (float) $floatnum; - - // convert a float to type int, only if possible - if (self::trunc($floatnum) == $floatnum) { - // it's not floating point - if (self::intValueSupported($floatnum)) { - // it's within int range - $floatnum = (int) $floatnum; - } - } - return $floatnum; - } - - public static function intValueSupported($num) { - // check if integers are 64-bit - static $hasINT64 = null; - if ($hasINT64 === null) { // 10x faster than is_null() - $hasINT64 = is_int(pow(2, 31)); // 32-bit int are limited to (2^31)-1 - if (!$hasINT64 && !defined('PHP_INT_MIN')) { - define('PHP_INT_MIN', ~PHP_INT_MAX); - } - } - // if integers are 64-bit - no other check required - if ($hasINT64 || (($num <= PHP_INT_MAX) && ($num >= PHP_INT_MIN))) { - return true; - } - return false; - } - - public static function DecimalizeFraction($fraction) { - list($numerator, $denominator) = explode('/', $fraction); - return $numerator / ($denominator ? $denominator : 1); - } - - - public static function DecimalBinary2Float($binarynumerator) { - $numerator = self::Bin2Dec($binarynumerator); - $denominator = self::Bin2Dec('1'.str_repeat('0', strlen($binarynumerator))); - return ($numerator / $denominator); - } - - - public static function NormalizeBinaryPoint($binarypointnumber, $maxbits=52) { - // http://www.scri.fsu.edu/~jac/MAD3401/Backgrnd/binary.html - if (strpos($binarypointnumber, '.') === false) { - $binarypointnumber = '0.'.$binarypointnumber; - } elseif ($binarypointnumber{0} == '.') { - $binarypointnumber = '0'.$binarypointnumber; - } - $exponent = 0; - while (($binarypointnumber{0} != '1') || (substr($binarypointnumber, 1, 1) != '.')) { - if (substr($binarypointnumber, 1, 1) == '.') { - $exponent--; - $binarypointnumber = substr($binarypointnumber, 2, 1).'.'.substr($binarypointnumber, 3); - } else { - $pointpos = strpos($binarypointnumber, '.'); - $exponent += ($pointpos - 1); - $binarypointnumber = str_replace('.', '', $binarypointnumber); - $binarypointnumber = $binarypointnumber{0}.'.'.substr($binarypointnumber, 1); - } - } - $binarypointnumber = str_pad(substr($binarypointnumber, 0, $maxbits + 2), $maxbits + 2, '0', STR_PAD_RIGHT); - return array('normalized'=>$binarypointnumber, 'exponent'=>(int) $exponent); - } - - - public static function Float2BinaryDecimal($floatvalue) { - // http://www.scri.fsu.edu/~jac/MAD3401/Backgrnd/binary.html - $maxbits = 128; // to how many bits of precision should the calculations be taken? - $intpart = self::trunc($floatvalue); - $floatpart = abs($floatvalue - $intpart); - $pointbitstring = ''; - while (($floatpart != 0) && (strlen($pointbitstring) < $maxbits)) { - $floatpart *= 2; - $pointbitstring .= (string) self::trunc($floatpart); - $floatpart -= self::trunc($floatpart); - } - $binarypointnumber = decbin($intpart).'.'.$pointbitstring; - return $binarypointnumber; - } - - - public static function Float2String($floatvalue, $bits) { - // http://www.scri.fsu.edu/~jac/MAD3401/Backgrnd/ieee-expl.html - switch ($bits) { - case 32: - $exponentbits = 8; - $fractionbits = 23; - break; - - case 64: - $exponentbits = 11; - $fractionbits = 52; - break; - - default: - return false; - break; - } - if ($floatvalue >= 0) { - $signbit = '0'; - } else { - $signbit = '1'; - } - $normalizedbinary = self::NormalizeBinaryPoint(self::Float2BinaryDecimal($floatvalue), $fractionbits); - $biasedexponent = pow(2, $exponentbits - 1) - 1 + $normalizedbinary['exponent']; // (127 or 1023) +/- exponent - $exponentbitstring = str_pad(decbin($biasedexponent), $exponentbits, '0', STR_PAD_LEFT); - $fractionbitstring = str_pad(substr($normalizedbinary['normalized'], 2), $fractionbits, '0', STR_PAD_RIGHT); - - return self::BigEndian2String(self::Bin2Dec($signbit.$exponentbitstring.$fractionbitstring), $bits % 8, false); - } - - - public static function LittleEndian2Float($byteword) { - return self::BigEndian2Float(strrev($byteword)); - } - - - public static function BigEndian2Float($byteword) { - // ANSI/IEEE Standard 754-1985, Standard for Binary Floating Point Arithmetic - // http://www.psc.edu/general/software/packages/ieee/ieee.html - // http://www.scri.fsu.edu/~jac/MAD3401/Backgrnd/ieee.html - - $bitword = self::BigEndian2Bin($byteword); - if (!$bitword) { - return 0; - } - $signbit = $bitword{0}; - - switch (strlen($byteword) * 8) { - case 32: - $exponentbits = 8; - $fractionbits = 23; - break; - - case 64: - $exponentbits = 11; - $fractionbits = 52; - break; - - case 80: - // 80-bit Apple SANE format - // http://www.mactech.com/articles/mactech/Vol.06/06.01/SANENormalized/ - $exponentstring = substr($bitword, 1, 15); - $isnormalized = intval($bitword{16}); - $fractionstring = substr($bitword, 17, 63); - $exponent = pow(2, self::Bin2Dec($exponentstring) - 16383); - $fraction = $isnormalized + self::DecimalBinary2Float($fractionstring); - $floatvalue = $exponent * $fraction; - if ($signbit == '1') { - $floatvalue *= -1; - } - return $floatvalue; - break; - - default: - return false; - break; - } - $exponentstring = substr($bitword, 1, $exponentbits); - $fractionstring = substr($bitword, $exponentbits + 1, $fractionbits); - $exponent = self::Bin2Dec($exponentstring); - $fraction = self::Bin2Dec($fractionstring); - - if (($exponent == (pow(2, $exponentbits) - 1)) && ($fraction != 0)) { - // Not a Number - $floatvalue = false; - } elseif (($exponent == (pow(2, $exponentbits) - 1)) && ($fraction == 0)) { - if ($signbit == '1') { - $floatvalue = '-infinity'; - } else { - $floatvalue = '+infinity'; - } - } elseif (($exponent == 0) && ($fraction == 0)) { - if ($signbit == '1') { - $floatvalue = -0; - } else { - $floatvalue = 0; - } - $floatvalue = ($signbit ? 0 : -0); - } elseif (($exponent == 0) && ($fraction != 0)) { - // These are 'unnormalized' values - $floatvalue = pow(2, (-1 * (pow(2, $exponentbits - 1) - 2))) * self::DecimalBinary2Float($fractionstring); - if ($signbit == '1') { - $floatvalue *= -1; - } - } elseif ($exponent != 0) { - $floatvalue = pow(2, ($exponent - (pow(2, $exponentbits - 1) - 1))) * (1 + self::DecimalBinary2Float($fractionstring)); - if ($signbit == '1') { - $floatvalue *= -1; - } - } - return (float) $floatvalue; - } - - - public static function BigEndian2Int($byteword, $synchsafe=false, $signed=false) { - $intvalue = 0; - $bytewordlen = strlen($byteword); - if ($bytewordlen == 0) { - return false; - } - for ($i = 0; $i < $bytewordlen; $i++) { - if ($synchsafe) { // disregard MSB, effectively 7-bit bytes - //$intvalue = $intvalue | (ord($byteword{$i}) & 0x7F) << (($bytewordlen - 1 - $i) * 7); // faster, but runs into problems past 2^31 on 32-bit systems - $intvalue += (ord($byteword{$i}) & 0x7F) * pow(2, ($bytewordlen - 1 - $i) * 7); - } else { - $intvalue += ord($byteword{$i}) * pow(256, ($bytewordlen - 1 - $i)); - } - } - if ($signed && !$synchsafe) { - // synchsafe ints are not allowed to be signed - if ($bytewordlen <= PHP_INT_SIZE) { - $signMaskBit = 0x80 << (8 * ($bytewordlen - 1)); - if ($intvalue & $signMaskBit) { - $intvalue = 0 - ($intvalue & ($signMaskBit - 1)); - } - } else { - throw new Exception('ERROR: Cannot have signed integers larger than '.(8 * PHP_INT_SIZE).'-bits ('.strlen($byteword).') in self::BigEndian2Int()'); - break; - } - } - return self::CastAsInt($intvalue); - } - - - public static function LittleEndian2Int($byteword, $signed=false) { - return self::BigEndian2Int(strrev($byteword), false, $signed); - } - - - public static function BigEndian2Bin($byteword) { - $binvalue = ''; - $bytewordlen = strlen($byteword); - for ($i = 0; $i < $bytewordlen; $i++) { - $binvalue .= str_pad(decbin(ord($byteword{$i})), 8, '0', STR_PAD_LEFT); - } - return $binvalue; - } - - - public static function BigEndian2String($number, $minbytes=1, $synchsafe=false, $signed=false) { - if ($number < 0) { - throw new Exception('ERROR: self::BigEndian2String() does not support negative numbers'); - } - $maskbyte = (($synchsafe || $signed) ? 0x7F : 0xFF); - $intstring = ''; - if ($signed) { - if ($minbytes > PHP_INT_SIZE) { - throw new Exception('ERROR: Cannot have signed integers larger than '.(8 * PHP_INT_SIZE).'-bits in self::BigEndian2String()'); - } - $number = $number & (0x80 << (8 * ($minbytes - 1))); - } - while ($number != 0) { - $quotient = ($number / ($maskbyte + 1)); - $intstring = chr(ceil(($quotient - floor($quotient)) * $maskbyte)).$intstring; - $number = floor($quotient); - } - return str_pad($intstring, $minbytes, "\x00", STR_PAD_LEFT); - } - - - public static function Dec2Bin($number) { - while ($number >= 256) { - $bytes[] = (($number / 256) - (floor($number / 256))) * 256; - $number = floor($number / 256); - } - $bytes[] = $number; - $binstring = ''; - for ($i = 0; $i < count($bytes); $i++) { - $binstring = (($i == count($bytes) - 1) ? decbin($bytes[$i]) : str_pad(decbin($bytes[$i]), 8, '0', STR_PAD_LEFT)).$binstring; - } - return $binstring; - } - - - public static function Bin2Dec($binstring, $signed=false) { - $signmult = 1; - if ($signed) { - if ($binstring{0} == '1') { - $signmult = -1; - } - $binstring = substr($binstring, 1); - } - $decvalue = 0; - for ($i = 0; $i < strlen($binstring); $i++) { - $decvalue += ((int) substr($binstring, strlen($binstring) - $i - 1, 1)) * pow(2, $i); - } - return self::CastAsInt($decvalue * $signmult); - } - - - public static function Bin2String($binstring) { - // return 'hi' for input of '0110100001101001' - $string = ''; - $binstringreversed = strrev($binstring); - for ($i = 0; $i < strlen($binstringreversed); $i += 8) { - $string = chr(self::Bin2Dec(strrev(substr($binstringreversed, $i, 8)))).$string; - } - return $string; - } - - - public static function LittleEndian2String($number, $minbytes=1, $synchsafe=false) { - $intstring = ''; - while ($number > 0) { - if ($synchsafe) { - $intstring = $intstring.chr($number & 127); - $number >>= 7; - } else { - $intstring = $intstring.chr($number & 255); - $number >>= 8; - } - } - return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT); - } - - - public static function array_merge_clobber($array1, $array2) { - // written by kcØhireability*com - // taken from http://www.php.net/manual/en/function.array-merge-recursive.php - if (!is_array($array1) || !is_array($array2)) { - return false; - } - $newarray = $array1; - foreach ($array2 as $key => $val) { - if (is_array($val) && isset($newarray[$key]) && is_array($newarray[$key])) { - $newarray[$key] = self::array_merge_clobber($newarray[$key], $val); - } else { - $newarray[$key] = $val; - } - } - return $newarray; - } - - - public static function array_merge_noclobber($array1, $array2) { - if (!is_array($array1) || !is_array($array2)) { - return false; - } - $newarray = $array1; - foreach ($array2 as $key => $val) { - if (is_array($val) && isset($newarray[$key]) && is_array($newarray[$key])) { - $newarray[$key] = self::array_merge_noclobber($newarray[$key], $val); - } elseif (!isset($newarray[$key])) { - $newarray[$key] = $val; - } - } - return $newarray; - } - - - public static function ksort_recursive(&$theArray) { - ksort($theArray); - foreach ($theArray as $key => $value) { - if (is_array($value)) { - self::ksort_recursive($theArray[$key]); - } - } - return true; - } - - public static function fileextension($filename, $numextensions=1) { - if (strstr($filename, '.')) { - $reversedfilename = strrev($filename); - $offset = 0; - for ($i = 0; $i < $numextensions; $i++) { - $offset = strpos($reversedfilename, '.', $offset + 1); - if ($offset === false) { - return ''; - } - } - return strrev(substr($reversedfilename, 0, $offset)); - } - return ''; - } - - - public static function PlaytimeString($seconds) { - $sign = (($seconds < 0) ? '-' : ''); - $seconds = round(abs($seconds)); - $H = (int) floor( $seconds / 3600); - $M = (int) floor(($seconds - (3600 * $H) ) / 60); - $S = (int) round( $seconds - (3600 * $H) - (60 * $M) ); - return $sign.($H ? $H.':' : '').($H ? str_pad($M, 2, '0', STR_PAD_LEFT) : intval($M)).':'.str_pad($S, 2, 0, STR_PAD_LEFT); - } - - - public static function DateMac2Unix($macdate) { - // Macintosh timestamp: seconds since 00:00h January 1, 1904 - // UNIX timestamp: seconds since 00:00h January 1, 1970 - return self::CastAsInt($macdate - 2082844800); - } - - - public static function FixedPoint8_8($rawdata) { - return self::BigEndian2Int(substr($rawdata, 0, 1)) + (float) (self::BigEndian2Int(substr($rawdata, 1, 1)) / pow(2, 8)); - } - - - public static function FixedPoint16_16($rawdata) { - return self::BigEndian2Int(substr($rawdata, 0, 2)) + (float) (self::BigEndian2Int(substr($rawdata, 2, 2)) / pow(2, 16)); - } - - - public static function FixedPoint2_30($rawdata) { - $binarystring = self::BigEndian2Bin($rawdata); - return self::Bin2Dec(substr($binarystring, 0, 2)) + (float) (self::Bin2Dec(substr($binarystring, 2, 30)) / pow(2, 30)); - } - - - public static function CreateDeepArray($ArrayPath, $Separator, $Value) { - // assigns $Value to a nested array path: - // $foo = self::CreateDeepArray('/path/to/my', '/', 'file.txt') - // is the same as: - // $foo = array('path'=>array('to'=>'array('my'=>array('file.txt')))); - // or - // $foo['path']['to']['my'] = 'file.txt'; - $ArrayPath = ltrim($ArrayPath, $Separator); - if (($pos = strpos($ArrayPath, $Separator)) !== false) { - $ReturnedArray[substr($ArrayPath, 0, $pos)] = self::CreateDeepArray(substr($ArrayPath, $pos + 1), $Separator, $Value); - } else { - $ReturnedArray[$ArrayPath] = $Value; - } - return $ReturnedArray; - } - - public static function array_max($arraydata, $returnkey=false) { - $maxvalue = false; - $maxkey = false; - foreach ($arraydata as $key => $value) { - if (!is_array($value)) { - if ($value > $maxvalue) { - $maxvalue = $value; - $maxkey = $key; - } - } - } - return ($returnkey ? $maxkey : $maxvalue); - } - - public static function array_min($arraydata, $returnkey=false) { - $minvalue = false; - $minkey = false; - foreach ($arraydata as $key => $value) { - if (!is_array($value)) { - if ($value > $minvalue) { - $minvalue = $value; - $minkey = $key; - } - } - } - return ($returnkey ? $minkey : $minvalue); - } - - public static function XML2array($XMLstring) { - if (function_exists('simplexml_load_string')) { - if (function_exists('get_object_vars')) { - $XMLobject = simplexml_load_string($XMLstring); - return self::SimpleXMLelement2array($XMLobject); - } - } - return false; - } - - public static function SimpleXMLelement2array($XMLobject) { - if (!is_object($XMLobject) && !is_array($XMLobject)) { - return $XMLobject; - } - $XMLarray = (is_object($XMLobject) ? get_object_vars($XMLobject) : $XMLobject); - foreach ($XMLarray as $key => $value) { - $XMLarray[$key] = self::SimpleXMLelement2array($value); - } - return $XMLarray; - } - - - // Allan Hansen - // self::md5_data() - returns md5sum for a file from startuing position to absolute end position - public static function hash_data($file, $offset, $end, $algorithm) { - static $tempdir = ''; - if (!self::intValueSupported($end)) { - return false; - } - switch ($algorithm) { - case 'md5': - $hash_function = 'md5_file'; - $unix_call = 'md5sum'; - $windows_call = 'md5sum.exe'; - $hash_length = 32; - break; - - case 'sha1': - $hash_function = 'sha1_file'; - $unix_call = 'sha1sum'; - $windows_call = 'sha1sum.exe'; - $hash_length = 40; - break; - - default: - throw new Exception('Invalid algorithm ('.$algorithm.') in self::hash_data()'); - break; - } - $size = $end - $offset; - while (true) { - if (GETID3_OS_ISWINDOWS) { - - // It seems that sha1sum.exe for Windows only works on physical files, does not accept piped data - // Fall back to create-temp-file method: - if ($algorithm == 'sha1') { - break; - } - - $RequiredFiles = array('cygwin1.dll', 'head.exe', 'tail.exe', $windows_call); - foreach ($RequiredFiles as $required_file) { - if (!is_readable(GETID3_HELPERAPPSDIR.$required_file)) { - // helper apps not available - fall back to old method - break 2; - } - } - $commandline = GETID3_HELPERAPPSDIR.'head.exe -c '.$end.' '.escapeshellarg(str_replace('/', DIRECTORY_SEPARATOR, $file)).' | '; - $commandline .= GETID3_HELPERAPPSDIR.'tail.exe -c '.$size.' | '; - $commandline .= GETID3_HELPERAPPSDIR.$windows_call; - - } else { - - $commandline = 'head -c'.$end.' '.escapeshellarg($file).' | '; - $commandline .= 'tail -c'.$size.' | '; - $commandline .= $unix_call; - - } - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - //throw new Exception('PHP running in Safe Mode - backtick operator not available, using slower non-system-call '.$algorithm.' algorithm'); - break; - } - return substr(`$commandline`, 0, $hash_length); - } - - if (empty($tempdir)) { - // yes this is ugly, feel free to suggest a better way - require_once(dirname(__FILE__).'/getid3.php'); - $getid3_temp = new getID3(); - $tempdir = $getid3_temp->tempdir; - unset($getid3_temp); - } - // try to create a temporary file in the system temp directory - invalid dirname should force to system temp dir - if (($data_filename = tempnam($tempdir, 'gI3')) === false) { - // can't find anywhere to create a temp file, just fail - return false; - } - - // Init - $result = false; - - // copy parts of file - try { - self::CopyFileParts($file, $data_filename, $offset, $end - $offset); - $result = $hash_function($data_filename); - } catch (Exception $e) { - throw new Exception('self::CopyFileParts() failed in getid_lib::hash_data(): '.$e->getMessage()); - } - unlink($data_filename); - return $result; - } - - public static function CopyFileParts($filename_source, $filename_dest, $offset, $length) { - if (!self::intValueSupported($offset + $length)) { - throw new Exception('cannot copy file portion, it extends beyond the '.round(PHP_INT_MAX / 1073741824).'GB limit'); - } - if (is_readable($filename_source) && is_file($filename_source) && ($fp_src = fopen($filename_source, 'rb'))) { - if (($fp_dest = fopen($filename_dest, 'wb'))) { - if (fseek($fp_src, $offset, SEEK_SET) == 0) { - $byteslefttowrite = $length; - while (($byteslefttowrite > 0) && ($buffer = fread($fp_src, min($byteslefttowrite, getID3::FREAD_BUFFER_SIZE)))) { - $byteswritten = fwrite($fp_dest, $buffer, $byteslefttowrite); - $byteslefttowrite -= $byteswritten; - } - return true; - } else { - throw new Exception('failed to seek to offset '.$offset.' in '.$filename_source); - } - fclose($fp_dest); - } else { - throw new Exception('failed to create file for writing '.$filename_dest); - } - fclose($fp_src); - } else { - throw new Exception('failed to open file for reading '.$filename_source); - } - return false; - } - - public static function iconv_fallback_int_utf8($charval) { - if ($charval < 128) { - // 0bbbbbbb - $newcharstring = chr($charval); - } elseif ($charval < 2048) { - // 110bbbbb 10bbbbbb - $newcharstring = chr(($charval >> 6) | 0xC0); - $newcharstring .= chr(($charval & 0x3F) | 0x80); - } elseif ($charval < 65536) { - // 1110bbbb 10bbbbbb 10bbbbbb - $newcharstring = chr(($charval >> 12) | 0xE0); - $newcharstring .= chr(($charval >> 6) | 0xC0); - $newcharstring .= chr(($charval & 0x3F) | 0x80); - } else { - // 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb - $newcharstring = chr(($charval >> 18) | 0xF0); - $newcharstring .= chr(($charval >> 12) | 0xC0); - $newcharstring .= chr(($charval >> 6) | 0xC0); - $newcharstring .= chr(($charval & 0x3F) | 0x80); - } - return $newcharstring; - } - - // ISO-8859-1 => UTF-8 - public static function iconv_fallback_iso88591_utf8($string, $bom=false) { - if (function_exists('utf8_encode')) { - return utf8_encode($string); - } - // utf8_encode() unavailable, use getID3()'s iconv_fallback() conversions (possibly PHP is compiled without XML support) - $newcharstring = ''; - if ($bom) { - $newcharstring .= "\xEF\xBB\xBF"; - } - for ($i = 0; $i < strlen($string); $i++) { - $charval = ord($string{$i}); - $newcharstring .= self::iconv_fallback_int_utf8($charval); - } - return $newcharstring; - } - - // ISO-8859-1 => UTF-16BE - public static function iconv_fallback_iso88591_utf16be($string, $bom=false) { - $newcharstring = ''; - if ($bom) { - $newcharstring .= "\xFE\xFF"; - } - for ($i = 0; $i < strlen($string); $i++) { - $newcharstring .= "\x00".$string{$i}; - } - return $newcharstring; - } - - // ISO-8859-1 => UTF-16LE - public static function iconv_fallback_iso88591_utf16le($string, $bom=false) { - $newcharstring = ''; - if ($bom) { - $newcharstring .= "\xFF\xFE"; - } - for ($i = 0; $i < strlen($string); $i++) { - $newcharstring .= $string{$i}."\x00"; - } - return $newcharstring; - } - - // ISO-8859-1 => UTF-16LE (BOM) - public static function iconv_fallback_iso88591_utf16($string) { - return self::iconv_fallback_iso88591_utf16le($string, true); - } - - // UTF-8 => ISO-8859-1 - public static function iconv_fallback_utf8_iso88591($string) { - if (function_exists('utf8_decode')) { - return utf8_decode($string); - } - // utf8_decode() unavailable, use getID3()'s iconv_fallback() conversions (possibly PHP is compiled without XML support) - $newcharstring = ''; - $offset = 0; - $stringlength = strlen($string); - while ($offset < $stringlength) { - if ((ord($string{$offset}) | 0x07) == 0xF7) { - // 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x07) << 18) & - ((ord($string{($offset + 1)}) & 0x3F) << 12) & - ((ord($string{($offset + 2)}) & 0x3F) << 6) & - (ord($string{($offset + 3)}) & 0x3F); - $offset += 4; - } elseif ((ord($string{$offset}) | 0x0F) == 0xEF) { - // 1110bbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x0F) << 12) & - ((ord($string{($offset + 1)}) & 0x3F) << 6) & - (ord($string{($offset + 2)}) & 0x3F); - $offset += 3; - } elseif ((ord($string{$offset}) | 0x1F) == 0xDF) { - // 110bbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x1F) << 6) & - (ord($string{($offset + 1)}) & 0x3F); - $offset += 2; - } elseif ((ord($string{$offset}) | 0x7F) == 0x7F) { - // 0bbbbbbb - $charval = ord($string{$offset}); - $offset += 1; - } else { - // error? throw some kind of warning here? - $charval = false; - $offset += 1; - } - if ($charval !== false) { - $newcharstring .= (($charval < 256) ? chr($charval) : '?'); - } - } - return $newcharstring; - } - - // UTF-8 => UTF-16BE - public static function iconv_fallback_utf8_utf16be($string, $bom=false) { - $newcharstring = ''; - if ($bom) { - $newcharstring .= "\xFE\xFF"; - } - $offset = 0; - $stringlength = strlen($string); - while ($offset < $stringlength) { - if ((ord($string{$offset}) | 0x07) == 0xF7) { - // 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x07) << 18) & - ((ord($string{($offset + 1)}) & 0x3F) << 12) & - ((ord($string{($offset + 2)}) & 0x3F) << 6) & - (ord($string{($offset + 3)}) & 0x3F); - $offset += 4; - } elseif ((ord($string{$offset}) | 0x0F) == 0xEF) { - // 1110bbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x0F) << 12) & - ((ord($string{($offset + 1)}) & 0x3F) << 6) & - (ord($string{($offset + 2)}) & 0x3F); - $offset += 3; - } elseif ((ord($string{$offset}) | 0x1F) == 0xDF) { - // 110bbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x1F) << 6) & - (ord($string{($offset + 1)}) & 0x3F); - $offset += 2; - } elseif ((ord($string{$offset}) | 0x7F) == 0x7F) { - // 0bbbbbbb - $charval = ord($string{$offset}); - $offset += 1; - } else { - // error? throw some kind of warning here? - $charval = false; - $offset += 1; - } - if ($charval !== false) { - $newcharstring .= (($charval < 65536) ? self::BigEndian2String($charval, 2) : "\x00".'?'); - } - } - return $newcharstring; - } - - // UTF-8 => UTF-16LE - public static function iconv_fallback_utf8_utf16le($string, $bom=false) { - $newcharstring = ''; - if ($bom) { - $newcharstring .= "\xFF\xFE"; - } - $offset = 0; - $stringlength = strlen($string); - while ($offset < $stringlength) { - if ((ord($string{$offset}) | 0x07) == 0xF7) { - // 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x07) << 18) & - ((ord($string{($offset + 1)}) & 0x3F) << 12) & - ((ord($string{($offset + 2)}) & 0x3F) << 6) & - (ord($string{($offset + 3)}) & 0x3F); - $offset += 4; - } elseif ((ord($string{$offset}) | 0x0F) == 0xEF) { - // 1110bbbb 10bbbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x0F) << 12) & - ((ord($string{($offset + 1)}) & 0x3F) << 6) & - (ord($string{($offset + 2)}) & 0x3F); - $offset += 3; - } elseif ((ord($string{$offset}) | 0x1F) == 0xDF) { - // 110bbbbb 10bbbbbb - $charval = ((ord($string{($offset + 0)}) & 0x1F) << 6) & - (ord($string{($offset + 1)}) & 0x3F); - $offset += 2; - } elseif ((ord($string{$offset}) | 0x7F) == 0x7F) { - // 0bbbbbbb - $charval = ord($string{$offset}); - $offset += 1; - } else { - // error? maybe throw some warning here? - $charval = false; - $offset += 1; - } - if ($charval !== false) { - $newcharstring .= (($charval < 65536) ? self::LittleEndian2String($charval, 2) : '?'."\x00"); - } - } - return $newcharstring; - } - - // UTF-8 => UTF-16LE (BOM) - public static function iconv_fallback_utf8_utf16($string) { - return self::iconv_fallback_utf8_utf16le($string, true); - } - - // UTF-16BE => UTF-8 - public static function iconv_fallback_utf16be_utf8($string) { - if (substr($string, 0, 2) == "\xFE\xFF") { - // strip BOM - $string = substr($string, 2); - } - $newcharstring = ''; - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::BigEndian2Int(substr($string, $i, 2)); - $newcharstring .= self::iconv_fallback_int_utf8($charval); - } - return $newcharstring; - } - - // UTF-16LE => UTF-8 - public static function iconv_fallback_utf16le_utf8($string) { - if (substr($string, 0, 2) == "\xFF\xFE") { - // strip BOM - $string = substr($string, 2); - } - $newcharstring = ''; - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::LittleEndian2Int(substr($string, $i, 2)); - $newcharstring .= self::iconv_fallback_int_utf8($charval); - } - return $newcharstring; - } - - // UTF-16BE => ISO-8859-1 - public static function iconv_fallback_utf16be_iso88591($string) { - if (substr($string, 0, 2) == "\xFE\xFF") { - // strip BOM - $string = substr($string, 2); - } - $newcharstring = ''; - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::BigEndian2Int(substr($string, $i, 2)); - $newcharstring .= (($charval < 256) ? chr($charval) : '?'); - } - return $newcharstring; - } - - // UTF-16LE => ISO-8859-1 - public static function iconv_fallback_utf16le_iso88591($string) { - if (substr($string, 0, 2) == "\xFF\xFE") { - // strip BOM - $string = substr($string, 2); - } - $newcharstring = ''; - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::LittleEndian2Int(substr($string, $i, 2)); - $newcharstring .= (($charval < 256) ? chr($charval) : '?'); - } - return $newcharstring; - } - - // UTF-16 (BOM) => ISO-8859-1 - public static function iconv_fallback_utf16_iso88591($string) { - $bom = substr($string, 0, 2); - if ($bom == "\xFE\xFF") { - return self::iconv_fallback_utf16be_iso88591(substr($string, 2)); - } elseif ($bom == "\xFF\xFE") { - return self::iconv_fallback_utf16le_iso88591(substr($string, 2)); - } - return $string; - } - - // UTF-16 (BOM) => UTF-8 - public static function iconv_fallback_utf16_utf8($string) { - $bom = substr($string, 0, 2); - if ($bom == "\xFE\xFF") { - return self::iconv_fallback_utf16be_utf8(substr($string, 2)); - } elseif ($bom == "\xFF\xFE") { - return self::iconv_fallback_utf16le_utf8(substr($string, 2)); - } - return $string; - } - - public static function iconv_fallback($in_charset, $out_charset, $string) { - - if ($in_charset == $out_charset) { - return $string; - } - - // iconv() availble - if (function_exists('iconv')) { - if ($converted_string = @iconv($in_charset, $out_charset.'//TRANSLIT', $string)) { - switch ($out_charset) { - case 'ISO-8859-1': - $converted_string = rtrim($converted_string, "\x00"); - break; - } - return $converted_string; - } - - // iconv() may sometimes fail with "illegal character in input string" error message - // and return an empty string, but returning the unconverted string is more useful - return $string; - } - - - // iconv() not available - static $ConversionFunctionList = array(); - if (empty($ConversionFunctionList)) { - $ConversionFunctionList['ISO-8859-1']['UTF-8'] = 'iconv_fallback_iso88591_utf8'; - $ConversionFunctionList['ISO-8859-1']['UTF-16'] = 'iconv_fallback_iso88591_utf16'; - $ConversionFunctionList['ISO-8859-1']['UTF-16BE'] = 'iconv_fallback_iso88591_utf16be'; - $ConversionFunctionList['ISO-8859-1']['UTF-16LE'] = 'iconv_fallback_iso88591_utf16le'; - $ConversionFunctionList['UTF-8']['ISO-8859-1'] = 'iconv_fallback_utf8_iso88591'; - $ConversionFunctionList['UTF-8']['UTF-16'] = 'iconv_fallback_utf8_utf16'; - $ConversionFunctionList['UTF-8']['UTF-16BE'] = 'iconv_fallback_utf8_utf16be'; - $ConversionFunctionList['UTF-8']['UTF-16LE'] = 'iconv_fallback_utf8_utf16le'; - $ConversionFunctionList['UTF-16']['ISO-8859-1'] = 'iconv_fallback_utf16_iso88591'; - $ConversionFunctionList['UTF-16']['UTF-8'] = 'iconv_fallback_utf16_utf8'; - $ConversionFunctionList['UTF-16LE']['ISO-8859-1'] = 'iconv_fallback_utf16le_iso88591'; - $ConversionFunctionList['UTF-16LE']['UTF-8'] = 'iconv_fallback_utf16le_utf8'; - $ConversionFunctionList['UTF-16BE']['ISO-8859-1'] = 'iconv_fallback_utf16be_iso88591'; - $ConversionFunctionList['UTF-16BE']['UTF-8'] = 'iconv_fallback_utf16be_utf8'; - } - if (isset($ConversionFunctionList[strtoupper($in_charset)][strtoupper($out_charset)])) { - $ConversionFunction = $ConversionFunctionList[strtoupper($in_charset)][strtoupper($out_charset)]; - return self::$ConversionFunction($string); - } - throw new Exception('PHP does not have iconv() support - cannot convert from '.$in_charset.' to '.$out_charset); - } - - - public static function MultiByteCharString2HTML($string, $charset='ISO-8859-1') { - $string = (string) $string; // in case trying to pass a numeric (float, int) string, would otherwise return an empty string - $HTMLstring = ''; - - switch ($charset) { - case '1251': - case '1252': - case '866': - case '932': - case '936': - case '950': - case 'BIG5': - case 'BIG5-HKSCS': - case 'cp1251': - case 'cp1252': - case 'cp866': - case 'EUC-JP': - case 'EUCJP': - case 'GB2312': - case 'ibm866': - case 'ISO-8859-1': - case 'ISO-8859-15': - case 'ISO8859-1': - case 'ISO8859-15': - case 'KOI8-R': - case 'koi8-ru': - case 'koi8r': - case 'Shift_JIS': - case 'SJIS': - case 'win-1251': - case 'Windows-1251': - case 'Windows-1252': - $HTMLstring = htmlentities($string, ENT_COMPAT, $charset); - break; - - case 'UTF-8': - $strlen = strlen($string); - for ($i = 0; $i < $strlen; $i++) { - $char_ord_val = ord($string{$i}); - $charval = 0; - if ($char_ord_val < 0x80) { - $charval = $char_ord_val; - } elseif ((($char_ord_val & 0xF0) >> 4) == 0x0F && $i+3 < $strlen) { - $charval = (($char_ord_val & 0x07) << 18); - $charval += ((ord($string{++$i}) & 0x3F) << 12); - $charval += ((ord($string{++$i}) & 0x3F) << 6); - $charval += (ord($string{++$i}) & 0x3F); - } elseif ((($char_ord_val & 0xE0) >> 5) == 0x07 && $i+2 < $strlen) { - $charval = (($char_ord_val & 0x0F) << 12); - $charval += ((ord($string{++$i}) & 0x3F) << 6); - $charval += (ord($string{++$i}) & 0x3F); - } elseif ((($char_ord_val & 0xC0) >> 6) == 0x03 && $i+1 < $strlen) { - $charval = (($char_ord_val & 0x1F) << 6); - $charval += (ord($string{++$i}) & 0x3F); - } - if (($charval >= 32) && ($charval <= 127)) { - $HTMLstring .= htmlentities(chr($charval)); - } else { - $HTMLstring .= '&#'.$charval.';'; - } - } - break; - - case 'UTF-16LE': - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::LittleEndian2Int(substr($string, $i, 2)); - if (($charval >= 32) && ($charval <= 127)) { - $HTMLstring .= chr($charval); - } else { - $HTMLstring .= '&#'.$charval.';'; - } - } - break; - - case 'UTF-16BE': - for ($i = 0; $i < strlen($string); $i += 2) { - $charval = self::BigEndian2Int(substr($string, $i, 2)); - if (($charval >= 32) && ($charval <= 127)) { - $HTMLstring .= chr($charval); - } else { - $HTMLstring .= '&#'.$charval.';'; - } - } - break; - - default: - $HTMLstring = 'ERROR: Character set "'.$charset.'" not supported in MultiByteCharString2HTML()'; - break; - } - return $HTMLstring; - } - - - - public static function RGADnameLookup($namecode) { - static $RGADname = array(); - if (empty($RGADname)) { - $RGADname[0] = 'not set'; - $RGADname[1] = 'Track Gain Adjustment'; - $RGADname[2] = 'Album Gain Adjustment'; - } - - return (isset($RGADname[$namecode]) ? $RGADname[$namecode] : ''); - } - - - public static function RGADoriginatorLookup($originatorcode) { - static $RGADoriginator = array(); - if (empty($RGADoriginator)) { - $RGADoriginator[0] = 'unspecified'; - $RGADoriginator[1] = 'pre-set by artist/producer/mastering engineer'; - $RGADoriginator[2] = 'set by user'; - $RGADoriginator[3] = 'determined automatically'; - } - - return (isset($RGADoriginator[$originatorcode]) ? $RGADoriginator[$originatorcode] : ''); - } - - - public static function RGADadjustmentLookup($rawadjustment, $signbit) { - $adjustment = $rawadjustment / 10; - if ($signbit == 1) { - $adjustment *= -1; - } - return (float) $adjustment; - } - - - public static function RGADgainString($namecode, $originatorcode, $replaygain) { - if ($replaygain < 0) { - $signbit = '1'; - } else { - $signbit = '0'; - } - $storedreplaygain = intval(round($replaygain * 10)); - $gainstring = str_pad(decbin($namecode), 3, '0', STR_PAD_LEFT); - $gainstring .= str_pad(decbin($originatorcode), 3, '0', STR_PAD_LEFT); - $gainstring .= $signbit; - $gainstring .= str_pad(decbin($storedreplaygain), 9, '0', STR_PAD_LEFT); - - return $gainstring; - } - - public static function RGADamplitude2dB($amplitude) { - return 20 * log10($amplitude); - } - - - public static function GetDataImageSize($imgData, &$imageinfo=array()) { - static $tempdir = ''; - if (empty($tempdir)) { - // yes this is ugly, feel free to suggest a better way - require_once(dirname(__FILE__).'/getid3.php'); - $getid3_temp = new getID3(); - $tempdir = $getid3_temp->tempdir; - unset($getid3_temp); - } - $GetDataImageSize = false; - if ($tempfilename = tempnam($tempdir, 'gI3')) { - if (is_writable($tempfilename) && is_file($tempfilename) && ($tmp = fopen($tempfilename, 'wb'))) { - fwrite($tmp, $imgData); - fclose($tmp); - $GetDataImageSize = @getimagesize($tempfilename, $imageinfo); - } - unlink($tempfilename); - } - return $GetDataImageSize; - } - - public static function ImageExtFromMime($mime_type) { - // temporary way, works OK for now, but should be reworked in the future - return str_replace(array('image/', 'x-', 'jpeg'), array('', '', 'jpg'), $mime_type); - } - - public static function ImageTypesLookup($imagetypeid) { - static $ImageTypesLookup = array(); - if (empty($ImageTypesLookup)) { - $ImageTypesLookup[1] = 'gif'; - $ImageTypesLookup[2] = 'jpeg'; - $ImageTypesLookup[3] = 'png'; - $ImageTypesLookup[4] = 'swf'; - $ImageTypesLookup[5] = 'psd'; - $ImageTypesLookup[6] = 'bmp'; - $ImageTypesLookup[7] = 'tiff (little-endian)'; - $ImageTypesLookup[8] = 'tiff (big-endian)'; - $ImageTypesLookup[9] = 'jpc'; - $ImageTypesLookup[10] = 'jp2'; - $ImageTypesLookup[11] = 'jpx'; - $ImageTypesLookup[12] = 'jb2'; - $ImageTypesLookup[13] = 'swc'; - $ImageTypesLookup[14] = 'iff'; - } - return (isset($ImageTypesLookup[$imagetypeid]) ? $ImageTypesLookup[$imagetypeid] : ''); - } - - public static function CopyTagsToComments(&$ThisFileInfo) { - - // Copy all entries from ['tags'] into common ['comments'] - if (!empty($ThisFileInfo['tags'])) { - foreach ($ThisFileInfo['tags'] as $tagtype => $tagarray) { - foreach ($tagarray as $tagname => $tagdata) { - foreach ($tagdata as $key => $value) { - if (!empty($value)) { - if (empty($ThisFileInfo['comments'][$tagname])) { - - // fall through and append value - - } elseif ($tagtype == 'id3v1') { - - $newvaluelength = strlen(trim($value)); - foreach ($ThisFileInfo['comments'][$tagname] as $existingkey => $existingvalue) { - $oldvaluelength = strlen(trim($existingvalue)); - if (($newvaluelength <= $oldvaluelength) && (substr($existingvalue, 0, $newvaluelength) == trim($value))) { - // new value is identical but shorter-than (or equal-length to) one already in comments - skip - break 2; - } - } - - } elseif (!is_array($value)) { - - $newvaluelength = strlen(trim($value)); - foreach ($ThisFileInfo['comments'][$tagname] as $existingkey => $existingvalue) { - $oldvaluelength = strlen(trim($existingvalue)); - if (($newvaluelength > $oldvaluelength) && (substr(trim($value), 0, strlen($existingvalue)) == $existingvalue)) { - $ThisFileInfo['comments'][$tagname][$existingkey] = trim($value); - break 2; - } - } - - } - if (is_array($value) || empty($ThisFileInfo['comments'][$tagname]) || !in_array(trim($value), $ThisFileInfo['comments'][$tagname])) { - $value = (is_string($value) ? trim($value) : $value); - $ThisFileInfo['comments'][$tagname][] = $value; - } - } - } - } - } - - // Copy to ['comments_html'] - foreach ($ThisFileInfo['comments'] as $field => $values) { - if ($field == 'picture') { - // pictures can take up a lot of space, and we don't need multiple copies of them - // let there be a single copy in [comments][picture], and not elsewhere - continue; - } - foreach ($values as $index => $value) { - if (is_array($value)) { - $ThisFileInfo['comments_html'][$field][$index] = $value; - } else { - $ThisFileInfo['comments_html'][$field][$index] = str_replace('�', '', self::MultiByteCharString2HTML($value, $ThisFileInfo['encoding'])); - } - } - } - } - return true; - } - - - public static function EmbeddedLookup($key, $begin, $end, $file, $name) { - - // Cached - static $cache; - if (isset($cache[$file][$name])) { - return (isset($cache[$file][$name][$key]) ? $cache[$file][$name][$key] : ''); - } - - // Init - $keylength = strlen($key); - $line_count = $end - $begin - 7; - - // Open php file - $fp = fopen($file, 'r'); - - // Discard $begin lines - for ($i = 0; $i < ($begin + 3); $i++) { - fgets($fp, 1024); - } - - // Loop thru line - while (0 < $line_count--) { - - // Read line - $line = ltrim(fgets($fp, 1024), "\t "); - - // METHOD A: only cache the matching key - less memory but slower on next lookup of not-previously-looked-up key - //$keycheck = substr($line, 0, $keylength); - //if ($key == $keycheck) { - // $cache[$file][$name][$keycheck] = substr($line, $keylength + 1); - // break; - //} - - // METHOD B: cache all keys in this lookup - more memory but faster on next lookup of not-previously-looked-up key - //$cache[$file][$name][substr($line, 0, $keylength)] = trim(substr($line, $keylength + 1)); - $explodedLine = explode("\t", $line, 2); - $ThisKey = (isset($explodedLine[0]) ? $explodedLine[0] : ''); - $ThisValue = (isset($explodedLine[1]) ? $explodedLine[1] : ''); - $cache[$file][$name][$ThisKey] = trim($ThisValue); - } - - // Close and return - fclose($fp); - return (isset($cache[$file][$name][$key]) ? $cache[$file][$name][$key] : ''); - } - - public static function IncludeDependency($filename, $sourcefile, $DieOnFailure=false) { - global $GETID3_ERRORARRAY; - - if (file_exists($filename)) { - if (include_once($filename)) { - return true; - } else { - $diemessage = basename($sourcefile).' depends on '.$filename.', which has errors'; - } - } else { - $diemessage = basename($sourcefile).' depends on '.$filename.', which is missing'; - } - if ($DieOnFailure) { - throw new Exception($diemessage); - } else { - $GETID3_ERRORARRAY[] = $diemessage; - } - return false; - } - - public static function trimNullByte($string) { - return trim($string, "\x00"); - } - - public static function getFileSizeSyscall($path) { - $filesize = false; - - if (GETID3_OS_ISWINDOWS) { - if (class_exists('COM')) { // From PHP 5.3.15 and 5.4.5, COM and DOTNET is no longer built into the php core.you have to add COM support in php.ini: - $filesystem = new COM('Scripting.FileSystemObject'); - $file = $filesystem->GetFile($path); - $filesize = $file->Size(); - unset($filesystem, $file); - } else { - $commandline = 'for %I in ('.escapeshellarg($path).') do @echo %~zI'; - } - } else { - $commandline = 'ls -l '.escapeshellarg($path).' | awk \'{print $5}\''; - } - if (isset($commandline)) { - $output = trim(`$commandline`); - if (ctype_digit($output)) { - $filesize = (float) $output; - } - } - return $filesize; - } - -} diff --git a/web/htdocs/media/lib/getid3/getid3.php b/web/htdocs/media/lib/getid3/getid3.php deleted file mode 100644 index 454829ce8ca..00000000000 --- a/web/htdocs/media/lib/getid3/getid3.php +++ /dev/null @@ -1,1776 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// // -// Please see readme.txt for more information // -// /// -///////////////////////////////////////////////////////////////// - -// define a constant rather than looking up every time it is needed -if (!defined('GETID3_OS_ISWINDOWS')) { - define('GETID3_OS_ISWINDOWS', (stripos(PHP_OS, 'WIN') === 0)); -} -// Get base path of getID3() - ONCE -if (!defined('GETID3_INCLUDEPATH')) { - define('GETID3_INCLUDEPATH', dirname(__FILE__).DIRECTORY_SEPARATOR); -} - -// attempt to define temp dir as something flexible but reliable -$temp_dir = ini_get('upload_tmp_dir'); -if ($temp_dir && (!is_dir($temp_dir) || !is_readable($temp_dir))) { - $temp_dir = ''; -} -if (!$temp_dir && function_exists('sys_get_temp_dir')) { - // PHP v5.2.1+ - // sys_get_temp_dir() may give inaccessible temp dir, e.g. with open_basedir on virtual hosts - $temp_dir = sys_get_temp_dir(); -} -$temp_dir = realpath($temp_dir); -$open_basedir = ini_get('open_basedir'); -if ($open_basedir) { - // e.g. "/var/www/vhosts/getid3.org/httpdocs/:/tmp/" - $temp_dir = str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $temp_dir); - $open_basedir = str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $open_basedir); - if (substr($temp_dir, -1, 1) != DIRECTORY_SEPARATOR) { - $temp_dir .= DIRECTORY_SEPARATOR; - } - $found_valid_tempdir = false; - $open_basedirs = explode(PATH_SEPARATOR, $open_basedir); - foreach ($open_basedirs as $basedir) { - if (substr($basedir, -1, 1) != DIRECTORY_SEPARATOR) { - $basedir .= DIRECTORY_SEPARATOR; - } - if (preg_match('#^'.preg_quote($basedir).'#', $temp_dir)) { - $found_valid_tempdir = true; - break; - } - } - if (!$found_valid_tempdir) { - $temp_dir = ''; - } - unset($open_basedirs, $found_valid_tempdir, $basedir); -} -if (!$temp_dir) { - $temp_dir = '*'; // invalid directory name should force tempnam() to use system default temp dir -} -// $temp_dir = '/something/else/'; // feel free to override temp dir here if it works better for your system -define('GETID3_TEMP_DIR', $temp_dir); -unset($open_basedir, $temp_dir); - -// End: Defines - - -class getID3 -{ - // public: Settings - public $encoding = 'UTF-8'; // CASE SENSITIVE! - i.e. (must be supported by iconv()). Examples: ISO-8859-1 UTF-8 UTF-16 UTF-16BE - public $encoding_id3v1 = 'ISO-8859-1'; // Should always be 'ISO-8859-1', but some tags may be written in other encodings such as 'EUC-CN' or 'CP1252' - - // public: Optional tag checks - disable for speed. - public $option_tag_id3v1 = true; // Read and process ID3v1 tags - public $option_tag_id3v2 = true; // Read and process ID3v2 tags - public $option_tag_lyrics3 = true; // Read and process Lyrics3 tags - public $option_tag_apetag = true; // Read and process APE tags - public $option_tags_process = true; // Copy tags to root key 'tags' and encode to $this->encoding - public $option_tags_html = true; // Copy tags to root key 'tags_html' properly translated from various encodings to HTML entities - - // public: Optional tag/comment calucations - public $option_extra_info = true; // Calculate additional info such as bitrate, channelmode etc - - // public: Optional handling of embedded attachments (e.g. images) - public $option_save_attachments = true; // defaults to true (ATTACHMENTS_INLINE) for backward compatibility - - // public: Optional calculations - public $option_md5_data = false; // Get MD5 sum of data part - slow - public $option_md5_data_source = false; // Use MD5 of source file if availble - only FLAC and OptimFROG - public $option_sha1_data = false; // Get SHA1 sum of data part - slow - public $option_max_2gb_check = null; // Check whether file is larger than 2GB and thus not supported by 32-bit PHP (null: auto-detect based on PHP_INT_MAX) - - // public: Read buffer size in bytes - public $option_fread_buffer_size = 32768; - - // Public variables - public $filename; // Filename of file being analysed. - public $fp; // Filepointer to file being analysed. - public $info; // Result array. - public $tempdir = GETID3_TEMP_DIR; - - // Protected variables - protected $startup_error = ''; - protected $startup_warning = ''; - protected $memory_limit = 0; - - const VERSION = '1.9.7-20130705'; - const FREAD_BUFFER_SIZE = 32768; - - const ATTACHMENTS_NONE = false; - const ATTACHMENTS_INLINE = true; - - // public: constructor - public function __construct() { - - // Check for PHP version - $required_php_version = '5.0.5'; - if (version_compare(PHP_VERSION, $required_php_version, '<')) { - $this->startup_error .= 'getID3() requires PHP v'.$required_php_version.' or higher - you are running v'.PHP_VERSION; - return false; - } - - // Check memory - $this->memory_limit = ini_get('memory_limit'); - if (preg_match('#([0-9]+)M#i', $this->memory_limit, $matches)) { - // could be stored as "16M" rather than 16777216 for example - $this->memory_limit = $matches[1] * 1048576; - } elseif (preg_match('#([0-9]+)G#i', $this->memory_limit, $matches)) { // The 'G' modifier is available since PHP 5.1.0 - // could be stored as "2G" rather than 2147483648 for example - $this->memory_limit = $matches[1] * 1073741824; - } - if ($this->memory_limit <= 0) { - // memory limits probably disabled - } elseif ($this->memory_limit <= 4194304) { - $this->startup_error .= 'PHP has less than 4MB available memory and will very likely run out. Increase memory_limit in php.ini'; - } elseif ($this->memory_limit <= 12582912) { - $this->startup_warning .= 'PHP has less than 12MB available memory and might run out if all modules are loaded. Increase memory_limit in php.ini'; - } - - // Check safe_mode off - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - $this->warning('WARNING: Safe mode is on, shorten support disabled, md5data/sha1data for ogg vorbis disabled, ogg vorbos/flac tag writing disabled.'); - } - - if (intval(ini_get('mbstring.func_overload')) > 0) { - $this->warning('WARNING: php.ini contains "mbstring.func_overload = '.ini_get('mbstring.func_overload').'", this may break things.'); - } - - // Check for magic_quotes_runtime - if (function_exists('get_magic_quotes_runtime')) { - if (get_magic_quotes_runtime()) { - return $this->startup_error('magic_quotes_runtime must be disabled before running getID3(). Surround getid3 block by set_magic_quotes_runtime(0) and set_magic_quotes_runtime(1).'); - } - } - - // Check for magic_quotes_gpc - if (function_exists('magic_quotes_gpc')) { - if (get_magic_quotes_gpc()) { - return $this->startup_error('magic_quotes_gpc must be disabled before running getID3(). Surround getid3 block by set_magic_quotes_gpc(0) and set_magic_quotes_gpc(1).'); - } - } - - // Load support library - if (!include_once(GETID3_INCLUDEPATH.'getid3.lib.php')) { - $this->startup_error .= 'getid3.lib.php is missing or corrupt'; - } - - if ($this->option_max_2gb_check === null) { - $this->option_max_2gb_check = (PHP_INT_MAX <= 2147483647); - } - - - // Needed for Windows only: - // Define locations of helper applications for Shorten, VorbisComment, MetaFLAC - // as well as other helper functions such as head, tail, md5sum, etc - // This path cannot contain spaces, but the below code will attempt to get the - // 8.3-equivalent path automatically - // IMPORTANT: This path must include the trailing slash - if (GETID3_OS_ISWINDOWS && !defined('GETID3_HELPERAPPSDIR')) { - - $helperappsdir = GETID3_INCLUDEPATH.'..'.DIRECTORY_SEPARATOR.'helperapps'; // must not have any space in this path - - if (!is_dir($helperappsdir)) { - $this->startup_warning .= '"'.$helperappsdir.'" cannot be defined as GETID3_HELPERAPPSDIR because it does not exist'; - } elseif (strpos(realpath($helperappsdir), ' ') !== false) { - $DirPieces = explode(DIRECTORY_SEPARATOR, realpath($helperappsdir)); - $path_so_far = array(); - foreach ($DirPieces as $key => $value) { - if (strpos($value, ' ') !== false) { - if (!empty($path_so_far)) { - $commandline = 'dir /x '.escapeshellarg(implode(DIRECTORY_SEPARATOR, $path_so_far)); - $dir_listing = `$commandline`; - $lines = explode("\n", $dir_listing); - foreach ($lines as $line) { - $line = trim($line); - if (preg_match('#^([0-9/]{10}) +([0-9:]{4,5}( [AP]M)?) +(|[0-9,]+) +([^ ]{0,11}) +(.+)$#', $line, $matches)) { - list($dummy, $date, $time, $ampm, $filesize, $shortname, $filename) = $matches; - if ((strtoupper($filesize) == '') && (strtolower($filename) == strtolower($value))) { - $value = $shortname; - } - } - } - } else { - $this->startup_warning .= 'GETID3_HELPERAPPSDIR must not have any spaces in it - use 8dot3 naming convention if neccesary. You can run "dir /x" from the commandline to see the correct 8.3-style names.'; - } - } - $path_so_far[] = $value; - } - $helperappsdir = implode(DIRECTORY_SEPARATOR, $path_so_far); - } - define('GETID3_HELPERAPPSDIR', $helperappsdir.DIRECTORY_SEPARATOR); - } - - return true; - } - - public function version() { - return self::VERSION; - } - - public function fread_buffer_size() { - return $this->option_fread_buffer_size; - } - - - // public: setOption - public function setOption($optArray) { - if (!is_array($optArray) || empty($optArray)) { - return false; - } - foreach ($optArray as $opt => $val) { - if (isset($this->$opt) === false) { - continue; - } - $this->$opt = $val; - } - return true; - } - - - public function openfile($filename) { - try { - if (!empty($this->startup_error)) { - throw new getid3_exception($this->startup_error); - } - if (!empty($this->startup_warning)) { - $this->warning($this->startup_warning); - } - - // init result array and set parameters - $this->filename = $filename; - $this->info = array(); - $this->info['GETID3_VERSION'] = $this->version(); - $this->info['php_memory_limit'] = $this->memory_limit; - - // remote files not supported - if (preg_match('/^(ht|f)tp:\/\//', $filename)) { - throw new getid3_exception('Remote files are not supported - please copy the file locally first'); - } - - $filename = str_replace('/', DIRECTORY_SEPARATOR, $filename); - $filename = preg_replace('#(.+)'.preg_quote(DIRECTORY_SEPARATOR).'{2,}#U', '\1'.DIRECTORY_SEPARATOR, $filename); - - // open local file - if (is_readable($filename) && is_file($filename) && ($this->fp = fopen($filename, 'rb'))) { - // great - } else { - throw new getid3_exception('Could not open "'.$filename.'" (does not exist, or is not a file)'); - } - - $this->info['filesize'] = filesize($filename); - // set redundant parameters - might be needed in some include file - $this->info['filename'] = basename($filename); - $this->info['filepath'] = str_replace('\\', '/', realpath(dirname($filename))); - $this->info['filenamepath'] = $this->info['filepath'].'/'.$this->info['filename']; - - - // option_max_2gb_check - if ($this->option_max_2gb_check) { - // PHP (32-bit all, and 64-bit Windows) doesn't support integers larger than 2^31 (~2GB) - // filesize() simply returns (filesize % (pow(2, 32)), no matter the actual filesize - // ftell() returns 0 if seeking to the end is beyond the range of unsigned integer - $fseek = fseek($this->fp, 0, SEEK_END); - if (($fseek < 0) || (($this->info['filesize'] != 0) && (ftell($this->fp) == 0)) || - ($this->info['filesize'] < 0) || - (ftell($this->fp) < 0)) { - $real_filesize = getid3_lib::getFileSizeSyscall($this->info['filenamepath']); - - if ($real_filesize === false) { - unset($this->info['filesize']); - fclose($this->fp); - throw new getid3_exception('Unable to determine actual filesize. File is most likely larger than '.round(PHP_INT_MAX / 1073741824).'GB and is not supported by PHP.'); - } elseif (getid3_lib::intValueSupported($real_filesize)) { - unset($this->info['filesize']); - fclose($this->fp); - throw new getid3_exception('PHP seems to think the file is larger than '.round(PHP_INT_MAX / 1073741824).'GB, but filesystem reports it as '.number_format($real_filesize, 3).'GB, please report to info@getid3.org'); - } - $this->info['filesize'] = $real_filesize; - $this->warning('File is larger than '.round(PHP_INT_MAX / 1073741824).'GB (filesystem reports it as '.number_format($real_filesize, 3).'GB) and is not properly supported by PHP.'); - } - } - - // set more parameters - $this->info['avdataoffset'] = 0; - $this->info['avdataend'] = $this->info['filesize']; - $this->info['fileformat'] = ''; // filled in later - $this->info['audio']['dataformat'] = ''; // filled in later, unset if not used - $this->info['video']['dataformat'] = ''; // filled in later, unset if not used - $this->info['tags'] = array(); // filled in later, unset if not used - $this->info['error'] = array(); // filled in later, unset if not used - $this->info['warning'] = array(); // filled in later, unset if not used - $this->info['comments'] = array(); // filled in later, unset if not used - $this->info['encoding'] = $this->encoding; // required by id3v2 and iso modules - can be unset at the end if desired - - return true; - - } catch (Exception $e) { - $this->error($e->getMessage()); - } - return false; - } - - // public: analyze file - public function analyze($filename) { - try { - if (!$this->openfile($filename)) { - return $this->info; - } - - // Handle tags - foreach (array('id3v2'=>'id3v2', 'id3v1'=>'id3v1', 'apetag'=>'ape', 'lyrics3'=>'lyrics3') as $tag_name => $tag_key) { - $option_tag = 'option_tag_'.$tag_name; - if ($this->$option_tag) { - $this->include_module('tag.'.$tag_name); - try { - $tag_class = 'getid3_'.$tag_name; - $tag = new $tag_class($this); - $tag->Analyze(); - } - catch (getid3_exception $e) { - throw $e; - } - } - } - if (isset($this->info['id3v2']['tag_offset_start'])) { - $this->info['avdataoffset'] = max($this->info['avdataoffset'], $this->info['id3v2']['tag_offset_end']); - } - foreach (array('id3v1'=>'id3v1', 'apetag'=>'ape', 'lyrics3'=>'lyrics3') as $tag_name => $tag_key) { - if (isset($this->info[$tag_key]['tag_offset_start'])) { - $this->info['avdataend'] = min($this->info['avdataend'], $this->info[$tag_key]['tag_offset_start']); - } - } - - // ID3v2 detection (NOT parsing), even if ($this->option_tag_id3v2 == false) done to make fileformat easier - if (!$this->option_tag_id3v2) { - fseek($this->fp, 0, SEEK_SET); - $header = fread($this->fp, 10); - if ((substr($header, 0, 3) == 'ID3') && (strlen($header) == 10)) { - $this->info['id3v2']['header'] = true; - $this->info['id3v2']['majorversion'] = ord($header{3}); - $this->info['id3v2']['minorversion'] = ord($header{4}); - $this->info['avdataoffset'] += getid3_lib::BigEndian2Int(substr($header, 6, 4), 1) + 10; // length of ID3v2 tag in 10-byte header doesn't include 10-byte header length - } - } - - // read 32 kb file data - fseek($this->fp, $this->info['avdataoffset'], SEEK_SET); - $formattest = fread($this->fp, 32774); - - // determine format - $determined_format = $this->GetFileFormat($formattest, $filename); - - // unable to determine file format - if (!$determined_format) { - fclose($this->fp); - return $this->error('unable to determine file format'); - } - - // check for illegal ID3 tags - if (isset($determined_format['fail_id3']) && (in_array('id3v1', $this->info['tags']) || in_array('id3v2', $this->info['tags']))) { - if ($determined_format['fail_id3'] === 'ERROR') { - fclose($this->fp); - return $this->error('ID3 tags not allowed on this file type.'); - } elseif ($determined_format['fail_id3'] === 'WARNING') { - $this->warning('ID3 tags not allowed on this file type.'); - } - } - - // check for illegal APE tags - if (isset($determined_format['fail_ape']) && in_array('ape', $this->info['tags'])) { - if ($determined_format['fail_ape'] === 'ERROR') { - fclose($this->fp); - return $this->error('APE tags not allowed on this file type.'); - } elseif ($determined_format['fail_ape'] === 'WARNING') { - $this->warning('APE tags not allowed on this file type.'); - } - } - - // set mime type - $this->info['mime_type'] = $determined_format['mime_type']; - - // supported format signature pattern detected, but module deleted - if (!file_exists(GETID3_INCLUDEPATH.$determined_format['include'])) { - fclose($this->fp); - return $this->error('Format not supported, module "'.$determined_format['include'].'" was removed.'); - } - - // module requires iconv support - // Check encoding/iconv support - if (!empty($determined_format['iconv_req']) && !function_exists('iconv') && !in_array($this->encoding, array('ISO-8859-1', 'UTF-8', 'UTF-16LE', 'UTF-16BE', 'UTF-16'))) { - $errormessage = 'iconv() support is required for this module ('.$determined_format['include'].') for encodings other than ISO-8859-1, UTF-8, UTF-16LE, UTF16-BE, UTF-16. '; - if (GETID3_OS_ISWINDOWS) { - $errormessage .= 'PHP does not have iconv() support. Please enable php_iconv.dll in php.ini, and copy iconv.dll from c:/php/dlls to c:/windows/system32'; - } else { - $errormessage .= 'PHP is not compiled with iconv() support. Please recompile with the --with-iconv switch'; - } - return $this->error($errormessage); - } - - // include module - include_once(GETID3_INCLUDEPATH.$determined_format['include']); - - // instantiate module class - $class_name = 'getid3_'.$determined_format['module']; - if (!class_exists($class_name)) { - return $this->error('Format not supported, module "'.$determined_format['include'].'" is corrupt.'); - } - $class = new $class_name($this); - $class->Analyze(); - unset($class); - - // close file - fclose($this->fp); - - // process all tags - copy to 'tags' and convert charsets - if ($this->option_tags_process) { - $this->HandleAllTags(); - } - - // perform more calculations - if ($this->option_extra_info) { - $this->ChannelsBitratePlaytimeCalculations(); - $this->CalculateCompressionRatioVideo(); - $this->CalculateCompressionRatioAudio(); - $this->CalculateReplayGain(); - $this->ProcessAudioStreams(); - } - - // get the MD5 sum of the audio/video portion of the file - without ID3/APE/Lyrics3/etc header/footer tags - if ($this->option_md5_data) { - // do not calc md5_data if md5_data_source is present - set by flac only - future MPC/SV8 too - if (!$this->option_md5_data_source || empty($this->info['md5_data_source'])) { - $this->getHashdata('md5'); - } - } - - // get the SHA1 sum of the audio/video portion of the file - without ID3/APE/Lyrics3/etc header/footer tags - if ($this->option_sha1_data) { - $this->getHashdata('sha1'); - } - - // remove undesired keys - $this->CleanUp(); - - } catch (Exception $e) { - $this->error('Caught exception: '.$e->getMessage()); - } - - // return info array - return $this->info; - } - - - // private: error handling - public function error($message) { - $this->CleanUp(); - if (!isset($this->info['error'])) { - $this->info['error'] = array(); - } - $this->info['error'][] = $message; - return $this->info; - } - - - // private: warning handling - public function warning($message) { - $this->info['warning'][] = $message; - return true; - } - - - // private: CleanUp - private function CleanUp() { - - // remove possible empty keys - $AVpossibleEmptyKeys = array('dataformat', 'bits_per_sample', 'encoder_options', 'streams', 'bitrate'); - foreach ($AVpossibleEmptyKeys as $dummy => $key) { - if (empty($this->info['audio'][$key]) && isset($this->info['audio'][$key])) { - unset($this->info['audio'][$key]); - } - if (empty($this->info['video'][$key]) && isset($this->info['video'][$key])) { - unset($this->info['video'][$key]); - } - } - - // remove empty root keys - if (!empty($this->info)) { - foreach ($this->info as $key => $value) { - if (empty($this->info[$key]) && ($this->info[$key] !== 0) && ($this->info[$key] !== '0')) { - unset($this->info[$key]); - } - } - } - - // remove meaningless entries from unknown-format files - if (empty($this->info['fileformat'])) { - if (isset($this->info['avdataoffset'])) { - unset($this->info['avdataoffset']); - } - if (isset($this->info['avdataend'])) { - unset($this->info['avdataend']); - } - } - - // remove possible duplicated identical entries - if (!empty($this->info['error'])) { - $this->info['error'] = array_values(array_unique($this->info['error'])); - } - if (!empty($this->info['warning'])) { - $this->info['warning'] = array_values(array_unique($this->info['warning'])); - } - - // remove "global variable" type keys - unset($this->info['php_memory_limit']); - - return true; - } - - - // return array containing information about all supported formats - public function GetFileFormatArray() { - static $format_info = array(); - if (empty($format_info)) { - $format_info = array( - - // Audio formats - - // AC-3 - audio - Dolby AC-3 / Dolby Digital - 'ac3' => array( - 'pattern' => '^\x0B\x77', - 'group' => 'audio', - 'module' => 'ac3', - 'mime_type' => 'audio/ac3', - ), - - // AAC - audio - Advanced Audio Coding (AAC) - ADIF format - 'adif' => array( - 'pattern' => '^ADIF', - 'group' => 'audio', - 'module' => 'aac', - 'mime_type' => 'application/octet-stream', - 'fail_ape' => 'WARNING', - ), - -/* - // AA - audio - Audible Audiobook - 'aa' => array( - 'pattern' => '^.{4}\x57\x90\x75\x36', - 'group' => 'audio', - 'module' => 'aa', - 'mime_type' => 'audio/audible', - ), -*/ - // AAC - audio - Advanced Audio Coding (AAC) - ADTS format (very similar to MP3) - 'adts' => array( - 'pattern' => '^\xFF[\xF0-\xF1\xF8-\xF9]', - 'group' => 'audio', - 'module' => 'aac', - 'mime_type' => 'application/octet-stream', - 'fail_ape' => 'WARNING', - ), - - - // AU - audio - NeXT/Sun AUdio (AU) - 'au' => array( - 'pattern' => '^\.snd', - 'group' => 'audio', - 'module' => 'au', - 'mime_type' => 'audio/basic', - ), - - // AVR - audio - Audio Visual Research - 'avr' => array( - 'pattern' => '^2BIT', - 'group' => 'audio', - 'module' => 'avr', - 'mime_type' => 'application/octet-stream', - ), - - // BONK - audio - Bonk v0.9+ - 'bonk' => array( - 'pattern' => '^\x00(BONK|INFO|META| ID3)', - 'group' => 'audio', - 'module' => 'bonk', - 'mime_type' => 'audio/xmms-bonk', - ), - - // DSS - audio - Digital Speech Standard - 'dss' => array( - 'pattern' => '^[\x02-\x03]ds[s2]', - 'group' => 'audio', - 'module' => 'dss', - 'mime_type' => 'application/octet-stream', - ), - - // DTS - audio - Dolby Theatre System - 'dts' => array( - 'pattern' => '^\x7F\xFE\x80\x01', - 'group' => 'audio', - 'module' => 'dts', - 'mime_type' => 'audio/dts', - ), - - // FLAC - audio - Free Lossless Audio Codec - 'flac' => array( - 'pattern' => '^fLaC', - 'group' => 'audio', - 'module' => 'flac', - 'mime_type' => 'audio/x-flac', - ), - - // LA - audio - Lossless Audio (LA) - 'la' => array( - 'pattern' => '^LA0[2-4]', - 'group' => 'audio', - 'module' => 'la', - 'mime_type' => 'application/octet-stream', - ), - - // LPAC - audio - Lossless Predictive Audio Compression (LPAC) - 'lpac' => array( - 'pattern' => '^LPAC', - 'group' => 'audio', - 'module' => 'lpac', - 'mime_type' => 'application/octet-stream', - ), - - // MIDI - audio - MIDI (Musical Instrument Digital Interface) - 'midi' => array( - 'pattern' => '^MThd', - 'group' => 'audio', - 'module' => 'midi', - 'mime_type' => 'audio/midi', - ), - - // MAC - audio - Monkey's Audio Compressor - 'mac' => array( - 'pattern' => '^MAC ', - 'group' => 'audio', - 'module' => 'monkey', - 'mime_type' => 'application/octet-stream', - ), - -// has been known to produce false matches in random files (e.g. JPEGs), leave out until more precise matching available -// // MOD - audio - MODule (assorted sub-formats) -// 'mod' => array( -// 'pattern' => '^.{1080}(M\\.K\\.|M!K!|FLT4|FLT8|[5-9]CHN|[1-3][0-9]CH)', -// 'group' => 'audio', -// 'module' => 'mod', -// 'option' => 'mod', -// 'mime_type' => 'audio/mod', -// ), - - // MOD - audio - MODule (Impulse Tracker) - 'it' => array( - 'pattern' => '^IMPM', - 'group' => 'audio', - 'module' => 'mod', - //'option' => 'it', - 'mime_type' => 'audio/it', - ), - - // MOD - audio - MODule (eXtended Module, various sub-formats) - 'xm' => array( - 'pattern' => '^Extended Module', - 'group' => 'audio', - 'module' => 'mod', - //'option' => 'xm', - 'mime_type' => 'audio/xm', - ), - - // MOD - audio - MODule (ScreamTracker) - 's3m' => array( - 'pattern' => '^.{44}SCRM', - 'group' => 'audio', - 'module' => 'mod', - //'option' => 's3m', - 'mime_type' => 'audio/s3m', - ), - - // MPC - audio - Musepack / MPEGplus - 'mpc' => array( - 'pattern' => '^(MPCK|MP\+|[\x00\x01\x10\x11\x40\x41\x50\x51\x80\x81\x90\x91\xC0\xC1\xD0\xD1][\x20-37][\x00\x20\x40\x60\x80\xA0\xC0\xE0])', - 'group' => 'audio', - 'module' => 'mpc', - 'mime_type' => 'audio/x-musepack', - ), - - // MP3 - audio - MPEG-audio Layer 3 (very similar to AAC-ADTS) - 'mp3' => array( - 'pattern' => '^\xFF[\xE2-\xE7\xF2-\xF7\xFA-\xFF][\x00-\x0B\x10-\x1B\x20-\x2B\x30-\x3B\x40-\x4B\x50-\x5B\x60-\x6B\x70-\x7B\x80-\x8B\x90-\x9B\xA0-\xAB\xB0-\xBB\xC0-\xCB\xD0-\xDB\xE0-\xEB\xF0-\xFB]', - 'group' => 'audio', - 'module' => 'mp3', - 'mime_type' => 'audio/mpeg', - ), - - // OFR - audio - OptimFROG - 'ofr' => array( - 'pattern' => '^(\*RIFF|OFR)', - 'group' => 'audio', - 'module' => 'optimfrog', - 'mime_type' => 'application/octet-stream', - ), - - // RKAU - audio - RKive AUdio compressor - 'rkau' => array( - 'pattern' => '^RKA', - 'group' => 'audio', - 'module' => 'rkau', - 'mime_type' => 'application/octet-stream', - ), - - // SHN - audio - Shorten - 'shn' => array( - 'pattern' => '^ajkg', - 'group' => 'audio', - 'module' => 'shorten', - 'mime_type' => 'audio/xmms-shn', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // TTA - audio - TTA Lossless Audio Compressor (http://tta.corecodec.org) - 'tta' => array( - 'pattern' => '^TTA', // could also be '^TTA(\x01|\x02|\x03|2|1)' - 'group' => 'audio', - 'module' => 'tta', - 'mime_type' => 'application/octet-stream', - ), - - // VOC - audio - Creative Voice (VOC) - 'voc' => array( - 'pattern' => '^Creative Voice File', - 'group' => 'audio', - 'module' => 'voc', - 'mime_type' => 'audio/voc', - ), - - // VQF - audio - transform-domain weighted interleave Vector Quantization Format (VQF) - 'vqf' => array( - 'pattern' => '^TWIN', - 'group' => 'audio', - 'module' => 'vqf', - 'mime_type' => 'application/octet-stream', - ), - - // WV - audio - WavPack (v4.0+) - 'wv' => array( - 'pattern' => '^wvpk', - 'group' => 'audio', - 'module' => 'wavpack', - 'mime_type' => 'application/octet-stream', - ), - - - // Audio-Video formats - - // ASF - audio/video - Advanced Streaming Format, Windows Media Video, Windows Media Audio - 'asf' => array( - 'pattern' => '^\x30\x26\xB2\x75\x8E\x66\xCF\x11\xA6\xD9\x00\xAA\x00\x62\xCE\x6C', - 'group' => 'audio-video', - 'module' => 'asf', - 'mime_type' => 'video/x-ms-asf', - 'iconv_req' => false, - ), - - // BINK - audio/video - Bink / Smacker - 'bink' => array( - 'pattern' => '^(BIK|SMK)', - 'group' => 'audio-video', - 'module' => 'bink', - 'mime_type' => 'application/octet-stream', - ), - - // FLV - audio/video - FLash Video - 'flv' => array( - 'pattern' => '^FLV\x01', - 'group' => 'audio-video', - 'module' => 'flv', - 'mime_type' => 'video/x-flv', - ), - - // MKAV - audio/video - Mastroka - 'matroska' => array( - 'pattern' => '^\x1A\x45\xDF\xA3', - 'group' => 'audio-video', - 'module' => 'matroska', - 'mime_type' => 'video/x-matroska', // may also be audio/x-matroska - ), - - // MPEG - audio/video - MPEG (Moving Pictures Experts Group) - 'mpeg' => array( - 'pattern' => '^\x00\x00\x01(\xBA|\xB3)', - 'group' => 'audio-video', - 'module' => 'mpeg', - 'mime_type' => 'video/mpeg', - ), - - // NSV - audio/video - Nullsoft Streaming Video (NSV) - 'nsv' => array( - 'pattern' => '^NSV[sf]', - 'group' => 'audio-video', - 'module' => 'nsv', - 'mime_type' => 'application/octet-stream', - ), - - // Ogg - audio/video - Ogg (Ogg-Vorbis, Ogg-FLAC, Speex, Ogg-Theora(*), Ogg-Tarkin(*)) - 'ogg' => array( - 'pattern' => '^OggS', - 'group' => 'audio', - 'module' => 'ogg', - 'mime_type' => 'application/ogg', - 'fail_id3' => 'WARNING', - 'fail_ape' => 'WARNING', - ), - - // QT - audio/video - Quicktime - 'quicktime' => array( - 'pattern' => '^.{4}(cmov|free|ftyp|mdat|moov|pnot|skip|wide)', - 'group' => 'audio-video', - 'module' => 'quicktime', - 'mime_type' => 'video/quicktime', - ), - - // RIFF - audio/video - Resource Interchange File Format (RIFF) / WAV / AVI / CD-audio / SDSS = renamed variant used by SmartSound QuickTracks (www.smartsound.com) / FORM = Audio Interchange File Format (AIFF) - 'riff' => array( - 'pattern' => '^(RIFF|SDSS|FORM)', - 'group' => 'audio-video', - 'module' => 'riff', - 'mime_type' => 'audio/x-wave', - 'fail_ape' => 'WARNING', - ), - - // Real - audio/video - RealAudio, RealVideo - 'real' => array( - 'pattern' => '^(\\.RMF|\\.ra)', - 'group' => 'audio-video', - 'module' => 'real', - 'mime_type' => 'audio/x-realaudio', - ), - - // SWF - audio/video - ShockWave Flash - 'swf' => array( - 'pattern' => '^(F|C)WS', - 'group' => 'audio-video', - 'module' => 'swf', - 'mime_type' => 'application/x-shockwave-flash', - ), - - // TS - audio/video - MPEG-2 Transport Stream - 'ts' => array( - 'pattern' => '^(\x47.{187}){10,}', // packets are 188 bytes long and start with 0x47 "G". Check for at least 10 packets matching this pattern - 'group' => 'audio-video', - 'module' => 'ts', - 'mime_type' => 'video/MP2T', - ), - - - // Still-Image formats - - // BMP - still image - Bitmap (Windows, OS/2; uncompressed, RLE8, RLE4) - 'bmp' => array( - 'pattern' => '^BM', - 'group' => 'graphic', - 'module' => 'bmp', - 'mime_type' => 'image/bmp', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // GIF - still image - Graphics Interchange Format - 'gif' => array( - 'pattern' => '^GIF', - 'group' => 'graphic', - 'module' => 'gif', - 'mime_type' => 'image/gif', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // JPEG - still image - Joint Photographic Experts Group (JPEG) - 'jpg' => array( - 'pattern' => '^\xFF\xD8\xFF', - 'group' => 'graphic', - 'module' => 'jpg', - 'mime_type' => 'image/jpeg', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // PCD - still image - Kodak Photo CD - 'pcd' => array( - 'pattern' => '^.{2048}PCD_IPI\x00', - 'group' => 'graphic', - 'module' => 'pcd', - 'mime_type' => 'image/x-photo-cd', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // PNG - still image - Portable Network Graphics (PNG) - 'png' => array( - 'pattern' => '^\x89\x50\x4E\x47\x0D\x0A\x1A\x0A', - 'group' => 'graphic', - 'module' => 'png', - 'mime_type' => 'image/png', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // SVG - still image - Scalable Vector Graphics (SVG) - 'svg' => array( - 'pattern' => '( 'graphic', - 'module' => 'svg', - 'mime_type' => 'image/svg+xml', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // TIFF - still image - Tagged Information File Format (TIFF) - 'tiff' => array( - 'pattern' => '^(II\x2A\x00|MM\x00\x2A)', - 'group' => 'graphic', - 'module' => 'tiff', - 'mime_type' => 'image/tiff', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // EFAX - still image - eFax (TIFF derivative) - 'efax' => array( - 'pattern' => '^\xDC\xFE', - 'group' => 'graphic', - 'module' => 'efax', - 'mime_type' => 'image/efax', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // Data formats - - // ISO - data - International Standards Organization (ISO) CD-ROM Image - 'iso' => array( - 'pattern' => '^.{32769}CD001', - 'group' => 'misc', - 'module' => 'iso', - 'mime_type' => 'application/octet-stream', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - 'iconv_req' => false, - ), - - // RAR - data - RAR compressed data - 'rar' => array( - 'pattern' => '^Rar\!', - 'group' => 'archive', - 'module' => 'rar', - 'mime_type' => 'application/octet-stream', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // SZIP - audio/data - SZIP compressed data - 'szip' => array( - 'pattern' => '^SZ\x0A\x04', - 'group' => 'archive', - 'module' => 'szip', - 'mime_type' => 'application/octet-stream', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // TAR - data - TAR compressed data - 'tar' => array( - 'pattern' => '^.{100}[0-9\x20]{7}\x00[0-9\x20]{7}\x00[0-9\x20]{7}\x00[0-9\x20\x00]{12}[0-9\x20\x00]{12}', - 'group' => 'archive', - 'module' => 'tar', - 'mime_type' => 'application/x-tar', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // GZIP - data - GZIP compressed data - 'gz' => array( - 'pattern' => '^\x1F\x8B\x08', - 'group' => 'archive', - 'module' => 'gzip', - 'mime_type' => 'application/x-gzip', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // ZIP - data - ZIP compressed data - 'zip' => array( - 'pattern' => '^PK\x03\x04', - 'group' => 'archive', - 'module' => 'zip', - 'mime_type' => 'application/zip', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - - // Misc other formats - - // PAR2 - data - Parity Volume Set Specification 2.0 - 'par2' => array ( - 'pattern' => '^PAR2\x00PKT', - 'group' => 'misc', - 'module' => 'par2', - 'mime_type' => 'application/octet-stream', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // PDF - data - Portable Document Format - 'pdf' => array( - 'pattern' => '^\x25PDF', - 'group' => 'misc', - 'module' => 'pdf', - 'mime_type' => 'application/pdf', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // MSOFFICE - data - ZIP compressed data - 'msoffice' => array( - 'pattern' => '^\xD0\xCF\x11\xE0\xA1\xB1\x1A\xE1', // D0CF11E == DOCFILE == Microsoft Office Document - 'group' => 'misc', - 'module' => 'msoffice', - 'mime_type' => 'application/octet-stream', - 'fail_id3' => 'ERROR', - 'fail_ape' => 'ERROR', - ), - - // CUE - data - CUEsheet (index to single-file disc images) - 'cue' => array( - 'pattern' => '', // empty pattern means cannot be automatically detected, will fall through all other formats and match based on filename and very basic file contents - 'group' => 'misc', - 'module' => 'cue', - 'mime_type' => 'application/octet-stream', - ), - - ); - } - - return $format_info; - } - - - - public function GetFileFormat(&$filedata, $filename='') { - // this function will determine the format of a file based on usually - // the first 2-4 bytes of the file (8 bytes for PNG, 16 bytes for JPG, - // and in the case of ISO CD image, 6 bytes offset 32kb from the start - // of the file). - - // Identify file format - loop through $format_info and detect with reg expr - foreach ($this->GetFileFormatArray() as $format_name => $info) { - // The /s switch on preg_match() forces preg_match() NOT to treat - // newline (0x0A) characters as special chars but do a binary match - if (!empty($info['pattern']) && preg_match('#'.$info['pattern'].'#s', $filedata)) { - $info['include'] = 'module.'.$info['group'].'.'.$info['module'].'.php'; - return $info; - } - } - - - if (preg_match('#\.mp[123a]$#i', $filename)) { - // Too many mp3 encoders on the market put gabage in front of mpeg files - // use assume format on these if format detection failed - $GetFileFormatArray = $this->GetFileFormatArray(); - $info = $GetFileFormatArray['mp3']; - $info['include'] = 'module.'.$info['group'].'.'.$info['module'].'.php'; - return $info; - } elseif (preg_match('/\.cue$/i', $filename) && preg_match('#FILE "[^"]+" (BINARY|MOTOROLA|AIFF|WAVE|MP3)#', $filedata)) { - // there's not really a useful consistent "magic" at the beginning of .cue files to identify them - // so until I think of something better, just go by filename if all other format checks fail - // and verify there's at least one instance of "TRACK xx AUDIO" in the file - $GetFileFormatArray = $this->GetFileFormatArray(); - $info = $GetFileFormatArray['cue']; - $info['include'] = 'module.'.$info['group'].'.'.$info['module'].'.php'; - return $info; - } - - return false; - } - - - // converts array to $encoding charset from $this->encoding - public function CharConvert(&$array, $encoding) { - - // identical encoding - end here - if ($encoding == $this->encoding) { - return; - } - - // loop thru array - foreach ($array as $key => $value) { - - // go recursive - if (is_array($value)) { - $this->CharConvert($array[$key], $encoding); - } - - // convert string - elseif (is_string($value)) { - $array[$key] = trim(getid3_lib::iconv_fallback($encoding, $this->encoding, $value)); - } - } - } - - - public function HandleAllTags() { - - // key name => array (tag name, character encoding) - static $tags; - if (empty($tags)) { - $tags = array( - 'asf' => array('asf' , 'UTF-16LE'), - 'midi' => array('midi' , 'ISO-8859-1'), - 'nsv' => array('nsv' , 'ISO-8859-1'), - 'ogg' => array('vorbiscomment' , 'UTF-8'), - 'png' => array('png' , 'UTF-8'), - 'tiff' => array('tiff' , 'ISO-8859-1'), - 'quicktime' => array('quicktime' , 'UTF-8'), - 'real' => array('real' , 'ISO-8859-1'), - 'vqf' => array('vqf' , 'ISO-8859-1'), - 'zip' => array('zip' , 'ISO-8859-1'), - 'riff' => array('riff' , 'ISO-8859-1'), - 'lyrics3' => array('lyrics3' , 'ISO-8859-1'), - 'id3v1' => array('id3v1' , $this->encoding_id3v1), - 'id3v2' => array('id3v2' , 'UTF-8'), // not according to the specs (every frame can have a different encoding), but getID3() force-converts all encodings to UTF-8 - 'ape' => array('ape' , 'UTF-8'), - 'cue' => array('cue' , 'ISO-8859-1'), - 'matroska' => array('matroska' , 'UTF-8'), - 'flac' => array('vorbiscomment' , 'UTF-8'), - 'divxtag' => array('divx' , 'ISO-8859-1'), - ); - } - - // loop through comments array - foreach ($tags as $comment_name => $tagname_encoding_array) { - list($tag_name, $encoding) = $tagname_encoding_array; - - // fill in default encoding type if not already present - if (isset($this->info[$comment_name]) && !isset($this->info[$comment_name]['encoding'])) { - $this->info[$comment_name]['encoding'] = $encoding; - } - - // copy comments if key name set - if (!empty($this->info[$comment_name]['comments'])) { - foreach ($this->info[$comment_name]['comments'] as $tag_key => $valuearray) { - foreach ($valuearray as $key => $value) { - if (is_string($value)) { - $value = trim($value, " \r\n\t"); // do not trim nulls from $value!! Unicode characters will get mangled if trailing nulls are removed! - } - if ($value) { - $this->info['tags'][trim($tag_name)][trim($tag_key)][] = $value; - } - } - if ($tag_key == 'picture') { - unset($this->info[$comment_name]['comments'][$tag_key]); - } - } - - if (!isset($this->info['tags'][$tag_name])) { - // comments are set but contain nothing but empty strings, so skip - continue; - } - - if ($this->option_tags_html) { - foreach ($this->info['tags'][$tag_name] as $tag_key => $valuearray) { - foreach ($valuearray as $key => $value) { - if (is_string($value)) { - //$this->info['tags_html'][$tag_name][$tag_key][$key] = getid3_lib::MultiByteCharString2HTML($value, $encoding); - $this->info['tags_html'][$tag_name][$tag_key][$key] = str_replace('�', '', trim(getid3_lib::MultiByteCharString2HTML($value, $encoding))); - } else { - $this->info['tags_html'][$tag_name][$tag_key][$key] = $value; - } - } - } - } - - $this->CharConvert($this->info['tags'][$tag_name], $encoding); // only copy gets converted! - } - - } - - // pictures can take up a lot of space, and we don't need multiple copies of them - // let there be a single copy in [comments][picture], and not elsewhere - if (!empty($this->info['tags'])) { - $unset_keys = array('tags', 'tags_html'); - foreach ($this->info['tags'] as $tagtype => $tagarray) { - foreach ($tagarray as $tagname => $tagdata) { - if ($tagname == 'picture') { - foreach ($tagdata as $key => $tagarray) { - $this->info['comments']['picture'][] = $tagarray; - if (isset($tagarray['data']) && isset($tagarray['image_mime'])) { - if (isset($this->info['tags'][$tagtype][$tagname][$key])) { - unset($this->info['tags'][$tagtype][$tagname][$key]); - } - if (isset($this->info['tags_html'][$tagtype][$tagname][$key])) { - unset($this->info['tags_html'][$tagtype][$tagname][$key]); - } - } - } - } - } - foreach ($unset_keys as $unset_key) { - // remove possible empty keys from (e.g. [tags][id3v2][picture]) - if (empty($this->info[$unset_key][$tagtype]['picture'])) { - unset($this->info[$unset_key][$tagtype]['picture']); - } - if (empty($this->info[$unset_key][$tagtype])) { - unset($this->info[$unset_key][$tagtype]); - } - if (empty($this->info[$unset_key])) { - unset($this->info[$unset_key]); - } - } - // remove duplicate copy of picture data from (e.g. [id3v2][comments][picture]) - if (isset($this->info[$tagtype]['comments']['picture'])) { - unset($this->info[$tagtype]['comments']['picture']); - } - if (empty($this->info[$tagtype]['comments'])) { - unset($this->info[$tagtype]['comments']); - } - if (empty($this->info[$tagtype])) { - unset($this->info[$tagtype]); - } - } - } - return true; - } - - - public function getHashdata($algorithm) { - switch ($algorithm) { - case 'md5': - case 'sha1': - break; - - default: - return $this->error('bad algorithm "'.$algorithm.'" in getHashdata()'); - break; - } - - if (!empty($this->info['fileformat']) && !empty($this->info['dataformat']) && ($this->info['fileformat'] == 'ogg') && ($this->info['audio']['dataformat'] == 'vorbis')) { - - // We cannot get an identical md5_data value for Ogg files where the comments - // span more than 1 Ogg page (compared to the same audio data with smaller - // comments) using the normal getID3() method of MD5'ing the data between the - // end of the comments and the end of the file (minus any trailing tags), - // because the page sequence numbers of the pages that the audio data is on - // do not match. Under normal circumstances, where comments are smaller than - // the nominal 4-8kB page size, then this is not a problem, but if there are - // very large comments, the only way around it is to strip off the comment - // tags with vorbiscomment and MD5 that file. - // This procedure must be applied to ALL Ogg files, not just the ones with - // comments larger than 1 page, because the below method simply MD5's the - // whole file with the comments stripped, not just the portion after the - // comments block (which is the standard getID3() method. - - // The above-mentioned problem of comments spanning multiple pages and changing - // page sequence numbers likely happens for OggSpeex and OggFLAC as well, but - // currently vorbiscomment only works on OggVorbis files. - - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - - $this->warning('Failed making system call to vorbiscomment.exe - '.$algorithm.'_data is incorrect - error returned: PHP running in Safe Mode (backtick operator not available)'); - $this->info[$algorithm.'_data'] = false; - - } else { - - // Prevent user from aborting script - $old_abort = ignore_user_abort(true); - - // Create empty file - $empty = tempnam(GETID3_TEMP_DIR, 'getID3'); - touch($empty); - - // Use vorbiscomment to make temp file without comments - $temp = tempnam(GETID3_TEMP_DIR, 'getID3'); - $file = $this->info['filenamepath']; - - if (GETID3_OS_ISWINDOWS) { - - if (file_exists(GETID3_HELPERAPPSDIR.'vorbiscomment.exe')) { - - $commandline = '"'.GETID3_HELPERAPPSDIR.'vorbiscomment.exe" -w -c "'.$empty.'" "'.$file.'" "'.$temp.'"'; - $VorbisCommentError = `$commandline`; - - } else { - - $VorbisCommentError = 'vorbiscomment.exe not found in '.GETID3_HELPERAPPSDIR; - - } - - } else { - - $commandline = 'vorbiscomment -w -c "'.$empty.'" "'.$file.'" "'.$temp.'" 2>&1'; - $commandline = 'vorbiscomment -w -c '.escapeshellarg($empty).' '.escapeshellarg($file).' '.escapeshellarg($temp).' 2>&1'; - $VorbisCommentError = `$commandline`; - - } - - if (!empty($VorbisCommentError)) { - - $this->info['warning'][] = 'Failed making system call to vorbiscomment(.exe) - '.$algorithm.'_data will be incorrect. If vorbiscomment is unavailable, please download from http://www.vorbis.com/download.psp and put in the getID3() directory. Error returned: '.$VorbisCommentError; - $this->info[$algorithm.'_data'] = false; - - } else { - - // Get hash of newly created file - switch ($algorithm) { - case 'md5': - $this->info[$algorithm.'_data'] = md5_file($temp); - break; - - case 'sha1': - $this->info[$algorithm.'_data'] = sha1_file($temp); - break; - } - } - - // Clean up - unlink($empty); - unlink($temp); - - // Reset abort setting - ignore_user_abort($old_abort); - - } - - } else { - - if (!empty($this->info['avdataoffset']) || (isset($this->info['avdataend']) && ($this->info['avdataend'] < $this->info['filesize']))) { - - // get hash from part of file - $this->info[$algorithm.'_data'] = getid3_lib::hash_data($this->info['filenamepath'], $this->info['avdataoffset'], $this->info['avdataend'], $algorithm); - - } else { - - // get hash from whole file - switch ($algorithm) { - case 'md5': - $this->info[$algorithm.'_data'] = md5_file($this->info['filenamepath']); - break; - - case 'sha1': - $this->info[$algorithm.'_data'] = sha1_file($this->info['filenamepath']); - break; - } - } - - } - return true; - } - - - public function ChannelsBitratePlaytimeCalculations() { - - // set channelmode on audio - if (!empty($this->info['audio']['channelmode']) || !isset($this->info['audio']['channels'])) { - // ignore - } elseif ($this->info['audio']['channels'] == 1) { - $this->info['audio']['channelmode'] = 'mono'; - } elseif ($this->info['audio']['channels'] == 2) { - $this->info['audio']['channelmode'] = 'stereo'; - } - - // Calculate combined bitrate - audio + video - $CombinedBitrate = 0; - $CombinedBitrate += (isset($this->info['audio']['bitrate']) ? $this->info['audio']['bitrate'] : 0); - $CombinedBitrate += (isset($this->info['video']['bitrate']) ? $this->info['video']['bitrate'] : 0); - if (($CombinedBitrate > 0) && empty($this->info['bitrate'])) { - $this->info['bitrate'] = $CombinedBitrate; - } - //if ((isset($this->info['video']) && !isset($this->info['video']['bitrate'])) || (isset($this->info['audio']) && !isset($this->info['audio']['bitrate']))) { - // // for example, VBR MPEG video files cannot determine video bitrate: - // // should not set overall bitrate and playtime from audio bitrate only - // unset($this->info['bitrate']); - //} - - // video bitrate undetermined, but calculable - if (isset($this->info['video']['dataformat']) && $this->info['video']['dataformat'] && (!isset($this->info['video']['bitrate']) || ($this->info['video']['bitrate'] == 0))) { - // if video bitrate not set - if (isset($this->info['audio']['bitrate']) && ($this->info['audio']['bitrate'] > 0) && ($this->info['audio']['bitrate'] == $this->info['bitrate'])) { - // AND if audio bitrate is set to same as overall bitrate - if (isset($this->info['playtime_seconds']) && ($this->info['playtime_seconds'] > 0)) { - // AND if playtime is set - if (isset($this->info['avdataend']) && isset($this->info['avdataoffset'])) { - // AND if AV data offset start/end is known - // THEN we can calculate the video bitrate - $this->info['bitrate'] = round((($this->info['avdataend'] - $this->info['avdataoffset']) * 8) / $this->info['playtime_seconds']); - $this->info['video']['bitrate'] = $this->info['bitrate'] - $this->info['audio']['bitrate']; - } - } - } - } - - if ((!isset($this->info['playtime_seconds']) || ($this->info['playtime_seconds'] <= 0)) && !empty($this->info['bitrate'])) { - $this->info['playtime_seconds'] = (($this->info['avdataend'] - $this->info['avdataoffset']) * 8) / $this->info['bitrate']; - } - - if (!isset($this->info['bitrate']) && !empty($this->info['playtime_seconds'])) { - $this->info['bitrate'] = (($this->info['avdataend'] - $this->info['avdataoffset']) * 8) / $this->info['playtime_seconds']; - } - if (isset($this->info['bitrate']) && empty($this->info['audio']['bitrate']) && empty($this->info['video']['bitrate'])) { - if (isset($this->info['audio']['dataformat']) && empty($this->info['video']['resolution_x'])) { - // audio only - $this->info['audio']['bitrate'] = $this->info['bitrate']; - } elseif (isset($this->info['video']['resolution_x']) && empty($this->info['audio']['dataformat'])) { - // video only - $this->info['video']['bitrate'] = $this->info['bitrate']; - } - } - - // Set playtime string - if (!empty($this->info['playtime_seconds']) && empty($this->info['playtime_string'])) { - $this->info['playtime_string'] = getid3_lib::PlaytimeString($this->info['playtime_seconds']); - } - } - - - public function CalculateCompressionRatioVideo() { - if (empty($this->info['video'])) { - return false; - } - if (empty($this->info['video']['resolution_x']) || empty($this->info['video']['resolution_y'])) { - return false; - } - if (empty($this->info['video']['bits_per_sample'])) { - return false; - } - - switch ($this->info['video']['dataformat']) { - case 'bmp': - case 'gif': - case 'jpeg': - case 'jpg': - case 'png': - case 'tiff': - $FrameRate = 1; - $PlaytimeSeconds = 1; - $BitrateCompressed = $this->info['filesize'] * 8; - break; - - default: - if (!empty($this->info['video']['frame_rate'])) { - $FrameRate = $this->info['video']['frame_rate']; - } else { - return false; - } - if (!empty($this->info['playtime_seconds'])) { - $PlaytimeSeconds = $this->info['playtime_seconds']; - } else { - return false; - } - if (!empty($this->info['video']['bitrate'])) { - $BitrateCompressed = $this->info['video']['bitrate']; - } else { - return false; - } - break; - } - $BitrateUncompressed = $this->info['video']['resolution_x'] * $this->info['video']['resolution_y'] * $this->info['video']['bits_per_sample'] * $FrameRate; - - $this->info['video']['compression_ratio'] = $BitrateCompressed / $BitrateUncompressed; - return true; - } - - - public function CalculateCompressionRatioAudio() { - if (empty($this->info['audio']['bitrate']) || empty($this->info['audio']['channels']) || empty($this->info['audio']['sample_rate']) || !is_numeric($this->info['audio']['sample_rate'])) { - return false; - } - $this->info['audio']['compression_ratio'] = $this->info['audio']['bitrate'] / ($this->info['audio']['channels'] * $this->info['audio']['sample_rate'] * (!empty($this->info['audio']['bits_per_sample']) ? $this->info['audio']['bits_per_sample'] : 16)); - - if (!empty($this->info['audio']['streams'])) { - foreach ($this->info['audio']['streams'] as $streamnumber => $streamdata) { - if (!empty($streamdata['bitrate']) && !empty($streamdata['channels']) && !empty($streamdata['sample_rate'])) { - $this->info['audio']['streams'][$streamnumber]['compression_ratio'] = $streamdata['bitrate'] / ($streamdata['channels'] * $streamdata['sample_rate'] * (!empty($streamdata['bits_per_sample']) ? $streamdata['bits_per_sample'] : 16)); - } - } - } - return true; - } - - - public function CalculateReplayGain() { - if (isset($this->info['replay_gain'])) { - if (!isset($this->info['replay_gain']['reference_volume'])) { - $this->info['replay_gain']['reference_volume'] = (double) 89.0; - } - if (isset($this->info['replay_gain']['track']['adjustment'])) { - $this->info['replay_gain']['track']['volume'] = $this->info['replay_gain']['reference_volume'] - $this->info['replay_gain']['track']['adjustment']; - } - if (isset($this->info['replay_gain']['album']['adjustment'])) { - $this->info['replay_gain']['album']['volume'] = $this->info['replay_gain']['reference_volume'] - $this->info['replay_gain']['album']['adjustment']; - } - - if (isset($this->info['replay_gain']['track']['peak'])) { - $this->info['replay_gain']['track']['max_noclip_gain'] = 0 - getid3_lib::RGADamplitude2dB($this->info['replay_gain']['track']['peak']); - } - if (isset($this->info['replay_gain']['album']['peak'])) { - $this->info['replay_gain']['album']['max_noclip_gain'] = 0 - getid3_lib::RGADamplitude2dB($this->info['replay_gain']['album']['peak']); - } - } - return true; - } - - public function ProcessAudioStreams() { - if (!empty($this->info['audio']['bitrate']) || !empty($this->info['audio']['channels']) || !empty($this->info['audio']['sample_rate'])) { - if (!isset($this->info['audio']['streams'])) { - foreach ($this->info['audio'] as $key => $value) { - if ($key != 'streams') { - $this->info['audio']['streams'][0][$key] = $value; - } - } - } - } - return true; - } - - public function getid3_tempnam() { - return tempnam($this->tempdir, 'gI3'); - } - - public function include_module($name) { - //if (!file_exists($this->include_path.'module.'.$name.'.php')) { - if (!file_exists(GETID3_INCLUDEPATH.'module.'.$name.'.php')) { - throw new getid3_exception('Required module.'.$name.'.php is missing.'); - } - include_once(GETID3_INCLUDEPATH.'module.'.$name.'.php'); - return true; - } - -} - - -abstract class getid3_handler -{ - protected $getid3; // pointer - - protected $data_string_flag = false; // analyzing filepointer or string - protected $data_string = ''; // string to analyze - protected $data_string_position = 0; // seek position in string - protected $data_string_length = 0; // string length - - private $dependency_to = null; - - - public function __construct(getID3 $getid3, $call_module=null) { - $this->getid3 = $getid3; - - if ($call_module) { - $this->dependency_to = str_replace('getid3_', '', $call_module); - } - } - - - // Analyze from file pointer - abstract public function Analyze(); - - - // Analyze from string instead - public function AnalyzeString($string) { - // Enter string mode - $this->setStringMode($string); - - // Save info - $saved_avdataoffset = $this->getid3->info['avdataoffset']; - $saved_avdataend = $this->getid3->info['avdataend']; - $saved_filesize = (isset($this->getid3->info['filesize']) ? $this->getid3->info['filesize'] : null); // may be not set if called as dependency without openfile() call - - // Reset some info - $this->getid3->info['avdataoffset'] = 0; - $this->getid3->info['avdataend'] = $this->getid3->info['filesize'] = $this->data_string_length; - - // Analyze - $this->Analyze(); - - // Restore some info - $this->getid3->info['avdataoffset'] = $saved_avdataoffset; - $this->getid3->info['avdataend'] = $saved_avdataend; - $this->getid3->info['filesize'] = $saved_filesize; - - // Exit string mode - $this->data_string_flag = false; - } - - public function setStringMode($string) { - $this->data_string_flag = true; - $this->data_string = $string; - $this->data_string_length = strlen($string); - } - - protected function ftell() { - if ($this->data_string_flag) { - return $this->data_string_position; - } - return ftell($this->getid3->fp); - } - - protected function fread($bytes) { - if ($this->data_string_flag) { - $this->data_string_position += $bytes; - return substr($this->data_string, $this->data_string_position - $bytes, $bytes); - } - $pos = $this->ftell() + $bytes; - if (!getid3_lib::intValueSupported($pos)) { - throw new getid3_exception('cannot fread('.$bytes.' from '.$this->ftell().') because beyond PHP filesystem limit', 10); - } - return fread($this->getid3->fp, $bytes); - } - - protected function fseek($bytes, $whence=SEEK_SET) { - if ($this->data_string_flag) { - switch ($whence) { - case SEEK_SET: - $this->data_string_position = $bytes; - break; - - case SEEK_CUR: - $this->data_string_position += $bytes; - break; - - case SEEK_END: - $this->data_string_position = $this->data_string_length + $bytes; - break; - } - return 0; - } else { - $pos = $bytes; - if ($whence == SEEK_CUR) { - $pos = $this->ftell() + $bytes; - } elseif ($whence == SEEK_END) { - $pos = $this->info['filesize'] + $bytes; - } - if (!getid3_lib::intValueSupported($pos)) { - throw new getid3_exception('cannot fseek('.$pos.') because beyond PHP filesystem limit', 10); - } - } - return fseek($this->getid3->fp, $bytes, $whence); - } - - protected function feof() { - if ($this->data_string_flag) { - return $this->data_string_position >= $this->data_string_length; - } - return feof($this->getid3->fp); - } - - final protected function isDependencyFor($module) { - return $this->dependency_to == $module; - } - - protected function error($text) - { - $this->getid3->info['error'][] = $text; - - return false; - } - - protected function warning($text) - { - return $this->getid3->warning($text); - } - - protected function notice($text) - { - // does nothing for now - } - - public function saveAttachment($name, $offset, $length, $image_mime=null) { - try { - - // do not extract at all - if ($this->getid3->option_save_attachments === getID3::ATTACHMENTS_NONE) { - - $attachment = null; // do not set any - - // extract to return array - } elseif ($this->getid3->option_save_attachments === getID3::ATTACHMENTS_INLINE) { - - $this->fseek($offset); - $attachment = $this->fread($length); // get whole data in one pass, till it is anyway stored in memory - if ($attachment === false || strlen($attachment) != $length) { - throw new Exception('failed to read attachment data'); - } - - // assume directory path is given - } else { - - // set up destination path - $dir = rtrim(str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $this->getid3->option_save_attachments), DIRECTORY_SEPARATOR); - if (!is_dir($dir) || !is_writable($dir)) { // check supplied directory - throw new Exception('supplied path ('.$dir.') does not exist, or is not writable'); - } - $dest = $dir.DIRECTORY_SEPARATOR.$name.($image_mime ? '.'.getid3_lib::ImageExtFromMime($image_mime) : ''); - - // create dest file - if (($fp_dest = fopen($dest, 'wb')) == false) { - throw new Exception('failed to create file '.$dest); - } - - // copy data - $this->fseek($offset); - $buffersize = ($this->data_string_flag ? $length : $this->getid3->fread_buffer_size()); - $bytesleft = $length; - while ($bytesleft > 0) { - if (($buffer = $this->fread(min($buffersize, $bytesleft))) === false || ($byteswritten = fwrite($fp_dest, $buffer)) === false || ($byteswritten === 0)) { - throw new Exception($buffer === false ? 'not enough data to read' : 'failed to write to destination file, may be not enough disk space'); - } - $bytesleft -= $byteswritten; - } - - fclose($fp_dest); - $attachment = $dest; - - } - - } catch (Exception $e) { - - // close and remove dest file if created - if (isset($fp_dest) && is_resource($fp_dest)) { - fclose($fp_dest); - unlink($dest); - } - - // do not set any is case of error - $attachment = null; - $this->warning('Failed to extract attachment '.$name.': '.$e->getMessage()); - - } - - // seek to the end of attachment - $this->fseek($offset + $length); - - return $attachment; - } - -} - - -class getid3_exception extends Exception -{ - public $message; -} diff --git a/web/htdocs/media/lib/getid3/module.archive.gzip.php b/web/htdocs/media/lib/getid3/module.archive.gzip.php deleted file mode 100644 index 0631d128555..00000000000 --- a/web/htdocs/media/lib/getid3/module.archive.gzip.php +++ /dev/null @@ -1,280 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.gzip.php // -// module for analyzing GZIP files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// -// // -// Module originally written by // -// Mike Mozolin // -// // -///////////////////////////////////////////////////////////////// - - -class getid3_gzip extends getid3_handler { - - // public: Optional file list - disable for speed. - public $option_gzip_parse_contents = false; // decode gzipped files, if possible, and parse recursively (.tar.gz for example) - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'gzip'; - - $start_length = 10; - $unpack_header = 'a1id1/a1id2/a1cmethod/a1flags/a4mtime/a1xflags/a1os'; - //+---+---+---+---+---+---+---+---+---+---+ - //|ID1|ID2|CM |FLG| MTIME |XFL|OS | - //+---+---+---+---+---+---+---+---+---+---+ - - if ($info['filesize'] > $info['php_memory_limit']) { - $info['error'][] = 'File is too large ('.number_format($info['filesize']).' bytes) to read into memory (limit: '.number_format($info['php_memory_limit'] / 1048576).'MB)'; - return false; - } - fseek($this->getid3->fp, 0); - $buffer = fread($this->getid3->fp, $info['filesize']); - - $arr_members = explode("\x1F\x8B\x08", $buffer); - while (true) { - $is_wrong_members = false; - $num_members = intval(count($arr_members)); - for ($i = 0; $i < $num_members; $i++) { - if (strlen($arr_members[$i]) == 0) { - continue; - } - $buf = "\x1F\x8B\x08".$arr_members[$i]; - - $attr = unpack($unpack_header, substr($buf, 0, $start_length)); - if (!$this->get_os_type(ord($attr['os']))) { - // Merge member with previous if wrong OS type - $arr_members[$i - 1] .= $buf; - $arr_members[$i] = ''; - $is_wrong_members = true; - continue; - } - } - if (!$is_wrong_members) { - break; - } - } - - $info['gzip']['files'] = array(); - - $fpointer = 0; - $idx = 0; - for ($i = 0; $i < $num_members; $i++) { - if (strlen($arr_members[$i]) == 0) { - continue; - } - $thisInfo = &$info['gzip']['member_header'][++$idx]; - - $buff = "\x1F\x8B\x08".$arr_members[$i]; - - $attr = unpack($unpack_header, substr($buff, 0, $start_length)); - $thisInfo['filemtime'] = getid3_lib::LittleEndian2Int($attr['mtime']); - $thisInfo['raw']['id1'] = ord($attr['cmethod']); - $thisInfo['raw']['id2'] = ord($attr['cmethod']); - $thisInfo['raw']['cmethod'] = ord($attr['cmethod']); - $thisInfo['raw']['os'] = ord($attr['os']); - $thisInfo['raw']['xflags'] = ord($attr['xflags']); - $thisInfo['raw']['flags'] = ord($attr['flags']); - - $thisInfo['flags']['crc16'] = (bool) ($thisInfo['raw']['flags'] & 0x02); - $thisInfo['flags']['extra'] = (bool) ($thisInfo['raw']['flags'] & 0x04); - $thisInfo['flags']['filename'] = (bool) ($thisInfo['raw']['flags'] & 0x08); - $thisInfo['flags']['comment'] = (bool) ($thisInfo['raw']['flags'] & 0x10); - - $thisInfo['compression'] = $this->get_xflag_type($thisInfo['raw']['xflags']); - - $thisInfo['os'] = $this->get_os_type($thisInfo['raw']['os']); - if (!$thisInfo['os']) { - $info['error'][] = 'Read error on gzip file'; - return false; - } - - $fpointer = 10; - $arr_xsubfield = array(); - // bit 2 - FLG.FEXTRA - //+---+---+=================================+ - //| XLEN |...XLEN bytes of "extra field"...| - //+---+---+=================================+ - if ($thisInfo['flags']['extra']) { - $w_xlen = substr($buff, $fpointer, 2); - $xlen = getid3_lib::LittleEndian2Int($w_xlen); - $fpointer += 2; - - $thisInfo['raw']['xfield'] = substr($buff, $fpointer, $xlen); - // Extra SubFields - //+---+---+---+---+==================================+ - //|SI1|SI2| LEN |... LEN bytes of subfield data ...| - //+---+---+---+---+==================================+ - $idx = 0; - while (true) { - if ($idx >= $xlen) { - break; - } - $si1 = ord(substr($buff, $fpointer + $idx++, 1)); - $si2 = ord(substr($buff, $fpointer + $idx++, 1)); - if (($si1 == 0x41) && ($si2 == 0x70)) { - $w_xsublen = substr($buff, $fpointer + $idx, 2); - $xsublen = getid3_lib::LittleEndian2Int($w_xsublen); - $idx += 2; - $arr_xsubfield[] = substr($buff, $fpointer + $idx, $xsublen); - $idx += $xsublen; - } else { - break; - } - } - $fpointer += $xlen; - } - // bit 3 - FLG.FNAME - //+=========================================+ - //|...original file name, zero-terminated...| - //+=========================================+ - // GZIP files may have only one file, with no filename, so assume original filename is current filename without .gz - $thisInfo['filename'] = preg_replace('#\\.gz$#i', '', $info['filename']); - if ($thisInfo['flags']['filename']) { - $thisInfo['filename'] = ''; - while (true) { - if (ord($buff[$fpointer]) == 0) { - $fpointer++; - break; - } - $thisInfo['filename'] .= $buff[$fpointer]; - $fpointer++; - } - } - // bit 4 - FLG.FCOMMENT - //+===================================+ - //|...file comment, zero-terminated...| - //+===================================+ - if ($thisInfo['flags']['comment']) { - while (true) { - if (ord($buff[$fpointer]) == 0) { - $fpointer++; - break; - } - $thisInfo['comment'] .= $buff[$fpointer]; - $fpointer++; - } - } - // bit 1 - FLG.FHCRC - //+---+---+ - //| CRC16 | - //+---+---+ - if ($thisInfo['flags']['crc16']) { - $w_crc = substr($buff, $fpointer, 2); - $thisInfo['crc16'] = getid3_lib::LittleEndian2Int($w_crc); - $fpointer += 2; - } - // bit 0 - FLG.FTEXT - //if ($thisInfo['raw']['flags'] & 0x01) { - // Ignored... - //} - // bits 5, 6, 7 - reserved - - $thisInfo['crc32'] = getid3_lib::LittleEndian2Int(substr($buff, strlen($buff) - 8, 4)); - $thisInfo['filesize'] = getid3_lib::LittleEndian2Int(substr($buff, strlen($buff) - 4)); - - $info['gzip']['files'] = getid3_lib::array_merge_clobber($info['gzip']['files'], getid3_lib::CreateDeepArray($thisInfo['filename'], '/', $thisInfo['filesize'])); - - if ($this->option_gzip_parse_contents) { - // Try to inflate GZip - $csize = 0; - $inflated = ''; - $chkcrc32 = ''; - if (function_exists('gzinflate')) { - $cdata = substr($buff, $fpointer); - $cdata = substr($cdata, 0, strlen($cdata) - 8); - $csize = strlen($cdata); - $inflated = gzinflate($cdata); - - // Calculate CRC32 for inflated content - $thisInfo['crc32_valid'] = (bool) (sprintf('%u', crc32($inflated)) == $thisInfo['crc32']); - - // determine format - $formattest = substr($inflated, 0, 32774); - $getid3_temp = new getID3(); - $determined_format = $getid3_temp->GetFileFormat($formattest); - unset($getid3_temp); - - // file format is determined - $determined_format['module'] = (isset($determined_format['module']) ? $determined_format['module'] : ''); - switch ($determined_format['module']) { - case 'tar': - // view TAR-file info - if (file_exists(GETID3_INCLUDEPATH.$determined_format['include']) && include_once(GETID3_INCLUDEPATH.$determined_format['include'])) { - if (($temp_tar_filename = tempnam(GETID3_TEMP_DIR, 'getID3')) === false) { - // can't find anywhere to create a temp file, abort - $info['error'][] = 'Unable to create temp file to parse TAR inside GZIP file'; - break; - } - if ($fp_temp_tar = fopen($temp_tar_filename, 'w+b')) { - fwrite($fp_temp_tar, $inflated); - fclose($fp_temp_tar); - $getid3_temp = new getID3(); - $getid3_temp->openfile($temp_tar_filename); - $getid3_tar = new getid3_tar($getid3_temp); - $getid3_tar->Analyze(); - $info['gzip']['member_header'][$idx]['tar'] = $getid3_temp->info['tar']; - unset($getid3_temp, $getid3_tar); - unlink($temp_tar_filename); - } else { - $info['error'][] = 'Unable to fopen() temp file to parse TAR inside GZIP file'; - break; - } - } - break; - - case '': - default: - // unknown or unhandled format - break; - } - } - } - } - return true; - } - - // Converts the OS type - public function get_os_type($key) { - static $os_type = array( - '0' => 'FAT filesystem (MS-DOS, OS/2, NT/Win32)', - '1' => 'Amiga', - '2' => 'VMS (or OpenVMS)', - '3' => 'Unix', - '4' => 'VM/CMS', - '5' => 'Atari TOS', - '6' => 'HPFS filesystem (OS/2, NT)', - '7' => 'Macintosh', - '8' => 'Z-System', - '9' => 'CP/M', - '10' => 'TOPS-20', - '11' => 'NTFS filesystem (NT)', - '12' => 'QDOS', - '13' => 'Acorn RISCOS', - '255' => 'unknown' - ); - return (isset($os_type[$key]) ? $os_type[$key] : ''); - } - - // Converts the eXtra FLags - public function get_xflag_type($key) { - static $xflag_type = array( - '0' => 'unknown', - '2' => 'maximum compression', - '4' => 'fastest algorithm' - ); - return (isset($xflag_type[$key]) ? $xflag_type[$key] : ''); - } -} - diff --git a/web/htdocs/media/lib/getid3/module.archive.rar.php b/web/htdocs/media/lib/getid3/module.archive.rar.php deleted file mode 100644 index e3155e40f16..00000000000 --- a/web/htdocs/media/lib/getid3/module.archive.rar.php +++ /dev/null @@ -1,50 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.rar.php // -// module for analyzing RAR files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_rar extends getid3_handler -{ - - public $option_use_rar_extension = false; - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'rar'; - - if ($this->option_use_rar_extension === true) { - if (function_exists('rar_open')) { - if ($rp = rar_open($info['filenamepath'])) { - $info['rar']['files'] = array(); - $entries = rar_list($rp); - foreach ($entries as $entry) { - $info['rar']['files'] = getid3_lib::array_merge_clobber($info['rar']['files'], getid3_lib::CreateDeepArray($entry->getName(), '/', $entry->getUnpackedSize())); - } - rar_close($rp); - return true; - } else { - $info['error'][] = 'failed to rar_open('.$info['filename'].')'; - } - } else { - $info['error'][] = 'RAR support does not appear to be available in this PHP installation'; - } - } else { - $info['error'][] = 'PHP-RAR processing has been disabled (set $getid3_rar->option_use_rar_extension=true to enable)'; - } - return false; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.archive.szip.php b/web/htdocs/media/lib/getid3/module.archive.szip.php deleted file mode 100644 index 6f41d2f37e6..00000000000 --- a/web/htdocs/media/lib/getid3/module.archive.szip.php +++ /dev/null @@ -1,96 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.szip.php // -// module for analyzing SZIP compressed files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_szip extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $this->fseek($info['avdataoffset']); - $SZIPHeader = $this->fread(6); - if (substr($SZIPHeader, 0, 4) != "SZ\x0A\x04") { - $info['error'][] = 'Expecting "53 5A 0A 04" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($SZIPHeader, 0, 4)).'"'; - return false; - } - $info['fileformat'] = 'szip'; - $info['szip']['major_version'] = getid3_lib::BigEndian2Int(substr($SZIPHeader, 4, 1)); - $info['szip']['minor_version'] = getid3_lib::BigEndian2Int(substr($SZIPHeader, 5, 1)); -$info['error'][] = 'SZIP parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - - while (!$this->feof()) { - $NextBlockID = $this->fread(2); - switch ($NextBlockID) { - case 'SZ': - // Note that szip files can be concatenated, this has the same effect as - // concatenating the files. this also means that global header blocks - // might be present between directory/data blocks. - $this->fseek(4, SEEK_CUR); - break; - - case 'BH': - $BHheaderbytes = getid3_lib::BigEndian2Int($this->fread(3)); - $BHheaderdata = $this->fread($BHheaderbytes); - $BHheaderoffset = 0; - while (strpos($BHheaderdata, "\x00", $BHheaderoffset) > 0) { - //filename as \0 terminated string (empty string indicates end) - //owner as \0 terminated string (empty is same as last file) - //group as \0 terminated string (empty is same as last file) - //3 byte filelength in this block - //2 byte access flags - //4 byte creation time (like in unix) - //4 byte modification time (like in unix) - //4 byte access time (like in unix) - - $BHdataArray['filename'] = substr($BHheaderdata, $BHheaderoffset, strcspn($BHheaderdata, "\x00")); - $BHheaderoffset += (strlen($BHdataArray['filename']) + 1); - - $BHdataArray['owner'] = substr($BHheaderdata, $BHheaderoffset, strcspn($BHheaderdata, "\x00")); - $BHheaderoffset += (strlen($BHdataArray['owner']) + 1); - - $BHdataArray['group'] = substr($BHheaderdata, $BHheaderoffset, strcspn($BHheaderdata, "\x00")); - $BHheaderoffset += (strlen($BHdataArray['group']) + 1); - - $BHdataArray['filelength'] = getid3_lib::BigEndian2Int(substr($BHheaderdata, $BHheaderoffset, 3)); - $BHheaderoffset += 3; - - $BHdataArray['access_flags'] = getid3_lib::BigEndian2Int(substr($BHheaderdata, $BHheaderoffset, 2)); - $BHheaderoffset += 2; - - $BHdataArray['creation_time'] = getid3_lib::BigEndian2Int(substr($BHheaderdata, $BHheaderoffset, 4)); - $BHheaderoffset += 4; - - $BHdataArray['modification_time'] = getid3_lib::BigEndian2Int(substr($BHheaderdata, $BHheaderoffset, 4)); - $BHheaderoffset += 4; - - $BHdataArray['access_time'] = getid3_lib::BigEndian2Int(substr($BHheaderdata, $BHheaderoffset, 4)); - $BHheaderoffset += 4; - - $info['szip']['BH'][] = $BHdataArray; - } - break; - - default: - break 2; - } - } - - return true; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.archive.tar.php b/web/htdocs/media/lib/getid3/module.archive.tar.php deleted file mode 100644 index 0851aa1e943..00000000000 --- a/web/htdocs/media/lib/getid3/module.archive.tar.php +++ /dev/null @@ -1,176 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.tar.php // -// module for analyzing TAR files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// -// // -// Module originally written by // -// Mike Mozolin // -// // -///////////////////////////////////////////////////////////////// - - -class getid3_tar extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'tar'; - $info['tar']['files'] = array(); - - $unpack_header = 'a100fname/a8mode/a8uid/a8gid/a12size/a12mtime/a8chksum/a1typflag/a100lnkname/a6magic/a2ver/a32uname/a32gname/a8devmaj/a8devmin/a155prefix'; - $null_512k = str_repeat("\x00", 512); // end-of-file marker - - fseek($this->getid3->fp, 0); - while (!feof($this->getid3->fp)) { - $buffer = fread($this->getid3->fp, 512); - if (strlen($buffer) < 512) { - break; - } - - // check the block - $checksum = 0; - for ($i = 0; $i < 148; $i++) { - $checksum += ord($buffer{$i}); - } - for ($i = 148; $i < 156; $i++) { - $checksum += ord(' '); - } - for ($i = 156; $i < 512; $i++) { - $checksum += ord($buffer{$i}); - } - $attr = unpack($unpack_header, $buffer); - $name = (isset($attr['fname'] ) ? trim($attr['fname'] ) : ''); - $mode = octdec(isset($attr['mode'] ) ? trim($attr['mode'] ) : ''); - $uid = octdec(isset($attr['uid'] ) ? trim($attr['uid'] ) : ''); - $gid = octdec(isset($attr['gid'] ) ? trim($attr['gid'] ) : ''); - $size = octdec(isset($attr['size'] ) ? trim($attr['size'] ) : ''); - $mtime = octdec(isset($attr['mtime'] ) ? trim($attr['mtime'] ) : ''); - $chksum = octdec(isset($attr['chksum'] ) ? trim($attr['chksum'] ) : ''); - $typflag = (isset($attr['typflag']) ? trim($attr['typflag']) : ''); - $lnkname = (isset($attr['lnkname']) ? trim($attr['lnkname']) : ''); - $magic = (isset($attr['magic'] ) ? trim($attr['magic'] ) : ''); - $ver = (isset($attr['ver'] ) ? trim($attr['ver'] ) : ''); - $uname = (isset($attr['uname'] ) ? trim($attr['uname'] ) : ''); - $gname = (isset($attr['gname'] ) ? trim($attr['gname'] ) : ''); - $devmaj = octdec(isset($attr['devmaj'] ) ? trim($attr['devmaj'] ) : ''); - $devmin = octdec(isset($attr['devmin'] ) ? trim($attr['devmin'] ) : ''); - $prefix = (isset($attr['prefix'] ) ? trim($attr['prefix'] ) : ''); - if (($checksum == 256) && ($chksum == 0)) { - // EOF Found - break; - } - if ($prefix) { - $name = $prefix.'/'.$name; - } - if ((preg_match('#/$#', $name)) && !$name) { - $typeflag = 5; - } - if ($buffer == $null_512k) { - // it's the end of the tar-file... - break; - } - - // Read to the next chunk - fseek($this->getid3->fp, $size, SEEK_CUR); - - $diff = $size % 512; - if ($diff != 0) { - // Padding, throw away - fseek($this->getid3->fp, (512 - $diff), SEEK_CUR); - } - // Protect against tar-files with garbage at the end - if ($name == '') { - break; - } - $info['tar']['file_details'][$name] = array ( - 'name' => $name, - 'mode_raw' => $mode, - 'mode' => self::display_perms($mode), - 'uid' => $uid, - 'gid' => $gid, - 'size' => $size, - 'mtime' => $mtime, - 'chksum' => $chksum, - 'typeflag' => self::get_flag_type($typflag), - 'linkname' => $lnkname, - 'magic' => $magic, - 'version' => $ver, - 'uname' => $uname, - 'gname' => $gname, - 'devmajor' => $devmaj, - 'devminor' => $devmin - ); - $info['tar']['files'] = getid3_lib::array_merge_clobber($info['tar']['files'], getid3_lib::CreateDeepArray($info['tar']['file_details'][$name]['name'], '/', $size)); - } - return true; - } - - // Parses the file mode to file permissions - public function display_perms($mode) { - // Determine Type - if ($mode & 0x1000) $type='p'; // FIFO pipe - elseif ($mode & 0x2000) $type='c'; // Character special - elseif ($mode & 0x4000) $type='d'; // Directory - elseif ($mode & 0x6000) $type='b'; // Block special - elseif ($mode & 0x8000) $type='-'; // Regular - elseif ($mode & 0xA000) $type='l'; // Symbolic Link - elseif ($mode & 0xC000) $type='s'; // Socket - else $type='u'; // UNKNOWN - - // Determine permissions - $owner['read'] = (($mode & 00400) ? 'r' : '-'); - $owner['write'] = (($mode & 00200) ? 'w' : '-'); - $owner['execute'] = (($mode & 00100) ? 'x' : '-'); - $group['read'] = (($mode & 00040) ? 'r' : '-'); - $group['write'] = (($mode & 00020) ? 'w' : '-'); - $group['execute'] = (($mode & 00010) ? 'x' : '-'); - $world['read'] = (($mode & 00004) ? 'r' : '-'); - $world['write'] = (($mode & 00002) ? 'w' : '-'); - $world['execute'] = (($mode & 00001) ? 'x' : '-'); - - // Adjust for SUID, SGID and sticky bit - if ($mode & 0x800) $owner['execute'] = ($owner['execute'] == 'x') ? 's' : 'S'; - if ($mode & 0x400) $group['execute'] = ($group['execute'] == 'x') ? 's' : 'S'; - if ($mode & 0x200) $world['execute'] = ($world['execute'] == 'x') ? 't' : 'T'; - - $s = sprintf('%1s', $type); - $s .= sprintf('%1s%1s%1s', $owner['read'], $owner['write'], $owner['execute']); - $s .= sprintf('%1s%1s%1s', $group['read'], $group['write'], $group['execute']); - $s .= sprintf('%1s%1s%1s'."\n", $world['read'], $world['write'], $world['execute']); - return $s; - } - - // Converts the file type - public function get_flag_type($typflag) { - static $flag_types = array( - '0' => 'LF_NORMAL', - '1' => 'LF_LINK', - '2' => 'LF_SYNLINK', - '3' => 'LF_CHR', - '4' => 'LF_BLK', - '5' => 'LF_DIR', - '6' => 'LF_FIFO', - '7' => 'LF_CONFIG', - 'D' => 'LF_DUMPDIR', - 'K' => 'LF_LONGLINK', - 'L' => 'LF_LONGNAME', - 'M' => 'LF_MULTIVOL', - 'N' => 'LF_NAMES', - 'S' => 'LF_SPARSE', - 'V' => 'LF_VOLHDR' - ); - return (isset($flag_types[$typflag]) ? $flag_types[$typflag] : ''); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.archive.zip.php b/web/htdocs/media/lib/getid3/module.archive.zip.php deleted file mode 100644 index 296a7490e70..00000000000 --- a/web/htdocs/media/lib/getid3/module.archive.zip.php +++ /dev/null @@ -1,512 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.zip.php // -// module for analyzing pkZip files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_zip extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'zip'; - $info['zip']['encoding'] = 'ISO-8859-1'; - $info['zip']['files'] = array(); - - $info['zip']['compressed_size'] = 0; - $info['zip']['uncompressed_size'] = 0; - $info['zip']['entries_count'] = 0; - - if (!getid3_lib::intValueSupported($info['filesize'])) { - $info['error'][] = 'File is larger than '.round(PHP_INT_MAX / 1073741824).'GB, not supported by PHP'; - return false; - } else { - $EOCDsearchData = ''; - $EOCDsearchCounter = 0; - while ($EOCDsearchCounter++ < 512) { - - fseek($this->getid3->fp, -128 * $EOCDsearchCounter, SEEK_END); - $EOCDsearchData = fread($this->getid3->fp, 128).$EOCDsearchData; - - if (strstr($EOCDsearchData, 'PK'."\x05\x06")) { - - $EOCDposition = strpos($EOCDsearchData, 'PK'."\x05\x06"); - fseek($this->getid3->fp, (-128 * $EOCDsearchCounter) + $EOCDposition, SEEK_END); - $info['zip']['end_central_directory'] = $this->ZIPparseEndOfCentralDirectory(); - - fseek($this->getid3->fp, $info['zip']['end_central_directory']['directory_offset'], SEEK_SET); - $info['zip']['entries_count'] = 0; - while ($centraldirectoryentry = $this->ZIPparseCentralDirectory($this->getid3->fp)) { - $info['zip']['central_directory'][] = $centraldirectoryentry; - $info['zip']['entries_count']++; - $info['zip']['compressed_size'] += $centraldirectoryentry['compressed_size']; - $info['zip']['uncompressed_size'] += $centraldirectoryentry['uncompressed_size']; - - //if ($centraldirectoryentry['uncompressed_size'] > 0) { zero-byte files are valid - if (!empty($centraldirectoryentry['filename'])) { - $info['zip']['files'] = getid3_lib::array_merge_clobber($info['zip']['files'], getid3_lib::CreateDeepArray($centraldirectoryentry['filename'], '/', $centraldirectoryentry['uncompressed_size'])); - } - } - - if ($info['zip']['entries_count'] == 0) { - $info['error'][] = 'No Central Directory entries found (truncated file?)'; - return false; - } - - if (!empty($info['zip']['end_central_directory']['comment'])) { - $info['zip']['comments']['comment'][] = $info['zip']['end_central_directory']['comment']; - } - - if (isset($info['zip']['central_directory'][0]['compression_method'])) { - $info['zip']['compression_method'] = $info['zip']['central_directory'][0]['compression_method']; - } - if (isset($info['zip']['central_directory'][0]['flags']['compression_speed'])) { - $info['zip']['compression_speed'] = $info['zip']['central_directory'][0]['flags']['compression_speed']; - } - if (isset($info['zip']['compression_method']) && ($info['zip']['compression_method'] == 'store') && !isset($info['zip']['compression_speed'])) { - $info['zip']['compression_speed'] = 'store'; - } - - // secondary check - we (should) already have all the info we NEED from the Central Directory above, but scanning each - // Local File Header entry will - foreach ($info['zip']['central_directory'] as $central_directory_entry) { - fseek($this->getid3->fp, $central_directory_entry['entry_offset'], SEEK_SET); - if ($fileentry = $this->ZIPparseLocalFileHeader()) { - $info['zip']['entries'][] = $fileentry; - } else { - $info['warning'][] = 'Error parsing Local File Header at offset '.$central_directory_entry['entry_offset']; - } - } - - if (!empty($info['zip']['files']['[Content_Types].xml']) && - !empty($info['zip']['files']['_rels']['.rels']) && - !empty($info['zip']['files']['docProps']['app.xml']) && - !empty($info['zip']['files']['docProps']['core.xml'])) { - // http://technet.microsoft.com/en-us/library/cc179224.aspx - $info['fileformat'] = 'zip.msoffice'; - if (!empty($ThisFileInfo['zip']['files']['ppt'])) { - $info['mime_type'] = 'application/vnd.openxmlformats-officedocument.presentationml.presentation'; - } elseif (!empty($ThisFileInfo['zip']['files']['xl'])) { - $info['mime_type'] = 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'; - } elseif (!empty($ThisFileInfo['zip']['files']['word'])) { - $info['mime_type'] = 'application/vnd.openxmlformats-officedocument.wordprocessingml.document'; - } - } - - return true; - } - } - } - - if (!$this->getZIPentriesFilepointer()) { - unset($info['zip']); - $info['fileformat'] = ''; - $info['error'][] = 'Cannot find End Of Central Directory (truncated file?)'; - return false; - } - - // central directory couldn't be found and/or parsed - // scan through actual file data entries, recover as much as possible from probable trucated file - if ($info['zip']['compressed_size'] > ($info['filesize'] - 46 - 22)) { - $info['error'][] = 'Warning: Truncated file! - Total compressed file sizes ('.$info['zip']['compressed_size'].' bytes) is greater than filesize minus Central Directory and End Of Central Directory structures ('.($info['filesize'] - 46 - 22).' bytes)'; - } - $info['error'][] = 'Cannot find End Of Central Directory - returned list of files in [zip][entries] array may not be complete'; - foreach ($info['zip']['entries'] as $key => $valuearray) { - $info['zip']['files'][$valuearray['filename']] = $valuearray['uncompressed_size']; - } - return true; - } - - - public function getZIPHeaderFilepointerTopDown() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'zip'; - - $info['zip']['compressed_size'] = 0; - $info['zip']['uncompressed_size'] = 0; - $info['zip']['entries_count'] = 0; - - rewind($this->getid3->fp); - while ($fileentry = $this->ZIPparseLocalFileHeader()) { - $info['zip']['entries'][] = $fileentry; - $info['zip']['entries_count']++; - } - if ($info['zip']['entries_count'] == 0) { - $info['error'][] = 'No Local File Header entries found'; - return false; - } - - $info['zip']['entries_count'] = 0; - while ($centraldirectoryentry = $this->ZIPparseCentralDirectory($this->getid3->fp)) { - $info['zip']['central_directory'][] = $centraldirectoryentry; - $info['zip']['entries_count']++; - $info['zip']['compressed_size'] += $centraldirectoryentry['compressed_size']; - $info['zip']['uncompressed_size'] += $centraldirectoryentry['uncompressed_size']; - } - if ($info['zip']['entries_count'] == 0) { - $info['error'][] = 'No Central Directory entries found (truncated file?)'; - return false; - } - - if ($EOCD = $this->ZIPparseEndOfCentralDirectory()) { - $info['zip']['end_central_directory'] = $EOCD; - } else { - $info['error'][] = 'No End Of Central Directory entry found (truncated file?)'; - return false; - } - - if (!empty($info['zip']['end_central_directory']['comment'])) { - $info['zip']['comments']['comment'][] = $info['zip']['end_central_directory']['comment']; - } - - return true; - } - - - public function getZIPentriesFilepointer() { - $info = &$this->getid3->info; - - $info['zip']['compressed_size'] = 0; - $info['zip']['uncompressed_size'] = 0; - $info['zip']['entries_count'] = 0; - - rewind($this->getid3->fp); - while ($fileentry = $this->ZIPparseLocalFileHeader()) { - $info['zip']['entries'][] = $fileentry; - $info['zip']['entries_count']++; - $info['zip']['compressed_size'] += $fileentry['compressed_size']; - $info['zip']['uncompressed_size'] += $fileentry['uncompressed_size']; - } - if ($info['zip']['entries_count'] == 0) { - $info['error'][] = 'No Local File Header entries found'; - return false; - } - - return true; - } - - - public function ZIPparseLocalFileHeader() { - $LocalFileHeader['offset'] = ftell($this->getid3->fp); - - $ZIPlocalFileHeader = fread($this->getid3->fp, 30); - - $LocalFileHeader['raw']['signature'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 0, 4)); - if ($LocalFileHeader['raw']['signature'] != 0x04034B50) { // "PK\x03\x04" - // invalid Local File Header Signature - fseek($this->getid3->fp, $LocalFileHeader['offset'], SEEK_SET); // seek back to where filepointer originally was so it can be handled properly - return false; - } - $LocalFileHeader['raw']['extract_version'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 4, 2)); - $LocalFileHeader['raw']['general_flags'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 6, 2)); - $LocalFileHeader['raw']['compression_method'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 8, 2)); - $LocalFileHeader['raw']['last_mod_file_time'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 10, 2)); - $LocalFileHeader['raw']['last_mod_file_date'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 12, 2)); - $LocalFileHeader['raw']['crc_32'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 14, 4)); - $LocalFileHeader['raw']['compressed_size'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 18, 4)); - $LocalFileHeader['raw']['uncompressed_size'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 22, 4)); - $LocalFileHeader['raw']['filename_length'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 26, 2)); - $LocalFileHeader['raw']['extra_field_length'] = getid3_lib::LittleEndian2Int(substr($ZIPlocalFileHeader, 28, 2)); - - $LocalFileHeader['extract_version'] = sprintf('%1.1f', $LocalFileHeader['raw']['extract_version'] / 10); - $LocalFileHeader['host_os'] = $this->ZIPversionOSLookup(($LocalFileHeader['raw']['extract_version'] & 0xFF00) >> 8); - $LocalFileHeader['compression_method'] = $this->ZIPcompressionMethodLookup($LocalFileHeader['raw']['compression_method']); - $LocalFileHeader['compressed_size'] = $LocalFileHeader['raw']['compressed_size']; - $LocalFileHeader['uncompressed_size'] = $LocalFileHeader['raw']['uncompressed_size']; - $LocalFileHeader['flags'] = $this->ZIPparseGeneralPurposeFlags($LocalFileHeader['raw']['general_flags'], $LocalFileHeader['raw']['compression_method']); - $LocalFileHeader['last_modified_timestamp'] = $this->DOStime2UNIXtime($LocalFileHeader['raw']['last_mod_file_date'], $LocalFileHeader['raw']['last_mod_file_time']); - - $FilenameExtrafieldLength = $LocalFileHeader['raw']['filename_length'] + $LocalFileHeader['raw']['extra_field_length']; - if ($FilenameExtrafieldLength > 0) { - $ZIPlocalFileHeader .= fread($this->getid3->fp, $FilenameExtrafieldLength); - - if ($LocalFileHeader['raw']['filename_length'] > 0) { - $LocalFileHeader['filename'] = substr($ZIPlocalFileHeader, 30, $LocalFileHeader['raw']['filename_length']); - } - if ($LocalFileHeader['raw']['extra_field_length'] > 0) { - $LocalFileHeader['raw']['extra_field_data'] = substr($ZIPlocalFileHeader, 30 + $LocalFileHeader['raw']['filename_length'], $LocalFileHeader['raw']['extra_field_length']); - } - } - - if ($LocalFileHeader['compressed_size'] == 0) { - // *Could* be a zero-byte file - // But could also be a file written on the fly that didn't know compressed filesize beforehand. - // Correct compressed filesize should be in the data_descriptor located after this file data, and also in Central Directory (at end of zip file) - if (!empty($this->getid3->info['zip']['central_directory'])) { - foreach ($this->getid3->info['zip']['central_directory'] as $central_directory_entry) { - if ($central_directory_entry['entry_offset'] == $LocalFileHeader['offset']) { - if ($central_directory_entry['compressed_size'] > 0) { - // overwrite local zero value (but not ['raw']'compressed_size']) so that seeking for data_descriptor (and next file entry) works correctly - $LocalFileHeader['compressed_size'] = $central_directory_entry['compressed_size']; - } - break; - } - } - } - - } - $LocalFileHeader['data_offset'] = ftell($this->getid3->fp); - fseek($this->getid3->fp, $LocalFileHeader['compressed_size'], SEEK_CUR); // this should (but may not) match value in $LocalFileHeader['raw']['compressed_size'] -- $LocalFileHeader['compressed_size'] could have been overwritten above with value from Central Directory - - if ($LocalFileHeader['flags']['data_descriptor_used']) { - $DataDescriptor = fread($this->getid3->fp, 16); - $LocalFileHeader['data_descriptor']['signature'] = getid3_lib::LittleEndian2Int(substr($DataDescriptor, 0, 4)); - if ($LocalFileHeader['data_descriptor']['signature'] != 0x08074B50) { // "PK\x07\x08" - $this->getid3->warning[] = 'invalid Local File Header Data Descriptor Signature at offset '.(ftell($this->getid3->fp) - 16).' - expecting 08 07 4B 50, found '.getid3_lib::PrintHexBytes($LocalFileHeader['data_descriptor']['signature']); - fseek($this->getid3->fp, $LocalFileHeader['offset'], SEEK_SET); // seek back to where filepointer originally was so it can be handled properly - return false; - } - $LocalFileHeader['data_descriptor']['crc_32'] = getid3_lib::LittleEndian2Int(substr($DataDescriptor, 4, 4)); - $LocalFileHeader['data_descriptor']['compressed_size'] = getid3_lib::LittleEndian2Int(substr($DataDescriptor, 8, 4)); - $LocalFileHeader['data_descriptor']['uncompressed_size'] = getid3_lib::LittleEndian2Int(substr($DataDescriptor, 12, 4)); - if (!$LocalFileHeader['raw']['compressed_size'] && $LocalFileHeader['data_descriptor']['compressed_size']) { - foreach ($this->getid3->info['zip']['central_directory'] as $central_directory_entry) { - if ($central_directory_entry['entry_offset'] == $LocalFileHeader['offset']) { - if ($LocalFileHeader['data_descriptor']['compressed_size'] == $central_directory_entry['compressed_size']) { - // $LocalFileHeader['compressed_size'] already set from Central Directory - } else { - $this->getid3->info['warning'][] = 'conflicting compressed_size from data_descriptor ('.$LocalFileHeader['data_descriptor']['compressed_size'].') vs Central Directory ('.$central_directory_entry['compressed_size'].') for file at offset '.$LocalFileHeader['offset']; - } - - if ($LocalFileHeader['data_descriptor']['uncompressed_size'] == $central_directory_entry['uncompressed_size']) { - $LocalFileHeader['uncompressed_size'] = $LocalFileHeader['data_descriptor']['uncompressed_size']; - } else { - $this->getid3->info['warning'][] = 'conflicting uncompressed_size from data_descriptor ('.$LocalFileHeader['data_descriptor']['uncompressed_size'].') vs Central Directory ('.$central_directory_entry['uncompressed_size'].') for file at offset '.$LocalFileHeader['offset']; - } - break; - } - } - } - } - return $LocalFileHeader; - } - - - public function ZIPparseCentralDirectory() { - $CentralDirectory['offset'] = ftell($this->getid3->fp); - - $ZIPcentralDirectory = fread($this->getid3->fp, 46); - - $CentralDirectory['raw']['signature'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 0, 4)); - if ($CentralDirectory['raw']['signature'] != 0x02014B50) { - // invalid Central Directory Signature - fseek($this->getid3->fp, $CentralDirectory['offset'], SEEK_SET); // seek back to where filepointer originally was so it can be handled properly - return false; - } - $CentralDirectory['raw']['create_version'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 4, 2)); - $CentralDirectory['raw']['extract_version'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 6, 2)); - $CentralDirectory['raw']['general_flags'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 8, 2)); - $CentralDirectory['raw']['compression_method'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 10, 2)); - $CentralDirectory['raw']['last_mod_file_time'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 12, 2)); - $CentralDirectory['raw']['last_mod_file_date'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 14, 2)); - $CentralDirectory['raw']['crc_32'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 16, 4)); - $CentralDirectory['raw']['compressed_size'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 20, 4)); - $CentralDirectory['raw']['uncompressed_size'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 24, 4)); - $CentralDirectory['raw']['filename_length'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 28, 2)); - $CentralDirectory['raw']['extra_field_length'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 30, 2)); - $CentralDirectory['raw']['file_comment_length'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 32, 2)); - $CentralDirectory['raw']['disk_number_start'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 34, 2)); - $CentralDirectory['raw']['internal_file_attrib'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 36, 2)); - $CentralDirectory['raw']['external_file_attrib'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 38, 4)); - $CentralDirectory['raw']['local_header_offset'] = getid3_lib::LittleEndian2Int(substr($ZIPcentralDirectory, 42, 4)); - - $CentralDirectory['entry_offset'] = $CentralDirectory['raw']['local_header_offset']; - $CentralDirectory['create_version'] = sprintf('%1.1f', $CentralDirectory['raw']['create_version'] / 10); - $CentralDirectory['extract_version'] = sprintf('%1.1f', $CentralDirectory['raw']['extract_version'] / 10); - $CentralDirectory['host_os'] = $this->ZIPversionOSLookup(($CentralDirectory['raw']['extract_version'] & 0xFF00) >> 8); - $CentralDirectory['compression_method'] = $this->ZIPcompressionMethodLookup($CentralDirectory['raw']['compression_method']); - $CentralDirectory['compressed_size'] = $CentralDirectory['raw']['compressed_size']; - $CentralDirectory['uncompressed_size'] = $CentralDirectory['raw']['uncompressed_size']; - $CentralDirectory['flags'] = $this->ZIPparseGeneralPurposeFlags($CentralDirectory['raw']['general_flags'], $CentralDirectory['raw']['compression_method']); - $CentralDirectory['last_modified_timestamp'] = $this->DOStime2UNIXtime($CentralDirectory['raw']['last_mod_file_date'], $CentralDirectory['raw']['last_mod_file_time']); - - $FilenameExtrafieldCommentLength = $CentralDirectory['raw']['filename_length'] + $CentralDirectory['raw']['extra_field_length'] + $CentralDirectory['raw']['file_comment_length']; - if ($FilenameExtrafieldCommentLength > 0) { - $FilenameExtrafieldComment = fread($this->getid3->fp, $FilenameExtrafieldCommentLength); - - if ($CentralDirectory['raw']['filename_length'] > 0) { - $CentralDirectory['filename'] = substr($FilenameExtrafieldComment, 0, $CentralDirectory['raw']['filename_length']); - } - if ($CentralDirectory['raw']['extra_field_length'] > 0) { - $CentralDirectory['raw']['extra_field_data'] = substr($FilenameExtrafieldComment, $CentralDirectory['raw']['filename_length'], $CentralDirectory['raw']['extra_field_length']); - } - if ($CentralDirectory['raw']['file_comment_length'] > 0) { - $CentralDirectory['file_comment'] = substr($FilenameExtrafieldComment, $CentralDirectory['raw']['filename_length'] + $CentralDirectory['raw']['extra_field_length'], $CentralDirectory['raw']['file_comment_length']); - } - } - - return $CentralDirectory; - } - - public function ZIPparseEndOfCentralDirectory() { - $EndOfCentralDirectory['offset'] = ftell($this->getid3->fp); - - $ZIPendOfCentralDirectory = fread($this->getid3->fp, 22); - - $EndOfCentralDirectory['signature'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 0, 4)); - if ($EndOfCentralDirectory['signature'] != 0x06054B50) { - // invalid End Of Central Directory Signature - fseek($this->getid3->fp, $EndOfCentralDirectory['offset'], SEEK_SET); // seek back to where filepointer originally was so it can be handled properly - return false; - } - $EndOfCentralDirectory['disk_number_current'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 4, 2)); - $EndOfCentralDirectory['disk_number_start_directory'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 6, 2)); - $EndOfCentralDirectory['directory_entries_this_disk'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 8, 2)); - $EndOfCentralDirectory['directory_entries_total'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 10, 2)); - $EndOfCentralDirectory['directory_size'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 12, 4)); - $EndOfCentralDirectory['directory_offset'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 16, 4)); - $EndOfCentralDirectory['comment_length'] = getid3_lib::LittleEndian2Int(substr($ZIPendOfCentralDirectory, 20, 2)); - - if ($EndOfCentralDirectory['comment_length'] > 0) { - $EndOfCentralDirectory['comment'] = fread($this->getid3->fp, $EndOfCentralDirectory['comment_length']); - } - - return $EndOfCentralDirectory; - } - - - public static function ZIPparseGeneralPurposeFlags($flagbytes, $compressionmethod) { - // https://users.cs.jmu.edu/buchhofp/forensics/formats/pkzip-printable.html - $ParsedFlags['encrypted'] = (bool) ($flagbytes & 0x0001); - // 0x0002 -- see below - // 0x0004 -- see below - $ParsedFlags['data_descriptor_used'] = (bool) ($flagbytes & 0x0008); - $ParsedFlags['enhanced_deflation'] = (bool) ($flagbytes & 0x0010); - $ParsedFlags['compressed_patched_data'] = (bool) ($flagbytes & 0x0020); - $ParsedFlags['strong_encryption'] = (bool) ($flagbytes & 0x0040); - // 0x0080 - unused - // 0x0100 - unused - // 0x0200 - unused - // 0x0400 - unused - $ParsedFlags['language_encoding'] = (bool) ($flagbytes & 0x0800); - // 0x1000 - reserved - $ParsedFlags['mask_header_values'] = (bool) ($flagbytes & 0x2000); - // 0x4000 - reserved - // 0x8000 - reserved - - switch ($compressionmethod) { - case 6: - $ParsedFlags['dictionary_size'] = (($flagbytes & 0x0002) ? 8192 : 4096); - $ParsedFlags['shannon_fano_trees'] = (($flagbytes & 0x0004) ? 3 : 2); - break; - - case 8: - case 9: - switch (($flagbytes & 0x0006) >> 1) { - case 0: - $ParsedFlags['compression_speed'] = 'normal'; - break; - case 1: - $ParsedFlags['compression_speed'] = 'maximum'; - break; - case 2: - $ParsedFlags['compression_speed'] = 'fast'; - break; - case 3: - $ParsedFlags['compression_speed'] = 'superfast'; - break; - } - break; - } - - return $ParsedFlags; - } - - - public static function ZIPversionOSLookup($index) { - static $ZIPversionOSLookup = array( - 0 => 'MS-DOS and OS/2 (FAT / VFAT / FAT32 file systems)', - 1 => 'Amiga', - 2 => 'OpenVMS', - 3 => 'Unix', - 4 => 'VM/CMS', - 5 => 'Atari ST', - 6 => 'OS/2 H.P.F.S.', - 7 => 'Macintosh', - 8 => 'Z-System', - 9 => 'CP/M', - 10 => 'Windows NTFS', - 11 => 'MVS', - 12 => 'VSE', - 13 => 'Acorn Risc', - 14 => 'VFAT', - 15 => 'Alternate MVS', - 16 => 'BeOS', - 17 => 'Tandem', - 18 => 'OS/400', - 19 => 'OS/X (Darwin)', - ); - - return (isset($ZIPversionOSLookup[$index]) ? $ZIPversionOSLookup[$index] : '[unknown]'); - } - - public static function ZIPcompressionMethodLookup($index) { - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/ZIP.html - static $ZIPcompressionMethodLookup = array( - 0 => 'store', - 1 => 'shrink', - 2 => 'reduce-1', - 3 => 'reduce-2', - 4 => 'reduce-3', - 5 => 'reduce-4', - 6 => 'implode', - 7 => 'tokenize', - 8 => 'deflate', - 9 => 'deflate64', - 10 => 'Imploded (old IBM TERSE)', - 11 => 'RESERVED[11]', - 12 => 'BZIP2', - 13 => 'RESERVED[13]', - 14 => 'LZMA (EFS)', - 15 => 'RESERVED[15]', - 16 => 'RESERVED[16]', - 17 => 'RESERVED[17]', - 18 => 'IBM TERSE (new)', - 19 => 'IBM LZ77 z Architecture (PFS)', - 96 => 'JPEG recompressed', - 97 => 'WavPack compressed', - 98 => 'PPMd version I, Rev 1', - ); - - return (isset($ZIPcompressionMethodLookup[$index]) ? $ZIPcompressionMethodLookup[$index] : '[unknown]'); - } - - public static function DOStime2UNIXtime($DOSdate, $DOStime) { - // wFatDate - // Specifies the MS-DOS date. The date is a packed 16-bit value with the following format: - // Bits Contents - // 0-4 Day of the month (1-31) - // 5-8 Month (1 = January, 2 = February, and so on) - // 9-15 Year offset from 1980 (add 1980 to get actual year) - - $UNIXday = ($DOSdate & 0x001F); - $UNIXmonth = (($DOSdate & 0x01E0) >> 5); - $UNIXyear = (($DOSdate & 0xFE00) >> 9) + 1980; - - // wFatTime - // Specifies the MS-DOS time. The time is a packed 16-bit value with the following format: - // Bits Contents - // 0-4 Second divided by 2 - // 5-10 Minute (0-59) - // 11-15 Hour (0-23 on a 24-hour clock) - - $UNIXsecond = ($DOStime & 0x001F) * 2; - $UNIXminute = (($DOStime & 0x07E0) >> 5); - $UNIXhour = (($DOStime & 0xF800) >> 11); - - return gmmktime($UNIXhour, $UNIXminute, $UNIXsecond, $UNIXmonth, $UNIXday, $UNIXyear); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.asf.php b/web/htdocs/media/lib/getid3/module.audio-video.asf.php deleted file mode 100644 index cfc60a78035..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.asf.php +++ /dev/null @@ -1,2019 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.asf.php // -// module for analyzing ASF, WMA and WMV files // -// dependencies: module.audio-video.riff.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - -class getid3_asf extends getid3_handler -{ - - public function __construct(getID3 $getid3) { - parent::__construct($getid3); // extends getid3_handler::__construct() - - // initialize all GUID constants - $GUIDarray = $this->KnownGUIDs(); - foreach ($GUIDarray as $GUIDname => $hexstringvalue) { - if (!defined($GUIDname)) { - define($GUIDname, $this->GUIDtoBytestring($hexstringvalue)); - } - } - } - - public function Analyze() { - $info = &$this->getid3->info; - - // Shortcuts - $thisfile_audio = &$info['audio']; - $thisfile_video = &$info['video']; - $info['asf'] = array(); - $thisfile_asf = &$info['asf']; - $thisfile_asf['comments'] = array(); - $thisfile_asf_comments = &$thisfile_asf['comments']; - $thisfile_asf['header_object'] = array(); - $thisfile_asf_headerobject = &$thisfile_asf['header_object']; - - - // ASF structure: - // * Header Object [required] - // * File Properties Object [required] (global file attributes) - // * Stream Properties Object [required] (defines media stream & characteristics) - // * Header Extension Object [required] (additional functionality) - // * Content Description Object (bibliographic information) - // * Script Command Object (commands for during playback) - // * Marker Object (named jumped points within the file) - // * Data Object [required] - // * Data Packets - // * Index Object - - // Header Object: (mandatory, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for header object - GETID3_ASF_Header_Object - // Object Size QWORD 64 // size of header object, including 30 bytes of Header Object header - // Number of Header Objects DWORD 32 // number of objects in header object - // Reserved1 BYTE 8 // hardcoded: 0x01 - // Reserved2 BYTE 8 // hardcoded: 0x02 - - $info['fileformat'] = 'asf'; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $HeaderObjectData = fread($this->getid3->fp, 30); - - $thisfile_asf_headerobject['objectid'] = substr($HeaderObjectData, 0, 16); - $thisfile_asf_headerobject['objectid_guid'] = $this->BytestringToGUID($thisfile_asf_headerobject['objectid']); - if ($thisfile_asf_headerobject['objectid'] != GETID3_ASF_Header_Object) { - $info['warning'][] = 'ASF header GUID {'.$this->BytestringToGUID($thisfile_asf_headerobject['objectid']).'} does not match expected "GETID3_ASF_Header_Object" GUID {'.$this->BytestringToGUID(GETID3_ASF_Header_Object).'}'; - unset($info['fileformat']); - unset($info['asf']); - return false; - break; - } - $thisfile_asf_headerobject['objectsize'] = getid3_lib::LittleEndian2Int(substr($HeaderObjectData, 16, 8)); - $thisfile_asf_headerobject['headerobjects'] = getid3_lib::LittleEndian2Int(substr($HeaderObjectData, 24, 4)); - $thisfile_asf_headerobject['reserved1'] = getid3_lib::LittleEndian2Int(substr($HeaderObjectData, 28, 1)); - $thisfile_asf_headerobject['reserved2'] = getid3_lib::LittleEndian2Int(substr($HeaderObjectData, 29, 1)); - - $NextObjectOffset = ftell($this->getid3->fp); - $ASFHeaderData = fread($this->getid3->fp, $thisfile_asf_headerobject['objectsize'] - 30); - $offset = 0; - - for ($HeaderObjectsCounter = 0; $HeaderObjectsCounter < $thisfile_asf_headerobject['headerobjects']; $HeaderObjectsCounter++) { - $NextObjectGUID = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $NextObjectGUIDtext = $this->BytestringToGUID($NextObjectGUID); - $NextObjectSize = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - switch ($NextObjectGUID) { - - case GETID3_ASF_File_Properties_Object: - // File Properties Object: (mandatory, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for file properties object - GETID3_ASF_File_Properties_Object - // Object Size QWORD 64 // size of file properties object, including 104 bytes of File Properties Object header - // File ID GUID 128 // unique ID - identical to File ID in Data Object - // File Size QWORD 64 // entire file in bytes. Invalid if Broadcast Flag == 1 - // Creation Date QWORD 64 // date & time of file creation. Maybe invalid if Broadcast Flag == 1 - // Data Packets Count QWORD 64 // number of data packets in Data Object. Invalid if Broadcast Flag == 1 - // Play Duration QWORD 64 // playtime, in 100-nanosecond units. Invalid if Broadcast Flag == 1 - // Send Duration QWORD 64 // time needed to send file, in 100-nanosecond units. Players can ignore this value. Invalid if Broadcast Flag == 1 - // Preroll QWORD 64 // time to buffer data before starting to play file, in 1-millisecond units. If <> 0, PlayDuration and PresentationTime have been offset by this amount - // Flags DWORD 32 // - // * Broadcast Flag bits 1 (0x01) // file is currently being written, some header values are invalid - // * Seekable Flag bits 1 (0x02) // is file seekable - // * Reserved bits 30 (0xFFFFFFFC) // reserved - set to zero - // Minimum Data Packet Size DWORD 32 // in bytes. should be same as Maximum Data Packet Size. Invalid if Broadcast Flag == 1 - // Maximum Data Packet Size DWORD 32 // in bytes. should be same as Minimum Data Packet Size. Invalid if Broadcast Flag == 1 - // Maximum Bitrate DWORD 32 // maximum instantaneous bitrate in bits per second for entire file, including all data streams and ASF overhead - - // shortcut - $thisfile_asf['file_properties_object'] = array(); - $thisfile_asf_filepropertiesobject = &$thisfile_asf['file_properties_object']; - - $thisfile_asf_filepropertiesobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_filepropertiesobject['objectid'] = $NextObjectGUID; - $thisfile_asf_filepropertiesobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_filepropertiesobject['objectsize'] = $NextObjectSize; - $thisfile_asf_filepropertiesobject['fileid'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_filepropertiesobject['fileid_guid'] = $this->BytestringToGUID($thisfile_asf_filepropertiesobject['fileid']); - $thisfile_asf_filepropertiesobject['filesize'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_filepropertiesobject['creation_date'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $thisfile_asf_filepropertiesobject['creation_date_unix'] = $this->FILETIMEtoUNIXtime($thisfile_asf_filepropertiesobject['creation_date']); - $offset += 8; - $thisfile_asf_filepropertiesobject['data_packets'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_filepropertiesobject['play_duration'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_filepropertiesobject['send_duration'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_filepropertiesobject['preroll'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_filepropertiesobject['flags_raw'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_filepropertiesobject['flags']['broadcast'] = (bool) ($thisfile_asf_filepropertiesobject['flags_raw'] & 0x0001); - $thisfile_asf_filepropertiesobject['flags']['seekable'] = (bool) ($thisfile_asf_filepropertiesobject['flags_raw'] & 0x0002); - - $thisfile_asf_filepropertiesobject['min_packet_size'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_filepropertiesobject['max_packet_size'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_filepropertiesobject['max_bitrate'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - - if ($thisfile_asf_filepropertiesobject['flags']['broadcast']) { - - // broadcast flag is set, some values invalid - unset($thisfile_asf_filepropertiesobject['filesize']); - unset($thisfile_asf_filepropertiesobject['data_packets']); - unset($thisfile_asf_filepropertiesobject['play_duration']); - unset($thisfile_asf_filepropertiesobject['send_duration']); - unset($thisfile_asf_filepropertiesobject['min_packet_size']); - unset($thisfile_asf_filepropertiesobject['max_packet_size']); - - } else { - - // broadcast flag NOT set, perform calculations - $info['playtime_seconds'] = ($thisfile_asf_filepropertiesobject['play_duration'] / 10000000) - ($thisfile_asf_filepropertiesobject['preroll'] / 1000); - - //$info['bitrate'] = $thisfile_asf_filepropertiesobject['max_bitrate']; - $info['bitrate'] = ((isset($thisfile_asf_filepropertiesobject['filesize']) ? $thisfile_asf_filepropertiesobject['filesize'] : $info['filesize']) * 8) / $info['playtime_seconds']; - } - break; - - case GETID3_ASF_Stream_Properties_Object: - // Stream Properties Object: (mandatory, one per media stream) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for stream properties object - GETID3_ASF_Stream_Properties_Object - // Object Size QWORD 64 // size of stream properties object, including 78 bytes of Stream Properties Object header - // Stream Type GUID 128 // GETID3_ASF_Audio_Media, GETID3_ASF_Video_Media or GETID3_ASF_Command_Media - // Error Correction Type GUID 128 // GETID3_ASF_Audio_Spread for audio-only streams, GETID3_ASF_No_Error_Correction for other stream types - // Time Offset QWORD 64 // 100-nanosecond units. typically zero. added to all timestamps of samples in the stream - // Type-Specific Data Length DWORD 32 // number of bytes for Type-Specific Data field - // Error Correction Data Length DWORD 32 // number of bytes for Error Correction Data field - // Flags WORD 16 // - // * Stream Number bits 7 (0x007F) // number of this stream. 1 <= valid <= 127 - // * Reserved bits 8 (0x7F80) // reserved - set to zero - // * Encrypted Content Flag bits 1 (0x8000) // stream contents encrypted if set - // Reserved DWORD 32 // reserved - set to zero - // Type-Specific Data BYTESTREAM variable // type-specific format data, depending on value of Stream Type - // Error Correction Data BYTESTREAM variable // error-correction-specific format data, depending on value of Error Correct Type - - // There is one GETID3_ASF_Stream_Properties_Object for each stream (audio, video) but the - // stream number isn't known until halfway through decoding the structure, hence it - // it is decoded to a temporary variable and then stuck in the appropriate index later - - $StreamPropertiesObjectData['offset'] = $NextObjectOffset + $offset; - $StreamPropertiesObjectData['objectid'] = $NextObjectGUID; - $StreamPropertiesObjectData['objectid_guid'] = $NextObjectGUIDtext; - $StreamPropertiesObjectData['objectsize'] = $NextObjectSize; - $StreamPropertiesObjectData['stream_type'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $StreamPropertiesObjectData['stream_type_guid'] = $this->BytestringToGUID($StreamPropertiesObjectData['stream_type']); - $StreamPropertiesObjectData['error_correct_type'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $StreamPropertiesObjectData['error_correct_guid'] = $this->BytestringToGUID($StreamPropertiesObjectData['error_correct_type']); - $StreamPropertiesObjectData['time_offset'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $StreamPropertiesObjectData['type_data_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $StreamPropertiesObjectData['error_data_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $StreamPropertiesObjectData['flags_raw'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $StreamPropertiesObjectStreamNumber = $StreamPropertiesObjectData['flags_raw'] & 0x007F; - $StreamPropertiesObjectData['flags']['encrypted'] = (bool) ($StreamPropertiesObjectData['flags_raw'] & 0x8000); - - $offset += 4; // reserved - DWORD - $StreamPropertiesObjectData['type_specific_data'] = substr($ASFHeaderData, $offset, $StreamPropertiesObjectData['type_data_length']); - $offset += $StreamPropertiesObjectData['type_data_length']; - $StreamPropertiesObjectData['error_correct_data'] = substr($ASFHeaderData, $offset, $StreamPropertiesObjectData['error_data_length']); - $offset += $StreamPropertiesObjectData['error_data_length']; - - switch ($StreamPropertiesObjectData['stream_type']) { - - case GETID3_ASF_Audio_Media: - $thisfile_audio['dataformat'] = (!empty($thisfile_audio['dataformat']) ? $thisfile_audio['dataformat'] : 'asf'); - $thisfile_audio['bitrate_mode'] = (!empty($thisfile_audio['bitrate_mode']) ? $thisfile_audio['bitrate_mode'] : 'cbr'); - - $audiodata = getid3_riff::parseWAVEFORMATex(substr($StreamPropertiesObjectData['type_specific_data'], 0, 16)); - unset($audiodata['raw']); - $thisfile_audio = getid3_lib::array_merge_noclobber($audiodata, $thisfile_audio); - break; - - case GETID3_ASF_Video_Media: - $thisfile_video['dataformat'] = (!empty($thisfile_video['dataformat']) ? $thisfile_video['dataformat'] : 'asf'); - $thisfile_video['bitrate_mode'] = (!empty($thisfile_video['bitrate_mode']) ? $thisfile_video['bitrate_mode'] : 'cbr'); - break; - - case GETID3_ASF_Command_Media: - default: - // do nothing - break; - - } - - $thisfile_asf['stream_properties_object'][$StreamPropertiesObjectStreamNumber] = $StreamPropertiesObjectData; - unset($StreamPropertiesObjectData); // clear for next stream, if any - break; - - case GETID3_ASF_Header_Extension_Object: - // Header Extension Object: (mandatory, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Header Extension object - GETID3_ASF_Header_Extension_Object - // Object Size QWORD 64 // size of Header Extension object, including 46 bytes of Header Extension Object header - // Reserved Field 1 GUID 128 // hardcoded: GETID3_ASF_Reserved_1 - // Reserved Field 2 WORD 16 // hardcoded: 0x00000006 - // Header Extension Data Size DWORD 32 // in bytes. valid: 0, or > 24. equals object size minus 46 - // Header Extension Data BYTESTREAM variable // array of zero or more extended header objects - - // shortcut - $thisfile_asf['header_extension_object'] = array(); - $thisfile_asf_headerextensionobject = &$thisfile_asf['header_extension_object']; - - $thisfile_asf_headerextensionobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_headerextensionobject['objectid'] = $NextObjectGUID; - $thisfile_asf_headerextensionobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_headerextensionobject['objectsize'] = $NextObjectSize; - $thisfile_asf_headerextensionobject['reserved_1'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_headerextensionobject['reserved_1_guid'] = $this->BytestringToGUID($thisfile_asf_headerextensionobject['reserved_1']); - if ($thisfile_asf_headerextensionobject['reserved_1'] != GETID3_ASF_Reserved_1) { - $info['warning'][] = 'header_extension_object.reserved_1 GUID ('.$this->BytestringToGUID($thisfile_asf_headerextensionobject['reserved_1']).') does not match expected "GETID3_ASF_Reserved_1" GUID ('.$this->BytestringToGUID(GETID3_ASF_Reserved_1).')'; - //return false; - break; - } - $thisfile_asf_headerextensionobject['reserved_2'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - if ($thisfile_asf_headerextensionobject['reserved_2'] != 6) { - $info['warning'][] = 'header_extension_object.reserved_2 ('.getid3_lib::PrintHexBytes($thisfile_asf_headerextensionobject['reserved_2']).') does not match expected value of "6"'; - //return false; - break; - } - $thisfile_asf_headerextensionobject['extension_data_size'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_headerextensionobject['extension_data'] = substr($ASFHeaderData, $offset, $thisfile_asf_headerextensionobject['extension_data_size']); - $unhandled_sections = 0; - $thisfile_asf_headerextensionobject['extension_data_parsed'] = $this->ASF_HeaderExtensionObjectDataParse($thisfile_asf_headerextensionobject['extension_data'], $unhandled_sections); - if ($unhandled_sections === 0) { - unset($thisfile_asf_headerextensionobject['extension_data']); - } - $offset += $thisfile_asf_headerextensionobject['extension_data_size']; - break; - - case GETID3_ASF_Codec_List_Object: - // Codec List Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Codec List object - GETID3_ASF_Codec_List_Object - // Object Size QWORD 64 // size of Codec List object, including 44 bytes of Codec List Object header - // Reserved GUID 128 // hardcoded: 86D15241-311D-11D0-A3A4-00A0C90348F6 - // Codec Entries Count DWORD 32 // number of entries in Codec Entries array - // Codec Entries array of: variable // - // * Type WORD 16 // 0x0001 = Video Codec, 0x0002 = Audio Codec, 0xFFFF = Unknown Codec - // * Codec Name Length WORD 16 // number of Unicode characters stored in the Codec Name field - // * Codec Name WCHAR variable // array of Unicode characters - name of codec used to create the content - // * Codec Description Length WORD 16 // number of Unicode characters stored in the Codec Description field - // * Codec Description WCHAR variable // array of Unicode characters - description of format used to create the content - // * Codec Information Length WORD 16 // number of Unicode characters stored in the Codec Information field - // * Codec Information BYTESTREAM variable // opaque array of information bytes about the codec used to create the content - - // shortcut - $thisfile_asf['codec_list_object'] = array(); - $thisfile_asf_codeclistobject = &$thisfile_asf['codec_list_object']; - - $thisfile_asf_codeclistobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_codeclistobject['objectid'] = $NextObjectGUID; - $thisfile_asf_codeclistobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_codeclistobject['objectsize'] = $NextObjectSize; - $thisfile_asf_codeclistobject['reserved'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_codeclistobject['reserved_guid'] = $this->BytestringToGUID($thisfile_asf_codeclistobject['reserved']); - if ($thisfile_asf_codeclistobject['reserved'] != $this->GUIDtoBytestring('86D15241-311D-11D0-A3A4-00A0C90348F6')) { - $info['warning'][] = 'codec_list_object.reserved GUID {'.$this->BytestringToGUID($thisfile_asf_codeclistobject['reserved']).'} does not match expected "GETID3_ASF_Reserved_1" GUID {86D15241-311D-11D0-A3A4-00A0C90348F6}'; - //return false; - break; - } - $thisfile_asf_codeclistobject['codec_entries_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - for ($CodecEntryCounter = 0; $CodecEntryCounter < $thisfile_asf_codeclistobject['codec_entries_count']; $CodecEntryCounter++) { - // shortcut - $thisfile_asf_codeclistobject['codec_entries'][$CodecEntryCounter] = array(); - $thisfile_asf_codeclistobject_codecentries_current = &$thisfile_asf_codeclistobject['codec_entries'][$CodecEntryCounter]; - - $thisfile_asf_codeclistobject_codecentries_current['type_raw'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_codeclistobject_codecentries_current['type'] = $this->ASFCodecListObjectTypeLookup($thisfile_asf_codeclistobject_codecentries_current['type_raw']); - - $CodecNameLength = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)) * 2; // 2 bytes per character - $offset += 2; - $thisfile_asf_codeclistobject_codecentries_current['name'] = substr($ASFHeaderData, $offset, $CodecNameLength); - $offset += $CodecNameLength; - - $CodecDescriptionLength = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)) * 2; // 2 bytes per character - $offset += 2; - $thisfile_asf_codeclistobject_codecentries_current['description'] = substr($ASFHeaderData, $offset, $CodecDescriptionLength); - $offset += $CodecDescriptionLength; - - $CodecInformationLength = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_codeclistobject_codecentries_current['information'] = substr($ASFHeaderData, $offset, $CodecInformationLength); - $offset += $CodecInformationLength; - - if ($thisfile_asf_codeclistobject_codecentries_current['type_raw'] == 2) { // audio codec - - if (strpos($thisfile_asf_codeclistobject_codecentries_current['description'], ',') === false) { - $info['warning'][] = '[asf][codec_list_object][codec_entries]['.$CodecEntryCounter.'][description] expected to contain comma-seperated list of parameters: "'.$thisfile_asf_codeclistobject_codecentries_current['description'].'"'; - } else { - - list($AudioCodecBitrate, $AudioCodecFrequency, $AudioCodecChannels) = explode(',', $this->TrimConvert($thisfile_asf_codeclistobject_codecentries_current['description'])); - $thisfile_audio['codec'] = $this->TrimConvert($thisfile_asf_codeclistobject_codecentries_current['name']); - - if (!isset($thisfile_audio['bitrate']) && strstr($AudioCodecBitrate, 'kbps')) { - $thisfile_audio['bitrate'] = (int) (trim(str_replace('kbps', '', $AudioCodecBitrate)) * 1000); - } - //if (!isset($thisfile_video['bitrate']) && isset($thisfile_audio['bitrate']) && isset($thisfile_asf['file_properties_object']['max_bitrate']) && ($thisfile_asf_codeclistobject['codec_entries_count'] > 1)) { - if (empty($thisfile_video['bitrate']) && !empty($thisfile_audio['bitrate']) && !empty($info['bitrate'])) { - //$thisfile_video['bitrate'] = $thisfile_asf['file_properties_object']['max_bitrate'] - $thisfile_audio['bitrate']; - $thisfile_video['bitrate'] = $info['bitrate'] - $thisfile_audio['bitrate']; - } - - $AudioCodecFrequency = (int) trim(str_replace('kHz', '', $AudioCodecFrequency)); - switch ($AudioCodecFrequency) { - case 8: - case 8000: - $thisfile_audio['sample_rate'] = 8000; - break; - - case 11: - case 11025: - $thisfile_audio['sample_rate'] = 11025; - break; - - case 12: - case 12000: - $thisfile_audio['sample_rate'] = 12000; - break; - - case 16: - case 16000: - $thisfile_audio['sample_rate'] = 16000; - break; - - case 22: - case 22050: - $thisfile_audio['sample_rate'] = 22050; - break; - - case 24: - case 24000: - $thisfile_audio['sample_rate'] = 24000; - break; - - case 32: - case 32000: - $thisfile_audio['sample_rate'] = 32000; - break; - - case 44: - case 441000: - $thisfile_audio['sample_rate'] = 44100; - break; - - case 48: - case 48000: - $thisfile_audio['sample_rate'] = 48000; - break; - - default: - $info['warning'][] = 'unknown frequency: "'.$AudioCodecFrequency.'" ('.$this->TrimConvert($thisfile_asf_codeclistobject_codecentries_current['description']).')'; - break; - } - - if (!isset($thisfile_audio['channels'])) { - if (strstr($AudioCodecChannels, 'stereo')) { - $thisfile_audio['channels'] = 2; - } elseif (strstr($AudioCodecChannels, 'mono')) { - $thisfile_audio['channels'] = 1; - } - } - - } - } - } - break; - - case GETID3_ASF_Script_Command_Object: - // Script Command Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Script Command object - GETID3_ASF_Script_Command_Object - // Object Size QWORD 64 // size of Script Command object, including 44 bytes of Script Command Object header - // Reserved GUID 128 // hardcoded: 4B1ACBE3-100B-11D0-A39B-00A0C90348F6 - // Commands Count WORD 16 // number of Commands structures in the Script Commands Objects - // Command Types Count WORD 16 // number of Command Types structures in the Script Commands Objects - // Command Types array of: variable // - // * Command Type Name Length WORD 16 // number of Unicode characters for Command Type Name - // * Command Type Name WCHAR variable // array of Unicode characters - name of a type of command - // Commands array of: variable // - // * Presentation Time DWORD 32 // presentation time of that command, in milliseconds - // * Type Index WORD 16 // type of this command, as a zero-based index into the array of Command Types of this object - // * Command Name Length WORD 16 // number of Unicode characters for Command Name - // * Command Name WCHAR variable // array of Unicode characters - name of this command - - // shortcut - $thisfile_asf['script_command_object'] = array(); - $thisfile_asf_scriptcommandobject = &$thisfile_asf['script_command_object']; - - $thisfile_asf_scriptcommandobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_scriptcommandobject['objectid'] = $NextObjectGUID; - $thisfile_asf_scriptcommandobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_scriptcommandobject['objectsize'] = $NextObjectSize; - $thisfile_asf_scriptcommandobject['reserved'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_scriptcommandobject['reserved_guid'] = $this->BytestringToGUID($thisfile_asf_scriptcommandobject['reserved']); - if ($thisfile_asf_scriptcommandobject['reserved'] != $this->GUIDtoBytestring('4B1ACBE3-100B-11D0-A39B-00A0C90348F6')) { - $info['warning'][] = 'script_command_object.reserved GUID {'.$this->BytestringToGUID($thisfile_asf_scriptcommandobject['reserved']).'} does not match expected "GETID3_ASF_Reserved_1" GUID {4B1ACBE3-100B-11D0-A39B-00A0C90348F6}'; - //return false; - break; - } - $thisfile_asf_scriptcommandobject['commands_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_scriptcommandobject['command_types_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - for ($CommandTypesCounter = 0; $CommandTypesCounter < $thisfile_asf_scriptcommandobject['command_types_count']; $CommandTypesCounter++) { - $CommandTypeNameLength = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)) * 2; // 2 bytes per character - $offset += 2; - $thisfile_asf_scriptcommandobject['command_types'][$CommandTypesCounter]['name'] = substr($ASFHeaderData, $offset, $CommandTypeNameLength); - $offset += $CommandTypeNameLength; - } - for ($CommandsCounter = 0; $CommandsCounter < $thisfile_asf_scriptcommandobject['commands_count']; $CommandsCounter++) { - $thisfile_asf_scriptcommandobject['commands'][$CommandsCounter]['presentation_time'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_scriptcommandobject['commands'][$CommandsCounter]['type_index'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - - $CommandTypeNameLength = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)) * 2; // 2 bytes per character - $offset += 2; - $thisfile_asf_scriptcommandobject['commands'][$CommandsCounter]['name'] = substr($ASFHeaderData, $offset, $CommandTypeNameLength); - $offset += $CommandTypeNameLength; - } - break; - - case GETID3_ASF_Marker_Object: - // Marker Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Marker object - GETID3_ASF_Marker_Object - // Object Size QWORD 64 // size of Marker object, including 48 bytes of Marker Object header - // Reserved GUID 128 // hardcoded: 4CFEDB20-75F6-11CF-9C0F-00A0C90349CB - // Markers Count DWORD 32 // number of Marker structures in Marker Object - // Reserved WORD 16 // hardcoded: 0x0000 - // Name Length WORD 16 // number of bytes in the Name field - // Name WCHAR variable // name of the Marker Object - // Markers array of: variable // - // * Offset QWORD 64 // byte offset into Data Object - // * Presentation Time QWORD 64 // in 100-nanosecond units - // * Entry Length WORD 16 // length in bytes of (Send Time + Flags + Marker Description Length + Marker Description + Padding) - // * Send Time DWORD 32 // in milliseconds - // * Flags DWORD 32 // hardcoded: 0x00000000 - // * Marker Description Length DWORD 32 // number of bytes in Marker Description field - // * Marker Description WCHAR variable // array of Unicode characters - description of marker entry - // * Padding BYTESTREAM variable // optional padding bytes - - // shortcut - $thisfile_asf['marker_object'] = array(); - $thisfile_asf_markerobject = &$thisfile_asf['marker_object']; - - $thisfile_asf_markerobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_markerobject['objectid'] = $NextObjectGUID; - $thisfile_asf_markerobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_markerobject['objectsize'] = $NextObjectSize; - $thisfile_asf_markerobject['reserved'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_markerobject['reserved_guid'] = $this->BytestringToGUID($thisfile_asf_markerobject['reserved']); - if ($thisfile_asf_markerobject['reserved'] != $this->GUIDtoBytestring('4CFEDB20-75F6-11CF-9C0F-00A0C90349CB')) { - $info['warning'][] = 'marker_object.reserved GUID {'.$this->BytestringToGUID($thisfile_asf_markerobject['reserved_1']).'} does not match expected "GETID3_ASF_Reserved_1" GUID {4CFEDB20-75F6-11CF-9C0F-00A0C90349CB}'; - break; - } - $thisfile_asf_markerobject['markers_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_markerobject['reserved_2'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - if ($thisfile_asf_markerobject['reserved_2'] != 0) { - $info['warning'][] = 'marker_object.reserved_2 ('.getid3_lib::PrintHexBytes($thisfile_asf_markerobject['reserved_2']).') does not match expected value of "0"'; - break; - } - $thisfile_asf_markerobject['name_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_markerobject['name'] = substr($ASFHeaderData, $offset, $thisfile_asf_markerobject['name_length']); - $offset += $thisfile_asf_markerobject['name_length']; - for ($MarkersCounter = 0; $MarkersCounter < $thisfile_asf_markerobject['markers_count']; $MarkersCounter++) { - $thisfile_asf_markerobject['markers'][$MarkersCounter]['offset'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['presentation_time'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 8)); - $offset += 8; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['entry_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['send_time'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['flags'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['marker_description_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - $thisfile_asf_markerobject['markers'][$MarkersCounter]['marker_description'] = substr($ASFHeaderData, $offset, $thisfile_asf_markerobject['markers'][$MarkersCounter]['marker_description_length']); - $offset += $thisfile_asf_markerobject['markers'][$MarkersCounter]['marker_description_length']; - $PaddingLength = $thisfile_asf_markerobject['markers'][$MarkersCounter]['entry_length'] - 4 - 4 - 4 - $thisfile_asf_markerobject['markers'][$MarkersCounter]['marker_description_length']; - if ($PaddingLength > 0) { - $thisfile_asf_markerobject['markers'][$MarkersCounter]['padding'] = substr($ASFHeaderData, $offset, $PaddingLength); - $offset += $PaddingLength; - } - } - break; - - case GETID3_ASF_Bitrate_Mutual_Exclusion_Object: - // Bitrate Mutual Exclusion Object: (optional) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Bitrate Mutual Exclusion object - GETID3_ASF_Bitrate_Mutual_Exclusion_Object - // Object Size QWORD 64 // size of Bitrate Mutual Exclusion object, including 42 bytes of Bitrate Mutual Exclusion Object header - // Exlusion Type GUID 128 // nature of mutual exclusion relationship. one of: (GETID3_ASF_Mutex_Bitrate, GETID3_ASF_Mutex_Unknown) - // Stream Numbers Count WORD 16 // number of video streams - // Stream Numbers WORD variable // array of mutually exclusive video stream numbers. 1 <= valid <= 127 - - // shortcut - $thisfile_asf['bitrate_mutual_exclusion_object'] = array(); - $thisfile_asf_bitratemutualexclusionobject = &$thisfile_asf['bitrate_mutual_exclusion_object']; - - $thisfile_asf_bitratemutualexclusionobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_bitratemutualexclusionobject['objectid'] = $NextObjectGUID; - $thisfile_asf_bitratemutualexclusionobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_bitratemutualexclusionobject['objectsize'] = $NextObjectSize; - $thisfile_asf_bitratemutualexclusionobject['reserved'] = substr($ASFHeaderData, $offset, 16); - $thisfile_asf_bitratemutualexclusionobject['reserved_guid'] = $this->BytestringToGUID($thisfile_asf_bitratemutualexclusionobject['reserved']); - $offset += 16; - if (($thisfile_asf_bitratemutualexclusionobject['reserved'] != GETID3_ASF_Mutex_Bitrate) && ($thisfile_asf_bitratemutualexclusionobject['reserved'] != GETID3_ASF_Mutex_Unknown)) { - $info['warning'][] = 'bitrate_mutual_exclusion_object.reserved GUID {'.$this->BytestringToGUID($thisfile_asf_bitratemutualexclusionobject['reserved']).'} does not match expected "GETID3_ASF_Mutex_Bitrate" GUID {'.$this->BytestringToGUID(GETID3_ASF_Mutex_Bitrate).'} or "GETID3_ASF_Mutex_Unknown" GUID {'.$this->BytestringToGUID(GETID3_ASF_Mutex_Unknown).'}'; - //return false; - break; - } - $thisfile_asf_bitratemutualexclusionobject['stream_numbers_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - for ($StreamNumberCounter = 0; $StreamNumberCounter < $thisfile_asf_bitratemutualexclusionobject['stream_numbers_count']; $StreamNumberCounter++) { - $thisfile_asf_bitratemutualexclusionobject['stream_numbers'][$StreamNumberCounter] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - } - break; - - case GETID3_ASF_Error_Correction_Object: - // Error Correction Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Error Correction object - GETID3_ASF_Error_Correction_Object - // Object Size QWORD 64 // size of Error Correction object, including 44 bytes of Error Correction Object header - // Error Correction Type GUID 128 // type of error correction. one of: (GETID3_ASF_No_Error_Correction, GETID3_ASF_Audio_Spread) - // Error Correction Data Length DWORD 32 // number of bytes in Error Correction Data field - // Error Correction Data BYTESTREAM variable // structure depends on value of Error Correction Type field - - // shortcut - $thisfile_asf['error_correction_object'] = array(); - $thisfile_asf_errorcorrectionobject = &$thisfile_asf['error_correction_object']; - - $thisfile_asf_errorcorrectionobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_errorcorrectionobject['objectid'] = $NextObjectGUID; - $thisfile_asf_errorcorrectionobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_errorcorrectionobject['objectsize'] = $NextObjectSize; - $thisfile_asf_errorcorrectionobject['error_correction_type'] = substr($ASFHeaderData, $offset, 16); - $offset += 16; - $thisfile_asf_errorcorrectionobject['error_correction_guid'] = $this->BytestringToGUID($thisfile_asf_errorcorrectionobject['error_correction_type']); - $thisfile_asf_errorcorrectionobject['error_correction_data_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - switch ($thisfile_asf_errorcorrectionobject['error_correction_type']) { - case GETID3_ASF_No_Error_Correction: - // should be no data, but just in case there is, skip to the end of the field - $offset += $thisfile_asf_errorcorrectionobject['error_correction_data_length']; - break; - - case GETID3_ASF_Audio_Spread: - // Field Name Field Type Size (bits) - // Span BYTE 8 // number of packets over which audio will be spread. - // Virtual Packet Length WORD 16 // size of largest audio payload found in audio stream - // Virtual Chunk Length WORD 16 // size of largest audio payload found in audio stream - // Silence Data Length WORD 16 // number of bytes in Silence Data field - // Silence Data BYTESTREAM variable // hardcoded: 0x00 * (Silence Data Length) bytes - - $thisfile_asf_errorcorrectionobject['span'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 1)); - $offset += 1; - $thisfile_asf_errorcorrectionobject['virtual_packet_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_errorcorrectionobject['virtual_chunk_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_errorcorrectionobject['silence_data_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_errorcorrectionobject['silence_data'] = substr($ASFHeaderData, $offset, $thisfile_asf_errorcorrectionobject['silence_data_length']); - $offset += $thisfile_asf_errorcorrectionobject['silence_data_length']; - break; - - default: - $info['warning'][] = 'error_correction_object.error_correction_type GUID {'.$this->BytestringToGUID($thisfile_asf_errorcorrectionobject['reserved']).'} does not match expected "GETID3_ASF_No_Error_Correction" GUID {'.$this->BytestringToGUID(GETID3_ASF_No_Error_Correction).'} or "GETID3_ASF_Audio_Spread" GUID {'.$this->BytestringToGUID(GETID3_ASF_Audio_Spread).'}'; - //return false; - break; - } - - break; - - case GETID3_ASF_Content_Description_Object: - // Content Description Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Content Description object - GETID3_ASF_Content_Description_Object - // Object Size QWORD 64 // size of Content Description object, including 34 bytes of Content Description Object header - // Title Length WORD 16 // number of bytes in Title field - // Author Length WORD 16 // number of bytes in Author field - // Copyright Length WORD 16 // number of bytes in Copyright field - // Description Length WORD 16 // number of bytes in Description field - // Rating Length WORD 16 // number of bytes in Rating field - // Title WCHAR 16 // array of Unicode characters - Title - // Author WCHAR 16 // array of Unicode characters - Author - // Copyright WCHAR 16 // array of Unicode characters - Copyright - // Description WCHAR 16 // array of Unicode characters - Description - // Rating WCHAR 16 // array of Unicode characters - Rating - - // shortcut - $thisfile_asf['content_description_object'] = array(); - $thisfile_asf_contentdescriptionobject = &$thisfile_asf['content_description_object']; - - $thisfile_asf_contentdescriptionobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_contentdescriptionobject['objectid'] = $NextObjectGUID; - $thisfile_asf_contentdescriptionobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_contentdescriptionobject['objectsize'] = $NextObjectSize; - $thisfile_asf_contentdescriptionobject['title_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_contentdescriptionobject['author_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_contentdescriptionobject['copyright_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_contentdescriptionobject['description_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_contentdescriptionobject['rating_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_contentdescriptionobject['title'] = substr($ASFHeaderData, $offset, $thisfile_asf_contentdescriptionobject['title_length']); - $offset += $thisfile_asf_contentdescriptionobject['title_length']; - $thisfile_asf_contentdescriptionobject['author'] = substr($ASFHeaderData, $offset, $thisfile_asf_contentdescriptionobject['author_length']); - $offset += $thisfile_asf_contentdescriptionobject['author_length']; - $thisfile_asf_contentdescriptionobject['copyright'] = substr($ASFHeaderData, $offset, $thisfile_asf_contentdescriptionobject['copyright_length']); - $offset += $thisfile_asf_contentdescriptionobject['copyright_length']; - $thisfile_asf_contentdescriptionobject['description'] = substr($ASFHeaderData, $offset, $thisfile_asf_contentdescriptionobject['description_length']); - $offset += $thisfile_asf_contentdescriptionobject['description_length']; - $thisfile_asf_contentdescriptionobject['rating'] = substr($ASFHeaderData, $offset, $thisfile_asf_contentdescriptionobject['rating_length']); - $offset += $thisfile_asf_contentdescriptionobject['rating_length']; - - $ASFcommentKeysToCopy = array('title'=>'title', 'author'=>'artist', 'copyright'=>'copyright', 'description'=>'comment', 'rating'=>'rating'); - foreach ($ASFcommentKeysToCopy as $keytocopyfrom => $keytocopyto) { - if (!empty($thisfile_asf_contentdescriptionobject[$keytocopyfrom])) { - $thisfile_asf_comments[$keytocopyto][] = $this->TrimTerm($thisfile_asf_contentdescriptionobject[$keytocopyfrom]); - } - } - break; - - case GETID3_ASF_Extended_Content_Description_Object: - // Extended Content Description Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Extended Content Description object - GETID3_ASF_Extended_Content_Description_Object - // Object Size QWORD 64 // size of ExtendedContent Description object, including 26 bytes of Extended Content Description Object header - // Content Descriptors Count WORD 16 // number of entries in Content Descriptors list - // Content Descriptors array of: variable // - // * Descriptor Name Length WORD 16 // size in bytes of Descriptor Name field - // * Descriptor Name WCHAR variable // array of Unicode characters - Descriptor Name - // * Descriptor Value Data Type WORD 16 // Lookup array: - // 0x0000 = Unicode String (variable length) - // 0x0001 = BYTE array (variable length) - // 0x0002 = BOOL (DWORD, 32 bits) - // 0x0003 = DWORD (DWORD, 32 bits) - // 0x0004 = QWORD (QWORD, 64 bits) - // 0x0005 = WORD (WORD, 16 bits) - // * Descriptor Value Length WORD 16 // number of bytes stored in Descriptor Value field - // * Descriptor Value variable variable // value for Content Descriptor - - // shortcut - $thisfile_asf['extended_content_description_object'] = array(); - $thisfile_asf_extendedcontentdescriptionobject = &$thisfile_asf['extended_content_description_object']; - - $thisfile_asf_extendedcontentdescriptionobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_extendedcontentdescriptionobject['objectid'] = $NextObjectGUID; - $thisfile_asf_extendedcontentdescriptionobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_extendedcontentdescriptionobject['objectsize'] = $NextObjectSize; - $thisfile_asf_extendedcontentdescriptionobject['content_descriptors_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - for ($ExtendedContentDescriptorsCounter = 0; $ExtendedContentDescriptorsCounter < $thisfile_asf_extendedcontentdescriptionobject['content_descriptors_count']; $ExtendedContentDescriptorsCounter++) { - // shortcut - $thisfile_asf_extendedcontentdescriptionobject['content_descriptors'][$ExtendedContentDescriptorsCounter] = array(); - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current = &$thisfile_asf_extendedcontentdescriptionobject['content_descriptors'][$ExtendedContentDescriptorsCounter]; - - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['base_offset'] = $offset + 30; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name'] = substr($ASFHeaderData, $offset, $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name_length']); - $offset += $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name_length']; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_type'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_length'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'] = substr($ASFHeaderData, $offset, $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_length']); - $offset += $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_length']; - switch ($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_type']) { - case 0x0000: // Unicode string - break; - - case 0x0001: // BYTE array - // do nothing - break; - - case 0x0002: // BOOL - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'] = (bool) getid3_lib::LittleEndian2Int($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - break; - - case 0x0003: // DWORD - case 0x0004: // QWORD - case 0x0005: // WORD - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'] = getid3_lib::LittleEndian2Int($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - break; - - default: - $info['warning'][] = 'extended_content_description.content_descriptors.'.$ExtendedContentDescriptorsCounter.'.value_type is invalid ('.$thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_type'].')'; - //return false; - break; - } - switch ($this->TrimConvert(strtolower($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name']))) { - - case 'wm/albumartist': - case 'artist': - // Note: not 'artist', that comes from 'author' tag - $thisfile_asf_comments['albumartist'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'wm/albumtitle': - case 'album': - $thisfile_asf_comments['album'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'wm/genre': - case 'genre': - $thisfile_asf_comments['genre'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'wm/partofset': - $thisfile_asf_comments['partofset'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'wm/tracknumber': - case 'tracknumber': - // be careful casting to int: casting unicode strings to int gives unexpected results (stops parsing at first non-numeric character) - $thisfile_asf_comments['track'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - foreach ($thisfile_asf_comments['track'] as $key => $value) { - if (preg_match('/^[0-9\x00]+$/', $value)) { - $thisfile_asf_comments['track'][$key] = intval(str_replace("\x00", '', $value)); - } - } - break; - - case 'wm/track': - if (empty($thisfile_asf_comments['track'])) { - $thisfile_asf_comments['track'] = array(1 + $this->TrimConvert($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - } - break; - - case 'wm/year': - case 'year': - case 'date': - $thisfile_asf_comments['year'] = array( $this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'wm/lyrics': - case 'lyrics': - $thisfile_asf_comments['lyrics'] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - break; - - case 'isvbr': - if ($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']) { - $thisfile_audio['bitrate_mode'] = 'vbr'; - $thisfile_video['bitrate_mode'] = 'vbr'; - } - break; - - case 'id3': - // id3v2 module might not be loaded - if (class_exists('getid3_id3v2')) { - $tempfile = tempnam(GETID3_TEMP_DIR, 'getID3'); - $tempfilehandle = fopen($tempfile, 'wb'); - $tempThisfileInfo = array('encoding'=>$info['encoding']); - fwrite($tempfilehandle, $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - fclose($tempfilehandle); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($tempfile); - $getid3_id3v2 = new getid3_id3v2($getid3_temp); - $getid3_id3v2->Analyze(); - $info['id3v2'] = $getid3_temp->info['id3v2']; - unset($getid3_temp, $getid3_id3v2); - - unlink($tempfile); - } - break; - - case 'wm/encodingtime': - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['encoding_time_unix'] = $this->FILETIMEtoUNIXtime($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - $thisfile_asf_comments['encoding_time_unix'] = array($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['encoding_time_unix']); - break; - - case 'wm/picture': - $WMpicture = $this->ASF_WMpicture($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - foreach ($WMpicture as $key => $value) { - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current[$key] = $value; - } - unset($WMpicture); -/* - $wm_picture_offset = 0; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_type_id'] = getid3_lib::LittleEndian2Int(substr($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'], $wm_picture_offset, 1)); - $wm_picture_offset += 1; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_type'] = $this->WMpictureTypeLookup($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_type_id']); - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_size'] = getid3_lib::LittleEndian2Int(substr($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'], $wm_picture_offset, 4)); - $wm_picture_offset += 4; - - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_mime'] = ''; - do { - $next_byte_pair = substr($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'], $wm_picture_offset, 2); - $wm_picture_offset += 2; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_mime'] .= $next_byte_pair; - } while ($next_byte_pair !== "\x00\x00"); - - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_description'] = ''; - do { - $next_byte_pair = substr($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'], $wm_picture_offset, 2); - $wm_picture_offset += 2; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_description'] .= $next_byte_pair; - } while ($next_byte_pair !== "\x00\x00"); - - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['dataoffset'] = $wm_picture_offset; - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['data'] = substr($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'], $wm_picture_offset); - unset($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value']); - - $imageinfo = array(); - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_mime'] = ''; - $imagechunkcheck = getid3_lib::GetDataImageSize($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['data'], $imageinfo); - unset($imageinfo); - if (!empty($imagechunkcheck)) { - $thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_mime'] = image_type_to_mime_type($imagechunkcheck[2]); - } - if (!isset($thisfile_asf_comments['picture'])) { - $thisfile_asf_comments['picture'] = array(); - } - $thisfile_asf_comments['picture'][] = array('data'=>$thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['data'], 'image_mime'=>$thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['image_mime']); -*/ - break; - - default: - switch ($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value_type']) { - case 0: // Unicode string - if (substr($this->TrimConvert($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name']), 0, 3) == 'WM/') { - $thisfile_asf_comments[str_replace('wm/', '', strtolower($this->TrimConvert($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['name'])))] = array($this->TrimTerm($thisfile_asf_extendedcontentdescriptionobject_contentdescriptor_current['value'])); - } - break; - - case 1: - break; - } - break; - } - - } - break; - - case GETID3_ASF_Stream_Bitrate_Properties_Object: - // Stream Bitrate Properties Object: (optional, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Stream Bitrate Properties object - GETID3_ASF_Stream_Bitrate_Properties_Object - // Object Size QWORD 64 // size of Extended Content Description object, including 26 bytes of Stream Bitrate Properties Object header - // Bitrate Records Count WORD 16 // number of records in Bitrate Records - // Bitrate Records array of: variable // - // * Flags WORD 16 // - // * * Stream Number bits 7 (0x007F) // number of this stream - // * * Reserved bits 9 (0xFF80) // hardcoded: 0 - // * Average Bitrate DWORD 32 // in bits per second - - // shortcut - $thisfile_asf['stream_bitrate_properties_object'] = array(); - $thisfile_asf_streambitratepropertiesobject = &$thisfile_asf['stream_bitrate_properties_object']; - - $thisfile_asf_streambitratepropertiesobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_streambitratepropertiesobject['objectid'] = $NextObjectGUID; - $thisfile_asf_streambitratepropertiesobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_streambitratepropertiesobject['objectsize'] = $NextObjectSize; - $thisfile_asf_streambitratepropertiesobject['bitrate_records_count'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - for ($BitrateRecordsCounter = 0; $BitrateRecordsCounter < $thisfile_asf_streambitratepropertiesobject['bitrate_records_count']; $BitrateRecordsCounter++) { - $thisfile_asf_streambitratepropertiesobject['bitrate_records'][$BitrateRecordsCounter]['flags_raw'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 2)); - $offset += 2; - $thisfile_asf_streambitratepropertiesobject['bitrate_records'][$BitrateRecordsCounter]['flags']['stream_number'] = $thisfile_asf_streambitratepropertiesobject['bitrate_records'][$BitrateRecordsCounter]['flags_raw'] & 0x007F; - $thisfile_asf_streambitratepropertiesobject['bitrate_records'][$BitrateRecordsCounter]['bitrate'] = getid3_lib::LittleEndian2Int(substr($ASFHeaderData, $offset, 4)); - $offset += 4; - } - break; - - case GETID3_ASF_Padding_Object: - // Padding Object: (optional) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Padding object - GETID3_ASF_Padding_Object - // Object Size QWORD 64 // size of Padding object, including 24 bytes of ASF Padding Object header - // Padding Data BYTESTREAM variable // ignore - - // shortcut - $thisfile_asf['padding_object'] = array(); - $thisfile_asf_paddingobject = &$thisfile_asf['padding_object']; - - $thisfile_asf_paddingobject['offset'] = $NextObjectOffset + $offset; - $thisfile_asf_paddingobject['objectid'] = $NextObjectGUID; - $thisfile_asf_paddingobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_paddingobject['objectsize'] = $NextObjectSize; - $thisfile_asf_paddingobject['padding_length'] = $thisfile_asf_paddingobject['objectsize'] - 16 - 8; - $thisfile_asf_paddingobject['padding'] = substr($ASFHeaderData, $offset, $thisfile_asf_paddingobject['padding_length']); - $offset += ($NextObjectSize - 16 - 8); - break; - - case GETID3_ASF_Extended_Content_Encryption_Object: - case GETID3_ASF_Content_Encryption_Object: - // WMA DRM - just ignore - $offset += ($NextObjectSize - 16 - 8); - break; - - default: - // Implementations shall ignore any standard or non-standard object that they do not know how to handle. - if ($this->GUIDname($NextObjectGUIDtext)) { - $info['warning'][] = 'unhandled GUID "'.$this->GUIDname($NextObjectGUIDtext).'" {'.$NextObjectGUIDtext.'} in ASF header at offset '.($offset - 16 - 8); - } else { - $info['warning'][] = 'unknown GUID {'.$NextObjectGUIDtext.'} in ASF header at offset '.($offset - 16 - 8); - } - $offset += ($NextObjectSize - 16 - 8); - break; - } - } - if (isset($thisfile_asf_streambitrateproperties['bitrate_records_count'])) { - $ASFbitrateAudio = 0; - $ASFbitrateVideo = 0; - for ($BitrateRecordsCounter = 0; $BitrateRecordsCounter < $thisfile_asf_streambitrateproperties['bitrate_records_count']; $BitrateRecordsCounter++) { - if (isset($thisfile_asf_codeclistobject['codec_entries'][$BitrateRecordsCounter])) { - switch ($thisfile_asf_codeclistobject['codec_entries'][$BitrateRecordsCounter]['type_raw']) { - case 1: - $ASFbitrateVideo += $thisfile_asf_streambitrateproperties['bitrate_records'][$BitrateRecordsCounter]['bitrate']; - break; - - case 2: - $ASFbitrateAudio += $thisfile_asf_streambitrateproperties['bitrate_records'][$BitrateRecordsCounter]['bitrate']; - break; - - default: - // do nothing - break; - } - } - } - if ($ASFbitrateAudio > 0) { - $thisfile_audio['bitrate'] = $ASFbitrateAudio; - } - if ($ASFbitrateVideo > 0) { - $thisfile_video['bitrate'] = $ASFbitrateVideo; - } - } - if (isset($thisfile_asf['stream_properties_object']) && is_array($thisfile_asf['stream_properties_object'])) { - - $thisfile_audio['bitrate'] = 0; - $thisfile_video['bitrate'] = 0; - - foreach ($thisfile_asf['stream_properties_object'] as $streamnumber => $streamdata) { - - switch ($streamdata['stream_type']) { - case GETID3_ASF_Audio_Media: - // Field Name Field Type Size (bits) - // Codec ID / Format Tag WORD 16 // unique ID of audio codec - defined as wFormatTag field of WAVEFORMATEX structure - // Number of Channels WORD 16 // number of channels of audio - defined as nChannels field of WAVEFORMATEX structure - // Samples Per Second DWORD 32 // in Hertz - defined as nSamplesPerSec field of WAVEFORMATEX structure - // Average number of Bytes/sec DWORD 32 // bytes/sec of audio stream - defined as nAvgBytesPerSec field of WAVEFORMATEX structure - // Block Alignment WORD 16 // block size in bytes of audio codec - defined as nBlockAlign field of WAVEFORMATEX structure - // Bits per sample WORD 16 // bits per sample of mono data. set to zero for variable bitrate codecs. defined as wBitsPerSample field of WAVEFORMATEX structure - // Codec Specific Data Size WORD 16 // size in bytes of Codec Specific Data buffer - defined as cbSize field of WAVEFORMATEX structure - // Codec Specific Data BYTESTREAM variable // array of codec-specific data bytes - - // shortcut - $thisfile_asf['audio_media'][$streamnumber] = array(); - $thisfile_asf_audiomedia_currentstream = &$thisfile_asf['audio_media'][$streamnumber]; - - $audiomediaoffset = 0; - - $thisfile_asf_audiomedia_currentstream = getid3_riff::parseWAVEFORMATex(substr($streamdata['type_specific_data'], $audiomediaoffset, 16)); - $audiomediaoffset += 16; - - $thisfile_audio['lossless'] = false; - switch ($thisfile_asf_audiomedia_currentstream['raw']['wFormatTag']) { - case 0x0001: // PCM - case 0x0163: // WMA9 Lossless - $thisfile_audio['lossless'] = true; - break; - } - - if (!empty($thisfile_asf['stream_bitrate_properties_object']['bitrate_records'])) { - foreach ($thisfile_asf['stream_bitrate_properties_object']['bitrate_records'] as $dummy => $dataarray) { - if (isset($dataarray['flags']['stream_number']) && ($dataarray['flags']['stream_number'] == $streamnumber)) { - $thisfile_asf_audiomedia_currentstream['bitrate'] = $dataarray['bitrate']; - $thisfile_audio['bitrate'] += $dataarray['bitrate']; - break; - } - } - } else { - if (!empty($thisfile_asf_audiomedia_currentstream['bytes_sec'])) { - $thisfile_audio['bitrate'] += $thisfile_asf_audiomedia_currentstream['bytes_sec'] * 8; - } elseif (!empty($thisfile_asf_audiomedia_currentstream['bitrate'])) { - $thisfile_audio['bitrate'] += $thisfile_asf_audiomedia_currentstream['bitrate']; - } - } - $thisfile_audio['streams'][$streamnumber] = $thisfile_asf_audiomedia_currentstream; - $thisfile_audio['streams'][$streamnumber]['wformattag'] = $thisfile_asf_audiomedia_currentstream['raw']['wFormatTag']; - $thisfile_audio['streams'][$streamnumber]['lossless'] = $thisfile_audio['lossless']; - $thisfile_audio['streams'][$streamnumber]['bitrate'] = $thisfile_audio['bitrate']; - $thisfile_audio['streams'][$streamnumber]['dataformat'] = 'wma'; - unset($thisfile_audio['streams'][$streamnumber]['raw']); - - $thisfile_asf_audiomedia_currentstream['codec_data_size'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $audiomediaoffset, 2)); - $audiomediaoffset += 2; - $thisfile_asf_audiomedia_currentstream['codec_data'] = substr($streamdata['type_specific_data'], $audiomediaoffset, $thisfile_asf_audiomedia_currentstream['codec_data_size']); - $audiomediaoffset += $thisfile_asf_audiomedia_currentstream['codec_data_size']; - - break; - - case GETID3_ASF_Video_Media: - // Field Name Field Type Size (bits) - // Encoded Image Width DWORD 32 // width of image in pixels - // Encoded Image Height DWORD 32 // height of image in pixels - // Reserved Flags BYTE 8 // hardcoded: 0x02 - // Format Data Size WORD 16 // size of Format Data field in bytes - // Format Data array of: variable // - // * Format Data Size DWORD 32 // number of bytes in Format Data field, in bytes - defined as biSize field of BITMAPINFOHEADER structure - // * Image Width LONG 32 // width of encoded image in pixels - defined as biWidth field of BITMAPINFOHEADER structure - // * Image Height LONG 32 // height of encoded image in pixels - defined as biHeight field of BITMAPINFOHEADER structure - // * Reserved WORD 16 // hardcoded: 0x0001 - defined as biPlanes field of BITMAPINFOHEADER structure - // * Bits Per Pixel Count WORD 16 // bits per pixel - defined as biBitCount field of BITMAPINFOHEADER structure - // * Compression ID FOURCC 32 // fourcc of video codec - defined as biCompression field of BITMAPINFOHEADER structure - // * Image Size DWORD 32 // image size in bytes - defined as biSizeImage field of BITMAPINFOHEADER structure - // * Horizontal Pixels / Meter DWORD 32 // horizontal resolution of target device in pixels per meter - defined as biXPelsPerMeter field of BITMAPINFOHEADER structure - // * Vertical Pixels / Meter DWORD 32 // vertical resolution of target device in pixels per meter - defined as biYPelsPerMeter field of BITMAPINFOHEADER structure - // * Colors Used Count DWORD 32 // number of color indexes in the color table that are actually used - defined as biClrUsed field of BITMAPINFOHEADER structure - // * Important Colors Count DWORD 32 // number of color index required for displaying bitmap. if zero, all colors are required. defined as biClrImportant field of BITMAPINFOHEADER structure - // * Codec Specific Data BYTESTREAM variable // array of codec-specific data bytes - - // shortcut - $thisfile_asf['video_media'][$streamnumber] = array(); - $thisfile_asf_videomedia_currentstream = &$thisfile_asf['video_media'][$streamnumber]; - - $videomediaoffset = 0; - $thisfile_asf_videomedia_currentstream['image_width'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['image_height'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['flags'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 1)); - $videomediaoffset += 1; - $thisfile_asf_videomedia_currentstream['format_data_size'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 2)); - $videomediaoffset += 2; - $thisfile_asf_videomedia_currentstream['format_data']['format_data_size'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['image_width'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['image_height'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['reserved'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 2)); - $videomediaoffset += 2; - $thisfile_asf_videomedia_currentstream['format_data']['bits_per_pixel'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 2)); - $videomediaoffset += 2; - $thisfile_asf_videomedia_currentstream['format_data']['codec_fourcc'] = substr($streamdata['type_specific_data'], $videomediaoffset, 4); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['image_size'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['horizontal_pels'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['vertical_pels'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['colors_used'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['colors_important'] = getid3_lib::LittleEndian2Int(substr($streamdata['type_specific_data'], $videomediaoffset, 4)); - $videomediaoffset += 4; - $thisfile_asf_videomedia_currentstream['format_data']['codec_data'] = substr($streamdata['type_specific_data'], $videomediaoffset); - - if (!empty($thisfile_asf['stream_bitrate_properties_object']['bitrate_records'])) { - foreach ($thisfile_asf['stream_bitrate_properties_object']['bitrate_records'] as $dummy => $dataarray) { - if (isset($dataarray['flags']['stream_number']) && ($dataarray['flags']['stream_number'] == $streamnumber)) { - $thisfile_asf_videomedia_currentstream['bitrate'] = $dataarray['bitrate']; - $thisfile_video['streams'][$streamnumber]['bitrate'] = $dataarray['bitrate']; - $thisfile_video['bitrate'] += $dataarray['bitrate']; - break; - } - } - } - - $thisfile_asf_videomedia_currentstream['format_data']['codec'] = getid3_riff::fourccLookup($thisfile_asf_videomedia_currentstream['format_data']['codec_fourcc']); - - $thisfile_video['streams'][$streamnumber]['fourcc'] = $thisfile_asf_videomedia_currentstream['format_data']['codec_fourcc']; - $thisfile_video['streams'][$streamnumber]['codec'] = $thisfile_asf_videomedia_currentstream['format_data']['codec']; - $thisfile_video['streams'][$streamnumber]['resolution_x'] = $thisfile_asf_videomedia_currentstream['image_width']; - $thisfile_video['streams'][$streamnumber]['resolution_y'] = $thisfile_asf_videomedia_currentstream['image_height']; - $thisfile_video['streams'][$streamnumber]['bits_per_sample'] = $thisfile_asf_videomedia_currentstream['format_data']['bits_per_pixel']; - break; - - default: - break; - } - } - } - - while (ftell($this->getid3->fp) < $info['avdataend']) { - $NextObjectDataHeader = fread($this->getid3->fp, 24); - $offset = 0; - $NextObjectGUID = substr($NextObjectDataHeader, 0, 16); - $offset += 16; - $NextObjectGUIDtext = $this->BytestringToGUID($NextObjectGUID); - $NextObjectSize = getid3_lib::LittleEndian2Int(substr($NextObjectDataHeader, $offset, 8)); - $offset += 8; - - switch ($NextObjectGUID) { - case GETID3_ASF_Data_Object: - // Data Object: (mandatory, one only) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Data object - GETID3_ASF_Data_Object - // Object Size QWORD 64 // size of Data object, including 50 bytes of Data Object header. may be 0 if FilePropertiesObject.BroadcastFlag == 1 - // File ID GUID 128 // unique identifier. identical to File ID field in Header Object - // Total Data Packets QWORD 64 // number of Data Packet entries in Data Object. invalid if FilePropertiesObject.BroadcastFlag == 1 - // Reserved WORD 16 // hardcoded: 0x0101 - - // shortcut - $thisfile_asf['data_object'] = array(); - $thisfile_asf_dataobject = &$thisfile_asf['data_object']; - - $DataObjectData = $NextObjectDataHeader.fread($this->getid3->fp, 50 - 24); - $offset = 24; - - $thisfile_asf_dataobject['objectid'] = $NextObjectGUID; - $thisfile_asf_dataobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_dataobject['objectsize'] = $NextObjectSize; - - $thisfile_asf_dataobject['fileid'] = substr($DataObjectData, $offset, 16); - $offset += 16; - $thisfile_asf_dataobject['fileid_guid'] = $this->BytestringToGUID($thisfile_asf_dataobject['fileid']); - $thisfile_asf_dataobject['total_data_packets'] = getid3_lib::LittleEndian2Int(substr($DataObjectData, $offset, 8)); - $offset += 8; - $thisfile_asf_dataobject['reserved'] = getid3_lib::LittleEndian2Int(substr($DataObjectData, $offset, 2)); - $offset += 2; - if ($thisfile_asf_dataobject['reserved'] != 0x0101) { - $info['warning'][] = 'data_object.reserved ('.getid3_lib::PrintHexBytes($thisfile_asf_dataobject['reserved']).') does not match expected value of "0x0101"'; - //return false; - break; - } - - // Data Packets array of: variable // - // * Error Correction Flags BYTE 8 // - // * * Error Correction Data Length bits 4 // if Error Correction Length Type == 00, size of Error Correction Data in bytes, else hardcoded: 0000 - // * * Opaque Data Present bits 1 // - // * * Error Correction Length Type bits 2 // number of bits for size of the error correction data. hardcoded: 00 - // * * Error Correction Present bits 1 // If set, use Opaque Data Packet structure, else use Payload structure - // * Error Correction Data - - $info['avdataoffset'] = ftell($this->getid3->fp); - fseek($this->getid3->fp, ($thisfile_asf_dataobject['objectsize'] - 50), SEEK_CUR); // skip actual audio/video data - $info['avdataend'] = ftell($this->getid3->fp); - break; - - case GETID3_ASF_Simple_Index_Object: - // Simple Index Object: (optional, recommended, one per video stream) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for Simple Index object - GETID3_ASF_Data_Object - // Object Size QWORD 64 // size of Simple Index object, including 56 bytes of Simple Index Object header - // File ID GUID 128 // unique identifier. may be zero or identical to File ID field in Data Object and Header Object - // Index Entry Time Interval QWORD 64 // interval between index entries in 100-nanosecond units - // Maximum Packet Count DWORD 32 // maximum packet count for all index entries - // Index Entries Count DWORD 32 // number of Index Entries structures - // Index Entries array of: variable // - // * Packet Number DWORD 32 // number of the Data Packet associated with this index entry - // * Packet Count WORD 16 // number of Data Packets to sent at this index entry - - // shortcut - $thisfile_asf['simple_index_object'] = array(); - $thisfile_asf_simpleindexobject = &$thisfile_asf['simple_index_object']; - - $SimpleIndexObjectData = $NextObjectDataHeader.fread($this->getid3->fp, 56 - 24); - $offset = 24; - - $thisfile_asf_simpleindexobject['objectid'] = $NextObjectGUID; - $thisfile_asf_simpleindexobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_simpleindexobject['objectsize'] = $NextObjectSize; - - $thisfile_asf_simpleindexobject['fileid'] = substr($SimpleIndexObjectData, $offset, 16); - $offset += 16; - $thisfile_asf_simpleindexobject['fileid_guid'] = $this->BytestringToGUID($thisfile_asf_simpleindexobject['fileid']); - $thisfile_asf_simpleindexobject['index_entry_time_interval'] = getid3_lib::LittleEndian2Int(substr($SimpleIndexObjectData, $offset, 8)); - $offset += 8; - $thisfile_asf_simpleindexobject['maximum_packet_count'] = getid3_lib::LittleEndian2Int(substr($SimpleIndexObjectData, $offset, 4)); - $offset += 4; - $thisfile_asf_simpleindexobject['index_entries_count'] = getid3_lib::LittleEndian2Int(substr($SimpleIndexObjectData, $offset, 4)); - $offset += 4; - - $IndexEntriesData = $SimpleIndexObjectData.fread($this->getid3->fp, 6 * $thisfile_asf_simpleindexobject['index_entries_count']); - for ($IndexEntriesCounter = 0; $IndexEntriesCounter < $thisfile_asf_simpleindexobject['index_entries_count']; $IndexEntriesCounter++) { - $thisfile_asf_simpleindexobject['index_entries'][$IndexEntriesCounter]['packet_number'] = getid3_lib::LittleEndian2Int(substr($IndexEntriesData, $offset, 4)); - $offset += 4; - $thisfile_asf_simpleindexobject['index_entries'][$IndexEntriesCounter]['packet_count'] = getid3_lib::LittleEndian2Int(substr($IndexEntriesData, $offset, 4)); - $offset += 2; - } - - break; - - case GETID3_ASF_Index_Object: - // 6.2 ASF top-level Index Object (optional but recommended when appropriate, 0 or 1) - // Field Name Field Type Size (bits) - // Object ID GUID 128 // GUID for the Index Object - GETID3_ASF_Index_Object - // Object Size QWORD 64 // Specifies the size, in bytes, of the Index Object, including at least 34 bytes of Index Object header - // Index Entry Time Interval DWORD 32 // Specifies the time interval between each index entry in ms. - // Index Specifiers Count WORD 16 // Specifies the number of Index Specifiers structures in this Index Object. - // Index Blocks Count DWORD 32 // Specifies the number of Index Blocks structures in this Index Object. - - // Index Entry Time Interval DWORD 32 // Specifies the time interval between index entries in milliseconds. This value cannot be 0. - // Index Specifiers Count WORD 16 // Specifies the number of entries in the Index Specifiers list. Valid values are 1 and greater. - // Index Specifiers array of: varies // - // * Stream Number WORD 16 // Specifies the stream number that the Index Specifiers refer to. Valid values are between 1 and 127. - // * Index Type WORD 16 // Specifies Index Type values as follows: - // 1 = Nearest Past Data Packet - indexes point to the data packet whose presentation time is closest to the index entry time. - // 2 = Nearest Past Media Object - indexes point to the closest data packet containing an entire object or first fragment of an object. - // 3 = Nearest Past Cleanpoint. - indexes point to the closest data packet containing an entire object (or first fragment of an object) that has the Cleanpoint Flag set. - // Nearest Past Cleanpoint is the most common type of index. - // Index Entry Count DWORD 32 // Specifies the number of Index Entries in the block. - // * Block Positions QWORD varies // Specifies a list of byte offsets of the beginnings of the blocks relative to the beginning of the first Data Packet (i.e., the beginning of the Data Object + 50 bytes). The number of entries in this list is specified by the value of the Index Specifiers Count field. The order of those byte offsets is tied to the order in which Index Specifiers are listed. - // * Index Entries array of: varies // - // * * Offsets DWORD varies // An offset value of 0xffffffff indicates an invalid offset value - - // shortcut - $thisfile_asf['asf_index_object'] = array(); - $thisfile_asf_asfindexobject = &$thisfile_asf['asf_index_object']; - - $ASFIndexObjectData = $NextObjectDataHeader.fread($this->getid3->fp, 34 - 24); - $offset = 24; - - $thisfile_asf_asfindexobject['objectid'] = $NextObjectGUID; - $thisfile_asf_asfindexobject['objectid_guid'] = $NextObjectGUIDtext; - $thisfile_asf_asfindexobject['objectsize'] = $NextObjectSize; - - $thisfile_asf_asfindexobject['entry_time_interval'] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 4)); - $offset += 4; - $thisfile_asf_asfindexobject['index_specifiers_count'] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 2)); - $offset += 2; - $thisfile_asf_asfindexobject['index_blocks_count'] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 4)); - $offset += 4; - - $ASFIndexObjectData .= fread($this->getid3->fp, 4 * $thisfile_asf_asfindexobject['index_specifiers_count']); - for ($IndexSpecifiersCounter = 0; $IndexSpecifiersCounter < $thisfile_asf_asfindexobject['index_specifiers_count']; $IndexSpecifiersCounter++) { - $IndexSpecifierStreamNumber = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 2)); - $offset += 2; - $thisfile_asf_asfindexobject['index_specifiers'][$IndexSpecifiersCounter]['stream_number'] = $IndexSpecifierStreamNumber; - $thisfile_asf_asfindexobject['index_specifiers'][$IndexSpecifiersCounter]['index_type'] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 2)); - $offset += 2; - $thisfile_asf_asfindexobject['index_specifiers'][$IndexSpecifiersCounter]['index_type_text'] = $this->ASFIndexObjectIndexTypeLookup($thisfile_asf_asfindexobject['index_specifiers'][$IndexSpecifiersCounter]['index_type']); - } - - $ASFIndexObjectData .= fread($this->getid3->fp, 4); - $thisfile_asf_asfindexobject['index_entry_count'] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 4)); - $offset += 4; - - $ASFIndexObjectData .= fread($this->getid3->fp, 8 * $thisfile_asf_asfindexobject['index_specifiers_count']); - for ($IndexSpecifiersCounter = 0; $IndexSpecifiersCounter < $thisfile_asf_asfindexobject['index_specifiers_count']; $IndexSpecifiersCounter++) { - $thisfile_asf_asfindexobject['block_positions'][$IndexSpecifiersCounter] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 8)); - $offset += 8; - } - - $ASFIndexObjectData .= fread($this->getid3->fp, 4 * $thisfile_asf_asfindexobject['index_specifiers_count'] * $thisfile_asf_asfindexobject['index_entry_count']); - for ($IndexEntryCounter = 0; $IndexEntryCounter < $thisfile_asf_asfindexobject['index_entry_count']; $IndexEntryCounter++) { - for ($IndexSpecifiersCounter = 0; $IndexSpecifiersCounter < $thisfile_asf_asfindexobject['index_specifiers_count']; $IndexSpecifiersCounter++) { - $thisfile_asf_asfindexobject['offsets'][$IndexSpecifiersCounter][$IndexEntryCounter] = getid3_lib::LittleEndian2Int(substr($ASFIndexObjectData, $offset, 4)); - $offset += 4; - } - } - break; - - - default: - // Implementations shall ignore any standard or non-standard object that they do not know how to handle. - if ($this->GUIDname($NextObjectGUIDtext)) { - $info['warning'][] = 'unhandled GUID "'.$this->GUIDname($NextObjectGUIDtext).'" {'.$NextObjectGUIDtext.'} in ASF body at offset '.($offset - 16 - 8); - } else { - $info['warning'][] = 'unknown GUID {'.$NextObjectGUIDtext.'} in ASF body at offset '.(ftell($this->getid3->fp) - 16 - 8); - } - fseek($this->getid3->fp, ($NextObjectSize - 16 - 8), SEEK_CUR); - break; - } - } - - if (isset($thisfile_asf_codeclistobject['codec_entries']) && is_array($thisfile_asf_codeclistobject['codec_entries'])) { - foreach ($thisfile_asf_codeclistobject['codec_entries'] as $streamnumber => $streamdata) { - switch ($streamdata['information']) { - case 'WMV1': - case 'WMV2': - case 'WMV3': - case 'MSS1': - case 'MSS2': - case 'WMVA': - case 'WVC1': - case 'WMVP': - case 'WVP2': - $thisfile_video['dataformat'] = 'wmv'; - $info['mime_type'] = 'video/x-ms-wmv'; - break; - - case 'MP42': - case 'MP43': - case 'MP4S': - case 'mp4s': - $thisfile_video['dataformat'] = 'asf'; - $info['mime_type'] = 'video/x-ms-asf'; - break; - - default: - switch ($streamdata['type_raw']) { - case 1: - if (strstr($this->TrimConvert($streamdata['name']), 'Windows Media')) { - $thisfile_video['dataformat'] = 'wmv'; - if ($info['mime_type'] == 'video/x-ms-asf') { - $info['mime_type'] = 'video/x-ms-wmv'; - } - } - break; - - case 2: - if (strstr($this->TrimConvert($streamdata['name']), 'Windows Media')) { - $thisfile_audio['dataformat'] = 'wma'; - if ($info['mime_type'] == 'video/x-ms-asf') { - $info['mime_type'] = 'audio/x-ms-wma'; - } - } - break; - - } - break; - } - } - } - - switch (isset($thisfile_audio['codec']) ? $thisfile_audio['codec'] : '') { - case 'MPEG Layer-3': - $thisfile_audio['dataformat'] = 'mp3'; - break; - - default: - break; - } - - if (isset($thisfile_asf_codeclistobject['codec_entries'])) { - foreach ($thisfile_asf_codeclistobject['codec_entries'] as $streamnumber => $streamdata) { - switch ($streamdata['type_raw']) { - - case 1: // video - $thisfile_video['encoder'] = $this->TrimConvert($thisfile_asf_codeclistobject['codec_entries'][$streamnumber]['name']); - break; - - case 2: // audio - $thisfile_audio['encoder'] = $this->TrimConvert($thisfile_asf_codeclistobject['codec_entries'][$streamnumber]['name']); - - // AH 2003-10-01 - $thisfile_audio['encoder_options'] = $this->TrimConvert($thisfile_asf_codeclistobject['codec_entries'][0]['description']); - - $thisfile_audio['codec'] = $thisfile_audio['encoder']; - break; - - default: - $info['warning'][] = 'Unknown streamtype: [codec_list_object][codec_entries]['.$streamnumber.'][type_raw] == '.$streamdata['type_raw']; - break; - - } - } - } - - if (isset($info['audio'])) { - $thisfile_audio['lossless'] = (isset($thisfile_audio['lossless']) ? $thisfile_audio['lossless'] : false); - $thisfile_audio['dataformat'] = (!empty($thisfile_audio['dataformat']) ? $thisfile_audio['dataformat'] : 'asf'); - } - if (!empty($thisfile_video['dataformat'])) { - $thisfile_video['lossless'] = (isset($thisfile_audio['lossless']) ? $thisfile_audio['lossless'] : false); - $thisfile_video['pixel_aspect_ratio'] = (isset($thisfile_audio['pixel_aspect_ratio']) ? $thisfile_audio['pixel_aspect_ratio'] : (float) 1); - $thisfile_video['dataformat'] = (!empty($thisfile_video['dataformat']) ? $thisfile_video['dataformat'] : 'asf'); - } - if (!empty($thisfile_video['streams'])) { - $thisfile_video['streams']['resolution_x'] = 0; - $thisfile_video['streams']['resolution_y'] = 0; - foreach ($thisfile_video['streams'] as $key => $valuearray) { - if (($valuearray['resolution_x'] > $thisfile_video['streams']['resolution_x']) || ($valuearray['resolution_y'] > $thisfile_video['streams']['resolution_y'])) { - $thisfile_video['resolution_x'] = $valuearray['resolution_x']; - $thisfile_video['resolution_y'] = $valuearray['resolution_y']; - } - } - } - $info['bitrate'] = (isset($thisfile_audio['bitrate']) ? $thisfile_audio['bitrate'] : 0) + (isset($thisfile_video['bitrate']) ? $thisfile_video['bitrate'] : 0); - - if ((!isset($info['playtime_seconds']) || ($info['playtime_seconds'] <= 0)) && ($info['bitrate'] > 0)) { - $info['playtime_seconds'] = ($info['filesize'] - $info['avdataoffset']) / ($info['bitrate'] / 8); - } - - return true; - } - - public static function ASFCodecListObjectTypeLookup($CodecListType) { - static $ASFCodecListObjectTypeLookup = array(); - if (empty($ASFCodecListObjectTypeLookup)) { - $ASFCodecListObjectTypeLookup[0x0001] = 'Video Codec'; - $ASFCodecListObjectTypeLookup[0x0002] = 'Audio Codec'; - $ASFCodecListObjectTypeLookup[0xFFFF] = 'Unknown Codec'; - } - - return (isset($ASFCodecListObjectTypeLookup[$CodecListType]) ? $ASFCodecListObjectTypeLookup[$CodecListType] : 'Invalid Codec Type'); - } - - public static function KnownGUIDs() { - static $GUIDarray = array( - 'GETID3_ASF_Extended_Stream_Properties_Object' => '14E6A5CB-C672-4332-8399-A96952065B5A', - 'GETID3_ASF_Padding_Object' => '1806D474-CADF-4509-A4BA-9AABCB96AAE8', - 'GETID3_ASF_Payload_Ext_Syst_Pixel_Aspect_Ratio' => '1B1EE554-F9EA-4BC8-821A-376B74E4C4B8', - 'GETID3_ASF_Script_Command_Object' => '1EFB1A30-0B62-11D0-A39B-00A0C90348F6', - 'GETID3_ASF_No_Error_Correction' => '20FB5700-5B55-11CF-A8FD-00805F5C442B', - 'GETID3_ASF_Content_Branding_Object' => '2211B3FA-BD23-11D2-B4B7-00A0C955FC6E', - 'GETID3_ASF_Content_Encryption_Object' => '2211B3FB-BD23-11D2-B4B7-00A0C955FC6E', - 'GETID3_ASF_Digital_Signature_Object' => '2211B3FC-BD23-11D2-B4B7-00A0C955FC6E', - 'GETID3_ASF_Extended_Content_Encryption_Object' => '298AE614-2622-4C17-B935-DAE07EE9289C', - 'GETID3_ASF_Simple_Index_Object' => '33000890-E5B1-11CF-89F4-00A0C90349CB', - 'GETID3_ASF_Degradable_JPEG_Media' => '35907DE0-E415-11CF-A917-00805F5C442B', - 'GETID3_ASF_Payload_Extension_System_Timecode' => '399595EC-8667-4E2D-8FDB-98814CE76C1E', - 'GETID3_ASF_Binary_Media' => '3AFB65E2-47EF-40F2-AC2C-70A90D71D343', - 'GETID3_ASF_Timecode_Index_Object' => '3CB73FD0-0C4A-4803-953D-EDF7B6228F0C', - 'GETID3_ASF_Metadata_Library_Object' => '44231C94-9498-49D1-A141-1D134E457054', - 'GETID3_ASF_Reserved_3' => '4B1ACBE3-100B-11D0-A39B-00A0C90348F6', - 'GETID3_ASF_Reserved_4' => '4CFEDB20-75F6-11CF-9C0F-00A0C90349CB', - 'GETID3_ASF_Command_Media' => '59DACFC0-59E6-11D0-A3AC-00A0C90348F6', - 'GETID3_ASF_Header_Extension_Object' => '5FBF03B5-A92E-11CF-8EE3-00C00C205365', - 'GETID3_ASF_Media_Object_Index_Parameters_Obj' => '6B203BAD-3F11-4E84-ACA8-D7613DE2CFA7', - 'GETID3_ASF_Header_Object' => '75B22630-668E-11CF-A6D9-00AA0062CE6C', - 'GETID3_ASF_Content_Description_Object' => '75B22633-668E-11CF-A6D9-00AA0062CE6C', - 'GETID3_ASF_Error_Correction_Object' => '75B22635-668E-11CF-A6D9-00AA0062CE6C', - 'GETID3_ASF_Data_Object' => '75B22636-668E-11CF-A6D9-00AA0062CE6C', - 'GETID3_ASF_Web_Stream_Media_Subtype' => '776257D4-C627-41CB-8F81-7AC7FF1C40CC', - 'GETID3_ASF_Stream_Bitrate_Properties_Object' => '7BF875CE-468D-11D1-8D82-006097C9A2B2', - 'GETID3_ASF_Language_List_Object' => '7C4346A9-EFE0-4BFC-B229-393EDE415C85', - 'GETID3_ASF_Codec_List_Object' => '86D15240-311D-11D0-A3A4-00A0C90348F6', - 'GETID3_ASF_Reserved_2' => '86D15241-311D-11D0-A3A4-00A0C90348F6', - 'GETID3_ASF_File_Properties_Object' => '8CABDCA1-A947-11CF-8EE4-00C00C205365', - 'GETID3_ASF_File_Transfer_Media' => '91BD222C-F21C-497A-8B6D-5AA86BFC0185', - 'GETID3_ASF_Old_RTP_Extension_Data' => '96800C63-4C94-11D1-837B-0080C7A37F95', - 'GETID3_ASF_Advanced_Mutual_Exclusion_Object' => 'A08649CF-4775-4670-8A16-6E35357566CD', - 'GETID3_ASF_Bandwidth_Sharing_Object' => 'A69609E6-517B-11D2-B6AF-00C04FD908E9', - 'GETID3_ASF_Reserved_1' => 'ABD3D211-A9BA-11cf-8EE6-00C00C205365', - 'GETID3_ASF_Bandwidth_Sharing_Exclusive' => 'AF6060AA-5197-11D2-B6AF-00C04FD908E9', - 'GETID3_ASF_Bandwidth_Sharing_Partial' => 'AF6060AB-5197-11D2-B6AF-00C04FD908E9', - 'GETID3_ASF_JFIF_Media' => 'B61BE100-5B4E-11CF-A8FD-00805F5C442B', - 'GETID3_ASF_Stream_Properties_Object' => 'B7DC0791-A9B7-11CF-8EE6-00C00C205365', - 'GETID3_ASF_Video_Media' => 'BC19EFC0-5B4D-11CF-A8FD-00805F5C442B', - 'GETID3_ASF_Audio_Spread' => 'BFC3CD50-618F-11CF-8BB2-00AA00B4E220', - 'GETID3_ASF_Metadata_Object' => 'C5F8CBEA-5BAF-4877-8467-AA8C44FA4CCA', - 'GETID3_ASF_Payload_Ext_Syst_Sample_Duration' => 'C6BD9450-867F-4907-83A3-C77921B733AD', - 'GETID3_ASF_Group_Mutual_Exclusion_Object' => 'D1465A40-5A79-4338-B71B-E36B8FD6C249', - 'GETID3_ASF_Extended_Content_Description_Object' => 'D2D0A440-E307-11D2-97F0-00A0C95EA850', - 'GETID3_ASF_Stream_Prioritization_Object' => 'D4FED15B-88D3-454F-81F0-ED5C45999E24', - 'GETID3_ASF_Payload_Ext_System_Content_Type' => 'D590DC20-07BC-436C-9CF7-F3BBFBF1A4DC', - 'GETID3_ASF_Old_File_Properties_Object' => 'D6E229D0-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_ASF_Header_Object' => 'D6E229D1-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_ASF_Data_Object' => 'D6E229D2-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Index_Object' => 'D6E229D3-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Stream_Properties_Object' => 'D6E229D4-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Content_Description_Object' => 'D6E229D5-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Script_Command_Object' => 'D6E229D6-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Marker_Object' => 'D6E229D7-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Component_Download_Object' => 'D6E229D8-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Stream_Group_Object' => 'D6E229D9-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Scalable_Object' => 'D6E229DA-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Prioritization_Object' => 'D6E229DB-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Bitrate_Mutual_Exclusion_Object' => 'D6E229DC-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Inter_Media_Dependency_Object' => 'D6E229DD-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Rating_Object' => 'D6E229DE-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Index_Parameters_Object' => 'D6E229DF-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Color_Table_Object' => 'D6E229E0-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Language_List_Object' => 'D6E229E1-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Audio_Media' => 'D6E229E2-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Video_Media' => 'D6E229E3-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Image_Media' => 'D6E229E4-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Timecode_Media' => 'D6E229E5-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Text_Media' => 'D6E229E6-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_MIDI_Media' => 'D6E229E7-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Command_Media' => 'D6E229E8-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_No_Error_Concealment' => 'D6E229EA-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Scrambled_Audio' => 'D6E229EB-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_No_Color_Table' => 'D6E229EC-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_SMPTE_Time' => 'D6E229ED-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_ASCII_Text' => 'D6E229EE-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Unicode_Text' => 'D6E229EF-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_HTML_Text' => 'D6E229F0-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_URL_Command' => 'D6E229F1-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Filename_Command' => 'D6E229F2-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_ACM_Codec' => 'D6E229F3-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_VCM_Codec' => 'D6E229F4-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_QuickTime_Codec' => 'D6E229F5-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_DirectShow_Transform_Filter' => 'D6E229F6-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_DirectShow_Rendering_Filter' => 'D6E229F7-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_No_Enhancement' => 'D6E229F8-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Unknown_Enhancement_Type' => 'D6E229F9-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Temporal_Enhancement' => 'D6E229FA-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Spatial_Enhancement' => 'D6E229FB-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Quality_Enhancement' => 'D6E229FC-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Number_of_Channels_Enhancement' => 'D6E229FD-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Frequency_Response_Enhancement' => 'D6E229FE-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Media_Object' => 'D6E229FF-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Mutex_Language' => 'D6E22A00-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Mutex_Bitrate' => 'D6E22A01-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Mutex_Unknown' => 'D6E22A02-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_ASF_Placeholder_Object' => 'D6E22A0E-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Old_Data_Unit_Extension_Object' => 'D6E22A0F-35DA-11D1-9034-00A0C90349BE', - 'GETID3_ASF_Web_Stream_Format' => 'DA1E6B13-8359-4050-B398-388E965BF00C', - 'GETID3_ASF_Payload_Ext_System_File_Name' => 'E165EC0E-19ED-45D7-B4A7-25CBD1E28E9B', - 'GETID3_ASF_Marker_Object' => 'F487CD01-A951-11CF-8EE6-00C00C205365', - 'GETID3_ASF_Timecode_Index_Parameters_Object' => 'F55E496D-9797-4B5D-8C8B-604DFE9BFB24', - 'GETID3_ASF_Audio_Media' => 'F8699E40-5B4D-11CF-A8FD-00805F5C442B', - 'GETID3_ASF_Media_Object_Index_Object' => 'FEB103F8-12AD-4C64-840F-2A1D2F7AD48C', - 'GETID3_ASF_Alt_Extended_Content_Encryption_Obj' => 'FF889EF1-ADEE-40DA-9E71-98704BB928CE', - 'GETID3_ASF_Index_Placeholder_Object' => 'D9AADE20-7C17-4F9C-BC28-8555DD98E2A2', // http://cpan.uwinnipeg.ca/htdocs/Audio-WMA/Audio/WMA.pm.html - 'GETID3_ASF_Compatibility_Object' => '26F18B5D-4584-47EC-9F5F-0E651F0452C9', // http://cpan.uwinnipeg.ca/htdocs/Audio-WMA/Audio/WMA.pm.html - ); - return $GUIDarray; - } - - public static function GUIDname($GUIDstring) { - static $GUIDarray = array(); - if (empty($GUIDarray)) { - $GUIDarray = self::KnownGUIDs(); - } - return array_search($GUIDstring, $GUIDarray); - } - - public static function ASFIndexObjectIndexTypeLookup($id) { - static $ASFIndexObjectIndexTypeLookup = array(); - if (empty($ASFIndexObjectIndexTypeLookup)) { - $ASFIndexObjectIndexTypeLookup[1] = 'Nearest Past Data Packet'; - $ASFIndexObjectIndexTypeLookup[2] = 'Nearest Past Media Object'; - $ASFIndexObjectIndexTypeLookup[3] = 'Nearest Past Cleanpoint'; - } - return (isset($ASFIndexObjectIndexTypeLookup[$id]) ? $ASFIndexObjectIndexTypeLookup[$id] : 'invalid'); - } - - public static function GUIDtoBytestring($GUIDstring) { - // Microsoft defines these 16-byte (128-bit) GUIDs in the strangest way: - // first 4 bytes are in little-endian order - // next 2 bytes are appended in little-endian order - // next 2 bytes are appended in little-endian order - // next 2 bytes are appended in big-endian order - // next 6 bytes are appended in big-endian order - - // AaBbCcDd-EeFf-GgHh-IiJj-KkLlMmNnOoPp is stored as this 16-byte string: - // $Dd $Cc $Bb $Aa $Ff $Ee $Hh $Gg $Ii $Jj $Kk $Ll $Mm $Nn $Oo $Pp - - $hexbytecharstring = chr(hexdec(substr($GUIDstring, 6, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 4, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 2, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 0, 2))); - - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 11, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 9, 2))); - - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 16, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 14, 2))); - - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 19, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 21, 2))); - - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 24, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 26, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 28, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 30, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 32, 2))); - $hexbytecharstring .= chr(hexdec(substr($GUIDstring, 34, 2))); - - return $hexbytecharstring; - } - - public static function BytestringToGUID($Bytestring) { - $GUIDstring = str_pad(dechex(ord($Bytestring{3})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{2})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{1})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{0})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= '-'; - $GUIDstring .= str_pad(dechex(ord($Bytestring{5})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{4})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= '-'; - $GUIDstring .= str_pad(dechex(ord($Bytestring{7})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{6})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= '-'; - $GUIDstring .= str_pad(dechex(ord($Bytestring{8})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{9})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= '-'; - $GUIDstring .= str_pad(dechex(ord($Bytestring{10})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{11})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{12})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{13})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{14})), 2, '0', STR_PAD_LEFT); - $GUIDstring .= str_pad(dechex(ord($Bytestring{15})), 2, '0', STR_PAD_LEFT); - - return strtoupper($GUIDstring); - } - - public static function FILETIMEtoUNIXtime($FILETIME, $round=true) { - // FILETIME is a 64-bit unsigned integer representing - // the number of 100-nanosecond intervals since January 1, 1601 - // UNIX timestamp is number of seconds since January 1, 1970 - // 116444736000000000 = 10000000 * 60 * 60 * 24 * 365 * 369 + 89 leap days - if ($round) { - return intval(round(($FILETIME - 116444736000000000) / 10000000)); - } - return ($FILETIME - 116444736000000000) / 10000000; - } - - public static function WMpictureTypeLookup($WMpictureType) { - static $WMpictureTypeLookup = array(); - if (empty($WMpictureTypeLookup)) { - $WMpictureTypeLookup[0x03] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Front Cover'); - $WMpictureTypeLookup[0x04] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Back Cover'); - $WMpictureTypeLookup[0x00] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'User Defined'); - $WMpictureTypeLookup[0x05] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Leaflet Page'); - $WMpictureTypeLookup[0x06] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Media Label'); - $WMpictureTypeLookup[0x07] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Lead Artist'); - $WMpictureTypeLookup[0x08] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Artist'); - $WMpictureTypeLookup[0x09] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Conductor'); - $WMpictureTypeLookup[0x0A] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Band'); - $WMpictureTypeLookup[0x0B] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Composer'); - $WMpictureTypeLookup[0x0C] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Lyricist'); - $WMpictureTypeLookup[0x0D] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Recording Location'); - $WMpictureTypeLookup[0x0E] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'During Recording'); - $WMpictureTypeLookup[0x0F] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'During Performance'); - $WMpictureTypeLookup[0x10] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Video Screen Capture'); - $WMpictureTypeLookup[0x12] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Illustration'); - $WMpictureTypeLookup[0x13] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Band Logotype'); - $WMpictureTypeLookup[0x14] = getid3_lib::iconv_fallback('ISO-8859-1', 'UTF-16LE', 'Publisher Logotype'); - } - return (isset($WMpictureTypeLookup[$WMpictureType]) ? $WMpictureTypeLookup[$WMpictureType] : ''); - } - - public function ASF_HeaderExtensionObjectDataParse(&$asf_header_extension_object_data, &$unhandled_sections) { - // http://msdn.microsoft.com/en-us/library/bb643323.aspx - - $offset = 0; - $objectOffset = 0; - $HeaderExtensionObjectParsed = array(); - while ($objectOffset < strlen($asf_header_extension_object_data)) { - $offset = $objectOffset; - $thisObject = array(); - - $thisObject['guid'] = substr($asf_header_extension_object_data, $offset, 16); - $offset += 16; - $thisObject['guid_text'] = $this->BytestringToGUID($thisObject['guid']); - $thisObject['guid_name'] = $this->GUIDname($thisObject['guid_text']); - - $thisObject['size'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 8)); - $offset += 8; - if ($thisObject['size'] <= 0) { - break; - } - - switch ($thisObject['guid']) { - case GETID3_ASF_Extended_Stream_Properties_Object: - $thisObject['start_time'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 8)); - $offset += 8; - $thisObject['start_time_unix'] = $this->FILETIMEtoUNIXtime($thisObject['start_time']); - - $thisObject['end_time'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 8)); - $offset += 8; - $thisObject['end_time_unix'] = $this->FILETIMEtoUNIXtime($thisObject['end_time']); - - $thisObject['data_bitrate'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['buffer_size'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['initial_buffer_fullness'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['alternate_data_bitrate'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['alternate_buffer_size'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['alternate_initial_buffer_fullness'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['maximum_object_size'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['flags_raw'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - $thisObject['flags']['reliable'] = (bool) $thisObject['flags_raw'] & 0x00000001; - $thisObject['flags']['seekable'] = (bool) $thisObject['flags_raw'] & 0x00000002; - $thisObject['flags']['no_cleanpoints'] = (bool) $thisObject['flags_raw'] & 0x00000004; - $thisObject['flags']['resend_live_cleanpoints'] = (bool) $thisObject['flags_raw'] & 0x00000008; - - $thisObject['stream_number'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $thisObject['stream_language_id_index'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $thisObject['average_time_per_frame'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $thisObject['stream_name_count'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $thisObject['payload_extension_system_count'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - for ($i = 0; $i < $thisObject['stream_name_count']; $i++) { - $streamName = array(); - - $streamName['language_id_index'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $streamName['stream_name_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $streamName['stream_name'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, $streamName['stream_name_length'])); - $offset += $streamName['stream_name_length']; - - $thisObject['stream_names'][$i] = $streamName; - } - - for ($i = 0; $i < $thisObject['payload_extension_system_count']; $i++) { - $payloadExtensionSystem = array(); - - $payloadExtensionSystem['extension_system_id'] = substr($asf_header_extension_object_data, $offset, 16); - $offset += 16; - $payloadExtensionSystem['extension_system_id_text'] = $this->BytestringToGUID($payloadExtensionSystem['extension_system_id']); - - $payloadExtensionSystem['extension_system_size'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - if ($payloadExtensionSystem['extension_system_size'] <= 0) { - break 2; - } - - $payloadExtensionSystem['extension_system_info_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $payloadExtensionSystem['extension_system_info_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, $payloadExtensionSystem['extension_system_info_length'])); - $offset += $payloadExtensionSystem['extension_system_info_length']; - - $thisObject['payload_extension_systems'][$i] = $payloadExtensionSystem; - } - - break; - - case GETID3_ASF_Padding_Object: - // padding, skip it - break; - - case GETID3_ASF_Metadata_Object: - $thisObject['description_record_counts'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - for ($i = 0; $i < $thisObject['description_record_counts']; $i++) { - $descriptionRecord = array(); - - $descriptionRecord['reserved_1'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); // must be zero - $offset += 2; - - $descriptionRecord['stream_number'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $descriptionRecord['name_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $descriptionRecord['data_type'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - $descriptionRecord['data_type_text'] = $this->ASFmetadataLibraryObjectDataTypeLookup($descriptionRecord['data_type']); - - $descriptionRecord['data_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $descriptionRecord['name'] = substr($asf_header_extension_object_data, $offset, $descriptionRecord['name_length']); - $offset += $descriptionRecord['name_length']; - - $descriptionRecord['data'] = substr($asf_header_extension_object_data, $offset, $descriptionRecord['data_length']); - $offset += $descriptionRecord['data_length']; - switch ($descriptionRecord['data_type']) { - case 0x0000: // Unicode string - break; - - case 0x0001: // BYTE array - // do nothing - break; - - case 0x0002: // BOOL - $descriptionRecord['data'] = (bool) getid3_lib::LittleEndian2Int($descriptionRecord['data']); - break; - - case 0x0003: // DWORD - case 0x0004: // QWORD - case 0x0005: // WORD - $descriptionRecord['data'] = getid3_lib::LittleEndian2Int($descriptionRecord['data']); - break; - - case 0x0006: // GUID - $descriptionRecord['data_text'] = $this->BytestringToGUID($descriptionRecord['data']); - break; - } - - $thisObject['description_record'][$i] = $descriptionRecord; - } - break; - - case GETID3_ASF_Language_List_Object: - $thisObject['language_id_record_counts'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - for ($i = 0; $i < $thisObject['language_id_record_counts']; $i++) { - $languageIDrecord = array(); - - $languageIDrecord['language_id_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 1)); - $offset += 1; - - $languageIDrecord['language_id'] = substr($asf_header_extension_object_data, $offset, $languageIDrecord['language_id_length']); - $offset += $languageIDrecord['language_id_length']; - - $thisObject['language_id_record'][$i] = $languageIDrecord; - } - break; - - case GETID3_ASF_Metadata_Library_Object: - $thisObject['description_records_count'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - for ($i = 0; $i < $thisObject['description_records_count']; $i++) { - $descriptionRecord = array(); - - $descriptionRecord['language_list_index'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $descriptionRecord['stream_number'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $descriptionRecord['name_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - - $descriptionRecord['data_type'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 2)); - $offset += 2; - $descriptionRecord['data_type_text'] = $this->ASFmetadataLibraryObjectDataTypeLookup($descriptionRecord['data_type']); - - $descriptionRecord['data_length'] = getid3_lib::LittleEndian2Int(substr($asf_header_extension_object_data, $offset, 4)); - $offset += 4; - - $descriptionRecord['name'] = substr($asf_header_extension_object_data, $offset, $descriptionRecord['name_length']); - $offset += $descriptionRecord['name_length']; - - $descriptionRecord['data'] = substr($asf_header_extension_object_data, $offset, $descriptionRecord['data_length']); - $offset += $descriptionRecord['data_length']; - - if (preg_match('#^WM/Picture$#', str_replace("\x00", '', trim($descriptionRecord['name'])))) { - $WMpicture = $this->ASF_WMpicture($descriptionRecord['data']); - foreach ($WMpicture as $key => $value) { - $descriptionRecord['data'] = $WMpicture; - } - unset($WMpicture); - } - - $thisObject['description_record'][$i] = $descriptionRecord; - } - break; - - default: - $unhandled_sections++; - if ($this->GUIDname($thisObject['guid_text'])) { - $this->getid3->info['warning'][] = 'unhandled Header Extension Object GUID "'.$this->GUIDname($thisObject['guid_text']).'" {'.$thisObject['guid_text'].'} at offset '.($offset - 16 - 8); - } else { - $this->getid3->info['warning'][] = 'unknown Header Extension Object GUID {'.$thisObject['guid_text'].'} in at offset '.($offset - 16 - 8); - } - break; - } - $HeaderExtensionObjectParsed[] = $thisObject; - - $objectOffset += $thisObject['size']; - } - return $HeaderExtensionObjectParsed; - } - - - public static function ASFmetadataLibraryObjectDataTypeLookup($id) { - static $ASFmetadataLibraryObjectDataTypeLookup = array( - 0x0000 => 'Unicode string', // The data consists of a sequence of Unicode characters - 0x0001 => 'BYTE array', // The type of the data is implementation-specific - 0x0002 => 'BOOL', // The data is 2 bytes long and should be interpreted as a 16-bit unsigned integer. Only 0x0000 or 0x0001 are permitted values - 0x0003 => 'DWORD', // The data is 4 bytes long and should be interpreted as a 32-bit unsigned integer - 0x0004 => 'QWORD', // The data is 8 bytes long and should be interpreted as a 64-bit unsigned integer - 0x0005 => 'WORD', // The data is 2 bytes long and should be interpreted as a 16-bit unsigned integer - 0x0006 => 'GUID', // The data is 16 bytes long and should be interpreted as a 128-bit GUID - ); - return (isset($ASFmetadataLibraryObjectDataTypeLookup[$id]) ? $ASFmetadataLibraryObjectDataTypeLookup[$id] : 'invalid'); - } - - public function ASF_WMpicture(&$data) { - //typedef struct _WMPicture{ - // LPWSTR pwszMIMEType; - // BYTE bPictureType; - // LPWSTR pwszDescription; - // DWORD dwDataLen; - // BYTE* pbData; - //} WM_PICTURE; - - $WMpicture = array(); - - $offset = 0; - $WMpicture['image_type_id'] = getid3_lib::LittleEndian2Int(substr($data, $offset, 1)); - $offset += 1; - $WMpicture['image_type'] = $this->WMpictureTypeLookup($WMpicture['image_type_id']); - $WMpicture['image_size'] = getid3_lib::LittleEndian2Int(substr($data, $offset, 4)); - $offset += 4; - - $WMpicture['image_mime'] = ''; - do { - $next_byte_pair = substr($data, $offset, 2); - $offset += 2; - $WMpicture['image_mime'] .= $next_byte_pair; - } while ($next_byte_pair !== "\x00\x00"); - - $WMpicture['image_description'] = ''; - do { - $next_byte_pair = substr($data, $offset, 2); - $offset += 2; - $WMpicture['image_description'] .= $next_byte_pair; - } while ($next_byte_pair !== "\x00\x00"); - - $WMpicture['dataoffset'] = $offset; - $WMpicture['data'] = substr($data, $offset); - - $imageinfo = array(); - $WMpicture['image_mime'] = ''; - $imagechunkcheck = getid3_lib::GetDataImageSize($WMpicture['data'], $imageinfo); - unset($imageinfo); - if (!empty($imagechunkcheck)) { - $WMpicture['image_mime'] = image_type_to_mime_type($imagechunkcheck[2]); - } - if (!isset($this->getid3->info['asf']['comments']['picture'])) { - $this->getid3->info['asf']['comments']['picture'] = array(); - } - $this->getid3->info['asf']['comments']['picture'][] = array('data'=>$WMpicture['data'], 'image_mime'=>$WMpicture['image_mime']); - - return $WMpicture; - } - - - // Remove terminator 00 00 and convert UTF-16LE to Latin-1 - public static function TrimConvert($string) { - return trim(getid3_lib::iconv_fallback('UTF-16LE', 'ISO-8859-1', self::TrimTerm($string)), ' '); - } - - - // Remove terminator 00 00 - public static function TrimTerm($string) { - // remove terminator, only if present (it should be, but...) - if (substr($string, -2) === "\x00\x00") { - $string = substr($string, 0, -2); - } - return $string; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.bink.php b/web/htdocs/media/lib/getid3/module.audio-video.bink.php deleted file mode 100644 index 192627665f8..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.bink.php +++ /dev/null @@ -1,71 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.bink.php // -// module for analyzing Bink or Smacker audio-video files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_bink extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - -$info['error'][] = 'Bink / Smacker files not properly processed by this version of getID3() ['.$this->getid3->version().']'; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $fileTypeID = fread($this->getid3->fp, 3); - switch ($fileTypeID) { - case 'BIK': - return $this->ParseBink(); - break; - - case 'SMK': - return $this->ParseSmacker(); - break; - - default: - $info['error'][] = 'Expecting "BIK" or "SMK" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($fileTypeID).'"'; - return false; - break; - } - - return true; - - } - - public function ParseBink() { - $info = &$this->getid3->info; - $info['fileformat'] = 'bink'; - $info['video']['dataformat'] = 'bink'; - - $fileData = 'BIK'.fread($this->getid3->fp, 13); - - $info['bink']['data_size'] = getid3_lib::LittleEndian2Int(substr($fileData, 4, 4)); - $info['bink']['frame_count'] = getid3_lib::LittleEndian2Int(substr($fileData, 8, 2)); - - if (($info['avdataend'] - $info['avdataoffset']) != ($info['bink']['data_size'] + 8)) { - $info['error'][] = 'Probably truncated file: expecting '.$info['bink']['data_size'].' bytes, found '.($info['avdataend'] - $info['avdataoffset']); - } - - return true; - } - - public function ParseSmacker() { - $info = &$this->getid3->info; - $info['fileformat'] = 'smacker'; - $info['video']['dataformat'] = 'smacker'; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.flv.php b/web/htdocs/media/lib/getid3/module.audio-video.flv.php deleted file mode 100644 index f9c4cf3ea0b..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.flv.php +++ /dev/null @@ -1,729 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -// // -// FLV module by Seth Kaufman // -// // -// * version 0.1 (26 June 2005) // -// // -// // -// * version 0.1.1 (15 July 2005) // -// minor modifications by James Heinrich // -// // -// * version 0.2 (22 February 2006) // -// Support for On2 VP6 codec and meta information // -// by Steve Webster // -// // -// * version 0.3 (15 June 2006) // -// Modified to not read entire file into memory // -// by James Heinrich // -// // -// * version 0.4 (07 December 2007) // -// Bugfixes for incorrectly parsed FLV dimensions // -// and incorrect parsing of onMetaTag // -// by Evgeny Moysevich // -// // -// * version 0.5 (21 May 2009) // -// Fixed parsing of audio tags and added additional codec // -// details. The duration is now read from onMetaTag (if // -// exists), rather than parsing whole file // -// by Nigel Barnes // -// // -// * version 0.6 (24 May 2009) // -// Better parsing of files with h264 video // -// by Evgeny Moysevich // -// // -// * version 0.6.1 (30 May 2011) // -// prevent infinite loops in expGolombUe() // -// // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.flv.php // -// module for analyzing Shockwave Flash Video files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - -define('GETID3_FLV_TAG_AUDIO', 8); -define('GETID3_FLV_TAG_VIDEO', 9); -define('GETID3_FLV_TAG_META', 18); - -define('GETID3_FLV_VIDEO_H263', 2); -define('GETID3_FLV_VIDEO_SCREEN', 3); -define('GETID3_FLV_VIDEO_VP6FLV', 4); -define('GETID3_FLV_VIDEO_VP6FLV_ALPHA', 5); -define('GETID3_FLV_VIDEO_SCREENV2', 6); -define('GETID3_FLV_VIDEO_H264', 7); - -define('H264_AVC_SEQUENCE_HEADER', 0); -define('H264_PROFILE_BASELINE', 66); -define('H264_PROFILE_MAIN', 77); -define('H264_PROFILE_EXTENDED', 88); -define('H264_PROFILE_HIGH', 100); -define('H264_PROFILE_HIGH10', 110); -define('H264_PROFILE_HIGH422', 122); -define('H264_PROFILE_HIGH444', 144); -define('H264_PROFILE_HIGH444_PREDICTIVE', 244); - -class getid3_flv extends getid3_handler -{ - public $max_frames = 100000; // break out of the loop if too many frames have been scanned; only scan this many if meta frame does not contain useful duration - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $FLVdataLength = $info['avdataend'] - $info['avdataoffset']; - $FLVheader = fread($this->getid3->fp, 5); - - $info['fileformat'] = 'flv'; - $info['flv']['header']['signature'] = substr($FLVheader, 0, 3); - $info['flv']['header']['version'] = getid3_lib::BigEndian2Int(substr($FLVheader, 3, 1)); - $TypeFlags = getid3_lib::BigEndian2Int(substr($FLVheader, 4, 1)); - - $magic = 'FLV'; - if ($info['flv']['header']['signature'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($info['flv']['header']['signature']).'"'; - unset($info['flv']); - unset($info['fileformat']); - return false; - } - - $info['flv']['header']['hasAudio'] = (bool) ($TypeFlags & 0x04); - $info['flv']['header']['hasVideo'] = (bool) ($TypeFlags & 0x01); - - $FrameSizeDataLength = getid3_lib::BigEndian2Int(fread($this->getid3->fp, 4)); - $FLVheaderFrameLength = 9; - if ($FrameSizeDataLength > $FLVheaderFrameLength) { - fseek($this->getid3->fp, $FrameSizeDataLength - $FLVheaderFrameLength, SEEK_CUR); - } - $Duration = 0; - $found_video = false; - $found_audio = false; - $found_meta = false; - $found_valid_meta_playtime = false; - $tagParseCount = 0; - $info['flv']['framecount'] = array('total'=>0, 'audio'=>0, 'video'=>0); - $flv_framecount = &$info['flv']['framecount']; - while (((ftell($this->getid3->fp) + 16) < $info['avdataend']) && (($tagParseCount++ <= $this->max_frames) || !$found_valid_meta_playtime)) { - $ThisTagHeader = fread($this->getid3->fp, 16); - - $PreviousTagLength = getid3_lib::BigEndian2Int(substr($ThisTagHeader, 0, 4)); - $TagType = getid3_lib::BigEndian2Int(substr($ThisTagHeader, 4, 1)); - $DataLength = getid3_lib::BigEndian2Int(substr($ThisTagHeader, 5, 3)); - $Timestamp = getid3_lib::BigEndian2Int(substr($ThisTagHeader, 8, 3)); - $LastHeaderByte = getid3_lib::BigEndian2Int(substr($ThisTagHeader, 15, 1)); - $NextOffset = ftell($this->getid3->fp) - 1 + $DataLength; - if ($Timestamp > $Duration) { - $Duration = $Timestamp; - } - - $flv_framecount['total']++; - switch ($TagType) { - case GETID3_FLV_TAG_AUDIO: - $flv_framecount['audio']++; - if (!$found_audio) { - $found_audio = true; - $info['flv']['audio']['audioFormat'] = ($LastHeaderByte >> 4) & 0x0F; - $info['flv']['audio']['audioRate'] = ($LastHeaderByte >> 2) & 0x03; - $info['flv']['audio']['audioSampleSize'] = ($LastHeaderByte >> 1) & 0x01; - $info['flv']['audio']['audioType'] = $LastHeaderByte & 0x01; - } - break; - - case GETID3_FLV_TAG_VIDEO: - $flv_framecount['video']++; - if (!$found_video) { - $found_video = true; - $info['flv']['video']['videoCodec'] = $LastHeaderByte & 0x07; - - $FLVvideoHeader = fread($this->getid3->fp, 11); - - if ($info['flv']['video']['videoCodec'] == GETID3_FLV_VIDEO_H264) { - // this code block contributed by: moysevichØgmail*com - - $AVCPacketType = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 0, 1)); - if ($AVCPacketType == H264_AVC_SEQUENCE_HEADER) { - // read AVCDecoderConfigurationRecord - $configurationVersion = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 4, 1)); - $AVCProfileIndication = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 5, 1)); - $profile_compatibility = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 6, 1)); - $lengthSizeMinusOne = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 7, 1)); - $numOfSequenceParameterSets = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 8, 1)); - - if (($numOfSequenceParameterSets & 0x1F) != 0) { - // there is at least one SequenceParameterSet - // read size of the first SequenceParameterSet - //$spsSize = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 9, 2)); - $spsSize = getid3_lib::LittleEndian2Int(substr($FLVvideoHeader, 9, 2)); - // read the first SequenceParameterSet - $sps = fread($this->getid3->fp, $spsSize); - if (strlen($sps) == $spsSize) { // make sure that whole SequenceParameterSet was red - $spsReader = new AVCSequenceParameterSetReader($sps); - $spsReader->readData(); - $info['video']['resolution_x'] = $spsReader->getWidth(); - $info['video']['resolution_y'] = $spsReader->getHeight(); - } - } - } - // end: moysevichØgmail*com - - } elseif ($info['flv']['video']['videoCodec'] == GETID3_FLV_VIDEO_H263) { - - $PictureSizeType = (getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 3, 2))) >> 7; - $PictureSizeType = $PictureSizeType & 0x0007; - $info['flv']['header']['videoSizeType'] = $PictureSizeType; - switch ($PictureSizeType) { - case 0: - //$PictureSizeEnc = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 5, 2)); - //$PictureSizeEnc <<= 1; - //$info['video']['resolution_x'] = ($PictureSizeEnc & 0xFF00) >> 8; - //$PictureSizeEnc = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 6, 2)); - //$PictureSizeEnc <<= 1; - //$info['video']['resolution_y'] = ($PictureSizeEnc & 0xFF00) >> 8; - - $PictureSizeEnc['x'] = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 4, 2)); - $PictureSizeEnc['y'] = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 5, 2)); - $PictureSizeEnc['x'] >>= 7; - $PictureSizeEnc['y'] >>= 7; - $info['video']['resolution_x'] = $PictureSizeEnc['x'] & 0xFF; - $info['video']['resolution_y'] = $PictureSizeEnc['y'] & 0xFF; - break; - - case 1: - $PictureSizeEnc['x'] = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 4, 3)); - $PictureSizeEnc['y'] = getid3_lib::BigEndian2Int(substr($FLVvideoHeader, 6, 3)); - $PictureSizeEnc['x'] >>= 7; - $PictureSizeEnc['y'] >>= 7; - $info['video']['resolution_x'] = $PictureSizeEnc['x'] & 0xFFFF; - $info['video']['resolution_y'] = $PictureSizeEnc['y'] & 0xFFFF; - break; - - case 2: - $info['video']['resolution_x'] = 352; - $info['video']['resolution_y'] = 288; - break; - - case 3: - $info['video']['resolution_x'] = 176; - $info['video']['resolution_y'] = 144; - break; - - case 4: - $info['video']['resolution_x'] = 128; - $info['video']['resolution_y'] = 96; - break; - - case 5: - $info['video']['resolution_x'] = 320; - $info['video']['resolution_y'] = 240; - break; - - case 6: - $info['video']['resolution_x'] = 160; - $info['video']['resolution_y'] = 120; - break; - - default: - $info['video']['resolution_x'] = 0; - $info['video']['resolution_y'] = 0; - break; - - } - } - $info['video']['pixel_aspect_ratio'] = $info['video']['resolution_x'] / $info['video']['resolution_y']; - } - break; - - // Meta tag - case GETID3_FLV_TAG_META: - if (!$found_meta) { - $found_meta = true; - fseek($this->getid3->fp, -1, SEEK_CUR); - $datachunk = fread($this->getid3->fp, $DataLength); - $AMFstream = new AMFStream($datachunk); - $reader = new AMFReader($AMFstream); - $eventName = $reader->readData(); - $info['flv']['meta'][$eventName] = $reader->readData(); - unset($reader); - - $copykeys = array('framerate'=>'frame_rate', 'width'=>'resolution_x', 'height'=>'resolution_y', 'audiodatarate'=>'bitrate', 'videodatarate'=>'bitrate'); - foreach ($copykeys as $sourcekey => $destkey) { - if (isset($info['flv']['meta']['onMetaData'][$sourcekey])) { - switch ($sourcekey) { - case 'width': - case 'height': - $info['video'][$destkey] = intval(round($info['flv']['meta']['onMetaData'][$sourcekey])); - break; - case 'audiodatarate': - $info['audio'][$destkey] = getid3_lib::CastAsInt(round($info['flv']['meta']['onMetaData'][$sourcekey] * 1000)); - break; - case 'videodatarate': - case 'frame_rate': - default: - $info['video'][$destkey] = $info['flv']['meta']['onMetaData'][$sourcekey]; - break; - } - } - } - if (!empty($info['flv']['meta']['onMetaData']['duration'])) { - $found_valid_meta_playtime = true; - } - } - break; - - default: - // noop - break; - } - fseek($this->getid3->fp, $NextOffset, SEEK_SET); - } - - $info['playtime_seconds'] = $Duration / 1000; - if ($info['playtime_seconds'] > 0) { - $info['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - - if ($info['flv']['header']['hasAudio']) { - $info['audio']['codec'] = $this->FLVaudioFormat($info['flv']['audio']['audioFormat']); - $info['audio']['sample_rate'] = $this->FLVaudioRate($info['flv']['audio']['audioRate']); - $info['audio']['bits_per_sample'] = $this->FLVaudioBitDepth($info['flv']['audio']['audioSampleSize']); - - $info['audio']['channels'] = $info['flv']['audio']['audioType'] + 1; // 0=mono,1=stereo - $info['audio']['lossless'] = ($info['flv']['audio']['audioFormat'] ? false : true); // 0=uncompressed - $info['audio']['dataformat'] = 'flv'; - } - if (!empty($info['flv']['header']['hasVideo'])) { - $info['video']['codec'] = $this->FLVvideoCodec($info['flv']['video']['videoCodec']); - $info['video']['dataformat'] = 'flv'; - $info['video']['lossless'] = false; - } - - // Set information from meta - if (!empty($info['flv']['meta']['onMetaData']['duration'])) { - $info['playtime_seconds'] = $info['flv']['meta']['onMetaData']['duration']; - $info['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - if (isset($info['flv']['meta']['onMetaData']['audiocodecid'])) { - $info['audio']['codec'] = $this->FLVaudioFormat($info['flv']['meta']['onMetaData']['audiocodecid']); - } - if (isset($info['flv']['meta']['onMetaData']['videocodecid'])) { - $info['video']['codec'] = $this->FLVvideoCodec($info['flv']['meta']['onMetaData']['videocodecid']); - } - return true; - } - - - public function FLVaudioFormat($id) { - $FLVaudioFormat = array( - 0 => 'Linear PCM, platform endian', - 1 => 'ADPCM', - 2 => 'mp3', - 3 => 'Linear PCM, little endian', - 4 => 'Nellymoser 16kHz mono', - 5 => 'Nellymoser 8kHz mono', - 6 => 'Nellymoser', - 7 => 'G.711A-law logarithmic PCM', - 8 => 'G.711 mu-law logarithmic PCM', - 9 => 'reserved', - 10 => 'AAC', - 11 => false, // unknown? - 12 => false, // unknown? - 13 => false, // unknown? - 14 => 'mp3 8kHz', - 15 => 'Device-specific sound', - ); - return (isset($FLVaudioFormat[$id]) ? $FLVaudioFormat[$id] : false); - } - - public function FLVaudioRate($id) { - $FLVaudioRate = array( - 0 => 5500, - 1 => 11025, - 2 => 22050, - 3 => 44100, - ); - return (isset($FLVaudioRate[$id]) ? $FLVaudioRate[$id] : false); - } - - public function FLVaudioBitDepth($id) { - $FLVaudioBitDepth = array( - 0 => 8, - 1 => 16, - ); - return (isset($FLVaudioBitDepth[$id]) ? $FLVaudioBitDepth[$id] : false); - } - - public function FLVvideoCodec($id) { - $FLVvideoCodec = array( - GETID3_FLV_VIDEO_H263 => 'Sorenson H.263', - GETID3_FLV_VIDEO_SCREEN => 'Screen video', - GETID3_FLV_VIDEO_VP6FLV => 'On2 VP6', - GETID3_FLV_VIDEO_VP6FLV_ALPHA => 'On2 VP6 with alpha channel', - GETID3_FLV_VIDEO_SCREENV2 => 'Screen video v2', - GETID3_FLV_VIDEO_H264 => 'Sorenson H.264', - ); - return (isset($FLVvideoCodec[$id]) ? $FLVvideoCodec[$id] : false); - } -} - -class AMFStream { - public $bytes; - public $pos; - - public function AMFStream(&$bytes) { - $this->bytes =& $bytes; - $this->pos = 0; - } - - public function readByte() { - return getid3_lib::BigEndian2Int(substr($this->bytes, $this->pos++, 1)); - } - - public function readInt() { - return ($this->readByte() << 8) + $this->readByte(); - } - - public function readLong() { - return ($this->readByte() << 24) + ($this->readByte() << 16) + ($this->readByte() << 8) + $this->readByte(); - } - - public function readDouble() { - return getid3_lib::BigEndian2Float($this->read(8)); - } - - public function readUTF() { - $length = $this->readInt(); - return $this->read($length); - } - - public function readLongUTF() { - $length = $this->readLong(); - return $this->read($length); - } - - public function read($length) { - $val = substr($this->bytes, $this->pos, $length); - $this->pos += $length; - return $val; - } - - public function peekByte() { - $pos = $this->pos; - $val = $this->readByte(); - $this->pos = $pos; - return $val; - } - - public function peekInt() { - $pos = $this->pos; - $val = $this->readInt(); - $this->pos = $pos; - return $val; - } - - public function peekLong() { - $pos = $this->pos; - $val = $this->readLong(); - $this->pos = $pos; - return $val; - } - - public function peekDouble() { - $pos = $this->pos; - $val = $this->readDouble(); - $this->pos = $pos; - return $val; - } - - public function peekUTF() { - $pos = $this->pos; - $val = $this->readUTF(); - $this->pos = $pos; - return $val; - } - - public function peekLongUTF() { - $pos = $this->pos; - $val = $this->readLongUTF(); - $this->pos = $pos; - return $val; - } -} - -class AMFReader { - public $stream; - - public function AMFReader(&$stream) { - $this->stream =& $stream; - } - - public function readData() { - $value = null; - - $type = $this->stream->readByte(); - switch ($type) { - - // Double - case 0: - $value = $this->readDouble(); - break; - - // Boolean - case 1: - $value = $this->readBoolean(); - break; - - // String - case 2: - $value = $this->readString(); - break; - - // Object - case 3: - $value = $this->readObject(); - break; - - // null - case 6: - return null; - break; - - // Mixed array - case 8: - $value = $this->readMixedArray(); - break; - - // Array - case 10: - $value = $this->readArray(); - break; - - // Date - case 11: - $value = $this->readDate(); - break; - - // Long string - case 13: - $value = $this->readLongString(); - break; - - // XML (handled as string) - case 15: - $value = $this->readXML(); - break; - - // Typed object (handled as object) - case 16: - $value = $this->readTypedObject(); - break; - - // Long string - default: - $value = '(unknown or unsupported data type)'; - break; - } - - return $value; - } - - public function readDouble() { - return $this->stream->readDouble(); - } - - public function readBoolean() { - return $this->stream->readByte() == 1; - } - - public function readString() { - return $this->stream->readUTF(); - } - - public function readObject() { - // Get highest numerical index - ignored -// $highestIndex = $this->stream->readLong(); - - $data = array(); - - while ($key = $this->stream->readUTF()) { - $data[$key] = $this->readData(); - } - // Mixed array record ends with empty string (0x00 0x00) and 0x09 - if (($key == '') && ($this->stream->peekByte() == 0x09)) { - // Consume byte - $this->stream->readByte(); - } - return $data; - } - - public function readMixedArray() { - // Get highest numerical index - ignored - $highestIndex = $this->stream->readLong(); - - $data = array(); - - while ($key = $this->stream->readUTF()) { - if (is_numeric($key)) { - $key = (float) $key; - } - $data[$key] = $this->readData(); - } - // Mixed array record ends with empty string (0x00 0x00) and 0x09 - if (($key == '') && ($this->stream->peekByte() == 0x09)) { - // Consume byte - $this->stream->readByte(); - } - - return $data; - } - - public function readArray() { - $length = $this->stream->readLong(); - $data = array(); - - for ($i = 0; $i < $length; $i++) { - $data[] = $this->readData(); - } - return $data; - } - - public function readDate() { - $timestamp = $this->stream->readDouble(); - $timezone = $this->stream->readInt(); - return $timestamp; - } - - public function readLongString() { - return $this->stream->readLongUTF(); - } - - public function readXML() { - return $this->stream->readLongUTF(); - } - - public function readTypedObject() { - $className = $this->stream->readUTF(); - return $this->readObject(); - } -} - -class AVCSequenceParameterSetReader { - public $sps; - public $start = 0; - public $currentBytes = 0; - public $currentBits = 0; - public $width; - public $height; - - public function AVCSequenceParameterSetReader($sps) { - $this->sps = $sps; - } - - public function readData() { - $this->skipBits(8); - $this->skipBits(8); - $profile = $this->getBits(8); // read profile - $this->skipBits(16); - $this->expGolombUe(); // read sps id - if (in_array($profile, array(H264_PROFILE_HIGH, H264_PROFILE_HIGH10, H264_PROFILE_HIGH422, H264_PROFILE_HIGH444, H264_PROFILE_HIGH444_PREDICTIVE))) { - if ($this->expGolombUe() == 3) { - $this->skipBits(1); - } - $this->expGolombUe(); - $this->expGolombUe(); - $this->skipBits(1); - if ($this->getBit()) { - for ($i = 0; $i < 8; $i++) { - if ($this->getBit()) { - $size = $i < 6 ? 16 : 64; - $lastScale = 8; - $nextScale = 8; - for ($j = 0; $j < $size; $j++) { - if ($nextScale != 0) { - $deltaScale = $this->expGolombUe(); - $nextScale = ($lastScale + $deltaScale + 256) % 256; - } - if ($nextScale != 0) { - $lastScale = $nextScale; - } - } - } - } - } - } - $this->expGolombUe(); - $pocType = $this->expGolombUe(); - if ($pocType == 0) { - $this->expGolombUe(); - } elseif ($pocType == 1) { - $this->skipBits(1); - $this->expGolombSe(); - $this->expGolombSe(); - $pocCycleLength = $this->expGolombUe(); - for ($i = 0; $i < $pocCycleLength; $i++) { - $this->expGolombSe(); - } - } - $this->expGolombUe(); - $this->skipBits(1); - $this->width = ($this->expGolombUe() + 1) * 16; - $heightMap = $this->expGolombUe() + 1; - $this->height = (2 - $this->getBit()) * $heightMap * 16; - } - - public function skipBits($bits) { - $newBits = $this->currentBits + $bits; - $this->currentBytes += (int)floor($newBits / 8); - $this->currentBits = $newBits % 8; - } - - public function getBit() { - $result = (getid3_lib::BigEndian2Int(substr($this->sps, $this->currentBytes, 1)) >> (7 - $this->currentBits)) & 0x01; - $this->skipBits(1); - return $result; - } - - public function getBits($bits) { - $result = 0; - for ($i = 0; $i < $bits; $i++) { - $result = ($result << 1) + $this->getBit(); - } - return $result; - } - - public function expGolombUe() { - $significantBits = 0; - $bit = $this->getBit(); - while ($bit == 0) { - $significantBits++; - $bit = $this->getBit(); - - if ($significantBits > 31) { - // something is broken, this is an emergency escape to prevent infinite loops - return 0; - } - } - return (1 << $significantBits) + $this->getBits($significantBits) - 1; - } - - public function expGolombSe() { - $result = $this->expGolombUe(); - if (($result & 0x01) == 0) { - return -($result >> 1); - } else { - return ($result + 1) >> 1; - } - } - - public function getWidth() { - return $this->width; - } - - public function getHeight() { - return $this->height; - } -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.matroska.php b/web/htdocs/media/lib/getid3/module.audio-video.matroska.php deleted file mode 100644 index 8fe89a556cb..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.matroska.php +++ /dev/null @@ -1,1765 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.matriska.php // -// module for analyzing Matroska containers // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -define('EBML_ID_CHAPTERS', 0x0043A770); // [10][43][A7][70] -- A system to define basic menus and partition data. For more detailed information, look at the Chapters Explanation. -define('EBML_ID_SEEKHEAD', 0x014D9B74); // [11][4D][9B][74] -- Contains the position of other level 1 elements. -define('EBML_ID_TAGS', 0x0254C367); // [12][54][C3][67] -- Element containing elements specific to Tracks/Chapters. A list of valid tags can be found . -define('EBML_ID_INFO', 0x0549A966); // [15][49][A9][66] -- Contains miscellaneous general information and statistics on the file. -define('EBML_ID_TRACKS', 0x0654AE6B); // [16][54][AE][6B] -- A top-level block of information with many tracks described. -define('EBML_ID_SEGMENT', 0x08538067); // [18][53][80][67] -- This element contains all other top-level (level 1) elements. Typically a Matroska file is composed of 1 segment. -define('EBML_ID_ATTACHMENTS', 0x0941A469); // [19][41][A4][69] -- Contain attached files. -define('EBML_ID_EBML', 0x0A45DFA3); // [1A][45][DF][A3] -- Set the EBML characteristics of the data to follow. Each EBML document has to start with this. -define('EBML_ID_CUES', 0x0C53BB6B); // [1C][53][BB][6B] -- A top-level element to speed seeking access. All entries are local to the segment. -define('EBML_ID_CLUSTER', 0x0F43B675); // [1F][43][B6][75] -- The lower level element containing the (monolithic) Block structure. -define('EBML_ID_LANGUAGE', 0x02B59C); // [22][B5][9C] -- Specifies the language of the track in the Matroska languages form. -define('EBML_ID_TRACKTIMECODESCALE', 0x03314F); // [23][31][4F] -- The scale to apply on this track to work at normal speed in relation with other tracks (mostly used to adjust video speed when the audio length differs). -define('EBML_ID_DEFAULTDURATION', 0x03E383); // [23][E3][83] -- Number of nanoseconds (i.e. not scaled) per frame. -define('EBML_ID_CODECNAME', 0x058688); // [25][86][88] -- A human-readable string specifying the codec. -define('EBML_ID_CODECDOWNLOADURL', 0x06B240); // [26][B2][40] -- A URL to download about the codec used. -define('EBML_ID_TIMECODESCALE', 0x0AD7B1); // [2A][D7][B1] -- Timecode scale in nanoseconds (1.000.000 means all timecodes in the segment are expressed in milliseconds). -define('EBML_ID_COLOURSPACE', 0x0EB524); // [2E][B5][24] -- Same value as in AVI (32 bits). -define('EBML_ID_GAMMAVALUE', 0x0FB523); // [2F][B5][23] -- Gamma Value. -define('EBML_ID_CODECSETTINGS', 0x1A9697); // [3A][96][97] -- A string describing the encoding setting used. -define('EBML_ID_CODECINFOURL', 0x1B4040); // [3B][40][40] -- A URL to find information about the codec used. -define('EBML_ID_PREVFILENAME', 0x1C83AB); // [3C][83][AB] -- An escaped filename corresponding to the previous segment. -define('EBML_ID_PREVUID', 0x1CB923); // [3C][B9][23] -- A unique ID to identify the previous chained segment (128 bits). -define('EBML_ID_NEXTFILENAME', 0x1E83BB); // [3E][83][BB] -- An escaped filename corresponding to the next segment. -define('EBML_ID_NEXTUID', 0x1EB923); // [3E][B9][23] -- A unique ID to identify the next chained segment (128 bits). -define('EBML_ID_CONTENTCOMPALGO', 0x0254); // [42][54] -- The compression algorithm used. Algorithms that have been specified so far are: -define('EBML_ID_CONTENTCOMPSETTINGS', 0x0255); // [42][55] -- Settings that might be needed by the decompressor. For Header Stripping (ContentCompAlgo=3), the bytes that were removed from the beggining of each frames of the track. -define('EBML_ID_DOCTYPE', 0x0282); // [42][82] -- A string that describes the type of document that follows this EBML header ('matroska' in our case). -define('EBML_ID_DOCTYPEREADVERSION', 0x0285); // [42][85] -- The minimum DocType version an interpreter has to support to read this file. -define('EBML_ID_EBMLVERSION', 0x0286); // [42][86] -- The version of EBML parser used to create the file. -define('EBML_ID_DOCTYPEVERSION', 0x0287); // [42][87] -- The version of DocType interpreter used to create the file. -define('EBML_ID_EBMLMAXIDLENGTH', 0x02F2); // [42][F2] -- The maximum length of the IDs you'll find in this file (4 or less in Matroska). -define('EBML_ID_EBMLMAXSIZELENGTH', 0x02F3); // [42][F3] -- The maximum length of the sizes you'll find in this file (8 or less in Matroska). This does not override the element size indicated at the beginning of an element. Elements that have an indicated size which is larger than what is allowed by EBMLMaxSizeLength shall be considered invalid. -define('EBML_ID_EBMLREADVERSION', 0x02F7); // [42][F7] -- The minimum EBML version a parser has to support to read this file. -define('EBML_ID_CHAPLANGUAGE', 0x037C); // [43][7C] -- The languages corresponding to the string, in the bibliographic ISO-639-2 form. -define('EBML_ID_CHAPCOUNTRY', 0x037E); // [43][7E] -- The countries corresponding to the string, same 2 octets as in Internet domains. -define('EBML_ID_SEGMENTFAMILY', 0x0444); // [44][44] -- A randomly generated unique ID that all segments related to each other must use (128 bits). -define('EBML_ID_DATEUTC', 0x0461); // [44][61] -- Date of the origin of timecode (value 0), i.e. production date. -define('EBML_ID_TAGLANGUAGE', 0x047A); // [44][7A] -- Specifies the language of the tag specified, in the Matroska languages form. -define('EBML_ID_TAGDEFAULT', 0x0484); // [44][84] -- Indication to know if this is the default/original language to use for the given tag. -define('EBML_ID_TAGBINARY', 0x0485); // [44][85] -- The values of the Tag if it is binary. Note that this cannot be used in the same SimpleTag as TagString. -define('EBML_ID_TAGSTRING', 0x0487); // [44][87] -- The value of the Tag. -define('EBML_ID_DURATION', 0x0489); // [44][89] -- Duration of the segment (based on TimecodeScale). -define('EBML_ID_CHAPPROCESSPRIVATE', 0x050D); // [45][0D] -- Some optional data attached to the ChapProcessCodecID information. For ChapProcessCodecID = 1, it is the "DVD level" equivalent. -define('EBML_ID_CHAPTERFLAGENABLED', 0x0598); // [45][98] -- Specify wether the chapter is enabled. It can be enabled/disabled by a Control Track. When disabled, the movie should skip all the content between the TimeStart and TimeEnd of this chapter. -define('EBML_ID_TAGNAME', 0x05A3); // [45][A3] -- The name of the Tag that is going to be stored. -define('EBML_ID_EDITIONENTRY', 0x05B9); // [45][B9] -- Contains all information about a segment edition. -define('EBML_ID_EDITIONUID', 0x05BC); // [45][BC] -- A unique ID to identify the edition. It's useful for tagging an edition. -define('EBML_ID_EDITIONFLAGHIDDEN', 0x05BD); // [45][BD] -- If an edition is hidden (1), it should not be available to the user interface (but still to Control Tracks). -define('EBML_ID_EDITIONFLAGDEFAULT', 0x05DB); // [45][DB] -- If a flag is set (1) the edition should be used as the default one. -define('EBML_ID_EDITIONFLAGORDERED', 0x05DD); // [45][DD] -- Specify if the chapters can be defined multiple times and the order to play them is enforced. -define('EBML_ID_FILEDATA', 0x065C); // [46][5C] -- The data of the file. -define('EBML_ID_FILEMIMETYPE', 0x0660); // [46][60] -- MIME type of the file. -define('EBML_ID_FILENAME', 0x066E); // [46][6E] -- Filename of the attached file. -define('EBML_ID_FILEREFERRAL', 0x0675); // [46][75] -- A binary value that a track/codec can refer to when the attachment is needed. -define('EBML_ID_FILEDESCRIPTION', 0x067E); // [46][7E] -- A human-friendly name for the attached file. -define('EBML_ID_FILEUID', 0x06AE); // [46][AE] -- Unique ID representing the file, as random as possible. -define('EBML_ID_CONTENTENCALGO', 0x07E1); // [47][E1] -- The encryption algorithm used. The value '0' means that the contents have not been encrypted but only signed. Predefined values: -define('EBML_ID_CONTENTENCKEYID', 0x07E2); // [47][E2] -- For public key algorithms this is the ID of the public key the the data was encrypted with. -define('EBML_ID_CONTENTSIGNATURE', 0x07E3); // [47][E3] -- A cryptographic signature of the contents. -define('EBML_ID_CONTENTSIGKEYID', 0x07E4); // [47][E4] -- This is the ID of the private key the data was signed with. -define('EBML_ID_CONTENTSIGALGO', 0x07E5); // [47][E5] -- The algorithm used for the signature. A value of '0' means that the contents have not been signed but only encrypted. Predefined values: -define('EBML_ID_CONTENTSIGHASHALGO', 0x07E6); // [47][E6] -- The hash algorithm used for the signature. A value of '0' means that the contents have not been signed but only encrypted. Predefined values: -define('EBML_ID_MUXINGAPP', 0x0D80); // [4D][80] -- Muxing application or library ("libmatroska-0.4.3"). -define('EBML_ID_SEEK', 0x0DBB); // [4D][BB] -- Contains a single seek entry to an EBML element. -define('EBML_ID_CONTENTENCODINGORDER', 0x1031); // [50][31] -- Tells when this modification was used during encoding/muxing starting with 0 and counting upwards. The decoder/demuxer has to start with the highest order number it finds and work its way down. This value has to be unique over all ContentEncodingOrder elements in the segment. -define('EBML_ID_CONTENTENCODINGSCOPE', 0x1032); // [50][32] -- A bit field that describes which elements have been modified in this way. Values (big endian) can be OR'ed. Possible values: -define('EBML_ID_CONTENTENCODINGTYPE', 0x1033); // [50][33] -- A value describing what kind of transformation has been done. Possible values: -define('EBML_ID_CONTENTCOMPRESSION', 0x1034); // [50][34] -- Settings describing the compression used. Must be present if the value of ContentEncodingType is 0 and absent otherwise. Each block must be decompressable even if no previous block is available in order not to prevent seeking. -define('EBML_ID_CONTENTENCRYPTION', 0x1035); // [50][35] -- Settings describing the encryption used. Must be present if the value of ContentEncodingType is 1 and absent otherwise. -define('EBML_ID_CUEREFNUMBER', 0x135F); // [53][5F] -- Number of the referenced Block of Track X in the specified Cluster. -define('EBML_ID_NAME', 0x136E); // [53][6E] -- A human-readable track name. -define('EBML_ID_CUEBLOCKNUMBER', 0x1378); // [53][78] -- Number of the Block in the specified Cluster. -define('EBML_ID_TRACKOFFSET', 0x137F); // [53][7F] -- A value to add to the Block's Timecode. This can be used to adjust the playback offset of a track. -define('EBML_ID_SEEKID', 0x13AB); // [53][AB] -- The binary ID corresponding to the element name. -define('EBML_ID_SEEKPOSITION', 0x13AC); // [53][AC] -- The position of the element in the segment in octets (0 = first level 1 element). -define('EBML_ID_STEREOMODE', 0x13B8); // [53][B8] -- Stereo-3D video mode. -define('EBML_ID_OLDSTEREOMODE', 0x13B9); // [53][B9] -- Bogus StereoMode value used in old versions of libmatroska. DO NOT USE. (0: mono, 1: right eye, 2: left eye, 3: both eyes). -define('EBML_ID_PIXELCROPBOTTOM', 0x14AA); // [54][AA] -- The number of video pixels to remove at the bottom of the image (for HDTV content). -define('EBML_ID_DISPLAYWIDTH', 0x14B0); // [54][B0] -- Width of the video frames to display. -define('EBML_ID_DISPLAYUNIT', 0x14B2); // [54][B2] -- Type of the unit for DisplayWidth/Height (0: pixels, 1: centimeters, 2: inches). -define('EBML_ID_ASPECTRATIOTYPE', 0x14B3); // [54][B3] -- Specify the possible modifications to the aspect ratio (0: free resizing, 1: keep aspect ratio, 2: fixed). -define('EBML_ID_DISPLAYHEIGHT', 0x14BA); // [54][BA] -- Height of the video frames to display. -define('EBML_ID_PIXELCROPTOP', 0x14BB); // [54][BB] -- The number of video pixels to remove at the top of the image. -define('EBML_ID_PIXELCROPLEFT', 0x14CC); // [54][CC] -- The number of video pixels to remove on the left of the image. -define('EBML_ID_PIXELCROPRIGHT', 0x14DD); // [54][DD] -- The number of video pixels to remove on the right of the image. -define('EBML_ID_FLAGFORCED', 0x15AA); // [55][AA] -- Set if that track MUST be used during playback. There can be many forced track for a kind (audio, video or subs), the player should select the one which language matches the user preference or the default + forced track. Overlay MAY happen between a forced and non-forced track of the same kind. -define('EBML_ID_MAXBLOCKADDITIONID', 0x15EE); // [55][EE] -- The maximum value of BlockAddID. A value 0 means there is no BlockAdditions for this track. -define('EBML_ID_WRITINGAPP', 0x1741); // [57][41] -- Writing application ("mkvmerge-0.3.3"). -define('EBML_ID_CLUSTERSILENTTRACKS', 0x1854); // [58][54] -- The list of tracks that are not used in that part of the stream. It is useful when using overlay tracks on seeking. Then you should decide what track to use. -define('EBML_ID_CLUSTERSILENTTRACKNUMBER', 0x18D7); // [58][D7] -- One of the track number that are not used from now on in the stream. It could change later if not specified as silent in a further Cluster. -define('EBML_ID_ATTACHEDFILE', 0x21A7); // [61][A7] -- An attached file. -define('EBML_ID_CONTENTENCODING', 0x2240); // [62][40] -- Settings for one content encoding like compression or encryption. -define('EBML_ID_BITDEPTH', 0x2264); // [62][64] -- Bits per sample, mostly used for PCM. -define('EBML_ID_CODECPRIVATE', 0x23A2); // [63][A2] -- Private data only known to the codec. -define('EBML_ID_TARGETS', 0x23C0); // [63][C0] -- Contain all UIDs where the specified meta data apply. It is void to describe everything in the segment. -define('EBML_ID_CHAPTERPHYSICALEQUIV', 0x23C3); // [63][C3] -- Specify the physical equivalent of this ChapterAtom like "DVD" (60) or "SIDE" (50), see complete list of values. -define('EBML_ID_TAGCHAPTERUID', 0x23C4); // [63][C4] -- A unique ID to identify the Chapter(s) the tags belong to. If the value is 0 at this level, the tags apply to all chapters in the Segment. -define('EBML_ID_TAGTRACKUID', 0x23C5); // [63][C5] -- A unique ID to identify the Track(s) the tags belong to. If the value is 0 at this level, the tags apply to all tracks in the Segment. -define('EBML_ID_TAGATTACHMENTUID', 0x23C6); // [63][C6] -- A unique ID to identify the Attachment(s) the tags belong to. If the value is 0 at this level, the tags apply to all the attachments in the Segment. -define('EBML_ID_TAGEDITIONUID', 0x23C9); // [63][C9] -- A unique ID to identify the EditionEntry(s) the tags belong to. If the value is 0 at this level, the tags apply to all editions in the Segment. -define('EBML_ID_TARGETTYPE', 0x23CA); // [63][CA] -- An informational string that can be used to display the logical level of the target like "ALBUM", "TRACK", "MOVIE", "CHAPTER", etc (see TargetType). -define('EBML_ID_TRACKTRANSLATE', 0x2624); // [66][24] -- The track identification for the given Chapter Codec. -define('EBML_ID_TRACKTRANSLATETRACKID', 0x26A5); // [66][A5] -- The binary value used to represent this track in the chapter codec data. The format depends on the ChapProcessCodecID used. -define('EBML_ID_TRACKTRANSLATECODEC', 0x26BF); // [66][BF] -- The chapter codec using this ID (0: Matroska Script, 1: DVD-menu). -define('EBML_ID_TRACKTRANSLATEEDITIONUID', 0x26FC); // [66][FC] -- Specify an edition UID on which this translation applies. When not specified, it means for all editions found in the segment. -define('EBML_ID_SIMPLETAG', 0x27C8); // [67][C8] -- Contains general information about the target. -define('EBML_ID_TARGETTYPEVALUE', 0x28CA); // [68][CA] -- A number to indicate the logical level of the target (see TargetType). -define('EBML_ID_CHAPPROCESSCOMMAND', 0x2911); // [69][11] -- Contains all the commands associated to the Atom. -define('EBML_ID_CHAPPROCESSTIME', 0x2922); // [69][22] -- Defines when the process command should be handled (0: during the whole chapter, 1: before starting playback, 2: after playback of the chapter). -define('EBML_ID_CHAPTERTRANSLATE', 0x2924); // [69][24] -- A tuple of corresponding ID used by chapter codecs to represent this segment. -define('EBML_ID_CHAPPROCESSDATA', 0x2933); // [69][33] -- Contains the command information. The data should be interpreted depending on the ChapProcessCodecID value. For ChapProcessCodecID = 1, the data correspond to the binary DVD cell pre/post commands. -define('EBML_ID_CHAPPROCESS', 0x2944); // [69][44] -- Contains all the commands associated to the Atom. -define('EBML_ID_CHAPPROCESSCODECID', 0x2955); // [69][55] -- Contains the type of the codec used for the processing. A value of 0 means native Matroska processing (to be defined), a value of 1 means the DVD command set is used. More codec IDs can be added later. -define('EBML_ID_CHAPTERTRANSLATEID', 0x29A5); // [69][A5] -- The binary value used to represent this segment in the chapter codec data. The format depends on the ChapProcessCodecID used. -define('EBML_ID_CHAPTERTRANSLATECODEC', 0x29BF); // [69][BF] -- The chapter codec using this ID (0: Matroska Script, 1: DVD-menu). -define('EBML_ID_CHAPTERTRANSLATEEDITIONUID', 0x29FC); // [69][FC] -- Specify an edition UID on which this correspondance applies. When not specified, it means for all editions found in the segment. -define('EBML_ID_CONTENTENCODINGS', 0x2D80); // [6D][80] -- Settings for several content encoding mechanisms like compression or encryption. -define('EBML_ID_MINCACHE', 0x2DE7); // [6D][E7] -- The minimum number of frames a player should be able to cache during playback. If set to 0, the reference pseudo-cache system is not used. -define('EBML_ID_MAXCACHE', 0x2DF8); // [6D][F8] -- The maximum cache size required to store referenced frames in and the current frame. 0 means no cache is needed. -define('EBML_ID_CHAPTERSEGMENTUID', 0x2E67); // [6E][67] -- A segment to play in place of this chapter. Edition ChapterSegmentEditionUID should be used for this segment, otherwise no edition is used. -define('EBML_ID_CHAPTERSEGMENTEDITIONUID', 0x2EBC); // [6E][BC] -- The edition to play from the segment linked in ChapterSegmentUID. -define('EBML_ID_TRACKOVERLAY', 0x2FAB); // [6F][AB] -- Specify that this track is an overlay track for the Track specified (in the u-integer). That means when this track has a gap (see SilentTracks) the overlay track should be used instead. The order of multiple TrackOverlay matters, the first one is the one that should be used. If not found it should be the second, etc. -define('EBML_ID_TAG', 0x3373); // [73][73] -- Element containing elements specific to Tracks/Chapters. -define('EBML_ID_SEGMENTFILENAME', 0x3384); // [73][84] -- A filename corresponding to this segment. -define('EBML_ID_SEGMENTUID', 0x33A4); // [73][A4] -- A randomly generated unique ID to identify the current segment between many others (128 bits). -define('EBML_ID_CHAPTERUID', 0x33C4); // [73][C4] -- A unique ID to identify the Chapter. -define('EBML_ID_TRACKUID', 0x33C5); // [73][C5] -- A unique ID to identify the Track. This should be kept the same when making a direct stream copy of the Track to another file. -define('EBML_ID_ATTACHMENTLINK', 0x3446); // [74][46] -- The UID of an attachment that is used by this codec. -define('EBML_ID_CLUSTERBLOCKADDITIONS', 0x35A1); // [75][A1] -- Contain additional blocks to complete the main one. An EBML parser that has no knowledge of the Block structure could still see and use/skip these data. -define('EBML_ID_CHANNELPOSITIONS', 0x347B); // [7D][7B] -- Table of horizontal angles for each successive channel, see appendix. -define('EBML_ID_OUTPUTSAMPLINGFREQUENCY', 0x38B5); // [78][B5] -- Real output sampling frequency in Hz (used for SBR techniques). -define('EBML_ID_TITLE', 0x3BA9); // [7B][A9] -- General name of the segment. -define('EBML_ID_CHAPTERDISPLAY', 0x00); // [80] -- Contains all possible strings to use for the chapter display. -define('EBML_ID_TRACKTYPE', 0x03); // [83] -- A set of track types coded on 8 bits (1: video, 2: audio, 3: complex, 0x10: logo, 0x11: subtitle, 0x12: buttons, 0x20: control). -define('EBML_ID_CHAPSTRING', 0x05); // [85] -- Contains the string to use as the chapter atom. -define('EBML_ID_CODECID', 0x06); // [86] -- An ID corresponding to the codec, see the codec page for more info. -define('EBML_ID_FLAGDEFAULT', 0x08); // [88] -- Set if that track (audio, video or subs) SHOULD be used if no language found matches the user preference. -define('EBML_ID_CHAPTERTRACKNUMBER', 0x09); // [89] -- UID of the Track to apply this chapter too. In the absense of a control track, choosing this chapter will select the listed Tracks and deselect unlisted tracks. Absense of this element indicates that the Chapter should be applied to any currently used Tracks. -define('EBML_ID_CLUSTERSLICES', 0x0E); // [8E] -- Contains slices description. -define('EBML_ID_CHAPTERTRACK', 0x0F); // [8F] -- List of tracks on which the chapter applies. If this element is not present, all tracks apply -define('EBML_ID_CHAPTERTIMESTART', 0x11); // [91] -- Timecode of the start of Chapter (not scaled). -define('EBML_ID_CHAPTERTIMEEND', 0x12); // [92] -- Timecode of the end of Chapter (timecode excluded, not scaled). -define('EBML_ID_CUEREFTIME', 0x16); // [96] -- Timecode of the referenced Block. -define('EBML_ID_CUEREFCLUSTER', 0x17); // [97] -- Position of the Cluster containing the referenced Block. -define('EBML_ID_CHAPTERFLAGHIDDEN', 0x18); // [98] -- If a chapter is hidden (1), it should not be available to the user interface (but still to Control Tracks). -define('EBML_ID_FLAGINTERLACED', 0x1A); // [9A] -- Set if the video is interlaced. -define('EBML_ID_CLUSTERBLOCKDURATION', 0x1B); // [9B] -- The duration of the Block (based on TimecodeScale). This element is mandatory when DefaultDuration is set for the track. When not written and with no DefaultDuration, the value is assumed to be the difference between the timecode of this Block and the timecode of the next Block in "display" order (not coding order). This element can be useful at the end of a Track (as there is not other Block available), or when there is a break in a track like for subtitle tracks. -define('EBML_ID_FLAGLACING', 0x1C); // [9C] -- Set if the track may contain blocks using lacing. -define('EBML_ID_CHANNELS', 0x1F); // [9F] -- Numbers of channels in the track. -define('EBML_ID_CLUSTERBLOCKGROUP', 0x20); // [A0] -- Basic container of information containing a single Block or BlockVirtual, and information specific to that Block/VirtualBlock. -define('EBML_ID_CLUSTERBLOCK', 0x21); // [A1] -- Block containing the actual data to be rendered and a timecode relative to the Cluster Timecode. -define('EBML_ID_CLUSTERBLOCKVIRTUAL', 0x22); // [A2] -- A Block with no data. It must be stored in the stream at the place the real Block should be in display order. -define('EBML_ID_CLUSTERSIMPLEBLOCK', 0x23); // [A3] -- Similar to Block but without all the extra information, mostly used to reduced overhead when no extra feature is needed. -define('EBML_ID_CLUSTERCODECSTATE', 0x24); // [A4] -- The new codec state to use. Data interpretation is private to the codec. This information should always be referenced by a seek entry. -define('EBML_ID_CLUSTERBLOCKADDITIONAL', 0x25); // [A5] -- Interpreted by the codec as it wishes (using the BlockAddID). -define('EBML_ID_CLUSTERBLOCKMORE', 0x26); // [A6] -- Contain the BlockAdditional and some parameters. -define('EBML_ID_CLUSTERPOSITION', 0x27); // [A7] -- Position of the Cluster in the segment (0 in live broadcast streams). It might help to resynchronise offset on damaged streams. -define('EBML_ID_CODECDECODEALL', 0x2A); // [AA] -- The codec can decode potentially damaged data. -define('EBML_ID_CLUSTERPREVSIZE', 0x2B); // [AB] -- Size of the previous Cluster, in octets. Can be useful for backward playing. -define('EBML_ID_TRACKENTRY', 0x2E); // [AE] -- Describes a track with all elements. -define('EBML_ID_CLUSTERENCRYPTEDBLOCK', 0x2F); // [AF] -- Similar to SimpleBlock but the data inside the Block are Transformed (encrypt and/or signed). -define('EBML_ID_PIXELWIDTH', 0x30); // [B0] -- Width of the encoded video frames in pixels. -define('EBML_ID_CUETIME', 0x33); // [B3] -- Absolute timecode according to the segment time base. -define('EBML_ID_SAMPLINGFREQUENCY', 0x35); // [B5] -- Sampling frequency in Hz. -define('EBML_ID_CHAPTERATOM', 0x36); // [B6] -- Contains the atom information to use as the chapter atom (apply to all tracks). -define('EBML_ID_CUETRACKPOSITIONS', 0x37); // [B7] -- Contain positions for different tracks corresponding to the timecode. -define('EBML_ID_FLAGENABLED', 0x39); // [B9] -- Set if the track is used. -define('EBML_ID_PIXELHEIGHT', 0x3A); // [BA] -- Height of the encoded video frames in pixels. -define('EBML_ID_CUEPOINT', 0x3B); // [BB] -- Contains all information relative to a seek point in the segment. -define('EBML_ID_CRC32', 0x3F); // [BF] -- The CRC is computed on all the data of the Master element it's in, regardless of its position. It's recommended to put the CRC value at the beggining of the Master element for easier reading. All level 1 elements should include a CRC-32. -define('EBML_ID_CLUSTERBLOCKADDITIONID', 0x4B); // [CB] -- The ID of the BlockAdditional element (0 is the main Block). -define('EBML_ID_CLUSTERLACENUMBER', 0x4C); // [CC] -- The reverse number of the frame in the lace (0 is the last frame, 1 is the next to last, etc). While there are a few files in the wild with this element, it is no longer in use and has been deprecated. Being able to interpret this element is not required for playback. -define('EBML_ID_CLUSTERFRAMENUMBER', 0x4D); // [CD] -- The number of the frame to generate from this lace with this delay (allow you to generate many frames from the same Block/Frame). -define('EBML_ID_CLUSTERDELAY', 0x4E); // [CE] -- The (scaled) delay to apply to the element. -define('EBML_ID_CLUSTERDURATION', 0x4F); // [CF] -- The (scaled) duration to apply to the element. -define('EBML_ID_TRACKNUMBER', 0x57); // [D7] -- The track number as used in the Block Header (using more than 127 tracks is not encouraged, though the design allows an unlimited number). -define('EBML_ID_CUEREFERENCE', 0x5B); // [DB] -- The Clusters containing the required referenced Blocks. -define('EBML_ID_VIDEO', 0x60); // [E0] -- Video settings. -define('EBML_ID_AUDIO', 0x61); // [E1] -- Audio settings. -define('EBML_ID_CLUSTERTIMESLICE', 0x68); // [E8] -- Contains extra time information about the data contained in the Block. While there are a few files in the wild with this element, it is no longer in use and has been deprecated. Being able to interpret this element is not required for playback. -define('EBML_ID_CUECODECSTATE', 0x6A); // [EA] -- The position of the Codec State corresponding to this Cue element. 0 means that the data is taken from the initial Track Entry. -define('EBML_ID_CUEREFCODECSTATE', 0x6B); // [EB] -- The position of the Codec State corresponding to this referenced element. 0 means that the data is taken from the initial Track Entry. -define('EBML_ID_VOID', 0x6C); // [EC] -- Used to void damaged data, to avoid unexpected behaviors when using damaged data. The content is discarded. Also used to reserve space in a sub-element for later use. -define('EBML_ID_CLUSTERTIMECODE', 0x67); // [E7] -- Absolute timecode of the cluster (based on TimecodeScale). -define('EBML_ID_CLUSTERBLOCKADDID', 0x6E); // [EE] -- An ID to identify the BlockAdditional level. -define('EBML_ID_CUECLUSTERPOSITION', 0x71); // [F1] -- The position of the Cluster containing the required Block. -define('EBML_ID_CUETRACK', 0x77); // [F7] -- The track for which a position is given. -define('EBML_ID_CLUSTERREFERENCEPRIORITY', 0x7A); // [FA] -- This frame is referenced and has the specified cache priority. In cache only a frame of the same or higher priority can replace this frame. A value of 0 means the frame is not referenced. -define('EBML_ID_CLUSTERREFERENCEBLOCK', 0x7B); // [FB] -- Timecode of another frame used as a reference (ie: B or P frame). The timecode is relative to the block it's attached to. -define('EBML_ID_CLUSTERREFERENCEVIRTUAL', 0x7D); // [FD] -- Relative position of the data that should be in position of the virtual block. - - -/** -* @tutorial http://www.matroska.org/technical/specs/index.html -* -* @todo Rewrite EBML parser to reduce it's size and honor default element values -* @todo After rewrite implement stream size calculation, that will provide additional useful info and enable AAC/FLAC audio bitrate detection -*/ -class getid3_matroska extends getid3_handler -{ - // public options - public static $hide_clusters = true; // if true, do not return information about CLUSTER chunks, since there's a lot of them and they're not usually useful [default: TRUE] - public static $parse_whole_file = false; // true to parse the whole file, not only header [default: FALSE] - - // private parser settings/placeholders - private $EBMLbuffer = ''; - private $EBMLbuffer_offset = 0; - private $EBMLbuffer_length = 0; - private $current_offset = 0; - private $unuseful_elements = array(EBML_ID_CRC32, EBML_ID_VOID); - - public function Analyze() - { - $info = &$this->getid3->info; - - // parse container - try { - $this->parseEBML($info); - } catch (Exception $e) { - $info['error'][] = 'EBML parser: '.$e->getMessage(); - } - - // calculate playtime - if (isset($info['matroska']['info']) && is_array($info['matroska']['info'])) { - foreach ($info['matroska']['info'] as $key => $infoarray) { - if (isset($infoarray['Duration'])) { - // TimecodeScale is how many nanoseconds each Duration unit is - $info['playtime_seconds'] = $infoarray['Duration'] * ((isset($infoarray['TimecodeScale']) ? $infoarray['TimecodeScale'] : 1000000) / 1000000000); - break; - } - } - } - - // extract tags - if (isset($info['matroska']['tags']) && is_array($info['matroska']['tags'])) { - foreach ($info['matroska']['tags'] as $key => $infoarray) { - $this->ExtractCommentsSimpleTag($infoarray); - } - } - - // process tracks - if (isset($info['matroska']['tracks']['tracks']) && is_array($info['matroska']['tracks']['tracks'])) { - foreach ($info['matroska']['tracks']['tracks'] as $key => $trackarray) { - - $track_info = array(); - $track_info['dataformat'] = self::CodecIDtoCommonName($trackarray['CodecID']); - $track_info['default'] = (isset($trackarray['FlagDefault']) ? $trackarray['FlagDefault'] : true); - if (isset($trackarray['Name'])) { $track_info['name'] = $trackarray['Name']; } - - switch ($trackarray['TrackType']) { - - case 1: // Video - $track_info['resolution_x'] = $trackarray['PixelWidth']; - $track_info['resolution_y'] = $trackarray['PixelHeight']; - $track_info['display_unit'] = self::displayUnit(isset($trackarray['DisplayUnit']) ? $trackarray['DisplayUnit'] : 0); - $track_info['display_x'] = (isset($trackarray['DisplayWidth']) ? $trackarray['DisplayWidth'] : $trackarray['PixelWidth']); - $track_info['display_y'] = (isset($trackarray['DisplayHeight']) ? $trackarray['DisplayHeight'] : $trackarray['PixelHeight']); - - if (isset($trackarray['PixelCropBottom'])) { $track_info['crop_bottom'] = $trackarray['PixelCropBottom']; } - if (isset($trackarray['PixelCropTop'])) { $track_info['crop_top'] = $trackarray['PixelCropTop']; } - if (isset($trackarray['PixelCropLeft'])) { $track_info['crop_left'] = $trackarray['PixelCropLeft']; } - if (isset($trackarray['PixelCropRight'])) { $track_info['crop_right'] = $trackarray['PixelCropRight']; } - if (isset($trackarray['DefaultDuration'])) { $track_info['frame_rate'] = round(1000000000 / $trackarray['DefaultDuration'], 3); } - if (isset($trackarray['CodecName'])) { $track_info['codec'] = $trackarray['CodecName']; } - - switch ($trackarray['CodecID']) { - case 'V_MS/VFW/FOURCC': - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, false)) { - $this->warning('Unable to parse codec private data ['.basename(__FILE__).':'.__LINE__.'] because cannot include "module.audio-video.riff.php"'); - break; - } - $parsed = getid3_riff::ParseBITMAPINFOHEADER($trackarray['CodecPrivate']); - $track_info['codec'] = getid3_riff::fourccLookup($parsed['fourcc']); - $info['matroska']['track_codec_parsed'][$trackarray['TrackNumber']] = $parsed; - break; - - /*case 'V_MPEG4/ISO/AVC': - $h264['profile'] = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], 1, 1)); - $h264['level'] = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], 3, 1)); - $rn = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], 4, 1)); - $h264['NALUlength'] = ($rn & 3) + 1; - $rn = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], 5, 1)); - $nsps = ($rn & 31); - $offset = 6; - for ($i = 0; $i < $nsps; $i ++) { - $length = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], $offset, 2)); - $h264['SPS'][] = substr($trackarray['CodecPrivate'], $offset + 2, $length); - $offset += 2 + $length; - } - $npps = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], $offset, 1)); - $offset += 1; - for ($i = 0; $i < $npps; $i ++) { - $length = getid3_lib::BigEndian2Int(substr($trackarray['CodecPrivate'], $offset, 2)); - $h264['PPS'][] = substr($trackarray['CodecPrivate'], $offset + 2, $length); - $offset += 2 + $length; - } - $info['matroska']['track_codec_parsed'][$trackarray['TrackNumber']] = $h264; - break;*/ - } - - $info['video']['streams'][] = $track_info; - break; - - case 2: // Audio - $track_info['sample_rate'] = (isset($trackarray['SamplingFrequency']) ? $trackarray['SamplingFrequency'] : 8000.0); - $track_info['channels'] = (isset($trackarray['Channels']) ? $trackarray['Channels'] : 1); - $track_info['language'] = (isset($trackarray['Language']) ? $trackarray['Language'] : 'eng'); - if (isset($trackarray['BitDepth'])) { $track_info['bits_per_sample'] = $trackarray['BitDepth']; } - if (isset($trackarray['CodecName'])) { $track_info['codec'] = $trackarray['CodecName']; } - - switch ($trackarray['CodecID']) { - case 'A_PCM/INT/LIT': - case 'A_PCM/INT/BIG': - $track_info['bitrate'] = $trackarray['SamplingFrequency'] * $trackarray['Channels'] * $trackarray['BitDepth']; - break; - - case 'A_AC3': - case 'A_DTS': - case 'A_MPEG/L3': - case 'A_MPEG/L2': - case 'A_FLAC': - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.'.($track_info['dataformat'] == 'mp2' ? 'mp3' : $track_info['dataformat']).'.php', __FILE__, false)) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because cannot include "module.audio.'.$track_info['dataformat'].'.php"'); - break; - } - - if (!isset($info['matroska']['track_data_offsets'][$trackarray['TrackNumber']])) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because $info[matroska][track_data_offsets]['.$trackarray['TrackNumber'].'] not set'); - break; - } - - // create temp instance - $getid3_temp = new getID3(); - if ($track_info['dataformat'] != 'flac') { - $getid3_temp->openfile($this->getid3->filename); - } - $getid3_temp->info['avdataoffset'] = $info['matroska']['track_data_offsets'][$trackarray['TrackNumber']]['offset']; - if ($track_info['dataformat'][0] == 'm' || $track_info['dataformat'] == 'flac') { - $getid3_temp->info['avdataend'] = $info['matroska']['track_data_offsets'][$trackarray['TrackNumber']]['offset'] + $info['matroska']['track_data_offsets'][$trackarray['TrackNumber']]['length']; - } - - // analyze - $class = 'getid3_'.($track_info['dataformat'] == 'mp2' ? 'mp3' : $track_info['dataformat']); - $header_data_key = $track_info['dataformat'][0] == 'm' ? 'mpeg' : $track_info['dataformat']; - $getid3_audio = new $class($getid3_temp, __CLASS__); - if ($track_info['dataformat'] == 'flac') { - $getid3_audio->AnalyzeString($trackarray['CodecPrivate']); - } - else { - $getid3_audio->Analyze(); - } - if (!empty($getid3_temp->info[$header_data_key])) { - $info['matroska']['track_codec_parsed'][$trackarray['TrackNumber']] = $getid3_temp->info[$header_data_key]; - if (isset($getid3_temp->info['audio']) && is_array($getid3_temp->info['audio'])) { - foreach ($getid3_temp->info['audio'] as $key => $value) { - $track_info[$key] = $value; - } - } - } - else { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because '.$class.'::Analyze() failed at offset '.$getid3_temp->info['avdataoffset']); - } - - // copy errors and warnings - if (!empty($getid3_temp->info['error'])) { - foreach ($getid3_temp->info['error'] as $newerror) { - $this->warning($class.'() says: ['.$newerror.']'); - } - } - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $newerror) { - if ($track_info['dataformat'] == 'mp3' && preg_match('/^Probable truncated file: expecting \d+ bytes of audio data, only found \d+ \(short by \d+ bytes\)$/', $newerror)) { - // LAME/Xing header is probably set, but audio data is chunked into Matroska file and near-impossible to verify if audio stream is complete, so ignore useless warning - continue; - } - $this->warning($class.'() says: ['.$newerror.']'); - } - } - unset($getid3_temp, $getid3_audio); - break; - - case 'A_AAC': - case 'A_AAC/MPEG2/LC': - case 'A_AAC/MPEG2/LC/SBR': - case 'A_AAC/MPEG4/LC': - case 'A_AAC/MPEG4/LC/SBR': - $this->warning($trackarray['CodecID'].' audio data contains no header, audio/video bitrates can\'t be calculated'); - break; - - case 'A_VORBIS': - if (!isset($trackarray['CodecPrivate'])) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because CodecPrivate data not set'); - break; - } - $vorbis_offset = strpos($trackarray['CodecPrivate'], 'vorbis', 1); - if ($vorbis_offset === false) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because CodecPrivate data does not contain "vorbis" keyword'); - break; - } - $vorbis_offset -= 1; - - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.ogg.php', __FILE__, false)) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because cannot include "module.audio.ogg.php"'); - break; - } - - // create temp instance - $getid3_temp = new getID3(); - - // analyze - $getid3_ogg = new getid3_ogg($getid3_temp); - $oggpageinfo['page_seqno'] = 0; - $getid3_ogg->ParseVorbisPageHeader($trackarray['CodecPrivate'], $vorbis_offset, $oggpageinfo); - if (!empty($getid3_temp->info['ogg'])) { - $info['matroska']['track_codec_parsed'][$trackarray['TrackNumber']] = $getid3_temp->info['ogg']; - if (isset($getid3_temp->info['audio']) && is_array($getid3_temp->info['audio'])) { - foreach ($getid3_temp->info['audio'] as $key => $value) { - $track_info[$key] = $value; - } - } - } - - // copy errors and warnings - if (!empty($getid3_temp->info['error'])) { - foreach ($getid3_temp->info['error'] as $newerror) { - $this->warning('getid3_ogg() says: ['.$newerror.']'); - } - } - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $newerror) { - $this->warning('getid3_ogg() says: ['.$newerror.']'); - } - } - - if (!empty($getid3_temp->info['ogg']['bitrate_nominal'])) { - $track_info['bitrate'] = $getid3_temp->info['ogg']['bitrate_nominal']; - } - unset($getid3_temp, $getid3_ogg, $oggpageinfo, $vorbis_offset); - break; - - case 'A_MS/ACM': - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, false)) { - $this->warning('Unable to parse audio data ['.basename(__FILE__).':'.__LINE__.'] because cannot include "module.audio-video.riff.php"'); - break; - } - - $parsed = getid3_riff::parseWAVEFORMATex($trackarray['CodecPrivate']); - foreach ($parsed as $key => $value) { - if ($key != 'raw') { - $track_info[$key] = $value; - } - } - $info['matroska']['track_codec_parsed'][$trackarray['TrackNumber']] = $parsed; - break; - - default: - $this->warning('Unhandled audio type "'.(isset($trackarray['CodecID']) ? $trackarray['CodecID'] : '').'"'); - } - - $info['audio']['streams'][] = $track_info; - break; - } - } - - if (!empty($info['video']['streams'])) { - $info['video'] = self::getDefaultStreamInfo($info['video']['streams']); - } - if (!empty($info['audio']['streams'])) { - $info['audio'] = self::getDefaultStreamInfo($info['audio']['streams']); - } - } - - // process attachments - if (isset($info['matroska']['attachments']) && $this->getid3->option_save_attachments !== getID3::ATTACHMENTS_NONE) { - foreach ($info['matroska']['attachments'] as $i => $entry) { - if (strpos($entry['FileMimeType'], 'image/') === 0 && !empty($entry['FileData'])) { - $info['matroska']['comments']['picture'][] = array('data' => $entry['FileData'], 'image_mime' => $entry['FileMimeType'], 'filename' => $entry['FileName']); - } - } - } - - // determine mime type - if (!empty($info['video']['streams'])) { - $info['mime_type'] = ($info['matroska']['doctype'] == 'webm' ? 'video/webm' : 'video/x-matroska'); - } elseif (!empty($info['audio']['streams'])) { - $info['mime_type'] = ($info['matroska']['doctype'] == 'webm' ? 'audio/webm' : 'audio/x-matroska'); - } elseif (isset($info['mime_type'])) { - unset($info['mime_type']); - } - - return true; - } - - private function parseEBML(&$info) { - // http://www.matroska.org/technical/specs/index.html#EBMLBasics - $this->current_offset = $info['avdataoffset']; - - while ($this->getEBMLelement($top_element, $info['avdataend'])) { - switch ($top_element['id']) { - - case EBML_ID_EBML: - $info['fileformat'] = 'matroska'; - $info['matroska']['header']['offset'] = $top_element['offset']; - $info['matroska']['header']['length'] = $top_element['length']; - - while ($this->getEBMLelement($element_data, $top_element['end'], true)) { - switch ($element_data['id']) { - - case EBML_ID_EBMLVERSION: - case EBML_ID_EBMLREADVERSION: - case EBML_ID_EBMLMAXIDLENGTH: - case EBML_ID_EBMLMAXSIZELENGTH: - case EBML_ID_DOCTYPEVERSION: - case EBML_ID_DOCTYPEREADVERSION: - $element_data['data'] = getid3_lib::BigEndian2Int($element_data['data']); - break; - - case EBML_ID_DOCTYPE: - $element_data['data'] = getid3_lib::trimNullByte($element_data['data']); - $info['matroska']['doctype'] = $element_data['data']; - break; - - default: - $this->unhandledElement('header', __LINE__, $element_data); - } - - unset($element_data['offset'], $element_data['end']); - $info['matroska']['header']['elements'][] = $element_data; - } - break; - - case EBML_ID_SEGMENT: - $info['matroska']['segment'][0]['offset'] = $top_element['offset']; - $info['matroska']['segment'][0]['length'] = $top_element['length']; - - while ($this->getEBMLelement($element_data, $top_element['end'])) { - if ($element_data['id'] != EBML_ID_CLUSTER || !self::$hide_clusters) { // collect clusters only if required - $info['matroska']['segments'][] = $element_data; - } - switch ($element_data['id']) { - - case EBML_ID_SEEKHEAD: // Contains the position of other level 1 elements. - - while ($this->getEBMLelement($seek_entry, $element_data['end'])) { - switch ($seek_entry['id']) { - - case EBML_ID_SEEK: // Contains a single seek entry to an EBML element - while ($this->getEBMLelement($sub_seek_entry, $seek_entry['end'], true)) { - - switch ($sub_seek_entry['id']) { - - case EBML_ID_SEEKID: - $seek_entry['target_id'] = self::EBML2Int($sub_seek_entry['data']); - $seek_entry['target_name'] = self::EBMLidName($seek_entry['target_id']); - break; - - case EBML_ID_SEEKPOSITION: - $seek_entry['target_offset'] = $element_data['offset'] + getid3_lib::BigEndian2Int($sub_seek_entry['data']); - break; - - default: - $this->unhandledElement('seekhead.seek', __LINE__, $sub_seek_entry); } - } - - if ($seek_entry['target_id'] != EBML_ID_CLUSTER || !self::$hide_clusters) { // collect clusters only if required - $info['matroska']['seek'][] = $seek_entry; - } - break; - - default: - $this->unhandledElement('seekhead', __LINE__, $seek_entry); - } - } - break; - - case EBML_ID_TRACKS: // A top-level block of information with many tracks described. - $info['matroska']['tracks'] = $element_data; - - while ($this->getEBMLelement($track_entry, $element_data['end'])) { - switch ($track_entry['id']) { - - case EBML_ID_TRACKENTRY: //subelements: Describes a track with all elements. - - while ($this->getEBMLelement($subelement, $track_entry['end'], array(EBML_ID_VIDEO, EBML_ID_AUDIO, EBML_ID_CONTENTENCODINGS, EBML_ID_CODECPRIVATE))) { - switch ($subelement['id']) { - - case EBML_ID_TRACKNUMBER: - case EBML_ID_TRACKUID: - case EBML_ID_TRACKTYPE: - case EBML_ID_MINCACHE: - case EBML_ID_MAXCACHE: - case EBML_ID_MAXBLOCKADDITIONID: - case EBML_ID_DEFAULTDURATION: // nanoseconds per frame - $track_entry[$subelement['id_name']] = getid3_lib::BigEndian2Int($subelement['data']); - break; - - case EBML_ID_TRACKTIMECODESCALE: - $track_entry[$subelement['id_name']] = getid3_lib::BigEndian2Float($subelement['data']); - break; - - case EBML_ID_CODECID: - case EBML_ID_LANGUAGE: - case EBML_ID_NAME: - case EBML_ID_CODECNAME: - $track_entry[$subelement['id_name']] = getid3_lib::trimNullByte($subelement['data']); - break; - - case EBML_ID_CODECPRIVATE: - $track_entry[$subelement['id_name']] = $this->readEBMLelementData($subelement['length'], true); - break; - - case EBML_ID_FLAGENABLED: - case EBML_ID_FLAGDEFAULT: - case EBML_ID_FLAGFORCED: - case EBML_ID_FLAGLACING: - case EBML_ID_CODECDECODEALL: - $track_entry[$subelement['id_name']] = (bool) getid3_lib::BigEndian2Int($subelement['data']); - break; - - case EBML_ID_VIDEO: - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], true)) { - switch ($sub_subelement['id']) { - - case EBML_ID_PIXELWIDTH: - case EBML_ID_PIXELHEIGHT: - case EBML_ID_PIXELCROPBOTTOM: - case EBML_ID_PIXELCROPTOP: - case EBML_ID_PIXELCROPLEFT: - case EBML_ID_PIXELCROPRIGHT: - case EBML_ID_DISPLAYWIDTH: - case EBML_ID_DISPLAYHEIGHT: - case EBML_ID_DISPLAYUNIT: - case EBML_ID_ASPECTRATIOTYPE: - case EBML_ID_STEREOMODE: - case EBML_ID_OLDSTEREOMODE: - $track_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_FLAGINTERLACED: - $track_entry[$sub_subelement['id_name']] = (bool)getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_GAMMAVALUE: - $track_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Float($sub_subelement['data']); - break; - - case EBML_ID_COLOURSPACE: - $track_entry[$sub_subelement['id_name']] = getid3_lib::trimNullByte($sub_subelement['data']); - break; - - default: - $this->unhandledElement('track.video', __LINE__, $sub_subelement); - } - } - break; - - case EBML_ID_AUDIO: - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], true)) { - switch ($sub_subelement['id']) { - - case EBML_ID_CHANNELS: - case EBML_ID_BITDEPTH: - $track_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_SAMPLINGFREQUENCY: - case EBML_ID_OUTPUTSAMPLINGFREQUENCY: - $track_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Float($sub_subelement['data']); - break; - - case EBML_ID_CHANNELPOSITIONS: - $track_entry[$sub_subelement['id_name']] = getid3_lib::trimNullByte($sub_subelement['data']); - break; - - default: - $this->unhandledElement('track.audio', __LINE__, $sub_subelement); - } - } - break; - - case EBML_ID_CONTENTENCODINGS: - - while ($this->getEBMLelement($sub_subelement, $subelement['end'])) { - switch ($sub_subelement['id']) { - - case EBML_ID_CONTENTENCODING: - - while ($this->getEBMLelement($sub_sub_subelement, $sub_subelement['end'], array(EBML_ID_CONTENTCOMPRESSION, EBML_ID_CONTENTENCRYPTION))) { - switch ($sub_sub_subelement['id']) { - - case EBML_ID_CONTENTENCODINGORDER: - case EBML_ID_CONTENTENCODINGSCOPE: - case EBML_ID_CONTENTENCODINGTYPE: - $track_entry[$sub_subelement['id_name']][$sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - break; - - case EBML_ID_CONTENTCOMPRESSION: - - while ($this->getEBMLelement($sub_sub_sub_subelement, $sub_sub_subelement['end'], true)) { - switch ($sub_sub_sub_subelement['id']) { - - case EBML_ID_CONTENTCOMPALGO: - $track_entry[$sub_subelement['id_name']][$sub_sub_subelement['id_name']][$sub_sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_sub_subelement['data']); - break; - - case EBML_ID_CONTENTCOMPSETTINGS: - $track_entry[$sub_subelement['id_name']][$sub_sub_subelement['id_name']][$sub_sub_sub_subelement['id_name']] = $sub_sub_sub_subelement['data']; - break; - - default: - $this->unhandledElement('track.contentencodings.contentencoding.contentcompression', __LINE__, $sub_sub_sub_subelement); - } - } - break; - - case EBML_ID_CONTENTENCRYPTION: - - while ($this->getEBMLelement($sub_sub_sub_subelement, $sub_sub_subelement['end'], true)) { - switch ($sub_sub_sub_subelement['id']) { - - case EBML_ID_CONTENTENCALGO: - case EBML_ID_CONTENTSIGALGO: - case EBML_ID_CONTENTSIGHASHALGO: - $track_entry[$sub_subelement['id_name']][$sub_sub_subelement['id_name']][$sub_sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_sub_subelement['data']); - break; - - case EBML_ID_CONTENTENCKEYID: - case EBML_ID_CONTENTSIGNATURE: - case EBML_ID_CONTENTSIGKEYID: - $track_entry[$sub_subelement['id_name']][$sub_sub_subelement['id_name']][$sub_sub_sub_subelement['id_name']] = $sub_sub_sub_subelement['data']; - break; - - default: - $this->unhandledElement('track.contentencodings.contentencoding.contentcompression', __LINE__, $sub_sub_sub_subelement); - } - } - break; - - default: - $this->unhandledElement('track.contentencodings.contentencoding', __LINE__, $sub_sub_subelement); - } - } - break; - - default: - $this->unhandledElement('track.contentencodings', __LINE__, $sub_subelement); - } - } - break; - - default: - $this->unhandledElement('track', __LINE__, $subelement); - } - } - - $info['matroska']['tracks']['tracks'][] = $track_entry; - break; - - default: - $this->unhandledElement('tracks', __LINE__, $track_entry); - } - } - break; - - case EBML_ID_INFO: // Contains miscellaneous general information and statistics on the file. - $info_entry = array(); - - while ($this->getEBMLelement($subelement, $element_data['end'], true)) { - switch ($subelement['id']) { - - case EBML_ID_TIMECODESCALE: - $info_entry[$subelement['id_name']] = getid3_lib::BigEndian2Int($subelement['data']); - break; - - case EBML_ID_DURATION: - $info_entry[$subelement['id_name']] = getid3_lib::BigEndian2Float($subelement['data']); - break; - - case EBML_ID_DATEUTC: - $info_entry[$subelement['id_name']] = getid3_lib::BigEndian2Int($subelement['data']); - $info_entry[$subelement['id_name'].'_unix'] = self::EBMLdate2unix($info_entry[$subelement['id_name']]); - break; - - case EBML_ID_SEGMENTUID: - case EBML_ID_PREVUID: - case EBML_ID_NEXTUID: - $info_entry[$subelement['id_name']] = getid3_lib::trimNullByte($subelement['data']); - break; - - case EBML_ID_SEGMENTFAMILY: - $info_entry[$subelement['id_name']][] = getid3_lib::trimNullByte($subelement['data']); - break; - - case EBML_ID_SEGMENTFILENAME: - case EBML_ID_PREVFILENAME: - case EBML_ID_NEXTFILENAME: - case EBML_ID_TITLE: - case EBML_ID_MUXINGAPP: - case EBML_ID_WRITINGAPP: - $info_entry[$subelement['id_name']] = getid3_lib::trimNullByte($subelement['data']); - $info['matroska']['comments'][strtolower($subelement['id_name'])][] = $info_entry[$subelement['id_name']]; - break; - - case EBML_ID_CHAPTERTRANSLATE: - $chaptertranslate_entry = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], true)) { - switch ($sub_subelement['id']) { - - case EBML_ID_CHAPTERTRANSLATEEDITIONUID: - $chaptertranslate_entry[$sub_subelement['id_name']][] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_CHAPTERTRANSLATECODEC: - $chaptertranslate_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_CHAPTERTRANSLATEID: - $chaptertranslate_entry[$sub_subelement['id_name']] = getid3_lib::trimNullByte($sub_subelement['data']); - break; - - default: - $this->unhandledElement('info.chaptertranslate', __LINE__, $sub_subelement); - } - } - $info_entry[$subelement['id_name']] = $chaptertranslate_entry; - break; - - default: - $this->unhandledElement('info', __LINE__, $subelement); - } - } - $info['matroska']['info'][] = $info_entry; - break; - - case EBML_ID_CUES: // A top-level element to speed seeking access. All entries are local to the segment. Should be mandatory for non "live" streams. - if (self::$hide_clusters) { // do not parse cues if hide clusters is "ON" till they point to clusters anyway - $this->current_offset = $element_data['end']; - break; - } - $cues_entry = array(); - - while ($this->getEBMLelement($subelement, $element_data['end'])) { - switch ($subelement['id']) { - - case EBML_ID_CUEPOINT: - $cuepoint_entry = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], array(EBML_ID_CUETRACKPOSITIONS))) { - switch ($sub_subelement['id']) { - - case EBML_ID_CUETRACKPOSITIONS: - $cuetrackpositions_entry = array(); - - while ($this->getEBMLelement($sub_sub_subelement, $sub_subelement['end'], true)) { - switch ($sub_sub_subelement['id']) { - - case EBML_ID_CUETRACK: - case EBML_ID_CUECLUSTERPOSITION: - case EBML_ID_CUEBLOCKNUMBER: - case EBML_ID_CUECODECSTATE: - $cuetrackpositions_entry[$sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - break; - - default: - $this->unhandledElement('cues.cuepoint.cuetrackpositions', __LINE__, $sub_sub_subelement); - } - } - $cuepoint_entry[$sub_subelement['id_name']][] = $cuetrackpositions_entry; - break; - - case EBML_ID_CUETIME: - $cuepoint_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - default: - $this->unhandledElement('cues.cuepoint', __LINE__, $sub_subelement); - } - } - $cues_entry[] = $cuepoint_entry; - break; - - default: - $this->unhandledElement('cues', __LINE__, $subelement); - } - } - $info['matroska']['cues'] = $cues_entry; - break; - - case EBML_ID_TAGS: // Element containing elements specific to Tracks/Chapters. - $tags_entry = array(); - - while ($this->getEBMLelement($subelement, $element_data['end'], false)) { - switch ($subelement['id']) { - - case EBML_ID_TAG: - $tag_entry = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], false)) { - switch ($sub_subelement['id']) { - - case EBML_ID_TARGETS: - $targets_entry = array(); - - while ($this->getEBMLelement($sub_sub_subelement, $sub_subelement['end'], true)) { - switch ($sub_sub_subelement['id']) { - - case EBML_ID_TARGETTYPEVALUE: - $targets_entry[$sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - $targets_entry[strtolower($sub_sub_subelement['id_name']).'_long'] = self::TargetTypeValue($targets_entry[$sub_sub_subelement['id_name']]); - break; - - case EBML_ID_TARGETTYPE: - $targets_entry[$sub_sub_subelement['id_name']] = $sub_sub_subelement['data']; - break; - - case EBML_ID_TAGTRACKUID: - case EBML_ID_TAGEDITIONUID: - case EBML_ID_TAGCHAPTERUID: - case EBML_ID_TAGATTACHMENTUID: - $targets_entry[$sub_sub_subelement['id_name']][] = getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - break; - - default: - $this->unhandledElement('tags.tag.targets', __LINE__, $sub_sub_subelement); - } - } - $tag_entry[$sub_subelement['id_name']] = $targets_entry; - break; - - case EBML_ID_SIMPLETAG: - $tag_entry[$sub_subelement['id_name']][] = $this->HandleEMBLSimpleTag($sub_subelement['end']); - break; - - default: - $this->unhandledElement('tags.tag', __LINE__, $sub_subelement); - } - } - $tags_entry[] = $tag_entry; - break; - - default: - $this->unhandledElement('tags', __LINE__, $subelement); - } - } - $info['matroska']['tags'] = $tags_entry; - break; - - case EBML_ID_ATTACHMENTS: // Contain attached files. - - while ($this->getEBMLelement($subelement, $element_data['end'])) { - switch ($subelement['id']) { - - case EBML_ID_ATTACHEDFILE: - $attachedfile_entry = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], array(EBML_ID_FILEDATA))) { - switch ($sub_subelement['id']) { - - case EBML_ID_FILEDESCRIPTION: - case EBML_ID_FILENAME: - case EBML_ID_FILEMIMETYPE: - $attachedfile_entry[$sub_subelement['id_name']] = $sub_subelement['data']; - break; - - case EBML_ID_FILEDATA: - $attachedfile_entry['data_offset'] = $this->current_offset; - $attachedfile_entry['data_length'] = $sub_subelement['length']; - - $attachedfile_entry[$sub_subelement['id_name']] = $this->saveAttachment( - $attachedfile_entry['FileName'], - $attachedfile_entry['data_offset'], - $attachedfile_entry['data_length']); - - $this->current_offset = $sub_subelement['end']; - break; - - case EBML_ID_FILEUID: - $attachedfile_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - default: - $this->unhandledElement('attachments.attachedfile', __LINE__, $sub_subelement); - } - } - $info['matroska']['attachments'][] = $attachedfile_entry; - break; - - default: - $this->unhandledElement('attachments', __LINE__, $subelement); - } - } - break; - - case EBML_ID_CHAPTERS: - - while ($this->getEBMLelement($subelement, $element_data['end'])) { - switch ($subelement['id']) { - - case EBML_ID_EDITIONENTRY: - $editionentry_entry = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], array(EBML_ID_CHAPTERATOM))) { - switch ($sub_subelement['id']) { - - case EBML_ID_EDITIONUID: - $editionentry_entry[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_EDITIONFLAGHIDDEN: - case EBML_ID_EDITIONFLAGDEFAULT: - case EBML_ID_EDITIONFLAGORDERED: - $editionentry_entry[$sub_subelement['id_name']] = (bool)getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_CHAPTERATOM: - $chapteratom_entry = array(); - - while ($this->getEBMLelement($sub_sub_subelement, $sub_subelement['end'], array(EBML_ID_CHAPTERTRACK, EBML_ID_CHAPTERDISPLAY))) { - switch ($sub_sub_subelement['id']) { - - case EBML_ID_CHAPTERSEGMENTUID: - case EBML_ID_CHAPTERSEGMENTEDITIONUID: - $chapteratom_entry[$sub_sub_subelement['id_name']] = $sub_sub_subelement['data']; - break; - - case EBML_ID_CHAPTERFLAGENABLED: - case EBML_ID_CHAPTERFLAGHIDDEN: - $chapteratom_entry[$sub_sub_subelement['id_name']] = (bool)getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - break; - - case EBML_ID_CHAPTERUID: - case EBML_ID_CHAPTERTIMESTART: - case EBML_ID_CHAPTERTIMEEND: - $chapteratom_entry[$sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_subelement['data']); - break; - - case EBML_ID_CHAPTERTRACK: - $chaptertrack_entry = array(); - - while ($this->getEBMLelement($sub_sub_sub_subelement, $sub_sub_subelement['end'], true)) { - switch ($sub_sub_sub_subelement['id']) { - - case EBML_ID_CHAPTERTRACKNUMBER: - $chaptertrack_entry[$sub_sub_sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_sub_sub_subelement['data']); - break; - - default: - $this->unhandledElement('chapters.editionentry.chapteratom.chaptertrack', __LINE__, $sub_sub_sub_subelement); - } - } - $chapteratom_entry[$sub_sub_subelement['id_name']][] = $chaptertrack_entry; - break; - - case EBML_ID_CHAPTERDISPLAY: - $chapterdisplay_entry = array(); - - while ($this->getEBMLelement($sub_sub_sub_subelement, $sub_sub_subelement['end'], true)) { - switch ($sub_sub_sub_subelement['id']) { - - case EBML_ID_CHAPSTRING: - case EBML_ID_CHAPLANGUAGE: - case EBML_ID_CHAPCOUNTRY: - $chapterdisplay_entry[$sub_sub_sub_subelement['id_name']] = $sub_sub_sub_subelement['data']; - break; - - default: - $this->unhandledElement('chapters.editionentry.chapteratom.chapterdisplay', __LINE__, $sub_sub_sub_subelement); - } - } - $chapteratom_entry[$sub_sub_subelement['id_name']][] = $chapterdisplay_entry; - break; - - default: - $this->unhandledElement('chapters.editionentry.chapteratom', __LINE__, $sub_sub_subelement); - } - } - $editionentry_entry[$sub_subelement['id_name']][] = $chapteratom_entry; - break; - - default: - $this->unhandledElement('chapters.editionentry', __LINE__, $sub_subelement); - } - } - $info['matroska']['chapters'][] = $editionentry_entry; - break; - - default: - $this->unhandledElement('chapters', __LINE__, $subelement); - } - } - break; - - case EBML_ID_CLUSTER: // The lower level element containing the (monolithic) Block structure. - $cluster_entry = array(); - - while ($this->getEBMLelement($subelement, $element_data['end'], array(EBML_ID_CLUSTERSILENTTRACKS, EBML_ID_CLUSTERBLOCKGROUP, EBML_ID_CLUSTERSIMPLEBLOCK))) { - switch ($subelement['id']) { - - case EBML_ID_CLUSTERTIMECODE: - case EBML_ID_CLUSTERPOSITION: - case EBML_ID_CLUSTERPREVSIZE: - $cluster_entry[$subelement['id_name']] = getid3_lib::BigEndian2Int($subelement['data']); - break; - - case EBML_ID_CLUSTERSILENTTRACKS: - $cluster_silent_tracks = array(); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], true)) { - switch ($sub_subelement['id']) { - - case EBML_ID_CLUSTERSILENTTRACKNUMBER: - $cluster_silent_tracks[] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - default: - $this->unhandledElement('cluster.silenttracks', __LINE__, $sub_subelement); - } - } - $cluster_entry[$subelement['id_name']][] = $cluster_silent_tracks; - break; - - case EBML_ID_CLUSTERBLOCKGROUP: - $cluster_block_group = array('offset' => $this->current_offset); - - while ($this->getEBMLelement($sub_subelement, $subelement['end'], array(EBML_ID_CLUSTERBLOCK))) { - switch ($sub_subelement['id']) { - - case EBML_ID_CLUSTERBLOCK: - $cluster_block_group[$sub_subelement['id_name']] = $this->HandleEMBLClusterBlock($sub_subelement, EBML_ID_CLUSTERBLOCK, $info); - break; - - case EBML_ID_CLUSTERREFERENCEPRIORITY: // unsigned-int - case EBML_ID_CLUSTERBLOCKDURATION: // unsigned-int - $cluster_block_group[$sub_subelement['id_name']] = getid3_lib::BigEndian2Int($sub_subelement['data']); - break; - - case EBML_ID_CLUSTERREFERENCEBLOCK: // signed-int - $cluster_block_group[$sub_subelement['id_name']][] = getid3_lib::BigEndian2Int($sub_subelement['data'], false, true); - break; - - case EBML_ID_CLUSTERCODECSTATE: - $cluster_block_group[$sub_subelement['id_name']] = getid3_lib::trimNullByte($sub_subelement['data']); - break; - - default: - $this->unhandledElement('clusters.blockgroup', __LINE__, $sub_subelement); - } - } - $cluster_entry[$subelement['id_name']][] = $cluster_block_group; - break; - - case EBML_ID_CLUSTERSIMPLEBLOCK: - $cluster_entry[$subelement['id_name']][] = $this->HandleEMBLClusterBlock($subelement, EBML_ID_CLUSTERSIMPLEBLOCK, $info); - break; - - default: - $this->unhandledElement('cluster', __LINE__, $subelement); - } - $this->current_offset = $subelement['end']; - } - if (!self::$hide_clusters) { - $info['matroska']['cluster'][] = $cluster_entry; - } - - // check to see if all the data we need exists already, if so, break out of the loop - if (!self::$parse_whole_file) { - if (isset($info['matroska']['info']) && is_array($info['matroska']['info'])) { - if (isset($info['matroska']['tracks']['tracks']) && is_array($info['matroska']['tracks']['tracks'])) { - if (count($info['matroska']['track_data_offsets']) == count($info['matroska']['tracks']['tracks'])) { - return; - } - } - } - } - break; - - default: - $this->unhandledElement('segment', __LINE__, $element_data); - } - } - break; - - default: - $this->unhandledElement('root', __LINE__, $top_element); - } - } - } - - private function EnsureBufferHasEnoughData($min_data=1024) { - if (($this->current_offset - $this->EBMLbuffer_offset) >= ($this->EBMLbuffer_length - $min_data)) { - $read_bytes = max($min_data, $this->getid3->fread_buffer_size()); - - try { - $this->fseek($this->current_offset); - $this->EBMLbuffer_offset = $this->current_offset; - $this->EBMLbuffer = $this->fread($read_bytes); - $this->EBMLbuffer_length = strlen($this->EBMLbuffer); - } catch (getid3_exception $e) { - $this->warning('EBML parser: '.$e->getMessage()); - return false; - } - - if ($this->EBMLbuffer_length == 0 && $this->feof()) { - return $this->error('EBML parser: ran out of file at offset '.$this->current_offset); - } - } - return true; - } - - private function readEBMLint() { - $actual_offset = $this->current_offset - $this->EBMLbuffer_offset; - - // get length of integer - $first_byte_int = ord($this->EBMLbuffer[$actual_offset]); - if (0x80 & $first_byte_int) { - $length = 1; - } elseif (0x40 & $first_byte_int) { - $length = 2; - } elseif (0x20 & $first_byte_int) { - $length = 3; - } elseif (0x10 & $first_byte_int) { - $length = 4; - } elseif (0x08 & $first_byte_int) { - $length = 5; - } elseif (0x04 & $first_byte_int) { - $length = 6; - } elseif (0x02 & $first_byte_int) { - $length = 7; - } elseif (0x01 & $first_byte_int) { - $length = 8; - } else { - throw new Exception('invalid EBML integer (leading 0x00) at '.$this->current_offset); - } - - // read - $int_value = self::EBML2Int(substr($this->EBMLbuffer, $actual_offset, $length)); - $this->current_offset += $length; - - return $int_value; - } - - private function readEBMLelementData($length, $check_buffer=false) { - if ($check_buffer && !$this->EnsureBufferHasEnoughData($length)) { - return false; - } - $data = substr($this->EBMLbuffer, $this->current_offset - $this->EBMLbuffer_offset, $length); - $this->current_offset += $length; - return $data; - } - - private function getEBMLelement(&$element, $parent_end, $get_data=false) { - if ($this->current_offset >= $parent_end) { - return false; - } - - if (!$this->EnsureBufferHasEnoughData()) { - $this->current_offset = PHP_INT_MAX; // do not exit parser right now, allow to finish current loop to gather maximum information - return false; - } - - $element = array(); - - // set offset - $element['offset'] = $this->current_offset; - - // get ID - $element['id'] = $this->readEBMLint(); - - // get name - $element['id_name'] = self::EBMLidName($element['id']); - - // get length - $element['length'] = $this->readEBMLint(); - - // get end offset - $element['end'] = $this->current_offset + $element['length']; - - // get raw data - $dont_parse = (in_array($element['id'], $this->unuseful_elements) || $element['id_name'] == dechex($element['id'])); - if (($get_data === true || (is_array($get_data) && !in_array($element['id'], $get_data))) && !$dont_parse) { - $element['data'] = $this->readEBMLelementData($element['length'], $element); - } - - return true; - } - - private function unhandledElement($type, $line, $element) { - // warn only about unknown and missed elements, not about unuseful - if (!in_array($element['id'], $this->unuseful_elements)) { - $this->warning('Unhandled '.$type.' element ['.basename(__FILE__).':'.$line.'] ('.$element['id'].'::'.$element['id_name'].' ['.$element['length'].' bytes]) at '.$element['offset']); - } - - // increase offset for unparsed elements - if (!isset($element['data'])) { - $this->current_offset = $element['end']; - } - } - - private function ExtractCommentsSimpleTag($SimpleTagArray) { - if (!empty($SimpleTagArray['SimpleTag'])) { - foreach ($SimpleTagArray['SimpleTag'] as $SimpleTagKey => $SimpleTagData) { - if (!empty($SimpleTagData['TagName']) && !empty($SimpleTagData['TagString'])) { - $this->getid3->info['matroska']['comments'][strtolower($SimpleTagData['TagName'])][] = $SimpleTagData['TagString']; - } - if (!empty($SimpleTagData['SimpleTag'])) { - $this->ExtractCommentsSimpleTag($SimpleTagData); - } - } - } - - return true; - } - - private function HandleEMBLSimpleTag($parent_end) { - $simpletag_entry = array(); - - while ($this->getEBMLelement($element, $parent_end, array(EBML_ID_SIMPLETAG))) { - switch ($element['id']) { - - case EBML_ID_TAGNAME: - case EBML_ID_TAGLANGUAGE: - case EBML_ID_TAGSTRING: - case EBML_ID_TAGBINARY: - $simpletag_entry[$element['id_name']] = $element['data']; - break; - - case EBML_ID_SIMPLETAG: - $simpletag_entry[$element['id_name']][] = $this->HandleEMBLSimpleTag($element['end']); - break; - - case EBML_ID_TAGDEFAULT: - $simpletag_entry[$element['id_name']] = (bool)getid3_lib::BigEndian2Int($element['data']); - break; - - default: - $this->unhandledElement('tag.simpletag', __LINE__, $element); - } - } - - return $simpletag_entry; - } - - private function HandleEMBLClusterBlock($element, $block_type, &$info) { - // http://www.matroska.org/technical/specs/index.html#block_structure - // http://www.matroska.org/technical/specs/index.html#simpleblock_structure - - $block_data = array(); - $block_data['tracknumber'] = $this->readEBMLint(); - $block_data['timecode'] = getid3_lib::BigEndian2Int($this->readEBMLelementData(2), false, true); - $block_data['flags_raw'] = getid3_lib::BigEndian2Int($this->readEBMLelementData(1)); - - if ($block_type == EBML_ID_CLUSTERSIMPLEBLOCK) { - $block_data['flags']['keyframe'] = (($block_data['flags_raw'] & 0x80) >> 7); - //$block_data['flags']['reserved1'] = (($block_data['flags_raw'] & 0x70) >> 4); - } - else { - //$block_data['flags']['reserved1'] = (($block_data['flags_raw'] & 0xF0) >> 4); - } - $block_data['flags']['invisible'] = (bool)(($block_data['flags_raw'] & 0x08) >> 3); - $block_data['flags']['lacing'] = (($block_data['flags_raw'] & 0x06) >> 1); // 00=no lacing; 01=Xiph lacing; 11=EBML lacing; 10=fixed-size lacing - if ($block_type == EBML_ID_CLUSTERSIMPLEBLOCK) { - $block_data['flags']['discardable'] = (($block_data['flags_raw'] & 0x01)); - } - else { - //$block_data['flags']['reserved2'] = (($block_data['flags_raw'] & 0x01) >> 0); - } - $block_data['flags']['lacing_type'] = self::BlockLacingType($block_data['flags']['lacing']); - - // Lace (when lacing bit is set) - if ($block_data['flags']['lacing'] > 0) { - $block_data['lace_frames'] = getid3_lib::BigEndian2Int($this->readEBMLelementData(1)) + 1; // Number of frames in the lace-1 (uint8) - if ($block_data['flags']['lacing'] != 0x02) { - for ($i = 1; $i < $block_data['lace_frames']; $i ++) { // Lace-coded size of each frame of the lace, except for the last one (multiple uint8). *This is not used with Fixed-size lacing as it is calculated automatically from (total size of lace) / (number of frames in lace). - if ($block_data['flags']['lacing'] == 0x03) { // EBML lacing - $block_data['lace_frames_size'][$i] = $this->readEBMLint(); // TODO: read size correctly, calc size for the last frame. For now offsets are deteminded OK with readEBMLint() and that's the most important thing. - } - else { // Xiph lacing - $block_data['lace_frames_size'][$i] = 0; - do { - $size = getid3_lib::BigEndian2Int($this->readEBMLelementData(1)); - $block_data['lace_frames_size'][$i] += $size; - } - while ($size == 255); - } - } - if ($block_data['flags']['lacing'] == 0x01) { // calc size of the last frame only for Xiph lacing, till EBML sizes are now anyway determined incorrectly - $block_data['lace_frames_size'][] = $element['end'] - $this->current_offset - array_sum($block_data['lace_frames_size']); - } - } - } - - if (!isset($info['matroska']['track_data_offsets'][$block_data['tracknumber']])) { - $info['matroska']['track_data_offsets'][$block_data['tracknumber']]['offset'] = $this->current_offset; - $info['matroska']['track_data_offsets'][$block_data['tracknumber']]['length'] = $element['end'] - $this->current_offset; - //$info['matroska']['track_data_offsets'][$block_data['tracknumber']]['total_length'] = 0; - } - //$info['matroska']['track_data_offsets'][$block_data['tracknumber']]['total_length'] += $info['matroska']['track_data_offsets'][$block_data['tracknumber']]['length']; - //$info['matroska']['track_data_offsets'][$block_data['tracknumber']]['duration'] = $block_data['timecode'] * ((isset($info['matroska']['info'][0]['TimecodeScale']) ? $info['matroska']['info'][0]['TimecodeScale'] : 1000000) / 1000000000); - - // set offset manually - $this->current_offset = $element['end']; - - return $block_data; - } - - private static function EBML2Int($EBMLstring) { - // http://matroska.org/specs/ - - // Element ID coded with an UTF-8 like system: - // 1xxx xxxx - Class A IDs (2^7 -2 possible values) (base 0x8X) - // 01xx xxxx xxxx xxxx - Class B IDs (2^14-2 possible values) (base 0x4X 0xXX) - // 001x xxxx xxxx xxxx xxxx xxxx - Class C IDs (2^21-2 possible values) (base 0x2X 0xXX 0xXX) - // 0001 xxxx xxxx xxxx xxxx xxxx xxxx xxxx - Class D IDs (2^28-2 possible values) (base 0x1X 0xXX 0xXX 0xXX) - // Values with all x at 0 and 1 are reserved (hence the -2). - - // Data size, in octets, is also coded with an UTF-8 like system : - // 1xxx xxxx - value 0 to 2^7-2 - // 01xx xxxx xxxx xxxx - value 0 to 2^14-2 - // 001x xxxx xxxx xxxx xxxx xxxx - value 0 to 2^21-2 - // 0001 xxxx xxxx xxxx xxxx xxxx xxxx xxxx - value 0 to 2^28-2 - // 0000 1xxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx - value 0 to 2^35-2 - // 0000 01xx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx - value 0 to 2^42-2 - // 0000 001x xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx - value 0 to 2^49-2 - // 0000 0001 xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx - value 0 to 2^56-2 - - $first_byte_int = ord($EBMLstring[0]); - if (0x80 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x7F); - } elseif (0x40 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x3F); - } elseif (0x20 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x1F); - } elseif (0x10 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x0F); - } elseif (0x08 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x07); - } elseif (0x04 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x03); - } elseif (0x02 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x01); - } elseif (0x01 & $first_byte_int) { - $EBMLstring[0] = chr($first_byte_int & 0x00); - } - - return getid3_lib::BigEndian2Int($EBMLstring); - } - - private static function EBMLdate2unix($EBMLdatestamp) { - // Date - signed 8 octets integer in nanoseconds with 0 indicating the precise beginning of the millennium (at 2001-01-01T00:00:00,000000000 UTC) - // 978307200 == mktime(0, 0, 0, 1, 1, 2001) == January 1, 2001 12:00:00am UTC - return round(($EBMLdatestamp / 1000000000) + 978307200); - } - - public static function TargetTypeValue($target_type) { - // http://www.matroska.org/technical/specs/tagging/index.html - static $TargetTypeValue = array(); - if (empty($TargetTypeValue)) { - $TargetTypeValue[10] = 'A: ~ V:shot'; // the lowest hierarchy found in music or movies - $TargetTypeValue[20] = 'A:subtrack/part/movement ~ V:scene'; // corresponds to parts of a track for audio (like a movement) - $TargetTypeValue[30] = 'A:track/song ~ V:chapter'; // the common parts of an album or a movie - $TargetTypeValue[40] = 'A:part/session ~ V:part/session'; // when an album or episode has different logical parts - $TargetTypeValue[50] = 'A:album/opera/concert ~ V:movie/episode/concert'; // the most common grouping level of music and video (equals to an episode for TV series) - $TargetTypeValue[60] = 'A:edition/issue/volume/opus ~ V:season/sequel/volume'; // a list of lower levels grouped together - $TargetTypeValue[70] = 'A:collection ~ V:collection'; // the high hierarchy consisting of many different lower items - } - return (isset($TargetTypeValue[$target_type]) ? $TargetTypeValue[$target_type] : $target_type); - } - - public static function BlockLacingType($lacingtype) { - // http://matroska.org/technical/specs/index.html#block_structure - static $BlockLacingType = array(); - if (empty($BlockLacingType)) { - $BlockLacingType[0x00] = 'no lacing'; - $BlockLacingType[0x01] = 'Xiph lacing'; - $BlockLacingType[0x02] = 'fixed-size lacing'; - $BlockLacingType[0x03] = 'EBML lacing'; - } - return (isset($BlockLacingType[$lacingtype]) ? $BlockLacingType[$lacingtype] : $lacingtype); - } - - public static function CodecIDtoCommonName($codecid) { - // http://www.matroska.org/technical/specs/codecid/index.html - static $CodecIDlist = array(); - if (empty($CodecIDlist)) { - $CodecIDlist['A_AAC'] = 'aac'; - $CodecIDlist['A_AAC/MPEG2/LC'] = 'aac'; - $CodecIDlist['A_AC3'] = 'ac3'; - $CodecIDlist['A_DTS'] = 'dts'; - $CodecIDlist['A_FLAC'] = 'flac'; - $CodecIDlist['A_MPEG/L1'] = 'mp1'; - $CodecIDlist['A_MPEG/L2'] = 'mp2'; - $CodecIDlist['A_MPEG/L3'] = 'mp3'; - $CodecIDlist['A_PCM/INT/LIT'] = 'pcm'; // PCM Integer Little Endian - $CodecIDlist['A_PCM/INT/BIG'] = 'pcm'; // PCM Integer Big Endian - $CodecIDlist['A_QUICKTIME/QDMC'] = 'quicktime'; // Quicktime: QDesign Music - $CodecIDlist['A_QUICKTIME/QDM2'] = 'quicktime'; // Quicktime: QDesign Music v2 - $CodecIDlist['A_VORBIS'] = 'vorbis'; - $CodecIDlist['V_MPEG1'] = 'mpeg'; - $CodecIDlist['V_THEORA'] = 'theora'; - $CodecIDlist['V_REAL/RV40'] = 'real'; - $CodecIDlist['V_REAL/RV10'] = 'real'; - $CodecIDlist['V_REAL/RV20'] = 'real'; - $CodecIDlist['V_REAL/RV30'] = 'real'; - $CodecIDlist['V_QUICKTIME'] = 'quicktime'; // Quicktime - $CodecIDlist['V_MPEG4/ISO/AP'] = 'mpeg4'; - $CodecIDlist['V_MPEG4/ISO/ASP'] = 'mpeg4'; - $CodecIDlist['V_MPEG4/ISO/AVC'] = 'h264'; - $CodecIDlist['V_MPEG4/ISO/SP'] = 'mpeg4'; - $CodecIDlist['V_VP8'] = 'vp8'; - $CodecIDlist['V_MS/VFW/FOURCC'] = 'riff'; - $CodecIDlist['A_MS/ACM'] = 'riff'; - } - return (isset($CodecIDlist[$codecid]) ? $CodecIDlist[$codecid] : $codecid); - } - - private static function EBMLidName($value) { - static $EBMLidList = array(); - if (empty($EBMLidList)) { - $EBMLidList[EBML_ID_ASPECTRATIOTYPE] = 'AspectRatioType'; - $EBMLidList[EBML_ID_ATTACHEDFILE] = 'AttachedFile'; - $EBMLidList[EBML_ID_ATTACHMENTLINK] = 'AttachmentLink'; - $EBMLidList[EBML_ID_ATTACHMENTS] = 'Attachments'; - $EBMLidList[EBML_ID_AUDIO] = 'Audio'; - $EBMLidList[EBML_ID_BITDEPTH] = 'BitDepth'; - $EBMLidList[EBML_ID_CHANNELPOSITIONS] = 'ChannelPositions'; - $EBMLidList[EBML_ID_CHANNELS] = 'Channels'; - $EBMLidList[EBML_ID_CHAPCOUNTRY] = 'ChapCountry'; - $EBMLidList[EBML_ID_CHAPLANGUAGE] = 'ChapLanguage'; - $EBMLidList[EBML_ID_CHAPPROCESS] = 'ChapProcess'; - $EBMLidList[EBML_ID_CHAPPROCESSCODECID] = 'ChapProcessCodecID'; - $EBMLidList[EBML_ID_CHAPPROCESSCOMMAND] = 'ChapProcessCommand'; - $EBMLidList[EBML_ID_CHAPPROCESSDATA] = 'ChapProcessData'; - $EBMLidList[EBML_ID_CHAPPROCESSPRIVATE] = 'ChapProcessPrivate'; - $EBMLidList[EBML_ID_CHAPPROCESSTIME] = 'ChapProcessTime'; - $EBMLidList[EBML_ID_CHAPSTRING] = 'ChapString'; - $EBMLidList[EBML_ID_CHAPTERATOM] = 'ChapterAtom'; - $EBMLidList[EBML_ID_CHAPTERDISPLAY] = 'ChapterDisplay'; - $EBMLidList[EBML_ID_CHAPTERFLAGENABLED] = 'ChapterFlagEnabled'; - $EBMLidList[EBML_ID_CHAPTERFLAGHIDDEN] = 'ChapterFlagHidden'; - $EBMLidList[EBML_ID_CHAPTERPHYSICALEQUIV] = 'ChapterPhysicalEquiv'; - $EBMLidList[EBML_ID_CHAPTERS] = 'Chapters'; - $EBMLidList[EBML_ID_CHAPTERSEGMENTEDITIONUID] = 'ChapterSegmentEditionUID'; - $EBMLidList[EBML_ID_CHAPTERSEGMENTUID] = 'ChapterSegmentUID'; - $EBMLidList[EBML_ID_CHAPTERTIMEEND] = 'ChapterTimeEnd'; - $EBMLidList[EBML_ID_CHAPTERTIMESTART] = 'ChapterTimeStart'; - $EBMLidList[EBML_ID_CHAPTERTRACK] = 'ChapterTrack'; - $EBMLidList[EBML_ID_CHAPTERTRACKNUMBER] = 'ChapterTrackNumber'; - $EBMLidList[EBML_ID_CHAPTERTRANSLATE] = 'ChapterTranslate'; - $EBMLidList[EBML_ID_CHAPTERTRANSLATECODEC] = 'ChapterTranslateCodec'; - $EBMLidList[EBML_ID_CHAPTERTRANSLATEEDITIONUID] = 'ChapterTranslateEditionUID'; - $EBMLidList[EBML_ID_CHAPTERTRANSLATEID] = 'ChapterTranslateID'; - $EBMLidList[EBML_ID_CHAPTERUID] = 'ChapterUID'; - $EBMLidList[EBML_ID_CLUSTER] = 'Cluster'; - $EBMLidList[EBML_ID_CLUSTERBLOCK] = 'ClusterBlock'; - $EBMLidList[EBML_ID_CLUSTERBLOCKADDID] = 'ClusterBlockAddID'; - $EBMLidList[EBML_ID_CLUSTERBLOCKADDITIONAL] = 'ClusterBlockAdditional'; - $EBMLidList[EBML_ID_CLUSTERBLOCKADDITIONID] = 'ClusterBlockAdditionID'; - $EBMLidList[EBML_ID_CLUSTERBLOCKADDITIONS] = 'ClusterBlockAdditions'; - $EBMLidList[EBML_ID_CLUSTERBLOCKDURATION] = 'ClusterBlockDuration'; - $EBMLidList[EBML_ID_CLUSTERBLOCKGROUP] = 'ClusterBlockGroup'; - $EBMLidList[EBML_ID_CLUSTERBLOCKMORE] = 'ClusterBlockMore'; - $EBMLidList[EBML_ID_CLUSTERBLOCKVIRTUAL] = 'ClusterBlockVirtual'; - $EBMLidList[EBML_ID_CLUSTERCODECSTATE] = 'ClusterCodecState'; - $EBMLidList[EBML_ID_CLUSTERDELAY] = 'ClusterDelay'; - $EBMLidList[EBML_ID_CLUSTERDURATION] = 'ClusterDuration'; - $EBMLidList[EBML_ID_CLUSTERENCRYPTEDBLOCK] = 'ClusterEncryptedBlock'; - $EBMLidList[EBML_ID_CLUSTERFRAMENUMBER] = 'ClusterFrameNumber'; - $EBMLidList[EBML_ID_CLUSTERLACENUMBER] = 'ClusterLaceNumber'; - $EBMLidList[EBML_ID_CLUSTERPOSITION] = 'ClusterPosition'; - $EBMLidList[EBML_ID_CLUSTERPREVSIZE] = 'ClusterPrevSize'; - $EBMLidList[EBML_ID_CLUSTERREFERENCEBLOCK] = 'ClusterReferenceBlock'; - $EBMLidList[EBML_ID_CLUSTERREFERENCEPRIORITY] = 'ClusterReferencePriority'; - $EBMLidList[EBML_ID_CLUSTERREFERENCEVIRTUAL] = 'ClusterReferenceVirtual'; - $EBMLidList[EBML_ID_CLUSTERSILENTTRACKNUMBER] = 'ClusterSilentTrackNumber'; - $EBMLidList[EBML_ID_CLUSTERSILENTTRACKS] = 'ClusterSilentTracks'; - $EBMLidList[EBML_ID_CLUSTERSIMPLEBLOCK] = 'ClusterSimpleBlock'; - $EBMLidList[EBML_ID_CLUSTERTIMECODE] = 'ClusterTimecode'; - $EBMLidList[EBML_ID_CLUSTERTIMESLICE] = 'ClusterTimeSlice'; - $EBMLidList[EBML_ID_CODECDECODEALL] = 'CodecDecodeAll'; - $EBMLidList[EBML_ID_CODECDOWNLOADURL] = 'CodecDownloadURL'; - $EBMLidList[EBML_ID_CODECID] = 'CodecID'; - $EBMLidList[EBML_ID_CODECINFOURL] = 'CodecInfoURL'; - $EBMLidList[EBML_ID_CODECNAME] = 'CodecName'; - $EBMLidList[EBML_ID_CODECPRIVATE] = 'CodecPrivate'; - $EBMLidList[EBML_ID_CODECSETTINGS] = 'CodecSettings'; - $EBMLidList[EBML_ID_COLOURSPACE] = 'ColourSpace'; - $EBMLidList[EBML_ID_CONTENTCOMPALGO] = 'ContentCompAlgo'; - $EBMLidList[EBML_ID_CONTENTCOMPRESSION] = 'ContentCompression'; - $EBMLidList[EBML_ID_CONTENTCOMPSETTINGS] = 'ContentCompSettings'; - $EBMLidList[EBML_ID_CONTENTENCALGO] = 'ContentEncAlgo'; - $EBMLidList[EBML_ID_CONTENTENCKEYID] = 'ContentEncKeyID'; - $EBMLidList[EBML_ID_CONTENTENCODING] = 'ContentEncoding'; - $EBMLidList[EBML_ID_CONTENTENCODINGORDER] = 'ContentEncodingOrder'; - $EBMLidList[EBML_ID_CONTENTENCODINGS] = 'ContentEncodings'; - $EBMLidList[EBML_ID_CONTENTENCODINGSCOPE] = 'ContentEncodingScope'; - $EBMLidList[EBML_ID_CONTENTENCODINGTYPE] = 'ContentEncodingType'; - $EBMLidList[EBML_ID_CONTENTENCRYPTION] = 'ContentEncryption'; - $EBMLidList[EBML_ID_CONTENTSIGALGO] = 'ContentSigAlgo'; - $EBMLidList[EBML_ID_CONTENTSIGHASHALGO] = 'ContentSigHashAlgo'; - $EBMLidList[EBML_ID_CONTENTSIGKEYID] = 'ContentSigKeyID'; - $EBMLidList[EBML_ID_CONTENTSIGNATURE] = 'ContentSignature'; - $EBMLidList[EBML_ID_CRC32] = 'CRC32'; - $EBMLidList[EBML_ID_CUEBLOCKNUMBER] = 'CueBlockNumber'; - $EBMLidList[EBML_ID_CUECLUSTERPOSITION] = 'CueClusterPosition'; - $EBMLidList[EBML_ID_CUECODECSTATE] = 'CueCodecState'; - $EBMLidList[EBML_ID_CUEPOINT] = 'CuePoint'; - $EBMLidList[EBML_ID_CUEREFCLUSTER] = 'CueRefCluster'; - $EBMLidList[EBML_ID_CUEREFCODECSTATE] = 'CueRefCodecState'; - $EBMLidList[EBML_ID_CUEREFERENCE] = 'CueReference'; - $EBMLidList[EBML_ID_CUEREFNUMBER] = 'CueRefNumber'; - $EBMLidList[EBML_ID_CUEREFTIME] = 'CueRefTime'; - $EBMLidList[EBML_ID_CUES] = 'Cues'; - $EBMLidList[EBML_ID_CUETIME] = 'CueTime'; - $EBMLidList[EBML_ID_CUETRACK] = 'CueTrack'; - $EBMLidList[EBML_ID_CUETRACKPOSITIONS] = 'CueTrackPositions'; - $EBMLidList[EBML_ID_DATEUTC] = 'DateUTC'; - $EBMLidList[EBML_ID_DEFAULTDURATION] = 'DefaultDuration'; - $EBMLidList[EBML_ID_DISPLAYHEIGHT] = 'DisplayHeight'; - $EBMLidList[EBML_ID_DISPLAYUNIT] = 'DisplayUnit'; - $EBMLidList[EBML_ID_DISPLAYWIDTH] = 'DisplayWidth'; - $EBMLidList[EBML_ID_DOCTYPE] = 'DocType'; - $EBMLidList[EBML_ID_DOCTYPEREADVERSION] = 'DocTypeReadVersion'; - $EBMLidList[EBML_ID_DOCTYPEVERSION] = 'DocTypeVersion'; - $EBMLidList[EBML_ID_DURATION] = 'Duration'; - $EBMLidList[EBML_ID_EBML] = 'EBML'; - $EBMLidList[EBML_ID_EBMLMAXIDLENGTH] = 'EBMLMaxIDLength'; - $EBMLidList[EBML_ID_EBMLMAXSIZELENGTH] = 'EBMLMaxSizeLength'; - $EBMLidList[EBML_ID_EBMLREADVERSION] = 'EBMLReadVersion'; - $EBMLidList[EBML_ID_EBMLVERSION] = 'EBMLVersion'; - $EBMLidList[EBML_ID_EDITIONENTRY] = 'EditionEntry'; - $EBMLidList[EBML_ID_EDITIONFLAGDEFAULT] = 'EditionFlagDefault'; - $EBMLidList[EBML_ID_EDITIONFLAGHIDDEN] = 'EditionFlagHidden'; - $EBMLidList[EBML_ID_EDITIONFLAGORDERED] = 'EditionFlagOrdered'; - $EBMLidList[EBML_ID_EDITIONUID] = 'EditionUID'; - $EBMLidList[EBML_ID_FILEDATA] = 'FileData'; - $EBMLidList[EBML_ID_FILEDESCRIPTION] = 'FileDescription'; - $EBMLidList[EBML_ID_FILEMIMETYPE] = 'FileMimeType'; - $EBMLidList[EBML_ID_FILENAME] = 'FileName'; - $EBMLidList[EBML_ID_FILEREFERRAL] = 'FileReferral'; - $EBMLidList[EBML_ID_FILEUID] = 'FileUID'; - $EBMLidList[EBML_ID_FLAGDEFAULT] = 'FlagDefault'; - $EBMLidList[EBML_ID_FLAGENABLED] = 'FlagEnabled'; - $EBMLidList[EBML_ID_FLAGFORCED] = 'FlagForced'; - $EBMLidList[EBML_ID_FLAGINTERLACED] = 'FlagInterlaced'; - $EBMLidList[EBML_ID_FLAGLACING] = 'FlagLacing'; - $EBMLidList[EBML_ID_GAMMAVALUE] = 'GammaValue'; - $EBMLidList[EBML_ID_INFO] = 'Info'; - $EBMLidList[EBML_ID_LANGUAGE] = 'Language'; - $EBMLidList[EBML_ID_MAXBLOCKADDITIONID] = 'MaxBlockAdditionID'; - $EBMLidList[EBML_ID_MAXCACHE] = 'MaxCache'; - $EBMLidList[EBML_ID_MINCACHE] = 'MinCache'; - $EBMLidList[EBML_ID_MUXINGAPP] = 'MuxingApp'; - $EBMLidList[EBML_ID_NAME] = 'Name'; - $EBMLidList[EBML_ID_NEXTFILENAME] = 'NextFilename'; - $EBMLidList[EBML_ID_NEXTUID] = 'NextUID'; - $EBMLidList[EBML_ID_OUTPUTSAMPLINGFREQUENCY] = 'OutputSamplingFrequency'; - $EBMLidList[EBML_ID_PIXELCROPBOTTOM] = 'PixelCropBottom'; - $EBMLidList[EBML_ID_PIXELCROPLEFT] = 'PixelCropLeft'; - $EBMLidList[EBML_ID_PIXELCROPRIGHT] = 'PixelCropRight'; - $EBMLidList[EBML_ID_PIXELCROPTOP] = 'PixelCropTop'; - $EBMLidList[EBML_ID_PIXELHEIGHT] = 'PixelHeight'; - $EBMLidList[EBML_ID_PIXELWIDTH] = 'PixelWidth'; - $EBMLidList[EBML_ID_PREVFILENAME] = 'PrevFilename'; - $EBMLidList[EBML_ID_PREVUID] = 'PrevUID'; - $EBMLidList[EBML_ID_SAMPLINGFREQUENCY] = 'SamplingFrequency'; - $EBMLidList[EBML_ID_SEEK] = 'Seek'; - $EBMLidList[EBML_ID_SEEKHEAD] = 'SeekHead'; - $EBMLidList[EBML_ID_SEEKID] = 'SeekID'; - $EBMLidList[EBML_ID_SEEKPOSITION] = 'SeekPosition'; - $EBMLidList[EBML_ID_SEGMENT] = 'Segment'; - $EBMLidList[EBML_ID_SEGMENTFAMILY] = 'SegmentFamily'; - $EBMLidList[EBML_ID_SEGMENTFILENAME] = 'SegmentFilename'; - $EBMLidList[EBML_ID_SEGMENTUID] = 'SegmentUID'; - $EBMLidList[EBML_ID_SIMPLETAG] = 'SimpleTag'; - $EBMLidList[EBML_ID_CLUSTERSLICES] = 'ClusterSlices'; - $EBMLidList[EBML_ID_STEREOMODE] = 'StereoMode'; - $EBMLidList[EBML_ID_OLDSTEREOMODE] = 'OldStereoMode'; - $EBMLidList[EBML_ID_TAG] = 'Tag'; - $EBMLidList[EBML_ID_TAGATTACHMENTUID] = 'TagAttachmentUID'; - $EBMLidList[EBML_ID_TAGBINARY] = 'TagBinary'; - $EBMLidList[EBML_ID_TAGCHAPTERUID] = 'TagChapterUID'; - $EBMLidList[EBML_ID_TAGDEFAULT] = 'TagDefault'; - $EBMLidList[EBML_ID_TAGEDITIONUID] = 'TagEditionUID'; - $EBMLidList[EBML_ID_TAGLANGUAGE] = 'TagLanguage'; - $EBMLidList[EBML_ID_TAGNAME] = 'TagName'; - $EBMLidList[EBML_ID_TAGTRACKUID] = 'TagTrackUID'; - $EBMLidList[EBML_ID_TAGS] = 'Tags'; - $EBMLidList[EBML_ID_TAGSTRING] = 'TagString'; - $EBMLidList[EBML_ID_TARGETS] = 'Targets'; - $EBMLidList[EBML_ID_TARGETTYPE] = 'TargetType'; - $EBMLidList[EBML_ID_TARGETTYPEVALUE] = 'TargetTypeValue'; - $EBMLidList[EBML_ID_TIMECODESCALE] = 'TimecodeScale'; - $EBMLidList[EBML_ID_TITLE] = 'Title'; - $EBMLidList[EBML_ID_TRACKENTRY] = 'TrackEntry'; - $EBMLidList[EBML_ID_TRACKNUMBER] = 'TrackNumber'; - $EBMLidList[EBML_ID_TRACKOFFSET] = 'TrackOffset'; - $EBMLidList[EBML_ID_TRACKOVERLAY] = 'TrackOverlay'; - $EBMLidList[EBML_ID_TRACKS] = 'Tracks'; - $EBMLidList[EBML_ID_TRACKTIMECODESCALE] = 'TrackTimecodeScale'; - $EBMLidList[EBML_ID_TRACKTRANSLATE] = 'TrackTranslate'; - $EBMLidList[EBML_ID_TRACKTRANSLATECODEC] = 'TrackTranslateCodec'; - $EBMLidList[EBML_ID_TRACKTRANSLATEEDITIONUID] = 'TrackTranslateEditionUID'; - $EBMLidList[EBML_ID_TRACKTRANSLATETRACKID] = 'TrackTranslateTrackID'; - $EBMLidList[EBML_ID_TRACKTYPE] = 'TrackType'; - $EBMLidList[EBML_ID_TRACKUID] = 'TrackUID'; - $EBMLidList[EBML_ID_VIDEO] = 'Video'; - $EBMLidList[EBML_ID_VOID] = 'Void'; - $EBMLidList[EBML_ID_WRITINGAPP] = 'WritingApp'; - } - - return (isset($EBMLidList[$value]) ? $EBMLidList[$value] : dechex($value)); - } - - public static function displayUnit($value) { - // http://www.matroska.org/technical/specs/index.html#DisplayUnit - static $units = array( - 0 => 'pixels', - 1 => 'centimeters', - 2 => 'inches', - 3 => 'Display Aspect Ratio'); - - return (isset($units[$value]) ? $units[$value] : 'unknown'); - } - - private static function getDefaultStreamInfo($streams) - { - foreach (array_reverse($streams) as $stream) { - if ($stream['default']) { - break; - } - } - - $unset = array('default', 'name'); - foreach ($unset as $u) { - if (isset($stream[$u])) { - unset($stream[$u]); - } - } - - $info = $stream; - $info['streams'] = $streams; - - return $info; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.mpeg.php b/web/htdocs/media/lib/getid3/module.audio-video.mpeg.php deleted file mode 100644 index 999c5d9a5f2..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.mpeg.php +++ /dev/null @@ -1,296 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.mpeg.php // -// module for analyzing MPEG files // -// dependencies: module.audio.mp3.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.mp3.php', __FILE__, true); - -define('GETID3_MPEG_VIDEO_PICTURE_START', "\x00\x00\x01\x00"); -define('GETID3_MPEG_VIDEO_USER_DATA_START', "\x00\x00\x01\xB2"); -define('GETID3_MPEG_VIDEO_SEQUENCE_HEADER', "\x00\x00\x01\xB3"); -define('GETID3_MPEG_VIDEO_SEQUENCE_ERROR', "\x00\x00\x01\xB4"); -define('GETID3_MPEG_VIDEO_EXTENSION_START', "\x00\x00\x01\xB5"); -define('GETID3_MPEG_VIDEO_SEQUENCE_END', "\x00\x00\x01\xB7"); -define('GETID3_MPEG_VIDEO_GROUP_START', "\x00\x00\x01\xB8"); -define('GETID3_MPEG_AUDIO_START', "\x00\x00\x01\xC0"); - - -class getid3_mpeg extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - if ($info['avdataend'] <= $info['avdataoffset']) { - $info['error'][] = '"avdataend" ('.$info['avdataend'].') is unexpectedly less-than-or-equal-to "avdataoffset" ('.$info['avdataoffset'].')'; - return false; - } - $info['fileformat'] = 'mpeg'; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $MPEGstreamData = fread($this->getid3->fp, min(100000, $info['avdataend'] - $info['avdataoffset'])); - $MPEGstreamDataLength = strlen($MPEGstreamData); - - $foundVideo = true; - $VideoChunkOffset = 0; - while (substr($MPEGstreamData, $VideoChunkOffset++, 4) !== GETID3_MPEG_VIDEO_SEQUENCE_HEADER) { - if ($VideoChunkOffset >= $MPEGstreamDataLength) { - $foundVideo = false; - break; - } - } - if ($foundVideo) { - - // Start code 32 bits - // horizontal frame size 12 bits - // vertical frame size 12 bits - // pixel aspect ratio 4 bits - // frame rate 4 bits - // bitrate 18 bits - // marker bit 1 bit - // VBV buffer size 10 bits - // constrained parameter flag 1 bit - // intra quant. matrix flag 1 bit - // intra quant. matrix values 512 bits (present if matrix flag == 1) - // non-intra quant. matrix flag 1 bit - // non-intra quant. matrix values 512 bits (present if matrix flag == 1) - - $info['video']['dataformat'] = 'mpeg'; - - $VideoChunkOffset += (strlen(GETID3_MPEG_VIDEO_SEQUENCE_HEADER) - 1); - - $FrameSizeDWORD = getid3_lib::BigEndian2Int(substr($MPEGstreamData, $VideoChunkOffset, 3)); - $VideoChunkOffset += 3; - - $AspectRatioFrameRateDWORD = getid3_lib::BigEndian2Int(substr($MPEGstreamData, $VideoChunkOffset, 1)); - $VideoChunkOffset += 1; - - $assortedinformation = getid3_lib::BigEndian2Bin(substr($MPEGstreamData, $VideoChunkOffset, 4)); - $VideoChunkOffset += 4; - - $info['mpeg']['video']['raw']['framesize_horizontal'] = ($FrameSizeDWORD & 0xFFF000) >> 12; // 12 bits for horizontal frame size - $info['mpeg']['video']['raw']['framesize_vertical'] = ($FrameSizeDWORD & 0x000FFF); // 12 bits for vertical frame size - $info['mpeg']['video']['raw']['pixel_aspect_ratio'] = ($AspectRatioFrameRateDWORD & 0xF0) >> 4; - $info['mpeg']['video']['raw']['frame_rate'] = ($AspectRatioFrameRateDWORD & 0x0F); - - $info['mpeg']['video']['framesize_horizontal'] = $info['mpeg']['video']['raw']['framesize_horizontal']; - $info['mpeg']['video']['framesize_vertical'] = $info['mpeg']['video']['raw']['framesize_vertical']; - - $info['mpeg']['video']['pixel_aspect_ratio'] = $this->MPEGvideoAspectRatioLookup($info['mpeg']['video']['raw']['pixel_aspect_ratio']); - $info['mpeg']['video']['pixel_aspect_ratio_text'] = $this->MPEGvideoAspectRatioTextLookup($info['mpeg']['video']['raw']['pixel_aspect_ratio']); - $info['mpeg']['video']['frame_rate'] = $this->MPEGvideoFramerateLookup($info['mpeg']['video']['raw']['frame_rate']); - - $info['mpeg']['video']['raw']['bitrate'] = getid3_lib::Bin2Dec(substr($assortedinformation, 0, 18)); - $info['mpeg']['video']['raw']['marker_bit'] = (bool) getid3_lib::Bin2Dec(substr($assortedinformation, 18, 1)); - $info['mpeg']['video']['raw']['vbv_buffer_size'] = getid3_lib::Bin2Dec(substr($assortedinformation, 19, 10)); - $info['mpeg']['video']['raw']['constrained_param_flag'] = (bool) getid3_lib::Bin2Dec(substr($assortedinformation, 29, 1)); - $info['mpeg']['video']['raw']['intra_quant_flag'] = (bool) getid3_lib::Bin2Dec(substr($assortedinformation, 30, 1)); - if ($info['mpeg']['video']['raw']['intra_quant_flag']) { - - // read 512 bits - $info['mpeg']['video']['raw']['intra_quant'] = getid3_lib::BigEndian2Bin(substr($MPEGstreamData, $VideoChunkOffset, 64)); - $VideoChunkOffset += 64; - - $info['mpeg']['video']['raw']['non_intra_quant_flag'] = (bool) getid3_lib::Bin2Dec(substr($info['mpeg']['video']['raw']['intra_quant'], 511, 1)); - $info['mpeg']['video']['raw']['intra_quant'] = getid3_lib::Bin2Dec(substr($assortedinformation, 31, 1)).substr(getid3_lib::BigEndian2Bin(substr($MPEGstreamData, $VideoChunkOffset, 64)), 0, 511); - - if ($info['mpeg']['video']['raw']['non_intra_quant_flag']) { - $info['mpeg']['video']['raw']['non_intra_quant'] = substr($MPEGstreamData, $VideoChunkOffset, 64); - $VideoChunkOffset += 64; - } - - } else { - - $info['mpeg']['video']['raw']['non_intra_quant_flag'] = (bool) getid3_lib::Bin2Dec(substr($assortedinformation, 31, 1)); - if ($info['mpeg']['video']['raw']['non_intra_quant_flag']) { - $info['mpeg']['video']['raw']['non_intra_quant'] = substr($MPEGstreamData, $VideoChunkOffset, 64); - $VideoChunkOffset += 64; - } - - } - - if ($info['mpeg']['video']['raw']['bitrate'] == 0x3FFFF) { // 18 set bits - - $info['warning'][] = 'This version of getID3() ['.$this->getid3->version().'] cannot determine average bitrate of VBR MPEG video files'; - $info['mpeg']['video']['bitrate_mode'] = 'vbr'; - - } else { - - $info['mpeg']['video']['bitrate'] = $info['mpeg']['video']['raw']['bitrate'] * 400; - $info['mpeg']['video']['bitrate_mode'] = 'cbr'; - $info['video']['bitrate'] = $info['mpeg']['video']['bitrate']; - - } - - $info['video']['resolution_x'] = $info['mpeg']['video']['framesize_horizontal']; - $info['video']['resolution_y'] = $info['mpeg']['video']['framesize_vertical']; - $info['video']['frame_rate'] = $info['mpeg']['video']['frame_rate']; - $info['video']['bitrate_mode'] = $info['mpeg']['video']['bitrate_mode']; - $info['video']['pixel_aspect_ratio'] = $info['mpeg']['video']['pixel_aspect_ratio']; - $info['video']['lossless'] = false; - $info['video']['bits_per_sample'] = 24; - - } else { - - $info['error'][] = 'Could not find start of video block in the first 100,000 bytes (or before end of file) - this might not be an MPEG-video file?'; - - } - - //0x000001B3 begins the sequence_header of every MPEG video stream. - //But in MPEG-2, this header must immediately be followed by an - //extension_start_code (0x000001B5) with a sequence_extension ID (1). - //(This extension contains all the additional MPEG-2 stuff.) - //MPEG-1 doesn't have this extension, so that's a sure way to tell the - //difference between MPEG-1 and MPEG-2 video streams. - - if (substr($MPEGstreamData, $VideoChunkOffset, 4) == GETID3_MPEG_VIDEO_EXTENSION_START) { - $info['video']['codec'] = 'MPEG-2'; - } else { - $info['video']['codec'] = 'MPEG-1'; - } - - - $AudioChunkOffset = 0; - while (true) { - while (substr($MPEGstreamData, $AudioChunkOffset++, 4) !== GETID3_MPEG_AUDIO_START) { - if ($AudioChunkOffset >= $MPEGstreamDataLength) { - break 2; - } - } - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info = $info; - $getid3_mp3 = new getid3_mp3($getid3_temp); - for ($i = 0; $i <= 7; $i++) { - // some files have the MPEG-audio header 8 bytes after the end of the $00 $00 $01 $C0 signature, some have it up to 13 bytes (or more?) after - // I have no idea why or what the difference is, so this is a stupid hack. - // If anybody has any better idea of what's going on, please let me know - info@getid3.org - fseek($getid3_temp->fp, ftell($this->getid3->fp), SEEK_SET); - $getid3_temp->info = $info; // only overwrite real data if valid header found - if ($getid3_mp3->decodeMPEGaudioHeader(($AudioChunkOffset + 3) + 8 + $i, $getid3_temp->info, false)) { - $info = $getid3_temp->info; - $info['audio']['bitrate_mode'] = 'cbr'; - $info['audio']['lossless'] = false; - unset($getid3_temp, $getid3_mp3); - break 2; - } - } - unset($getid3_temp, $getid3_mp3); - } - - // Temporary hack to account for interleaving overhead: - if (!empty($info['video']['bitrate']) && !empty($info['audio']['bitrate'])) { - $info['playtime_seconds'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / ($info['video']['bitrate'] + $info['audio']['bitrate']); - - // Interleaved MPEG audio/video files have a certain amount of overhead that varies - // by both video and audio bitrates, and not in any sensible, linear/logarithmic patter - // Use interpolated lookup tables to approximately guess how much is overhead, because - // playtime is calculated as filesize / total-bitrate - $info['playtime_seconds'] *= $this->MPEGsystemNonOverheadPercentage($info['video']['bitrate'], $info['audio']['bitrate']); - - //switch ($info['video']['bitrate']) { - // case('5000000'): - // $multiplier = 0.93292642112380355828048824319889; - // break; - // case('5500000'): - // $multiplier = 0.93582895375200989965359777343219; - // break; - // case('6000000'): - // $multiplier = 0.93796247714820932532911373859139; - // break; - // case('7000000'): - // $multiplier = 0.9413264083635103463010117778776; - // break; - // default: - // $multiplier = 1; - // break; - //} - //$info['playtime_seconds'] *= $multiplier; - //$info['warning'][] = 'Interleaved MPEG audio/video playtime may be inaccurate. With current hack should be within a few seconds of accurate. Report to info@getid3.org if off by more than 10 seconds.'; - if ($info['video']['bitrate'] < 50000) { - $info['warning'][] = 'Interleaved MPEG audio/video playtime may be slightly inaccurate for video bitrates below 100kbps. Except in extreme low-bitrate situations, error should be less than 1%. Report to info@getid3.org if greater than this.'; - } - } - - return true; - } - - - public function MPEGsystemNonOverheadPercentage($VideoBitrate, $AudioBitrate) { - $OverheadPercentage = 0; - - $AudioBitrate = max(min($AudioBitrate / 1000, 384), 32); // limit to range of 32kbps - 384kbps (should be only legal bitrates, but maybe VBR?) - $VideoBitrate = max(min($VideoBitrate / 1000, 10000), 10); // limit to range of 10kbps - 10Mbps (beyond that curves flatten anyways, no big loss) - - - //OMBB[audiobitrate] = array(video-10kbps, video-100kbps, video-1000kbps, video-10000kbps) - $OverheadMultiplierByBitrate[32] = array(0, 0.9676287944368530, 0.9802276264360310, 0.9844916183244460, 0.9852821845179940); - $OverheadMultiplierByBitrate[48] = array(0, 0.9779100089209830, 0.9787770035359320, 0.9846738664076130, 0.9852683013799960); - $OverheadMultiplierByBitrate[56] = array(0, 0.9731249855367600, 0.9776624308938040, 0.9832606361852130, 0.9843922606633340); - $OverheadMultiplierByBitrate[64] = array(0, 0.9755642683275760, 0.9795256705493390, 0.9836573009193170, 0.9851122539404470); - $OverheadMultiplierByBitrate[96] = array(0, 0.9788025247497290, 0.9798553314148700, 0.9822956869792560, 0.9834815119124690); - $OverheadMultiplierByBitrate[128] = array(0, 0.9816940050925480, 0.9821675936072120, 0.9829756927470870, 0.9839763420152050); - $OverheadMultiplierByBitrate[160] = array(0, 0.9825894094561180, 0.9820913399073960, 0.9823907143253970, 0.9832821783651570); - $OverheadMultiplierByBitrate[192] = array(0, 0.9832038474336260, 0.9825731694317960, 0.9821028622712400, 0.9828262076447620); - $OverheadMultiplierByBitrate[224] = array(0, 0.9836516298538770, 0.9824718601823890, 0.9818302180625380, 0.9823735101626480); - $OverheadMultiplierByBitrate[256] = array(0, 0.9845863022094920, 0.9837229411967540, 0.9824521662210830, 0.9828645172100790); - $OverheadMultiplierByBitrate[320] = array(0, 0.9849565280263180, 0.9837683142805110, 0.9822885275960400, 0.9824424382727190); - $OverheadMultiplierByBitrate[384] = array(0, 0.9856094774357600, 0.9844573394432720, 0.9825970399837330, 0.9824673808303890); - - $BitrateToUseMin = 32; - $BitrateToUseMax = 32; - $previousBitrate = 32; - foreach ($OverheadMultiplierByBitrate as $key => $value) { - if ($AudioBitrate >= $previousBitrate) { - $BitrateToUseMin = $previousBitrate; - } - if ($AudioBitrate < $key) { - $BitrateToUseMax = $key; - break; - } - $previousBitrate = $key; - } - $FactorA = ($BitrateToUseMax - $AudioBitrate) / ($BitrateToUseMax - $BitrateToUseMin); - - $VideoBitrateLog10 = log10($VideoBitrate); - $VideoFactorMin1 = $OverheadMultiplierByBitrate[$BitrateToUseMin][floor($VideoBitrateLog10)]; - $VideoFactorMin2 = $OverheadMultiplierByBitrate[$BitrateToUseMax][floor($VideoBitrateLog10)]; - $VideoFactorMax1 = $OverheadMultiplierByBitrate[$BitrateToUseMin][ceil($VideoBitrateLog10)]; - $VideoFactorMax2 = $OverheadMultiplierByBitrate[$BitrateToUseMax][ceil($VideoBitrateLog10)]; - $FactorV = $VideoBitrateLog10 - floor($VideoBitrateLog10); - - $OverheadPercentage = $VideoFactorMin1 * $FactorA * $FactorV; - $OverheadPercentage += $VideoFactorMin2 * (1 - $FactorA) * $FactorV; - $OverheadPercentage += $VideoFactorMax1 * $FactorA * (1 - $FactorV); - $OverheadPercentage += $VideoFactorMax2 * (1 - $FactorA) * (1 - $FactorV); - - return $OverheadPercentage; - } - - - public function MPEGvideoFramerateLookup($rawframerate) { - $MPEGvideoFramerateLookup = array(0, 23.976, 24, 25, 29.97, 30, 50, 59.94, 60); - return (isset($MPEGvideoFramerateLookup[$rawframerate]) ? (float) $MPEGvideoFramerateLookup[$rawframerate] : (float) 0); - } - - public function MPEGvideoAspectRatioLookup($rawaspectratio) { - $MPEGvideoAspectRatioLookup = array(0, 1, 0.6735, 0.7031, 0.7615, 0.8055, 0.8437, 0.8935, 0.9157, 0.9815, 1.0255, 1.0695, 1.0950, 1.1575, 1.2015, 0); - return (isset($MPEGvideoAspectRatioLookup[$rawaspectratio]) ? (float) $MPEGvideoAspectRatioLookup[$rawaspectratio] : (float) 0); - } - - public function MPEGvideoAspectRatioTextLookup($rawaspectratio) { - $MPEGvideoAspectRatioTextLookup = array('forbidden', 'square pixels', '0.6735', '16:9, 625 line, PAL', '0.7615', '0.8055', '16:9, 525 line, NTSC', '0.8935', '4:3, 625 line, PAL, CCIR601', '0.9815', '1.0255', '1.0695', '4:3, 525 line, NTSC, CCIR601', '1.1575', '1.2015', 'reserved'); - return (isset($MPEGvideoAspectRatioTextLookup[$rawaspectratio]) ? $MPEGvideoAspectRatioTextLookup[$rawaspectratio] : ''); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.nsv.php b/web/htdocs/media/lib/getid3/module.audio-video.nsv.php deleted file mode 100644 index 3191eb3b20d..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.nsv.php +++ /dev/null @@ -1,223 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.nsv.php // -// module for analyzing Nullsoft NSV files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_nsv extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $NSVheader = fread($this->getid3->fp, 4); - - switch ($NSVheader) { - case 'NSVs': - if ($this->getNSVsHeaderFilepointer(0)) { - $info['fileformat'] = 'nsv'; - $info['audio']['dataformat'] = 'nsv'; - $info['video']['dataformat'] = 'nsv'; - $info['audio']['lossless'] = false; - $info['video']['lossless'] = false; - } - break; - - case 'NSVf': - if ($this->getNSVfHeaderFilepointer(0)) { - $info['fileformat'] = 'nsv'; - $info['audio']['dataformat'] = 'nsv'; - $info['video']['dataformat'] = 'nsv'; - $info['audio']['lossless'] = false; - $info['video']['lossless'] = false; - $this->getNSVsHeaderFilepointer($info['nsv']['NSVf']['header_length']); - } - break; - - default: - $info['error'][] = 'Expecting "NSVs" or "NSVf" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($NSVheader).'"'; - return false; - break; - } - - if (!isset($info['nsv']['NSVf'])) { - $info['warning'][] = 'NSVf header not present - cannot calculate playtime or bitrate'; - } - - return true; - } - - public function getNSVsHeaderFilepointer($fileoffset) { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $fileoffset, SEEK_SET); - $NSVsheader = fread($this->getid3->fp, 28); - $offset = 0; - - $info['nsv']['NSVs']['identifier'] = substr($NSVsheader, $offset, 4); - $offset += 4; - - if ($info['nsv']['NSVs']['identifier'] != 'NSVs') { - $info['error'][] = 'expected "NSVs" at offset ('.$fileoffset.'), found "'.$info['nsv']['NSVs']['identifier'].'" instead'; - unset($info['nsv']['NSVs']); - return false; - } - - $info['nsv']['NSVs']['offset'] = $fileoffset; - - $info['nsv']['NSVs']['video_codec'] = substr($NSVsheader, $offset, 4); - $offset += 4; - $info['nsv']['NSVs']['audio_codec'] = substr($NSVsheader, $offset, 4); - $offset += 4; - $info['nsv']['NSVs']['resolution_x'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 2)); - $offset += 2; - $info['nsv']['NSVs']['resolution_y'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 2)); - $offset += 2; - - $info['nsv']['NSVs']['framerate_index'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown1b'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown1c'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown1d'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown2a'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown2b'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown2c'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - //$info['nsv']['NSVs']['unknown2d'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - - switch ($info['nsv']['NSVs']['audio_codec']) { - case 'PCM ': - $info['nsv']['NSVs']['bits_channel'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - $info['nsv']['NSVs']['channels'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 1)); - $offset += 1; - $info['nsv']['NSVs']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 2)); - $offset += 2; - - $info['audio']['sample_rate'] = $info['nsv']['NSVs']['sample_rate']; - break; - - case 'MP3 ': - case 'NONE': - default: - //$info['nsv']['NSVs']['unknown3'] = getid3_lib::LittleEndian2Int(substr($NSVsheader, $offset, 4)); - $offset += 4; - break; - } - - $info['video']['resolution_x'] = $info['nsv']['NSVs']['resolution_x']; - $info['video']['resolution_y'] = $info['nsv']['NSVs']['resolution_y']; - $info['nsv']['NSVs']['frame_rate'] = $this->NSVframerateLookup($info['nsv']['NSVs']['framerate_index']); - $info['video']['frame_rate'] = $info['nsv']['NSVs']['frame_rate']; - $info['video']['bits_per_sample'] = 24; - $info['video']['pixel_aspect_ratio'] = (float) 1; - - return true; - } - - public function getNSVfHeaderFilepointer($fileoffset, $getTOCoffsets=false) { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $fileoffset, SEEK_SET); - $NSVfheader = fread($this->getid3->fp, 28); - $offset = 0; - - $info['nsv']['NSVf']['identifier'] = substr($NSVfheader, $offset, 4); - $offset += 4; - - if ($info['nsv']['NSVf']['identifier'] != 'NSVf') { - $info['error'][] = 'expected "NSVf" at offset ('.$fileoffset.'), found "'.$info['nsv']['NSVf']['identifier'].'" instead'; - unset($info['nsv']['NSVf']); - return false; - } - - $info['nsv']['NSVs']['offset'] = $fileoffset; - - $info['nsv']['NSVf']['header_length'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - $info['nsv']['NSVf']['file_size'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - - if ($info['nsv']['NSVf']['file_size'] > $info['avdataend']) { - $info['warning'][] = 'truncated file - NSVf header indicates '.$info['nsv']['NSVf']['file_size'].' bytes, file actually '.$info['avdataend'].' bytes'; - } - - $info['nsv']['NSVf']['playtime_ms'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - $info['nsv']['NSVf']['meta_size'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - $info['nsv']['NSVf']['TOC_entries_1'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - $info['nsv']['NSVf']['TOC_entries_2'] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - - if ($info['nsv']['NSVf']['playtime_ms'] == 0) { - $info['error'][] = 'Corrupt NSV file: NSVf.playtime_ms == zero'; - return false; - } - - $NSVfheader .= fread($this->getid3->fp, $info['nsv']['NSVf']['meta_size'] + (4 * $info['nsv']['NSVf']['TOC_entries_1']) + (4 * $info['nsv']['NSVf']['TOC_entries_2'])); - $NSVfheaderlength = strlen($NSVfheader); - $info['nsv']['NSVf']['metadata'] = substr($NSVfheader, $offset, $info['nsv']['NSVf']['meta_size']); - $offset += $info['nsv']['NSVf']['meta_size']; - - if ($getTOCoffsets) { - $TOCcounter = 0; - while ($TOCcounter < $info['nsv']['NSVf']['TOC_entries_1']) { - if ($TOCcounter < $info['nsv']['NSVf']['TOC_entries_1']) { - $info['nsv']['NSVf']['TOC_1'][$TOCcounter] = getid3_lib::LittleEndian2Int(substr($NSVfheader, $offset, 4)); - $offset += 4; - $TOCcounter++; - } - } - } - - if (trim($info['nsv']['NSVf']['metadata']) != '') { - $info['nsv']['NSVf']['metadata'] = str_replace('`', "\x01", $info['nsv']['NSVf']['metadata']); - $CommentPairArray = explode("\x01".' ', $info['nsv']['NSVf']['metadata']); - foreach ($CommentPairArray as $CommentPair) { - if (strstr($CommentPair, '='."\x01")) { - list($key, $value) = explode('='."\x01", $CommentPair, 2); - $info['nsv']['comments'][strtolower($key)][] = trim(str_replace("\x01", '', $value)); - } - } - } - - $info['playtime_seconds'] = $info['nsv']['NSVf']['playtime_ms'] / 1000; - $info['bitrate'] = ($info['nsv']['NSVf']['file_size'] * 8) / $info['playtime_seconds']; - - return true; - } - - - public static function NSVframerateLookup($framerateindex) { - if ($framerateindex <= 127) { - return (float) $framerateindex; - } - static $NSVframerateLookup = array(); - if (empty($NSVframerateLookup)) { - $NSVframerateLookup[129] = (float) 29.970; - $NSVframerateLookup[131] = (float) 23.976; - $NSVframerateLookup[133] = (float) 14.985; - $NSVframerateLookup[197] = (float) 59.940; - $NSVframerateLookup[199] = (float) 47.952; - } - return (isset($NSVframerateLookup[$framerateindex]) ? $NSVframerateLookup[$framerateindex] : false); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.quicktime.php b/web/htdocs/media/lib/getid3/module.audio-video.quicktime.php deleted file mode 100644 index 31f28cf3198..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.quicktime.php +++ /dev/null @@ -1,2221 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.quicktime.php // -// module for analyzing Quicktime and MP3-in-MP4 files // -// dependencies: module.audio.mp3.php // -// dependencies: module.tag.id3v2.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.mp3.php', __FILE__, true); -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v2.php', __FILE__, true); // needed for ISO 639-2 language code lookup - -class getid3_quicktime extends getid3_handler -{ - - public $ReturnAtomData = true; - public $ParseAllPossibleAtoms = false; - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'quicktime'; - $info['quicktime']['hinting'] = false; - $info['quicktime']['controller'] = 'standard'; // may be overridden if 'ctyp' atom is present - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $offset = 0; - $atomcounter = 0; - - while ($offset < $info['avdataend']) { - if (!getid3_lib::intValueSupported($offset)) { - $info['error'][] = 'Unable to parse atom at offset '.$offset.' because beyond '.round(PHP_INT_MAX / 1073741824).'GB limit of PHP filesystem functions'; - break; - } - fseek($this->getid3->fp, $offset, SEEK_SET); - $AtomHeader = fread($this->getid3->fp, 8); - - $atomsize = getid3_lib::BigEndian2Int(substr($AtomHeader, 0, 4)); - $atomname = substr($AtomHeader, 4, 4); - - // 64-bit MOV patch by jlegateØktnc*com - if ($atomsize == 1) { - $atomsize = getid3_lib::BigEndian2Int(fread($this->getid3->fp, 8)); - } - - $info['quicktime'][$atomname]['name'] = $atomname; - $info['quicktime'][$atomname]['size'] = $atomsize; - $info['quicktime'][$atomname]['offset'] = $offset; - - if (($offset + $atomsize) > $info['avdataend']) { - $info['error'][] = 'Atom at offset '.$offset.' claims to go beyond end-of-file (length: '.$atomsize.' bytes)'; - return false; - } - - if ($atomsize == 0) { - // Furthermore, for historical reasons the list of atoms is optionally - // terminated by a 32-bit integer set to 0. If you are writing a program - // to read user data atoms, you should allow for the terminating 0. - break; - } - switch ($atomname) { - case 'mdat': // Media DATa atom - // 'mdat' contains the actual data for the audio/video - if (($atomsize > 8) && (!isset($info['avdataend_tmp']) || ($info['quicktime'][$atomname]['size'] > ($info['avdataend_tmp'] - $info['avdataoffset'])))) { - - $info['avdataoffset'] = $info['quicktime'][$atomname]['offset'] + 8; - $OldAVDataEnd = $info['avdataend']; - $info['avdataend'] = $info['quicktime'][$atomname]['offset'] + $info['quicktime'][$atomname]['size']; - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_temp->info['avdataend'] = $info['avdataend']; - $getid3_mp3 = new getid3_mp3($getid3_temp); - if ($getid3_mp3->MPEGaudioHeaderValid($getid3_mp3->MPEGaudioHeaderDecode(fread($this->getid3->fp, 4)))) { - $getid3_mp3->getOnlyMPEGaudioInfo($getid3_temp->info['avdataoffset'], false); - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $value) { - $info['warning'][] = $value; - } - } - if (!empty($getid3_temp->info['mpeg'])) { - $info['mpeg'] = $getid3_temp->info['mpeg']; - if (isset($info['mpeg']['audio'])) { - $info['audio']['dataformat'] = 'mp3'; - $info['audio']['codec'] = (!empty($info['mpeg']['audio']['encoder']) ? $info['mpeg']['audio']['encoder'] : (!empty($info['mpeg']['audio']['codec']) ? $info['mpeg']['audio']['codec'] : (!empty($info['mpeg']['audio']['LAME']) ? 'LAME' :'mp3'))); - $info['audio']['sample_rate'] = $info['mpeg']['audio']['sample_rate']; - $info['audio']['channels'] = $info['mpeg']['audio']['channels']; - $info['audio']['bitrate'] = $info['mpeg']['audio']['bitrate']; - $info['audio']['bitrate_mode'] = strtolower($info['mpeg']['audio']['bitrate_mode']); - $info['bitrate'] = $info['audio']['bitrate']; - } - } - } - unset($getid3_mp3, $getid3_temp); - $info['avdataend'] = $OldAVDataEnd; - unset($OldAVDataEnd); - - } - break; - - case 'free': // FREE space atom - case 'skip': // SKIP atom - case 'wide': // 64-bit expansion placeholder atom - // 'free', 'skip' and 'wide' are just padding, contains no useful data at all - break; - - default: - $atomHierarchy = array(); - $info['quicktime'][$atomname] = $this->QuicktimeParseAtom($atomname, $atomsize, fread($this->getid3->fp, $atomsize), $offset, $atomHierarchy, $this->ParseAllPossibleAtoms); - break; - } - - $offset += $atomsize; - $atomcounter++; - } - - if (!empty($info['avdataend_tmp'])) { - // this value is assigned to a temp value and then erased because - // otherwise any atoms beyond the 'mdat' atom would not get parsed - $info['avdataend'] = $info['avdataend_tmp']; - unset($info['avdataend_tmp']); - } - - if (!isset($info['bitrate']) && isset($info['playtime_seconds'])) { - $info['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - if (isset($info['bitrate']) && !isset($info['audio']['bitrate']) && !isset($info['quicktime']['video'])) { - $info['audio']['bitrate'] = $info['bitrate']; - } - if (!empty($info['playtime_seconds']) && !isset($info['video']['frame_rate']) && !empty($info['quicktime']['stts_framecount'])) { - foreach ($info['quicktime']['stts_framecount'] as $key => $samples_count) { - $samples_per_second = $samples_count / $info['playtime_seconds']; - if ($samples_per_second > 240) { - // has to be audio samples - } else { - $info['video']['frame_rate'] = $samples_per_second; - break; - } - } - } - if (($info['audio']['dataformat'] == 'mp4') && empty($info['video']['resolution_x'])) { - $info['fileformat'] = 'mp4'; - $info['mime_type'] = 'audio/mp4'; - unset($info['video']['dataformat']); - } - - if (!$this->ReturnAtomData) { - unset($info['quicktime']['moov']); - } - - if (empty($info['audio']['dataformat']) && !empty($info['quicktime']['audio'])) { - $info['audio']['dataformat'] = 'quicktime'; - } - if (empty($info['video']['dataformat']) && !empty($info['quicktime']['video'])) { - $info['video']['dataformat'] = 'quicktime'; - } - - return true; - } - - public function QuicktimeParseAtom($atomname, $atomsize, $atom_data, $baseoffset, &$atomHierarchy, $ParseAllPossibleAtoms) { - // http://developer.apple.com/techpubs/quicktime/qtdevdocs/APIREF/INDEX/atomalphaindex.htm - - $info = &$this->getid3->info; - - //$atom_parent = array_pop($atomHierarchy); - $atom_parent = end($atomHierarchy); // http://www.getid3.org/phpBB3/viewtopic.php?t=1717 - array_push($atomHierarchy, $atomname); - $atom_structure['hierarchy'] = implode(' ', $atomHierarchy); - $atom_structure['name'] = $atomname; - $atom_structure['size'] = $atomsize; - $atom_structure['offset'] = $baseoffset; -//echo getid3_lib::PrintHexBytes(substr($atom_data, 0, 8)).'
'; -//echo getid3_lib::PrintHexBytes(substr($atom_data, 0, 8), false).'

'; - switch ($atomname) { - case 'moov': // MOVie container atom - case 'trak': // TRAcK container atom - case 'clip': // CLIPping container atom - case 'matt': // track MATTe container atom - case 'edts': // EDiTS container atom - case 'tref': // Track REFerence container atom - case 'mdia': // MeDIA container atom - case 'minf': // Media INFormation container atom - case 'dinf': // Data INFormation container atom - case 'udta': // User DaTA container atom - case 'cmov': // Compressed MOVie container atom - case 'rmra': // Reference Movie Record Atom - case 'rmda': // Reference Movie Descriptor Atom - case 'gmhd': // Generic Media info HeaDer atom (seen on QTVR) - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - break; - - case 'ilst': // Item LiST container atom - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - - // some "ilst" atoms contain data atoms that have a numeric name, and the data is far more accessible if the returned array is compacted - $allnumericnames = true; - foreach ($atom_structure['subatoms'] as $subatomarray) { - if (!is_integer($subatomarray['name']) || (count($subatomarray['subatoms']) != 1)) { - $allnumericnames = false; - break; - } - } - if ($allnumericnames) { - $newData = array(); - foreach ($atom_structure['subatoms'] as $subatomarray) { - foreach ($subatomarray['subatoms'] as $newData_subatomarray) { - unset($newData_subatomarray['hierarchy'], $newData_subatomarray['name']); - $newData[$subatomarray['name']] = $newData_subatomarray; - break; - } - } - $atom_structure['data'] = $newData; - unset($atom_structure['subatoms']); - } - break; - - case "\x00\x00\x00\x01": - case "\x00\x00\x00\x02": - case "\x00\x00\x00\x03": - case "\x00\x00\x00\x04": - case "\x00\x00\x00\x05": - $atomname = getid3_lib::BigEndian2Int($atomname); - $atom_structure['name'] = $atomname; - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - break; - - case 'stbl': // Sample TaBLe container atom - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - $isVideo = false; - $framerate = 0; - $framecount = 0; - foreach ($atom_structure['subatoms'] as $key => $value_array) { - if (isset($value_array['sample_description_table'])) { - foreach ($value_array['sample_description_table'] as $key2 => $value_array2) { - if (isset($value_array2['data_format'])) { - switch ($value_array2['data_format']) { - case 'avc1': - case 'mp4v': - // video data - $isVideo = true; - break; - case 'mp4a': - // audio data - break; - } - } - } - } elseif (isset($value_array['time_to_sample_table'])) { - foreach ($value_array['time_to_sample_table'] as $key2 => $value_array2) { - if (isset($value_array2['sample_count']) && isset($value_array2['sample_duration']) && ($value_array2['sample_duration'] > 0)) { - $framerate = round($info['quicktime']['time_scale'] / $value_array2['sample_duration'], 3); - $framecount = $value_array2['sample_count']; - } - } - } - } - if ($isVideo && $framerate) { - $info['quicktime']['video']['frame_rate'] = $framerate; - $info['video']['frame_rate'] = $info['quicktime']['video']['frame_rate']; - } - if ($isVideo && $framecount) { - $info['quicktime']['video']['frame_count'] = $framecount; - } - break; - - - case 'aART': // Album ARTist - case 'catg': // CaTeGory - case 'covr': // COVeR artwork - case 'cpil': // ComPILation - case 'cprt': // CoPyRighT - case 'desc': // DESCription - case 'disk': // DISK number - case 'egid': // Episode Global ID - case 'gnre': // GeNRE - case 'keyw': // KEYWord - case 'ldes': - case 'pcst': // PodCaST - case 'pgap': // GAPless Playback - case 'purd': // PURchase Date - case 'purl': // Podcast URL - case 'rati': - case 'rndu': - case 'rpdu': - case 'rtng': // RaTiNG - case 'stik': - case 'tmpo': // TeMPO (BPM) - case 'trkn': // TRacK Number - case 'tves': // TV EpiSode - case 'tvnn': // TV Network Name - case 'tvsh': // TV SHow Name - case 'tvsn': // TV SeasoN - case 'akID': // iTunes store account type - case 'apID': - case 'atID': - case 'cmID': - case 'cnID': - case 'geID': - case 'plID': - case 'sfID': // iTunes store country - case '©alb': // ALBum - case '©art': // ARTist - case '©ART': - case '©aut': - case '©cmt': // CoMmenT - case '©com': // COMposer - case '©cpy': - case '©day': // content created year - case '©dir': - case '©ed1': - case '©ed2': - case '©ed3': - case '©ed4': - case '©ed5': - case '©ed6': - case '©ed7': - case '©ed8': - case '©ed9': - case '©enc': - case '©fmt': - case '©gen': // GENre - case '©grp': // GRouPing - case '©hst': - case '©inf': - case '©lyr': // LYRics - case '©mak': - case '©mod': - case '©nam': // full NAMe - case '©ope': - case '©PRD': - case '©prd': - case '©prf': - case '©req': - case '©src': - case '©swr': - case '©too': // encoder - case '©trk': // TRacK - case '©url': - case '©wrn': - case '©wrt': // WRiTer - case '----': // itunes specific - if ($atom_parent == 'udta') { - // User data atom handler - $atom_structure['data_length'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 2)); - $atom_structure['language_id'] = getid3_lib::BigEndian2Int(substr($atom_data, 2, 2)); - $atom_structure['data'] = substr($atom_data, 4); - - $atom_structure['language'] = $this->QuicktimeLanguageLookup($atom_structure['language_id']); - if (empty($info['comments']['language']) || (!in_array($atom_structure['language'], $info['comments']['language']))) { - $info['comments']['language'][] = $atom_structure['language']; - } - } else { - // Apple item list box atom handler - $atomoffset = 0; - if (substr($atom_data, 2, 2) == "\x10\xB5") { - // not sure what it means, but observed on iPhone4 data. - // Each $atom_data has 2 bytes of datasize, plus 0x10B5, then data - while ($atomoffset < strlen($atom_data)) { - $boxsmallsize = getid3_lib::BigEndian2Int(substr($atom_data, $atomoffset, 2)); - $boxsmalltype = substr($atom_data, $atomoffset + 2, 2); - $boxsmalldata = substr($atom_data, $atomoffset + 4, $boxsmallsize); - if ($boxsmallsize <= 1) { - $info['warning'][] = 'Invalid QuickTime atom smallbox size "'.$boxsmallsize.'" in atom "'.$atomname.'" at offset: '.($atom_structure['offset'] + $atomoffset); - $atom_structure['data'] = null; - $atomoffset = strlen($atom_data); - break; - } - switch ($boxsmalltype) { - case "\x10\xB5": - $atom_structure['data'] = $boxsmalldata; - break; - default: - $info['warning'][] = 'Unknown QuickTime smallbox type: "'.getid3_lib::PrintHexBytes($boxsmalltype).'" at offset '.$baseoffset; - $atom_structure['data'] = $atom_data; - break; - } - $atomoffset += (4 + $boxsmallsize); - } - } else { - while ($atomoffset < strlen($atom_data)) { - $boxsize = getid3_lib::BigEndian2Int(substr($atom_data, $atomoffset, 4)); - $boxtype = substr($atom_data, $atomoffset + 4, 4); - $boxdata = substr($atom_data, $atomoffset + 8, $boxsize - 8); - if ($boxsize <= 1) { - $info['warning'][] = 'Invalid QuickTime atom box size "'.$boxsize.'" in atom "'.$atomname.'" at offset: '.($atom_structure['offset'] + $atomoffset); - $atom_structure['data'] = null; - $atomoffset = strlen($atom_data); - break; - } - $atomoffset += $boxsize; - - switch ($boxtype) { - case 'mean': - case 'name': - $atom_structure[$boxtype] = substr($boxdata, 4); - break; - - case 'data': - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($boxdata, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($boxdata, 1, 3)); - switch ($atom_structure['flags_raw']) { - case 0: // data flag - case 21: // tmpo/cpil flag - switch ($atomname) { - case 'cpil': - case 'pcst': - case 'pgap': - $atom_structure['data'] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 1)); - break; - - case 'tmpo': - $atom_structure['data'] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 2)); - break; - - case 'disk': - case 'trkn': - $num = getid3_lib::BigEndian2Int(substr($boxdata, 10, 2)); - $num_total = getid3_lib::BigEndian2Int(substr($boxdata, 12, 2)); - $atom_structure['data'] = empty($num) ? '' : $num; - $atom_structure['data'] .= empty($num_total) ? '' : '/'.$num_total; - break; - - case 'gnre': - $GenreID = getid3_lib::BigEndian2Int(substr($boxdata, 8, 4)); - $atom_structure['data'] = getid3_id3v1::LookupGenreName($GenreID - 1); - break; - - case 'rtng': - $atom_structure[$atomname] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 1)); - $atom_structure['data'] = $this->QuicktimeContentRatingLookup($atom_structure[$atomname]); - break; - - case 'stik': - $atom_structure[$atomname] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 1)); - $atom_structure['data'] = $this->QuicktimeSTIKLookup($atom_structure[$atomname]); - break; - - case 'sfID': - $atom_structure[$atomname] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 4)); - $atom_structure['data'] = $this->QuicktimeStoreFrontCodeLookup($atom_structure[$atomname]); - break; - - case 'egid': - case 'purl': - $atom_structure['data'] = substr($boxdata, 8); - break; - - default: - $atom_structure['data'] = getid3_lib::BigEndian2Int(substr($boxdata, 8, 4)); - } - break; - - case 1: // text flag - case 13: // image flag - default: - $atom_structure['data'] = substr($boxdata, 8); - break; - - } - break; - - default: - $info['warning'][] = 'Unknown QuickTime box type: "'.getid3_lib::PrintHexBytes($boxtype).'" at offset '.$baseoffset; - $atom_structure['data'] = $atom_data; - - } - } - } - } - $this->CopyToAppropriateCommentsSection($atomname, $atom_structure['data'], $atom_structure['name']); - break; - - - case 'play': // auto-PLAY atom - $atom_structure['autoplay'] = (bool) getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - - $info['quicktime']['autoplay'] = $atom_structure['autoplay']; - break; - - - case 'WLOC': // Window LOCation atom - $atom_structure['location_x'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 2)); - $atom_structure['location_y'] = getid3_lib::BigEndian2Int(substr($atom_data, 2, 2)); - break; - - - case 'LOOP': // LOOPing atom - case 'SelO': // play SELection Only atom - case 'AllF': // play ALL Frames atom - $atom_structure['data'] = getid3_lib::BigEndian2Int($atom_data); - break; - - - case 'name': // - case 'MCPS': // Media Cleaner PRo - case '@PRM': // adobe PReMiere version - case '@PRQ': // adobe PRemiere Quicktime version - $atom_structure['data'] = $atom_data; - break; - - - case 'cmvd': // Compressed MooV Data atom - // Code by ubergeekØubergeek*tv based on information from - // http://developer.apple.com/quicktime/icefloe/dispatch012.html - $atom_structure['unCompressedSize'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); - - $CompressedFileData = substr($atom_data, 4); - if ($UncompressedHeader = @gzuncompress($CompressedFileData)) { - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($UncompressedHeader, 0, $atomHierarchy, $ParseAllPossibleAtoms); - } else { - $info['warning'][] = 'Error decompressing compressed MOV atom at offset '.$atom_structure['offset']; - } - break; - - - case 'dcom': // Data COMpression atom - $atom_structure['compression_id'] = $atom_data; - $atom_structure['compression_text'] = $this->QuicktimeDCOMLookup($atom_data); - break; - - - case 'rdrf': // Reference movie Data ReFerence atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); - $atom_structure['flags']['internal_data'] = (bool) ($atom_structure['flags_raw'] & 0x000001); - - $atom_structure['reference_type_name'] = substr($atom_data, 4, 4); - $atom_structure['reference_length'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - switch ($atom_structure['reference_type_name']) { - case 'url ': - $atom_structure['url'] = $this->NoNullString(substr($atom_data, 12)); - break; - - case 'alis': - $atom_structure['file_alias'] = substr($atom_data, 12); - break; - - case 'rsrc': - $atom_structure['resource_alias'] = substr($atom_data, 12); - break; - - default: - $atom_structure['data'] = substr($atom_data, 12); - break; - } - break; - - - case 'rmqu': // Reference Movie QUality atom - $atom_structure['movie_quality'] = getid3_lib::BigEndian2Int($atom_data); - break; - - - case 'rmcs': // Reference Movie Cpu Speed atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['cpu_speed_rating'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - break; - - - case 'rmvc': // Reference Movie Version Check atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['gestalt_selector'] = substr($atom_data, 4, 4); - $atom_structure['gestalt_value_mask'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $atom_structure['gestalt_value'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 4)); - $atom_structure['gestalt_check_type'] = getid3_lib::BigEndian2Int(substr($atom_data, 14, 2)); - break; - - - case 'rmcd': // Reference Movie Component check atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['component_type'] = substr($atom_data, 4, 4); - $atom_structure['component_subtype'] = substr($atom_data, 8, 4); - $atom_structure['component_manufacturer'] = substr($atom_data, 12, 4); - $atom_structure['component_flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 16, 4)); - $atom_structure['component_flags_mask'] = getid3_lib::BigEndian2Int(substr($atom_data, 20, 4)); - $atom_structure['component_min_version'] = getid3_lib::BigEndian2Int(substr($atom_data, 24, 4)); - break; - - - case 'rmdr': // Reference Movie Data Rate atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['data_rate'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - - $atom_structure['data_rate_bps'] = $atom_structure['data_rate'] * 10; - break; - - - case 'rmla': // Reference Movie Language Atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['language_id'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - - $atom_structure['language'] = $this->QuicktimeLanguageLookup($atom_structure['language_id']); - if (empty($info['comments']['language']) || (!in_array($atom_structure['language'], $info['comments']['language']))) { - $info['comments']['language'][] = $atom_structure['language']; - } - break; - - - case 'rmla': // Reference Movie Language Atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['track_id'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - break; - - - case 'ptv ': // Print To Video - defines a movie's full screen mode - // http://developer.apple.com/documentation/QuickTime/APIREF/SOURCESIV/at_ptv-_pg.htm - $atom_structure['display_size_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 2)); - $atom_structure['reserved_1'] = getid3_lib::BigEndian2Int(substr($atom_data, 2, 2)); // hardcoded: 0x0000 - $atom_structure['reserved_2'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); // hardcoded: 0x0000 - $atom_structure['slide_show_flag'] = getid3_lib::BigEndian2Int(substr($atom_data, 6, 1)); - $atom_structure['play_on_open_flag'] = getid3_lib::BigEndian2Int(substr($atom_data, 7, 1)); - - $atom_structure['flags']['play_on_open'] = (bool) $atom_structure['play_on_open_flag']; - $atom_structure['flags']['slide_show'] = (bool) $atom_structure['slide_show_flag']; - - $ptv_lookup[0] = 'normal'; - $ptv_lookup[1] = 'double'; - $ptv_lookup[2] = 'half'; - $ptv_lookup[3] = 'full'; - $ptv_lookup[4] = 'current'; - if (isset($ptv_lookup[$atom_structure['display_size_raw']])) { - $atom_structure['display_size'] = $ptv_lookup[$atom_structure['display_size_raw']]; - } else { - $info['warning'][] = 'unknown "ptv " display constant ('.$atom_structure['display_size_raw'].')'; - } - break; - - - case 'stsd': // Sample Table Sample Description atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $stsdEntriesDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['sample_description_table'][$i]['size'] = getid3_lib::BigEndian2Int(substr($atom_data, $stsdEntriesDataOffset, 4)); - $stsdEntriesDataOffset += 4; - $atom_structure['sample_description_table'][$i]['data_format'] = substr($atom_data, $stsdEntriesDataOffset, 4); - $stsdEntriesDataOffset += 4; - $atom_structure['sample_description_table'][$i]['reserved'] = getid3_lib::BigEndian2Int(substr($atom_data, $stsdEntriesDataOffset, 6)); - $stsdEntriesDataOffset += 6; - $atom_structure['sample_description_table'][$i]['reference_index'] = getid3_lib::BigEndian2Int(substr($atom_data, $stsdEntriesDataOffset, 2)); - $stsdEntriesDataOffset += 2; - $atom_structure['sample_description_table'][$i]['data'] = substr($atom_data, $stsdEntriesDataOffset, ($atom_structure['sample_description_table'][$i]['size'] - 4 - 4 - 6 - 2)); - $stsdEntriesDataOffset += ($atom_structure['sample_description_table'][$i]['size'] - 4 - 4 - 6 - 2); - - $atom_structure['sample_description_table'][$i]['encoder_version'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 0, 2)); - $atom_structure['sample_description_table'][$i]['encoder_revision'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 2, 2)); - $atom_structure['sample_description_table'][$i]['encoder_vendor'] = substr($atom_structure['sample_description_table'][$i]['data'], 4, 4); - - switch ($atom_structure['sample_description_table'][$i]['encoder_vendor']) { - - case "\x00\x00\x00\x00": - // audio tracks - $atom_structure['sample_description_table'][$i]['audio_channels'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 8, 2)); - $atom_structure['sample_description_table'][$i]['audio_bit_depth'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 10, 2)); - $atom_structure['sample_description_table'][$i]['audio_compression_id'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 12, 2)); - $atom_structure['sample_description_table'][$i]['audio_packet_size'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 14, 2)); - $atom_structure['sample_description_table'][$i]['audio_sample_rate'] = getid3_lib::FixedPoint16_16(substr($atom_structure['sample_description_table'][$i]['data'], 16, 4)); - - // video tracks - // http://developer.apple.com/library/mac/#documentation/QuickTime/QTFF/QTFFChap3/qtff3.html - $atom_structure['sample_description_table'][$i]['temporal_quality'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 8, 4)); - $atom_structure['sample_description_table'][$i]['spatial_quality'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 12, 4)); - $atom_structure['sample_description_table'][$i]['width'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 16, 2)); - $atom_structure['sample_description_table'][$i]['height'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 18, 2)); - $atom_structure['sample_description_table'][$i]['resolution_x'] = getid3_lib::FixedPoint16_16(substr($atom_structure['sample_description_table'][$i]['data'], 24, 4)); - $atom_structure['sample_description_table'][$i]['resolution_y'] = getid3_lib::FixedPoint16_16(substr($atom_structure['sample_description_table'][$i]['data'], 28, 4)); - $atom_structure['sample_description_table'][$i]['data_size'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 32, 4)); - $atom_structure['sample_description_table'][$i]['frame_count'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 36, 2)); - $atom_structure['sample_description_table'][$i]['compressor_name'] = substr($atom_structure['sample_description_table'][$i]['data'], 38, 4); - $atom_structure['sample_description_table'][$i]['pixel_depth'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 42, 2)); - $atom_structure['sample_description_table'][$i]['color_table_id'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 44, 2)); - - switch ($atom_structure['sample_description_table'][$i]['data_format']) { - case '2vuY': - case 'avc1': - case 'cvid': - case 'dvc ': - case 'dvcp': - case 'gif ': - case 'h263': - case 'jpeg': - case 'kpcd': - case 'mjpa': - case 'mjpb': - case 'mp4v': - case 'png ': - case 'raw ': - case 'rle ': - case 'rpza': - case 'smc ': - case 'SVQ1': - case 'SVQ3': - case 'tiff': - case 'v210': - case 'v216': - case 'v308': - case 'v408': - case 'v410': - case 'yuv2': - $info['fileformat'] = 'mp4'; - $info['video']['fourcc'] = $atom_structure['sample_description_table'][$i]['data_format']; -// http://www.getid3.org/phpBB3/viewtopic.php?t=1550 -//if ((!empty($atom_structure['sample_description_table'][$i]['width']) && !empty($atom_structure['sample_description_table'][$i]['width'])) && (empty($info['video']['resolution_x']) || empty($info['video']['resolution_y']) || (number_format($info['video']['resolution_x'], 6) != number_format(round($info['video']['resolution_x']), 6)) || (number_format($info['video']['resolution_y'], 6) != number_format(round($info['video']['resolution_y']), 6)))) { // ugly check for floating point numbers -if (!empty($atom_structure['sample_description_table'][$i]['width']) && !empty($atom_structure['sample_description_table'][$i]['height'])) { - // assume that values stored here are more important than values stored in [tkhd] atom - $info['video']['resolution_x'] = $atom_structure['sample_description_table'][$i]['width']; - $info['video']['resolution_y'] = $atom_structure['sample_description_table'][$i]['height']; - $info['quicktime']['video']['resolution_x'] = $info['video']['resolution_x']; - $info['quicktime']['video']['resolution_y'] = $info['video']['resolution_y']; -} - break; - - case 'qtvr': - $info['video']['dataformat'] = 'quicktimevr'; - break; - - case 'mp4a': - default: - $info['quicktime']['audio']['codec'] = $this->QuicktimeAudioCodecLookup($atom_structure['sample_description_table'][$i]['data_format']); - $info['quicktime']['audio']['sample_rate'] = $atom_structure['sample_description_table'][$i]['audio_sample_rate']; - $info['quicktime']['audio']['channels'] = $atom_structure['sample_description_table'][$i]['audio_channels']; - $info['quicktime']['audio']['bit_depth'] = $atom_structure['sample_description_table'][$i]['audio_bit_depth']; - $info['audio']['codec'] = $info['quicktime']['audio']['codec']; - $info['audio']['sample_rate'] = $info['quicktime']['audio']['sample_rate']; - $info['audio']['channels'] = $info['quicktime']['audio']['channels']; - $info['audio']['bits_per_sample'] = $info['quicktime']['audio']['bit_depth']; - switch ($atom_structure['sample_description_table'][$i]['data_format']) { - case 'raw ': // PCM - case 'alac': // Apple Lossless Audio Codec - $info['audio']['lossless'] = true; - break; - default: - $info['audio']['lossless'] = false; - break; - } - break; - } - break; - - default: - switch ($atom_structure['sample_description_table'][$i]['data_format']) { - case 'mp4s': - $info['fileformat'] = 'mp4'; - break; - - default: - // video atom - $atom_structure['sample_description_table'][$i]['video_temporal_quality'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 8, 4)); - $atom_structure['sample_description_table'][$i]['video_spatial_quality'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 12, 4)); - $atom_structure['sample_description_table'][$i]['video_frame_width'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 16, 2)); - $atom_structure['sample_description_table'][$i]['video_frame_height'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 18, 2)); - $atom_structure['sample_description_table'][$i]['video_resolution_x'] = getid3_lib::FixedPoint16_16(substr($atom_structure['sample_description_table'][$i]['data'], 20, 4)); - $atom_structure['sample_description_table'][$i]['video_resolution_y'] = getid3_lib::FixedPoint16_16(substr($atom_structure['sample_description_table'][$i]['data'], 24, 4)); - $atom_structure['sample_description_table'][$i]['video_data_size'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 28, 4)); - $atom_structure['sample_description_table'][$i]['video_frame_count'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 32, 2)); - $atom_structure['sample_description_table'][$i]['video_encoder_name_len'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 34, 1)); - $atom_structure['sample_description_table'][$i]['video_encoder_name'] = substr($atom_structure['sample_description_table'][$i]['data'], 35, $atom_structure['sample_description_table'][$i]['video_encoder_name_len']); - $atom_structure['sample_description_table'][$i]['video_pixel_color_depth'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 66, 2)); - $atom_structure['sample_description_table'][$i]['video_color_table_id'] = getid3_lib::BigEndian2Int(substr($atom_structure['sample_description_table'][$i]['data'], 68, 2)); - - $atom_structure['sample_description_table'][$i]['video_pixel_color_type'] = (($atom_structure['sample_description_table'][$i]['video_pixel_color_depth'] > 32) ? 'grayscale' : 'color'); - $atom_structure['sample_description_table'][$i]['video_pixel_color_name'] = $this->QuicktimeColorNameLookup($atom_structure['sample_description_table'][$i]['video_pixel_color_depth']); - - if ($atom_structure['sample_description_table'][$i]['video_pixel_color_name'] != 'invalid') { - $info['quicktime']['video']['codec_fourcc'] = $atom_structure['sample_description_table'][$i]['data_format']; - $info['quicktime']['video']['codec_fourcc_lookup'] = $this->QuicktimeVideoCodecLookup($atom_structure['sample_description_table'][$i]['data_format']); - $info['quicktime']['video']['codec'] = (($atom_structure['sample_description_table'][$i]['video_encoder_name_len'] > 0) ? $atom_structure['sample_description_table'][$i]['video_encoder_name'] : $atom_structure['sample_description_table'][$i]['data_format']); - $info['quicktime']['video']['color_depth'] = $atom_structure['sample_description_table'][$i]['video_pixel_color_depth']; - $info['quicktime']['video']['color_depth_name'] = $atom_structure['sample_description_table'][$i]['video_pixel_color_name']; - - $info['video']['codec'] = $info['quicktime']['video']['codec']; - $info['video']['bits_per_sample'] = $info['quicktime']['video']['color_depth']; - } - $info['video']['lossless'] = false; - $info['video']['pixel_aspect_ratio'] = (float) 1; - break; - } - break; - } - switch (strtolower($atom_structure['sample_description_table'][$i]['data_format'])) { - case 'mp4a': - $info['audio']['dataformat'] = 'mp4'; - $info['quicktime']['audio']['codec'] = 'mp4'; - break; - - case '3ivx': - case '3iv1': - case '3iv2': - $info['video']['dataformat'] = '3ivx'; - break; - - case 'xvid': - $info['video']['dataformat'] = 'xvid'; - break; - - case 'mp4v': - $info['video']['dataformat'] = 'mpeg4'; - break; - - case 'divx': - case 'div1': - case 'div2': - case 'div3': - case 'div4': - case 'div5': - case 'div6': - $info['video']['dataformat'] = 'divx'; - break; - - default: - // do nothing - break; - } - unset($atom_structure['sample_description_table'][$i]['data']); - } - break; - - - case 'stts': // Sample Table Time-to-Sample atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $sttsEntriesDataOffset = 8; - //$FrameRateCalculatorArray = array(); - $frames_count = 0; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['time_to_sample_table'][$i]['sample_count'] = getid3_lib::BigEndian2Int(substr($atom_data, $sttsEntriesDataOffset, 4)); - $sttsEntriesDataOffset += 4; - $atom_structure['time_to_sample_table'][$i]['sample_duration'] = getid3_lib::BigEndian2Int(substr($atom_data, $sttsEntriesDataOffset, 4)); - $sttsEntriesDataOffset += 4; - - $frames_count += $atom_structure['time_to_sample_table'][$i]['sample_count']; - - // THIS SECTION REPLACED WITH CODE IN "stbl" ATOM - //if (!empty($info['quicktime']['time_scale']) && ($atom_structure['time_to_sample_table'][$i]['sample_duration'] > 0)) { - // $stts_new_framerate = $info['quicktime']['time_scale'] / $atom_structure['time_to_sample_table'][$i]['sample_duration']; - // if ($stts_new_framerate <= 60) { - // // some atoms have durations of "1" giving a very large framerate, which probably is not right - // $info['video']['frame_rate'] = max($info['video']['frame_rate'], $stts_new_framerate); - // } - //} - // - //$FrameRateCalculatorArray[($info['quicktime']['time_scale'] / $atom_structure['time_to_sample_table'][$i]['sample_duration'])] += $atom_structure['time_to_sample_table'][$i]['sample_count']; - } - $info['quicktime']['stts_framecount'][] = $frames_count; - //$sttsFramesTotal = 0; - //$sttsSecondsTotal = 0; - //foreach ($FrameRateCalculatorArray as $frames_per_second => $frame_count) { - // if (($frames_per_second > 60) || ($frames_per_second < 1)) { - // // not video FPS information, probably audio information - // $sttsFramesTotal = 0; - // $sttsSecondsTotal = 0; - // break; - // } - // $sttsFramesTotal += $frame_count; - // $sttsSecondsTotal += $frame_count / $frames_per_second; - //} - //if (($sttsFramesTotal > 0) && ($sttsSecondsTotal > 0)) { - // if (($sttsFramesTotal / $sttsSecondsTotal) > $info['video']['frame_rate']) { - // $info['video']['frame_rate'] = $sttsFramesTotal / $sttsSecondsTotal; - // } - //} - break; - - - case 'stss': // Sample Table Sync Sample (key frames) atom - if ($ParseAllPossibleAtoms) { - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $stssEntriesDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['time_to_sample_table'][$i] = getid3_lib::BigEndian2Int(substr($atom_data, $stssEntriesDataOffset, 4)); - $stssEntriesDataOffset += 4; - } - } - break; - - - case 'stsc': // Sample Table Sample-to-Chunk atom - if ($ParseAllPossibleAtoms) { - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $stscEntriesDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['sample_to_chunk_table'][$i]['first_chunk'] = getid3_lib::BigEndian2Int(substr($atom_data, $stscEntriesDataOffset, 4)); - $stscEntriesDataOffset += 4; - $atom_structure['sample_to_chunk_table'][$i]['samples_per_chunk'] = getid3_lib::BigEndian2Int(substr($atom_data, $stscEntriesDataOffset, 4)); - $stscEntriesDataOffset += 4; - $atom_structure['sample_to_chunk_table'][$i]['sample_description'] = getid3_lib::BigEndian2Int(substr($atom_data, $stscEntriesDataOffset, 4)); - $stscEntriesDataOffset += 4; - } - } - break; - - - case 'stsz': // Sample Table SiZe atom - if ($ParseAllPossibleAtoms) { - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['sample_size'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $stszEntriesDataOffset = 12; - if ($atom_structure['sample_size'] == 0) { - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['sample_size_table'][$i] = getid3_lib::BigEndian2Int(substr($atom_data, $stszEntriesDataOffset, 4)); - $stszEntriesDataOffset += 4; - } - } - } - break; - - - case 'stco': // Sample Table Chunk Offset atom - if ($ParseAllPossibleAtoms) { - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $stcoEntriesDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['chunk_offset_table'][$i] = getid3_lib::BigEndian2Int(substr($atom_data, $stcoEntriesDataOffset, 4)); - $stcoEntriesDataOffset += 4; - } - } - break; - - - case 'co64': // Chunk Offset 64-bit (version of "stco" that supports > 2GB files) - if ($ParseAllPossibleAtoms) { - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $stcoEntriesDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['chunk_offset_table'][$i] = getid3_lib::BigEndian2Int(substr($atom_data, $stcoEntriesDataOffset, 8)); - $stcoEntriesDataOffset += 8; - } - } - break; - - - case 'dref': // Data REFerence atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $drefDataOffset = 8; - for ($i = 0; $i < $atom_structure['number_entries']; $i++) { - $atom_structure['data_references'][$i]['size'] = getid3_lib::BigEndian2Int(substr($atom_data, $drefDataOffset, 4)); - $drefDataOffset += 4; - $atom_structure['data_references'][$i]['type'] = substr($atom_data, $drefDataOffset, 4); - $drefDataOffset += 4; - $atom_structure['data_references'][$i]['version'] = getid3_lib::BigEndian2Int(substr($atom_data, $drefDataOffset, 1)); - $drefDataOffset += 1; - $atom_structure['data_references'][$i]['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, $drefDataOffset, 3)); // hardcoded: 0x0000 - $drefDataOffset += 3; - $atom_structure['data_references'][$i]['data'] = substr($atom_data, $drefDataOffset, ($atom_structure['data_references'][$i]['size'] - 4 - 4 - 1 - 3)); - $drefDataOffset += ($atom_structure['data_references'][$i]['size'] - 4 - 4 - 1 - 3); - - $atom_structure['data_references'][$i]['flags']['self_reference'] = (bool) ($atom_structure['data_references'][$i]['flags_raw'] & 0x001); - } - break; - - - case 'gmin': // base Media INformation atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['graphics_mode'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - $atom_structure['opcolor_red'] = getid3_lib::BigEndian2Int(substr($atom_data, 6, 2)); - $atom_structure['opcolor_green'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 2)); - $atom_structure['opcolor_blue'] = getid3_lib::BigEndian2Int(substr($atom_data, 10, 2)); - $atom_structure['balance'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 2)); - $atom_structure['reserved'] = getid3_lib::BigEndian2Int(substr($atom_data, 14, 2)); - break; - - - case 'smhd': // Sound Media information HeaDer atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['balance'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - $atom_structure['reserved'] = getid3_lib::BigEndian2Int(substr($atom_data, 6, 2)); - break; - - - case 'vmhd': // Video Media information HeaDer atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); - $atom_structure['graphics_mode'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); - $atom_structure['opcolor_red'] = getid3_lib::BigEndian2Int(substr($atom_data, 6, 2)); - $atom_structure['opcolor_green'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 2)); - $atom_structure['opcolor_blue'] = getid3_lib::BigEndian2Int(substr($atom_data, 10, 2)); - - $atom_structure['flags']['no_lean_ahead'] = (bool) ($atom_structure['flags_raw'] & 0x001); - break; - - - case 'hdlr': // HanDLeR reference atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['component_type'] = substr($atom_data, 4, 4); - $atom_structure['component_subtype'] = substr($atom_data, 8, 4); - $atom_structure['component_manufacturer'] = substr($atom_data, 12, 4); - $atom_structure['component_flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 16, 4)); - $atom_structure['component_flags_mask'] = getid3_lib::BigEndian2Int(substr($atom_data, 20, 4)); - $atom_structure['component_name'] = $this->Pascal2String(substr($atom_data, 24)); - - if (($atom_structure['component_subtype'] == 'STpn') && ($atom_structure['component_manufacturer'] == 'zzzz')) { - $info['video']['dataformat'] = 'quicktimevr'; - } - break; - - - case 'mdhd': // MeDia HeaDer atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['creation_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['modify_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $atom_structure['time_scale'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 4)); - $atom_structure['duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 16, 4)); - $atom_structure['language_id'] = getid3_lib::BigEndian2Int(substr($atom_data, 20, 2)); - $atom_structure['quality'] = getid3_lib::BigEndian2Int(substr($atom_data, 22, 2)); - - if ($atom_structure['time_scale'] == 0) { - $info['error'][] = 'Corrupt Quicktime file: mdhd.time_scale == zero'; - return false; - } - $info['quicktime']['time_scale'] = (isset($info['quicktime']['time_scale']) ? max($info['quicktime']['time_scale'], $atom_structure['time_scale']) : $atom_structure['time_scale']); - - $atom_structure['creation_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['creation_time']); - $atom_structure['modify_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['modify_time']); - $atom_structure['playtime_seconds'] = $atom_structure['duration'] / $atom_structure['time_scale']; - $atom_structure['language'] = $this->QuicktimeLanguageLookup($atom_structure['language_id']); - if (empty($info['comments']['language']) || (!in_array($atom_structure['language'], $info['comments']['language']))) { - $info['comments']['language'][] = $atom_structure['language']; - } - break; - - - case 'pnot': // Preview atom - $atom_structure['modification_date'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); // "standard Macintosh format" - $atom_structure['version_number'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); // hardcoded: 0x00 - $atom_structure['atom_type'] = substr($atom_data, 6, 4); // usually: 'PICT' - $atom_structure['atom_index'] = getid3_lib::BigEndian2Int(substr($atom_data, 10, 2)); // usually: 0x01 - - $atom_structure['modification_date_unix'] = getid3_lib::DateMac2Unix($atom_structure['modification_date']); - break; - - - case 'crgn': // Clipping ReGioN atom - $atom_structure['region_size'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 2)); // The Region size, Region boundary box, - $atom_structure['boundary_box'] = getid3_lib::BigEndian2Int(substr($atom_data, 2, 8)); // and Clipping region data fields - $atom_structure['clipping_data'] = substr($atom_data, 10); // constitute a QuickDraw region. - break; - - - case 'load': // track LOAD settings atom - $atom_structure['preload_start_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); - $atom_structure['preload_duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['preload_flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $atom_structure['default_hints_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 4)); - - $atom_structure['default_hints']['double_buffer'] = (bool) ($atom_structure['default_hints_raw'] & 0x0020); - $atom_structure['default_hints']['high_quality'] = (bool) ($atom_structure['default_hints_raw'] & 0x0100); - break; - - - case 'tmcd': // TiMe CoDe atom - case 'chap': // CHAPter list atom - case 'sync': // SYNChronization atom - case 'scpt': // tranSCriPT atom - case 'ssrc': // non-primary SouRCe atom - for ($i = 0; $i < (strlen($atom_data) % 4); $i++) { - $atom_structure['track_id'][$i] = getid3_lib::BigEndian2Int(substr($atom_data, $i * 4, 4)); - } - break; - - - case 'elst': // Edit LiST atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['number_entries'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - for ($i = 0; $i < $atom_structure['number_entries']; $i++ ) { - $atom_structure['edit_list'][$i]['track_duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($i * 12) + 0, 4)); - $atom_structure['edit_list'][$i]['media_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($i * 12) + 4, 4)); - $atom_structure['edit_list'][$i]['media_rate'] = getid3_lib::FixedPoint16_16(substr($atom_data, 8 + ($i * 12) + 8, 4)); - } - break; - - - case 'kmat': // compressed MATte atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); // hardcoded: 0x0000 - $atom_structure['matte_data_raw'] = substr($atom_data, 4); - break; - - - case 'ctab': // Color TABle atom - $atom_structure['color_table_seed'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); // hardcoded: 0x00000000 - $atom_structure['color_table_flags'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 2)); // hardcoded: 0x8000 - $atom_structure['color_table_size'] = getid3_lib::BigEndian2Int(substr($atom_data, 6, 2)) + 1; - for ($colortableentry = 0; $colortableentry < $atom_structure['color_table_size']; $colortableentry++) { - $atom_structure['color_table'][$colortableentry]['alpha'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($colortableentry * 8) + 0, 2)); - $atom_structure['color_table'][$colortableentry]['red'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($colortableentry * 8) + 2, 2)); - $atom_structure['color_table'][$colortableentry]['green'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($colortableentry * 8) + 4, 2)); - $atom_structure['color_table'][$colortableentry]['blue'] = getid3_lib::BigEndian2Int(substr($atom_data, 8 + ($colortableentry * 8) + 6, 2)); - } - break; - - - case 'mvhd': // MoVie HeaDer atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); - $atom_structure['creation_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['modify_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $atom_structure['time_scale'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 4)); - $atom_structure['duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 16, 4)); - $atom_structure['preferred_rate'] = getid3_lib::FixedPoint16_16(substr($atom_data, 20, 4)); - $atom_structure['preferred_volume'] = getid3_lib::FixedPoint8_8(substr($atom_data, 24, 2)); - $atom_structure['reserved'] = substr($atom_data, 26, 10); - $atom_structure['matrix_a'] = getid3_lib::FixedPoint16_16(substr($atom_data, 36, 4)); - $atom_structure['matrix_b'] = getid3_lib::FixedPoint16_16(substr($atom_data, 40, 4)); - $atom_structure['matrix_u'] = getid3_lib::FixedPoint2_30(substr($atom_data, 44, 4)); - $atom_structure['matrix_c'] = getid3_lib::FixedPoint16_16(substr($atom_data, 48, 4)); - $atom_structure['matrix_d'] = getid3_lib::FixedPoint16_16(substr($atom_data, 52, 4)); - $atom_structure['matrix_v'] = getid3_lib::FixedPoint2_30(substr($atom_data, 56, 4)); - $atom_structure['matrix_x'] = getid3_lib::FixedPoint16_16(substr($atom_data, 60, 4)); - $atom_structure['matrix_y'] = getid3_lib::FixedPoint16_16(substr($atom_data, 64, 4)); - $atom_structure['matrix_w'] = getid3_lib::FixedPoint2_30(substr($atom_data, 68, 4)); - $atom_structure['preview_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 72, 4)); - $atom_structure['preview_duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 76, 4)); - $atom_structure['poster_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 80, 4)); - $atom_structure['selection_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 84, 4)); - $atom_structure['selection_duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 88, 4)); - $atom_structure['current_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 92, 4)); - $atom_structure['next_track_id'] = getid3_lib::BigEndian2Int(substr($atom_data, 96, 4)); - - if ($atom_structure['time_scale'] == 0) { - $info['error'][] = 'Corrupt Quicktime file: mvhd.time_scale == zero'; - return false; - } - $atom_structure['creation_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['creation_time']); - $atom_structure['modify_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['modify_time']); - $info['quicktime']['time_scale'] = (isset($info['quicktime']['time_scale']) ? max($info['quicktime']['time_scale'], $atom_structure['time_scale']) : $atom_structure['time_scale']); - $info['quicktime']['display_scale'] = $atom_structure['matrix_a']; - $info['playtime_seconds'] = $atom_structure['duration'] / $atom_structure['time_scale']; - break; - - - case 'tkhd': // TracK HeaDer atom - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); - $atom_structure['creation_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['modify_time'] = getid3_lib::BigEndian2Int(substr($atom_data, 8, 4)); - $atom_structure['trackid'] = getid3_lib::BigEndian2Int(substr($atom_data, 12, 4)); - $atom_structure['reserved1'] = getid3_lib::BigEndian2Int(substr($atom_data, 16, 4)); - $atom_structure['duration'] = getid3_lib::BigEndian2Int(substr($atom_data, 20, 4)); - $atom_structure['reserved2'] = getid3_lib::BigEndian2Int(substr($atom_data, 24, 8)); - $atom_structure['layer'] = getid3_lib::BigEndian2Int(substr($atom_data, 32, 2)); - $atom_structure['alternate_group'] = getid3_lib::BigEndian2Int(substr($atom_data, 34, 2)); - $atom_structure['volume'] = getid3_lib::FixedPoint8_8(substr($atom_data, 36, 2)); - $atom_structure['reserved3'] = getid3_lib::BigEndian2Int(substr($atom_data, 38, 2)); -// http://developer.apple.com/library/mac/#documentation/QuickTime/RM/MovieBasics/MTEditing/K-Chapter/11MatrixFunctions.html -// http://developer.apple.com/library/mac/#documentation/QuickTime/qtff/QTFFChap4/qtff4.html#//apple_ref/doc/uid/TP40000939-CH206-18737 - $atom_structure['matrix_a'] = getid3_lib::FixedPoint16_16(substr($atom_data, 40, 4)); - $atom_structure['matrix_b'] = getid3_lib::FixedPoint16_16(substr($atom_data, 44, 4)); - $atom_structure['matrix_u'] = getid3_lib::FixedPoint2_30(substr($atom_data, 48, 4)); - $atom_structure['matrix_c'] = getid3_lib::FixedPoint16_16(substr($atom_data, 52, 4)); - $atom_structure['matrix_d'] = getid3_lib::FixedPoint16_16(substr($atom_data, 56, 4)); - $atom_structure['matrix_v'] = getid3_lib::FixedPoint2_30(substr($atom_data, 60, 4)); - $atom_structure['matrix_x'] = getid3_lib::FixedPoint16_16(substr($atom_data, 64, 4)); - $atom_structure['matrix_y'] = getid3_lib::FixedPoint16_16(substr($atom_data, 68, 4)); - $atom_structure['matrix_w'] = getid3_lib::FixedPoint2_30(substr($atom_data, 72, 4)); - $atom_structure['width'] = getid3_lib::FixedPoint16_16(substr($atom_data, 76, 4)); - $atom_structure['height'] = getid3_lib::FixedPoint16_16(substr($atom_data, 80, 4)); - $atom_structure['flags']['enabled'] = (bool) ($atom_structure['flags_raw'] & 0x0001); - $atom_structure['flags']['in_movie'] = (bool) ($atom_structure['flags_raw'] & 0x0002); - $atom_structure['flags']['in_preview'] = (bool) ($atom_structure['flags_raw'] & 0x0004); - $atom_structure['flags']['in_poster'] = (bool) ($atom_structure['flags_raw'] & 0x0008); - $atom_structure['creation_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['creation_time']); - $atom_structure['modify_time_unix'] = getid3_lib::DateMac2Unix($atom_structure['modify_time']); - - if ($atom_structure['flags']['enabled'] == 1) { - if (!isset($info['video']['resolution_x']) || !isset($info['video']['resolution_y'])) { - $info['video']['resolution_x'] = $atom_structure['width']; - $info['video']['resolution_y'] = $atom_structure['height']; - } - $info['video']['resolution_x'] = max($info['video']['resolution_x'], $atom_structure['width']); - $info['video']['resolution_y'] = max($info['video']['resolution_y'], $atom_structure['height']); - $info['quicktime']['video']['resolution_x'] = $info['video']['resolution_x']; - $info['quicktime']['video']['resolution_y'] = $info['video']['resolution_y']; - } else { - // see: http://www.getid3.org/phpBB3/viewtopic.php?t=1295 - //if (isset($info['video']['resolution_x'])) { unset($info['video']['resolution_x']); } - //if (isset($info['video']['resolution_y'])) { unset($info['video']['resolution_y']); } - //if (isset($info['quicktime']['video'])) { unset($info['quicktime']['video']); } - } - break; - - - case 'iods': // Initial Object DeScriptor atom - // http://www.koders.com/c/fid1FAB3E762903DC482D8A246D4A4BF9F28E049594.aspx?s=windows.h - // http://libquicktime.sourcearchive.com/documentation/1.0.2plus-pdebian/iods_8c-source.html - $offset = 0; - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 3)); - $offset += 3; - $atom_structure['mp4_iod_tag'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['length'] = $this->quicktime_read_mp4_descr_length($atom_data, $offset); - //$offset already adjusted by quicktime_read_mp4_descr_length() - $atom_structure['object_descriptor_id'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 2)); - $offset += 2; - $atom_structure['od_profile_level'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['scene_profile_level'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['audio_profile_id'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['video_profile_id'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['graphics_profile_level'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - - $atom_structure['num_iods_tracks'] = ($atom_structure['length'] - 7) / 6; // 6 bytes would only be right if all tracks use 1-byte length fields - for ($i = 0; $i < $atom_structure['num_iods_tracks']; $i++) { - $atom_structure['track'][$i]['ES_ID_IncTag'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 1)); - $offset += 1; - $atom_structure['track'][$i]['length'] = $this->quicktime_read_mp4_descr_length($atom_data, $offset); - //$offset already adjusted by quicktime_read_mp4_descr_length() - $atom_structure['track'][$i]['track_id'] = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 4)); - $offset += 4; - } - - $atom_structure['audio_profile_name'] = $this->QuicktimeIODSaudioProfileName($atom_structure['audio_profile_id']); - $atom_structure['video_profile_name'] = $this->QuicktimeIODSvideoProfileName($atom_structure['video_profile_id']); - break; - - case 'ftyp': // FileTYPe (?) atom (for MP4 it seems) - $atom_structure['signature'] = substr($atom_data, 0, 4); - $atom_structure['unknown_1'] = getid3_lib::BigEndian2Int(substr($atom_data, 4, 4)); - $atom_structure['fourcc'] = substr($atom_data, 8, 4); - break; - - case 'mdat': // Media DATa atom - case 'free': // FREE space atom - case 'skip': // SKIP atom - case 'wide': // 64-bit expansion placeholder atom - // 'mdat' data is too big to deal with, contains no useful metadata - // 'free', 'skip' and 'wide' are just padding, contains no useful data at all - - // When writing QuickTime files, it is sometimes necessary to update an atom's size. - // It is impossible to update a 32-bit atom to a 64-bit atom since the 32-bit atom - // is only 8 bytes in size, and the 64-bit atom requires 16 bytes. Therefore, QuickTime - // puts an 8-byte placeholder atom before any atoms it may have to update the size of. - // In this way, if the atom needs to be converted from a 32-bit to a 64-bit atom, the - // placeholder atom can be overwritten to obtain the necessary 8 extra bytes. - // The placeholder atom has a type of kWideAtomPlaceholderType ( 'wide' ). - break; - - - case 'nsav': // NoSAVe atom - // http://developer.apple.com/technotes/tn/tn2038.html - $atom_structure['data'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); - break; - - case 'ctyp': // Controller TYPe atom (seen on QTVR) - // http://homepages.slingshot.co.nz/~helmboy/quicktime/formats/qtm-layout.txt - // some controller names are: - // 0x00 + 'std' for linear movie - // 'none' for no controls - $atom_structure['ctyp'] = substr($atom_data, 0, 4); - $info['quicktime']['controller'] = $atom_structure['ctyp']; - switch ($atom_structure['ctyp']) { - case 'qtvr': - $info['video']['dataformat'] = 'quicktimevr'; - break; - } - break; - - case 'pano': // PANOrama track (seen on QTVR) - $atom_structure['pano'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 4)); - break; - - case 'hint': // HINT track - case 'hinf': // - case 'hinv': // - case 'hnti': // - $info['quicktime']['hinting'] = true; - break; - - case 'imgt': // IMaGe Track reference (kQTVRImageTrackRefType) (seen on QTVR) - for ($i = 0; $i < ($atom_structure['size'] - 8); $i += 4) { - $atom_structure['imgt'][] = getid3_lib::BigEndian2Int(substr($atom_data, $i, 4)); - } - break; - - - // Observed-but-not-handled atom types are just listed here to prevent warnings being generated - case 'FXTC': // Something to do with Adobe After Effects (?) - case 'PrmA': - case 'code': - case 'FIEL': // this is NOT "fiel" (Field Ordering) as describe here: http://developer.apple.com/documentation/QuickTime/QTFF/QTFFChap3/chapter_4_section_2.html - case 'tapt': // TrackApertureModeDimensionsAID - http://developer.apple.com/documentation/QuickTime/Reference/QT7-1_Update_Reference/Constants/Constants.html - // tapt seems to be used to compute the video size [http://www.getid3.org/phpBB3/viewtopic.php?t=838] - // * http://lists.apple.com/archives/quicktime-api/2006/Aug/msg00014.html - // * http://handbrake.fr/irclogs/handbrake-dev/handbrake-dev20080128_pg2.html - case 'ctts':// STCompositionOffsetAID - http://developer.apple.com/documentation/QuickTime/Reference/QTRef_Constants/Reference/reference.html - case 'cslg':// STCompositionShiftLeastGreatestAID - http://developer.apple.com/documentation/QuickTime/Reference/QTRef_Constants/Reference/reference.html - case 'sdtp':// STSampleDependencyAID - http://developer.apple.com/documentation/QuickTime/Reference/QTRef_Constants/Reference/reference.html - case 'stps':// STPartialSyncSampleAID - http://developer.apple.com/documentation/QuickTime/Reference/QTRef_Constants/Reference/reference.html - //$atom_structure['data'] = $atom_data; - break; - - case '©xyz': // GPS latitude+longitude+altitude - $atom_structure['data'] = $atom_data; - if (preg_match('#([\\+\\-][0-9\\.]+)([\\+\\-][0-9\\.]+)([\\+\\-][0-9\\.]+)?/$#i', $atom_data, $matches)) { - @list($all, $latitude, $longitude, $altitude) = $matches; - $info['quicktime']['comments']['gps_latitude'][] = floatval($latitude); - $info['quicktime']['comments']['gps_longitude'][] = floatval($longitude); - if (!empty($altitude)) { - $info['quicktime']['comments']['gps_altitude'][] = floatval($altitude); - } - } else { - $info['warning'][] = 'QuickTime atom "©xyz" data does not match expected data pattern at offset '.$baseoffset.'. Please report as getID3() bug.'; - } - break; - - case 'NCDT': - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html - // Nikon-specific QuickTime tags found in the NCDT atom of MOV videos from some Nikon cameras such as the Coolpix S8000 and D5100 - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 4, $atomHierarchy, $ParseAllPossibleAtoms); - break; - case 'NCTH': // Nikon Camera THumbnail image - case 'NCVW': // Nikon Camera preVieW image - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html - if (preg_match('/^\xFF\xD8\xFF/', $atom_data)) { - $atom_structure['data'] = $atom_data; - $atom_structure['image_mime'] = 'image/jpeg'; - $atom_structure['description'] = (($atomname == 'NCTH') ? 'Nikon Camera Thumbnail Image' : (($atomname == 'NCVW') ? 'Nikon Camera Preview Image' : 'Nikon preview image')); - $info['quicktime']['comments']['picture'][] = array('image_mime'=>$atom_structure['image_mime'], 'data'=>$atom_data, 'description'=>$atom_structure['description']); - } - break; - case 'NCHD': // MakerNoteVersion - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html - $atom_structure['data'] = $atom_data; - break; - case 'NCTG': // NikonTags - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html#NCTG - $atom_structure['data'] = $this->QuicktimeParseNikonNCTG($atom_data); - break; - case 'NCDB': // NikonTags - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html - $atom_structure['data'] = $atom_data; - break; - - case "\x00\x00\x00\x00": - case 'meta': // METAdata atom - // some kind of metacontainer, may contain a big data dump such as: - // mdta keys  mdtacom.apple.quicktime.make (mdtacom.apple.quicktime.creationdate ,mdtacom.apple.quicktime.location.ISO6709 $mdtacom.apple.quicktime.software !mdtacom.apple.quicktime.model ilst   data DEApple 0  (data DE2011-05-11T17:54:04+0200 2  *data DE+52.4936+013.3897+040.247/   data DE4.3.1  data DEiPhone 4 - // http://www.geocities.com/xhelmboyx/quicktime/formats/qti-layout.txt - - $atom_structure['version'] = getid3_lib::BigEndian2Int(substr($atom_data, 0, 1)); - $atom_structure['flags_raw'] = getid3_lib::BigEndian2Int(substr($atom_data, 1, 3)); - $atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom(substr($atom_data, 4), $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - //$atom_structure['subatoms'] = $this->QuicktimeParseContainerAtom($atom_data, $baseoffset + 8, $atomHierarchy, $ParseAllPossibleAtoms); - break; - - case 'data': // metaDATA atom - // seems to be 2 bytes language code (ASCII), 2 bytes unknown (set to 0x10B5 in sample I have), remainder is useful data - $atom_structure['language'] = substr($atom_data, 4 + 0, 2); - $atom_structure['unknown'] = getid3_lib::BigEndian2Int(substr($atom_data, 4 + 2, 2)); - $atom_structure['data'] = substr($atom_data, 4 + 4); - break; - - default: - $info['warning'][] = 'Unknown QuickTime atom type: "'.$atomname.'" ('.trim(getid3_lib::PrintHexBytes($atomname)).') at offset '.$baseoffset; - $atom_structure['data'] = $atom_data; - break; - } - array_pop($atomHierarchy); - return $atom_structure; - } - - public function QuicktimeParseContainerAtom($atom_data, $baseoffset, &$atomHierarchy, $ParseAllPossibleAtoms) { -//echo 'QuicktimeParseContainerAtom('.substr($atom_data, 4, 4).') @ '.$baseoffset.'

'; - $atom_structure = false; - $subatomoffset = 0; - $subatomcounter = 0; - if ((strlen($atom_data) == 4) && (getid3_lib::BigEndian2Int($atom_data) == 0x00000000)) { - return false; - } - while ($subatomoffset < strlen($atom_data)) { - $subatomsize = getid3_lib::BigEndian2Int(substr($atom_data, $subatomoffset + 0, 4)); - $subatomname = substr($atom_data, $subatomoffset + 4, 4); - $subatomdata = substr($atom_data, $subatomoffset + 8, $subatomsize - 8); - if ($subatomsize == 0) { - // Furthermore, for historical reasons the list of atoms is optionally - // terminated by a 32-bit integer set to 0. If you are writing a program - // to read user data atoms, you should allow for the terminating 0. - return $atom_structure; - } - - $atom_structure[$subatomcounter] = $this->QuicktimeParseAtom($subatomname, $subatomsize, $subatomdata, $baseoffset + $subatomoffset, $atomHierarchy, $ParseAllPossibleAtoms); - - $subatomoffset += $subatomsize; - $subatomcounter++; - } - return $atom_structure; - } - - - public function quicktime_read_mp4_descr_length($data, &$offset) { - // http://libquicktime.sourcearchive.com/documentation/2:1.0.2plus-pdebian-2build1/esds_8c-source.html - $num_bytes = 0; - $length = 0; - do { - $b = ord(substr($data, $offset++, 1)); - $length = ($length << 7) | ($b & 0x7F); - } while (($b & 0x80) && ($num_bytes++ < 4)); - return $length; - } - - - public function QuicktimeLanguageLookup($languageid) { - // http://developer.apple.com/library/mac/#documentation/QuickTime/QTFF/QTFFChap4/qtff4.html#//apple_ref/doc/uid/TP40000939-CH206-34353 - static $QuicktimeLanguageLookup = array(); - if (empty($QuicktimeLanguageLookup)) { - $QuicktimeLanguageLookup[0] = 'English'; - $QuicktimeLanguageLookup[1] = 'French'; - $QuicktimeLanguageLookup[2] = 'German'; - $QuicktimeLanguageLookup[3] = 'Italian'; - $QuicktimeLanguageLookup[4] = 'Dutch'; - $QuicktimeLanguageLookup[5] = 'Swedish'; - $QuicktimeLanguageLookup[6] = 'Spanish'; - $QuicktimeLanguageLookup[7] = 'Danish'; - $QuicktimeLanguageLookup[8] = 'Portuguese'; - $QuicktimeLanguageLookup[9] = 'Norwegian'; - $QuicktimeLanguageLookup[10] = 'Hebrew'; - $QuicktimeLanguageLookup[11] = 'Japanese'; - $QuicktimeLanguageLookup[12] = 'Arabic'; - $QuicktimeLanguageLookup[13] = 'Finnish'; - $QuicktimeLanguageLookup[14] = 'Greek'; - $QuicktimeLanguageLookup[15] = 'Icelandic'; - $QuicktimeLanguageLookup[16] = 'Maltese'; - $QuicktimeLanguageLookup[17] = 'Turkish'; - $QuicktimeLanguageLookup[18] = 'Croatian'; - $QuicktimeLanguageLookup[19] = 'Chinese (Traditional)'; - $QuicktimeLanguageLookup[20] = 'Urdu'; - $QuicktimeLanguageLookup[21] = 'Hindi'; - $QuicktimeLanguageLookup[22] = 'Thai'; - $QuicktimeLanguageLookup[23] = 'Korean'; - $QuicktimeLanguageLookup[24] = 'Lithuanian'; - $QuicktimeLanguageLookup[25] = 'Polish'; - $QuicktimeLanguageLookup[26] = 'Hungarian'; - $QuicktimeLanguageLookup[27] = 'Estonian'; - $QuicktimeLanguageLookup[28] = 'Lettish'; - $QuicktimeLanguageLookup[28] = 'Latvian'; - $QuicktimeLanguageLookup[29] = 'Saamisk'; - $QuicktimeLanguageLookup[29] = 'Lappish'; - $QuicktimeLanguageLookup[30] = 'Faeroese'; - $QuicktimeLanguageLookup[31] = 'Farsi'; - $QuicktimeLanguageLookup[31] = 'Persian'; - $QuicktimeLanguageLookup[32] = 'Russian'; - $QuicktimeLanguageLookup[33] = 'Chinese (Simplified)'; - $QuicktimeLanguageLookup[34] = 'Flemish'; - $QuicktimeLanguageLookup[35] = 'Irish'; - $QuicktimeLanguageLookup[36] = 'Albanian'; - $QuicktimeLanguageLookup[37] = 'Romanian'; - $QuicktimeLanguageLookup[38] = 'Czech'; - $QuicktimeLanguageLookup[39] = 'Slovak'; - $QuicktimeLanguageLookup[40] = 'Slovenian'; - $QuicktimeLanguageLookup[41] = 'Yiddish'; - $QuicktimeLanguageLookup[42] = 'Serbian'; - $QuicktimeLanguageLookup[43] = 'Macedonian'; - $QuicktimeLanguageLookup[44] = 'Bulgarian'; - $QuicktimeLanguageLookup[45] = 'Ukrainian'; - $QuicktimeLanguageLookup[46] = 'Byelorussian'; - $QuicktimeLanguageLookup[47] = 'Uzbek'; - $QuicktimeLanguageLookup[48] = 'Kazakh'; - $QuicktimeLanguageLookup[49] = 'Azerbaijani'; - $QuicktimeLanguageLookup[50] = 'AzerbaijanAr'; - $QuicktimeLanguageLookup[51] = 'Armenian'; - $QuicktimeLanguageLookup[52] = 'Georgian'; - $QuicktimeLanguageLookup[53] = 'Moldavian'; - $QuicktimeLanguageLookup[54] = 'Kirghiz'; - $QuicktimeLanguageLookup[55] = 'Tajiki'; - $QuicktimeLanguageLookup[56] = 'Turkmen'; - $QuicktimeLanguageLookup[57] = 'Mongolian'; - $QuicktimeLanguageLookup[58] = 'MongolianCyr'; - $QuicktimeLanguageLookup[59] = 'Pashto'; - $QuicktimeLanguageLookup[60] = 'Kurdish'; - $QuicktimeLanguageLookup[61] = 'Kashmiri'; - $QuicktimeLanguageLookup[62] = 'Sindhi'; - $QuicktimeLanguageLookup[63] = 'Tibetan'; - $QuicktimeLanguageLookup[64] = 'Nepali'; - $QuicktimeLanguageLookup[65] = 'Sanskrit'; - $QuicktimeLanguageLookup[66] = 'Marathi'; - $QuicktimeLanguageLookup[67] = 'Bengali'; - $QuicktimeLanguageLookup[68] = 'Assamese'; - $QuicktimeLanguageLookup[69] = 'Gujarati'; - $QuicktimeLanguageLookup[70] = 'Punjabi'; - $QuicktimeLanguageLookup[71] = 'Oriya'; - $QuicktimeLanguageLookup[72] = 'Malayalam'; - $QuicktimeLanguageLookup[73] = 'Kannada'; - $QuicktimeLanguageLookup[74] = 'Tamil'; - $QuicktimeLanguageLookup[75] = 'Telugu'; - $QuicktimeLanguageLookup[76] = 'Sinhalese'; - $QuicktimeLanguageLookup[77] = 'Burmese'; - $QuicktimeLanguageLookup[78] = 'Khmer'; - $QuicktimeLanguageLookup[79] = 'Lao'; - $QuicktimeLanguageLookup[80] = 'Vietnamese'; - $QuicktimeLanguageLookup[81] = 'Indonesian'; - $QuicktimeLanguageLookup[82] = 'Tagalog'; - $QuicktimeLanguageLookup[83] = 'MalayRoman'; - $QuicktimeLanguageLookup[84] = 'MalayArabic'; - $QuicktimeLanguageLookup[85] = 'Amharic'; - $QuicktimeLanguageLookup[86] = 'Tigrinya'; - $QuicktimeLanguageLookup[87] = 'Galla'; - $QuicktimeLanguageLookup[87] = 'Oromo'; - $QuicktimeLanguageLookup[88] = 'Somali'; - $QuicktimeLanguageLookup[89] = 'Swahili'; - $QuicktimeLanguageLookup[90] = 'Ruanda'; - $QuicktimeLanguageLookup[91] = 'Rundi'; - $QuicktimeLanguageLookup[92] = 'Chewa'; - $QuicktimeLanguageLookup[93] = 'Malagasy'; - $QuicktimeLanguageLookup[94] = 'Esperanto'; - $QuicktimeLanguageLookup[128] = 'Welsh'; - $QuicktimeLanguageLookup[129] = 'Basque'; - $QuicktimeLanguageLookup[130] = 'Catalan'; - $QuicktimeLanguageLookup[131] = 'Latin'; - $QuicktimeLanguageLookup[132] = 'Quechua'; - $QuicktimeLanguageLookup[133] = 'Guarani'; - $QuicktimeLanguageLookup[134] = 'Aymara'; - $QuicktimeLanguageLookup[135] = 'Tatar'; - $QuicktimeLanguageLookup[136] = 'Uighur'; - $QuicktimeLanguageLookup[137] = 'Dzongkha'; - $QuicktimeLanguageLookup[138] = 'JavaneseRom'; - $QuicktimeLanguageLookup[32767] = 'Unspecified'; - } - if (($languageid > 138) && ($languageid < 32767)) { - /* - ISO Language Codes - http://www.loc.gov/standards/iso639-2/php/code_list.php - Because the language codes specified by ISO 639-2/T are three characters long, they must be packed to fit into a 16-bit field. - The packing algorithm must map each of the three characters, which are always lowercase, into a 5-bit integer and then concatenate - these integers into the least significant 15 bits of a 16-bit integer, leaving the 16-bit integer's most significant bit set to zero. - - One algorithm for performing this packing is to treat each ISO character as a 16-bit integer. Subtract 0x60 from the first character - and multiply by 2^10 (0x400), subtract 0x60 from the second character and multiply by 2^5 (0x20), subtract 0x60 from the third character, - and add the three 16-bit values. This will result in a single 16-bit value with the three codes correctly packed into the 15 least - significant bits and the most significant bit set to zero. - */ - $iso_language_id = ''; - $iso_language_id .= chr((($languageid & 0x7C00) >> 10) + 0x60); - $iso_language_id .= chr((($languageid & 0x03E0) >> 5) + 0x60); - $iso_language_id .= chr((($languageid & 0x001F) >> 0) + 0x60); - $QuicktimeLanguageLookup[$languageid] = getid3_id3v2::LanguageLookup($iso_language_id); - } - return (isset($QuicktimeLanguageLookup[$languageid]) ? $QuicktimeLanguageLookup[$languageid] : 'invalid'); - } - - public function QuicktimeVideoCodecLookup($codecid) { - static $QuicktimeVideoCodecLookup = array(); - if (empty($QuicktimeVideoCodecLookup)) { - $QuicktimeVideoCodecLookup['.SGI'] = 'SGI'; - $QuicktimeVideoCodecLookup['3IV1'] = '3ivx MPEG-4 v1'; - $QuicktimeVideoCodecLookup['3IV2'] = '3ivx MPEG-4 v2'; - $QuicktimeVideoCodecLookup['3IVX'] = '3ivx MPEG-4'; - $QuicktimeVideoCodecLookup['8BPS'] = 'Planar RGB'; - $QuicktimeVideoCodecLookup['avc1'] = 'H.264/MPEG-4 AVC'; - $QuicktimeVideoCodecLookup['avr '] = 'AVR-JPEG'; - $QuicktimeVideoCodecLookup['b16g'] = '16Gray'; - $QuicktimeVideoCodecLookup['b32a'] = '32AlphaGray'; - $QuicktimeVideoCodecLookup['b48r'] = '48RGB'; - $QuicktimeVideoCodecLookup['b64a'] = '64ARGB'; - $QuicktimeVideoCodecLookup['base'] = 'Base'; - $QuicktimeVideoCodecLookup['clou'] = 'Cloud'; - $QuicktimeVideoCodecLookup['cmyk'] = 'CMYK'; - $QuicktimeVideoCodecLookup['cvid'] = 'Cinepak'; - $QuicktimeVideoCodecLookup['dmb1'] = 'OpenDML JPEG'; - $QuicktimeVideoCodecLookup['dvc '] = 'DVC-NTSC'; - $QuicktimeVideoCodecLookup['dvcp'] = 'DVC-PAL'; - $QuicktimeVideoCodecLookup['dvpn'] = 'DVCPro-NTSC'; - $QuicktimeVideoCodecLookup['dvpp'] = 'DVCPro-PAL'; - $QuicktimeVideoCodecLookup['fire'] = 'Fire'; - $QuicktimeVideoCodecLookup['flic'] = 'FLC'; - $QuicktimeVideoCodecLookup['gif '] = 'GIF'; - $QuicktimeVideoCodecLookup['h261'] = 'H261'; - $QuicktimeVideoCodecLookup['h263'] = 'H263'; - $QuicktimeVideoCodecLookup['IV41'] = 'Indeo4'; - $QuicktimeVideoCodecLookup['jpeg'] = 'JPEG'; - $QuicktimeVideoCodecLookup['kpcd'] = 'PhotoCD'; - $QuicktimeVideoCodecLookup['mjpa'] = 'Motion JPEG-A'; - $QuicktimeVideoCodecLookup['mjpb'] = 'Motion JPEG-B'; - $QuicktimeVideoCodecLookup['msvc'] = 'Microsoft Video1'; - $QuicktimeVideoCodecLookup['myuv'] = 'MPEG YUV420'; - $QuicktimeVideoCodecLookup['path'] = 'Vector'; - $QuicktimeVideoCodecLookup['png '] = 'PNG'; - $QuicktimeVideoCodecLookup['PNTG'] = 'MacPaint'; - $QuicktimeVideoCodecLookup['qdgx'] = 'QuickDrawGX'; - $QuicktimeVideoCodecLookup['qdrw'] = 'QuickDraw'; - $QuicktimeVideoCodecLookup['raw '] = 'RAW'; - $QuicktimeVideoCodecLookup['ripl'] = 'WaterRipple'; - $QuicktimeVideoCodecLookup['rpza'] = 'Video'; - $QuicktimeVideoCodecLookup['smc '] = 'Graphics'; - $QuicktimeVideoCodecLookup['SVQ1'] = 'Sorenson Video 1'; - $QuicktimeVideoCodecLookup['SVQ1'] = 'Sorenson Video 3'; - $QuicktimeVideoCodecLookup['syv9'] = 'Sorenson YUV9'; - $QuicktimeVideoCodecLookup['tga '] = 'Targa'; - $QuicktimeVideoCodecLookup['tiff'] = 'TIFF'; - $QuicktimeVideoCodecLookup['WRAW'] = 'Windows RAW'; - $QuicktimeVideoCodecLookup['WRLE'] = 'BMP'; - $QuicktimeVideoCodecLookup['y420'] = 'YUV420'; - $QuicktimeVideoCodecLookup['yuv2'] = 'ComponentVideo'; - $QuicktimeVideoCodecLookup['yuvs'] = 'ComponentVideoUnsigned'; - $QuicktimeVideoCodecLookup['yuvu'] = 'ComponentVideoSigned'; - } - return (isset($QuicktimeVideoCodecLookup[$codecid]) ? $QuicktimeVideoCodecLookup[$codecid] : ''); - } - - public function QuicktimeAudioCodecLookup($codecid) { - static $QuicktimeAudioCodecLookup = array(); - if (empty($QuicktimeAudioCodecLookup)) { - $QuicktimeAudioCodecLookup['.mp3'] = 'Fraunhofer MPEG Layer-III alias'; - $QuicktimeAudioCodecLookup['aac '] = 'ISO/IEC 14496-3 AAC'; - $QuicktimeAudioCodecLookup['agsm'] = 'Apple GSM 10:1'; - $QuicktimeAudioCodecLookup['alac'] = 'Apple Lossless Audio Codec'; - $QuicktimeAudioCodecLookup['alaw'] = 'A-law 2:1'; - $QuicktimeAudioCodecLookup['conv'] = 'Sample Format'; - $QuicktimeAudioCodecLookup['dvca'] = 'DV'; - $QuicktimeAudioCodecLookup['dvi '] = 'DV 4:1'; - $QuicktimeAudioCodecLookup['eqal'] = 'Frequency Equalizer'; - $QuicktimeAudioCodecLookup['fl32'] = '32-bit Floating Point'; - $QuicktimeAudioCodecLookup['fl64'] = '64-bit Floating Point'; - $QuicktimeAudioCodecLookup['ima4'] = 'Interactive Multimedia Association 4:1'; - $QuicktimeAudioCodecLookup['in24'] = '24-bit Integer'; - $QuicktimeAudioCodecLookup['in32'] = '32-bit Integer'; - $QuicktimeAudioCodecLookup['lpc '] = 'LPC 23:1'; - $QuicktimeAudioCodecLookup['MAC3'] = 'Macintosh Audio Compression/Expansion (MACE) 3:1'; - $QuicktimeAudioCodecLookup['MAC6'] = 'Macintosh Audio Compression/Expansion (MACE) 6:1'; - $QuicktimeAudioCodecLookup['mixb'] = '8-bit Mixer'; - $QuicktimeAudioCodecLookup['mixw'] = '16-bit Mixer'; - $QuicktimeAudioCodecLookup['mp4a'] = 'ISO/IEC 14496-3 AAC'; - $QuicktimeAudioCodecLookup['MS'."\x00\x02"] = 'Microsoft ADPCM'; - $QuicktimeAudioCodecLookup['MS'."\x00\x11"] = 'DV IMA'; - $QuicktimeAudioCodecLookup['MS'."\x00\x55"] = 'Fraunhofer MPEG Layer III'; - $QuicktimeAudioCodecLookup['NONE'] = 'No Encoding'; - $QuicktimeAudioCodecLookup['Qclp'] = 'Qualcomm PureVoice'; - $QuicktimeAudioCodecLookup['QDM2'] = 'QDesign Music 2'; - $QuicktimeAudioCodecLookup['QDMC'] = 'QDesign Music 1'; - $QuicktimeAudioCodecLookup['ratb'] = '8-bit Rate'; - $QuicktimeAudioCodecLookup['ratw'] = '16-bit Rate'; - $QuicktimeAudioCodecLookup['raw '] = 'raw PCM'; - $QuicktimeAudioCodecLookup['sour'] = 'Sound Source'; - $QuicktimeAudioCodecLookup['sowt'] = 'signed/two\'s complement (Little Endian)'; - $QuicktimeAudioCodecLookup['str1'] = 'Iomega MPEG layer II'; - $QuicktimeAudioCodecLookup['str2'] = 'Iomega MPEG *layer II'; - $QuicktimeAudioCodecLookup['str3'] = 'Iomega MPEG **layer II'; - $QuicktimeAudioCodecLookup['str4'] = 'Iomega MPEG ***layer II'; - $QuicktimeAudioCodecLookup['twos'] = 'signed/two\'s complement (Big Endian)'; - $QuicktimeAudioCodecLookup['ulaw'] = 'mu-law 2:1'; - } - return (isset($QuicktimeAudioCodecLookup[$codecid]) ? $QuicktimeAudioCodecLookup[$codecid] : ''); - } - - public function QuicktimeDCOMLookup($compressionid) { - static $QuicktimeDCOMLookup = array(); - if (empty($QuicktimeDCOMLookup)) { - $QuicktimeDCOMLookup['zlib'] = 'ZLib Deflate'; - $QuicktimeDCOMLookup['adec'] = 'Apple Compression'; - } - return (isset($QuicktimeDCOMLookup[$compressionid]) ? $QuicktimeDCOMLookup[$compressionid] : ''); - } - - public function QuicktimeColorNameLookup($colordepthid) { - static $QuicktimeColorNameLookup = array(); - if (empty($QuicktimeColorNameLookup)) { - $QuicktimeColorNameLookup[1] = '2-color (monochrome)'; - $QuicktimeColorNameLookup[2] = '4-color'; - $QuicktimeColorNameLookup[4] = '16-color'; - $QuicktimeColorNameLookup[8] = '256-color'; - $QuicktimeColorNameLookup[16] = 'thousands (16-bit color)'; - $QuicktimeColorNameLookup[24] = 'millions (24-bit color)'; - $QuicktimeColorNameLookup[32] = 'millions+ (32-bit color)'; - $QuicktimeColorNameLookup[33] = 'black & white'; - $QuicktimeColorNameLookup[34] = '4-gray'; - $QuicktimeColorNameLookup[36] = '16-gray'; - $QuicktimeColorNameLookup[40] = '256-gray'; - } - return (isset($QuicktimeColorNameLookup[$colordepthid]) ? $QuicktimeColorNameLookup[$colordepthid] : 'invalid'); - } - - public function QuicktimeSTIKLookup($stik) { - static $QuicktimeSTIKLookup = array(); - if (empty($QuicktimeSTIKLookup)) { - $QuicktimeSTIKLookup[0] = 'Movie'; - $QuicktimeSTIKLookup[1] = 'Normal'; - $QuicktimeSTIKLookup[2] = 'Audiobook'; - $QuicktimeSTIKLookup[5] = 'Whacked Bookmark'; - $QuicktimeSTIKLookup[6] = 'Music Video'; - $QuicktimeSTIKLookup[9] = 'Short Film'; - $QuicktimeSTIKLookup[10] = 'TV Show'; - $QuicktimeSTIKLookup[11] = 'Booklet'; - $QuicktimeSTIKLookup[14] = 'Ringtone'; - $QuicktimeSTIKLookup[21] = 'Podcast'; - } - return (isset($QuicktimeSTIKLookup[$stik]) ? $QuicktimeSTIKLookup[$stik] : 'invalid'); - } - - public function QuicktimeIODSaudioProfileName($audio_profile_id) { - static $QuicktimeIODSaudioProfileNameLookup = array(); - if (empty($QuicktimeIODSaudioProfileNameLookup)) { - $QuicktimeIODSaudioProfileNameLookup = array( - 0x00 => 'ISO Reserved (0x00)', - 0x01 => 'Main Audio Profile @ Level 1', - 0x02 => 'Main Audio Profile @ Level 2', - 0x03 => 'Main Audio Profile @ Level 3', - 0x04 => 'Main Audio Profile @ Level 4', - 0x05 => 'Scalable Audio Profile @ Level 1', - 0x06 => 'Scalable Audio Profile @ Level 2', - 0x07 => 'Scalable Audio Profile @ Level 3', - 0x08 => 'Scalable Audio Profile @ Level 4', - 0x09 => 'Speech Audio Profile @ Level 1', - 0x0A => 'Speech Audio Profile @ Level 2', - 0x0B => 'Synthetic Audio Profile @ Level 1', - 0x0C => 'Synthetic Audio Profile @ Level 2', - 0x0D => 'Synthetic Audio Profile @ Level 3', - 0x0E => 'High Quality Audio Profile @ Level 1', - 0x0F => 'High Quality Audio Profile @ Level 2', - 0x10 => 'High Quality Audio Profile @ Level 3', - 0x11 => 'High Quality Audio Profile @ Level 4', - 0x12 => 'High Quality Audio Profile @ Level 5', - 0x13 => 'High Quality Audio Profile @ Level 6', - 0x14 => 'High Quality Audio Profile @ Level 7', - 0x15 => 'High Quality Audio Profile @ Level 8', - 0x16 => 'Low Delay Audio Profile @ Level 1', - 0x17 => 'Low Delay Audio Profile @ Level 2', - 0x18 => 'Low Delay Audio Profile @ Level 3', - 0x19 => 'Low Delay Audio Profile @ Level 4', - 0x1A => 'Low Delay Audio Profile @ Level 5', - 0x1B => 'Low Delay Audio Profile @ Level 6', - 0x1C => 'Low Delay Audio Profile @ Level 7', - 0x1D => 'Low Delay Audio Profile @ Level 8', - 0x1E => 'Natural Audio Profile @ Level 1', - 0x1F => 'Natural Audio Profile @ Level 2', - 0x20 => 'Natural Audio Profile @ Level 3', - 0x21 => 'Natural Audio Profile @ Level 4', - 0x22 => 'Mobile Audio Internetworking Profile @ Level 1', - 0x23 => 'Mobile Audio Internetworking Profile @ Level 2', - 0x24 => 'Mobile Audio Internetworking Profile @ Level 3', - 0x25 => 'Mobile Audio Internetworking Profile @ Level 4', - 0x26 => 'Mobile Audio Internetworking Profile @ Level 5', - 0x27 => 'Mobile Audio Internetworking Profile @ Level 6', - 0x28 => 'AAC Profile @ Level 1', - 0x29 => 'AAC Profile @ Level 2', - 0x2A => 'AAC Profile @ Level 4', - 0x2B => 'AAC Profile @ Level 5', - 0x2C => 'High Efficiency AAC Profile @ Level 2', - 0x2D => 'High Efficiency AAC Profile @ Level 3', - 0x2E => 'High Efficiency AAC Profile @ Level 4', - 0x2F => 'High Efficiency AAC Profile @ Level 5', - 0xFE => 'Not part of MPEG-4 audio profiles', - 0xFF => 'No audio capability required', - ); - } - return (isset($QuicktimeIODSaudioProfileNameLookup[$audio_profile_id]) ? $QuicktimeIODSaudioProfileNameLookup[$audio_profile_id] : 'ISO Reserved / User Private'); - } - - - public function QuicktimeIODSvideoProfileName($video_profile_id) { - static $QuicktimeIODSvideoProfileNameLookup = array(); - if (empty($QuicktimeIODSvideoProfileNameLookup)) { - $QuicktimeIODSvideoProfileNameLookup = array( - 0x00 => 'Reserved (0x00) Profile', - 0x01 => 'Simple Profile @ Level 1', - 0x02 => 'Simple Profile @ Level 2', - 0x03 => 'Simple Profile @ Level 3', - 0x08 => 'Simple Profile @ Level 0', - 0x10 => 'Simple Scalable Profile @ Level 0', - 0x11 => 'Simple Scalable Profile @ Level 1', - 0x12 => 'Simple Scalable Profile @ Level 2', - 0x15 => 'AVC/H264 Profile', - 0x21 => 'Core Profile @ Level 1', - 0x22 => 'Core Profile @ Level 2', - 0x32 => 'Main Profile @ Level 2', - 0x33 => 'Main Profile @ Level 3', - 0x34 => 'Main Profile @ Level 4', - 0x42 => 'N-bit Profile @ Level 2', - 0x51 => 'Scalable Texture Profile @ Level 1', - 0x61 => 'Simple Face Animation Profile @ Level 1', - 0x62 => 'Simple Face Animation Profile @ Level 2', - 0x63 => 'Simple FBA Profile @ Level 1', - 0x64 => 'Simple FBA Profile @ Level 2', - 0x71 => 'Basic Animated Texture Profile @ Level 1', - 0x72 => 'Basic Animated Texture Profile @ Level 2', - 0x81 => 'Hybrid Profile @ Level 1', - 0x82 => 'Hybrid Profile @ Level 2', - 0x91 => 'Advanced Real Time Simple Profile @ Level 1', - 0x92 => 'Advanced Real Time Simple Profile @ Level 2', - 0x93 => 'Advanced Real Time Simple Profile @ Level 3', - 0x94 => 'Advanced Real Time Simple Profile @ Level 4', - 0xA1 => 'Core Scalable Profile @ Level1', - 0xA2 => 'Core Scalable Profile @ Level2', - 0xA3 => 'Core Scalable Profile @ Level3', - 0xB1 => 'Advanced Coding Efficiency Profile @ Level 1', - 0xB2 => 'Advanced Coding Efficiency Profile @ Level 2', - 0xB3 => 'Advanced Coding Efficiency Profile @ Level 3', - 0xB4 => 'Advanced Coding Efficiency Profile @ Level 4', - 0xC1 => 'Advanced Core Profile @ Level 1', - 0xC2 => 'Advanced Core Profile @ Level 2', - 0xD1 => 'Advanced Scalable Texture @ Level1', - 0xD2 => 'Advanced Scalable Texture @ Level2', - 0xE1 => 'Simple Studio Profile @ Level 1', - 0xE2 => 'Simple Studio Profile @ Level 2', - 0xE3 => 'Simple Studio Profile @ Level 3', - 0xE4 => 'Simple Studio Profile @ Level 4', - 0xE5 => 'Core Studio Profile @ Level 1', - 0xE6 => 'Core Studio Profile @ Level 2', - 0xE7 => 'Core Studio Profile @ Level 3', - 0xE8 => 'Core Studio Profile @ Level 4', - 0xF0 => 'Advanced Simple Profile @ Level 0', - 0xF1 => 'Advanced Simple Profile @ Level 1', - 0xF2 => 'Advanced Simple Profile @ Level 2', - 0xF3 => 'Advanced Simple Profile @ Level 3', - 0xF4 => 'Advanced Simple Profile @ Level 4', - 0xF5 => 'Advanced Simple Profile @ Level 5', - 0xF7 => 'Advanced Simple Profile @ Level 3b', - 0xF8 => 'Fine Granularity Scalable Profile @ Level 0', - 0xF9 => 'Fine Granularity Scalable Profile @ Level 1', - 0xFA => 'Fine Granularity Scalable Profile @ Level 2', - 0xFB => 'Fine Granularity Scalable Profile @ Level 3', - 0xFC => 'Fine Granularity Scalable Profile @ Level 4', - 0xFD => 'Fine Granularity Scalable Profile @ Level 5', - 0xFE => 'Not part of MPEG-4 Visual profiles', - 0xFF => 'No visual capability required', - ); - } - return (isset($QuicktimeIODSvideoProfileNameLookup[$video_profile_id]) ? $QuicktimeIODSvideoProfileNameLookup[$video_profile_id] : 'ISO Reserved Profile'); - } - - - public function QuicktimeContentRatingLookup($rtng) { - static $QuicktimeContentRatingLookup = array(); - if (empty($QuicktimeContentRatingLookup)) { - $QuicktimeContentRatingLookup[0] = 'None'; - $QuicktimeContentRatingLookup[2] = 'Clean'; - $QuicktimeContentRatingLookup[4] = 'Explicit'; - } - return (isset($QuicktimeContentRatingLookup[$rtng]) ? $QuicktimeContentRatingLookup[$rtng] : 'invalid'); - } - - public function QuicktimeStoreAccountTypeLookup($akid) { - static $QuicktimeStoreAccountTypeLookup = array(); - if (empty($QuicktimeStoreAccountTypeLookup)) { - $QuicktimeStoreAccountTypeLookup[0] = 'iTunes'; - $QuicktimeStoreAccountTypeLookup[1] = 'AOL'; - } - return (isset($QuicktimeStoreAccountTypeLookup[$akid]) ? $QuicktimeStoreAccountTypeLookup[$akid] : 'invalid'); - } - - public function QuicktimeStoreFrontCodeLookup($sfid) { - static $QuicktimeStoreFrontCodeLookup = array(); - if (empty($QuicktimeStoreFrontCodeLookup)) { - $QuicktimeStoreFrontCodeLookup[143460] = 'Australia'; - $QuicktimeStoreFrontCodeLookup[143445] = 'Austria'; - $QuicktimeStoreFrontCodeLookup[143446] = 'Belgium'; - $QuicktimeStoreFrontCodeLookup[143455] = 'Canada'; - $QuicktimeStoreFrontCodeLookup[143458] = 'Denmark'; - $QuicktimeStoreFrontCodeLookup[143447] = 'Finland'; - $QuicktimeStoreFrontCodeLookup[143442] = 'France'; - $QuicktimeStoreFrontCodeLookup[143443] = 'Germany'; - $QuicktimeStoreFrontCodeLookup[143448] = 'Greece'; - $QuicktimeStoreFrontCodeLookup[143449] = 'Ireland'; - $QuicktimeStoreFrontCodeLookup[143450] = 'Italy'; - $QuicktimeStoreFrontCodeLookup[143462] = 'Japan'; - $QuicktimeStoreFrontCodeLookup[143451] = 'Luxembourg'; - $QuicktimeStoreFrontCodeLookup[143452] = 'Netherlands'; - $QuicktimeStoreFrontCodeLookup[143461] = 'New Zealand'; - $QuicktimeStoreFrontCodeLookup[143457] = 'Norway'; - $QuicktimeStoreFrontCodeLookup[143453] = 'Portugal'; - $QuicktimeStoreFrontCodeLookup[143454] = 'Spain'; - $QuicktimeStoreFrontCodeLookup[143456] = 'Sweden'; - $QuicktimeStoreFrontCodeLookup[143459] = 'Switzerland'; - $QuicktimeStoreFrontCodeLookup[143444] = 'United Kingdom'; - $QuicktimeStoreFrontCodeLookup[143441] = 'United States'; - } - return (isset($QuicktimeStoreFrontCodeLookup[$sfid]) ? $QuicktimeStoreFrontCodeLookup[$sfid] : 'invalid'); - } - - public function QuicktimeParseNikonNCTG($atom_data) { - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html#NCTG - // Nikon-specific QuickTime tags found in the NCDT atom of MOV videos from some Nikon cameras such as the Coolpix S8000 and D5100 - // Data is stored as records of: - // * 4 bytes record type - // * 2 bytes size of data field type: - // 0x0001 = flag (size field *= 1-byte) - // 0x0002 = char (size field *= 1-byte) - // 0x0003 = DWORD+ (size field *= 2-byte), values are stored CDAB - // 0x0004 = QWORD+ (size field *= 4-byte), values are stored EFGHABCD - // 0x0005 = float (size field *= 8-byte), values are stored aaaabbbb where value is aaaa/bbbb; possibly multiple sets of values appended together - // 0x0007 = bytes (size field *= 1-byte), values are stored as ?????? - // 0x0008 = ????? (size field *= 2-byte), values are stored as ?????? - // * 2 bytes data size field - // * ? bytes data (string data may be null-padded; datestamp fields are in the format "2011:05:25 20:24:15") - // all integers are stored BigEndian - - $NCTGtagName = array( - 0x00000001 => 'Make', - 0x00000002 => 'Model', - 0x00000003 => 'Software', - 0x00000011 => 'CreateDate', - 0x00000012 => 'DateTimeOriginal', - 0x00000013 => 'FrameCount', - 0x00000016 => 'FrameRate', - 0x00000022 => 'FrameWidth', - 0x00000023 => 'FrameHeight', - 0x00000032 => 'AudioChannels', - 0x00000033 => 'AudioBitsPerSample', - 0x00000034 => 'AudioSampleRate', - 0x02000001 => 'MakerNoteVersion', - 0x02000005 => 'WhiteBalance', - 0x0200000b => 'WhiteBalanceFineTune', - 0x0200001e => 'ColorSpace', - 0x02000023 => 'PictureControlData', - 0x02000024 => 'WorldTime', - 0x02000032 => 'UnknownInfo', - 0x02000083 => 'LensType', - 0x02000084 => 'Lens', - ); - - $offset = 0; - $datalength = strlen($atom_data); - $parsed = array(); - while ($offset < $datalength) { -//echo getid3_lib::PrintHexBytes(substr($atom_data, $offset, 4)).'
'; - $record_type = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 4)); $offset += 4; - $data_size_type = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 2)); $offset += 2; - $data_size = getid3_lib::BigEndian2Int(substr($atom_data, $offset, 2)); $offset += 2; - switch ($data_size_type) { - case 0x0001: // 0x0001 = flag (size field *= 1-byte) - $data = getid3_lib::BigEndian2Int(substr($atom_data, $offset, $data_size * 1)); - $offset += ($data_size * 1); - break; - case 0x0002: // 0x0002 = char (size field *= 1-byte) - $data = substr($atom_data, $offset, $data_size * 1); - $offset += ($data_size * 1); - $data = rtrim($data, "\x00"); - break; - case 0x0003: // 0x0003 = DWORD+ (size field *= 2-byte), values are stored CDAB - $data = ''; - for ($i = $data_size - 1; $i >= 0; $i--) { - $data .= substr($atom_data, $offset + ($i * 2), 2); - } - $data = getid3_lib::BigEndian2Int($data); - $offset += ($data_size * 2); - break; - case 0x0004: // 0x0004 = QWORD+ (size field *= 4-byte), values are stored EFGHABCD - $data = ''; - for ($i = $data_size - 1; $i >= 0; $i--) { - $data .= substr($atom_data, $offset + ($i * 4), 4); - } - $data = getid3_lib::BigEndian2Int($data); - $offset += ($data_size * 4); - break; - case 0x0005: // 0x0005 = float (size field *= 8-byte), values are stored aaaabbbb where value is aaaa/bbbb; possibly multiple sets of values appended together - $data = array(); - for ($i = 0; $i < $data_size; $i++) { - $numerator = getid3_lib::BigEndian2Int(substr($atom_data, $offset + ($i * 8) + 0, 4)); - $denomninator = getid3_lib::BigEndian2Int(substr($atom_data, $offset + ($i * 8) + 4, 4)); - if ($denomninator == 0) { - $data[$i] = false; - } else { - $data[$i] = (double) $numerator / $denomninator; - } - } - $offset += (8 * $data_size); - if (count($data) == 1) { - $data = $data[0]; - } - break; - case 0x0007: // 0x0007 = bytes (size field *= 1-byte), values are stored as ?????? - $data = substr($atom_data, $offset, $data_size * 1); - $offset += ($data_size * 1); - break; - case 0x0008: // 0x0008 = ????? (size field *= 2-byte), values are stored as ?????? - $data = substr($atom_data, $offset, $data_size * 2); - $offset += ($data_size * 2); - break; - default: -echo 'QuicktimeParseNikonNCTG()::unknown $data_size_type: '.$data_size_type.'
'; - break 2; - } - - switch ($record_type) { - case 0x00000011: // CreateDate - case 0x00000012: // DateTimeOriginal - $data = strtotime($data); - break; - case 0x0200001e: // ColorSpace - switch ($data) { - case 1: - $data = 'sRGB'; - break; - case 2: - $data = 'Adobe RGB'; - break; - } - break; - case 0x02000023: // PictureControlData - $PictureControlAdjust = array(0=>'default', 1=>'quick', 2=>'full'); - $FilterEffect = array(0x80=>'off', 0x81=>'yellow', 0x82=>'orange', 0x83=>'red', 0x84=>'green', 0xff=>'n/a'); - $ToningEffect = array(0x80=>'b&w', 0x81=>'sepia', 0x82=>'cyanotype', 0x83=>'red', 0x84=>'yellow', 0x85=>'green', 0x86=>'blue-green', 0x87=>'blue', 0x88=>'purple-blue', 0x89=>'red-purple', 0xff=>'n/a'); - $data = array( - 'PictureControlVersion' => substr($data, 0, 4), - 'PictureControlName' => rtrim(substr($data, 4, 20), "\x00"), - 'PictureControlBase' => rtrim(substr($data, 24, 20), "\x00"), - //'?' => substr($data, 44, 4), - 'PictureControlAdjust' => $PictureControlAdjust[ord(substr($data, 48, 1))], - 'PictureControlQuickAdjust' => ord(substr($data, 49, 1)), - 'Sharpness' => ord(substr($data, 50, 1)), - 'Contrast' => ord(substr($data, 51, 1)), - 'Brightness' => ord(substr($data, 52, 1)), - 'Saturation' => ord(substr($data, 53, 1)), - 'HueAdjustment' => ord(substr($data, 54, 1)), - 'FilterEffect' => $FilterEffect[ord(substr($data, 55, 1))], - 'ToningEffect' => $ToningEffect[ord(substr($data, 56, 1))], - 'ToningSaturation' => ord(substr($data, 57, 1)), - ); - break; - case 0x02000024: // WorldTime - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/Nikon.html#WorldTime - // timezone is stored as offset from GMT in minutes - $timezone = getid3_lib::BigEndian2Int(substr($data, 0, 2)); - if ($timezone & 0x8000) { - $timezone = 0 - (0x10000 - $timezone); - } - $timezone /= 60; - - $dst = (bool) getid3_lib::BigEndian2Int(substr($data, 2, 1)); - switch (getid3_lib::BigEndian2Int(substr($data, 3, 1))) { - case 2: - $datedisplayformat = 'D/M/Y'; break; - case 1: - $datedisplayformat = 'M/D/Y'; break; - case 0: - default: - $datedisplayformat = 'Y/M/D'; break; - } - - $data = array('timezone'=>floatval($timezone), 'dst'=>$dst, 'display'=>$datedisplayformat); - break; - case 0x02000083: // LensType - $data = array( - //'_' => $data, - 'mf' => (bool) ($data & 0x01), - 'd' => (bool) ($data & 0x02), - 'g' => (bool) ($data & 0x04), - 'vr' => (bool) ($data & 0x08), - ); - break; - } - $tag_name = (isset($NCTGtagName[$record_type]) ? $NCTGtagName[$record_type] : '0x'.str_pad(dechex($record_type), 8, '0', STR_PAD_LEFT)); - $parsed[$tag_name] = $data; - } - return $parsed; - } - - - public function CopyToAppropriateCommentsSection($keyname, $data, $boxname='') { - static $handyatomtranslatorarray = array(); - if (empty($handyatomtranslatorarray)) { - $handyatomtranslatorarray['©cpy'] = 'copyright'; - $handyatomtranslatorarray['©day'] = 'creation_date'; // iTunes 4.0 - $handyatomtranslatorarray['©dir'] = 'director'; - $handyatomtranslatorarray['©ed1'] = 'edit1'; - $handyatomtranslatorarray['©ed2'] = 'edit2'; - $handyatomtranslatorarray['©ed3'] = 'edit3'; - $handyatomtranslatorarray['©ed4'] = 'edit4'; - $handyatomtranslatorarray['©ed5'] = 'edit5'; - $handyatomtranslatorarray['©ed6'] = 'edit6'; - $handyatomtranslatorarray['©ed7'] = 'edit7'; - $handyatomtranslatorarray['©ed8'] = 'edit8'; - $handyatomtranslatorarray['©ed9'] = 'edit9'; - $handyatomtranslatorarray['©fmt'] = 'format'; - $handyatomtranslatorarray['©inf'] = 'information'; - $handyatomtranslatorarray['©prd'] = 'producer'; - $handyatomtranslatorarray['©prf'] = 'performers'; - $handyatomtranslatorarray['©req'] = 'system_requirements'; - $handyatomtranslatorarray['©src'] = 'source_credit'; - $handyatomtranslatorarray['©wrt'] = 'writer'; - - // http://www.geocities.com/xhelmboyx/quicktime/formats/qtm-layout.txt - $handyatomtranslatorarray['©nam'] = 'title'; // iTunes 4.0 - $handyatomtranslatorarray['©cmt'] = 'comment'; // iTunes 4.0 - $handyatomtranslatorarray['©wrn'] = 'warning'; - $handyatomtranslatorarray['©hst'] = 'host_computer'; - $handyatomtranslatorarray['©mak'] = 'make'; - $handyatomtranslatorarray['©mod'] = 'model'; - $handyatomtranslatorarray['©PRD'] = 'product'; - $handyatomtranslatorarray['©swr'] = 'software'; - $handyatomtranslatorarray['©aut'] = 'author'; - $handyatomtranslatorarray['©ART'] = 'artist'; - $handyatomtranslatorarray['©trk'] = 'track'; - $handyatomtranslatorarray['©alb'] = 'album'; // iTunes 4.0 - $handyatomtranslatorarray['©com'] = 'comment'; - $handyatomtranslatorarray['©gen'] = 'genre'; // iTunes 4.0 - $handyatomtranslatorarray['©ope'] = 'composer'; - $handyatomtranslatorarray['©url'] = 'url'; - $handyatomtranslatorarray['©enc'] = 'encoder'; - - // http://atomicparsley.sourceforge.net/mpeg-4files.html - $handyatomtranslatorarray['©art'] = 'artist'; // iTunes 4.0 - $handyatomtranslatorarray['aART'] = 'album_artist'; - $handyatomtranslatorarray['trkn'] = 'track_number'; // iTunes 4.0 - $handyatomtranslatorarray['disk'] = 'disc_number'; // iTunes 4.0 - $handyatomtranslatorarray['gnre'] = 'genre'; // iTunes 4.0 - $handyatomtranslatorarray['©too'] = 'encoder'; // iTunes 4.0 - $handyatomtranslatorarray['tmpo'] = 'bpm'; // iTunes 4.0 - $handyatomtranslatorarray['cprt'] = 'copyright'; // iTunes 4.0? - $handyatomtranslatorarray['cpil'] = 'compilation'; // iTunes 4.0 - $handyatomtranslatorarray['covr'] = 'picture'; // iTunes 4.0 - $handyatomtranslatorarray['rtng'] = 'rating'; // iTunes 4.0 - $handyatomtranslatorarray['©grp'] = 'grouping'; // iTunes 4.2 - $handyatomtranslatorarray['stik'] = 'stik'; // iTunes 4.9 - $handyatomtranslatorarray['pcst'] = 'podcast'; // iTunes 4.9 - $handyatomtranslatorarray['catg'] = 'category'; // iTunes 4.9 - $handyatomtranslatorarray['keyw'] = 'keyword'; // iTunes 4.9 - $handyatomtranslatorarray['purl'] = 'podcast_url'; // iTunes 4.9 - $handyatomtranslatorarray['egid'] = 'episode_guid'; // iTunes 4.9 - $handyatomtranslatorarray['desc'] = 'description'; // iTunes 5.0 - $handyatomtranslatorarray['©lyr'] = 'lyrics'; // iTunes 5.0 - $handyatomtranslatorarray['tvnn'] = 'tv_network_name'; // iTunes 6.0 - $handyatomtranslatorarray['tvsh'] = 'tv_show_name'; // iTunes 6.0 - $handyatomtranslatorarray['tvsn'] = 'tv_season'; // iTunes 6.0 - $handyatomtranslatorarray['tves'] = 'tv_episode'; // iTunes 6.0 - $handyatomtranslatorarray['purd'] = 'purchase_date'; // iTunes 6.0.2 - $handyatomtranslatorarray['pgap'] = 'gapless_playback'; // iTunes 7.0 - - // http://www.geocities.com/xhelmboyx/quicktime/formats/mp4-layout.txt - - - - // boxnames: - /* - $handyatomtranslatorarray['iTunSMPB'] = 'iTunSMPB'; - $handyatomtranslatorarray['iTunNORM'] = 'iTunNORM'; - $handyatomtranslatorarray['Encoding Params'] = 'Encoding Params'; - $handyatomtranslatorarray['replaygain_track_gain'] = 'replaygain_track_gain'; - $handyatomtranslatorarray['replaygain_track_peak'] = 'replaygain_track_peak'; - $handyatomtranslatorarray['replaygain_track_minmax'] = 'replaygain_track_minmax'; - $handyatomtranslatorarray['MusicIP PUID'] = 'MusicIP PUID'; - $handyatomtranslatorarray['MusicBrainz Artist Id'] = 'MusicBrainz Artist Id'; - $handyatomtranslatorarray['MusicBrainz Album Id'] = 'MusicBrainz Album Id'; - $handyatomtranslatorarray['MusicBrainz Album Artist Id'] = 'MusicBrainz Album Artist Id'; - $handyatomtranslatorarray['MusicBrainz Track Id'] = 'MusicBrainz Track Id'; - $handyatomtranslatorarray['MusicBrainz Disc Id'] = 'MusicBrainz Disc Id'; - - // http://age.hobba.nl/audio/tag_frame_reference.html - $handyatomtranslatorarray['PLAY_COUNTER'] = 'play_counter'; // Foobar2000 - http://www.getid3.org/phpBB3/viewtopic.php?t=1355 - $handyatomtranslatorarray['MEDIATYPE'] = 'mediatype'; // Foobar2000 - http://www.getid3.org/phpBB3/viewtopic.php?t=1355 - */ - } - $info = &$this->getid3->info; - $comment_key = ''; - if ($boxname && ($boxname != $keyname)) { - $comment_key = (isset($handyatomtranslatorarray[$boxname]) ? $handyatomtranslatorarray[$boxname] : $boxname); - } elseif (isset($handyatomtranslatorarray[$keyname])) { - $comment_key = $handyatomtranslatorarray[$keyname]; - } - if ($comment_key) { - if ($comment_key == 'picture') { - if (!is_array($data)) { - $image_mime = ''; - if (preg_match('#^\x89\x50\x4E\x47\x0D\x0A\x1A\x0A#', $data)) { - $image_mime = 'image/png'; - } elseif (preg_match('#^\xFF\xD8\xFF#', $data)) { - $image_mime = 'image/jpeg'; - } elseif (preg_match('#^GIF#', $data)) { - $image_mime = 'image/gif'; - } elseif (preg_match('#^BM#', $data)) { - $image_mime = 'image/bmp'; - } - $data = array('data'=>$data, 'image_mime'=>$image_mime); - } - } - $info['quicktime']['comments'][$comment_key][] = $data; - } - return true; - } - - public function NoNullString($nullterminatedstring) { - // remove the single null terminator on null terminated strings - if (substr($nullterminatedstring, strlen($nullterminatedstring) - 1, 1) === "\x00") { - return substr($nullterminatedstring, 0, strlen($nullterminatedstring) - 1); - } - return $nullterminatedstring; - } - - public function Pascal2String($pascalstring) { - // Pascal strings have 1 unsigned byte at the beginning saying how many chars (1-255) are in the string - return substr($pascalstring, 1); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.real.php b/web/htdocs/media/lib/getid3/module.audio-video.real.php deleted file mode 100644 index 0226ac49980..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.real.php +++ /dev/null @@ -1,527 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.real.php // -// module for analyzing Real Audio/Video files // -// dependencies: module.audio-video.riff.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - -class getid3_real extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'real'; - $info['bitrate'] = 0; - $info['playtime_seconds'] = 0; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $ChunkCounter = 0; - while (ftell($this->getid3->fp) < $info['avdataend']) { - $ChunkData = fread($this->getid3->fp, 8); - $ChunkName = substr($ChunkData, 0, 4); - $ChunkSize = getid3_lib::BigEndian2Int(substr($ChunkData, 4, 4)); - - if ($ChunkName == '.ra'."\xFD") { - $ChunkData .= fread($this->getid3->fp, $ChunkSize - 8); - if ($this->ParseOldRAheader(substr($ChunkData, 0, 128), $info['real']['old_ra_header'])) { - $info['audio']['dataformat'] = 'real'; - $info['audio']['lossless'] = false; - $info['audio']['sample_rate'] = $info['real']['old_ra_header']['sample_rate']; - $info['audio']['bits_per_sample'] = $info['real']['old_ra_header']['bits_per_sample']; - $info['audio']['channels'] = $info['real']['old_ra_header']['channels']; - - $info['playtime_seconds'] = 60 * ($info['real']['old_ra_header']['audio_bytes'] / $info['real']['old_ra_header']['bytes_per_minute']); - $info['audio']['bitrate'] = 8 * ($info['real']['old_ra_header']['audio_bytes'] / $info['playtime_seconds']); - $info['audio']['codec'] = $this->RealAudioCodecFourCClookup($info['real']['old_ra_header']['fourcc'], $info['audio']['bitrate']); - - foreach ($info['real']['old_ra_header']['comments'] as $key => $valuearray) { - if (strlen(trim($valuearray[0])) > 0) { - $info['real']['comments'][$key][] = trim($valuearray[0]); - } - } - return true; - } - $info['error'][] = 'There was a problem parsing this RealAudio file. Please submit it for analysis to info@getid3.org'; - unset($info['bitrate']); - unset($info['playtime_seconds']); - return false; - } - - // shortcut - $info['real']['chunks'][$ChunkCounter] = array(); - $thisfile_real_chunks_currentchunk = &$info['real']['chunks'][$ChunkCounter]; - - $thisfile_real_chunks_currentchunk['name'] = $ChunkName; - $thisfile_real_chunks_currentchunk['offset'] = ftell($this->getid3->fp) - 8; - $thisfile_real_chunks_currentchunk['length'] = $ChunkSize; - if (($thisfile_real_chunks_currentchunk['offset'] + $thisfile_real_chunks_currentchunk['length']) > $info['avdataend']) { - $info['warning'][] = 'Chunk "'.$thisfile_real_chunks_currentchunk['name'].'" at offset '.$thisfile_real_chunks_currentchunk['offset'].' claims to be '.$thisfile_real_chunks_currentchunk['length'].' bytes long, which is beyond end of file'; - return false; - } - - if ($ChunkSize > ($this->getid3->fread_buffer_size() + 8)) { - - $ChunkData .= fread($this->getid3->fp, $this->getid3->fread_buffer_size() - 8); - fseek($this->getid3->fp, $thisfile_real_chunks_currentchunk['offset'] + $ChunkSize, SEEK_SET); - - } elseif(($ChunkSize - 8) > 0) { - - $ChunkData .= fread($this->getid3->fp, $ChunkSize - 8); - - } - $offset = 8; - - switch ($ChunkName) { - - case '.RMF': // RealMedia File Header - $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - switch ($thisfile_real_chunks_currentchunk['object_version']) { - - case 0: - $thisfile_real_chunks_currentchunk['file_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['headers_count'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - break; - - default: - //$info['warning'][] = 'Expected .RMF-object_version to be "0", actual value is "'.$thisfile_real_chunks_currentchunk['object_version'].'" (should not be a problem)'; - break; - - } - break; - - - case 'PROP': // Properties Header - $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - if ($thisfile_real_chunks_currentchunk['object_version'] == 0) { - $thisfile_real_chunks_currentchunk['max_bit_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['avg_bit_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['max_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['avg_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['num_packets'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['duration'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['preroll'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['index_offset'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['data_offset'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['num_streams'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['flags_raw'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $info['playtime_seconds'] = $thisfile_real_chunks_currentchunk['duration'] / 1000; - if ($thisfile_real_chunks_currentchunk['duration'] > 0) { - $info['bitrate'] += $thisfile_real_chunks_currentchunk['avg_bit_rate']; - } - $thisfile_real_chunks_currentchunk['flags']['save_enabled'] = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0001); - $thisfile_real_chunks_currentchunk['flags']['perfect_play'] = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0002); - $thisfile_real_chunks_currentchunk['flags']['live_broadcast'] = (bool) ($thisfile_real_chunks_currentchunk['flags_raw'] & 0x0004); - } - break; - - case 'MDPR': // Media Properties Header - $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - if ($thisfile_real_chunks_currentchunk['object_version'] == 0) { - $thisfile_real_chunks_currentchunk['stream_number'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['max_bit_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['avg_bit_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['max_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['avg_packet_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['start_time'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['preroll'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['duration'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['stream_name_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 1)); - $offset += 1; - $thisfile_real_chunks_currentchunk['stream_name'] = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['stream_name_size']); - $offset += $thisfile_real_chunks_currentchunk['stream_name_size']; - $thisfile_real_chunks_currentchunk['mime_type_size'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 1)); - $offset += 1; - $thisfile_real_chunks_currentchunk['mime_type'] = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['mime_type_size']); - $offset += $thisfile_real_chunks_currentchunk['mime_type_size']; - $thisfile_real_chunks_currentchunk['type_specific_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['type_specific_data'] = substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['type_specific_len']); - $offset += $thisfile_real_chunks_currentchunk['type_specific_len']; - - // shortcut - $thisfile_real_chunks_currentchunk_typespecificdata = &$thisfile_real_chunks_currentchunk['type_specific_data']; - - switch ($thisfile_real_chunks_currentchunk['mime_type']) { - case 'video/x-pn-realvideo': - case 'video/x-pn-multirate-realvideo': - // http://www.freelists.org/archives/matroska-devel/07-2003/msg00010.html - - // shortcut - $thisfile_real_chunks_currentchunk['video_info'] = array(); - $thisfile_real_chunks_currentchunk_videoinfo = &$thisfile_real_chunks_currentchunk['video_info']; - - $thisfile_real_chunks_currentchunk_videoinfo['dwSize'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 0, 4)); - $thisfile_real_chunks_currentchunk_videoinfo['fourcc1'] = substr($thisfile_real_chunks_currentchunk_typespecificdata, 4, 4); - $thisfile_real_chunks_currentchunk_videoinfo['fourcc2'] = substr($thisfile_real_chunks_currentchunk_typespecificdata, 8, 4); - $thisfile_real_chunks_currentchunk_videoinfo['width'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 12, 2)); - $thisfile_real_chunks_currentchunk_videoinfo['height'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 14, 2)); - $thisfile_real_chunks_currentchunk_videoinfo['bits_per_sample'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 16, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown1'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 18, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown2'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 20, 2)); - $thisfile_real_chunks_currentchunk_videoinfo['frames_per_second'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 22, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown3'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 24, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown4'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 26, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown5'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 28, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown6'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 30, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown7'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 32, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown8'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 34, 2)); - //$thisfile_real_chunks_currentchunk_videoinfo['unknown9'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 36, 2)); - - $thisfile_real_chunks_currentchunk_videoinfo['codec'] = getid3_riff::fourccLookup($thisfile_real_chunks_currentchunk_videoinfo['fourcc2']); - - $info['video']['resolution_x'] = $thisfile_real_chunks_currentchunk_videoinfo['width']; - $info['video']['resolution_y'] = $thisfile_real_chunks_currentchunk_videoinfo['height']; - $info['video']['frame_rate'] = (float) $thisfile_real_chunks_currentchunk_videoinfo['frames_per_second']; - $info['video']['codec'] = $thisfile_real_chunks_currentchunk_videoinfo['codec']; - $info['video']['bits_per_sample'] = $thisfile_real_chunks_currentchunk_videoinfo['bits_per_sample']; - break; - - case 'audio/x-pn-realaudio': - case 'audio/x-pn-multirate-realaudio': - $this->ParseOldRAheader($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk['parsed_audio_data']); - - $info['audio']['sample_rate'] = $thisfile_real_chunks_currentchunk['parsed_audio_data']['sample_rate']; - $info['audio']['bits_per_sample'] = $thisfile_real_chunks_currentchunk['parsed_audio_data']['bits_per_sample']; - $info['audio']['channels'] = $thisfile_real_chunks_currentchunk['parsed_audio_data']['channels']; - if (!empty($info['audio']['dataformat'])) { - foreach ($info['audio'] as $key => $value) { - if ($key != 'streams') { - $info['audio']['streams'][$thisfile_real_chunks_currentchunk['stream_number']][$key] = $value; - } - } - } - break; - - case 'logical-fileinfo': - // shortcut - $thisfile_real_chunks_currentchunk['logical_fileinfo'] = array(); - $thisfile_real_chunks_currentchunk_logicalfileinfo = &$thisfile_real_chunks_currentchunk['logical_fileinfo']; - - $thisfile_real_chunks_currentchunk_logicalfileinfo_offset = 0; - $thisfile_real_chunks_currentchunk_logicalfileinfo['logical_fileinfo_length'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4)); - $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4; - - //$thisfile_real_chunks_currentchunk_logicalfileinfo['unknown1'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4)); - $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4; - - $thisfile_real_chunks_currentchunk_logicalfileinfo['num_tags'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4)); - $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4; - - //$thisfile_real_chunks_currentchunk_logicalfileinfo['unknown2'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4)); - $thisfile_real_chunks_currentchunk_logicalfileinfo_offset += 4; - - //$thisfile_real_chunks_currentchunk_logicalfileinfo['d'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 1)); - - //$thisfile_real_chunks_currentchunk_logicalfileinfo['one_type'] = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 4)); - //$thisfile_real_chunks_currentchunk_logicalfileinfo_thislength = getid3_lib::BigEndian2Int(substr($thisfile_real_chunks_currentchunk_typespecificdata, 4 + $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, 2)); - //$thisfile_real_chunks_currentchunk_logicalfileinfo['one'] = substr($thisfile_real_chunks_currentchunk_typespecificdata, 6 + $thisfile_real_chunks_currentchunk_logicalfileinfo_offset, $thisfile_real_chunks_currentchunk_logicalfileinfo_thislength); - //$thisfile_real_chunks_currentchunk_logicalfileinfo_offset += (6 + $thisfile_real_chunks_currentchunk_logicalfileinfo_thislength); - - break; - - } - - - if (empty($info['playtime_seconds'])) { - $info['playtime_seconds'] = max($info['playtime_seconds'], ($thisfile_real_chunks_currentchunk['duration'] + $thisfile_real_chunks_currentchunk['start_time']) / 1000); - } - if ($thisfile_real_chunks_currentchunk['duration'] > 0) { - switch ($thisfile_real_chunks_currentchunk['mime_type']) { - case 'audio/x-pn-realaudio': - case 'audio/x-pn-multirate-realaudio': - $info['audio']['bitrate'] = (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate']; - $info['audio']['codec'] = $this->RealAudioCodecFourCClookup($thisfile_real_chunks_currentchunk['parsed_audio_data']['fourcc'], $info['audio']['bitrate']); - $info['audio']['dataformat'] = 'real'; - $info['audio']['lossless'] = false; - break; - - case 'video/x-pn-realvideo': - case 'video/x-pn-multirate-realvideo': - $info['video']['bitrate'] = (isset($info['video']['bitrate']) ? $info['video']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate']; - $info['video']['bitrate_mode'] = 'cbr'; - $info['video']['dataformat'] = 'real'; - $info['video']['lossless'] = false; - $info['video']['pixel_aspect_ratio'] = (float) 1; - break; - - case 'audio/x-ralf-mpeg4-generic': - $info['audio']['bitrate'] = (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0) + $thisfile_real_chunks_currentchunk['avg_bit_rate']; - $info['audio']['codec'] = 'RealAudio Lossless'; - $info['audio']['dataformat'] = 'real'; - $info['audio']['lossless'] = true; - break; - } - $info['bitrate'] = (isset($info['video']['bitrate']) ? $info['video']['bitrate'] : 0) + (isset($info['audio']['bitrate']) ? $info['audio']['bitrate'] : 0); - } - } - break; - - case 'CONT': // Content Description Header (text comments) - $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - if ($thisfile_real_chunks_currentchunk['object_version'] == 0) { - $thisfile_real_chunks_currentchunk['title_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['title'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['title_len']); - $offset += $thisfile_real_chunks_currentchunk['title_len']; - - $thisfile_real_chunks_currentchunk['artist_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['artist'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['artist_len']); - $offset += $thisfile_real_chunks_currentchunk['artist_len']; - - $thisfile_real_chunks_currentchunk['copyright_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['copyright'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['copyright_len']); - $offset += $thisfile_real_chunks_currentchunk['copyright_len']; - - $thisfile_real_chunks_currentchunk['comment_len'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['comment'] = (string) substr($ChunkData, $offset, $thisfile_real_chunks_currentchunk['comment_len']); - $offset += $thisfile_real_chunks_currentchunk['comment_len']; - - - $commentkeystocopy = array('title'=>'title', 'artist'=>'artist', 'copyright'=>'copyright', 'comment'=>'comment'); - foreach ($commentkeystocopy as $key => $val) { - if ($thisfile_real_chunks_currentchunk[$key]) { - $info['real']['comments'][$val][] = trim($thisfile_real_chunks_currentchunk[$key]); - } - } - - } - break; - - - case 'DATA': // Data Chunk Header - // do nothing - break; - - case 'INDX': // Index Section Header - $thisfile_real_chunks_currentchunk['object_version'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - if ($thisfile_real_chunks_currentchunk['object_version'] == 0) { - $thisfile_real_chunks_currentchunk['num_indices'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - $thisfile_real_chunks_currentchunk['stream_number'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 2)); - $offset += 2; - $thisfile_real_chunks_currentchunk['next_index_header'] = getid3_lib::BigEndian2Int(substr($ChunkData, $offset, 4)); - $offset += 4; - - if ($thisfile_real_chunks_currentchunk['next_index_header'] == 0) { - // last index chunk found, ignore rest of file - break 2; - } else { - // non-last index chunk, seek to next index chunk (skipping actual index data) - fseek($this->getid3->fp, $thisfile_real_chunks_currentchunk['next_index_header'], SEEK_SET); - } - } - break; - - default: - $info['warning'][] = 'Unhandled RealMedia chunk "'.$ChunkName.'" at offset '.$thisfile_real_chunks_currentchunk['offset']; - break; - } - $ChunkCounter++; - } - - if (!empty($info['audio']['streams'])) { - $info['audio']['bitrate'] = 0; - foreach ($info['audio']['streams'] as $key => $valuearray) { - $info['audio']['bitrate'] += $valuearray['bitrate']; - } - } - - return true; - } - - - public function ParseOldRAheader($OldRAheaderData, &$ParsedArray) { - // http://www.freelists.org/archives/matroska-devel/07-2003/msg00010.html - - $ParsedArray = array(); - $ParsedArray['magic'] = substr($OldRAheaderData, 0, 4); - if ($ParsedArray['magic'] != '.ra'."\xFD") { - return false; - } - $ParsedArray['version1'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 4, 2)); - - if ($ParsedArray['version1'] < 3) { - - return false; - - } elseif ($ParsedArray['version1'] == 3) { - - $ParsedArray['fourcc1'] = '.ra3'; - $ParsedArray['bits_per_sample'] = 16; // hard-coded for old versions? - $ParsedArray['sample_rate'] = 8000; // hard-coded for old versions? - - $ParsedArray['header_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 6, 2)); - $ParsedArray['channels'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 8, 2)); // always 1 (?) - //$ParsedArray['unknown1'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 10, 2)); - //$ParsedArray['unknown2'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 12, 2)); - //$ParsedArray['unknown3'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 14, 2)); - $ParsedArray['bytes_per_minute'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 16, 2)); - $ParsedArray['audio_bytes'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 18, 4)); - $ParsedArray['comments_raw'] = substr($OldRAheaderData, 22, $ParsedArray['header_size'] - 22 + 1); // not including null terminator - - $commentoffset = 0; - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['title'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['artist'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['copyright'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - - $commentoffset++; // final null terminator (?) - $commentoffset++; // fourcc length (?) should be 4 - $ParsedArray['fourcc'] = substr($OldRAheaderData, 23 + $commentoffset, 4); - - } elseif ($ParsedArray['version1'] <= 5) { - - //$ParsedArray['unknown1'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 6, 2)); - $ParsedArray['fourcc1'] = substr($OldRAheaderData, 8, 4); - $ParsedArray['file_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 12, 4)); - $ParsedArray['version2'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 16, 2)); - $ParsedArray['header_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 18, 4)); - $ParsedArray['codec_flavor_id'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 22, 2)); - $ParsedArray['coded_frame_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 24, 4)); - $ParsedArray['audio_bytes'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 28, 4)); - $ParsedArray['bytes_per_minute'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 32, 4)); - //$ParsedArray['unknown5'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 36, 4)); - $ParsedArray['sub_packet_h'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 40, 2)); - $ParsedArray['frame_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 42, 2)); - $ParsedArray['sub_packet_size'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 44, 2)); - //$ParsedArray['unknown6'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 46, 2)); - - switch ($ParsedArray['version1']) { - - case 4: - $ParsedArray['sample_rate'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 48, 2)); - //$ParsedArray['unknown8'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 50, 2)); - $ParsedArray['bits_per_sample'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 52, 2)); - $ParsedArray['channels'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 54, 2)); - $ParsedArray['length_fourcc2'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 56, 1)); - $ParsedArray['fourcc2'] = substr($OldRAheaderData, 57, 4); - $ParsedArray['length_fourcc3'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 61, 1)); - $ParsedArray['fourcc3'] = substr($OldRAheaderData, 62, 4); - //$ParsedArray['unknown9'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 66, 1)); - //$ParsedArray['unknown10'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 67, 2)); - $ParsedArray['comments_raw'] = substr($OldRAheaderData, 69, $ParsedArray['header_size'] - 69 + 16); - - $commentoffset = 0; - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['title'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['artist'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - - $commentlength = getid3_lib::BigEndian2Int(substr($ParsedArray['comments_raw'], $commentoffset++, 1)); - $ParsedArray['comments']['copyright'][] = substr($ParsedArray['comments_raw'], $commentoffset, $commentlength); - $commentoffset += $commentlength; - break; - - case 5: - $ParsedArray['sample_rate'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 48, 4)); - $ParsedArray['sample_rate2'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 52, 4)); - $ParsedArray['bits_per_sample'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 56, 4)); - $ParsedArray['channels'] = getid3_lib::BigEndian2Int(substr($OldRAheaderData, 60, 2)); - $ParsedArray['genr'] = substr($OldRAheaderData, 62, 4); - $ParsedArray['fourcc3'] = substr($OldRAheaderData, 66, 4); - $ParsedArray['comments'] = array(); - break; - } - $ParsedArray['fourcc'] = $ParsedArray['fourcc3']; - - } - foreach ($ParsedArray['comments'] as $key => $value) { - if ($ParsedArray['comments'][$key][0] === false) { - $ParsedArray['comments'][$key][0] = ''; - } - } - - return true; - } - - public function RealAudioCodecFourCClookup($fourcc, $bitrate) { - static $RealAudioCodecFourCClookup = array(); - if (empty($RealAudioCodecFourCClookup)) { - // http://www.its.msstate.edu/net/real/reports/config/tags.stats - // http://www.freelists.org/archives/matroska-devel/06-2003/fullthread18.html - - $RealAudioCodecFourCClookup['14_4'][8000] = 'RealAudio v2 (14.4kbps)'; - $RealAudioCodecFourCClookup['14.4'][8000] = 'RealAudio v2 (14.4kbps)'; - $RealAudioCodecFourCClookup['lpcJ'][8000] = 'RealAudio v2 (14.4kbps)'; - $RealAudioCodecFourCClookup['28_8'][15200] = 'RealAudio v2 (28.8kbps)'; - $RealAudioCodecFourCClookup['28.8'][15200] = 'RealAudio v2 (28.8kbps)'; - $RealAudioCodecFourCClookup['sipr'][4933] = 'RealAudio v4 (5kbps Voice)'; - $RealAudioCodecFourCClookup['sipr'][6444] = 'RealAudio v4 (6.5kbps Voice)'; - $RealAudioCodecFourCClookup['sipr'][8444] = 'RealAudio v4 (8.5kbps Voice)'; - $RealAudioCodecFourCClookup['sipr'][16000] = 'RealAudio v4 (16kbps Wideband)'; - $RealAudioCodecFourCClookup['dnet'][8000] = 'RealAudio v3 (8kbps Music)'; - $RealAudioCodecFourCClookup['dnet'][16000] = 'RealAudio v3 (16kbps Music Low Response)'; - $RealAudioCodecFourCClookup['dnet'][15963] = 'RealAudio v3 (16kbps Music Mid/High Response)'; - $RealAudioCodecFourCClookup['dnet'][20000] = 'RealAudio v3 (20kbps Music Stereo)'; - $RealAudioCodecFourCClookup['dnet'][32000] = 'RealAudio v3 (32kbps Music Mono)'; - $RealAudioCodecFourCClookup['dnet'][31951] = 'RealAudio v3 (32kbps Music Stereo)'; - $RealAudioCodecFourCClookup['dnet'][39965] = 'RealAudio v3 (40kbps Music Mono)'; - $RealAudioCodecFourCClookup['dnet'][40000] = 'RealAudio v3 (40kbps Music Stereo)'; - $RealAudioCodecFourCClookup['dnet'][79947] = 'RealAudio v3 (80kbps Music Mono)'; - $RealAudioCodecFourCClookup['dnet'][80000] = 'RealAudio v3 (80kbps Music Stereo)'; - - $RealAudioCodecFourCClookup['dnet'][0] = 'RealAudio v3'; - $RealAudioCodecFourCClookup['sipr'][0] = 'RealAudio v4'; - $RealAudioCodecFourCClookup['cook'][0] = 'RealAudio G2'; - $RealAudioCodecFourCClookup['atrc'][0] = 'RealAudio 8'; - } - $roundbitrate = intval(round($bitrate)); - if (isset($RealAudioCodecFourCClookup[$fourcc][$roundbitrate])) { - return $RealAudioCodecFourCClookup[$fourcc][$roundbitrate]; - } elseif (isset($RealAudioCodecFourCClookup[$fourcc][0])) { - return $RealAudioCodecFourCClookup[$fourcc][0]; - } - return $fourcc; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.riff.php b/web/htdocs/media/lib/getid3/module.audio-video.riff.php deleted file mode 100644 index 8f431009c39..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.riff.php +++ /dev/null @@ -1,2435 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.riff.php // -// module for analyzing RIFF files // -// multiple formats supported by this module: // -// Wave, AVI, AIFF/AIFC, (MP3,AC3)/RIFF, Wavpack v3, 8SVX // -// dependencies: module.audio.mp3.php // -// module.audio.ac3.php // -// module.audio.dts.php // -// /// -///////////////////////////////////////////////////////////////// - -/** -* @todo Parse AC-3/DTS audio inside WAVE correctly -* @todo Rewrite RIFF parser totally -*/ - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.mp3.php', __FILE__, true); -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.ac3.php', __FILE__, true); -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.dts.php', __FILE__, true); - -class getid3_riff extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - // initialize these values to an empty array, otherwise they default to NULL - // and you can't append array values to a NULL value - $info['riff'] = array('raw'=>array()); - - // Shortcuts - $thisfile_riff = &$info['riff']; - $thisfile_riff_raw = &$thisfile_riff['raw']; - $thisfile_audio = &$info['audio']; - $thisfile_video = &$info['video']; - $thisfile_audio_dataformat = &$thisfile_audio['dataformat']; - $thisfile_riff_audio = &$thisfile_riff['audio']; - $thisfile_riff_video = &$thisfile_riff['video']; - - $Original['avdataoffset'] = $info['avdataoffset']; - $Original['avdataend'] = $info['avdataend']; - - $this->fseek($info['avdataoffset']); - $RIFFheader = $this->fread(12); - $offset = $this->ftell(); - $RIFFtype = substr($RIFFheader, 0, 4); - $RIFFsize = substr($RIFFheader, 4, 4); - $RIFFsubtype = substr($RIFFheader, 8, 4); - - switch ($RIFFtype) { - - case 'FORM': // AIFF, AIFC - $info['fileformat'] = 'aiff'; - $thisfile_riff['header_size'] = $this->EitherEndian2Int($RIFFsize); - $thisfile_riff[$RIFFsubtype] = $this->ParseRIFF($offset, ($offset + $thisfile_riff['header_size'] - 4)); - break; - - case 'RIFF': // AVI, WAV, etc - case 'SDSS': // SDSS is identical to RIFF, just renamed. Used by SmartSound QuickTracks (www.smartsound.com) - case 'RMP3': // RMP3 is identical to RIFF, just renamed. Used by [unknown program] when creating RIFF-MP3s - $info['fileformat'] = 'riff'; - $thisfile_riff['header_size'] = $this->EitherEndian2Int($RIFFsize); - if ($RIFFsubtype == 'RMP3') { - // RMP3 is identical to WAVE, just renamed. Used by [unknown program] when creating RIFF-MP3s - $RIFFsubtype = 'WAVE'; - } - $thisfile_riff[$RIFFsubtype] = $this->ParseRIFF($offset, ($offset + $thisfile_riff['header_size'] - 4)); - if (($info['avdataend'] - $info['filesize']) == 1) { - // LiteWave appears to incorrectly *not* pad actual output file - // to nearest WORD boundary so may appear to be short by one - // byte, in which case - skip warning - $info['avdataend'] = $info['filesize']; - } - - $nextRIFFoffset = $Original['avdataoffset'] + 8 + $thisfile_riff['header_size']; // 8 = "RIFF" + 32-bit offset - while ($nextRIFFoffset < min($info['filesize'], $info['avdataend'])) { - try { - $this->fseek($nextRIFFoffset); - } catch (getid3_exception $e) { - if ($e->getCode() == 10) { - //$this->warning('RIFF parser: '.$e->getMessage()); - $this->error('AVI extends beyond '.round(PHP_INT_MAX / 1073741824).'GB and PHP filesystem functions cannot read that far, playtime may be wrong'); - $this->warning('[avdataend] value may be incorrect, multiple AVIX chunks may be present'); - break; - } else { - throw $e; - } - } - $nextRIFFheader = $this->fread(12); - if ($nextRIFFoffset == ($info['avdataend'] - 1)) { - if (substr($nextRIFFheader, 0, 1) == "\x00") { - // RIFF padded to WORD boundary, we're actually already at the end - break; - } - } - $nextRIFFheaderID = substr($nextRIFFheader, 0, 4); - $nextRIFFsize = $this->EitherEndian2Int(substr($nextRIFFheader, 4, 4)); - $nextRIFFtype = substr($nextRIFFheader, 8, 4); - $chunkdata = array(); - $chunkdata['offset'] = $nextRIFFoffset + 8; - $chunkdata['size'] = $nextRIFFsize; - $nextRIFFoffset = $chunkdata['offset'] + $chunkdata['size']; - - switch ($nextRIFFheaderID) { - - case 'RIFF': - $chunkdata['chunks'] = $this->ParseRIFF($chunkdata['offset'] + 4, $nextRIFFoffset); - - if (!isset($thisfile_riff[$nextRIFFtype])) { - $thisfile_riff[$nextRIFFtype] = array(); - } - $thisfile_riff[$nextRIFFtype][] = $chunkdata; - break; - - case 'JUNK': - // ignore - $thisfile_riff[$nextRIFFheaderID][] = $chunkdata; - break; - - case 'IDVX': - $info['divxtag']['comments'] = self::ParseDIVXTAG($this->fread($chunkdata['size'])); - break; - - default: - if ($info['filesize'] == ($chunkdata['offset'] - 8 + 128)) { - $DIVXTAG = $nextRIFFheader.$this->fread(128 - 12); - if (substr($DIVXTAG, -7) == 'DIVXTAG') { - // DIVXTAG is supposed to be inside an IDVX chunk in a LIST chunk, but some bad encoders just slap it on the end of a file - $this->warning('Found wrongly-structured DIVXTAG at offset '.($this->ftell() - 128).', parsing anyway'); - $info['divxtag']['comments'] = self::ParseDIVXTAG($DIVXTAG); - break 2; - } - } - $this->warning('Expecting "RIFF|JUNK|IDVX" at '.$nextRIFFoffset.', found "'.$nextRIFFheaderID.'" ('.getid3_lib::PrintHexBytes($nextRIFFheaderID).') - skipping rest of file'); - break 2; - - } - - } - if ($RIFFsubtype == 'WAVE') { - $thisfile_riff_WAVE = &$thisfile_riff['WAVE']; - } - break; - - default: - $this->error('Cannot parse RIFF (this is maybe not a RIFF / WAV / AVI file?) - expecting "FORM|RIFF|SDSS|RMP3" found "'.$RIFFsubtype.'" instead'); - unset($info['fileformat']); - return false; - } - - $streamindex = 0; - switch ($RIFFsubtype) { - case 'WAVE': - if (empty($thisfile_audio['bitrate_mode'])) { - $thisfile_audio['bitrate_mode'] = 'cbr'; - } - if (empty($thisfile_audio_dataformat)) { - $thisfile_audio_dataformat = 'wav'; - } - - if (isset($thisfile_riff_WAVE['data'][0]['offset'])) { - $info['avdataoffset'] = $thisfile_riff_WAVE['data'][0]['offset'] + 8; - $info['avdataend'] = $info['avdataoffset'] + $thisfile_riff_WAVE['data'][0]['size']; - } - if (isset($thisfile_riff_WAVE['fmt '][0]['data'])) { - - $thisfile_riff_audio[$streamindex] = self::parseWAVEFORMATex($thisfile_riff_WAVE['fmt '][0]['data']); - $thisfile_audio['wformattag'] = $thisfile_riff_audio[$streamindex]['raw']['wFormatTag']; - if (!isset($thisfile_riff_audio[$streamindex]['bitrate']) || ($thisfile_riff_audio[$streamindex]['bitrate'] == 0)) { - $info['error'][] = 'Corrupt RIFF file: bitrate_audio == zero'; - return false; - } - $thisfile_riff_raw['fmt '] = $thisfile_riff_audio[$streamindex]['raw']; - unset($thisfile_riff_audio[$streamindex]['raw']); - $thisfile_audio['streams'][$streamindex] = $thisfile_riff_audio[$streamindex]; - - $thisfile_audio = getid3_lib::array_merge_noclobber($thisfile_audio, $thisfile_riff_audio[$streamindex]); - if (substr($thisfile_audio['codec'], 0, strlen('unknown: 0x')) == 'unknown: 0x') { - $info['warning'][] = 'Audio codec = '.$thisfile_audio['codec']; - } - $thisfile_audio['bitrate'] = $thisfile_riff_audio[$streamindex]['bitrate']; - - if (empty($info['playtime_seconds'])) { // may already be set (e.g. DTS-WAV) - $info['playtime_seconds'] = (float) ((($info['avdataend'] - $info['avdataoffset']) * 8) / $thisfile_audio['bitrate']); - } - - $thisfile_audio['lossless'] = false; - if (isset($thisfile_riff_WAVE['data'][0]['offset']) && isset($thisfile_riff_raw['fmt ']['wFormatTag'])) { - switch ($thisfile_riff_raw['fmt ']['wFormatTag']) { - - case 0x0001: // PCM - $thisfile_audio['lossless'] = true; - break; - - case 0x2000: // AC-3 - $thisfile_audio_dataformat = 'ac3'; - break; - - default: - // do nothing - break; - - } - } - $thisfile_audio['streams'][$streamindex]['wformattag'] = $thisfile_audio['wformattag']; - $thisfile_audio['streams'][$streamindex]['bitrate_mode'] = $thisfile_audio['bitrate_mode']; - $thisfile_audio['streams'][$streamindex]['lossless'] = $thisfile_audio['lossless']; - $thisfile_audio['streams'][$streamindex]['dataformat'] = $thisfile_audio_dataformat; - } - - if (isset($thisfile_riff_WAVE['rgad'][0]['data'])) { - - // shortcuts - $rgadData = &$thisfile_riff_WAVE['rgad'][0]['data']; - $thisfile_riff_raw['rgad'] = array('track'=>array(), 'album'=>array()); - $thisfile_riff_raw_rgad = &$thisfile_riff_raw['rgad']; - $thisfile_riff_raw_rgad_track = &$thisfile_riff_raw_rgad['track']; - $thisfile_riff_raw_rgad_album = &$thisfile_riff_raw_rgad['album']; - - $thisfile_riff_raw_rgad['fPeakAmplitude'] = getid3_lib::LittleEndian2Float(substr($rgadData, 0, 4)); - $thisfile_riff_raw_rgad['nRadioRgAdjust'] = $this->EitherEndian2Int(substr($rgadData, 4, 2)); - $thisfile_riff_raw_rgad['nAudiophileRgAdjust'] = $this->EitherEndian2Int(substr($rgadData, 6, 2)); - - $nRadioRgAdjustBitstring = str_pad(getid3_lib::Dec2Bin($thisfile_riff_raw_rgad['nRadioRgAdjust']), 16, '0', STR_PAD_LEFT); - $nAudiophileRgAdjustBitstring = str_pad(getid3_lib::Dec2Bin($thisfile_riff_raw_rgad['nAudiophileRgAdjust']), 16, '0', STR_PAD_LEFT); - $thisfile_riff_raw_rgad_track['name'] = getid3_lib::Bin2Dec(substr($nRadioRgAdjustBitstring, 0, 3)); - $thisfile_riff_raw_rgad_track['originator'] = getid3_lib::Bin2Dec(substr($nRadioRgAdjustBitstring, 3, 3)); - $thisfile_riff_raw_rgad_track['signbit'] = getid3_lib::Bin2Dec(substr($nRadioRgAdjustBitstring, 6, 1)); - $thisfile_riff_raw_rgad_track['adjustment'] = getid3_lib::Bin2Dec(substr($nRadioRgAdjustBitstring, 7, 9)); - $thisfile_riff_raw_rgad_album['name'] = getid3_lib::Bin2Dec(substr($nAudiophileRgAdjustBitstring, 0, 3)); - $thisfile_riff_raw_rgad_album['originator'] = getid3_lib::Bin2Dec(substr($nAudiophileRgAdjustBitstring, 3, 3)); - $thisfile_riff_raw_rgad_album['signbit'] = getid3_lib::Bin2Dec(substr($nAudiophileRgAdjustBitstring, 6, 1)); - $thisfile_riff_raw_rgad_album['adjustment'] = getid3_lib::Bin2Dec(substr($nAudiophileRgAdjustBitstring, 7, 9)); - - $thisfile_riff['rgad']['peakamplitude'] = $thisfile_riff_raw_rgad['fPeakAmplitude']; - if (($thisfile_riff_raw_rgad_track['name'] != 0) && ($thisfile_riff_raw_rgad_track['originator'] != 0)) { - $thisfile_riff['rgad']['track']['name'] = getid3_lib::RGADnameLookup($thisfile_riff_raw_rgad_track['name']); - $thisfile_riff['rgad']['track']['originator'] = getid3_lib::RGADoriginatorLookup($thisfile_riff_raw_rgad_track['originator']); - $thisfile_riff['rgad']['track']['adjustment'] = getid3_lib::RGADadjustmentLookup($thisfile_riff_raw_rgad_track['adjustment'], $thisfile_riff_raw_rgad_track['signbit']); - } - if (($thisfile_riff_raw_rgad_album['name'] != 0) && ($thisfile_riff_raw_rgad_album['originator'] != 0)) { - $thisfile_riff['rgad']['album']['name'] = getid3_lib::RGADnameLookup($thisfile_riff_raw_rgad_album['name']); - $thisfile_riff['rgad']['album']['originator'] = getid3_lib::RGADoriginatorLookup($thisfile_riff_raw_rgad_album['originator']); - $thisfile_riff['rgad']['album']['adjustment'] = getid3_lib::RGADadjustmentLookup($thisfile_riff_raw_rgad_album['adjustment'], $thisfile_riff_raw_rgad_album['signbit']); - } - } - - if (isset($thisfile_riff_WAVE['fact'][0]['data'])) { - $thisfile_riff_raw['fact']['NumberOfSamples'] = $this->EitherEndian2Int(substr($thisfile_riff_WAVE['fact'][0]['data'], 0, 4)); - - // This should be a good way of calculating exact playtime, - // but some sample files have had incorrect number of samples, - // so cannot use this method - - // if (!empty($thisfile_riff_raw['fmt ']['nSamplesPerSec'])) { - // $info['playtime_seconds'] = (float) $thisfile_riff_raw['fact']['NumberOfSamples'] / $thisfile_riff_raw['fmt ']['nSamplesPerSec']; - // } - } - if (!empty($thisfile_riff_raw['fmt ']['nAvgBytesPerSec'])) { - $thisfile_audio['bitrate'] = getid3_lib::CastAsInt($thisfile_riff_raw['fmt ']['nAvgBytesPerSec'] * 8); - } - - if (isset($thisfile_riff_WAVE['bext'][0]['data'])) { - // shortcut - $thisfile_riff_WAVE_bext_0 = &$thisfile_riff_WAVE['bext'][0]; - - $thisfile_riff_WAVE_bext_0['title'] = trim(substr($thisfile_riff_WAVE_bext_0['data'], 0, 256)); - $thisfile_riff_WAVE_bext_0['author'] = trim(substr($thisfile_riff_WAVE_bext_0['data'], 256, 32)); - $thisfile_riff_WAVE_bext_0['reference'] = trim(substr($thisfile_riff_WAVE_bext_0['data'], 288, 32)); - $thisfile_riff_WAVE_bext_0['origin_date'] = substr($thisfile_riff_WAVE_bext_0['data'], 320, 10); - $thisfile_riff_WAVE_bext_0['origin_time'] = substr($thisfile_riff_WAVE_bext_0['data'], 330, 8); - $thisfile_riff_WAVE_bext_0['time_reference'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_bext_0['data'], 338, 8)); - $thisfile_riff_WAVE_bext_0['bwf_version'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_bext_0['data'], 346, 1)); - $thisfile_riff_WAVE_bext_0['reserved'] = substr($thisfile_riff_WAVE_bext_0['data'], 347, 254); - $thisfile_riff_WAVE_bext_0['coding_history'] = explode("\r\n", trim(substr($thisfile_riff_WAVE_bext_0['data'], 601))); - if (preg_match('#^([0-9]{4}).([0-9]{2}).([0-9]{2})$#', $thisfile_riff_WAVE_bext_0['origin_date'], $matches_bext_date)) { - if (preg_match('#^([0-9]{2}).([0-9]{2}).([0-9]{2})$#', $thisfile_riff_WAVE_bext_0['origin_time'], $matches_bext_time)) { - list($dummy, $bext_timestamp['year'], $bext_timestamp['month'], $bext_timestamp['day']) = $matches_bext_date; - list($dummy, $bext_timestamp['hour'], $bext_timestamp['minute'], $bext_timestamp['second']) = $matches_bext_time; - $thisfile_riff_WAVE_bext_0['origin_date_unix'] = gmmktime($bext_timestamp['hour'], $bext_timestamp['minute'], $bext_timestamp['second'], $bext_timestamp['month'], $bext_timestamp['day'], $bext_timestamp['year']); - } else { - $info['warning'][] = 'RIFF.WAVE.BEXT.origin_time is invalid'; - } - } else { - $info['warning'][] = 'RIFF.WAVE.BEXT.origin_date is invalid'; - } - $thisfile_riff['comments']['author'][] = $thisfile_riff_WAVE_bext_0['author']; - $thisfile_riff['comments']['title'][] = $thisfile_riff_WAVE_bext_0['title']; - } - - if (isset($thisfile_riff_WAVE['MEXT'][0]['data'])) { - // shortcut - $thisfile_riff_WAVE_MEXT_0 = &$thisfile_riff_WAVE['MEXT'][0]; - - $thisfile_riff_WAVE_MEXT_0['raw']['sound_information'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_MEXT_0['data'], 0, 2)); - $thisfile_riff_WAVE_MEXT_0['flags']['homogenous'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['sound_information'] & 0x0001); - if ($thisfile_riff_WAVE_MEXT_0['flags']['homogenous']) { - $thisfile_riff_WAVE_MEXT_0['flags']['padding'] = ($thisfile_riff_WAVE_MEXT_0['raw']['sound_information'] & 0x0002) ? false : true; - $thisfile_riff_WAVE_MEXT_0['flags']['22_or_44'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['sound_information'] & 0x0004); - $thisfile_riff_WAVE_MEXT_0['flags']['free_format'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['sound_information'] & 0x0008); - - $thisfile_riff_WAVE_MEXT_0['nominal_frame_size'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_MEXT_0['data'], 2, 2)); - } - $thisfile_riff_WAVE_MEXT_0['anciliary_data_length'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_MEXT_0['data'], 6, 2)); - $thisfile_riff_WAVE_MEXT_0['raw']['anciliary_data_def'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_MEXT_0['data'], 8, 2)); - $thisfile_riff_WAVE_MEXT_0['flags']['anciliary_data_left'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['anciliary_data_def'] & 0x0001); - $thisfile_riff_WAVE_MEXT_0['flags']['anciliary_data_free'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['anciliary_data_def'] & 0x0002); - $thisfile_riff_WAVE_MEXT_0['flags']['anciliary_data_right'] = (bool) ($thisfile_riff_WAVE_MEXT_0['raw']['anciliary_data_def'] & 0x0004); - } - - if (isset($thisfile_riff_WAVE['cart'][0]['data'])) { - // shortcut - $thisfile_riff_WAVE_cart_0 = &$thisfile_riff_WAVE['cart'][0]; - - $thisfile_riff_WAVE_cart_0['version'] = substr($thisfile_riff_WAVE_cart_0['data'], 0, 4); - $thisfile_riff_WAVE_cart_0['title'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 4, 64)); - $thisfile_riff_WAVE_cart_0['artist'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 68, 64)); - $thisfile_riff_WAVE_cart_0['cut_id'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 132, 64)); - $thisfile_riff_WAVE_cart_0['client_id'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 196, 64)); - $thisfile_riff_WAVE_cart_0['category'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 260, 64)); - $thisfile_riff_WAVE_cart_0['classification'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 324, 64)); - $thisfile_riff_WAVE_cart_0['out_cue'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 388, 64)); - $thisfile_riff_WAVE_cart_0['start_date'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 452, 10)); - $thisfile_riff_WAVE_cart_0['start_time'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 462, 8)); - $thisfile_riff_WAVE_cart_0['end_date'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 470, 10)); - $thisfile_riff_WAVE_cart_0['end_time'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 480, 8)); - $thisfile_riff_WAVE_cart_0['producer_app_id'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 488, 64)); - $thisfile_riff_WAVE_cart_0['producer_app_version'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 552, 64)); - $thisfile_riff_WAVE_cart_0['user_defined_text'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 616, 64)); - $thisfile_riff_WAVE_cart_0['zero_db_reference'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_cart_0['data'], 680, 4), true); - for ($i = 0; $i < 8; $i++) { - $thisfile_riff_WAVE_cart_0['post_time'][$i]['usage_fourcc'] = substr($thisfile_riff_WAVE_cart_0['data'], 684 + ($i * 8), 4); - $thisfile_riff_WAVE_cart_0['post_time'][$i]['timer_value'] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE_cart_0['data'], 684 + ($i * 8) + 4, 4)); - } - $thisfile_riff_WAVE_cart_0['url'] = trim(substr($thisfile_riff_WAVE_cart_0['data'], 748, 1024)); - $thisfile_riff_WAVE_cart_0['tag_text'] = explode("\r\n", trim(substr($thisfile_riff_WAVE_cart_0['data'], 1772))); - - $thisfile_riff['comments']['artist'][] = $thisfile_riff_WAVE_cart_0['artist']; - $thisfile_riff['comments']['title'][] = $thisfile_riff_WAVE_cart_0['title']; - } - - if (isset($thisfile_riff_WAVE['SNDM'][0]['data'])) { - // SoundMiner metadata - - // shortcuts - $thisfile_riff_WAVE_SNDM_0 = &$thisfile_riff_WAVE['SNDM'][0]; - $thisfile_riff_WAVE_SNDM_0_data = &$thisfile_riff_WAVE_SNDM_0['data']; - $SNDM_startoffset = 0; - $SNDM_endoffset = $thisfile_riff_WAVE_SNDM_0['size']; - - while ($SNDM_startoffset < $SNDM_endoffset) { - $SNDM_thisTagOffset = 0; - $SNDM_thisTagSize = getid3_lib::BigEndian2Int(substr($thisfile_riff_WAVE_SNDM_0_data, $SNDM_startoffset + $SNDM_thisTagOffset, 4)); - $SNDM_thisTagOffset += 4; - $SNDM_thisTagKey = substr($thisfile_riff_WAVE_SNDM_0_data, $SNDM_startoffset + $SNDM_thisTagOffset, 4); - $SNDM_thisTagOffset += 4; - $SNDM_thisTagDataSize = getid3_lib::BigEndian2Int(substr($thisfile_riff_WAVE_SNDM_0_data, $SNDM_startoffset + $SNDM_thisTagOffset, 2)); - $SNDM_thisTagOffset += 2; - $SNDM_thisTagDataFlags = getid3_lib::BigEndian2Int(substr($thisfile_riff_WAVE_SNDM_0_data, $SNDM_startoffset + $SNDM_thisTagOffset, 2)); - $SNDM_thisTagOffset += 2; - $SNDM_thisTagDataText = substr($thisfile_riff_WAVE_SNDM_0_data, $SNDM_startoffset + $SNDM_thisTagOffset, $SNDM_thisTagDataSize); - $SNDM_thisTagOffset += $SNDM_thisTagDataSize; - - if ($SNDM_thisTagSize != (4 + 4 + 2 + 2 + $SNDM_thisTagDataSize)) { - $info['warning'][] = 'RIFF.WAVE.SNDM.data contains tag not expected length (expected: '.$SNDM_thisTagSize.', found: '.(4 + 4 + 2 + 2 + $SNDM_thisTagDataSize).') at offset '.$SNDM_startoffset.' (file offset '.($thisfile_riff_WAVE_SNDM_0['offset'] + $SNDM_startoffset).')'; - break; - } elseif ($SNDM_thisTagSize <= 0) { - $info['warning'][] = 'RIFF.WAVE.SNDM.data contains zero-size tag at offset '.$SNDM_startoffset.' (file offset '.($thisfile_riff_WAVE_SNDM_0['offset'] + $SNDM_startoffset).')'; - break; - } - $SNDM_startoffset += $SNDM_thisTagSize; - - $thisfile_riff_WAVE_SNDM_0['parsed_raw'][$SNDM_thisTagKey] = $SNDM_thisTagDataText; - if ($parsedkey = self::waveSNDMtagLookup($SNDM_thisTagKey)) { - $thisfile_riff_WAVE_SNDM_0['parsed'][$parsedkey] = $SNDM_thisTagDataText; - } else { - $info['warning'][] = 'RIFF.WAVE.SNDM contains unknown tag "'.$SNDM_thisTagKey.'" at offset '.$SNDM_startoffset.' (file offset '.($thisfile_riff_WAVE_SNDM_0['offset'] + $SNDM_startoffset).')'; - } - } - - $tagmapping = array( - 'tracktitle'=>'title', - 'category' =>'genre', - 'cdtitle' =>'album', - 'tracktitle'=>'title', - ); - foreach ($tagmapping as $fromkey => $tokey) { - if (isset($thisfile_riff_WAVE_SNDM_0['parsed'][$fromkey])) { - $thisfile_riff['comments'][$tokey][] = $thisfile_riff_WAVE_SNDM_0['parsed'][$fromkey]; - } - } - } - - if (isset($thisfile_riff_WAVE['iXML'][0]['data'])) { - // requires functions simplexml_load_string and get_object_vars - if ($parsedXML = getid3_lib::XML2array($thisfile_riff_WAVE['iXML'][0]['data'])) { - $thisfile_riff_WAVE['iXML'][0]['parsed'] = $parsedXML; - if (isset($parsedXML['SPEED']['MASTER_SPEED'])) { - @list($numerator, $denominator) = explode('/', $parsedXML['SPEED']['MASTER_SPEED']); - $thisfile_riff_WAVE['iXML'][0]['master_speed'] = $numerator / ($denominator ? $denominator : 1000); - } - if (isset($parsedXML['SPEED']['TIMECODE_RATE'])) { - @list($numerator, $denominator) = explode('/', $parsedXML['SPEED']['TIMECODE_RATE']); - $thisfile_riff_WAVE['iXML'][0]['timecode_rate'] = $numerator / ($denominator ? $denominator : 1000); - } - if (isset($parsedXML['SPEED']['TIMESTAMP_SAMPLES_SINCE_MIDNIGHT_LO']) && !empty($parsedXML['SPEED']['TIMESTAMP_SAMPLE_RATE']) && !empty($thisfile_riff_WAVE['iXML'][0]['timecode_rate'])) { - $samples_since_midnight = floatval(ltrim($parsedXML['SPEED']['TIMESTAMP_SAMPLES_SINCE_MIDNIGHT_HI'].$parsedXML['SPEED']['TIMESTAMP_SAMPLES_SINCE_MIDNIGHT_LO'], '0')); - $thisfile_riff_WAVE['iXML'][0]['timecode_seconds'] = $samples_since_midnight / $parsedXML['SPEED']['TIMESTAMP_SAMPLE_RATE']; - $h = floor( $thisfile_riff_WAVE['iXML'][0]['timecode_seconds'] / 3600); - $m = floor(($thisfile_riff_WAVE['iXML'][0]['timecode_seconds'] - ($h * 3600)) / 60); - $s = floor( $thisfile_riff_WAVE['iXML'][0]['timecode_seconds'] - ($h * 3600) - ($m * 60)); - $f = ($thisfile_riff_WAVE['iXML'][0]['timecode_seconds'] - ($h * 3600) - ($m * 60) - $s) * $thisfile_riff_WAVE['iXML'][0]['timecode_rate']; - $thisfile_riff_WAVE['iXML'][0]['timecode_string'] = sprintf('%02d:%02d:%02d:%05.2f', $h, $m, $s, $f); - $thisfile_riff_WAVE['iXML'][0]['timecode_string_round'] = sprintf('%02d:%02d:%02d:%02d', $h, $m, $s, round($f)); - } - unset($parsedXML); - } - } - - - - if (!isset($thisfile_audio['bitrate']) && isset($thisfile_riff_audio[$streamindex]['bitrate'])) { - $thisfile_audio['bitrate'] = $thisfile_riff_audio[$streamindex]['bitrate']; - $info['playtime_seconds'] = (float) ((($info['avdataend'] - $info['avdataoffset']) * 8) / $thisfile_audio['bitrate']); - } - - if (!empty($info['wavpack'])) { - $thisfile_audio_dataformat = 'wavpack'; - $thisfile_audio['bitrate_mode'] = 'vbr'; - $thisfile_audio['encoder'] = 'WavPack v'.$info['wavpack']['version']; - - // Reset to the way it was - RIFF parsing will have messed this up - $info['avdataend'] = $Original['avdataend']; - $thisfile_audio['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - $this->fseek($info['avdataoffset'] - 44); - $RIFFdata = $this->fread(44); - $OrignalRIFFheaderSize = getid3_lib::LittleEndian2Int(substr($RIFFdata, 4, 4)) + 8; - $OrignalRIFFdataSize = getid3_lib::LittleEndian2Int(substr($RIFFdata, 40, 4)) + 44; - - if ($OrignalRIFFheaderSize > $OrignalRIFFdataSize) { - $info['avdataend'] -= ($OrignalRIFFheaderSize - $OrignalRIFFdataSize); - $this->fseek($info['avdataend']); - $RIFFdata .= $this->fread($OrignalRIFFheaderSize - $OrignalRIFFdataSize); - } - - // move the data chunk after all other chunks (if any) - // so that the RIFF parser doesn't see EOF when trying - // to skip over the data chunk - $RIFFdata = substr($RIFFdata, 0, 36).substr($RIFFdata, 44).substr($RIFFdata, 36, 8); - $getid3_riff = new getid3_riff($this->getid3); - $getid3_riff->ParseRIFFdata($RIFFdata); - unset($getid3_riff); - } - - if (isset($thisfile_riff_raw['fmt ']['wFormatTag'])) { - switch ($thisfile_riff_raw['fmt ']['wFormatTag']) { - case 0x0001: // PCM - if (!empty($info['ac3'])) { - // Dolby Digital WAV files masquerade as PCM-WAV, but they're not - $thisfile_audio['wformattag'] = 0x2000; - $thisfile_audio['codec'] = self::wFormatTagLookup($thisfile_audio['wformattag']); - $thisfile_audio['lossless'] = false; - $thisfile_audio['bitrate'] = $info['ac3']['bitrate']; - $thisfile_audio['sample_rate'] = $info['ac3']['sample_rate']; - } - if (!empty($info['dts'])) { - // Dolby DTS files masquerade as PCM-WAV, but they're not - $thisfile_audio['wformattag'] = 0x2001; - $thisfile_audio['codec'] = self::wFormatTagLookup($thisfile_audio['wformattag']); - $thisfile_audio['lossless'] = false; - $thisfile_audio['bitrate'] = $info['dts']['bitrate']; - $thisfile_audio['sample_rate'] = $info['dts']['sample_rate']; - } - break; - case 0x08AE: // ClearJump LiteWave - $thisfile_audio['bitrate_mode'] = 'vbr'; - $thisfile_audio_dataformat = 'litewave'; - - //typedef struct tagSLwFormat { - // WORD m_wCompFormat; // low byte defines compression method, high byte is compression flags - // DWORD m_dwScale; // scale factor for lossy compression - // DWORD m_dwBlockSize; // number of samples in encoded blocks - // WORD m_wQuality; // alias for the scale factor - // WORD m_wMarkDistance; // distance between marks in bytes - // WORD m_wReserved; - // - // //following paramters are ignored if CF_FILESRC is not set - // DWORD m_dwOrgSize; // original file size in bytes - // WORD m_bFactExists; // indicates if 'fact' chunk exists in the original file - // DWORD m_dwRiffChunkSize; // riff chunk size in the original file - // - // PCMWAVEFORMAT m_OrgWf; // original wave format - // }SLwFormat, *PSLwFormat; - - // shortcut - $thisfile_riff['litewave']['raw'] = array(); - $riff_litewave = &$thisfile_riff['litewave']; - $riff_litewave_raw = &$riff_litewave['raw']; - - $flags = array( - 'compression_method' => 1, - 'compression_flags' => 1, - 'm_dwScale' => 4, - 'm_dwBlockSize' => 4, - 'm_wQuality' => 2, - 'm_wMarkDistance' => 2, - 'm_wReserved' => 2, - 'm_dwOrgSize' => 4, - 'm_bFactExists' => 2, - 'm_dwRiffChunkSize' => 4, - ); - $litewave_offset = 18; - foreach ($flags as $flag => $length) { - $riff_litewave_raw[$flag] = getid3_lib::LittleEndian2Int(substr($thisfile_riff_WAVE['fmt '][0]['data'], $litewave_offset, $length)); - $litewave_offset += $length; - } - - //$riff_litewave['quality_factor'] = intval(round((2000 - $riff_litewave_raw['m_dwScale']) / 20)); - $riff_litewave['quality_factor'] = $riff_litewave_raw['m_wQuality']; - - $riff_litewave['flags']['raw_source'] = ($riff_litewave_raw['compression_flags'] & 0x01) ? false : true; - $riff_litewave['flags']['vbr_blocksize'] = ($riff_litewave_raw['compression_flags'] & 0x02) ? false : true; - $riff_litewave['flags']['seekpoints'] = (bool) ($riff_litewave_raw['compression_flags'] & 0x04); - - $thisfile_audio['lossless'] = (($riff_litewave_raw['m_wQuality'] == 100) ? true : false); - $thisfile_audio['encoder_options'] = '-q'.$riff_litewave['quality_factor']; - break; - - default: - break; - } - } - if ($info['avdataend'] > $info['filesize']) { - switch (!empty($thisfile_audio_dataformat) ? $thisfile_audio_dataformat : '') { - case 'wavpack': // WavPack - case 'lpac': // LPAC - case 'ofr': // OptimFROG - case 'ofs': // OptimFROG DualStream - // lossless compressed audio formats that keep original RIFF headers - skip warning - break; - - case 'litewave': - if (($info['avdataend'] - $info['filesize']) == 1) { - // LiteWave appears to incorrectly *not* pad actual output file - // to nearest WORD boundary so may appear to be short by one - // byte, in which case - skip warning - } else { - // Short by more than one byte, throw warning - $info['warning'][] = 'Probably truncated file - expecting '.$thisfile_riff[$RIFFsubtype]['data'][0]['size'].' bytes of data, only found '.($info['filesize'] - $info['avdataoffset']).' (short by '.($thisfile_riff[$RIFFsubtype]['data'][0]['size'] - ($info['filesize'] - $info['avdataoffset'])).' bytes)'; - $info['avdataend'] = $info['filesize']; - } - break; - - default: - if ((($info['avdataend'] - $info['filesize']) == 1) && (($thisfile_riff[$RIFFsubtype]['data'][0]['size'] % 2) == 0) && ((($info['filesize'] - $info['avdataoffset']) % 2) == 1)) { - // output file appears to be incorrectly *not* padded to nearest WORD boundary - // Output less severe warning - $info['warning'][] = 'File should probably be padded to nearest WORD boundary, but it is not (expecting '.$thisfile_riff[$RIFFsubtype]['data'][0]['size'].' bytes of data, only found '.($info['filesize'] - $info['avdataoffset']).' therefore short by '.($thisfile_riff[$RIFFsubtype]['data'][0]['size'] - ($info['filesize'] - $info['avdataoffset'])).' bytes)'; - $info['avdataend'] = $info['filesize']; - } else { - // Short by more than one byte, throw warning - $info['warning'][] = 'Probably truncated file - expecting '.$thisfile_riff[$RIFFsubtype]['data'][0]['size'].' bytes of data, only found '.($info['filesize'] - $info['avdataoffset']).' (short by '.($thisfile_riff[$RIFFsubtype]['data'][0]['size'] - ($info['filesize'] - $info['avdataoffset'])).' bytes)'; - $info['avdataend'] = $info['filesize']; - } - break; - } - } - if (!empty($info['mpeg']['audio']['LAME']['audio_bytes'])) { - if ((($info['avdataend'] - $info['avdataoffset']) - $info['mpeg']['audio']['LAME']['audio_bytes']) == 1) { - $info['avdataend']--; - $info['warning'][] = 'Extra null byte at end of MP3 data assumed to be RIFF padding and therefore ignored'; - } - } - if (isset($thisfile_audio_dataformat) && ($thisfile_audio_dataformat == 'ac3')) { - unset($thisfile_audio['bits_per_sample']); - if (!empty($info['ac3']['bitrate']) && ($info['ac3']['bitrate'] != $thisfile_audio['bitrate'])) { - $thisfile_audio['bitrate'] = $info['ac3']['bitrate']; - } - } - break; - - case 'AVI ': - $thisfile_video['bitrate_mode'] = 'vbr'; // maybe not, but probably - $thisfile_video['dataformat'] = 'avi'; - $info['mime_type'] = 'video/avi'; - - if (isset($thisfile_riff[$RIFFsubtype]['movi']['offset'])) { - $info['avdataoffset'] = $thisfile_riff[$RIFFsubtype]['movi']['offset'] + 8; - if (isset($thisfile_riff['AVIX'])) { - $info['avdataend'] = $thisfile_riff['AVIX'][(count($thisfile_riff['AVIX']) - 1)]['chunks']['movi']['offset'] + $thisfile_riff['AVIX'][(count($thisfile_riff['AVIX']) - 1)]['chunks']['movi']['size']; - } else { - $info['avdataend'] = $thisfile_riff['AVI ']['movi']['offset'] + $thisfile_riff['AVI ']['movi']['size']; - } - if ($info['avdataend'] > $info['filesize']) { - $info['warning'][] = 'Probably truncated file - expecting '.($info['avdataend'] - $info['avdataoffset']).' bytes of data, only found '.($info['filesize'] - $info['avdataoffset']).' (short by '.($info['avdataend'] - $info['filesize']).' bytes)'; - $info['avdataend'] = $info['filesize']; - } - } - - if (isset($thisfile_riff['AVI ']['hdrl']['strl']['indx'])) { - //$bIndexType = array( - // 0x00 => 'AVI_INDEX_OF_INDEXES', - // 0x01 => 'AVI_INDEX_OF_CHUNKS', - // 0x80 => 'AVI_INDEX_IS_DATA', - //); - //$bIndexSubtype = array( - // 0x01 => array( - // 0x01 => 'AVI_INDEX_2FIELD', - // ), - //); - foreach ($thisfile_riff['AVI ']['hdrl']['strl']['indx'] as $streamnumber => $steamdataarray) { - $ahsisd = &$thisfile_riff['AVI ']['hdrl']['strl']['indx'][$streamnumber]['data']; - - $thisfile_riff_raw['indx'][$streamnumber]['wLongsPerEntry'] = $this->EitherEndian2Int(substr($ahsisd, 0, 2)); - $thisfile_riff_raw['indx'][$streamnumber]['bIndexSubType'] = $this->EitherEndian2Int(substr($ahsisd, 2, 1)); - $thisfile_riff_raw['indx'][$streamnumber]['bIndexType'] = $this->EitherEndian2Int(substr($ahsisd, 3, 1)); - $thisfile_riff_raw['indx'][$streamnumber]['nEntriesInUse'] = $this->EitherEndian2Int(substr($ahsisd, 4, 4)); - $thisfile_riff_raw['indx'][$streamnumber]['dwChunkId'] = substr($ahsisd, 8, 4); - $thisfile_riff_raw['indx'][$streamnumber]['dwReserved'] = $this->EitherEndian2Int(substr($ahsisd, 12, 4)); - - //$thisfile_riff_raw['indx'][$streamnumber]['bIndexType_name'] = $bIndexType[$thisfile_riff_raw['indx'][$streamnumber]['bIndexType']]; - //$thisfile_riff_raw['indx'][$streamnumber]['bIndexSubType_name'] = $bIndexSubtype[$thisfile_riff_raw['indx'][$streamnumber]['bIndexType']][$thisfile_riff_raw['indx'][$streamnumber]['bIndexSubType']]; - - unset($ahsisd); - } - } - if (isset($thisfile_riff['AVI ']['hdrl']['avih'][$streamindex]['data'])) { - $avihData = $thisfile_riff['AVI ']['hdrl']['avih'][$streamindex]['data']; - - // shortcut - $thisfile_riff_raw['avih'] = array(); - $thisfile_riff_raw_avih = &$thisfile_riff_raw['avih']; - - $thisfile_riff_raw_avih['dwMicroSecPerFrame'] = $this->EitherEndian2Int(substr($avihData, 0, 4)); // frame display rate (or 0L) - if ($thisfile_riff_raw_avih['dwMicroSecPerFrame'] == 0) { - $info['error'][] = 'Corrupt RIFF file: avih.dwMicroSecPerFrame == zero'; - return false; - } - - $flags = array( - 'dwMaxBytesPerSec', // max. transfer rate - 'dwPaddingGranularity', // pad to multiples of this size; normally 2K. - 'dwFlags', // the ever-present flags - 'dwTotalFrames', // # frames in file - 'dwInitialFrames', // - 'dwStreams', // - 'dwSuggestedBufferSize', // - 'dwWidth', // - 'dwHeight', // - 'dwScale', // - 'dwRate', // - 'dwStart', // - 'dwLength', // - ); - $avih_offset = 4; - foreach ($flags as $flag) { - $thisfile_riff_raw_avih[$flag] = $this->EitherEndian2Int(substr($avihData, $avih_offset, 4)); - $avih_offset += 4; - } - - $flags = array( - 'hasindex' => 0x00000010, - 'mustuseindex' => 0x00000020, - 'interleaved' => 0x00000100, - 'trustcktype' => 0x00000800, - 'capturedfile' => 0x00010000, - 'copyrighted' => 0x00020010, - ); - foreach ($flags as $flag => $value) { - $thisfile_riff_raw_avih['flags'][$flag] = (bool) ($thisfile_riff_raw_avih['dwFlags'] & $value); - } - - // shortcut - $thisfile_riff_video[$streamindex] = array(); - $thisfile_riff_video_current = &$thisfile_riff_video[$streamindex]; - - if ($thisfile_riff_raw_avih['dwWidth'] > 0) { - $thisfile_riff_video_current['frame_width'] = $thisfile_riff_raw_avih['dwWidth']; - $thisfile_video['resolution_x'] = $thisfile_riff_video_current['frame_width']; - } - if ($thisfile_riff_raw_avih['dwHeight'] > 0) { - $thisfile_riff_video_current['frame_height'] = $thisfile_riff_raw_avih['dwHeight']; - $thisfile_video['resolution_y'] = $thisfile_riff_video_current['frame_height']; - } - if ($thisfile_riff_raw_avih['dwTotalFrames'] > 0) { - $thisfile_riff_video_current['total_frames'] = $thisfile_riff_raw_avih['dwTotalFrames']; - $thisfile_video['total_frames'] = $thisfile_riff_video_current['total_frames']; - } - - $thisfile_riff_video_current['frame_rate'] = round(1000000 / $thisfile_riff_raw_avih['dwMicroSecPerFrame'], 3); - $thisfile_video['frame_rate'] = $thisfile_riff_video_current['frame_rate']; - } - if (isset($thisfile_riff['AVI ']['hdrl']['strl']['strh'][0]['data'])) { - if (is_array($thisfile_riff['AVI ']['hdrl']['strl']['strh'])) { - for ($i = 0; $i < count($thisfile_riff['AVI ']['hdrl']['strl']['strh']); $i++) { - if (isset($thisfile_riff['AVI ']['hdrl']['strl']['strh'][$i]['data'])) { - $strhData = $thisfile_riff['AVI ']['hdrl']['strl']['strh'][$i]['data']; - $strhfccType = substr($strhData, 0, 4); - - if (isset($thisfile_riff['AVI ']['hdrl']['strl']['strf'][$i]['data'])) { - $strfData = $thisfile_riff['AVI ']['hdrl']['strl']['strf'][$i]['data']; - - // shortcut - $thisfile_riff_raw_strf_strhfccType_streamindex = &$thisfile_riff_raw['strf'][$strhfccType][$streamindex]; - - switch ($strhfccType) { - case 'auds': - $thisfile_audio['bitrate_mode'] = 'cbr'; - $thisfile_audio_dataformat = 'wav'; - if (isset($thisfile_riff_audio) && is_array($thisfile_riff_audio)) { - $streamindex = count($thisfile_riff_audio); - } - - $thisfile_riff_audio[$streamindex] = self::parseWAVEFORMATex($strfData); - $thisfile_audio['wformattag'] = $thisfile_riff_audio[$streamindex]['raw']['wFormatTag']; - - // shortcut - $thisfile_audio['streams'][$streamindex] = $thisfile_riff_audio[$streamindex]; - $thisfile_audio_streams_currentstream = &$thisfile_audio['streams'][$streamindex]; - - if ($thisfile_audio_streams_currentstream['bits_per_sample'] == 0) { - unset($thisfile_audio_streams_currentstream['bits_per_sample']); - } - $thisfile_audio_streams_currentstream['wformattag'] = $thisfile_audio_streams_currentstream['raw']['wFormatTag']; - unset($thisfile_audio_streams_currentstream['raw']); - - // shortcut - $thisfile_riff_raw['strf'][$strhfccType][$streamindex] = $thisfile_riff_audio[$streamindex]['raw']; - - unset($thisfile_riff_audio[$streamindex]['raw']); - $thisfile_audio = getid3_lib::array_merge_noclobber($thisfile_audio, $thisfile_riff_audio[$streamindex]); - - $thisfile_audio['lossless'] = false; - switch ($thisfile_riff_raw_strf_strhfccType_streamindex['wFormatTag']) { - case 0x0001: // PCM - $thisfile_audio_dataformat = 'wav'; - $thisfile_audio['lossless'] = true; - break; - - case 0x0050: // MPEG Layer 2 or Layer 1 - $thisfile_audio_dataformat = 'mp2'; // Assume Layer-2 - break; - - case 0x0055: // MPEG Layer 3 - $thisfile_audio_dataformat = 'mp3'; - break; - - case 0x00FF: // AAC - $thisfile_audio_dataformat = 'aac'; - break; - - case 0x0161: // Windows Media v7 / v8 / v9 - case 0x0162: // Windows Media Professional v9 - case 0x0163: // Windows Media Lossess v9 - $thisfile_audio_dataformat = 'wma'; - break; - - case 0x2000: // AC-3 - $thisfile_audio_dataformat = 'ac3'; - break; - - case 0x2001: // DTS - $thisfile_audio_dataformat = 'dts'; - break; - - default: - $thisfile_audio_dataformat = 'wav'; - break; - } - $thisfile_audio_streams_currentstream['dataformat'] = $thisfile_audio_dataformat; - $thisfile_audio_streams_currentstream['lossless'] = $thisfile_audio['lossless']; - $thisfile_audio_streams_currentstream['bitrate_mode'] = $thisfile_audio['bitrate_mode']; - break; - - - case 'iavs': - case 'vids': - // shortcut - $thisfile_riff_raw['strh'][$i] = array(); - $thisfile_riff_raw_strh_current = &$thisfile_riff_raw['strh'][$i]; - - $thisfile_riff_raw_strh_current['fccType'] = substr($strhData, 0, 4); // same as $strhfccType; - $thisfile_riff_raw_strh_current['fccHandler'] = substr($strhData, 4, 4); - $thisfile_riff_raw_strh_current['dwFlags'] = $this->EitherEndian2Int(substr($strhData, 8, 4)); // Contains AVITF_* flags - $thisfile_riff_raw_strh_current['wPriority'] = $this->EitherEndian2Int(substr($strhData, 12, 2)); - $thisfile_riff_raw_strh_current['wLanguage'] = $this->EitherEndian2Int(substr($strhData, 14, 2)); - $thisfile_riff_raw_strh_current['dwInitialFrames'] = $this->EitherEndian2Int(substr($strhData, 16, 4)); - $thisfile_riff_raw_strh_current['dwScale'] = $this->EitherEndian2Int(substr($strhData, 20, 4)); - $thisfile_riff_raw_strh_current['dwRate'] = $this->EitherEndian2Int(substr($strhData, 24, 4)); - $thisfile_riff_raw_strh_current['dwStart'] = $this->EitherEndian2Int(substr($strhData, 28, 4)); - $thisfile_riff_raw_strh_current['dwLength'] = $this->EitherEndian2Int(substr($strhData, 32, 4)); - $thisfile_riff_raw_strh_current['dwSuggestedBufferSize'] = $this->EitherEndian2Int(substr($strhData, 36, 4)); - $thisfile_riff_raw_strh_current['dwQuality'] = $this->EitherEndian2Int(substr($strhData, 40, 4)); - $thisfile_riff_raw_strh_current['dwSampleSize'] = $this->EitherEndian2Int(substr($strhData, 44, 4)); - $thisfile_riff_raw_strh_current['rcFrame'] = $this->EitherEndian2Int(substr($strhData, 48, 4)); - - $thisfile_riff_video_current['codec'] = self::fourccLookup($thisfile_riff_raw_strh_current['fccHandler']); - $thisfile_video['fourcc'] = $thisfile_riff_raw_strh_current['fccHandler']; - if (!$thisfile_riff_video_current['codec'] && isset($thisfile_riff_raw_strf_strhfccType_streamindex['fourcc']) && self::fourccLookup($thisfile_riff_raw_strf_strhfccType_streamindex['fourcc'])) { - $thisfile_riff_video_current['codec'] = self::fourccLookup($thisfile_riff_raw_strf_strhfccType_streamindex['fourcc']); - $thisfile_video['fourcc'] = $thisfile_riff_raw_strf_strhfccType_streamindex['fourcc']; - } - $thisfile_video['codec'] = $thisfile_riff_video_current['codec']; - $thisfile_video['pixel_aspect_ratio'] = (float) 1; - switch ($thisfile_riff_raw_strh_current['fccHandler']) { - case 'HFYU': // Huffman Lossless Codec - case 'IRAW': // Intel YUV Uncompressed - case 'YUY2': // Uncompressed YUV 4:2:2 - $thisfile_video['lossless'] = true; - break; - - default: - $thisfile_video['lossless'] = false; - break; - } - - switch ($strhfccType) { - case 'vids': - $thisfile_riff_raw_strf_strhfccType_streamindex = self::ParseBITMAPINFOHEADER(substr($strfData, 0, 40), ($info['fileformat'] == 'riff')); - $thisfile_video['bits_per_sample'] = $thisfile_riff_raw_strf_strhfccType_streamindex['biBitCount']; - - if ($thisfile_riff_video_current['codec'] == 'DV') { - $thisfile_riff_video_current['dv_type'] = 2; - } - break; - - case 'iavs': - $thisfile_riff_video_current['dv_type'] = 1; - break; - } - break; - - default: - $info['warning'][] = 'Unhandled fccType for stream ('.$i.'): "'.$strhfccType.'"'; - break; - - } - } - } - - if (isset($thisfile_riff_raw_strf_strhfccType_streamindex['fourcc'])) { - - $thisfile_video['fourcc'] = $thisfile_riff_raw_strf_strhfccType_streamindex['fourcc']; - if (self::fourccLookup($thisfile_video['fourcc'])) { - $thisfile_riff_video_current['codec'] = self::fourccLookup($thisfile_video['fourcc']); - $thisfile_video['codec'] = $thisfile_riff_video_current['codec']; - } - - switch ($thisfile_riff_raw_strf_strhfccType_streamindex['fourcc']) { - case 'HFYU': // Huffman Lossless Codec - case 'IRAW': // Intel YUV Uncompressed - case 'YUY2': // Uncompressed YUV 4:2:2 - $thisfile_video['lossless'] = true; - //$thisfile_video['bits_per_sample'] = 24; - break; - - default: - $thisfile_video['lossless'] = false; - //$thisfile_video['bits_per_sample'] = 24; - break; - } - - } - } - } - } - break; - - case 'CDDA': - $thisfile_audio['bitrate_mode'] = 'cbr'; - $thisfile_audio_dataformat = 'cda'; - $thisfile_audio['lossless'] = true; - unset($info['mime_type']); - - $info['avdataoffset'] = 44; - - if (isset($thisfile_riff['CDDA']['fmt '][0]['data'])) { - // shortcut - $thisfile_riff_CDDA_fmt_0 = &$thisfile_riff['CDDA']['fmt '][0]; - - $thisfile_riff_CDDA_fmt_0['unknown1'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 0, 2)); - $thisfile_riff_CDDA_fmt_0['track_num'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 2, 2)); - $thisfile_riff_CDDA_fmt_0['disc_id'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 4, 4)); - $thisfile_riff_CDDA_fmt_0['start_offset_frame'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 8, 4)); - $thisfile_riff_CDDA_fmt_0['playtime_frames'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 12, 4)); - $thisfile_riff_CDDA_fmt_0['unknown6'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 16, 4)); - $thisfile_riff_CDDA_fmt_0['unknown7'] = $this->EitherEndian2Int(substr($thisfile_riff_CDDA_fmt_0['data'], 20, 4)); - - $thisfile_riff_CDDA_fmt_0['start_offset_seconds'] = (float) $thisfile_riff_CDDA_fmt_0['start_offset_frame'] / 75; - $thisfile_riff_CDDA_fmt_0['playtime_seconds'] = (float) $thisfile_riff_CDDA_fmt_0['playtime_frames'] / 75; - $info['comments']['track'] = $thisfile_riff_CDDA_fmt_0['track_num']; - $info['playtime_seconds'] = $thisfile_riff_CDDA_fmt_0['playtime_seconds']; - - // hardcoded data for CD-audio - $thisfile_audio['sample_rate'] = 44100; - $thisfile_audio['channels'] = 2; - $thisfile_audio['bits_per_sample'] = 16; - $thisfile_audio['bitrate'] = $thisfile_audio['sample_rate'] * $thisfile_audio['channels'] * $thisfile_audio['bits_per_sample']; - $thisfile_audio['bitrate_mode'] = 'cbr'; - } - break; - - - case 'AIFF': - case 'AIFC': - $thisfile_audio['bitrate_mode'] = 'cbr'; - $thisfile_audio_dataformat = 'aiff'; - $thisfile_audio['lossless'] = true; - $info['mime_type'] = 'audio/x-aiff'; - - if (isset($thisfile_riff[$RIFFsubtype]['SSND'][0]['offset'])) { - $info['avdataoffset'] = $thisfile_riff[$RIFFsubtype]['SSND'][0]['offset'] + 8; - $info['avdataend'] = $info['avdataoffset'] + $thisfile_riff[$RIFFsubtype]['SSND'][0]['size']; - if ($info['avdataend'] > $info['filesize']) { - if (($info['avdataend'] == ($info['filesize'] + 1)) && (($info['filesize'] % 2) == 1)) { - // structures rounded to 2-byte boundary, but dumb encoders - // forget to pad end of file to make this actually work - } else { - $info['warning'][] = 'Probable truncated AIFF file: expecting '.$thisfile_riff[$RIFFsubtype]['SSND'][0]['size'].' bytes of audio data, only '.($info['filesize'] - $info['avdataoffset']).' bytes found'; - } - $info['avdataend'] = $info['filesize']; - } - } - - if (isset($thisfile_riff[$RIFFsubtype]['COMM'][0]['data'])) { - - // shortcut - $thisfile_riff_RIFFsubtype_COMM_0_data = &$thisfile_riff[$RIFFsubtype]['COMM'][0]['data']; - - $thisfile_riff_audio['channels'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_COMM_0_data, 0, 2), true); - $thisfile_riff_audio['total_samples'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_COMM_0_data, 2, 4), false); - $thisfile_riff_audio['bits_per_sample'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_COMM_0_data, 6, 2), true); - $thisfile_riff_audio['sample_rate'] = (int) getid3_lib::BigEndian2Float(substr($thisfile_riff_RIFFsubtype_COMM_0_data, 8, 10)); - - if ($thisfile_riff[$RIFFsubtype]['COMM'][0]['size'] > 18) { - $thisfile_riff_audio['codec_fourcc'] = substr($thisfile_riff_RIFFsubtype_COMM_0_data, 18, 4); - $CodecNameSize = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_COMM_0_data, 22, 1), false); - $thisfile_riff_audio['codec_name'] = substr($thisfile_riff_RIFFsubtype_COMM_0_data, 23, $CodecNameSize); - switch ($thisfile_riff_audio['codec_name']) { - case 'NONE': - $thisfile_audio['codec'] = 'Pulse Code Modulation (PCM)'; - $thisfile_audio['lossless'] = true; - break; - - case '': - switch ($thisfile_riff_audio['codec_fourcc']) { - // http://developer.apple.com/qa/snd/snd07.html - case 'sowt': - $thisfile_riff_audio['codec_name'] = 'Two\'s Compliment Little-Endian PCM'; - $thisfile_audio['lossless'] = true; - break; - - case 'twos': - $thisfile_riff_audio['codec_name'] = 'Two\'s Compliment Big-Endian PCM'; - $thisfile_audio['lossless'] = true; - break; - - default: - break; - } - break; - - default: - $thisfile_audio['codec'] = $thisfile_riff_audio['codec_name']; - $thisfile_audio['lossless'] = false; - break; - } - } - - $thisfile_audio['channels'] = $thisfile_riff_audio['channels']; - if ($thisfile_riff_audio['bits_per_sample'] > 0) { - $thisfile_audio['bits_per_sample'] = $thisfile_riff_audio['bits_per_sample']; - } - $thisfile_audio['sample_rate'] = $thisfile_riff_audio['sample_rate']; - if ($thisfile_audio['sample_rate'] == 0) { - $info['error'][] = 'Corrupted AIFF file: sample_rate == zero'; - return false; - } - $info['playtime_seconds'] = $thisfile_riff_audio['total_samples'] / $thisfile_audio['sample_rate']; - } - - if (isset($thisfile_riff[$RIFFsubtype]['COMT'])) { - $offset = 0; - $CommentCount = getid3_lib::BigEndian2Int(substr($thisfile_riff[$RIFFsubtype]['COMT'][0]['data'], $offset, 2), false); - $offset += 2; - for ($i = 0; $i < $CommentCount; $i++) { - $info['comments_raw'][$i]['timestamp'] = getid3_lib::BigEndian2Int(substr($thisfile_riff[$RIFFsubtype]['COMT'][0]['data'], $offset, 4), false); - $offset += 4; - $info['comments_raw'][$i]['marker_id'] = getid3_lib::BigEndian2Int(substr($thisfile_riff[$RIFFsubtype]['COMT'][0]['data'], $offset, 2), true); - $offset += 2; - $CommentLength = getid3_lib::BigEndian2Int(substr($thisfile_riff[$RIFFsubtype]['COMT'][0]['data'], $offset, 2), false); - $offset += 2; - $info['comments_raw'][$i]['comment'] = substr($thisfile_riff[$RIFFsubtype]['COMT'][0]['data'], $offset, $CommentLength); - $offset += $CommentLength; - - $info['comments_raw'][$i]['timestamp_unix'] = getid3_lib::DateMac2Unix($info['comments_raw'][$i]['timestamp']); - $thisfile_riff['comments']['comment'][] = $info['comments_raw'][$i]['comment']; - } - } - - $CommentsChunkNames = array('NAME'=>'title', 'author'=>'artist', '(c) '=>'copyright', 'ANNO'=>'comment'); - foreach ($CommentsChunkNames as $key => $value) { - if (isset($thisfile_riff[$RIFFsubtype][$key][0]['data'])) { - $thisfile_riff['comments'][$value][] = $thisfile_riff[$RIFFsubtype][$key][0]['data']; - } - } -/* - if (isset($thisfile_riff[$RIFFsubtype]['ID3 '])) { - getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v2.php', __FILE__, true); - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_id3v2 = new getid3_id3v2($getid3_temp); - $getid3_id3v2->StartingOffset = $thisfile_riff[$RIFFsubtype]['ID3 '][0]['offset'] + 8; - if ($thisfile_riff[$RIFFsubtype]['ID3 '][0]['valid'] = $getid3_id3v2->Analyze()) { - $info['id3v2'] = $getid3_temp->info['id3v2']; - } - unset($getid3_temp, $getid3_id3v2); - } -*/ - break; - - case '8SVX': - $thisfile_audio['bitrate_mode'] = 'cbr'; - $thisfile_audio_dataformat = '8svx'; - $thisfile_audio['bits_per_sample'] = 8; - $thisfile_audio['channels'] = 1; // overridden below, if need be - $info['mime_type'] = 'audio/x-aiff'; - - if (isset($thisfile_riff[$RIFFsubtype]['BODY'][0]['offset'])) { - $info['avdataoffset'] = $thisfile_riff[$RIFFsubtype]['BODY'][0]['offset'] + 8; - $info['avdataend'] = $info['avdataoffset'] + $thisfile_riff[$RIFFsubtype]['BODY'][0]['size']; - if ($info['avdataend'] > $info['filesize']) { - $info['warning'][] = 'Probable truncated AIFF file: expecting '.$thisfile_riff[$RIFFsubtype]['BODY'][0]['size'].' bytes of audio data, only '.($info['filesize'] - $info['avdataoffset']).' bytes found'; - } - } - - if (isset($thisfile_riff[$RIFFsubtype]['VHDR'][0]['offset'])) { - // shortcut - $thisfile_riff_RIFFsubtype_VHDR_0 = &$thisfile_riff[$RIFFsubtype]['VHDR'][0]; - - $thisfile_riff_RIFFsubtype_VHDR_0['oneShotHiSamples'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 0, 4)); - $thisfile_riff_RIFFsubtype_VHDR_0['repeatHiSamples'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 4, 4)); - $thisfile_riff_RIFFsubtype_VHDR_0['samplesPerHiCycle'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 8, 4)); - $thisfile_riff_RIFFsubtype_VHDR_0['samplesPerSec'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 12, 2)); - $thisfile_riff_RIFFsubtype_VHDR_0['ctOctave'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 14, 1)); - $thisfile_riff_RIFFsubtype_VHDR_0['sCompression'] = getid3_lib::BigEndian2Int(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 15, 1)); - $thisfile_riff_RIFFsubtype_VHDR_0['Volume'] = getid3_lib::FixedPoint16_16(substr($thisfile_riff_RIFFsubtype_VHDR_0['data'], 16, 4)); - - $thisfile_audio['sample_rate'] = $thisfile_riff_RIFFsubtype_VHDR_0['samplesPerSec']; - - switch ($thisfile_riff_RIFFsubtype_VHDR_0['sCompression']) { - case 0: - $thisfile_audio['codec'] = 'Pulse Code Modulation (PCM)'; - $thisfile_audio['lossless'] = true; - $ActualBitsPerSample = 8; - break; - - case 1: - $thisfile_audio['codec'] = 'Fibonacci-delta encoding'; - $thisfile_audio['lossless'] = false; - $ActualBitsPerSample = 4; - break; - - default: - $info['warning'][] = 'Unexpected sCompression value in 8SVX.VHDR chunk - expecting 0 or 1, found "'.sCompression.'"'; - break; - } - } - - if (isset($thisfile_riff[$RIFFsubtype]['CHAN'][0]['data'])) { - $ChannelsIndex = getid3_lib::BigEndian2Int(substr($thisfile_riff[$RIFFsubtype]['CHAN'][0]['data'], 0, 4)); - switch ($ChannelsIndex) { - case 6: // Stereo - $thisfile_audio['channels'] = 2; - break; - - case 2: // Left channel only - case 4: // Right channel only - $thisfile_audio['channels'] = 1; - break; - - default: - $info['warning'][] = 'Unexpected value in 8SVX.CHAN chunk - expecting 2 or 4 or 6, found "'.$ChannelsIndex.'"'; - break; - } - - } - - $CommentsChunkNames = array('NAME'=>'title', 'author'=>'artist', '(c) '=>'copyright', 'ANNO'=>'comment'); - foreach ($CommentsChunkNames as $key => $value) { - if (isset($thisfile_riff[$RIFFsubtype][$key][0]['data'])) { - $thisfile_riff['comments'][$value][] = $thisfile_riff[$RIFFsubtype][$key][0]['data']; - } - } - - $thisfile_audio['bitrate'] = $thisfile_audio['sample_rate'] * $ActualBitsPerSample * $thisfile_audio['channels']; - if (!empty($thisfile_audio['bitrate'])) { - $info['playtime_seconds'] = ($info['avdataend'] - $info['avdataoffset']) / ($thisfile_audio['bitrate'] / 8); - } - break; - - - case 'CDXA': - $info['mime_type'] = 'video/mpeg'; - if (!empty($thisfile_riff['CDXA']['data'][0]['size'])) { - if (getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.mpeg.php', __FILE__, false)) { - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_mpeg = new getid3_mpeg($getid3_temp); - $getid3_mpeg->Analyze(); - if (empty($getid3_temp->info['error'])) { - $info['audio'] = $getid3_temp->info['audio']; - $info['video'] = $getid3_temp->info['video']; - $info['mpeg'] = $getid3_temp->info['mpeg']; - $info['warning'] = $getid3_temp->info['warning']; - } - unset($getid3_temp, $getid3_mpeg); - } - } - break; - - - default: - $info['error'][] = 'Unknown RIFF type: expecting one of (WAVE|RMP3|AVI |CDDA|AIFF|AIFC|8SVX|CDXA), found "'.$RIFFsubtype.'" instead'; - unset($info['fileformat']); - break; - } - - switch ($RIFFsubtype) { - case 'WAVE': - case 'AIFF': - case 'AIFC': - $ID3v2_key_good = 'id3 '; - $ID3v2_keys_bad = array('ID3 ', 'tag '); - foreach ($ID3v2_keys_bad as $ID3v2_key_bad) { - if (isset($thisfile_riff[$RIFFsubtype][$ID3v2_key_bad]) && !array_key_exists($ID3v2_key_good, $thisfile_riff[$RIFFsubtype])) { - $thisfile_riff[$RIFFsubtype][$ID3v2_key_good] = $thisfile_riff[$RIFFsubtype][$ID3v2_key_bad]; - $info['warning'][] = 'mapping "'.$ID3v2_key_bad.'" chunk to "'.$ID3v2_key_good.'"'; - } - } - - if (isset($thisfile_riff[$RIFFsubtype]['id3 '])) { - getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v2.php', __FILE__, true); - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_id3v2 = new getid3_id3v2($getid3_temp); - $getid3_id3v2->StartingOffset = $thisfile_riff[$RIFFsubtype]['id3 '][0]['offset'] + 8; - if ($thisfile_riff[$RIFFsubtype]['id3 '][0]['valid'] = $getid3_id3v2->Analyze()) { - $info['id3v2'] = $getid3_temp->info['id3v2']; - } - unset($getid3_temp, $getid3_id3v2); - } - break; - } - - if (isset($thisfile_riff_WAVE['DISP']) && is_array($thisfile_riff_WAVE['DISP'])) { - $thisfile_riff['comments']['title'][] = trim(substr($thisfile_riff_WAVE['DISP'][count($thisfile_riff_WAVE['DISP']) - 1]['data'], 4)); - } - if (isset($thisfile_riff_WAVE['INFO']) && is_array($thisfile_riff_WAVE['INFO'])) { - self::parseComments($thisfile_riff_WAVE['INFO'], $thisfile_riff['comments']); - } - if (isset($thisfile_riff['AVI ']['INFO']) && is_array($thisfile_riff['AVI ']['INFO'])) { - self::parseComments($thisfile_riff['AVI ']['INFO'], $thisfile_riff['comments']); - } - - if (empty($thisfile_audio['encoder']) && !empty($info['mpeg']['audio']['LAME']['short_version'])) { - $thisfile_audio['encoder'] = $info['mpeg']['audio']['LAME']['short_version']; - } - - if (!isset($info['playtime_seconds'])) { - $info['playtime_seconds'] = 0; - } - if (isset($thisfile_riff_raw['strh'][0]['dwLength']) && isset($thisfile_riff_raw['avih']['dwMicroSecPerFrame'])) { - // needed for >2GB AVIs where 'avih' chunk only lists number of frames in that chunk, not entire movie - $info['playtime_seconds'] = $thisfile_riff_raw['strh'][0]['dwLength'] * ($thisfile_riff_raw['avih']['dwMicroSecPerFrame'] / 1000000); - } elseif (isset($thisfile_riff_raw['avih']['dwTotalFrames']) && isset($thisfile_riff_raw['avih']['dwMicroSecPerFrame'])) { - $info['playtime_seconds'] = $thisfile_riff_raw['avih']['dwTotalFrames'] * ($thisfile_riff_raw['avih']['dwMicroSecPerFrame'] / 1000000); - } - - if ($info['playtime_seconds'] > 0) { - if (isset($thisfile_riff_audio) && isset($thisfile_riff_video)) { - - if (!isset($info['bitrate'])) { - $info['bitrate'] = ((($info['avdataend'] - $info['avdataoffset']) / $info['playtime_seconds']) * 8); - } - - } elseif (isset($thisfile_riff_audio) && !isset($thisfile_riff_video)) { - - if (!isset($thisfile_audio['bitrate'])) { - $thisfile_audio['bitrate'] = ((($info['avdataend'] - $info['avdataoffset']) / $info['playtime_seconds']) * 8); - } - - } elseif (!isset($thisfile_riff_audio) && isset($thisfile_riff_video)) { - - if (!isset($thisfile_video['bitrate'])) { - $thisfile_video['bitrate'] = ((($info['avdataend'] - $info['avdataoffset']) / $info['playtime_seconds']) * 8); - } - - } - } - - - if (isset($thisfile_riff_video) && isset($thisfile_audio['bitrate']) && ($thisfile_audio['bitrate'] > 0) && ($info['playtime_seconds'] > 0)) { - - $info['bitrate'] = ((($info['avdataend'] - $info['avdataoffset']) / $info['playtime_seconds']) * 8); - $thisfile_audio['bitrate'] = 0; - $thisfile_video['bitrate'] = $info['bitrate']; - foreach ($thisfile_riff_audio as $channelnumber => $audioinfoarray) { - $thisfile_video['bitrate'] -= $audioinfoarray['bitrate']; - $thisfile_audio['bitrate'] += $audioinfoarray['bitrate']; - } - if ($thisfile_video['bitrate'] <= 0) { - unset($thisfile_video['bitrate']); - } - if ($thisfile_audio['bitrate'] <= 0) { - unset($thisfile_audio['bitrate']); - } - } - - if (isset($info['mpeg']['audio'])) { - $thisfile_audio_dataformat = 'mp'.$info['mpeg']['audio']['layer']; - $thisfile_audio['sample_rate'] = $info['mpeg']['audio']['sample_rate']; - $thisfile_audio['channels'] = $info['mpeg']['audio']['channels']; - $thisfile_audio['bitrate'] = $info['mpeg']['audio']['bitrate']; - $thisfile_audio['bitrate_mode'] = strtolower($info['mpeg']['audio']['bitrate_mode']); - if (!empty($info['mpeg']['audio']['codec'])) { - $thisfile_audio['codec'] = $info['mpeg']['audio']['codec'].' '.$thisfile_audio['codec']; - } - if (!empty($thisfile_audio['streams'])) { - foreach ($thisfile_audio['streams'] as $streamnumber => $streamdata) { - if ($streamdata['dataformat'] == $thisfile_audio_dataformat) { - $thisfile_audio['streams'][$streamnumber]['sample_rate'] = $thisfile_audio['sample_rate']; - $thisfile_audio['streams'][$streamnumber]['channels'] = $thisfile_audio['channels']; - $thisfile_audio['streams'][$streamnumber]['bitrate'] = $thisfile_audio['bitrate']; - $thisfile_audio['streams'][$streamnumber]['bitrate_mode'] = $thisfile_audio['bitrate_mode']; - $thisfile_audio['streams'][$streamnumber]['codec'] = $thisfile_audio['codec']; - } - } - } - $getid3_mp3 = new getid3_mp3($this->getid3); - $thisfile_audio['encoder_options'] = $getid3_mp3->GuessEncoderOptions(); - unset($getid3_mp3); - } - - - if (!empty($thisfile_riff_raw['fmt ']['wBitsPerSample']) && ($thisfile_riff_raw['fmt ']['wBitsPerSample'] > 0)) { - switch ($thisfile_audio_dataformat) { - case 'ac3': - // ignore bits_per_sample - break; - - default: - $thisfile_audio['bits_per_sample'] = $thisfile_riff_raw['fmt ']['wBitsPerSample']; - break; - } - } - - - if (empty($thisfile_riff_raw)) { - unset($thisfile_riff['raw']); - } - if (empty($thisfile_riff_audio)) { - unset($thisfile_riff['audio']); - } - if (empty($thisfile_riff_video)) { - unset($thisfile_riff['video']); - } - - return true; - } - - public function ParseRIFF($startoffset, $maxoffset) { - $info = &$this->getid3->info; - - $RIFFchunk = false; - $FoundAllChunksWeNeed = false; - - try { - $this->fseek($startoffset); - $maxoffset = min($maxoffset, $info['avdataend']); - while ($this->ftell() < $maxoffset) { - $chunknamesize = $this->fread(8); - //$chunkname = substr($chunknamesize, 0, 4); - $chunkname = str_replace("\x00", '_', substr($chunknamesize, 0, 4)); // note: chunk names of 4 null bytes do appear to be legal (has been observed inside INFO and PRMI chunks, for example), but makes traversing array keys more difficult - $chunksize = $this->EitherEndian2Int(substr($chunknamesize, 4, 4)); - //if (strlen(trim($chunkname, "\x00")) < 4) { - if (strlen($chunkname) < 4) { - $this->error('Expecting chunk name at offset '.($this->ftell() - 8).' but found nothing. Aborting RIFF parsing.'); - break; - } - if (($chunksize == 0) && ($chunkname != 'JUNK')) { - $this->warning('Chunk ('.$chunkname.') size at offset '.($this->ftell() - 4).' is zero. Aborting RIFF parsing.'); - break; - } - if (($chunksize % 2) != 0) { - // all structures are packed on word boundaries - $chunksize++; - } - - switch ($chunkname) { - case 'LIST': - $listname = $this->fread(4); - if (preg_match('#^(movi|rec )$#i', $listname)) { - $RIFFchunk[$listname]['offset'] = $this->ftell() - 4; - $RIFFchunk[$listname]['size'] = $chunksize; - - if (!$FoundAllChunksWeNeed) { - $WhereWeWere = $this->ftell(); - $AudioChunkHeader = $this->fread(12); - $AudioChunkStreamNum = substr($AudioChunkHeader, 0, 2); - $AudioChunkStreamType = substr($AudioChunkHeader, 2, 2); - $AudioChunkSize = getid3_lib::LittleEndian2Int(substr($AudioChunkHeader, 4, 4)); - - if ($AudioChunkStreamType == 'wb') { - $FirstFourBytes = substr($AudioChunkHeader, 8, 4); - if (preg_match('/^\xFF[\xE2-\xE7\xF2-\xF7\xFA-\xFF][\x00-\xEB]/s', $FirstFourBytes)) { - // MP3 - if (getid3_mp3::MPEGaudioHeaderBytesValid($FirstFourBytes)) { - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $this->ftell() - 4; - $getid3_temp->info['avdataend'] = $this->ftell() + $AudioChunkSize; - $getid3_mp3 = new getid3_mp3($getid3_temp); - $getid3_mp3->getOnlyMPEGaudioInfo($getid3_temp->info['avdataoffset'], false); - if (isset($getid3_temp->info['mpeg']['audio'])) { - $info['mpeg']['audio'] = $getid3_temp->info['mpeg']['audio']; - $info['audio'] = $getid3_temp->info['audio']; - $info['audio']['dataformat'] = 'mp'.$info['mpeg']['audio']['layer']; - $info['audio']['sample_rate'] = $info['mpeg']['audio']['sample_rate']; - $info['audio']['channels'] = $info['mpeg']['audio']['channels']; - $info['audio']['bitrate'] = $info['mpeg']['audio']['bitrate']; - $info['audio']['bitrate_mode'] = strtolower($info['mpeg']['audio']['bitrate_mode']); - //$info['bitrate'] = $info['audio']['bitrate']; - } - unset($getid3_temp, $getid3_mp3); - } - - } elseif (strpos($FirstFourBytes, getid3_ac3::syncword) === 0) { - - // AC3 - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $this->ftell() - 4; - $getid3_temp->info['avdataend'] = $this->ftell() + $AudioChunkSize; - $getid3_ac3 = new getid3_ac3($getid3_temp); - $getid3_ac3->Analyze(); - if (empty($getid3_temp->info['error'])) { - $info['audio'] = $getid3_temp->info['audio']; - $info['ac3'] = $getid3_temp->info['ac3']; - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $key => $value) { - $info['warning'][] = $value; - } - } - } - unset($getid3_temp, $getid3_ac3); - } - } - $FoundAllChunksWeNeed = true; - $this->fseek($WhereWeWere); - } - $this->fseek($chunksize - 4, SEEK_CUR); - - } else { - - if (!isset($RIFFchunk[$listname])) { - $RIFFchunk[$listname] = array(); - } - $LISTchunkParent = $listname; - $LISTchunkMaxOffset = $this->ftell() - 4 + $chunksize; - if ($parsedChunk = $this->ParseRIFF($this->ftell(), $LISTchunkMaxOffset)) { - $RIFFchunk[$listname] = array_merge_recursive($RIFFchunk[$listname], $parsedChunk); - } - - } - break; - - default: - if (preg_match('#^[0-9]{2}(wb|pc|dc|db)$#', $chunkname)) { - $this->fseek($chunksize, SEEK_CUR); - break; - } - $thisindex = 0; - if (isset($RIFFchunk[$chunkname]) && is_array($RIFFchunk[$chunkname])) { - $thisindex = count($RIFFchunk[$chunkname]); - } - $RIFFchunk[$chunkname][$thisindex]['offset'] = $this->ftell() - 8; - $RIFFchunk[$chunkname][$thisindex]['size'] = $chunksize; - switch ($chunkname) { - case 'data': - $info['avdataoffset'] = $this->ftell(); - $info['avdataend'] = $info['avdataoffset'] + $chunksize; - - $testData = $this->fread(36); - if ($testData === '') { - break; - } - if (preg_match('/^\xFF[\xE2-\xE7\xF2-\xF7\xFA-\xFF][\x00-\xEB]/s', substr($testData, 0, 4))) { - - // Probably is MP3 data - if (getid3_mp3::MPEGaudioHeaderBytesValid(substr($testData, 0, 4))) { - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_temp->info['avdataend'] = $info['avdataend']; - $getid3_mp3 = new getid3_mp3($getid3_temp); - $getid3_mp3->getOnlyMPEGaudioInfo($info['avdataoffset'], false); - if (empty($getid3_temp->info['error'])) { - $info['audio'] = $getid3_temp->info['audio']; - $info['mpeg'] = $getid3_temp->info['mpeg']; - } - unset($getid3_temp, $getid3_mp3); - } - - } elseif (($isRegularAC3 = (substr($testData, 0, 2) == getid3_ac3::syncword)) || substr($testData, 8, 2) == strrev(getid3_ac3::syncword)) { - - // This is probably AC-3 data - $getid3_temp = new getID3(); - if ($isRegularAC3) { - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_temp->info['avdataend'] = $info['avdataend']; - } - $getid3_ac3 = new getid3_ac3($getid3_temp); - if ($isRegularAC3) { - $getid3_ac3->Analyze(); - } else { - // Dolby Digital WAV - // AC-3 content, but not encoded in same format as normal AC-3 file - // For one thing, byte order is swapped - $ac3_data = ''; - for ($i = 0; $i < 28; $i += 2) { - $ac3_data .= substr($testData, 8 + $i + 1, 1); - $ac3_data .= substr($testData, 8 + $i + 0, 1); - } - $getid3_ac3->AnalyzeString($ac3_data); - } - - if (empty($getid3_temp->info['error'])) { - $info['audio'] = $getid3_temp->info['audio']; - $info['ac3'] = $getid3_temp->info['ac3']; - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $newerror) { - $this->warning('getid3_ac3() says: ['.$newerror.']'); - } - } - } - unset($getid3_temp, $getid3_ac3); - - } elseif (preg_match('/^('.implode('|', array_map('preg_quote', getid3_dts::$syncwords)).')/', $testData)) { - - // This is probably DTS data - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_dts = new getid3_dts($getid3_temp); - $getid3_dts->Analyze(); - if (empty($getid3_temp->info['error'])) { - $info['audio'] = $getid3_temp->info['audio']; - $info['dts'] = $getid3_temp->info['dts']; - $info['playtime_seconds'] = $getid3_temp->info['playtime_seconds']; // may not match RIFF calculations since DTS-WAV often used 14/16 bit-word packing - if (!empty($getid3_temp->info['warning'])) { - foreach ($getid3_temp->info['warning'] as $newerror) { - $this->warning('getid3_dts() says: ['.$newerror.']'); - } - } - } - - unset($getid3_temp, $getid3_dts); - - } elseif (substr($testData, 0, 4) == 'wvpk') { - - // This is WavPack data - $info['wavpack']['offset'] = $info['avdataoffset']; - $info['wavpack']['size'] = getid3_lib::LittleEndian2Int(substr($testData, 4, 4)); - $this->parseWavPackHeader(substr($testData, 8, 28)); - - } else { - // This is some other kind of data (quite possibly just PCM) - // do nothing special, just skip it - } - $nextoffset = $info['avdataend']; - $this->fseek($nextoffset); - break; - - case 'iXML': - case 'bext': - case 'cart': - case 'fmt ': - case 'strh': - case 'strf': - case 'indx': - case 'MEXT': - case 'DISP': - // always read data in - case 'JUNK': - // should be: never read data in - // but some programs write their version strings in a JUNK chunk (e.g. VirtualDub, AVIdemux, etc) - if ($chunksize < 1048576) { - if ($chunksize > 0) { - $RIFFchunk[$chunkname][$thisindex]['data'] = $this->fread($chunksize); - if ($chunkname == 'JUNK') { - if (preg_match('#^([\\x20-\\x7F]+)#', $RIFFchunk[$chunkname][$thisindex]['data'], $matches)) { - // only keep text characters [chr(32)-chr(127)] - $info['riff']['comments']['junk'][] = trim($matches[1]); - } - // but if nothing there, ignore - // remove the key in either case - unset($RIFFchunk[$chunkname][$thisindex]['data']); - } - } - } else { - $this->warning('Chunk "'.$chunkname.'" at offset '.$this->ftell().' is unexpectedly larger than 1MB (claims to be '.number_format($chunksize).' bytes), skipping data'); - $this->fseek($chunksize, SEEK_CUR); - } - break; - - //case 'IDVX': - // $info['divxtag']['comments'] = self::ParseDIVXTAG($this->fread($chunksize)); - // break; - - default: - if (!empty($LISTchunkParent) && (($RIFFchunk[$chunkname][$thisindex]['offset'] + $RIFFchunk[$chunkname][$thisindex]['size']) <= $LISTchunkMaxOffset)) { - $RIFFchunk[$LISTchunkParent][$chunkname][$thisindex]['offset'] = $RIFFchunk[$chunkname][$thisindex]['offset']; - $RIFFchunk[$LISTchunkParent][$chunkname][$thisindex]['size'] = $RIFFchunk[$chunkname][$thisindex]['size']; - unset($RIFFchunk[$chunkname][$thisindex]['offset']); - unset($RIFFchunk[$chunkname][$thisindex]['size']); - if (isset($RIFFchunk[$chunkname][$thisindex]) && empty($RIFFchunk[$chunkname][$thisindex])) { - unset($RIFFchunk[$chunkname][$thisindex]); - } - if (isset($RIFFchunk[$chunkname]) && empty($RIFFchunk[$chunkname])) { - unset($RIFFchunk[$chunkname]); - } - $RIFFchunk[$LISTchunkParent][$chunkname][$thisindex]['data'] = $this->fread($chunksize); - } elseif ($chunksize < 2048) { - // only read data in if smaller than 2kB - $RIFFchunk[$chunkname][$thisindex]['data'] = $this->fread($chunksize); - } else { - $this->fseek($chunksize, SEEK_CUR); - } - break; - } - break; - } - } - - } catch (getid3_exception $e) { - if ($e->getCode() == 10) { - $this->warning('RIFF parser: '.$e->getMessage()); - } else { - throw $e; - } - } - - return $RIFFchunk; - } - - public function ParseRIFFdata(&$RIFFdata) { - $info = &$this->getid3->info; - if ($RIFFdata) { - $tempfile = tempnam(GETID3_TEMP_DIR, 'getID3'); - $fp_temp = fopen($tempfile, 'wb'); - $RIFFdataLength = strlen($RIFFdata); - $NewLengthString = getid3_lib::LittleEndian2String($RIFFdataLength, 4); - for ($i = 0; $i < 4; $i++) { - $RIFFdata[($i + 4)] = $NewLengthString[$i]; - } - fwrite($fp_temp, $RIFFdata); - fclose($fp_temp); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($tempfile); - $getid3_temp->info['filesize'] = $RIFFdataLength; - $getid3_temp->info['filenamepath'] = $info['filenamepath']; - $getid3_temp->info['tags'] = $info['tags']; - $getid3_temp->info['warning'] = $info['warning']; - $getid3_temp->info['error'] = $info['error']; - $getid3_temp->info['comments'] = $info['comments']; - $getid3_temp->info['audio'] = (isset($info['audio']) ? $info['audio'] : array()); - $getid3_temp->info['video'] = (isset($info['video']) ? $info['video'] : array()); - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->Analyze(); - - $info['riff'] = $getid3_temp->info['riff']; - $info['warning'] = $getid3_temp->info['warning']; - $info['error'] = $getid3_temp->info['error']; - $info['tags'] = $getid3_temp->info['tags']; - $info['comments'] = $getid3_temp->info['comments']; - unset($getid3_riff, $getid3_temp); - unlink($tempfile); - } - return false; - } - - public static function parseComments(&$RIFFinfoArray, &$CommentsTargetArray) { - $RIFFinfoKeyLookup = array( - 'IARL'=>'archivallocation', - 'IART'=>'artist', - 'ICDS'=>'costumedesigner', - 'ICMS'=>'commissionedby', - 'ICMT'=>'comment', - 'ICNT'=>'country', - 'ICOP'=>'copyright', - 'ICRD'=>'creationdate', - 'IDIM'=>'dimensions', - 'IDIT'=>'digitizationdate', - 'IDPI'=>'resolution', - 'IDST'=>'distributor', - 'IEDT'=>'editor', - 'IENG'=>'engineers', - 'IFRM'=>'accountofparts', - 'IGNR'=>'genre', - 'IKEY'=>'keywords', - 'ILGT'=>'lightness', - 'ILNG'=>'language', - 'IMED'=>'orignalmedium', - 'IMUS'=>'composer', - 'INAM'=>'title', - 'IPDS'=>'productiondesigner', - 'IPLT'=>'palette', - 'IPRD'=>'product', - 'IPRO'=>'producer', - 'IPRT'=>'part', - 'IRTD'=>'rating', - 'ISBJ'=>'subject', - 'ISFT'=>'software', - 'ISGN'=>'secondarygenre', - 'ISHP'=>'sharpness', - 'ISRC'=>'sourcesupplier', - 'ISRF'=>'digitizationsource', - 'ISTD'=>'productionstudio', - 'ISTR'=>'starring', - 'ITCH'=>'encoded_by', - 'IWEB'=>'url', - 'IWRI'=>'writer', - '____'=>'comment', - ); - foreach ($RIFFinfoKeyLookup as $key => $value) { - if (isset($RIFFinfoArray[$key])) { - foreach ($RIFFinfoArray[$key] as $commentid => $commentdata) { - if (trim($commentdata['data']) != '') { - if (isset($CommentsTargetArray[$value])) { - $CommentsTargetArray[$value][] = trim($commentdata['data']); - } else { - $CommentsTargetArray[$value] = array(trim($commentdata['data'])); - } - } - } - } - } - return true; - } - - public static function parseWAVEFORMATex($WaveFormatExData) { - // shortcut - $WaveFormatEx['raw'] = array(); - $WaveFormatEx_raw = &$WaveFormatEx['raw']; - - $WaveFormatEx_raw['wFormatTag'] = substr($WaveFormatExData, 0, 2); - $WaveFormatEx_raw['nChannels'] = substr($WaveFormatExData, 2, 2); - $WaveFormatEx_raw['nSamplesPerSec'] = substr($WaveFormatExData, 4, 4); - $WaveFormatEx_raw['nAvgBytesPerSec'] = substr($WaveFormatExData, 8, 4); - $WaveFormatEx_raw['nBlockAlign'] = substr($WaveFormatExData, 12, 2); - $WaveFormatEx_raw['wBitsPerSample'] = substr($WaveFormatExData, 14, 2); - if (strlen($WaveFormatExData) > 16) { - $WaveFormatEx_raw['cbSize'] = substr($WaveFormatExData, 16, 2); - } - $WaveFormatEx_raw = array_map('getid3_lib::LittleEndian2Int', $WaveFormatEx_raw); - - $WaveFormatEx['codec'] = self::wFormatTagLookup($WaveFormatEx_raw['wFormatTag']); - $WaveFormatEx['channels'] = $WaveFormatEx_raw['nChannels']; - $WaveFormatEx['sample_rate'] = $WaveFormatEx_raw['nSamplesPerSec']; - $WaveFormatEx['bitrate'] = $WaveFormatEx_raw['nAvgBytesPerSec'] * 8; - $WaveFormatEx['bits_per_sample'] = $WaveFormatEx_raw['wBitsPerSample']; - - return $WaveFormatEx; - } - - public function parseWavPackHeader($WavPackChunkData) { - // typedef struct { - // char ckID [4]; - // long ckSize; - // short version; - // short bits; // added for version 2.00 - // short flags, shift; // added for version 3.00 - // long total_samples, crc, crc2; - // char extension [4], extra_bc, extras [3]; - // } WavpackHeader; - - // shortcut - $info = &$this->getid3->info; - $info['wavpack'] = array(); - $thisfile_wavpack = &$info['wavpack']; - - $thisfile_wavpack['version'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 0, 2)); - if ($thisfile_wavpack['version'] >= 2) { - $thisfile_wavpack['bits'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 2, 2)); - } - if ($thisfile_wavpack['version'] >= 3) { - $thisfile_wavpack['flags_raw'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 4, 2)); - $thisfile_wavpack['shift'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 6, 2)); - $thisfile_wavpack['total_samples'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 8, 4)); - $thisfile_wavpack['crc1'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 12, 4)); - $thisfile_wavpack['crc2'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 16, 4)); - $thisfile_wavpack['extension'] = substr($WavPackChunkData, 20, 4); - $thisfile_wavpack['extra_bc'] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 24, 1)); - for ($i = 0; $i <= 2; $i++) { - $thisfile_wavpack['extras'][] = getid3_lib::LittleEndian2Int(substr($WavPackChunkData, 25 + $i, 1)); - } - - // shortcut - $thisfile_wavpack['flags'] = array(); - $thisfile_wavpack_flags = &$thisfile_wavpack['flags']; - - $thisfile_wavpack_flags['mono'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000001); - $thisfile_wavpack_flags['fast_mode'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000002); - $thisfile_wavpack_flags['raw_mode'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000004); - $thisfile_wavpack_flags['calc_noise'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000008); - $thisfile_wavpack_flags['high_quality'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000010); - $thisfile_wavpack_flags['3_byte_samples'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000020); - $thisfile_wavpack_flags['over_20_bits'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000040); - $thisfile_wavpack_flags['use_wvc'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000080); - $thisfile_wavpack_flags['noiseshaping'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000100); - $thisfile_wavpack_flags['very_fast_mode'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000200); - $thisfile_wavpack_flags['new_high_quality'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000400); - $thisfile_wavpack_flags['cancel_extreme'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x000800); - $thisfile_wavpack_flags['cross_decorrelation'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x001000); - $thisfile_wavpack_flags['new_decorrelation'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x002000); - $thisfile_wavpack_flags['joint_stereo'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x004000); - $thisfile_wavpack_flags['extra_decorrelation'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x008000); - $thisfile_wavpack_flags['override_noiseshape'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x010000); - $thisfile_wavpack_flags['override_jointstereo'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x020000); - $thisfile_wavpack_flags['copy_source_filetime'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x040000); - $thisfile_wavpack_flags['create_exe'] = (bool) ($thisfile_wavpack['flags_raw'] & 0x080000); - } - - return true; - } - - public static function ParseBITMAPINFOHEADER($BITMAPINFOHEADER, $littleEndian=true) { - - $parsed['biSize'] = substr($BITMAPINFOHEADER, 0, 4); // number of bytes required by the BITMAPINFOHEADER structure - $parsed['biWidth'] = substr($BITMAPINFOHEADER, 4, 4); // width of the bitmap in pixels - $parsed['biHeight'] = substr($BITMAPINFOHEADER, 8, 4); // height of the bitmap in pixels. If biHeight is positive, the bitmap is a 'bottom-up' DIB and its origin is the lower left corner. If biHeight is negative, the bitmap is a 'top-down' DIB and its origin is the upper left corner - $parsed['biPlanes'] = substr($BITMAPINFOHEADER, 12, 2); // number of color planes on the target device. In most cases this value must be set to 1 - $parsed['biBitCount'] = substr($BITMAPINFOHEADER, 14, 2); // Specifies the number of bits per pixels - $parsed['biSizeImage'] = substr($BITMAPINFOHEADER, 20, 4); // size of the bitmap data section of the image (the actual pixel data, excluding BITMAPINFOHEADER and RGBQUAD structures) - $parsed['biXPelsPerMeter'] = substr($BITMAPINFOHEADER, 24, 4); // horizontal resolution, in pixels per metre, of the target device - $parsed['biYPelsPerMeter'] = substr($BITMAPINFOHEADER, 28, 4); // vertical resolution, in pixels per metre, of the target device - $parsed['biClrUsed'] = substr($BITMAPINFOHEADER, 32, 4); // actual number of color indices in the color table used by the bitmap. If this value is zero, the bitmap uses the maximum number of colors corresponding to the value of the biBitCount member for the compression mode specified by biCompression - $parsed['biClrImportant'] = substr($BITMAPINFOHEADER, 36, 4); // number of color indices that are considered important for displaying the bitmap. If this value is zero, all colors are important - $parsed = array_map('getid3_lib::'.($littleEndian ? 'Little' : 'Big').'Endian2Int', $parsed); - - $parsed['fourcc'] = substr($BITMAPINFOHEADER, 16, 4); // compression identifier - - return $parsed; - } - - public static function ParseDIVXTAG($DIVXTAG, $raw=false) { - // structure from "IDivX" source, Form1.frm, by "Greg Frazier of Daemonic Software Group", email: gfrazier@icestorm.net, web: http://dsg.cjb.net/ - // source available at http://files.divx-digest.com/download/c663efe7ef8ad2e90bf4af4d3ea6188a/on0SWN2r/edit/IDivX.zip - // 'Byte Layout: '1111111111111111 - // '32 for Movie - 1 '1111111111111111 - // '28 for Author - 6 '6666666666666666 - // '4 for year - 2 '6666666666662222 - // '3 for genre - 3 '7777777777777777 - // '48 for Comments - 7 '7777777777777777 - // '1 for Rating - 4 '7777777777777777 - // '5 for Future Additions - 0 '333400000DIVXTAG - // '128 bytes total - - static $DIVXTAGgenre = array( - 0 => 'Action', - 1 => 'Action/Adventure', - 2 => 'Adventure', - 3 => 'Adult', - 4 => 'Anime', - 5 => 'Cartoon', - 6 => 'Claymation', - 7 => 'Comedy', - 8 => 'Commercial', - 9 => 'Documentary', - 10 => 'Drama', - 11 => 'Home Video', - 12 => 'Horror', - 13 => 'Infomercial', - 14 => 'Interactive', - 15 => 'Mystery', - 16 => 'Music Video', - 17 => 'Other', - 18 => 'Religion', - 19 => 'Sci Fi', - 20 => 'Thriller', - 21 => 'Western', - ), - $DIVXTAGrating = array( - 0 => 'Unrated', - 1 => 'G', - 2 => 'PG', - 3 => 'PG-13', - 4 => 'R', - 5 => 'NC-17', - ); - - $parsed['title'] = trim(substr($DIVXTAG, 0, 32)); - $parsed['artist'] = trim(substr($DIVXTAG, 32, 28)); - $parsed['year'] = intval(trim(substr($DIVXTAG, 60, 4))); - $parsed['comment'] = trim(substr($DIVXTAG, 64, 48)); - $parsed['genre_id'] = intval(trim(substr($DIVXTAG, 112, 3))); - $parsed['rating_id'] = ord(substr($DIVXTAG, 115, 1)); - //$parsed['padding'] = substr($DIVXTAG, 116, 5); // 5-byte null - //$parsed['magic'] = substr($DIVXTAG, 121, 7); // "DIVXTAG" - - $parsed['genre'] = (isset($DIVXTAGgenre[$parsed['genre_id']]) ? $DIVXTAGgenre[$parsed['genre_id']] : $parsed['genre_id']); - $parsed['rating'] = (isset($DIVXTAGrating[$parsed['rating_id']]) ? $DIVXTAGrating[$parsed['rating_id']] : $parsed['rating_id']); - - if (!$raw) { - unset($parsed['genre_id'], $parsed['rating_id']); - foreach ($parsed as $key => $value) { - if (!$value === '') { - unset($parsed['key']); - } - } - } - - foreach ($parsed as $tag => $value) { - $parsed[$tag] = array($value); - } - - return $parsed; - } - - public static function waveSNDMtagLookup($tagshortname) { - $begin = __LINE__; - - /** This is not a comment! - - ©kwd keywords - ©BPM bpm - ©trt tracktitle - ©des description - ©gen category - ©fin featuredinstrument - ©LID longid - ©bex bwdescription - ©pub publisher - ©cdt cdtitle - ©alb library - ©com composer - - */ - - return getid3_lib::EmbeddedLookup($tagshortname, $begin, __LINE__, __FILE__, 'riff-sndm'); - } - - public static function wFormatTagLookup($wFormatTag) { - - $begin = __LINE__; - - /** This is not a comment! - - 0x0000 Microsoft Unknown Wave Format - 0x0001 Pulse Code Modulation (PCM) - 0x0002 Microsoft ADPCM - 0x0003 IEEE Float - 0x0004 Compaq Computer VSELP - 0x0005 IBM CVSD - 0x0006 Microsoft A-Law - 0x0007 Microsoft mu-Law - 0x0008 Microsoft DTS - 0x0010 OKI ADPCM - 0x0011 Intel DVI/IMA ADPCM - 0x0012 Videologic MediaSpace ADPCM - 0x0013 Sierra Semiconductor ADPCM - 0x0014 Antex Electronics G.723 ADPCM - 0x0015 DSP Solutions DigiSTD - 0x0016 DSP Solutions DigiFIX - 0x0017 Dialogic OKI ADPCM - 0x0018 MediaVision ADPCM - 0x0019 Hewlett-Packard CU - 0x0020 Yamaha ADPCM - 0x0021 Speech Compression Sonarc - 0x0022 DSP Group TrueSpeech - 0x0023 Echo Speech EchoSC1 - 0x0024 Audiofile AF36 - 0x0025 Audio Processing Technology APTX - 0x0026 AudioFile AF10 - 0x0027 Prosody 1612 - 0x0028 LRC - 0x0030 Dolby AC2 - 0x0031 Microsoft GSM 6.10 - 0x0032 MSNAudio - 0x0033 Antex Electronics ADPCME - 0x0034 Control Resources VQLPC - 0x0035 DSP Solutions DigiREAL - 0x0036 DSP Solutions DigiADPCM - 0x0037 Control Resources CR10 - 0x0038 Natural MicroSystems VBXADPCM - 0x0039 Crystal Semiconductor IMA ADPCM - 0x003A EchoSC3 - 0x003B Rockwell ADPCM - 0x003C Rockwell Digit LK - 0x003D Xebec - 0x0040 Antex Electronics G.721 ADPCM - 0x0041 G.728 CELP - 0x0042 MSG723 - 0x0050 MPEG Layer-2 or Layer-1 - 0x0052 RT24 - 0x0053 PAC - 0x0055 MPEG Layer-3 - 0x0059 Lucent G.723 - 0x0060 Cirrus - 0x0061 ESPCM - 0x0062 Voxware - 0x0063 Canopus Atrac - 0x0064 G.726 ADPCM - 0x0065 G.722 ADPCM - 0x0066 DSAT - 0x0067 DSAT Display - 0x0069 Voxware Byte Aligned - 0x0070 Voxware AC8 - 0x0071 Voxware AC10 - 0x0072 Voxware AC16 - 0x0073 Voxware AC20 - 0x0074 Voxware MetaVoice - 0x0075 Voxware MetaSound - 0x0076 Voxware RT29HW - 0x0077 Voxware VR12 - 0x0078 Voxware VR18 - 0x0079 Voxware TQ40 - 0x0080 Softsound - 0x0081 Voxware TQ60 - 0x0082 MSRT24 - 0x0083 G.729A - 0x0084 MVI MV12 - 0x0085 DF G.726 - 0x0086 DF GSM610 - 0x0088 ISIAudio - 0x0089 Onlive - 0x0091 SBC24 - 0x0092 Dolby AC3 SPDIF - 0x0093 MediaSonic G.723 - 0x0094 Aculab PLC Prosody 8kbps - 0x0097 ZyXEL ADPCM - 0x0098 Philips LPCBB - 0x0099 Packed - 0x00FF AAC - 0x0100 Rhetorex ADPCM - 0x0101 IBM mu-law - 0x0102 IBM A-law - 0x0103 IBM AVC Adaptive Differential Pulse Code Modulation (ADPCM) - 0x0111 Vivo G.723 - 0x0112 Vivo Siren - 0x0123 Digital G.723 - 0x0125 Sanyo LD ADPCM - 0x0130 Sipro Lab Telecom ACELP NET - 0x0131 Sipro Lab Telecom ACELP 4800 - 0x0132 Sipro Lab Telecom ACELP 8V3 - 0x0133 Sipro Lab Telecom G.729 - 0x0134 Sipro Lab Telecom G.729A - 0x0135 Sipro Lab Telecom Kelvin - 0x0140 Windows Media Video V8 - 0x0150 Qualcomm PureVoice - 0x0151 Qualcomm HalfRate - 0x0155 Ring Zero Systems TUB GSM - 0x0160 Microsoft Audio 1 - 0x0161 Windows Media Audio V7 / V8 / V9 - 0x0162 Windows Media Audio Professional V9 - 0x0163 Windows Media Audio Lossless V9 - 0x0200 Creative Labs ADPCM - 0x0202 Creative Labs Fastspeech8 - 0x0203 Creative Labs Fastspeech10 - 0x0210 UHER Informatic GmbH ADPCM - 0x0220 Quarterdeck - 0x0230 I-link Worldwide VC - 0x0240 Aureal RAW Sport - 0x0250 Interactive Products HSX - 0x0251 Interactive Products RPELP - 0x0260 Consistent Software CS2 - 0x0270 Sony SCX - 0x0300 Fujitsu FM Towns Snd - 0x0400 BTV Digital - 0x0401 Intel Music Coder - 0x0450 QDesign Music - 0x0680 VME VMPCM - 0x0681 AT&T Labs TPC - 0x08AE ClearJump LiteWave - 0x1000 Olivetti GSM - 0x1001 Olivetti ADPCM - 0x1002 Olivetti CELP - 0x1003 Olivetti SBC - 0x1004 Olivetti OPR - 0x1100 Lernout & Hauspie Codec (0x1100) - 0x1101 Lernout & Hauspie CELP Codec (0x1101) - 0x1102 Lernout & Hauspie SBC Codec (0x1102) - 0x1103 Lernout & Hauspie SBC Codec (0x1103) - 0x1104 Lernout & Hauspie SBC Codec (0x1104) - 0x1400 Norris - 0x1401 AT&T ISIAudio - 0x1500 Soundspace Music Compression - 0x181C VoxWare RT24 Speech - 0x1FC4 NCT Soft ALF2CD (www.nctsoft.com) - 0x2000 Dolby AC3 - 0x2001 Dolby DTS - 0x2002 WAVE_FORMAT_14_4 - 0x2003 WAVE_FORMAT_28_8 - 0x2004 WAVE_FORMAT_COOK - 0x2005 WAVE_FORMAT_DNET - 0x674F Ogg Vorbis 1 - 0x6750 Ogg Vorbis 2 - 0x6751 Ogg Vorbis 3 - 0x676F Ogg Vorbis 1+ - 0x6770 Ogg Vorbis 2+ - 0x6771 Ogg Vorbis 3+ - 0x7A21 GSM-AMR (CBR, no SID) - 0x7A22 GSM-AMR (VBR, including SID) - 0xFFFE WAVE_FORMAT_EXTENSIBLE - 0xFFFF WAVE_FORMAT_DEVELOPMENT - - */ - - return getid3_lib::EmbeddedLookup('0x'.str_pad(strtoupper(dechex($wFormatTag)), 4, '0', STR_PAD_LEFT), $begin, __LINE__, __FILE__, 'riff-wFormatTag'); - } - - public static function fourccLookup($fourcc) { - - $begin = __LINE__; - - /** This is not a comment! - - swot http://developer.apple.com/qa/snd/snd07.html - ____ No Codec (____) - _BIT BI_BITFIELDS (Raw RGB) - _JPG JPEG compressed - _PNG PNG compressed W3C/ISO/IEC (RFC-2083) - _RAW Full Frames (Uncompressed) - _RGB Raw RGB Bitmap - _RL4 RLE 4bpp RGB - _RL8 RLE 8bpp RGB - 3IV1 3ivx MPEG-4 v1 - 3IV2 3ivx MPEG-4 v2 - 3IVX 3ivx MPEG-4 - AASC Autodesk Animator - ABYR Kensington ?ABYR? - AEMI Array Microsystems VideoONE MPEG1-I Capture - AFLC Autodesk Animator FLC - AFLI Autodesk Animator FLI - AMPG Array Microsystems VideoONE MPEG - ANIM Intel RDX (ANIM) - AP41 AngelPotion Definitive - ASV1 Asus Video v1 - ASV2 Asus Video v2 - ASVX Asus Video 2.0 (audio) - AUR2 AuraVision Aura 2 Codec - YUV 4:2:2 - AURA AuraVision Aura 1 Codec - YUV 4:1:1 - AVDJ Independent JPEG Group\'s codec (AVDJ) - AVRN Independent JPEG Group\'s codec (AVRN) - AYUV 4:4:4 YUV (AYUV) - AZPR Quicktime Apple Video (AZPR) - BGR Raw RGB32 - BLZ0 Blizzard DivX MPEG-4 - BTVC Conexant Composite Video - BINK RAD Game Tools Bink Video - BT20 Conexant Prosumer Video - BTCV Conexant Composite Video Codec - BW10 Data Translation Broadway MPEG Capture - CC12 Intel YUV12 - CDVC Canopus DV - CFCC Digital Processing Systems DPS Perception - CGDI Microsoft Office 97 Camcorder Video - CHAM Winnov Caviara Champagne - CJPG Creative WebCam JPEG - CLJR Cirrus Logic YUV 4:1:1 - CMYK Common Data Format in Printing (Colorgraph) - CPLA Weitek 4:2:0 YUV Planar - CRAM Microsoft Video 1 (CRAM) - cvid Radius Cinepak - CVID Radius Cinepak - CWLT Microsoft Color WLT DIB - CYUV Creative Labs YUV - CYUY ATI YUV - D261 H.261 - D263 H.263 - DIB Device Independent Bitmap - DIV1 FFmpeg OpenDivX - DIV2 Microsoft MPEG-4 v1/v2 - DIV3 DivX ;-) MPEG-4 v3.x Low-Motion - DIV4 DivX ;-) MPEG-4 v3.x Fast-Motion - DIV5 DivX MPEG-4 v5.x - DIV6 DivX ;-) (MS MPEG-4 v3.x) - DIVX DivX MPEG-4 v4 (OpenDivX / Project Mayo) - divx DivX MPEG-4 - DMB1 Matrox Rainbow Runner hardware MJPEG - DMB2 Paradigm MJPEG - DSVD ?DSVD? - DUCK Duck TrueMotion 1.0 - DPS0 DPS/Leitch Reality Motion JPEG - DPSC DPS/Leitch PAR Motion JPEG - DV25 Matrox DVCPRO codec - DV50 Matrox DVCPRO50 codec - DVC IEC 61834 and SMPTE 314M (DVC/DV Video) - DVCP IEC 61834 and SMPTE 314M (DVC/DV Video) - DVHD IEC Standard DV 1125 lines @ 30fps / 1250 lines @ 25fps - DVMA Darim Vision DVMPEG (dummy for MPEG compressor) (www.darvision.com) - DVSL IEC Standard DV compressed in SD (SDL) - DVAN ?DVAN? - DVE2 InSoft DVE-2 Videoconferencing - dvsd IEC 61834 and SMPTE 314M DVC/DV Video - DVSD IEC 61834 and SMPTE 314M DVC/DV Video - DVX1 Lucent DVX1000SP Video Decoder - DVX2 Lucent DVX2000S Video Decoder - DVX3 Lucent DVX3000S Video Decoder - DX50 DivX v5 - DXT1 Microsoft DirectX Compressed Texture (DXT1) - DXT2 Microsoft DirectX Compressed Texture (DXT2) - DXT3 Microsoft DirectX Compressed Texture (DXT3) - DXT4 Microsoft DirectX Compressed Texture (DXT4) - DXT5 Microsoft DirectX Compressed Texture (DXT5) - DXTC Microsoft DirectX Compressed Texture (DXTC) - DXTn Microsoft DirectX Compressed Texture (DXTn) - EM2V Etymonix MPEG-2 I-frame (www.etymonix.com) - EKQ0 Elsa ?EKQ0? - ELK0 Elsa ?ELK0? - ESCP Eidos Escape - ETV1 eTreppid Video ETV1 - ETV2 eTreppid Video ETV2 - ETVC eTreppid Video ETVC - FLIC Autodesk FLI/FLC Animation - FLV1 Sorenson Spark - FLV4 On2 TrueMotion VP6 - FRWT Darim Vision Forward Motion JPEG (www.darvision.com) - FRWU Darim Vision Forward Uncompressed (www.darvision.com) - FLJP D-Vision Field Encoded Motion JPEG - FPS1 FRAPS v1 - FRWA SoftLab-Nsk Forward Motion JPEG w/ alpha channel - FRWD SoftLab-Nsk Forward Motion JPEG - FVF1 Iterated Systems Fractal Video Frame - GLZW Motion LZW (gabest@freemail.hu) - GPEG Motion JPEG (gabest@freemail.hu) - GWLT Microsoft Greyscale WLT DIB - H260 Intel ITU H.260 Videoconferencing - H261 Intel ITU H.261 Videoconferencing - H262 Intel ITU H.262 Videoconferencing - H263 Intel ITU H.263 Videoconferencing - H264 Intel ITU H.264 Videoconferencing - H265 Intel ITU H.265 Videoconferencing - H266 Intel ITU H.266 Videoconferencing - H267 Intel ITU H.267 Videoconferencing - H268 Intel ITU H.268 Videoconferencing - H269 Intel ITU H.269 Videoconferencing - HFYU Huffman Lossless Codec - HMCR Rendition Motion Compensation Format (HMCR) - HMRR Rendition Motion Compensation Format (HMRR) - I263 FFmpeg I263 decoder - IF09 Indeo YVU9 ("YVU9 with additional delta-frame info after the U plane") - IUYV Interlaced version of UYVY (www.leadtools.com) - IY41 Interlaced version of Y41P (www.leadtools.com) - IYU1 12 bit format used in mode 2 of the IEEE 1394 Digital Camera 1.04 spec IEEE standard - IYU2 24 bit format used in mode 2 of the IEEE 1394 Digital Camera 1.04 spec IEEE standard - IYUV Planar YUV format (8-bpp Y plane, followed by 8-bpp 2×2 U and V planes) - i263 Intel ITU H.263 Videoconferencing (i263) - I420 Intel Indeo 4 - IAN Intel Indeo 4 (RDX) - ICLB InSoft CellB Videoconferencing - IGOR Power DVD - IJPG Intergraph JPEG - ILVC Intel Layered Video - ILVR ITU-T H.263+ - IPDV I-O Data Device Giga AVI DV Codec - IR21 Intel Indeo 2.1 - IRAW Intel YUV Uncompressed - IV30 Intel Indeo 3.0 - IV31 Intel Indeo 3.1 - IV32 Ligos Indeo 3.2 - IV33 Ligos Indeo 3.3 - IV34 Ligos Indeo 3.4 - IV35 Ligos Indeo 3.5 - IV36 Ligos Indeo 3.6 - IV37 Ligos Indeo 3.7 - IV38 Ligos Indeo 3.8 - IV39 Ligos Indeo 3.9 - IV40 Ligos Indeo Interactive 4.0 - IV41 Ligos Indeo Interactive 4.1 - IV42 Ligos Indeo Interactive 4.2 - IV43 Ligos Indeo Interactive 4.3 - IV44 Ligos Indeo Interactive 4.4 - IV45 Ligos Indeo Interactive 4.5 - IV46 Ligos Indeo Interactive 4.6 - IV47 Ligos Indeo Interactive 4.7 - IV48 Ligos Indeo Interactive 4.8 - IV49 Ligos Indeo Interactive 4.9 - IV50 Ligos Indeo Interactive 5.0 - JBYR Kensington ?JBYR? - JPEG Still Image JPEG DIB - JPGL Pegasus Lossless Motion JPEG - KMVC Team17 Software Karl Morton\'s Video Codec - LSVM Vianet Lighting Strike Vmail (Streaming) (www.vianet.com) - LEAD LEAD Video Codec - Ljpg LEAD MJPEG Codec - MDVD Alex MicroDVD Video (hacked MS MPEG-4) (www.tiasoft.de) - MJPA Morgan Motion JPEG (MJPA) (www.morgan-multimedia.com) - MJPB Morgan Motion JPEG (MJPB) (www.morgan-multimedia.com) - MMES Matrox MPEG-2 I-frame - MP2v Microsoft S-Mpeg 4 version 1 (MP2v) - MP42 Microsoft S-Mpeg 4 version 2 (MP42) - MP43 Microsoft S-Mpeg 4 version 3 (MP43) - MP4S Microsoft S-Mpeg 4 version 3 (MP4S) - MP4V FFmpeg MPEG-4 - MPG1 FFmpeg MPEG 1/2 - MPG2 FFmpeg MPEG 1/2 - MPG3 FFmpeg DivX ;-) (MS MPEG-4 v3) - MPG4 Microsoft MPEG-4 - MPGI Sigma Designs MPEG - MPNG PNG images decoder - MSS1 Microsoft Windows Screen Video - MSZH LCL (Lossless Codec Library) (www.geocities.co.jp/Playtown-Denei/2837/LRC.htm) - M261 Microsoft H.261 - M263 Microsoft H.263 - M4S2 Microsoft Fully Compliant MPEG-4 v2 simple profile (M4S2) - m4s2 Microsoft Fully Compliant MPEG-4 v2 simple profile (m4s2) - MC12 ATI Motion Compensation Format (MC12) - MCAM ATI Motion Compensation Format (MCAM) - MJ2C Morgan Multimedia Motion JPEG2000 - mJPG IBM Motion JPEG w/ Huffman Tables - MJPG Microsoft Motion JPEG DIB - MP42 Microsoft MPEG-4 (low-motion) - MP43 Microsoft MPEG-4 (fast-motion) - MP4S Microsoft MPEG-4 (MP4S) - mp4s Microsoft MPEG-4 (mp4s) - MPEG Chromatic Research MPEG-1 Video I-Frame - MPG4 Microsoft MPEG-4 Video High Speed Compressor - MPGI Sigma Designs MPEG - MRCA FAST Multimedia Martin Regen Codec - MRLE Microsoft Run Length Encoding - MSVC Microsoft Video 1 - MTX1 Matrox ?MTX1? - MTX2 Matrox ?MTX2? - MTX3 Matrox ?MTX3? - MTX4 Matrox ?MTX4? - MTX5 Matrox ?MTX5? - MTX6 Matrox ?MTX6? - MTX7 Matrox ?MTX7? - MTX8 Matrox ?MTX8? - MTX9 Matrox ?MTX9? - MV12 Motion Pixels Codec (old) - MWV1 Aware Motion Wavelets - nAVI SMR Codec (hack of Microsoft MPEG-4) (IRC #shadowrealm) - NT00 NewTek LightWave HDTV YUV w/ Alpha (www.newtek.com) - NUV1 NuppelVideo - NTN1 Nogatech Video Compression 1 - NVS0 nVidia GeForce Texture (NVS0) - NVS1 nVidia GeForce Texture (NVS1) - NVS2 nVidia GeForce Texture (NVS2) - NVS3 nVidia GeForce Texture (NVS3) - NVS4 nVidia GeForce Texture (NVS4) - NVS5 nVidia GeForce Texture (NVS5) - NVT0 nVidia GeForce Texture (NVT0) - NVT1 nVidia GeForce Texture (NVT1) - NVT2 nVidia GeForce Texture (NVT2) - NVT3 nVidia GeForce Texture (NVT3) - NVT4 nVidia GeForce Texture (NVT4) - NVT5 nVidia GeForce Texture (NVT5) - PIXL MiroXL, Pinnacle PCTV - PDVC I-O Data Device Digital Video Capture DV codec - PGVV Radius Video Vision - PHMO IBM Photomotion - PIM1 MPEG Realtime (Pinnacle Cards) - PIM2 Pegasus Imaging ?PIM2? - PIMJ Pegasus Imaging Lossless JPEG - PVEZ Horizons Technology PowerEZ - PVMM PacketVideo Corporation MPEG-4 - PVW2 Pegasus Imaging Wavelet Compression - Q1.0 Q-Team\'s QPEG 1.0 (www.q-team.de) - Q1.1 Q-Team\'s QPEG 1.1 (www.q-team.de) - QPEG Q-Team QPEG 1.0 - qpeq Q-Team QPEG 1.1 - RGB Raw BGR32 - RGBA Raw RGB w/ Alpha - RMP4 REALmagic MPEG-4 (unauthorized XVID copy) (www.sigmadesigns.com) - ROQV Id RoQ File Video Decoder - RPZA Quicktime Apple Video (RPZA) - RUD0 Rududu video codec (http://rududu.ifrance.com/rududu/) - RV10 RealVideo 1.0 (aka RealVideo 5.0) - RV13 RealVideo 1.0 (RV13) - RV20 RealVideo G2 - RV30 RealVideo 8 - RV40 RealVideo 9 - RGBT Raw RGB w/ Transparency - RLE Microsoft Run Length Encoder - RLE4 Run Length Encoded (4bpp, 16-color) - RLE8 Run Length Encoded (8bpp, 256-color) - RT21 Intel Indeo RealTime Video 2.1 - rv20 RealVideo G2 - rv30 RealVideo 8 - RVX Intel RDX (RVX ) - SMC Apple Graphics (SMC ) - SP54 Logitech Sunplus Sp54 Codec for Mustek GSmart Mini 2 - SPIG Radius Spigot - SVQ3 Sorenson Video 3 (Apple Quicktime 5) - s422 Tekram VideoCap C210 YUV 4:2:2 - SDCC Sun Communication Digital Camera Codec - SFMC CrystalNet Surface Fitting Method - SMSC Radius SMSC - SMSD Radius SMSD - smsv WorldConnect Wavelet Video - SPIG Radius Spigot - SPLC Splash Studios ACM Audio Codec (www.splashstudios.net) - SQZ2 Microsoft VXTreme Video Codec V2 - STVA ST Microelectronics CMOS Imager Data (Bayer) - STVB ST Microelectronics CMOS Imager Data (Nudged Bayer) - STVC ST Microelectronics CMOS Imager Data (Bunched) - STVX ST Microelectronics CMOS Imager Data (Extended CODEC Data Format) - STVY ST Microelectronics CMOS Imager Data (Extended CODEC Data Format with Correction Data) - SV10 Sorenson Video R1 - SVQ1 Sorenson Video - T420 Toshiba YUV 4:2:0 - TM2A Duck TrueMotion Archiver 2.0 (www.duck.com) - TVJP Pinnacle/Truevision Targa 2000 board (TVJP) - TVMJ Pinnacle/Truevision Targa 2000 board (TVMJ) - TY0N Tecomac Low-Bit Rate Codec (www.tecomac.com) - TY2C Trident Decompression Driver - TLMS TeraLogic Motion Intraframe Codec (TLMS) - TLST TeraLogic Motion Intraframe Codec (TLST) - TM20 Duck TrueMotion 2.0 - TM2X Duck TrueMotion 2X - TMIC TeraLogic Motion Intraframe Codec (TMIC) - TMOT Horizons Technology TrueMotion S - tmot Horizons TrueMotion Video Compression - TR20 Duck TrueMotion RealTime 2.0 - TSCC TechSmith Screen Capture Codec - TV10 Tecomac Low-Bit Rate Codec - TY2N Trident ?TY2N? - U263 UB Video H.263/H.263+/H.263++ Decoder - UMP4 UB Video MPEG 4 (www.ubvideo.com) - UYNV Nvidia UYVY packed 4:2:2 - UYVP Evans & Sutherland YCbCr 4:2:2 extended precision - UCOD eMajix.com ClearVideo - ULTI IBM Ultimotion - UYVY UYVY packed 4:2:2 - V261 Lucent VX2000S - VIFP VFAPI Reader Codec (www.yks.ne.jp/~hori/) - VIV1 FFmpeg H263+ decoder - VIV2 Vivo H.263 - VQC2 Vector-quantised codec 2 (research) http://eprints.ecs.soton.ac.uk/archive/00001310/01/VTC97-js.pdf) - VTLP Alaris VideoGramPiX - VYU9 ATI YUV (VYU9) - VYUY ATI YUV (VYUY) - V261 Lucent VX2000S - V422 Vitec Multimedia 24-bit YUV 4:2:2 Format - V655 Vitec Multimedia 16-bit YUV 4:2:2 Format - VCR1 ATI Video Codec 1 - VCR2 ATI Video Codec 2 - VCR3 ATI VCR 3.0 - VCR4 ATI VCR 4.0 - VCR5 ATI VCR 5.0 - VCR6 ATI VCR 6.0 - VCR7 ATI VCR 7.0 - VCR8 ATI VCR 8.0 - VCR9 ATI VCR 9.0 - VDCT Vitec Multimedia Video Maker Pro DIB - VDOM VDOnet VDOWave - VDOW VDOnet VDOLive (H.263) - VDTZ Darim Vison VideoTizer YUV - VGPX Alaris VideoGramPiX - VIDS Vitec Multimedia YUV 4:2:2 CCIR 601 for V422 - VIVO Vivo H.263 v2.00 - vivo Vivo H.263 - VIXL Miro/Pinnacle Video XL - VLV1 VideoLogic/PURE Digital Videologic Capture - VP30 On2 VP3.0 - VP31 On2 VP3.1 - VP6F On2 TrueMotion VP6 - VX1K Lucent VX1000S Video Codec - VX2K Lucent VX2000S Video Codec - VXSP Lucent VX1000SP Video Codec - WBVC Winbond W9960 - WHAM Microsoft Video 1 (WHAM) - WINX Winnov Software Compression - WJPG AverMedia Winbond JPEG - WMV1 Windows Media Video V7 - WMV2 Windows Media Video V8 - WMV3 Windows Media Video V9 - WNV1 Winnov Hardware Compression - XYZP Extended PAL format XYZ palette (www.riff.org) - x263 Xirlink H.263 - XLV0 NetXL Video Decoder - XMPG Xing MPEG (I-Frame only) - XVID XviD MPEG-4 (www.xvid.org) - XXAN ?XXAN? - YU92 Intel YUV (YU92) - YUNV Nvidia Uncompressed YUV 4:2:2 - YUVP Extended PAL format YUV palette (www.riff.org) - Y211 YUV 2:1:1 Packed - Y411 YUV 4:1:1 Packed - Y41B Weitek YUV 4:1:1 Planar - Y41P Brooktree PC1 YUV 4:1:1 Packed - Y41T Brooktree PC1 YUV 4:1:1 with transparency - Y42B Weitek YUV 4:2:2 Planar - Y42T Brooktree UYUV 4:2:2 with transparency - Y422 ADS Technologies Copy of UYVY used in Pyro WebCam firewire camera - Y800 Simple, single Y plane for monochrome images - Y8 Grayscale video - YC12 Intel YUV 12 codec - YUV8 Winnov Caviar YUV8 - YUV9 Intel YUV9 - YUY2 Uncompressed YUV 4:2:2 - YUYV Canopus YUV - YV12 YVU12 Planar - YVU9 Intel YVU9 Planar (8-bpp Y plane, followed by 8-bpp 4x4 U and V planes) - YVYU YVYU 4:2:2 Packed - ZLIB Lossless Codec Library zlib compression (www.geocities.co.jp/Playtown-Denei/2837/LRC.htm) - ZPEG Metheus Video Zipper - - */ - - return getid3_lib::EmbeddedLookup($fourcc, $begin, __LINE__, __FILE__, 'riff-fourcc'); - } - - private function EitherEndian2Int($byteword, $signed=false) { - if ($this->getid3->info['fileformat'] == 'riff') { - return getid3_lib::LittleEndian2Int($byteword, $signed); - } - return getid3_lib::BigEndian2Int($byteword, false, $signed); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.swf.php b/web/htdocs/media/lib/getid3/module.audio-video.swf.php deleted file mode 100644 index 48491cbfaa6..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.swf.php +++ /dev/null @@ -1,139 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.swf.php // -// module for analyzing Shockwave Flash files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_swf extends getid3_handler -{ - public $ReturnAllTagData = false; - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'swf'; - $info['video']['dataformat'] = 'swf'; - - // http://www.openswf.org/spec/SWFfileformat.html - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $SWFfileData = fread($this->getid3->fp, $info['avdataend'] - $info['avdataoffset']); // 8 + 2 + 2 + max(9) bytes NOT including Frame_Size RECT data - - $info['swf']['header']['signature'] = substr($SWFfileData, 0, 3); - switch ($info['swf']['header']['signature']) { - case 'FWS': - $info['swf']['header']['compressed'] = false; - break; - - case 'CWS': - $info['swf']['header']['compressed'] = true; - break; - - default: - $info['error'][] = 'Expecting "FWS" or "CWS" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($info['swf']['header']['signature']).'"'; - unset($info['swf']); - unset($info['fileformat']); - return false; - break; - } - $info['swf']['header']['version'] = getid3_lib::LittleEndian2Int(substr($SWFfileData, 3, 1)); - $info['swf']['header']['length'] = getid3_lib::LittleEndian2Int(substr($SWFfileData, 4, 4)); - - if ($info['swf']['header']['compressed']) { - $SWFHead = substr($SWFfileData, 0, 8); - $SWFfileData = substr($SWFfileData, 8); - if ($decompressed = @gzuncompress($SWFfileData)) { - $SWFfileData = $SWFHead.$decompressed; - } else { - $info['error'][] = 'Error decompressing compressed SWF data ('.strlen($SWFfileData).' bytes compressed, should be '.($info['swf']['header']['length'] - 8).' bytes uncompressed)'; - return false; - } - } - - $FrameSizeBitsPerValue = (ord(substr($SWFfileData, 8, 1)) & 0xF8) >> 3; - $FrameSizeDataLength = ceil((5 + (4 * $FrameSizeBitsPerValue)) / 8); - $FrameSizeDataString = str_pad(decbin(ord(substr($SWFfileData, 8, 1)) & 0x07), 3, '0', STR_PAD_LEFT); - for ($i = 1; $i < $FrameSizeDataLength; $i++) { - $FrameSizeDataString .= str_pad(decbin(ord(substr($SWFfileData, 8 + $i, 1))), 8, '0', STR_PAD_LEFT); - } - list($X1, $X2, $Y1, $Y2) = explode("\n", wordwrap($FrameSizeDataString, $FrameSizeBitsPerValue, "\n", 1)); - $info['swf']['header']['frame_width'] = getid3_lib::Bin2Dec($X2); - $info['swf']['header']['frame_height'] = getid3_lib::Bin2Dec($Y2); - - // http://www-lehre.informatik.uni-osnabrueck.de/~fbstark/diplom/docs/swf/Flash_Uncovered.htm - // Next in the header is the frame rate, which is kind of weird. - // It is supposed to be stored as a 16bit integer, but the first byte - // (or last depending on how you look at it) is completely ignored. - // Example: 0x000C -> 0x0C -> 12 So the frame rate is 12 fps. - - // Byte at (8 + $FrameSizeDataLength) is always zero and ignored - $info['swf']['header']['frame_rate'] = getid3_lib::LittleEndian2Int(substr($SWFfileData, 9 + $FrameSizeDataLength, 1)); - $info['swf']['header']['frame_count'] = getid3_lib::LittleEndian2Int(substr($SWFfileData, 10 + $FrameSizeDataLength, 2)); - - $info['video']['frame_rate'] = $info['swf']['header']['frame_rate']; - $info['video']['resolution_x'] = intval(round($info['swf']['header']['frame_width'] / 20)); - $info['video']['resolution_y'] = intval(round($info['swf']['header']['frame_height'] / 20)); - $info['video']['pixel_aspect_ratio'] = (float) 1; - - if (($info['swf']['header']['frame_count'] > 0) && ($info['swf']['header']['frame_rate'] > 0)) { - $info['playtime_seconds'] = $info['swf']['header']['frame_count'] / $info['swf']['header']['frame_rate']; - } -//echo __LINE__.'='.number_format(microtime(true) - $start_time, 3).'
'; - - - // SWF tags - - $CurrentOffset = 12 + $FrameSizeDataLength; - $SWFdataLength = strlen($SWFfileData); - - while ($CurrentOffset < $SWFdataLength) { -//echo __LINE__.'='.number_format(microtime(true) - $start_time, 3).'
'; - - $TagIDTagLength = getid3_lib::LittleEndian2Int(substr($SWFfileData, $CurrentOffset, 2)); - $TagID = ($TagIDTagLength & 0xFFFC) >> 6; - $TagLength = ($TagIDTagLength & 0x003F); - $CurrentOffset += 2; - if ($TagLength == 0x3F) { - $TagLength = getid3_lib::LittleEndian2Int(substr($SWFfileData, $CurrentOffset, 4)); - $CurrentOffset += 4; - } - - unset($TagData); - $TagData['offset'] = $CurrentOffset; - $TagData['size'] = $TagLength; - $TagData['id'] = $TagID; - $TagData['data'] = substr($SWFfileData, $CurrentOffset, $TagLength); - switch ($TagID) { - case 0: // end of movie - break 2; - - case 9: // Set background color - //$info['swf']['tags'][] = $TagData; - $info['swf']['bgcolor'] = strtoupper(str_pad(dechex(getid3_lib::BigEndian2Int($TagData['data'])), 6, '0', STR_PAD_LEFT)); - break; - - default: - if ($this->ReturnAllTagData) { - $info['swf']['tags'][] = $TagData; - } - break; - } - - $CurrentOffset += $TagLength; - } - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio-video.ts.php b/web/htdocs/media/lib/getid3/module.audio-video.ts.php deleted file mode 100644 index 3fcf71ea3b2..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio-video.ts.php +++ /dev/null @@ -1,78 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio-video.ts.php // -// module for analyzing MPEG Transport Stream (.ts) files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_ts extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $TSheader = fread($this->getid3->fp, 19); - $magic = "\x47"; - if (substr($TSheader, 0, 1) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at '.$info['avdataoffset'].', found '.getid3_lib::PrintHexBytes(substr($TSheader, 0, 1)).' instead.'; - return false; - } - $info['fileformat'] = 'ts'; - - // http://en.wikipedia.org/wiki/.ts - - $offset = 0; - $info['ts']['packet']['sync'] = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 1)); $offset += 1; - $pid_flags_raw = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 2)); $offset += 2; - $SAC_raw = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 1)); $offset += 1; - $info['ts']['packet']['flags']['transport_error_indicator'] = (bool) ($pid_flags_raw & 0x8000); // Set by demodulator if can't correct errors in the stream, to tell the demultiplexer that the packet has an uncorrectable error - $info['ts']['packet']['flags']['payload_unit_start_indicator'] = (bool) ($pid_flags_raw & 0x4000); // 1 means start of PES data or PSI otherwise zero only. - $info['ts']['packet']['flags']['transport_high_priority'] = (bool) ($pid_flags_raw & 0x2000); // 1 means higher priority than other packets with the same PID. - $info['ts']['packet']['packet_id'] = ($pid_flags_raw & 0x1FFF) >> 0; - - $info['ts']['packet']['raw']['scrambling_control'] = ($SAC_raw & 0xC0) >> 6; - $info['ts']['packet']['flags']['adaption_field_exists'] = (bool) ($SAC_raw & 0x20); - $info['ts']['packet']['flags']['payload_exists'] = (bool) ($SAC_raw & 0x10); - $info['ts']['packet']['continuity_counter'] = ($SAC_raw & 0x0F) >> 0; // Incremented only when a payload is present - $info['ts']['packet']['scrambling_control'] = $this->TSscramblingControlLookup($info['ts']['packet']['raw']['scrambling_control']); - - if ($info['ts']['packet']['flags']['adaption_field_exists']) { - $AdaptionField_raw = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 2)); $offset += 2; - $info['ts']['packet']['adaption']['field_length'] = ($AdaptionField_raw & 0xFF00) >> 8; // Number of bytes in the adaptation field immediately following this byte - $info['ts']['packet']['adaption']['flags']['discontinuity'] = (bool) ($AdaptionField_raw & 0x0080); // Set to 1 if current TS packet is in a discontinuity state with respect to either the continuity counter or the program clock reference - $info['ts']['packet']['adaption']['flags']['random_access'] = (bool) ($AdaptionField_raw & 0x0040); // Set to 1 if the PES packet in this TS packet starts a video/audio sequence - $info['ts']['packet']['adaption']['flags']['high_priority'] = (bool) ($AdaptionField_raw & 0x0020); // 1 = higher priority - $info['ts']['packet']['adaption']['flags']['pcr'] = (bool) ($AdaptionField_raw & 0x0010); // 1 means adaptation field does contain a PCR field - $info['ts']['packet']['adaption']['flags']['opcr'] = (bool) ($AdaptionField_raw & 0x0008); // 1 means adaptation field does contain an OPCR field - $info['ts']['packet']['adaption']['flags']['splice_point'] = (bool) ($AdaptionField_raw & 0x0004); // 1 means presence of splice countdown field in adaptation field - $info['ts']['packet']['adaption']['flags']['private_data'] = (bool) ($AdaptionField_raw & 0x0002); // 1 means presence of private data bytes in adaptation field - $info['ts']['packet']['adaption']['flags']['extension'] = (bool) ($AdaptionField_raw & 0x0001); // 1 means presence of adaptation field extension - if ($info['ts']['packet']['adaption']['flags']['pcr']) { - $info['ts']['packet']['adaption']['raw']['pcr'] = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 6)); $offset += 6; - } - if ($info['ts']['packet']['adaption']['flags']['opcr']) { - $info['ts']['packet']['adaption']['raw']['opcr'] = getid3_lib::BigEndian2Int(substr($TSheader, $offset, 6)); $offset += 6; - } - } - -$info['error'][] = 'MPEG Transport Stream (.ts) parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - - } - - - public function TSscramblingControlLookup($raw) { - $TSscramblingControlLookup = array(0x00=>'not scrambled', 0x01=>'reserved', 0x02=>'scrambled, even key', 0x03=>'scrambled, odd key'); - return (isset($TSscramblingControlLookup[$raw]) ? $TSscramblingControlLookup[$raw] : 'invalid'); - } -} diff --git a/web/htdocs/media/lib/getid3/module.audio.aa.php b/web/htdocs/media/lib/getid3/module.audio.aa.php deleted file mode 100644 index dbf1b7c8c1f..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.aa.php +++ /dev/null @@ -1,58 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.aa.php // -// module for analyzing Audible Audiobook files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_aa extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $AAheader = fread($this->getid3->fp, 8); - - $magic = "\x57\x90\x75\x36"; - if (substr($AAheader, 4, 4) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($AAheader, 4, 4)).'"'; - return false; - } - - // shortcut - $info['aa'] = array(); - $thisfile_au = &$info['aa']; - - $info['fileformat'] = 'aa'; - $info['audio']['dataformat'] = 'aa'; -$info['error'][] = 'Audible Audiobook (.aa) parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - $info['audio']['bitrate_mode'] = 'cbr'; // is it? - $thisfile_au['encoding'] = 'ISO-8859-1'; - - $thisfile_au['filesize'] = getid3_lib::BigEndian2Int(substr($AUheader, 0, 4)); - if ($thisfile_au['filesize'] > ($info['avdataend'] - $info['avdataoffset'])) { - $info['warning'][] = 'Possible truncated file - expecting "'.$thisfile_au['filesize'].'" bytes of data, only found '.($info['avdataend'] - $info['avdataoffset']).' bytes"'; - } - - $info['audio']['bits_per_sample'] = 16; // is it? - $info['audio']['sample_rate'] = $thisfile_au['sample_rate']; - $info['audio']['channels'] = $thisfile_au['channels']; - - //$info['playtime_seconds'] = 0; - //$info['audio']['bitrate'] = 0; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.aac.php b/web/htdocs/media/lib/getid3/module.audio.aac.php deleted file mode 100644 index 06537abbfab..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.aac.php +++ /dev/null @@ -1,512 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.aac.php // -// module for analyzing AAC Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_aac extends getid3_handler -{ - public function Analyze() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - if (fread($this->getid3->fp, 4) == 'ADIF') { - $this->getAACADIFheaderFilepointer(); - } else { - $this->getAACADTSheaderFilepointer(); - } - return true; - } - - - - public function getAACADIFheaderFilepointer() { - $info = &$this->getid3->info; - $info['fileformat'] = 'aac'; - $info['audio']['dataformat'] = 'aac'; - $info['audio']['lossless'] = false; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $AACheader = fread($this->getid3->fp, 1024); - $offset = 0; - - if (substr($AACheader, 0, 4) == 'ADIF') { - - // http://faac.sourceforge.net/wiki/index.php?page=ADIF - - // http://libmpeg.org/mpeg4/doc/w2203tfs.pdf - // adif_header() { - // adif_id 32 - // copyright_id_present 1 - // if( copyright_id_present ) - // copyright_id 72 - // original_copy 1 - // home 1 - // bitstream_type 1 - // bitrate 23 - // num_program_config_elements 4 - // for (i = 0; i < num_program_config_elements + 1; i++ ) { - // if( bitstream_type == '0' ) - // adif_buffer_fullness 20 - // program_config_element() - // } - // } - - $AACheaderBitstream = getid3_lib::BigEndian2Bin($AACheader); - $bitoffset = 0; - - $info['aac']['header_type'] = 'ADIF'; - $bitoffset += 32; - $info['aac']['header']['mpeg_version'] = 4; - - $info['aac']['header']['copyright'] = (bool) (substr($AACheaderBitstream, $bitoffset, 1) == '1'); - $bitoffset += 1; - if ($info['aac']['header']['copyright']) { - $info['aac']['header']['copyright_id'] = getid3_lib::Bin2String(substr($AACheaderBitstream, $bitoffset, 72)); - $bitoffset += 72; - } - $info['aac']['header']['original_copy'] = (bool) (substr($AACheaderBitstream, $bitoffset, 1) == '1'); - $bitoffset += 1; - $info['aac']['header']['home'] = (bool) (substr($AACheaderBitstream, $bitoffset, 1) == '1'); - $bitoffset += 1; - $info['aac']['header']['is_vbr'] = (bool) (substr($AACheaderBitstream, $bitoffset, 1) == '1'); - $bitoffset += 1; - if ($info['aac']['header']['is_vbr']) { - $info['audio']['bitrate_mode'] = 'vbr'; - $info['aac']['header']['bitrate_max'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 23)); - $bitoffset += 23; - } else { - $info['audio']['bitrate_mode'] = 'cbr'; - $info['aac']['header']['bitrate'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 23)); - $bitoffset += 23; - $info['audio']['bitrate'] = $info['aac']['header']['bitrate']; - } - if ($info['audio']['bitrate'] == 0) { - $info['error'][] = 'Corrupt AAC file: bitrate_audio == zero'; - return false; - } - $info['aac']['header']['num_program_configs'] = 1 + getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - - for ($i = 0; $i < $info['aac']['header']['num_program_configs']; $i++) { - // http://www.audiocoding.com/wiki/index.php?page=program_config_element - - // buffer_fullness 20 - - // element_instance_tag 4 - // object_type 2 - // sampling_frequency_index 4 - // num_front_channel_elements 4 - // num_side_channel_elements 4 - // num_back_channel_elements 4 - // num_lfe_channel_elements 2 - // num_assoc_data_elements 3 - // num_valid_cc_elements 4 - // mono_mixdown_present 1 - // mono_mixdown_element_number 4 if mono_mixdown_present == 1 - // stereo_mixdown_present 1 - // stereo_mixdown_element_number 4 if stereo_mixdown_present == 1 - // matrix_mixdown_idx_present 1 - // matrix_mixdown_idx 2 if matrix_mixdown_idx_present == 1 - // pseudo_surround_enable 1 if matrix_mixdown_idx_present == 1 - // for (i = 0; i < num_front_channel_elements; i++) { - // front_element_is_cpe[i] 1 - // front_element_tag_select[i] 4 - // } - // for (i = 0; i < num_side_channel_elements; i++) { - // side_element_is_cpe[i] 1 - // side_element_tag_select[i] 4 - // } - // for (i = 0; i < num_back_channel_elements; i++) { - // back_element_is_cpe[i] 1 - // back_element_tag_select[i] 4 - // } - // for (i = 0; i < num_lfe_channel_elements; i++) { - // lfe_element_tag_select[i] 4 - // } - // for (i = 0; i < num_assoc_data_elements; i++) { - // assoc_data_element_tag_select[i] 4 - // } - // for (i = 0; i < num_valid_cc_elements; i++) { - // cc_element_is_ind_sw[i] 1 - // valid_cc_element_tag_select[i] 4 - // } - // byte_alignment() VAR - // comment_field_bytes 8 - // for (i = 0; i < comment_field_bytes; i++) { - // comment_field_data[i] 8 - // } - - if (!$info['aac']['header']['is_vbr']) { - $info['aac']['program_configs'][$i]['buffer_fullness'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 20)); - $bitoffset += 20; - } - $info['aac']['program_configs'][$i]['element_instance_tag'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['object_type'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 2)); - $bitoffset += 2; - $info['aac']['program_configs'][$i]['sampling_frequency_index'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['num_front_channel_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['num_side_channel_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['num_back_channel_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['num_lfe_channel_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 2)); - $bitoffset += 2; - $info['aac']['program_configs'][$i]['num_assoc_data_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 3)); - $bitoffset += 3; - $info['aac']['program_configs'][$i]['num_valid_cc_elements'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - $info['aac']['program_configs'][$i]['mono_mixdown_present'] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - if ($info['aac']['program_configs'][$i]['mono_mixdown_present']) { - $info['aac']['program_configs'][$i]['mono_mixdown_element_number'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - $info['aac']['program_configs'][$i]['stereo_mixdown_present'] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - if ($info['aac']['program_configs'][$i]['stereo_mixdown_present']) { - $info['aac']['program_configs'][$i]['stereo_mixdown_element_number'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - $info['aac']['program_configs'][$i]['matrix_mixdown_idx_present'] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - if ($info['aac']['program_configs'][$i]['matrix_mixdown_idx_present']) { - $info['aac']['program_configs'][$i]['matrix_mixdown_idx'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 2)); - $bitoffset += 2; - $info['aac']['program_configs'][$i]['pseudo_surround_enable'] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_front_channel_elements']; $j++) { - $info['aac']['program_configs'][$i]['front_element_is_cpe'][$j] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - $info['aac']['program_configs'][$i]['front_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_side_channel_elements']; $j++) { - $info['aac']['program_configs'][$i]['side_element_is_cpe'][$j] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - $info['aac']['program_configs'][$i]['side_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_back_channel_elements']; $j++) { - $info['aac']['program_configs'][$i]['back_element_is_cpe'][$j] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - $info['aac']['program_configs'][$i]['back_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_lfe_channel_elements']; $j++) { - $info['aac']['program_configs'][$i]['lfe_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_assoc_data_elements']; $j++) { - $info['aac']['program_configs'][$i]['assoc_data_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - for ($j = 0; $j < $info['aac']['program_configs'][$i]['num_valid_cc_elements']; $j++) { - $info['aac']['program_configs'][$i]['cc_element_is_ind_sw'][$j] = (bool) getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 1)); - $bitoffset += 1; - $info['aac']['program_configs'][$i]['valid_cc_element_tag_select'][$j] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 4)); - $bitoffset += 4; - } - - $bitoffset = ceil($bitoffset / 8) * 8; - - $info['aac']['program_configs'][$i]['comment_field_bytes'] = getid3_lib::Bin2Dec(substr($AACheaderBitstream, $bitoffset, 8)); - $bitoffset += 8; - $info['aac']['program_configs'][$i]['comment_field'] = getid3_lib::Bin2String(substr($AACheaderBitstream, $bitoffset, 8 * $info['aac']['program_configs'][$i]['comment_field_bytes'])); - $bitoffset += 8 * $info['aac']['program_configs'][$i]['comment_field_bytes']; - - - $info['aac']['header']['profile'] = self::AACprofileLookup($info['aac']['program_configs'][$i]['object_type'], $info['aac']['header']['mpeg_version']); - $info['aac']['program_configs'][$i]['sampling_frequency'] = self::AACsampleRateLookup($info['aac']['program_configs'][$i]['sampling_frequency_index']); - $info['audio']['sample_rate'] = $info['aac']['program_configs'][$i]['sampling_frequency']; - $info['audio']['channels'] = self::AACchannelCountCalculate($info['aac']['program_configs'][$i]); - if ($info['aac']['program_configs'][$i]['comment_field']) { - $info['aac']['comments'][] = $info['aac']['program_configs'][$i]['comment_field']; - } - } - $info['playtime_seconds'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['audio']['bitrate']; - - $info['audio']['encoder_options'] = $info['aac']['header_type'].' '.$info['aac']['header']['profile']; - - - - return true; - - } else { - - unset($info['fileformat']); - unset($info['aac']); - $info['error'][] = 'AAC-ADIF synch not found at offset '.$info['avdataoffset'].' (expected "ADIF", found "'.substr($AACheader, 0, 4).'" instead)'; - return false; - - } - - } - - - public function getAACADTSheaderFilepointer($MaxFramesToScan=1000000, $ReturnExtendedInfo=false) { - $info = &$this->getid3->info; - - // based loosely on code from AACfile by Jurgen Faul - // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html - - - // http://faac.sourceforge.net/wiki/index.php?page=ADTS // dead link - // http://wiki.multimedia.cx/index.php?title=ADTS - - // * ADTS Fixed Header: these don't change from frame to frame - // syncword 12 always: '111111111111' - // ID 1 0: MPEG-4, 1: MPEG-2 - // MPEG layer 2 If you send AAC in MPEG-TS, set to 0 - // protection_absent 1 0: CRC present; 1: no CRC - // profile 2 0: AAC Main; 1: AAC LC (Low Complexity); 2: AAC SSR (Scalable Sample Rate); 3: AAC LTP (Long Term Prediction) - // sampling_frequency_index 4 15 not allowed - // private_bit 1 usually 0 - // channel_configuration 3 - // original/copy 1 0: original; 1: copy - // home 1 usually 0 - // emphasis 2 only if ID == 0 (ie MPEG-4) // not present in some documentation? - - // * ADTS Variable Header: these can change from frame to frame - // copyright_identification_bit 1 - // copyright_identification_start 1 - // aac_frame_length 13 length of the frame including header (in bytes) - // adts_buffer_fullness 11 0x7FF indicates VBR - // no_raw_data_blocks_in_frame 2 - - // * ADTS Error check - // crc_check 16 only if protection_absent == 0 - - $byteoffset = $info['avdataoffset']; - $framenumber = 0; - - // Init bit pattern array - static $decbin = array(); - - // Populate $bindec - for ($i = 0; $i < 256; $i++) { - $decbin[chr($i)] = str_pad(decbin($i), 8, '0', STR_PAD_LEFT); - } - - // used to calculate bitrate below - $BitrateCache = array(); - - - while (true) { - // breaks out when end-of-file encountered, or invalid data found, - // or MaxFramesToScan frames have been scanned - - if (!getid3_lib::intValueSupported($byteoffset)) { - $info['warning'][] = 'Unable to parse AAC file beyond '.ftell($this->getid3->fp).' (PHP does not support file operations beyond '.round(PHP_INT_MAX / 1073741824).'GB)'; - return false; - } - fseek($this->getid3->fp, $byteoffset, SEEK_SET); - - // First get substring - $substring = fread($this->getid3->fp, 9); // header is 7 bytes (or 9 if CRC is present) - $substringlength = strlen($substring); - if ($substringlength != 9) { - $info['error'][] = 'Failed to read 7 bytes at offset '.(ftell($this->getid3->fp) - $substringlength).' (only read '.$substringlength.' bytes)'; - return false; - } - // this would be easier with 64-bit math, but split it up to allow for 32-bit: - $header1 = getid3_lib::BigEndian2Int(substr($substring, 0, 2)); - $header2 = getid3_lib::BigEndian2Int(substr($substring, 2, 4)); - $header3 = getid3_lib::BigEndian2Int(substr($substring, 6, 1)); - - $info['aac']['header']['raw']['syncword'] = ($header1 & 0xFFF0) >> 4; - if ($info['aac']['header']['raw']['syncword'] != 0x0FFF) { - $info['error'][] = 'Synch pattern (0x0FFF) not found at offset '.(ftell($this->getid3->fp) - $substringlength).' (found 0x0'.strtoupper(dechex($info['aac']['header']['raw']['syncword'])).' instead)'; - //if ($info['fileformat'] == 'aac') { - // return true; - //} - unset($info['aac']); - return false; - } - - // Gather info for first frame only - this takes time to do 1000 times! - if ($framenumber == 0) { - $info['aac']['header_type'] = 'ADTS'; - $info['fileformat'] = 'aac'; - $info['audio']['dataformat'] = 'aac'; - - $info['aac']['header']['raw']['mpeg_version'] = ($header1 & 0x0008) >> 3; - $info['aac']['header']['raw']['mpeg_layer'] = ($header1 & 0x0006) >> 1; - $info['aac']['header']['raw']['protection_absent'] = ($header1 & 0x0001) >> 0; - - $info['aac']['header']['raw']['profile_code'] = ($header2 & 0xC0000000) >> 30; - $info['aac']['header']['raw']['sample_rate_code'] = ($header2 & 0x3C000000) >> 26; - $info['aac']['header']['raw']['private_stream'] = ($header2 & 0x02000000) >> 25; - $info['aac']['header']['raw']['channels_code'] = ($header2 & 0x01C00000) >> 22; - $info['aac']['header']['raw']['original'] = ($header2 & 0x00200000) >> 21; - $info['aac']['header']['raw']['home'] = ($header2 & 0x00100000) >> 20; - $info['aac']['header']['raw']['copyright_stream'] = ($header2 & 0x00080000) >> 19; - $info['aac']['header']['raw']['copyright_start'] = ($header2 & 0x00040000) >> 18; - $info['aac']['header']['raw']['frame_length'] = ($header2 & 0x0003FFE0) >> 5; - - $info['aac']['header']['mpeg_version'] = ($info['aac']['header']['raw']['mpeg_version'] ? 2 : 4); - $info['aac']['header']['crc_present'] = ($info['aac']['header']['raw']['protection_absent'] ? false: true); - $info['aac']['header']['profile'] = self::AACprofileLookup($info['aac']['header']['raw']['profile_code'], $info['aac']['header']['mpeg_version']); - $info['aac']['header']['sample_frequency'] = self::AACsampleRateLookup($info['aac']['header']['raw']['sample_rate_code']); - $info['aac']['header']['private'] = (bool) $info['aac']['header']['raw']['private_stream']; - $info['aac']['header']['original'] = (bool) $info['aac']['header']['raw']['original']; - $info['aac']['header']['home'] = (bool) $info['aac']['header']['raw']['home']; - $info['aac']['header']['channels'] = (($info['aac']['header']['raw']['channels_code'] == 7) ? 8 : $info['aac']['header']['raw']['channels_code']); - if ($ReturnExtendedInfo) { - $info['aac'][$framenumber]['copyright_id_bit'] = (bool) $info['aac']['header']['raw']['copyright_stream']; - $info['aac'][$framenumber]['copyright_id_start'] = (bool) $info['aac']['header']['raw']['copyright_start']; - } - - if ($info['aac']['header']['raw']['mpeg_layer'] != 0) { - $info['warning'][] = 'Layer error - expected "0", found "'.$info['aac']['header']['raw']['mpeg_layer'].'" instead'; - } - if ($info['aac']['header']['sample_frequency'] == 0) { - $info['error'][] = 'Corrupt AAC file: sample_frequency == zero'; - return false; - } - - $info['audio']['sample_rate'] = $info['aac']['header']['sample_frequency']; - $info['audio']['channels'] = $info['aac']['header']['channels']; - } - - $FrameLength = ($header2 & 0x0003FFE0) >> 5; - - if (!isset($BitrateCache[$FrameLength])) { - $BitrateCache[$FrameLength] = ($info['aac']['header']['sample_frequency'] / 1024) * $FrameLength * 8; - } - getid3_lib::safe_inc($info['aac']['bitrate_distribution'][$BitrateCache[$FrameLength]], 1); - - $info['aac'][$framenumber]['aac_frame_length'] = $FrameLength; - - $info['aac'][$framenumber]['adts_buffer_fullness'] = (($header2 & 0x0000001F) << 6) & (($header3 & 0xFC) >> 2); - if ($info['aac'][$framenumber]['adts_buffer_fullness'] == 0x07FF) { - $info['audio']['bitrate_mode'] = 'vbr'; - } else { - $info['audio']['bitrate_mode'] = 'cbr'; - } - $info['aac'][$framenumber]['num_raw_data_blocks'] = (($header3 & 0x03) >> 0); - - if ($info['aac']['header']['crc_present']) { - //$info['aac'][$framenumber]['crc'] = getid3_lib::BigEndian2Int(substr($substring, 7, 2); - } - - if (!$ReturnExtendedInfo) { - unset($info['aac'][$framenumber]); - } - - /* - $rounded_precision = 5000; - $info['aac']['bitrate_distribution_rounded'] = array(); - foreach ($info['aac']['bitrate_distribution'] as $bitrate => $count) { - $rounded_bitrate = round($bitrate / $rounded_precision) * $rounded_precision; - getid3_lib::safe_inc($info['aac']['bitrate_distribution_rounded'][$rounded_bitrate], $count); - } - ksort($info['aac']['bitrate_distribution_rounded']); - */ - - $byteoffset += $FrameLength; - if ((++$framenumber < $MaxFramesToScan) && (($byteoffset + 10) < $info['avdataend'])) { - - // keep scanning - - } else { - - $info['aac']['frames'] = $framenumber; - $info['playtime_seconds'] = ($info['avdataend'] / $byteoffset) * (($framenumber * 1024) / $info['aac']['header']['sample_frequency']); // (1 / % of file scanned) * (samples / (samples/sec)) = seconds - if ($info['playtime_seconds'] == 0) { - $info['error'][] = 'Corrupt AAC file: playtime_seconds == zero'; - return false; - } - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - ksort($info['aac']['bitrate_distribution']); - - $info['audio']['encoder_options'] = $info['aac']['header_type'].' '.$info['aac']['header']['profile']; - - return true; - - } - } - // should never get here. - } - - public static function AACsampleRateLookup($samplerateid) { - static $AACsampleRateLookup = array(); - if (empty($AACsampleRateLookup)) { - $AACsampleRateLookup[0] = 96000; - $AACsampleRateLookup[1] = 88200; - $AACsampleRateLookup[2] = 64000; - $AACsampleRateLookup[3] = 48000; - $AACsampleRateLookup[4] = 44100; - $AACsampleRateLookup[5] = 32000; - $AACsampleRateLookup[6] = 24000; - $AACsampleRateLookup[7] = 22050; - $AACsampleRateLookup[8] = 16000; - $AACsampleRateLookup[9] = 12000; - $AACsampleRateLookup[10] = 11025; - $AACsampleRateLookup[11] = 8000; - $AACsampleRateLookup[12] = 0; - $AACsampleRateLookup[13] = 0; - $AACsampleRateLookup[14] = 0; - $AACsampleRateLookup[15] = 0; - } - return (isset($AACsampleRateLookup[$samplerateid]) ? $AACsampleRateLookup[$samplerateid] : 'invalid'); - } - - public static function AACprofileLookup($profileid, $mpegversion) { - static $AACprofileLookup = array(); - if (empty($AACprofileLookup)) { - $AACprofileLookup[2][0] = 'Main profile'; - $AACprofileLookup[2][1] = 'Low Complexity profile (LC)'; - $AACprofileLookup[2][2] = 'Scalable Sample Rate profile (SSR)'; - $AACprofileLookup[2][3] = '(reserved)'; - $AACprofileLookup[4][0] = 'AAC_MAIN'; - $AACprofileLookup[4][1] = 'AAC_LC'; - $AACprofileLookup[4][2] = 'AAC_SSR'; - $AACprofileLookup[4][3] = 'AAC_LTP'; - } - return (isset($AACprofileLookup[$mpegversion][$profileid]) ? $AACprofileLookup[$mpegversion][$profileid] : 'invalid'); - } - - public static function AACchannelCountCalculate($program_configs) { - $channels = 0; - for ($i = 0; $i < $program_configs['num_front_channel_elements']; $i++) { - $channels++; - if ($program_configs['front_element_is_cpe'][$i]) { - // each front element is channel pair (CPE = Channel Pair Element) - $channels++; - } - } - for ($i = 0; $i < $program_configs['num_side_channel_elements']; $i++) { - $channels++; - if ($program_configs['side_element_is_cpe'][$i]) { - // each side element is channel pair (CPE = Channel Pair Element) - $channels++; - } - } - for ($i = 0; $i < $program_configs['num_back_channel_elements']; $i++) { - $channels++; - if ($program_configs['back_element_is_cpe'][$i]) { - // each back element is channel pair (CPE = Channel Pair Element) - $channels++; - } - } - for ($i = 0; $i < $program_configs['num_lfe_channel_elements']; $i++) { - $channels++; - } - return $channels; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.ac3.php b/web/htdocs/media/lib/getid3/module.audio.ac3.php deleted file mode 100644 index 9834feb5b28..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.ac3.php +++ /dev/null @@ -1,473 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.ac3.php // -// module for analyzing AC-3 (aka Dolby Digital) audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_ac3 extends getid3_handler -{ - private $AC3header = array(); - private $BSIoffset = 0; - - const syncword = "\x0B\x77"; - - public function Analyze() { - $info = &$this->getid3->info; - - ///AH - $info['ac3']['raw']['bsi'] = array(); - $thisfile_ac3 = &$info['ac3']; - $thisfile_ac3_raw = &$thisfile_ac3['raw']; - $thisfile_ac3_raw_bsi = &$thisfile_ac3_raw['bsi']; - - - // http://www.atsc.org/standards/a_52a.pdf - - $info['fileformat'] = 'ac3'; - - // An AC-3 serial coded audio bit stream is made up of a sequence of synchronization frames - // Each synchronization frame contains 6 coded audio blocks (AB), each of which represent 256 - // new audio samples per channel. A synchronization information (SI) header at the beginning - // of each frame contains information needed to acquire and maintain synchronization. A - // bit stream information (BSI) header follows SI, and contains parameters describing the coded - // audio service. The coded audio blocks may be followed by an auxiliary data (Aux) field. At the - // end of each frame is an error check field that includes a CRC word for error detection. An - // additional CRC word is located in the SI header, the use of which, by a decoder, is optional. - // - // syncinfo() | bsi() | AB0 | AB1 | AB2 | AB3 | AB4 | AB5 | Aux | CRC - - // syncinfo() { - // syncword 16 - // crc1 16 - // fscod 2 - // frmsizecod 6 - // } /* end of syncinfo */ - - $this->fseek($info['avdataoffset']); - $this->AC3header['syncinfo'] = $this->fread(5); - - if (strpos($this->AC3header['syncinfo'], self::syncword) === 0) { - $thisfile_ac3_raw['synchinfo']['synchword'] = self::syncword; - $offset = 2; - } else { - if (!$this->isDependencyFor('matroska')) { - unset($info['fileformat'], $info['ac3']); - return $this->error('Expecting "'.getid3_lib::PrintHexBytes(self::syncword).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($this->AC3header['syncinfo'], 0, 2)).'"'); - } - $offset = 0; - $this->fseek(-2, SEEK_CUR); - } - - $info['audio']['dataformat'] = 'ac3'; - $info['audio']['bitrate_mode'] = 'cbr'; - $info['audio']['lossless'] = false; - - $thisfile_ac3_raw['synchinfo']['crc1'] = getid3_lib::LittleEndian2Int(substr($this->AC3header['syncinfo'], $offset, 2)); - $ac3_synchinfo_fscod_frmsizecod = getid3_lib::LittleEndian2Int(substr($this->AC3header['syncinfo'], ($offset + 2), 1)); - $thisfile_ac3_raw['synchinfo']['fscod'] = ($ac3_synchinfo_fscod_frmsizecod & 0xC0) >> 6; - $thisfile_ac3_raw['synchinfo']['frmsizecod'] = ($ac3_synchinfo_fscod_frmsizecod & 0x3F); - - $thisfile_ac3['sample_rate'] = self::sampleRateCodeLookup($thisfile_ac3_raw['synchinfo']['fscod']); - if ($thisfile_ac3_raw['synchinfo']['fscod'] <= 3) { - $info['audio']['sample_rate'] = $thisfile_ac3['sample_rate']; - } - - $thisfile_ac3['frame_length'] = self::frameSizeLookup($thisfile_ac3_raw['synchinfo']['frmsizecod'], $thisfile_ac3_raw['synchinfo']['fscod']); - $thisfile_ac3['bitrate'] = self::bitrateLookup($thisfile_ac3_raw['synchinfo']['frmsizecod']); - $info['audio']['bitrate'] = $thisfile_ac3['bitrate']; - - $this->AC3header['bsi'] = getid3_lib::BigEndian2Bin($this->fread(15)); - $ac3_bsi_offset = 0; - - $thisfile_ac3_raw_bsi['bsid'] = $this->readHeaderBSI(5); - if ($thisfile_ac3_raw_bsi['bsid'] > 8) { - // Decoders which can decode version 8 will thus be able to decode version numbers less than 8. - // If this standard is extended by the addition of additional elements or features, a value of bsid greater than 8 will be used. - // Decoders built to this version of the standard will not be able to decode versions with bsid greater than 8. - $this->error('Bit stream identification is version '.$thisfile_ac3_raw_bsi['bsid'].', but getID3() only understands up to version 8'); - unset($info['ac3']); - return false; - } - - $thisfile_ac3_raw_bsi['bsmod'] = $this->readHeaderBSI(3); - $thisfile_ac3_raw_bsi['acmod'] = $this->readHeaderBSI(3); - - $thisfile_ac3['service_type'] = self::serviceTypeLookup($thisfile_ac3_raw_bsi['bsmod'], $thisfile_ac3_raw_bsi['acmod']); - $ac3_coding_mode = self::audioCodingModeLookup($thisfile_ac3_raw_bsi['acmod']); - foreach($ac3_coding_mode as $key => $value) { - $thisfile_ac3[$key] = $value; - } - switch ($thisfile_ac3_raw_bsi['acmod']) { - case 0: - case 1: - $info['audio']['channelmode'] = 'mono'; - break; - case 3: - case 4: - $info['audio']['channelmode'] = 'stereo'; - break; - default: - $info['audio']['channelmode'] = 'surround'; - break; - } - $info['audio']['channels'] = $thisfile_ac3['num_channels']; - - if ($thisfile_ac3_raw_bsi['acmod'] & 0x01) { - // If the lsb of acmod is a 1, center channel is in use and cmixlev follows in the bit stream. - $thisfile_ac3_raw_bsi['cmixlev'] = $this->readHeaderBSI(2); - $thisfile_ac3['center_mix_level'] = self::centerMixLevelLookup($thisfile_ac3_raw_bsi['cmixlev']); - } - - if ($thisfile_ac3_raw_bsi['acmod'] & 0x04) { - // If the msb of acmod is a 1, surround channels are in use and surmixlev follows in the bit stream. - $thisfile_ac3_raw_bsi['surmixlev'] = $this->readHeaderBSI(2); - $thisfile_ac3['surround_mix_level'] = self::surroundMixLevelLookup($thisfile_ac3_raw_bsi['surmixlev']); - } - - if ($thisfile_ac3_raw_bsi['acmod'] == 0x02) { - // When operating in the two channel mode, this 2-bit code indicates whether or not the program has been encoded in Dolby Surround. - $thisfile_ac3_raw_bsi['dsurmod'] = $this->readHeaderBSI(2); - $thisfile_ac3['dolby_surround_mode'] = self::dolbySurroundModeLookup($thisfile_ac3_raw_bsi['dsurmod']); - } - - $thisfile_ac3_raw_bsi['lfeon'] = (bool) $this->readHeaderBSI(1); - $thisfile_ac3['lfe_enabled'] = $thisfile_ac3_raw_bsi['lfeon']; - if ($thisfile_ac3_raw_bsi['lfeon']) { - //$info['audio']['channels']++; - $info['audio']['channels'] .= '.1'; - } - - $thisfile_ac3['channels_enabled'] = self::channelsEnabledLookup($thisfile_ac3_raw_bsi['acmod'], $thisfile_ac3_raw_bsi['lfeon']); - - // This indicates how far the average dialogue level is below digital 100 percent. Valid values are 1-31. - // The value of 0 is reserved. The values of 1 to 31 are interpreted as -1 dB to -31 dB with respect to digital 100 percent. - $thisfile_ac3_raw_bsi['dialnorm'] = $this->readHeaderBSI(5); - $thisfile_ac3['dialogue_normalization'] = '-'.$thisfile_ac3_raw_bsi['dialnorm'].'dB'; - - $thisfile_ac3_raw_bsi['compre_flag'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['compre_flag']) { - $thisfile_ac3_raw_bsi['compr'] = $this->readHeaderBSI(8); - $thisfile_ac3['heavy_compression'] = self::heavyCompression($thisfile_ac3_raw_bsi['compr']); - } - - $thisfile_ac3_raw_bsi['langcode_flag'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['langcode_flag']) { - $thisfile_ac3_raw_bsi['langcod'] = $this->readHeaderBSI(8); - } - - $thisfile_ac3_raw_bsi['audprodie'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['audprodie']) { - $thisfile_ac3_raw_bsi['mixlevel'] = $this->readHeaderBSI(5); - $thisfile_ac3_raw_bsi['roomtyp'] = $this->readHeaderBSI(2); - - $thisfile_ac3['mixing_level'] = (80 + $thisfile_ac3_raw_bsi['mixlevel']).'dB'; - $thisfile_ac3['room_type'] = self::roomTypeLookup($thisfile_ac3_raw_bsi['roomtyp']); - } - - if ($thisfile_ac3_raw_bsi['acmod'] == 0x00) { - // If acmod is 0, then two completely independent program channels (dual mono) - // are encoded into the bit stream, and are referenced as Ch1, Ch2. In this case, - // a number of additional items are present in BSI or audblk to fully describe Ch2. - - // This indicates how far the average dialogue level is below digital 100 percent. Valid values are 1-31. - // The value of 0 is reserved. The values of 1 to 31 are interpreted as -1 dB to -31 dB with respect to digital 100 percent. - $thisfile_ac3_raw_bsi['dialnorm2'] = $this->readHeaderBSI(5); - $thisfile_ac3['dialogue_normalization2'] = '-'.$thisfile_ac3_raw_bsi['dialnorm2'].'dB'; - - $thisfile_ac3_raw_bsi['compre_flag2'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['compre_flag2']) { - $thisfile_ac3_raw_bsi['compr2'] = $this->readHeaderBSI(8); - $thisfile_ac3['heavy_compression2'] = self::heavyCompression($thisfile_ac3_raw_bsi['compr2']); - } - - $thisfile_ac3_raw_bsi['langcode_flag2'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['langcode_flag2']) { - $thisfile_ac3_raw_bsi['langcod2'] = $this->readHeaderBSI(8); - } - - $thisfile_ac3_raw_bsi['audprodie2'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['audprodie2']) { - $thisfile_ac3_raw_bsi['mixlevel2'] = $this->readHeaderBSI(5); - $thisfile_ac3_raw_bsi['roomtyp2'] = $this->readHeaderBSI(2); - - $thisfile_ac3['mixing_level2'] = (80 + $thisfile_ac3_raw_bsi['mixlevel2']).'dB'; - $thisfile_ac3['room_type2'] = self::roomTypeLookup($thisfile_ac3_raw_bsi['roomtyp2']); - } - - } - - $thisfile_ac3_raw_bsi['copyright'] = (bool) $this->readHeaderBSI(1); - - $thisfile_ac3_raw_bsi['original'] = (bool) $this->readHeaderBSI(1); - - $thisfile_ac3_raw_bsi['timecode1_flag'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['timecode1_flag']) { - $thisfile_ac3_raw_bsi['timecode1'] = $this->readHeaderBSI(14); - } - - $thisfile_ac3_raw_bsi['timecode2_flag'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['timecode2_flag']) { - $thisfile_ac3_raw_bsi['timecode2'] = $this->readHeaderBSI(14); - } - - $thisfile_ac3_raw_bsi['addbsi_flag'] = (bool) $this->readHeaderBSI(1); - if ($thisfile_ac3_raw_bsi['addbsi_flag']) { - $thisfile_ac3_raw_bsi['addbsi_length'] = $this->readHeaderBSI(6); - - $this->AC3header['bsi'] .= getid3_lib::BigEndian2Bin($this->fread($thisfile_ac3_raw_bsi['addbsi_length'])); - - $thisfile_ac3_raw_bsi['addbsi_data'] = substr($this->AC3header['bsi'], $this->BSIoffset, $thisfile_ac3_raw_bsi['addbsi_length'] * 8); - $this->BSIoffset += $thisfile_ac3_raw_bsi['addbsi_length'] * 8; - } - - return true; - } - - private function readHeaderBSI($length) { - $data = substr($this->AC3header['bsi'], $this->BSIoffset, $length); - $this->BSIoffset += $length; - - return bindec($data); - } - - public static function sampleRateCodeLookup($fscod) { - static $sampleRateCodeLookup = array( - 0 => 48000, - 1 => 44100, - 2 => 32000, - 3 => 'reserved' // If the reserved code is indicated, the decoder should not attempt to decode audio and should mute. - ); - return (isset($sampleRateCodeLookup[$fscod]) ? $sampleRateCodeLookup[$fscod] : false); - } - - public static function serviceTypeLookup($bsmod, $acmod) { - static $serviceTypeLookup = array(); - if (empty($serviceTypeLookup)) { - for ($i = 0; $i <= 7; $i++) { - $serviceTypeLookup[0][$i] = 'main audio service: complete main (CM)'; - $serviceTypeLookup[1][$i] = 'main audio service: music and effects (ME)'; - $serviceTypeLookup[2][$i] = 'associated service: visually impaired (VI)'; - $serviceTypeLookup[3][$i] = 'associated service: hearing impaired (HI)'; - $serviceTypeLookup[4][$i] = 'associated service: dialogue (D)'; - $serviceTypeLookup[5][$i] = 'associated service: commentary (C)'; - $serviceTypeLookup[6][$i] = 'associated service: emergency (E)'; - } - - $serviceTypeLookup[7][1] = 'associated service: voice over (VO)'; - for ($i = 2; $i <= 7; $i++) { - $serviceTypeLookup[7][$i] = 'main audio service: karaoke'; - } - } - return (isset($serviceTypeLookup[$bsmod][$acmod]) ? $serviceTypeLookup[$bsmod][$acmod] : false); - } - - public static function audioCodingModeLookup($acmod) { - // array(channel configuration, # channels (not incl LFE), channel order) - static $audioCodingModeLookup = array ( - 0 => array('channel_config'=>'1+1', 'num_channels'=>2, 'channel_order'=>'Ch1,Ch2'), - 1 => array('channel_config'=>'1/0', 'num_channels'=>1, 'channel_order'=>'C'), - 2 => array('channel_config'=>'2/0', 'num_channels'=>2, 'channel_order'=>'L,R'), - 3 => array('channel_config'=>'3/0', 'num_channels'=>3, 'channel_order'=>'L,C,R'), - 4 => array('channel_config'=>'2/1', 'num_channels'=>3, 'channel_order'=>'L,R,S'), - 5 => array('channel_config'=>'3/1', 'num_channels'=>4, 'channel_order'=>'L,C,R,S'), - 6 => array('channel_config'=>'2/2', 'num_channels'=>4, 'channel_order'=>'L,R,SL,SR'), - 7 => array('channel_config'=>'3/2', 'num_channels'=>5, 'channel_order'=>'L,C,R,SL,SR'), - ); - return (isset($audioCodingModeLookup[$acmod]) ? $audioCodingModeLookup[$acmod] : false); - } - - public static function centerMixLevelLookup($cmixlev) { - static $centerMixLevelLookup; - if (empty($centerMixLevelLookup)) { - $centerMixLevelLookup = array( - 0 => pow(2, -3.0 / 6), // 0.707 (-3.0 dB) - 1 => pow(2, -4.5 / 6), // 0.595 (-4.5 dB) - 2 => pow(2, -6.0 / 6), // 0.500 (-6.0 dB) - 3 => 'reserved' - ); - } - return (isset($centerMixLevelLookup[$cmixlev]) ? $centerMixLevelLookup[$cmixlev] : false); - } - - public static function surroundMixLevelLookup($surmixlev) { - static $surroundMixLevelLookup; - if (empty($surroundMixLevelLookup)) { - $surroundMixLevelLookup = array( - 0 => pow(2, -3.0 / 6), - 1 => pow(2, -6.0 / 6), - 2 => 0, - 3 => 'reserved' - ); - } - return (isset($surroundMixLevelLookup[$surmixlev]) ? $surroundMixLevelLookup[$surmixlev] : false); - } - - public static function dolbySurroundModeLookup($dsurmod) { - static $dolbySurroundModeLookup = array( - 0 => 'not indicated', - 1 => 'Not Dolby Surround encoded', - 2 => 'Dolby Surround encoded', - 3 => 'reserved' - ); - return (isset($dolbySurroundModeLookup[$dsurmod]) ? $dolbySurroundModeLookup[$dsurmod] : false); - } - - public static function channelsEnabledLookup($acmod, $lfeon) { - $lookup = array( - 'ch1'=>(bool) ($acmod == 0), - 'ch2'=>(bool) ($acmod == 0), - 'left'=>(bool) ($acmod > 1), - 'right'=>(bool) ($acmod > 1), - 'center'=>(bool) ($acmod & 0x01), - 'surround_mono'=>false, - 'surround_left'=>false, - 'surround_right'=>false, - 'lfe'=>$lfeon); - switch ($acmod) { - case 4: - case 5: - $lookup['surround_mono'] = true; - break; - case 6: - case 7: - $lookup['surround_left'] = true; - $lookup['surround_right'] = true; - break; - } - return $lookup; - } - - public static function heavyCompression($compre) { - // The first four bits indicate gain changes in 6.02dB increments which can be - // implemented with an arithmetic shift operation. The following four bits - // indicate linear gain changes, and require a 5-bit multiply. - // We will represent the two 4-bit fields of compr as follows: - // X0 X1 X2 X3 . Y4 Y5 Y6 Y7 - // The meaning of the X values is most simply described by considering X to represent a 4-bit - // signed integer with values from -8 to +7. The gain indicated by X is then (X + 1) * 6.02 dB. The - // following table shows this in detail. - - // Meaning of 4 msb of compr - // 7 +48.16 dB - // 6 +42.14 dB - // 5 +36.12 dB - // 4 +30.10 dB - // 3 +24.08 dB - // 2 +18.06 dB - // 1 +12.04 dB - // 0 +6.02 dB - // -1 0 dB - // -2 -6.02 dB - // -3 -12.04 dB - // -4 -18.06 dB - // -5 -24.08 dB - // -6 -30.10 dB - // -7 -36.12 dB - // -8 -42.14 dB - - $fourbit = str_pad(decbin(($compre & 0xF0) >> 4), 4, '0', STR_PAD_LEFT); - if ($fourbit{0} == '1') { - $log_gain = -8 + bindec(substr($fourbit, 1)); - } else { - $log_gain = bindec(substr($fourbit, 1)); - } - $log_gain = ($log_gain + 1) * getid3_lib::RGADamplitude2dB(2); - - // The value of Y is a linear representation of a gain change of up to -6 dB. Y is considered to - // be an unsigned fractional integer, with a leading value of 1, or: 0.1 Y4 Y5 Y6 Y7 (base 2). Y can - // represent values between 0.111112 (or 31/32) and 0.100002 (or 1/2). Thus, Y can represent gain - // changes from -0.28 dB to -6.02 dB. - - $lin_gain = (16 + ($compre & 0x0F)) / 32; - - // The combination of X and Y values allows compr to indicate gain changes from - // 48.16 - 0.28 = +47.89 dB, to - // -42.14 - 6.02 = -48.16 dB. - - return $log_gain - $lin_gain; - } - - public static function roomTypeLookup($roomtyp) { - static $roomTypeLookup = array( - 0 => 'not indicated', - 1 => 'large room, X curve monitor', - 2 => 'small room, flat monitor', - 3 => 'reserved' - ); - return (isset($roomTypeLookup[$roomtyp]) ? $roomTypeLookup[$roomtyp] : false); - } - - public static function frameSizeLookup($frmsizecod, $fscod) { - $padding = (bool) ($frmsizecod % 2); - $framesizeid = floor($frmsizecod / 2); - - static $frameSizeLookup = array(); - if (empty($frameSizeLookup)) { - $frameSizeLookup = array ( - 0 => array(128, 138, 192), - 1 => array(40, 160, 174, 240), - 2 => array(48, 192, 208, 288), - 3 => array(56, 224, 242, 336), - 4 => array(64, 256, 278, 384), - 5 => array(80, 320, 348, 480), - 6 => array(96, 384, 416, 576), - 7 => array(112, 448, 486, 672), - 8 => array(128, 512, 556, 768), - 9 => array(160, 640, 696, 960), - 10 => array(192, 768, 834, 1152), - 11 => array(224, 896, 974, 1344), - 12 => array(256, 1024, 1114, 1536), - 13 => array(320, 1280, 1392, 1920), - 14 => array(384, 1536, 1670, 2304), - 15 => array(448, 1792, 1950, 2688), - 16 => array(512, 2048, 2228, 3072), - 17 => array(576, 2304, 2506, 3456), - 18 => array(640, 2560, 2786, 3840) - ); - } - if (($fscod == 1) && $padding) { - // frame lengths are padded by 1 word (16 bits) at 44100 - $frameSizeLookup[$frmsizecod] += 2; - } - return (isset($frameSizeLookup[$framesizeid][$fscod]) ? $frameSizeLookup[$framesizeid][$fscod] : false); - } - - public static function bitrateLookup($frmsizecod) { - $framesizeid = floor($frmsizecod / 2); - - static $bitrateLookup = array( - 0 => 32000, - 1 => 40000, - 2 => 48000, - 3 => 56000, - 4 => 64000, - 5 => 80000, - 6 => 96000, - 7 => 112000, - 8 => 128000, - 9 => 160000, - 10 => 192000, - 11 => 224000, - 12 => 256000, - 13 => 320000, - 14 => 384000, - 15 => 448000, - 16 => 512000, - 17 => 576000, - 18 => 640000 - ); - return (isset($bitrateLookup[$framesizeid]) ? $bitrateLookup[$framesizeid] : false); - } - - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.au.php b/web/htdocs/media/lib/getid3/module.audio.au.php deleted file mode 100644 index 5951684aea9..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.au.php +++ /dev/null @@ -1,162 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.au.php // -// module for analyzing AU files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_au extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $AUheader = fread($this->getid3->fp, 8); - - $magic = '.snd'; - if (substr($AUheader, 0, 4) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" (".snd") at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($AUheader, 0, 4)).'"'; - return false; - } - - // shortcut - $info['au'] = array(); - $thisfile_au = &$info['au']; - - $info['fileformat'] = 'au'; - $info['audio']['dataformat'] = 'au'; - $info['audio']['bitrate_mode'] = 'cbr'; - $thisfile_au['encoding'] = 'ISO-8859-1'; - - $thisfile_au['header_length'] = getid3_lib::BigEndian2Int(substr($AUheader, 4, 4)); - $AUheader .= fread($this->getid3->fp, $thisfile_au['header_length'] - 8); - $info['avdataoffset'] += $thisfile_au['header_length']; - - $thisfile_au['data_size'] = getid3_lib::BigEndian2Int(substr($AUheader, 8, 4)); - $thisfile_au['data_format_id'] = getid3_lib::BigEndian2Int(substr($AUheader, 12, 4)); - $thisfile_au['sample_rate'] = getid3_lib::BigEndian2Int(substr($AUheader, 16, 4)); - $thisfile_au['channels'] = getid3_lib::BigEndian2Int(substr($AUheader, 20, 4)); - $thisfile_au['comments']['comment'][] = trim(substr($AUheader, 24)); - - $thisfile_au['data_format'] = $this->AUdataFormatNameLookup($thisfile_au['data_format_id']); - $thisfile_au['used_bits_per_sample'] = $this->AUdataFormatUsedBitsPerSampleLookup($thisfile_au['data_format_id']); - if ($thisfile_au['bits_per_sample'] = $this->AUdataFormatBitsPerSampleLookup($thisfile_au['data_format_id'])) { - $info['audio']['bits_per_sample'] = $thisfile_au['bits_per_sample']; - } else { - unset($thisfile_au['bits_per_sample']); - } - - $info['audio']['sample_rate'] = $thisfile_au['sample_rate']; - $info['audio']['channels'] = $thisfile_au['channels']; - - if (($info['avdataoffset'] + $thisfile_au['data_size']) > $info['avdataend']) { - $info['warning'][] = 'Possible truncated file - expecting "'.$thisfile_au['data_size'].'" bytes of audio data, only found '.($info['avdataend'] - $info['avdataoffset']).' bytes"'; - } - - $info['playtime_seconds'] = $thisfile_au['data_size'] / ($thisfile_au['sample_rate'] * $thisfile_au['channels'] * ($thisfile_au['used_bits_per_sample'] / 8)); - $info['audio']['bitrate'] = ($thisfile_au['data_size'] * 8) / $info['playtime_seconds']; - - return true; - } - - public function AUdataFormatNameLookup($id) { - static $AUdataFormatNameLookup = array( - 0 => 'unspecified format', - 1 => '8-bit mu-law', - 2 => '8-bit linear', - 3 => '16-bit linear', - 4 => '24-bit linear', - 5 => '32-bit linear', - 6 => 'floating-point', - 7 => 'double-precision float', - 8 => 'fragmented sampled data', - 9 => 'SUN_FORMAT_NESTED', - 10 => 'DSP program', - 11 => '8-bit fixed-point', - 12 => '16-bit fixed-point', - 13 => '24-bit fixed-point', - 14 => '32-bit fixed-point', - - 16 => 'non-audio display data', - 17 => 'SND_FORMAT_MULAW_SQUELCH', - 18 => '16-bit linear with emphasis', - 19 => '16-bit linear with compression', - 20 => '16-bit linear with emphasis + compression', - 21 => 'Music Kit DSP commands', - 22 => 'SND_FORMAT_DSP_COMMANDS_SAMPLES', - 23 => 'CCITT g.721 4-bit ADPCM', - 24 => 'CCITT g.722 ADPCM', - 25 => 'CCITT g.723 3-bit ADPCM', - 26 => 'CCITT g.723 5-bit ADPCM', - 27 => 'A-Law 8-bit' - ); - return (isset($AUdataFormatNameLookup[$id]) ? $AUdataFormatNameLookup[$id] : false); - } - - public function AUdataFormatBitsPerSampleLookup($id) { - static $AUdataFormatBitsPerSampleLookup = array( - 1 => 8, - 2 => 8, - 3 => 16, - 4 => 24, - 5 => 32, - 6 => 32, - 7 => 64, - - 11 => 8, - 12 => 16, - 13 => 24, - 14 => 32, - - 18 => 16, - 19 => 16, - 20 => 16, - - 23 => 16, - - 25 => 16, - 26 => 16, - 27 => 8 - ); - return (isset($AUdataFormatBitsPerSampleLookup[$id]) ? $AUdataFormatBitsPerSampleLookup[$id] : false); - } - - public function AUdataFormatUsedBitsPerSampleLookup($id) { - static $AUdataFormatUsedBitsPerSampleLookup = array( - 1 => 8, - 2 => 8, - 3 => 16, - 4 => 24, - 5 => 32, - 6 => 32, - 7 => 64, - - 11 => 8, - 12 => 16, - 13 => 24, - 14 => 32, - - 18 => 16, - 19 => 16, - 20 => 16, - - 23 => 4, - - 25 => 3, - 26 => 5, - 27 => 8, - ); - return (isset($AUdataFormatUsedBitsPerSampleLookup[$id]) ? $AUdataFormatUsedBitsPerSampleLookup[$id] : false); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.avr.php b/web/htdocs/media/lib/getid3/module.audio.avr.php deleted file mode 100644 index 77107eaea01..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.avr.php +++ /dev/null @@ -1,124 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.avr.php // -// module for analyzing AVR Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_avr extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - // http://cui.unige.ch/OSG/info/AudioFormats/ap11.html - // http://www.btinternet.com/~AnthonyJ/Atari/programming/avr_format.html - // offset type length name comments - // --------------------------------------------------------------------- - // 0 char 4 ID format ID == "2BIT" - // 4 char 8 name sample name (unused space filled with 0) - // 12 short 1 mono/stereo 0=mono, -1 (0xFFFF)=stereo - // With stereo, samples are alternated, - // the first voice is the left : - // (LRLRLRLRLRLRLRLRLR...) - // 14 short 1 resolution 8, 12 or 16 (bits) - // 16 short 1 signed or not 0=unsigned, -1 (0xFFFF)=signed - // 18 short 1 loop or not 0=no loop, -1 (0xFFFF)=loop on - // 20 short 1 MIDI note 0xFFnn, where 0 <= nn <= 127 - // 0xFFFF means "no MIDI note defined" - // 22 byte 1 Replay speed Frequence in the Replay software - // 0=5.485 Khz, 1=8.084 Khz, 2=10.971 Khz, - // 3=16.168 Khz, 4=21.942 Khz, 5=32.336 Khz - // 6=43.885 Khz, 7=47.261 Khz - // -1 (0xFF)=no defined Frequence - // 23 byte 3 sample rate in Hertz - // 26 long 1 size in bytes (2 * bytes in stereo) - // 30 long 1 loop begin 0 for no loop - // 34 long 1 loop size equal to 'size' for no loop - // 38 short 2 Reserved, MIDI keyboard split */ - // 40 short 2 Reserved, sample compression */ - // 42 short 2 Reserved */ - // 44 char 20; Additional filename space, used if (name[7] != 0) - // 64 byte 64 user data - // 128 bytes ? sample data (12 bits samples are coded on 16 bits: - // 0000 xxxx xxxx xxxx) - // --------------------------------------------------------------------- - - // Note that all values are in motorola (big-endian) format, and that long is - // assumed to be 4 bytes, and short 2 bytes. - // When reading the samples, you should handle both signed and unsigned data, - // and be prepared to convert 16->8 bit, or mono->stereo if needed. To convert - // 8-bit data between signed/unsigned just add 127 to the sample values. - // Simularly for 16-bit data you should add 32769 - - $info['fileformat'] = 'avr'; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $AVRheader = fread($this->getid3->fp, 128); - - $info['avr']['raw']['magic'] = substr($AVRheader, 0, 4); - $magic = '2BIT'; - if ($info['avr']['raw']['magic'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($info['avr']['raw']['magic']).'"'; - unset($info['fileformat']); - unset($info['avr']); - return false; - } - $info['avdataoffset'] += 128; - - $info['avr']['sample_name'] = rtrim(substr($AVRheader, 4, 8)); - $info['avr']['raw']['mono'] = getid3_lib::BigEndian2Int(substr($AVRheader, 12, 2)); - $info['avr']['bits_per_sample'] = getid3_lib::BigEndian2Int(substr($AVRheader, 14, 2)); - $info['avr']['raw']['signed'] = getid3_lib::BigEndian2Int(substr($AVRheader, 16, 2)); - $info['avr']['raw']['loop'] = getid3_lib::BigEndian2Int(substr($AVRheader, 18, 2)); - $info['avr']['raw']['midi'] = getid3_lib::BigEndian2Int(substr($AVRheader, 20, 2)); - $info['avr']['raw']['replay_freq'] = getid3_lib::BigEndian2Int(substr($AVRheader, 22, 1)); - $info['avr']['sample_rate'] = getid3_lib::BigEndian2Int(substr($AVRheader, 23, 3)); - $info['avr']['sample_length'] = getid3_lib::BigEndian2Int(substr($AVRheader, 26, 4)); - $info['avr']['loop_start'] = getid3_lib::BigEndian2Int(substr($AVRheader, 30, 4)); - $info['avr']['loop_end'] = getid3_lib::BigEndian2Int(substr($AVRheader, 34, 4)); - $info['avr']['midi_split'] = getid3_lib::BigEndian2Int(substr($AVRheader, 38, 2)); - $info['avr']['sample_compression'] = getid3_lib::BigEndian2Int(substr($AVRheader, 40, 2)); - $info['avr']['reserved'] = getid3_lib::BigEndian2Int(substr($AVRheader, 42, 2)); - $info['avr']['sample_name_extra'] = rtrim(substr($AVRheader, 44, 20)); - $info['avr']['comment'] = rtrim(substr($AVRheader, 64, 64)); - - $info['avr']['flags']['stereo'] = (($info['avr']['raw']['mono'] == 0) ? false : true); - $info['avr']['flags']['signed'] = (($info['avr']['raw']['signed'] == 0) ? false : true); - $info['avr']['flags']['loop'] = (($info['avr']['raw']['loop'] == 0) ? false : true); - - $info['avr']['midi_notes'] = array(); - if (($info['avr']['raw']['midi'] & 0xFF00) != 0xFF00) { - $info['avr']['midi_notes'][] = ($info['avr']['raw']['midi'] & 0xFF00) >> 8; - } - if (($info['avr']['raw']['midi'] & 0x00FF) != 0x00FF) { - $info['avr']['midi_notes'][] = ($info['avr']['raw']['midi'] & 0x00FF); - } - - if (($info['avdataend'] - $info['avdataoffset']) != ($info['avr']['sample_length'] * (($info['avr']['bits_per_sample'] == 8) ? 1 : 2))) { - $info['warning'][] = 'Probable truncated file: expecting '.($info['avr']['sample_length'] * (($info['avr']['bits_per_sample'] == 8) ? 1 : 2)).' bytes of audio data, found '.($info['avdataend'] - $info['avdataoffset']); - } - - $info['audio']['dataformat'] = 'avr'; - $info['audio']['lossless'] = true; - $info['audio']['bitrate_mode'] = 'cbr'; - $info['audio']['bits_per_sample'] = $info['avr']['bits_per_sample']; - $info['audio']['sample_rate'] = $info['avr']['sample_rate']; - $info['audio']['channels'] = ($info['avr']['flags']['stereo'] ? 2 : 1); - $info['playtime_seconds'] = ($info['avr']['sample_length'] / $info['audio']['channels']) / $info['avr']['sample_rate']; - $info['audio']['bitrate'] = ($info['avr']['sample_length'] * (($info['avr']['bits_per_sample'] == 8) ? 8 : 16)) / $info['playtime_seconds']; - - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.bonk.php b/web/htdocs/media/lib/getid3/module.audio.bonk.php deleted file mode 100644 index e96be5b1f1f..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.bonk.php +++ /dev/null @@ -1,227 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.la.php // -// module for analyzing BONK audio files // -// dependencies: module.tag.id3v2.php (optional) // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_bonk extends getid3_handler -{ - public function Analyze() { - $info = &$this->getid3->info; - - // shortcut - $info['bonk'] = array(); - $thisfile_bonk = &$info['bonk']; - - $thisfile_bonk['dataoffset'] = $info['avdataoffset']; - $thisfile_bonk['dataend'] = $info['avdataend']; - - if (!getid3_lib::intValueSupported($thisfile_bonk['dataend'])) { - - $info['warning'][] = 'Unable to parse BONK file from end (v0.6+ preferred method) because PHP filesystem functions only support up to '.round(PHP_INT_MAX / 1073741824).'GB'; - - } else { - - // scan-from-end method, for v0.6 and higher - fseek($this->getid3->fp, $thisfile_bonk['dataend'] - 8, SEEK_SET); - $PossibleBonkTag = fread($this->getid3->fp, 8); - while ($this->BonkIsValidTagName(substr($PossibleBonkTag, 4, 4), true)) { - $BonkTagSize = getid3_lib::LittleEndian2Int(substr($PossibleBonkTag, 0, 4)); - fseek($this->getid3->fp, 0 - $BonkTagSize, SEEK_CUR); - $BonkTagOffset = ftell($this->getid3->fp); - $TagHeaderTest = fread($this->getid3->fp, 5); - if (($TagHeaderTest{0} != "\x00") || (substr($PossibleBonkTag, 4, 4) != strtolower(substr($PossibleBonkTag, 4, 4)))) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes("\x00".strtoupper(substr($PossibleBonkTag, 4, 4))).'" at offset '.$BonkTagOffset.', found "'.getid3_lib::PrintHexBytes($TagHeaderTest).'"'; - return false; - } - $BonkTagName = substr($TagHeaderTest, 1, 4); - - $thisfile_bonk[$BonkTagName]['size'] = $BonkTagSize; - $thisfile_bonk[$BonkTagName]['offset'] = $BonkTagOffset; - $this->HandleBonkTags($BonkTagName); - $NextTagEndOffset = $BonkTagOffset - 8; - if ($NextTagEndOffset < $thisfile_bonk['dataoffset']) { - if (empty($info['audio']['encoder'])) { - $info['audio']['encoder'] = 'Extended BONK v0.9+'; - } - return true; - } - fseek($this->getid3->fp, $NextTagEndOffset, SEEK_SET); - $PossibleBonkTag = fread($this->getid3->fp, 8); - } - - } - - // seek-from-beginning method for v0.4 and v0.5 - if (empty($thisfile_bonk['BONK'])) { - fseek($this->getid3->fp, $thisfile_bonk['dataoffset'], SEEK_SET); - do { - $TagHeaderTest = fread($this->getid3->fp, 5); - switch ($TagHeaderTest) { - case "\x00".'BONK': - if (empty($info['audio']['encoder'])) { - $info['audio']['encoder'] = 'BONK v0.4'; - } - break; - - case "\x00".'INFO': - $info['audio']['encoder'] = 'Extended BONK v0.5'; - break; - - default: - break 2; - } - $BonkTagName = substr($TagHeaderTest, 1, 4); - $thisfile_bonk[$BonkTagName]['size'] = $thisfile_bonk['dataend'] - $thisfile_bonk['dataoffset']; - $thisfile_bonk[$BonkTagName]['offset'] = $thisfile_bonk['dataoffset']; - $this->HandleBonkTags($BonkTagName); - - } while (true); - } - - // parse META block for v0.6 - v0.8 - if (empty($thisfile_bonk['INFO']) && isset($thisfile_bonk['META']['tags']['info'])) { - fseek($this->getid3->fp, $thisfile_bonk['META']['tags']['info'], SEEK_SET); - $TagHeaderTest = fread($this->getid3->fp, 5); - if ($TagHeaderTest == "\x00".'INFO') { - $info['audio']['encoder'] = 'Extended BONK v0.6 - v0.8'; - - $BonkTagName = substr($TagHeaderTest, 1, 4); - $thisfile_bonk[$BonkTagName]['size'] = $thisfile_bonk['dataend'] - $thisfile_bonk['dataoffset']; - $thisfile_bonk[$BonkTagName]['offset'] = $thisfile_bonk['dataoffset']; - $this->HandleBonkTags($BonkTagName); - } - } - - if (empty($info['audio']['encoder'])) { - $info['audio']['encoder'] = 'Extended BONK v0.9+'; - } - if (empty($thisfile_bonk['BONK'])) { - unset($info['bonk']); - } - return true; - - } - - public function HandleBonkTags($BonkTagName) { - $info = &$this->getid3->info; - switch ($BonkTagName) { - case 'BONK': - // shortcut - $thisfile_bonk_BONK = &$info['bonk']['BONK']; - - $BonkData = "\x00".'BONK'.fread($this->getid3->fp, 17); - $thisfile_bonk_BONK['version'] = getid3_lib::LittleEndian2Int(substr($BonkData, 5, 1)); - $thisfile_bonk_BONK['number_samples'] = getid3_lib::LittleEndian2Int(substr($BonkData, 6, 4)); - $thisfile_bonk_BONK['sample_rate'] = getid3_lib::LittleEndian2Int(substr($BonkData, 10, 4)); - - $thisfile_bonk_BONK['channels'] = getid3_lib::LittleEndian2Int(substr($BonkData, 14, 1)); - $thisfile_bonk_BONK['lossless'] = (bool) getid3_lib::LittleEndian2Int(substr($BonkData, 15, 1)); - $thisfile_bonk_BONK['joint_stereo'] = (bool) getid3_lib::LittleEndian2Int(substr($BonkData, 16, 1)); - $thisfile_bonk_BONK['number_taps'] = getid3_lib::LittleEndian2Int(substr($BonkData, 17, 2)); - $thisfile_bonk_BONK['downsampling_ratio'] = getid3_lib::LittleEndian2Int(substr($BonkData, 19, 1)); - $thisfile_bonk_BONK['samples_per_packet'] = getid3_lib::LittleEndian2Int(substr($BonkData, 20, 2)); - - $info['avdataoffset'] = $thisfile_bonk_BONK['offset'] + 5 + 17; - $info['avdataend'] = $thisfile_bonk_BONK['offset'] + $thisfile_bonk_BONK['size']; - - $info['fileformat'] = 'bonk'; - $info['audio']['dataformat'] = 'bonk'; - $info['audio']['bitrate_mode'] = 'vbr'; // assumed - $info['audio']['channels'] = $thisfile_bonk_BONK['channels']; - $info['audio']['sample_rate'] = $thisfile_bonk_BONK['sample_rate']; - $info['audio']['channelmode'] = ($thisfile_bonk_BONK['joint_stereo'] ? 'joint stereo' : 'stereo'); - $info['audio']['lossless'] = $thisfile_bonk_BONK['lossless']; - $info['audio']['codec'] = 'bonk'; - - $info['playtime_seconds'] = $thisfile_bonk_BONK['number_samples'] / ($thisfile_bonk_BONK['sample_rate'] * $thisfile_bonk_BONK['channels']); - if ($info['playtime_seconds'] > 0) { - $info['audio']['bitrate'] = (($info['bonk']['dataend'] - $info['bonk']['dataoffset']) * 8) / $info['playtime_seconds']; - } - break; - - case 'INFO': - // shortcut - $thisfile_bonk_INFO = &$info['bonk']['INFO']; - - $thisfile_bonk_INFO['version'] = getid3_lib::LittleEndian2Int(fread($this->getid3->fp, 1)); - $thisfile_bonk_INFO['entries_count'] = 0; - $NextInfoDataPair = fread($this->getid3->fp, 5); - if (!$this->BonkIsValidTagName(substr($NextInfoDataPair, 1, 4))) { - while (!feof($this->getid3->fp)) { - //$CurrentSeekInfo['offset'] = getid3_lib::LittleEndian2Int(substr($NextInfoDataPair, 0, 4)); - //$CurrentSeekInfo['nextbit'] = getid3_lib::LittleEndian2Int(substr($NextInfoDataPair, 4, 1)); - //$thisfile_bonk_INFO[] = $CurrentSeekInfo; - - $NextInfoDataPair = fread($this->getid3->fp, 5); - if ($this->BonkIsValidTagName(substr($NextInfoDataPair, 1, 4))) { - fseek($this->getid3->fp, -5, SEEK_CUR); - break; - } - $thisfile_bonk_INFO['entries_count']++; - } - } - break; - - case 'META': - $BonkData = "\x00".'META'.fread($this->getid3->fp, $info['bonk']['META']['size'] - 5); - $info['bonk']['META']['version'] = getid3_lib::LittleEndian2Int(substr($BonkData, 5, 1)); - - $MetaTagEntries = floor(((strlen($BonkData) - 8) - 6) / 8); // BonkData - xxxxmeta - ØMETA - $offset = 6; - for ($i = 0; $i < $MetaTagEntries; $i++) { - $MetaEntryTagName = substr($BonkData, $offset, 4); - $offset += 4; - $MetaEntryTagOffset = getid3_lib::LittleEndian2Int(substr($BonkData, $offset, 4)); - $offset += 4; - $info['bonk']['META']['tags'][$MetaEntryTagName] = $MetaEntryTagOffset; - } - break; - - case ' ID3': - $info['audio']['encoder'] = 'Extended BONK v0.9+'; - - // ID3v2 checking is optional - if (class_exists('getid3_id3v2')) { - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_id3v2 = new getid3_id3v2($getid3_temp); - $getid3_id3v2->StartingOffset = $info['bonk'][' ID3']['offset'] + 2; - $info['bonk'][' ID3']['valid'] = $getid3_id3v2->Analyze(); - if ($info['bonk'][' ID3']['valid']) { - $info['id3v2'] = $getid3_temp->info['id3v2']; - } - unset($getid3_temp, $getid3_id3v2); - } - break; - - default: - $info['warning'][] = 'Unexpected Bonk tag "'.$BonkTagName.'" at offset '.$info['bonk'][$BonkTagName]['offset']; - break; - - } - } - - public static function BonkIsValidTagName($PossibleBonkTag, $ignorecase=false) { - static $BonkIsValidTagName = array('BONK', 'INFO', ' ID3', 'META'); - foreach ($BonkIsValidTagName as $validtagname) { - if ($validtagname == $PossibleBonkTag) { - return true; - } elseif ($ignorecase && (strtolower($validtagname) == strtolower($PossibleBonkTag))) { - return true; - } - } - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.dss.php b/web/htdocs/media/lib/getid3/module.audio.dss.php deleted file mode 100644 index 4719d53b4ea..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.dss.php +++ /dev/null @@ -1,77 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.dss.php // -// module for analyzing Digital Speech Standard (DSS) files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_dss extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $DSSheader = fread($this->getid3->fp, 1256); - - if (!preg_match('#^(\x02|\x03)ds[s2]#', $DSSheader)) { - $info['error'][] = 'Expecting "[02-03] 64 73 [73|32]" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($DSSheader, 0, 4)).'"'; - return false; - } - - // some structure information taken from http://cpansearch.perl.org/src/RGIBSON/Audio-DSS-0.02/lib/Audio/DSS.pm - $info['encoding'] = 'ISO-8859-1'; // not certain, but assumed - $info['dss'] = array(); - - $info['fileformat'] = 'dss'; - $info['mime_type'] = 'audio/x-'.substr($DSSheader, 1, 3); // "audio/x-dss" or "audio/x-ds2" - $info['audio']['dataformat'] = substr($DSSheader, 1, 3); // "dss" or "ds2" - $info['audio']['bitrate_mode'] = 'cbr'; - - $info['dss']['version'] = ord(substr($DSSheader, 0, 1)); - $info['dss']['hardware'] = trim(substr($DSSheader, 12, 16)); // identification string for hardware used to create the file, e.g. "DPM 9600", "DS2400" - $info['dss']['unknown1'] = getid3_lib::LittleEndian2Int(substr($DSSheader, 28, 4)); - // 32-37 = "FE FF FE FF F7 FF" in all the sample files I've seen - $info['dss']['date_create'] = $this->DSSdateStringToUnixDate(substr($DSSheader, 38, 12)); - $info['dss']['date_complete'] = $this->DSSdateStringToUnixDate(substr($DSSheader, 50, 12)); - $info['dss']['playtime_sec'] = intval((substr($DSSheader, 62, 2) * 3600) + (substr($DSSheader, 64, 2) * 60) + substr($DSSheader, 66, 2)); // approximate file playtime in HHMMSS - $info['dss']['playtime_ms'] = getid3_lib::LittleEndian2Int(substr($DSSheader, 512, 4)); // exact file playtime in milliseconds. Has also been observed at offset 530 in one sample file, with something else (unknown) at offset 512 - $info['dss']['priority'] = ord(substr($DSSheader, 793, 1)); - $info['dss']['comments'] = trim(substr($DSSheader, 798, 100)); - - //$info['audio']['bits_per_sample'] = ?; - //$info['audio']['sample_rate'] = ?; - $info['audio']['channels'] = 1; - - $info['playtime_seconds'] = $info['dss']['playtime_ms'] / 1000; - if (floor($info['dss']['playtime_ms'] / 1000) != $info['dss']['playtime_sec']) { - // *should* just be playtime_ms / 1000 but at least one sample file has playtime_ms at offset 530 instead of offset 512, so safety check - $info['playtime_seconds'] = $info['dss']['playtime_sec']; - $this->getid3->warning('playtime_ms ('.number_format($info['dss']['playtime_ms'] / 1000, 3).') does not match playtime_sec ('.number_format($info['dss']['playtime_sec']).') - using playtime_sec value'); - } - $info['audio']['bitrate'] = ($info['filesize'] * 8) / $info['playtime_seconds']; - - return true; - } - - public function DSSdateStringToUnixDate($datestring) { - $y = substr($datestring, 0, 2); - $m = substr($datestring, 2, 2); - $d = substr($datestring, 4, 2); - $h = substr($datestring, 6, 2); - $i = substr($datestring, 8, 2); - $s = substr($datestring, 10, 2); - $y += (($y < 95) ? 2000 : 1900); - return mktime($h, $i, $s, $m, $d, $y); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.dts.php b/web/htdocs/media/lib/getid3/module.audio.dts.php deleted file mode 100644 index 79982cccfba..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.dts.php +++ /dev/null @@ -1,290 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.dts.php // -// module for analyzing DTS Audio files // -// dependencies: NONE // -// // -///////////////////////////////////////////////////////////////// - - -/** -* @tutorial http://wiki.multimedia.cx/index.php?title=DTS -*/ -class getid3_dts extends getid3_handler -{ - /** - * Default DTS syncword used in native .cpt or .dts formats - */ - const syncword = "\x7F\xFE\x80\x01"; - - private $readBinDataOffset = 0; - - /** - * Possible syncwords indicating bitstream encoding - */ - public static $syncwords = array( - 0 => "\x7F\xFE\x80\x01", // raw big-endian - 1 => "\xFE\x7F\x01\x80", // raw little-endian - 2 => "\x1F\xFF\xE8\x00", // 14-bit big-endian - 3 => "\xFF\x1F\x00\xE8"); // 14-bit little-endian - - public function Analyze() { - $info = &$this->getid3->info; - $info['fileformat'] = 'dts'; - - $this->fseek($info['avdataoffset']); - $DTSheader = $this->fread(20); // we only need 2 words magic + 6 words frame header, but these words may be normal 16-bit words OR 14-bit words with 2 highest bits set to zero, so 8 words can be either 8*16/8 = 16 bytes OR 8*16*(16/14)/8 = 18.3 bytes - - // check syncword - $sync = substr($DTSheader, 0, 4); - if (($encoding = array_search($sync, self::$syncwords)) !== false) { - - $info['dts']['raw']['magic'] = $sync; - $this->readBinDataOffset = 32; - - } elseif ($this->isDependencyFor('matroska')) { - - // Matroska contains DTS without syncword encoded as raw big-endian format - $encoding = 0; - $this->readBinDataOffset = 0; - - } else { - - unset($info['fileformat']); - return $this->error('Expecting "'.implode('| ', array_map('getid3_lib::PrintHexBytes', self::$syncwords)).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($sync).'"'); - - } - - // decode header - $fhBS = ''; - for ($word_offset = 0; $word_offset <= strlen($DTSheader); $word_offset += 2) { - switch ($encoding) { - case 0: // raw big-endian - $fhBS .= getid3_lib::BigEndian2Bin( substr($DTSheader, $word_offset, 2) ); - break; - case 1: // raw little-endian - $fhBS .= getid3_lib::BigEndian2Bin(strrev(substr($DTSheader, $word_offset, 2))); - break; - case 2: // 14-bit big-endian - $fhBS .= substr(getid3_lib::BigEndian2Bin( substr($DTSheader, $word_offset, 2) ), 2, 14); - break; - case 3: // 14-bit little-endian - $fhBS .= substr(getid3_lib::BigEndian2Bin(strrev(substr($DTSheader, $word_offset, 2))), 2, 14); - break; - } - } - - $info['dts']['raw']['frame_type'] = $this->readBinData($fhBS, 1); - $info['dts']['raw']['deficit_samples'] = $this->readBinData($fhBS, 5); - $info['dts']['flags']['crc_present'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['raw']['pcm_sample_blocks'] = $this->readBinData($fhBS, 7); - $info['dts']['raw']['frame_byte_size'] = $this->readBinData($fhBS, 14); - $info['dts']['raw']['channel_arrangement'] = $this->readBinData($fhBS, 6); - $info['dts']['raw']['sample_frequency'] = $this->readBinData($fhBS, 4); - $info['dts']['raw']['bitrate'] = $this->readBinData($fhBS, 5); - $info['dts']['flags']['embedded_downmix'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['dynamicrange'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['timestamp'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['auxdata'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['hdcd'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['raw']['extension_audio'] = $this->readBinData($fhBS, 3); - $info['dts']['flags']['extended_coding'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['audio_sync_insertion'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['raw']['lfe_effects'] = $this->readBinData($fhBS, 2); - $info['dts']['flags']['predictor_history'] = (bool) $this->readBinData($fhBS, 1); - if ($info['dts']['flags']['crc_present']) { - $info['dts']['raw']['crc16'] = $this->readBinData($fhBS, 16); - } - $info['dts']['flags']['mri_perfect_reconst'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['raw']['encoder_soft_version'] = $this->readBinData($fhBS, 4); - $info['dts']['raw']['copy_history'] = $this->readBinData($fhBS, 2); - $info['dts']['raw']['bits_per_sample'] = $this->readBinData($fhBS, 2); - $info['dts']['flags']['surround_es'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['front_sum_diff'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['flags']['surround_sum_diff'] = (bool) $this->readBinData($fhBS, 1); - $info['dts']['raw']['dialog_normalization'] = $this->readBinData($fhBS, 4); - - - $info['dts']['bitrate'] = self::bitrateLookup($info['dts']['raw']['bitrate']); - $info['dts']['bits_per_sample'] = self::bitPerSampleLookup($info['dts']['raw']['bits_per_sample']); - $info['dts']['sample_rate'] = self::sampleRateLookup($info['dts']['raw']['sample_frequency']); - $info['dts']['dialog_normalization'] = self::dialogNormalization($info['dts']['raw']['dialog_normalization'], $info['dts']['raw']['encoder_soft_version']); - $info['dts']['flags']['lossless'] = (($info['dts']['raw']['bitrate'] == 31) ? true : false); - $info['dts']['bitrate_mode'] = (($info['dts']['raw']['bitrate'] == 30) ? 'vbr' : 'cbr'); - $info['dts']['channels'] = self::numChannelsLookup($info['dts']['raw']['channel_arrangement']); - $info['dts']['channel_arrangement'] = self::channelArrangementLookup($info['dts']['raw']['channel_arrangement']); - - $info['audio']['dataformat'] = 'dts'; - $info['audio']['lossless'] = $info['dts']['flags']['lossless']; - $info['audio']['bitrate_mode'] = $info['dts']['bitrate_mode']; - $info['audio']['bits_per_sample'] = $info['dts']['bits_per_sample']; - $info['audio']['sample_rate'] = $info['dts']['sample_rate']; - $info['audio']['channels'] = $info['dts']['channels']; - $info['audio']['bitrate'] = $info['dts']['bitrate']; - if (isset($info['avdataend']) && !empty($info['dts']['bitrate']) && is_numeric($info['dts']['bitrate'])) { - $info['playtime_seconds'] = ($info['avdataend'] - $info['avdataoffset']) / ($info['dts']['bitrate'] / 8); - if (($encoding == 2) || ($encoding == 3)) { - // 14-bit data packed into 16-bit words, so the playtime is wrong because only (14/16) of the bytes in the data portion of the file are used at the specified bitrate - $info['playtime_seconds'] *= (14 / 16); - } - } - return true; - } - - private function readBinData($bin, $length) { - $data = substr($bin, $this->readBinDataOffset, $length); - $this->readBinDataOffset += $length; - - return bindec($data); - } - - public static function bitrateLookup($index) { - static $lookup = array( - 0 => 32000, - 1 => 56000, - 2 => 64000, - 3 => 96000, - 4 => 112000, - 5 => 128000, - 6 => 192000, - 7 => 224000, - 8 => 256000, - 9 => 320000, - 10 => 384000, - 11 => 448000, - 12 => 512000, - 13 => 576000, - 14 => 640000, - 15 => 768000, - 16 => 960000, - 17 => 1024000, - 18 => 1152000, - 19 => 1280000, - 20 => 1344000, - 21 => 1408000, - 22 => 1411200, - 23 => 1472000, - 24 => 1536000, - 25 => 1920000, - 26 => 2048000, - 27 => 3072000, - 28 => 3840000, - 29 => 'open', - 30 => 'variable', - 31 => 'lossless', - ); - return (isset($lookup[$index]) ? $lookup[$index] : false); - } - - public static function sampleRateLookup($index) { - static $lookup = array( - 0 => 'invalid', - 1 => 8000, - 2 => 16000, - 3 => 32000, - 4 => 'invalid', - 5 => 'invalid', - 6 => 11025, - 7 => 22050, - 8 => 44100, - 9 => 'invalid', - 10 => 'invalid', - 11 => 12000, - 12 => 24000, - 13 => 48000, - 14 => 'invalid', - 15 => 'invalid', - ); - return (isset($lookup[$index]) ? $lookup[$index] : false); - } - - public static function bitPerSampleLookup($index) { - static $lookup = array( - 0 => 16, - 1 => 20, - 2 => 24, - 3 => 24, - ); - return (isset($lookup[$index]) ? $lookup[$index] : false); - } - - public static function numChannelsLookup($index) { - switch ($index) { - case 0: - return 1; - break; - case 1: - case 2: - case 3: - case 4: - return 2; - break; - case 5: - case 6: - return 3; - break; - case 7: - case 8: - return 4; - break; - case 9: - return 5; - break; - case 10: - case 11: - case 12: - return 6; - break; - case 13: - return 7; - break; - case 14: - case 15: - return 8; - break; - } - return false; - } - - public static function channelArrangementLookup($index) { - static $lookup = array( - 0 => 'A', - 1 => 'A + B (dual mono)', - 2 => 'L + R (stereo)', - 3 => '(L+R) + (L-R) (sum-difference)', - 4 => 'LT + RT (left and right total)', - 5 => 'C + L + R', - 6 => 'L + R + S', - 7 => 'C + L + R + S', - 8 => 'L + R + SL + SR', - 9 => 'C + L + R + SL + SR', - 10 => 'CL + CR + L + R + SL + SR', - 11 => 'C + L + R+ LR + RR + OV', - 12 => 'CF + CR + LF + RF + LR + RR', - 13 => 'CL + C + CR + L + R + SL + SR', - 14 => 'CL + CR + L + R + SL1 + SL2 + SR1 + SR2', - 15 => 'CL + C+ CR + L + R + SL + S + SR', - ); - return (isset($lookup[$index]) ? $lookup[$index] : 'user-defined'); - } - - public static function dialogNormalization($index, $version) { - switch ($version) { - case 7: - return 0 - $index; - break; - case 6: - return 0 - 16 - $index; - break; - } - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.flac.php b/web/htdocs/media/lib/getid3/module.audio.flac.php deleted file mode 100644 index 6b9598c7417..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.flac.php +++ /dev/null @@ -1,442 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.flac.php // -// module for analyzing FLAC and OggFLAC audio files // -// dependencies: module.audio.ogg.php // -// /// -///////////////////////////////////////////////////////////////// - - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.ogg.php', __FILE__, true); - -/** -* @tutorial http://flac.sourceforge.net/format.html -*/ -class getid3_flac extends getid3_handler -{ - const syncword = 'fLaC'; - - public function Analyze() { - $info = &$this->getid3->info; - - $this->fseek($info['avdataoffset']); - $StreamMarker = $this->fread(4); - if ($StreamMarker != self::syncword) { - return $this->error('Expecting "'.getid3_lib::PrintHexBytes(self::syncword).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($StreamMarker).'"'); - } - $info['fileformat'] = 'flac'; - $info['audio']['dataformat'] = 'flac'; - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['lossless'] = true; - - // parse flac container - return $this->parseMETAdata(); - } - - public function parseMETAdata() { - $info = &$this->getid3->info; - do { - $BlockOffset = $this->ftell(); - $BlockHeader = $this->fread(4); - $LBFBT = getid3_lib::BigEndian2Int(substr($BlockHeader, 0, 1)); - $LastBlockFlag = (bool) ($LBFBT & 0x80); - $BlockType = ($LBFBT & 0x7F); - $BlockLength = getid3_lib::BigEndian2Int(substr($BlockHeader, 1, 3)); - $BlockTypeText = self::metaBlockTypeLookup($BlockType); - - if (($BlockOffset + 4 + $BlockLength) > $info['avdataend']) { - $this->error('METADATA_BLOCK_HEADER.BLOCK_TYPE ('.$BlockTypeText.') at offset '.$BlockOffset.' extends beyond end of file'); - break; - } - if ($BlockLength < 1) { - $this->error('METADATA_BLOCK_HEADER.BLOCK_LENGTH ('.$BlockLength.') at offset '.$BlockOffset.' is invalid'); - break; - } - - $info['flac'][$BlockTypeText]['raw'] = array(); - $BlockTypeText_raw = &$info['flac'][$BlockTypeText]['raw']; - - $BlockTypeText_raw['offset'] = $BlockOffset; - $BlockTypeText_raw['last_meta_block'] = $LastBlockFlag; - $BlockTypeText_raw['block_type'] = $BlockType; - $BlockTypeText_raw['block_type_text'] = $BlockTypeText; - $BlockTypeText_raw['block_length'] = $BlockLength; - if ($BlockTypeText_raw['block_type'] != 0x06) { // do not read attachment data automatically - $BlockTypeText_raw['block_data'] = $this->fread($BlockLength); - } - - switch ($BlockTypeText) { - case 'STREAMINFO': // 0x00 - if (!$this->parseSTREAMINFO($BlockTypeText_raw['block_data'])) { - return false; - } - break; - - case 'PADDING': // 0x01 - unset($info['flac']['PADDING']); // ignore - break; - - case 'APPLICATION': // 0x02 - if (!$this->parseAPPLICATION($BlockTypeText_raw['block_data'])) { - return false; - } - break; - - case 'SEEKTABLE': // 0x03 - if (!$this->parseSEEKTABLE($BlockTypeText_raw['block_data'])) { - return false; - } - break; - - case 'VORBIS_COMMENT': // 0x04 - if (!$this->parseVORBIS_COMMENT($BlockTypeText_raw['block_data'])) { - return false; - } - break; - - case 'CUESHEET': // 0x05 - if (!$this->parseCUESHEET($BlockTypeText_raw['block_data'])) { - return false; - } - break; - - case 'PICTURE': // 0x06 - if (!$this->parsePICTURE()) { - return false; - } - break; - - default: - $this->warning('Unhandled METADATA_BLOCK_HEADER.BLOCK_TYPE ('.$BlockType.') at offset '.$BlockOffset); - } - - unset($info['flac'][$BlockTypeText]['raw']); - $info['avdataoffset'] = $this->ftell(); - } - while ($LastBlockFlag === false); - - // handle tags - if (!empty($info['flac']['VORBIS_COMMENT']['comments'])) { - $info['flac']['comments'] = $info['flac']['VORBIS_COMMENT']['comments']; - } - if (!empty($info['flac']['VORBIS_COMMENT']['vendor'])) { - $info['audio']['encoder'] = str_replace('reference ', '', $info['flac']['VORBIS_COMMENT']['vendor']); - } - - // copy attachments to 'comments' array if nesesary - if (isset($info['flac']['PICTURE']) && ($this->getid3->option_save_attachments !== getID3::ATTACHMENTS_NONE)) { - foreach ($info['flac']['PICTURE'] as $entry) { - if (!empty($entry['data'])) { - $info['flac']['comments']['picture'][] = array('image_mime'=>$entry['image_mime'], 'data'=>$entry['data']); - } - } - } - - if (isset($info['flac']['STREAMINFO'])) { - if (!$this->isDependencyFor('matroska')) { - $info['flac']['compressed_audio_bytes'] = $info['avdataend'] - $info['avdataoffset']; - } - $info['flac']['uncompressed_audio_bytes'] = $info['flac']['STREAMINFO']['samples_stream'] * $info['flac']['STREAMINFO']['channels'] * ($info['flac']['STREAMINFO']['bits_per_sample'] / 8); - if ($info['flac']['uncompressed_audio_bytes'] == 0) { - return $this->error('Corrupt FLAC file: uncompressed_audio_bytes == zero'); - } - if (!empty($info['flac']['compressed_audio_bytes'])) { - $info['flac']['compression_ratio'] = $info['flac']['compressed_audio_bytes'] / $info['flac']['uncompressed_audio_bytes']; - } - } - - // set md5_data_source - built into flac 0.5+ - if (isset($info['flac']['STREAMINFO']['audio_signature'])) { - - if ($info['flac']['STREAMINFO']['audio_signature'] === str_repeat("\x00", 16)) { - $this->warning('FLAC STREAMINFO.audio_signature is null (known issue with libOggFLAC)'); - } - else { - $info['md5_data_source'] = ''; - $md5 = $info['flac']['STREAMINFO']['audio_signature']; - for ($i = 0; $i < strlen($md5); $i++) { - $info['md5_data_source'] .= str_pad(dechex(ord($md5[$i])), 2, '00', STR_PAD_LEFT); - } - if (!preg_match('/^[0-9a-f]{32}$/', $info['md5_data_source'])) { - unset($info['md5_data_source']); - } - } - } - - if (isset($info['flac']['STREAMINFO']['bits_per_sample'])) { - $info['audio']['bits_per_sample'] = $info['flac']['STREAMINFO']['bits_per_sample']; - if ($info['audio']['bits_per_sample'] == 8) { - // special case - // must invert sign bit on all data bytes before MD5'ing to match FLAC's calculated value - // MD5sum calculates on unsigned bytes, but FLAC calculated MD5 on 8-bit audio data as signed - $this->warning('FLAC calculates MD5 data strangely on 8-bit audio, so the stored md5_data_source value will not match the decoded WAV file'); - } - } - - return true; - } - - private function parseSTREAMINFO($BlockData) { - $info = &$this->getid3->info; - - $info['flac']['STREAMINFO'] = array(); - $streaminfo = &$info['flac']['STREAMINFO']; - - $streaminfo['min_block_size'] = getid3_lib::BigEndian2Int(substr($BlockData, 0, 2)); - $streaminfo['max_block_size'] = getid3_lib::BigEndian2Int(substr($BlockData, 2, 2)); - $streaminfo['min_frame_size'] = getid3_lib::BigEndian2Int(substr($BlockData, 4, 3)); - $streaminfo['max_frame_size'] = getid3_lib::BigEndian2Int(substr($BlockData, 7, 3)); - - $SRCSBSS = getid3_lib::BigEndian2Bin(substr($BlockData, 10, 8)); - $streaminfo['sample_rate'] = getid3_lib::Bin2Dec(substr($SRCSBSS, 0, 20)); - $streaminfo['channels'] = getid3_lib::Bin2Dec(substr($SRCSBSS, 20, 3)) + 1; - $streaminfo['bits_per_sample'] = getid3_lib::Bin2Dec(substr($SRCSBSS, 23, 5)) + 1; - $streaminfo['samples_stream'] = getid3_lib::Bin2Dec(substr($SRCSBSS, 28, 36)); - - $streaminfo['audio_signature'] = substr($BlockData, 18, 16); - - if (!empty($streaminfo['sample_rate'])) { - - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['sample_rate'] = $streaminfo['sample_rate']; - $info['audio']['channels'] = $streaminfo['channels']; - $info['audio']['bits_per_sample'] = $streaminfo['bits_per_sample']; - $info['playtime_seconds'] = $streaminfo['samples_stream'] / $streaminfo['sample_rate']; - if ($info['playtime_seconds'] > 0) { - if (!$this->isDependencyFor('matroska')) { - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - else { - $this->warning('Cannot determine audio bitrate because total stream size is unknown'); - } - } - - } else { - return $this->error('Corrupt METAdata block: STREAMINFO'); - } - - return true; - } - - private function parseAPPLICATION($BlockData) { - $info = &$this->getid3->info; - - $ApplicationID = getid3_lib::BigEndian2Int(substr($BlockData, 0, 4)); - $info['flac']['APPLICATION'][$ApplicationID]['name'] = self::applicationIDLookup($ApplicationID); - $info['flac']['APPLICATION'][$ApplicationID]['data'] = substr($BlockData, 4); - - return true; - } - - private function parseSEEKTABLE($BlockData) { - $info = &$this->getid3->info; - - $offset = 0; - $BlockLength = strlen($BlockData); - $placeholderpattern = str_repeat("\xFF", 8); - while ($offset < $BlockLength) { - $SampleNumberString = substr($BlockData, $offset, 8); - $offset += 8; - if ($SampleNumberString == $placeholderpattern) { - - // placeholder point - getid3_lib::safe_inc($info['flac']['SEEKTABLE']['placeholders'], 1); - $offset += 10; - - } else { - - $SampleNumber = getid3_lib::BigEndian2Int($SampleNumberString); - $info['flac']['SEEKTABLE'][$SampleNumber]['offset'] = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 8)); - $offset += 8; - $info['flac']['SEEKTABLE'][$SampleNumber]['samples'] = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 2)); - $offset += 2; - - } - } - - return true; - } - - private function parseVORBIS_COMMENT($BlockData) { - $info = &$this->getid3->info; - - $getid3_ogg = new getid3_ogg($this->getid3); - if ($this->isDependencyFor('matroska')) { - $getid3_ogg->setStringMode($this->data_string); - } - $getid3_ogg->ParseVorbisComments(); - if (isset($info['ogg'])) { - unset($info['ogg']['comments_raw']); - $info['flac']['VORBIS_COMMENT'] = $info['ogg']; - unset($info['ogg']); - } - - unset($getid3_ogg); - - return true; - } - - private function parseCUESHEET($BlockData) { - $info = &$this->getid3->info; - $offset = 0; - $info['flac']['CUESHEET']['media_catalog_number'] = trim(substr($BlockData, $offset, 128), "\0"); - $offset += 128; - $info['flac']['CUESHEET']['lead_in_samples'] = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 8)); - $offset += 8; - $info['flac']['CUESHEET']['flags']['is_cd'] = (bool) (getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)) & 0x80); - $offset += 1; - - $offset += 258; // reserved - - $info['flac']['CUESHEET']['number_tracks'] = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)); - $offset += 1; - - for ($track = 0; $track < $info['flac']['CUESHEET']['number_tracks']; $track++) { - $TrackSampleOffset = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 8)); - $offset += 8; - $TrackNumber = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)); - $offset += 1; - - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['sample_offset'] = $TrackSampleOffset; - - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['isrc'] = substr($BlockData, $offset, 12); - $offset += 12; - - $TrackFlagsRaw = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)); - $offset += 1; - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['flags']['is_audio'] = (bool) ($TrackFlagsRaw & 0x80); - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['flags']['pre_emphasis'] = (bool) ($TrackFlagsRaw & 0x40); - - $offset += 13; // reserved - - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['index_points'] = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)); - $offset += 1; - - for ($index = 0; $index < $info['flac']['CUESHEET']['tracks'][$TrackNumber]['index_points']; $index++) { - $IndexSampleOffset = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 8)); - $offset += 8; - $IndexNumber = getid3_lib::BigEndian2Int(substr($BlockData, $offset, 1)); - $offset += 1; - - $offset += 3; // reserved - - $info['flac']['CUESHEET']['tracks'][$TrackNumber]['indexes'][$IndexNumber] = $IndexSampleOffset; - } - } - - return true; - } - - /** - * Parse METADATA_BLOCK_PICTURE flac structure and extract attachment - * External usage: audio.ogg - */ - public function parsePICTURE() { - $info = &$this->getid3->info; - - $picture['typeid'] = getid3_lib::BigEndian2Int($this->fread(4)); - $picture['type'] = self::pictureTypeLookup($picture['typeid']); - $picture['image_mime'] = $this->fread(getid3_lib::BigEndian2Int($this->fread(4))); - $descr_length = getid3_lib::BigEndian2Int($this->fread(4)); - if ($descr_length) { - $picture['description'] = $this->fread($descr_length); - } - $picture['width'] = getid3_lib::BigEndian2Int($this->fread(4)); - $picture['height'] = getid3_lib::BigEndian2Int($this->fread(4)); - $picture['color_depth'] = getid3_lib::BigEndian2Int($this->fread(4)); - $picture['colors_indexed'] = getid3_lib::BigEndian2Int($this->fread(4)); - $data_length = getid3_lib::BigEndian2Int($this->fread(4)); - - if ($picture['image_mime'] == '-->') { - $picture['data'] = $this->fread($data_length); - } else { - $picture['data'] = $this->saveAttachment( - str_replace('/', '_', $picture['type']).'_'.$this->ftell(), - $this->ftell(), - $data_length, - $picture['image_mime']); - } - - $info['flac']['PICTURE'][] = $picture; - - return true; - } - - public static function metaBlockTypeLookup($blocktype) { - static $lookup = array( - 0 => 'STREAMINFO', - 1 => 'PADDING', - 2 => 'APPLICATION', - 3 => 'SEEKTABLE', - 4 => 'VORBIS_COMMENT', - 5 => 'CUESHEET', - 6 => 'PICTURE', - ); - return (isset($lookup[$blocktype]) ? $lookup[$blocktype] : 'reserved'); - } - - public static function applicationIDLookup($applicationid) { - // http://flac.sourceforge.net/id.html - static $lookup = array( - 0x41544348 => 'FlacFile', // "ATCH" - 0x42534F4C => 'beSolo', // "BSOL" - 0x42554753 => 'Bugs Player', // "BUGS" - 0x43756573 => 'GoldWave cue points (specification)', // "Cues" - 0x46696361 => 'CUE Splitter', // "Fica" - 0x46746F6C => 'flac-tools', // "Ftol" - 0x4D4F5442 => 'MOTB MetaCzar', // "MOTB" - 0x4D505345 => 'MP3 Stream Editor', // "MPSE" - 0x4D754D4C => 'MusicML: Music Metadata Language', // "MuML" - 0x52494646 => 'Sound Devices RIFF chunk storage', // "RIFF" - 0x5346464C => 'Sound Font FLAC', // "SFFL" - 0x534F4E59 => 'Sony Creative Software', // "SONY" - 0x5351455A => 'flacsqueeze', // "SQEZ" - 0x54745776 => 'TwistedWave', // "TtWv" - 0x55495453 => 'UITS Embedding tools', // "UITS" - 0x61696666 => 'FLAC AIFF chunk storage', // "aiff" - 0x696D6167 => 'flac-image application for storing arbitrary files in APPLICATION metadata blocks', // "imag" - 0x7065656D => 'Parseable Embedded Extensible Metadata (specification)', // "peem" - 0x71667374 => 'QFLAC Studio', // "qfst" - 0x72696666 => 'FLAC RIFF chunk storage', // "riff" - 0x74756E65 => 'TagTuner', // "tune" - 0x78626174 => 'XBAT', // "xbat" - 0x786D6364 => 'xmcd', // "xmcd" - ); - return (isset($lookup[$applicationid]) ? $lookup[$applicationid] : 'reserved'); - } - - public static function pictureTypeLookup($type_id) { - static $lookup = array ( - 0 => 'Other', - 1 => '32x32 pixels \'file icon\' (PNG only)', - 2 => 'Other file icon', - 3 => 'Cover (front)', - 4 => 'Cover (back)', - 5 => 'Leaflet page', - 6 => 'Media (e.g. label side of CD)', - 7 => 'Lead artist/lead performer/soloist', - 8 => 'Artist/performer', - 9 => 'Conductor', - 10 => 'Band/Orchestra', - 11 => 'Composer', - 12 => 'Lyricist/text writer', - 13 => 'Recording Location', - 14 => 'During recording', - 15 => 'During performance', - 16 => 'Movie/video screen capture', - 17 => 'A bright coloured fish', - 18 => 'Illustration', - 19 => 'Band/artist logotype', - 20 => 'Publisher/Studio logotype', - ); - return (isset($lookup[$type_id]) ? $lookup[$type_id] : 'reserved'); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.la.php b/web/htdocs/media/lib/getid3/module.audio.la.php deleted file mode 100644 index 4e4cf53c169..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.la.php +++ /dev/null @@ -1,225 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.la.php // -// module for analyzing LA (LosslessAudio) audio files // -// dependencies: module.audio.riff.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - -class getid3_la extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $offset = 0; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $rawdata = fread($this->getid3->fp, $this->getid3->fread_buffer_size()); - - switch (substr($rawdata, $offset, 4)) { - case 'LA02': - case 'LA03': - case 'LA04': - $info['fileformat'] = 'la'; - $info['audio']['dataformat'] = 'la'; - $info['audio']['lossless'] = true; - - $info['la']['version_major'] = (int) substr($rawdata, $offset + 2, 1); - $info['la']['version_minor'] = (int) substr($rawdata, $offset + 3, 1); - $info['la']['version'] = (float) $info['la']['version_major'] + ($info['la']['version_minor'] / 10); - $offset += 4; - - $info['la']['uncompressed_size'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - if ($info['la']['uncompressed_size'] == 0) { - $info['error'][] = 'Corrupt LA file: uncompressed_size == zero'; - return false; - } - - $WAVEchunk = substr($rawdata, $offset, 4); - if ($WAVEchunk !== 'WAVE') { - $info['error'][] = 'Expected "WAVE" ('.getid3_lib::PrintHexBytes('WAVE').') at offset '.$offset.', found "'.$WAVEchunk.'" ('.getid3_lib::PrintHexBytes($WAVEchunk).') instead.'; - return false; - } - $offset += 4; - - $info['la']['fmt_size'] = 24; - if ($info['la']['version'] >= 0.3) { - - $info['la']['fmt_size'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $info['la']['header_size'] = 49 + $info['la']['fmt_size'] - 24; - $offset += 4; - - } else { - - // version 0.2 didn't support additional data blocks - $info['la']['header_size'] = 41; - - } - - $fmt_chunk = substr($rawdata, $offset, 4); - if ($fmt_chunk !== 'fmt ') { - $info['error'][] = 'Expected "fmt " ('.getid3_lib::PrintHexBytes('fmt ').') at offset '.$offset.', found "'.$fmt_chunk.'" ('.getid3_lib::PrintHexBytes($fmt_chunk).') instead.'; - return false; - } - $offset += 4; - $fmt_size = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - - $info['la']['raw']['format'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 2)); - $offset += 2; - - $info['la']['channels'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 2)); - $offset += 2; - if ($info['la']['channels'] == 0) { - $info['error'][] = 'Corrupt LA file: channels == zero'; - return false; - } - - $info['la']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - if ($info['la']['sample_rate'] == 0) { - $info['error'][] = 'Corrupt LA file: sample_rate == zero'; - return false; - } - - $info['la']['bytes_per_second'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - $info['la']['bytes_per_sample'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 2)); - $offset += 2; - $info['la']['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 2)); - $offset += 2; - - $info['la']['samples'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - - $info['la']['raw']['flags'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 1)); - $offset += 1; - $info['la']['flags']['seekable'] = (bool) ($info['la']['raw']['flags'] & 0x01); - if ($info['la']['version'] >= 0.4) { - $info['la']['flags']['high_compression'] = (bool) ($info['la']['raw']['flags'] & 0x02); - } - - $info['la']['original_crc'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - - // mikeØbevin*de - // Basically, the blocksize/seekevery are 61440/19 in La0.4 and 73728/16 - // in earlier versions. A seekpoint is added every blocksize * seekevery - // samples, so 4 * int(totalSamples / (blockSize * seekEvery)) should - // give the number of bytes used for the seekpoints. Of course, if seeking - // is disabled, there are no seekpoints stored. - if ($info['la']['version'] >= 0.4) { - $info['la']['blocksize'] = 61440; - $info['la']['seekevery'] = 19; - } else { - $info['la']['blocksize'] = 73728; - $info['la']['seekevery'] = 16; - } - - $info['la']['seekpoint_count'] = 0; - if ($info['la']['flags']['seekable']) { - $info['la']['seekpoint_count'] = floor($info['la']['samples'] / ($info['la']['blocksize'] * $info['la']['seekevery'])); - - for ($i = 0; $i < $info['la']['seekpoint_count']; $i++) { - $info['la']['seekpoints'][] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - } - } - - if ($info['la']['version'] >= 0.3) { - - // Following the main header information, the program outputs all of the - // seekpoints. Following these is what I called the 'footer start', - // i.e. the position immediately after the La audio data is finished. - $info['la']['footerstart'] = getid3_lib::LittleEndian2Int(substr($rawdata, $offset, 4)); - $offset += 4; - - if ($info['la']['footerstart'] > $info['filesize']) { - $info['warning'][] = 'FooterStart value points to offset '.$info['la']['footerstart'].' which is beyond end-of-file ('.$info['filesize'].')'; - $info['la']['footerstart'] = $info['filesize']; - } - - } else { - - // La v0.2 didn't have FooterStart value - $info['la']['footerstart'] = $info['avdataend']; - - } - - if ($info['la']['footerstart'] < $info['avdataend']) { - if ($RIFFtempfilename = tempnam(GETID3_TEMP_DIR, 'id3')) { - if ($RIFF_fp = fopen($RIFFtempfilename, 'w+b')) { - $RIFFdata = 'WAVE'; - if ($info['la']['version'] == 0.2) { - $RIFFdata .= substr($rawdata, 12, 24); - } else { - $RIFFdata .= substr($rawdata, 16, 24); - } - if ($info['la']['footerstart'] < $info['avdataend']) { - fseek($this->getid3->fp, $info['la']['footerstart'], SEEK_SET); - $RIFFdata .= fread($this->getid3->fp, $info['avdataend'] - $info['la']['footerstart']); - } - $RIFFdata = 'RIFF'.getid3_lib::LittleEndian2String(strlen($RIFFdata), 4, false).$RIFFdata; - fwrite($RIFF_fp, $RIFFdata, strlen($RIFFdata)); - fclose($RIFF_fp); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($RIFFtempfilename); - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->Analyze(); - - if (empty($getid3_temp->info['error'])) { - $info['riff'] = $getid3_temp->info['riff']; - } else { - $info['warning'][] = 'Error parsing RIFF portion of La file: '.implode($getid3_temp->info['error']); - } - unset($getid3_temp, $getid3_riff); - } - unlink($RIFFtempfilename); - } - } - - // $info['avdataoffset'] should be zero to begin with, but just in case it's not, include the addition anyway - $info['avdataend'] = $info['avdataoffset'] + $info['la']['footerstart']; - $info['avdataoffset'] = $info['avdataoffset'] + $offset; - - $info['la']['compression_ratio'] = (float) (($info['avdataend'] - $info['avdataoffset']) / $info['la']['uncompressed_size']); - $info['playtime_seconds'] = (float) ($info['la']['samples'] / $info['la']['sample_rate']) / $info['la']['channels']; - if ($info['playtime_seconds'] == 0) { - $info['error'][] = 'Corrupt LA file: playtime_seconds == zero'; - return false; - } - - $info['audio']['bitrate'] = ($info['avdataend'] - $info['avdataoffset']) * 8 / $info['playtime_seconds']; - //$info['audio']['codec'] = $info['la']['codec']; - $info['audio']['bits_per_sample'] = $info['la']['bits_per_sample']; - break; - - default: - if (substr($rawdata, $offset, 2) == 'LA') { - $info['error'][] = 'This version of getID3() ['.$this->getid3->version().'] does not support LA version '.substr($rawdata, $offset + 2, 1).'.'.substr($rawdata, $offset + 3, 1).' which this appears to be - check http://getid3.sourceforge.net for updates.'; - } else { - $info['error'][] = 'Not a LA (Lossless-Audio) file'; - } - return false; - break; - } - - $info['audio']['channels'] = $info['la']['channels']; - $info['audio']['sample_rate'] = (int) $info['la']['sample_rate']; - $info['audio']['encoder'] = 'LA v'.$info['la']['version']; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.lpac.php b/web/htdocs/media/lib/getid3/module.audio.lpac.php deleted file mode 100644 index 3d45e0000fd..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.lpac.php +++ /dev/null @@ -1,127 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.lpac.php // -// module for analyzing LPAC Audio files // -// dependencies: module.audio-video.riff.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - -class getid3_lpac extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $LPACheader = fread($this->getid3->fp, 14); - if (substr($LPACheader, 0, 4) != 'LPAC') { - $info['error'][] = 'Expected "LPAC" at offset '.$info['avdataoffset'].', found "'.$StreamMarker.'"'; - return false; - } - $info['avdataoffset'] += 14; - - $info['fileformat'] = 'lpac'; - $info['audio']['dataformat'] = 'lpac'; - $info['audio']['lossless'] = true; - $info['audio']['bitrate_mode'] = 'vbr'; - - $info['lpac']['file_version'] = getid3_lib::BigEndian2Int(substr($LPACheader, 4, 1)); - $flags['audio_type'] = getid3_lib::BigEndian2Int(substr($LPACheader, 5, 1)); - $info['lpac']['total_samples']= getid3_lib::BigEndian2Int(substr($LPACheader, 6, 4)); - $flags['parameters'] = getid3_lib::BigEndian2Int(substr($LPACheader, 10, 4)); - - $info['lpac']['flags']['is_wave'] = (bool) ($flags['audio_type'] & 0x40); - $info['lpac']['flags']['stereo'] = (bool) ($flags['audio_type'] & 0x04); - $info['lpac']['flags']['24_bit'] = (bool) ($flags['audio_type'] & 0x02); - $info['lpac']['flags']['16_bit'] = (bool) ($flags['audio_type'] & 0x01); - - if ($info['lpac']['flags']['24_bit'] && $info['lpac']['flags']['16_bit']) { - $info['warning'][] = '24-bit and 16-bit flags cannot both be set'; - } - - $info['lpac']['flags']['fast_compress'] = (bool) ($flags['parameters'] & 0x40000000); - $info['lpac']['flags']['random_access'] = (bool) ($flags['parameters'] & 0x08000000); - $info['lpac']['block_length'] = pow(2, (($flags['parameters'] & 0x07000000) >> 24)) * 256; - $info['lpac']['flags']['adaptive_prediction_order'] = (bool) ($flags['parameters'] & 0x00800000); - $info['lpac']['flags']['adaptive_quantization'] = (bool) ($flags['parameters'] & 0x00400000); - $info['lpac']['flags']['joint_stereo'] = (bool) ($flags['parameters'] & 0x00040000); - $info['lpac']['quantization'] = ($flags['parameters'] & 0x00001F00) >> 8; - $info['lpac']['max_prediction_order'] = ($flags['parameters'] & 0x0000003F); - - if ($info['lpac']['flags']['fast_compress'] && ($info['lpac']['max_prediction_order'] != 3)) { - $info['warning'][] = 'max_prediction_order expected to be "3" if fast_compress is true, actual value is "'.$info['lpac']['max_prediction_order'].'"'; - } - switch ($info['lpac']['file_version']) { - case 6: - if ($info['lpac']['flags']['adaptive_quantization']) { - $info['warning'][] = 'adaptive_quantization expected to be false in LPAC file stucture v6, actually true'; - } - if ($info['lpac']['quantization'] != 20) { - $info['warning'][] = 'Quantization expected to be 20 in LPAC file stucture v6, actually '.$info['lpac']['flags']['Q']; - } - break; - - default: - //$info['warning'][] = 'This version of getID3() ['.$this->getid3->version().'] only supports LPAC file format version 6, this file is version '.$info['lpac']['file_version'].' - please report to info@getid3.org'; - break; - } - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info = $info; - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->Analyze(); - $info['avdataoffset'] = $getid3_temp->info['avdataoffset']; - $info['riff'] = $getid3_temp->info['riff']; - $info['error'] = $getid3_temp->info['error']; - $info['warning'] = $getid3_temp->info['warning']; - $info['lpac']['comments']['comment'] = $getid3_temp->info['comments']; - $info['audio']['sample_rate'] = $getid3_temp->info['audio']['sample_rate']; - unset($getid3_temp, $getid3_riff); - - $info['audio']['channels'] = ($info['lpac']['flags']['stereo'] ? 2 : 1); - - if ($info['lpac']['flags']['24_bit']) { - $info['audio']['bits_per_sample'] = $info['riff']['audio'][0]['bits_per_sample']; - } elseif ($info['lpac']['flags']['16_bit']) { - $info['audio']['bits_per_sample'] = 16; - } else { - $info['audio']['bits_per_sample'] = 8; - } - - if ($info['lpac']['flags']['fast_compress']) { - // fast - $info['audio']['encoder_options'] = '-1'; - } else { - switch ($info['lpac']['max_prediction_order']) { - case 20: // simple - $info['audio']['encoder_options'] = '-2'; - break; - case 30: // medium - $info['audio']['encoder_options'] = '-3'; - break; - case 40: // high - $info['audio']['encoder_options'] = '-4'; - break; - case 60: // extrahigh - $info['audio']['encoder_options'] = '-5'; - break; - } - } - - $info['playtime_seconds'] = $info['lpac']['total_samples'] / $info['audio']['sample_rate']; - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.midi.php b/web/htdocs/media/lib/getid3/module.audio.midi.php deleted file mode 100644 index 2ca258e70a0..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.midi.php +++ /dev/null @@ -1,529 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.midi.php // -// module for Midi Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - -define('GETID3_MIDI_MAGIC_MTHD', 'MThd'); // MIDI file header magic -define('GETID3_MIDI_MAGIC_MTRK', 'MTrk'); // MIDI track header magic - -class getid3_midi extends getid3_handler -{ - public $scanwholefile = true; - - public function Analyze() { - $info = &$this->getid3->info; - - // shortcut - $info['midi']['raw'] = array(); - $thisfile_midi = &$info['midi']; - $thisfile_midi_raw = &$thisfile_midi['raw']; - - $info['fileformat'] = 'midi'; - $info['audio']['dataformat'] = 'midi'; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $MIDIdata = fread($this->getid3->fp, $this->getid3->fread_buffer_size()); - $offset = 0; - $MIDIheaderID = substr($MIDIdata, $offset, 4); // 'MThd' - if ($MIDIheaderID != GETID3_MIDI_MAGIC_MTHD) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes(GETID3_MIDI_MAGIC_MTHD).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($MIDIheaderID).'"'; - unset($info['fileformat']); - return false; - } - $offset += 4; - $thisfile_midi_raw['headersize'] = getid3_lib::BigEndian2Int(substr($MIDIdata, $offset, 4)); - $offset += 4; - $thisfile_midi_raw['fileformat'] = getid3_lib::BigEndian2Int(substr($MIDIdata, $offset, 2)); - $offset += 2; - $thisfile_midi_raw['tracks'] = getid3_lib::BigEndian2Int(substr($MIDIdata, $offset, 2)); - $offset += 2; - $thisfile_midi_raw['ticksperqnote'] = getid3_lib::BigEndian2Int(substr($MIDIdata, $offset, 2)); - $offset += 2; - - for ($i = 0; $i < $thisfile_midi_raw['tracks']; $i++) { - while ((strlen($MIDIdata) - $offset) < 8) { - if ($buffer = fread($this->getid3->fp, $this->getid3->fread_buffer_size())) { - $MIDIdata .= $buffer; - } else { - $info['warning'][] = 'only processed '.($i - 1).' of '.$thisfile_midi_raw['tracks'].' tracks'; - $info['error'][] = 'Unabled to read more file data at '.ftell($this->getid3->fp).' (trying to seek to : '.$offset.'), was expecting at least 8 more bytes'; - return false; - } - } - $trackID = substr($MIDIdata, $offset, 4); - $offset += 4; - if ($trackID == GETID3_MIDI_MAGIC_MTRK) { - $tracksize = getid3_lib::BigEndian2Int(substr($MIDIdata, $offset, 4)); - $offset += 4; - //$thisfile_midi['tracks'][$i]['size'] = $tracksize; - $trackdataarray[$i] = substr($MIDIdata, $offset, $tracksize); - $offset += $tracksize; - } else { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes(GETID3_MIDI_MAGIC_MTRK).'" at '.($offset - 4).', found "'.getid3_lib::PrintHexBytes($trackID).'" instead'; - return false; - } - } - - if (!isset($trackdataarray) || !is_array($trackdataarray)) { - $info['error'][] = 'Cannot find MIDI track information'; - unset($thisfile_midi); - unset($info['fileformat']); - return false; - } - - if ($this->scanwholefile) { // this can take quite a long time, so have the option to bypass it if speed is very important - $thisfile_midi['totalticks'] = 0; - $info['playtime_seconds'] = 0; - $CurrentMicroSecondsPerBeat = 500000; // 120 beats per minute; 60,000,000 microseconds per minute -> 500,000 microseconds per beat - $CurrentBeatsPerMinute = 120; // 120 beats per minute; 60,000,000 microseconds per minute -> 500,000 microseconds per beat - $MicroSecondsPerQuarterNoteAfter = array (); - - foreach ($trackdataarray as $tracknumber => $trackdata) { - - $eventsoffset = 0; - $LastIssuedMIDIcommand = 0; - $LastIssuedMIDIchannel = 0; - $CumulativeDeltaTime = 0; - $TicksAtCurrentBPM = 0; - while ($eventsoffset < strlen($trackdata)) { - $eventid = 0; - if (isset($MIDIevents[$tracknumber]) && is_array($MIDIevents[$tracknumber])) { - $eventid = count($MIDIevents[$tracknumber]); - } - $deltatime = 0; - for ($i = 0; $i < 4; $i++) { - $deltatimebyte = ord(substr($trackdata, $eventsoffset++, 1)); - $deltatime = ($deltatime << 7) + ($deltatimebyte & 0x7F); - if ($deltatimebyte & 0x80) { - // another byte follows - } else { - break; - } - } - $CumulativeDeltaTime += $deltatime; - $TicksAtCurrentBPM += $deltatime; - $MIDIevents[$tracknumber][$eventid]['deltatime'] = $deltatime; - $MIDI_event_channel = ord(substr($trackdata, $eventsoffset++, 1)); - if ($MIDI_event_channel & 0x80) { - // OK, normal event - MIDI command has MSB set - $LastIssuedMIDIcommand = $MIDI_event_channel >> 4; - $LastIssuedMIDIchannel = $MIDI_event_channel & 0x0F; - } else { - // running event - assume last command - $eventsoffset--; - } - $MIDIevents[$tracknumber][$eventid]['eventid'] = $LastIssuedMIDIcommand; - $MIDIevents[$tracknumber][$eventid]['channel'] = $LastIssuedMIDIchannel; - if ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x08) { // Note off (key is released) - - $notenumber = ord(substr($trackdata, $eventsoffset++, 1)); - $velocity = ord(substr($trackdata, $eventsoffset++, 1)); - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x09) { // Note on (key is pressed) - - $notenumber = ord(substr($trackdata, $eventsoffset++, 1)); - $velocity = ord(substr($trackdata, $eventsoffset++, 1)); - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0A) { // Key after-touch - - $notenumber = ord(substr($trackdata, $eventsoffset++, 1)); - $velocity = ord(substr($trackdata, $eventsoffset++, 1)); - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0B) { // Control Change - - $controllernum = ord(substr($trackdata, $eventsoffset++, 1)); - $newvalue = ord(substr($trackdata, $eventsoffset++, 1)); - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0C) { // Program (patch) change - - $newprogramnum = ord(substr($trackdata, $eventsoffset++, 1)); - - $thisfile_midi_raw['track'][$tracknumber]['instrumentid'] = $newprogramnum; - if ($tracknumber == 10) { - $thisfile_midi_raw['track'][$tracknumber]['instrument'] = $this->GeneralMIDIpercussionLookup($newprogramnum); - } else { - $thisfile_midi_raw['track'][$tracknumber]['instrument'] = $this->GeneralMIDIinstrumentLookup($newprogramnum); - } - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0D) { // Channel after-touch - - $channelnumber = ord(substr($trackdata, $eventsoffset++, 1)); - - } elseif ($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0E) { // Pitch wheel change (2000H is normal or no change) - - $changeLSB = ord(substr($trackdata, $eventsoffset++, 1)); - $changeMSB = ord(substr($trackdata, $eventsoffset++, 1)); - $pitchwheelchange = (($changeMSB & 0x7F) << 7) & ($changeLSB & 0x7F); - - } elseif (($MIDIevents[$tracknumber][$eventid]['eventid'] == 0x0F) && ($MIDIevents[$tracknumber][$eventid]['channel'] == 0x0F)) { - - $METAeventCommand = ord(substr($trackdata, $eventsoffset++, 1)); - $METAeventLength = ord(substr($trackdata, $eventsoffset++, 1)); - $METAeventData = substr($trackdata, $eventsoffset, $METAeventLength); - $eventsoffset += $METAeventLength; - switch ($METAeventCommand) { - case 0x00: // Set track sequence number - $track_sequence_number = getid3_lib::BigEndian2Int(substr($METAeventData, 0, $METAeventLength)); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['seqno'] = $track_sequence_number; - break; - - case 0x01: // Text: generic - $text_generic = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['text'] = $text_generic; - $thisfile_midi['comments']['comment'][] = $text_generic; - break; - - case 0x02: // Text: copyright - $text_copyright = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['copyright'] = $text_copyright; - $thisfile_midi['comments']['copyright'][] = $text_copyright; - break; - - case 0x03: // Text: track name - $text_trackname = substr($METAeventData, 0, $METAeventLength); - $thisfile_midi_raw['track'][$tracknumber]['name'] = $text_trackname; - break; - - case 0x04: // Text: track instrument name - $text_instrument = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['instrument'] = $text_instrument; - break; - - case 0x05: // Text: lyrics - $text_lyrics = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['lyrics'] = $text_lyrics; - if (!isset($thisfile_midi['lyrics'])) { - $thisfile_midi['lyrics'] = ''; - } - $thisfile_midi['lyrics'] .= $text_lyrics."\n"; - break; - - case 0x06: // Text: marker - $text_marker = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['marker'] = $text_marker; - break; - - case 0x07: // Text: cue point - $text_cuepoint = substr($METAeventData, 0, $METAeventLength); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['cuepoint'] = $text_cuepoint; - break; - - case 0x2F: // End Of Track - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['EOT'] = $CumulativeDeltaTime; - break; - - case 0x51: // Tempo: microseconds / quarter note - $CurrentMicroSecondsPerBeat = getid3_lib::BigEndian2Int(substr($METAeventData, 0, $METAeventLength)); - if ($CurrentMicroSecondsPerBeat == 0) { - $info['error'][] = 'Corrupt MIDI file: CurrentMicroSecondsPerBeat == zero'; - return false; - } - $thisfile_midi_raw['events'][$tracknumber][$CumulativeDeltaTime]['us_qnote'] = $CurrentMicroSecondsPerBeat; - $CurrentBeatsPerMinute = (1000000 / $CurrentMicroSecondsPerBeat) * 60; - $MicroSecondsPerQuarterNoteAfter[$CumulativeDeltaTime] = $CurrentMicroSecondsPerBeat; - $TicksAtCurrentBPM = 0; - break; - - case 0x58: // Time signature - $timesig_numerator = getid3_lib::BigEndian2Int($METAeventData{0}); - $timesig_denominator = pow(2, getid3_lib::BigEndian2Int($METAeventData{1})); // $02 -> x/4, $03 -> x/8, etc - $timesig_32inqnote = getid3_lib::BigEndian2Int($METAeventData{2}); // number of 32nd notes to the quarter note - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['timesig_32inqnote'] = $timesig_32inqnote; - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['timesig_numerator'] = $timesig_numerator; - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['timesig_denominator'] = $timesig_denominator; - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['timesig_text'] = $timesig_numerator.'/'.$timesig_denominator; - $thisfile_midi['timesignature'][] = $timesig_numerator.'/'.$timesig_denominator; - break; - - case 0x59: // Keysignature - $keysig_sharpsflats = getid3_lib::BigEndian2Int($METAeventData{0}); - if ($keysig_sharpsflats & 0x80) { - // (-7 -> 7 flats, 0 ->key of C, 7 -> 7 sharps) - $keysig_sharpsflats -= 256; - } - - $keysig_majorminor = getid3_lib::BigEndian2Int($METAeventData{1}); // 0 -> major, 1 -> minor - $keysigs = array(-7=>'Cb', -6=>'Gb', -5=>'Db', -4=>'Ab', -3=>'Eb', -2=>'Bb', -1=>'F', 0=>'C', 1=>'G', 2=>'D', 3=>'A', 4=>'E', 5=>'B', 6=>'F#', 7=>'C#'); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['keysig_sharps'] = (($keysig_sharpsflats > 0) ? abs($keysig_sharpsflats) : 0); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['keysig_flats'] = (($keysig_sharpsflats < 0) ? abs($keysig_sharpsflats) : 0); - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['keysig_minor'] = (bool) $keysig_majorminor; - //$thisfile_midi_raw['events'][$tracknumber][$eventid]['keysig_text'] = $keysigs[$keysig_sharpsflats].' '.($thisfile_midi_raw['events'][$tracknumber][$eventid]['keysig_minor'] ? 'minor' : 'major'); - - // $keysigs[$keysig_sharpsflats] gets an int key (correct) - $keysigs["$keysig_sharpsflats"] gets a string key (incorrect) - $thisfile_midi['keysignature'][] = $keysigs[$keysig_sharpsflats].' '.((bool) $keysig_majorminor ? 'minor' : 'major'); - break; - - case 0x7F: // Sequencer specific information - $custom_data = substr($METAeventData, 0, $METAeventLength); - break; - - default: - $info['warning'][] = 'Unhandled META Event Command: '.$METAeventCommand; - break; - } - - } else { - - $info['warning'][] = 'Unhandled MIDI Event ID: '.$MIDIevents[$tracknumber][$eventid]['eventid'].' + Channel ID: '.$MIDIevents[$tracknumber][$eventid]['channel']; - - } - } - if (($tracknumber > 0) || (count($trackdataarray) == 1)) { - $thisfile_midi['totalticks'] = max($thisfile_midi['totalticks'], $CumulativeDeltaTime); - } - } - $previoustickoffset = null; - - ksort($MicroSecondsPerQuarterNoteAfter); - foreach ($MicroSecondsPerQuarterNoteAfter as $tickoffset => $microsecondsperbeat) { - if (is_null($previoustickoffset)) { - $prevmicrosecondsperbeat = $microsecondsperbeat; - $previoustickoffset = $tickoffset; - continue; - } - if ($thisfile_midi['totalticks'] > $tickoffset) { - - if ($thisfile_midi_raw['ticksperqnote'] == 0) { - $info['error'][] = 'Corrupt MIDI file: ticksperqnote == zero'; - return false; - } - - $info['playtime_seconds'] += (($tickoffset - $previoustickoffset) / $thisfile_midi_raw['ticksperqnote']) * ($prevmicrosecondsperbeat / 1000000); - - $prevmicrosecondsperbeat = $microsecondsperbeat; - $previoustickoffset = $tickoffset; - } - } - if ($thisfile_midi['totalticks'] > $previoustickoffset) { - - if ($thisfile_midi_raw['ticksperqnote'] == 0) { - $info['error'][] = 'Corrupt MIDI file: ticksperqnote == zero'; - return false; - } - - $info['playtime_seconds'] += (($thisfile_midi['totalticks'] - $previoustickoffset) / $thisfile_midi_raw['ticksperqnote']) * ($microsecondsperbeat / 1000000); - - } - } - - - if (!empty($info['playtime_seconds'])) { - $info['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - - if (!empty($thisfile_midi['lyrics'])) { - $thisfile_midi['comments']['lyrics'][] = $thisfile_midi['lyrics']; - } - - return true; - } - - public function GeneralMIDIinstrumentLookup($instrumentid) { - - $begin = __LINE__; - - /** This is not a comment! - - 0 Acoustic Grand - 1 Bright Acoustic - 2 Electric Grand - 3 Honky-Tonk - 4 Electric Piano 1 - 5 Electric Piano 2 - 6 Harpsichord - 7 Clavier - 8 Celesta - 9 Glockenspiel - 10 Music Box - 11 Vibraphone - 12 Marimba - 13 Xylophone - 14 Tubular Bells - 15 Dulcimer - 16 Drawbar Organ - 17 Percussive Organ - 18 Rock Organ - 19 Church Organ - 20 Reed Organ - 21 Accordian - 22 Harmonica - 23 Tango Accordian - 24 Acoustic Guitar (nylon) - 25 Acoustic Guitar (steel) - 26 Electric Guitar (jazz) - 27 Electric Guitar (clean) - 28 Electric Guitar (muted) - 29 Overdriven Guitar - 30 Distortion Guitar - 31 Guitar Harmonics - 32 Acoustic Bass - 33 Electric Bass (finger) - 34 Electric Bass (pick) - 35 Fretless Bass - 36 Slap Bass 1 - 37 Slap Bass 2 - 38 Synth Bass 1 - 39 Synth Bass 2 - 40 Violin - 41 Viola - 42 Cello - 43 Contrabass - 44 Tremolo Strings - 45 Pizzicato Strings - 46 Orchestral Strings - 47 Timpani - 48 String Ensemble 1 - 49 String Ensemble 2 - 50 SynthStrings 1 - 51 SynthStrings 2 - 52 Choir Aahs - 53 Voice Oohs - 54 Synth Voice - 55 Orchestra Hit - 56 Trumpet - 57 Trombone - 58 Tuba - 59 Muted Trumpet - 60 French Horn - 61 Brass Section - 62 SynthBrass 1 - 63 SynthBrass 2 - 64 Soprano Sax - 65 Alto Sax - 66 Tenor Sax - 67 Baritone Sax - 68 Oboe - 69 English Horn - 70 Bassoon - 71 Clarinet - 72 Piccolo - 73 Flute - 74 Recorder - 75 Pan Flute - 76 Blown Bottle - 77 Shakuhachi - 78 Whistle - 79 Ocarina - 80 Lead 1 (square) - 81 Lead 2 (sawtooth) - 82 Lead 3 (calliope) - 83 Lead 4 (chiff) - 84 Lead 5 (charang) - 85 Lead 6 (voice) - 86 Lead 7 (fifths) - 87 Lead 8 (bass + lead) - 88 Pad 1 (new age) - 89 Pad 2 (warm) - 90 Pad 3 (polysynth) - 91 Pad 4 (choir) - 92 Pad 5 (bowed) - 93 Pad 6 (metallic) - 94 Pad 7 (halo) - 95 Pad 8 (sweep) - 96 FX 1 (rain) - 97 FX 2 (soundtrack) - 98 FX 3 (crystal) - 99 FX 4 (atmosphere) - 100 FX 5 (brightness) - 101 FX 6 (goblins) - 102 FX 7 (echoes) - 103 FX 8 (sci-fi) - 104 Sitar - 105 Banjo - 106 Shamisen - 107 Koto - 108 Kalimba - 109 Bagpipe - 110 Fiddle - 111 Shanai - 112 Tinkle Bell - 113 Agogo - 114 Steel Drums - 115 Woodblock - 116 Taiko Drum - 117 Melodic Tom - 118 Synth Drum - 119 Reverse Cymbal - 120 Guitar Fret Noise - 121 Breath Noise - 122 Seashore - 123 Bird Tweet - 124 Telephone Ring - 125 Helicopter - 126 Applause - 127 Gunshot - - */ - - return getid3_lib::EmbeddedLookup($instrumentid, $begin, __LINE__, __FILE__, 'GeneralMIDIinstrument'); - } - - public function GeneralMIDIpercussionLookup($instrumentid) { - - $begin = __LINE__; - - /** This is not a comment! - - 35 Acoustic Bass Drum - 36 Bass Drum 1 - 37 Side Stick - 38 Acoustic Snare - 39 Hand Clap - 40 Electric Snare - 41 Low Floor Tom - 42 Closed Hi-Hat - 43 High Floor Tom - 44 Pedal Hi-Hat - 45 Low Tom - 46 Open Hi-Hat - 47 Low-Mid Tom - 48 Hi-Mid Tom - 49 Crash Cymbal 1 - 50 High Tom - 51 Ride Cymbal 1 - 52 Chinese Cymbal - 53 Ride Bell - 54 Tambourine - 55 Splash Cymbal - 56 Cowbell - 57 Crash Cymbal 2 - 59 Ride Cymbal 2 - 60 Hi Bongo - 61 Low Bongo - 62 Mute Hi Conga - 63 Open Hi Conga - 64 Low Conga - 65 High Timbale - 66 Low Timbale - 67 High Agogo - 68 Low Agogo - 69 Cabasa - 70 Maracas - 71 Short Whistle - 72 Long Whistle - 73 Short Guiro - 74 Long Guiro - 75 Claves - 76 Hi Wood Block - 77 Low Wood Block - 78 Mute Cuica - 79 Open Cuica - 80 Mute Triangle - 81 Open Triangle - - */ - - return getid3_lib::EmbeddedLookup($instrumentid, $begin, __LINE__, __FILE__, 'GeneralMIDIpercussion'); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.mod.php b/web/htdocs/media/lib/getid3/module.audio.mod.php deleted file mode 100644 index 3bed8586c03..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.mod.php +++ /dev/null @@ -1,98 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.mod.php // -// module for analyzing MOD Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_mod extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $fileheader = fread($this->getid3->fp, 1088); - if (preg_match('#^IMPM#', $fileheader)) { - return $this->getITheaderFilepointer(); - } elseif (preg_match('#^Extended Module#', $fileheader)) { - return $this->getXMheaderFilepointer(); - } elseif (preg_match('#^.{44}SCRM#', $fileheader)) { - return $this->getS3MheaderFilepointer(); - } elseif (preg_match('#^.{1080}(M\\.K\\.|M!K!|FLT4|FLT8|[5-9]CHN|[1-3][0-9]CH)#', $fileheader)) { - return $this->getMODheaderFilepointer(); - } - $info['error'][] = 'This is not a known type of MOD file'; - return false; - } - - - public function getMODheaderFilepointer() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'] + 1080); - $FormatID = fread($this->getid3->fp, 4); - if (!preg_match('#^(M.K.|[5-9]CHN|[1-3][0-9]CH)$#', $FormatID)) { - $info['error'][] = 'This is not a known type of MOD file'; - return false; - } - - $info['fileformat'] = 'mod'; - - $info['error'][] = 'MOD parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; - return false; - } - - public function getXMheaderFilepointer() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset']); - $FormatID = fread($this->getid3->fp, 15); - if (!preg_match('#^Extended Module$#', $FormatID)) { - $info['error'][] = 'This is not a known type of XM-MOD file'; - return false; - } - - $info['fileformat'] = 'xm'; - - $info['error'][] = 'XM-MOD parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; - return false; - } - - public function getS3MheaderFilepointer() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'] + 44); - $FormatID = fread($this->getid3->fp, 4); - if (!preg_match('#^SCRM$#', $FormatID)) { - $info['error'][] = 'This is not a ScreamTracker MOD file'; - return false; - } - - $info['fileformat'] = 's3m'; - - $info['error'][] = 'ScreamTracker parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; - return false; - } - - public function getITheaderFilepointer() { - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset']); - $FormatID = fread($this->getid3->fp, 4); - if (!preg_match('#^IMPM$#', $FormatID)) { - $info['error'][] = 'This is not an ImpulseTracker MOD file'; - return false; - } - - $info['fileformat'] = 'it'; - - $info['error'][] = 'ImpulseTracker parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.monkey.php b/web/htdocs/media/lib/getid3/module.audio.monkey.php deleted file mode 100644 index 941a0b3e6ef..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.monkey.php +++ /dev/null @@ -1,203 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.monkey.php // -// module for analyzing Monkey's Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_monkey extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - // based loosely on code from TMonkey by Jurgen Faul - // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html - - $info['fileformat'] = 'mac'; - $info['audio']['dataformat'] = 'mac'; - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['lossless'] = true; - - $info['monkeys_audio']['raw'] = array(); - $thisfile_monkeysaudio = &$info['monkeys_audio']; - $thisfile_monkeysaudio_raw = &$thisfile_monkeysaudio['raw']; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $MACheaderData = fread($this->getid3->fp, 74); - - $thisfile_monkeysaudio_raw['magic'] = substr($MACheaderData, 0, 4); - $magic = 'MAC '; - if ($thisfile_monkeysaudio_raw['magic'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($thisfile_monkeysaudio_raw['magic']).'"'; - unset($info['fileformat']); - return false; - } - $thisfile_monkeysaudio_raw['nVersion'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 4, 2)); // appears to be uint32 in 3.98+ - - if ($thisfile_monkeysaudio_raw['nVersion'] < 3980) { - $thisfile_monkeysaudio_raw['nCompressionLevel'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 6, 2)); - $thisfile_monkeysaudio_raw['nFormatFlags'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 8, 2)); - $thisfile_monkeysaudio_raw['nChannels'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 10, 2)); - $thisfile_monkeysaudio_raw['nSampleRate'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 12, 4)); - $thisfile_monkeysaudio_raw['nHeaderDataBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 16, 4)); - $thisfile_monkeysaudio_raw['nWAVTerminatingBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 20, 4)); - $thisfile_monkeysaudio_raw['nTotalFrames'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 24, 4)); - $thisfile_monkeysaudio_raw['nFinalFrameSamples'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 28, 4)); - $thisfile_monkeysaudio_raw['nPeakLevel'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 32, 4)); - $thisfile_monkeysaudio_raw['nSeekElements'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, 38, 2)); - $offset = 8; - } else { - $offset = 8; - // APE_DESCRIPTOR - $thisfile_monkeysaudio_raw['nDescriptorBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nHeaderBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nSeekTableBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nHeaderDataBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nAPEFrameDataBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nAPEFrameDataBytesHigh'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nTerminatingDataBytes'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['cFileMD5'] = substr($MACheaderData, $offset, 16); - $offset += 16; - - // APE_HEADER - $thisfile_monkeysaudio_raw['nCompressionLevel'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 2)); - $offset += 2; - $thisfile_monkeysaudio_raw['nFormatFlags'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 2)); - $offset += 2; - $thisfile_monkeysaudio_raw['nBlocksPerFrame'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nFinalFrameBlocks'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nTotalFrames'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - $thisfile_monkeysaudio_raw['nBitsPerSample'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 2)); - $offset += 2; - $thisfile_monkeysaudio_raw['nChannels'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 2)); - $offset += 2; - $thisfile_monkeysaudio_raw['nSampleRate'] = getid3_lib::LittleEndian2Int(substr($MACheaderData, $offset, 4)); - $offset += 4; - } - - $thisfile_monkeysaudio['flags']['8-bit'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0001); - $thisfile_monkeysaudio['flags']['crc-32'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0002); - $thisfile_monkeysaudio['flags']['peak_level'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0004); - $thisfile_monkeysaudio['flags']['24-bit'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0008); - $thisfile_monkeysaudio['flags']['seek_elements'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0010); - $thisfile_monkeysaudio['flags']['no_wav_header'] = (bool) ($thisfile_monkeysaudio_raw['nFormatFlags'] & 0x0020); - $thisfile_monkeysaudio['version'] = $thisfile_monkeysaudio_raw['nVersion'] / 1000; - $thisfile_monkeysaudio['compression'] = $this->MonkeyCompressionLevelNameLookup($thisfile_monkeysaudio_raw['nCompressionLevel']); - if ($thisfile_monkeysaudio_raw['nVersion'] < 3980) { - $thisfile_monkeysaudio['samples_per_frame'] = $this->MonkeySamplesPerFrame($thisfile_monkeysaudio_raw['nVersion'], $thisfile_monkeysaudio_raw['nCompressionLevel']); - } - $thisfile_monkeysaudio['bits_per_sample'] = ($thisfile_monkeysaudio['flags']['24-bit'] ? 24 : ($thisfile_monkeysaudio['flags']['8-bit'] ? 8 : 16)); - $thisfile_monkeysaudio['channels'] = $thisfile_monkeysaudio_raw['nChannels']; - $info['audio']['channels'] = $thisfile_monkeysaudio['channels']; - $thisfile_monkeysaudio['sample_rate'] = $thisfile_monkeysaudio_raw['nSampleRate']; - if ($thisfile_monkeysaudio['sample_rate'] == 0) { - $info['error'][] = 'Corrupt MAC file: frequency == zero'; - return false; - } - $info['audio']['sample_rate'] = $thisfile_monkeysaudio['sample_rate']; - if ($thisfile_monkeysaudio['flags']['peak_level']) { - $thisfile_monkeysaudio['peak_level'] = $thisfile_monkeysaudio_raw['nPeakLevel']; - $thisfile_monkeysaudio['peak_ratio'] = $thisfile_monkeysaudio['peak_level'] / pow(2, $thisfile_monkeysaudio['bits_per_sample'] - 1); - } - if ($thisfile_monkeysaudio_raw['nVersion'] >= 3980) { - $thisfile_monkeysaudio['samples'] = (($thisfile_monkeysaudio_raw['nTotalFrames'] - 1) * $thisfile_monkeysaudio_raw['nBlocksPerFrame']) + $thisfile_monkeysaudio_raw['nFinalFrameBlocks']; - } else { - $thisfile_monkeysaudio['samples'] = (($thisfile_monkeysaudio_raw['nTotalFrames'] - 1) * $thisfile_monkeysaudio['samples_per_frame']) + $thisfile_monkeysaudio_raw['nFinalFrameSamples']; - } - $thisfile_monkeysaudio['playtime'] = $thisfile_monkeysaudio['samples'] / $thisfile_monkeysaudio['sample_rate']; - if ($thisfile_monkeysaudio['playtime'] == 0) { - $info['error'][] = 'Corrupt MAC file: playtime == zero'; - return false; - } - $info['playtime_seconds'] = $thisfile_monkeysaudio['playtime']; - $thisfile_monkeysaudio['compressed_size'] = $info['avdataend'] - $info['avdataoffset']; - $thisfile_monkeysaudio['uncompressed_size'] = $thisfile_monkeysaudio['samples'] * $thisfile_monkeysaudio['channels'] * ($thisfile_monkeysaudio['bits_per_sample'] / 8); - if ($thisfile_monkeysaudio['uncompressed_size'] == 0) { - $info['error'][] = 'Corrupt MAC file: uncompressed_size == zero'; - return false; - } - $thisfile_monkeysaudio['compression_ratio'] = $thisfile_monkeysaudio['compressed_size'] / ($thisfile_monkeysaudio['uncompressed_size'] + $thisfile_monkeysaudio_raw['nHeaderDataBytes']); - $thisfile_monkeysaudio['bitrate'] = (($thisfile_monkeysaudio['samples'] * $thisfile_monkeysaudio['channels'] * $thisfile_monkeysaudio['bits_per_sample']) / $thisfile_monkeysaudio['playtime']) * $thisfile_monkeysaudio['compression_ratio']; - $info['audio']['bitrate'] = $thisfile_monkeysaudio['bitrate']; - - // add size of MAC header to avdataoffset - if ($thisfile_monkeysaudio_raw['nVersion'] >= 3980) { - $info['avdataoffset'] += $thisfile_monkeysaudio_raw['nDescriptorBytes']; - $info['avdataoffset'] += $thisfile_monkeysaudio_raw['nHeaderBytes']; - $info['avdataoffset'] += $thisfile_monkeysaudio_raw['nSeekTableBytes']; - $info['avdataoffset'] += $thisfile_monkeysaudio_raw['nHeaderDataBytes']; - - $info['avdataend'] -= $thisfile_monkeysaudio_raw['nTerminatingDataBytes']; - } else { - $info['avdataoffset'] += $offset; - } - - if ($thisfile_monkeysaudio_raw['nVersion'] >= 3980) { - if ($thisfile_monkeysaudio_raw['cFileMD5'] === str_repeat("\x00", 16)) { - //$info['warning'][] = 'cFileMD5 is null'; - } else { - $info['md5_data_source'] = ''; - $md5 = $thisfile_monkeysaudio_raw['cFileMD5']; - for ($i = 0; $i < strlen($md5); $i++) { - $info['md5_data_source'] .= str_pad(dechex(ord($md5{$i})), 2, '00', STR_PAD_LEFT); - } - if (!preg_match('/^[0-9a-f]{32}$/', $info['md5_data_source'])) { - unset($info['md5_data_source']); - } - } - } - - - - $info['audio']['bits_per_sample'] = $thisfile_monkeysaudio['bits_per_sample']; - $info['audio']['encoder'] = 'MAC v'.number_format($thisfile_monkeysaudio['version'], 2); - $info['audio']['encoder_options'] = ucfirst($thisfile_monkeysaudio['compression']).' compression'; - - return true; - } - - public function MonkeyCompressionLevelNameLookup($compressionlevel) { - static $MonkeyCompressionLevelNameLookup = array( - 0 => 'unknown', - 1000 => 'fast', - 2000 => 'normal', - 3000 => 'high', - 4000 => 'extra-high', - 5000 => 'insane' - ); - return (isset($MonkeyCompressionLevelNameLookup[$compressionlevel]) ? $MonkeyCompressionLevelNameLookup[$compressionlevel] : 'invalid'); - } - - public function MonkeySamplesPerFrame($versionid, $compressionlevel) { - if ($versionid >= 3950) { - return 73728 * 4; - } elseif ($versionid >= 3900) { - return 73728; - } elseif (($versionid >= 3800) && ($compressionlevel == 4000)) { - return 73728; - } else { - return 9216; - } - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.mp3.php b/web/htdocs/media/lib/getid3/module.audio.mp3.php deleted file mode 100644 index e6ffea947b3..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.mp3.php +++ /dev/null @@ -1,2009 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.mp3.php // -// module for analyzing MP3 files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -// number of frames to scan to determine if MPEG-audio sequence is valid -// Lower this number to 5-20 for faster scanning -// Increase this number to 50+ for most accurate detection of valid VBR/CBR -// mpeg-audio streams -define('GETID3_MP3_VALID_CHECK_FRAMES', 35); - - -class getid3_mp3 extends getid3_handler -{ - - public $allow_bruteforce = false; // forces getID3() to scan the file byte-by-byte and log all the valid audio frame headers - extremely slow, unrecommended, but may provide data from otherwise-unusuable files - - public function Analyze() { - $info = &$this->getid3->info; - - $initialOffset = $info['avdataoffset']; - - if (!$this->getOnlyMPEGaudioInfo($info['avdataoffset'])) { - if ($this->allow_bruteforce) { - $info['error'][] = 'Rescanning file in BruteForce mode'; - $this->getOnlyMPEGaudioInfoBruteForce($this->getid3->fp, $info); - } - } - - - if (isset($info['mpeg']['audio']['bitrate_mode'])) { - $info['audio']['bitrate_mode'] = strtolower($info['mpeg']['audio']['bitrate_mode']); - } - - if (((isset($info['id3v2']['headerlength']) && ($info['avdataoffset'] > $info['id3v2']['headerlength'])) || (!isset($info['id3v2']) && ($info['avdataoffset'] > 0) && ($info['avdataoffset'] != $initialOffset)))) { - - $synchoffsetwarning = 'Unknown data before synch '; - if (isset($info['id3v2']['headerlength'])) { - $synchoffsetwarning .= '(ID3v2 header ends at '.$info['id3v2']['headerlength'].', then '.($info['avdataoffset'] - $info['id3v2']['headerlength']).' bytes garbage, '; - } elseif ($initialOffset > 0) { - $synchoffsetwarning .= '(should be at '.$initialOffset.', '; - } else { - $synchoffsetwarning .= '(should be at beginning of file, '; - } - $synchoffsetwarning .= 'synch detected at '.$info['avdataoffset'].')'; - if (isset($info['audio']['bitrate_mode']) && ($info['audio']['bitrate_mode'] == 'cbr')) { - - if (!empty($info['id3v2']['headerlength']) && (($info['avdataoffset'] - $info['id3v2']['headerlength']) == $info['mpeg']['audio']['framelength'])) { - - $synchoffsetwarning .= '. This is a known problem with some versions of LAME (3.90-3.92) DLL in CBR mode.'; - $info['audio']['codec'] = 'LAME'; - $CurrentDataLAMEversionString = 'LAME3.'; - - } elseif (empty($info['id3v2']['headerlength']) && ($info['avdataoffset'] == $info['mpeg']['audio']['framelength'])) { - - $synchoffsetwarning .= '. This is a known problem with some versions of LAME (3.90 - 3.92) DLL in CBR mode.'; - $info['audio']['codec'] = 'LAME'; - $CurrentDataLAMEversionString = 'LAME3.'; - - } - - } - $info['warning'][] = $synchoffsetwarning; - - } - - if (isset($info['mpeg']['audio']['LAME'])) { - $info['audio']['codec'] = 'LAME'; - if (!empty($info['mpeg']['audio']['LAME']['long_version'])) { - $info['audio']['encoder'] = rtrim($info['mpeg']['audio']['LAME']['long_version'], "\x00"); - } elseif (!empty($info['mpeg']['audio']['LAME']['short_version'])) { - $info['audio']['encoder'] = rtrim($info['mpeg']['audio']['LAME']['short_version'], "\x00"); - } - } - - $CurrentDataLAMEversionString = (!empty($CurrentDataLAMEversionString) ? $CurrentDataLAMEversionString : (isset($info['audio']['encoder']) ? $info['audio']['encoder'] : '')); - if (!empty($CurrentDataLAMEversionString) && (substr($CurrentDataLAMEversionString, 0, 6) == 'LAME3.') && !preg_match('[0-9\)]', substr($CurrentDataLAMEversionString, -1))) { - // a version number of LAME that does not end with a number like "LAME3.92" - // or with a closing parenthesis like "LAME3.88 (alpha)" - // or a version of LAME with the LAMEtag-not-filled-in-DLL-mode bug (3.90-3.92) - - // not sure what the actual last frame length will be, but will be less than or equal to 1441 - $PossiblyLongerLAMEversion_FrameLength = 1441; - - // Not sure what version of LAME this is - look in padding of last frame for longer version string - $PossibleLAMEversionStringOffset = $info['avdataend'] - $PossiblyLongerLAMEversion_FrameLength; - fseek($this->getid3->fp, $PossibleLAMEversionStringOffset); - $PossiblyLongerLAMEversion_Data = fread($this->getid3->fp, $PossiblyLongerLAMEversion_FrameLength); - switch (substr($CurrentDataLAMEversionString, -1)) { - case 'a': - case 'b': - // "LAME3.94a" will have a longer version string of "LAME3.94 (alpha)" for example - // need to trim off "a" to match longer string - $CurrentDataLAMEversionString = substr($CurrentDataLAMEversionString, 0, -1); - break; - } - if (($PossiblyLongerLAMEversion_String = strstr($PossiblyLongerLAMEversion_Data, $CurrentDataLAMEversionString)) !== false) { - if (substr($PossiblyLongerLAMEversion_String, 0, strlen($CurrentDataLAMEversionString)) == $CurrentDataLAMEversionString) { - $PossiblyLongerLAMEversion_NewString = substr($PossiblyLongerLAMEversion_String, 0, strspn($PossiblyLongerLAMEversion_String, 'LAME0123456789., (abcdefghijklmnopqrstuvwxyzJFSOND)')); //"LAME3.90.3" "LAME3.87 (beta 1, Sep 27 2000)" "LAME3.88 (beta)" - if (empty($info['audio']['encoder']) || (strlen($PossiblyLongerLAMEversion_NewString) > strlen($info['audio']['encoder']))) { - $info['audio']['encoder'] = $PossiblyLongerLAMEversion_NewString; - } - } - } - } - if (!empty($info['audio']['encoder'])) { - $info['audio']['encoder'] = rtrim($info['audio']['encoder'], "\x00 "); - } - - switch (isset($info['mpeg']['audio']['layer']) ? $info['mpeg']['audio']['layer'] : '') { - case 1: - case 2: - $info['audio']['dataformat'] = 'mp'.$info['mpeg']['audio']['layer']; - break; - } - if (isset($info['fileformat']) && ($info['fileformat'] == 'mp3')) { - switch ($info['audio']['dataformat']) { - case 'mp1': - case 'mp2': - case 'mp3': - $info['fileformat'] = $info['audio']['dataformat']; - break; - - default: - $info['warning'][] = 'Expecting [audio][dataformat] to be mp1/mp2/mp3 when fileformat == mp3, [audio][dataformat] actually "'.$info['audio']['dataformat'].'"'; - break; - } - } - - if (empty($info['fileformat'])) { - unset($info['fileformat']); - unset($info['audio']['bitrate_mode']); - unset($info['avdataoffset']); - unset($info['avdataend']); - return false; - } - - $info['mime_type'] = 'audio/mpeg'; - $info['audio']['lossless'] = false; - - // Calculate playtime - if (!isset($info['playtime_seconds']) && isset($info['audio']['bitrate']) && ($info['audio']['bitrate'] > 0)) { - $info['playtime_seconds'] = ($info['avdataend'] - $info['avdataoffset']) * 8 / $info['audio']['bitrate']; - } - - $info['audio']['encoder_options'] = $this->GuessEncoderOptions(); - - return true; - } - - - public function GuessEncoderOptions() { - // shortcuts - $info = &$this->getid3->info; - if (!empty($info['mpeg']['audio'])) { - $thisfile_mpeg_audio = &$info['mpeg']['audio']; - if (!empty($thisfile_mpeg_audio['LAME'])) { - $thisfile_mpeg_audio_lame = &$thisfile_mpeg_audio['LAME']; - } - } - - $encoder_options = ''; - static $NamedPresetBitrates = array(16, 24, 40, 56, 112, 128, 160, 192, 256); - - if (isset($thisfile_mpeg_audio['VBR_method']) && ($thisfile_mpeg_audio['VBR_method'] == 'Fraunhofer') && !empty($thisfile_mpeg_audio['VBR_quality'])) { - - $encoder_options = 'VBR q'.$thisfile_mpeg_audio['VBR_quality']; - - } elseif (!empty($thisfile_mpeg_audio_lame['preset_used']) && (!in_array($thisfile_mpeg_audio_lame['preset_used_id'], $NamedPresetBitrates))) { - - $encoder_options = $thisfile_mpeg_audio_lame['preset_used']; - - } elseif (!empty($thisfile_mpeg_audio_lame['vbr_quality'])) { - - static $KnownEncoderValues = array(); - if (empty($KnownEncoderValues)) { - - //$KnownEncoderValues[abrbitrate_minbitrate][vbr_quality][raw_vbr_method][raw_noise_shaping][raw_stereo_mode][ath_type][lowpass_frequency] = 'preset name'; - $KnownEncoderValues[0xFF][58][1][1][3][2][20500] = '--alt-preset insane'; // 3.90, 3.90.1, 3.92 - $KnownEncoderValues[0xFF][58][1][1][3][2][20600] = '--alt-preset insane'; // 3.90.2, 3.90.3, 3.91 - $KnownEncoderValues[0xFF][57][1][1][3][4][20500] = '--alt-preset insane'; // 3.94, 3.95 - $KnownEncoderValues['**'][78][3][2][3][2][19500] = '--alt-preset extreme'; // 3.90, 3.90.1, 3.92 - $KnownEncoderValues['**'][78][3][2][3][2][19600] = '--alt-preset extreme'; // 3.90.2, 3.91 - $KnownEncoderValues['**'][78][3][1][3][2][19600] = '--alt-preset extreme'; // 3.90.3 - $KnownEncoderValues['**'][78][4][2][3][2][19500] = '--alt-preset fast extreme'; // 3.90, 3.90.1, 3.92 - $KnownEncoderValues['**'][78][4][2][3][2][19600] = '--alt-preset fast extreme'; // 3.90.2, 3.90.3, 3.91 - $KnownEncoderValues['**'][78][3][2][3][4][19000] = '--alt-preset standard'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues['**'][78][3][1][3][4][19000] = '--alt-preset standard'; // 3.90.3 - $KnownEncoderValues['**'][78][4][2][3][4][19000] = '--alt-preset fast standard'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues['**'][78][4][1][3][4][19000] = '--alt-preset fast standard'; // 3.90.3 - $KnownEncoderValues['**'][88][4][1][3][3][19500] = '--r3mix'; // 3.90, 3.90.1, 3.92 - $KnownEncoderValues['**'][88][4][1][3][3][19600] = '--r3mix'; // 3.90.2, 3.90.3, 3.91 - $KnownEncoderValues['**'][67][4][1][3][4][18000] = '--r3mix'; // 3.94, 3.95 - $KnownEncoderValues['**'][68][3][2][3][4][18000] = '--alt-preset medium'; // 3.90.3 - $KnownEncoderValues['**'][68][4][2][3][4][18000] = '--alt-preset fast medium'; // 3.90.3 - - $KnownEncoderValues[0xFF][99][1][1][1][2][0] = '--preset studio'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0xFF][58][2][1][3][2][20600] = '--preset studio'; // 3.90.3, 3.93.1 - $KnownEncoderValues[0xFF][58][2][1][3][2][20500] = '--preset studio'; // 3.93 - $KnownEncoderValues[0xFF][57][2][1][3][4][20500] = '--preset studio'; // 3.94, 3.95 - $KnownEncoderValues[0xC0][88][1][1][1][2][0] = '--preset cd'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0xC0][58][2][2][3][2][19600] = '--preset cd'; // 3.90.3, 3.93.1 - $KnownEncoderValues[0xC0][58][2][2][3][2][19500] = '--preset cd'; // 3.93 - $KnownEncoderValues[0xC0][57][2][1][3][4][19500] = '--preset cd'; // 3.94, 3.95 - $KnownEncoderValues[0xA0][78][1][1][3][2][18000] = '--preset hifi'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0xA0][58][2][2][3][2][18000] = '--preset hifi'; // 3.90.3, 3.93, 3.93.1 - $KnownEncoderValues[0xA0][57][2][1][3][4][18000] = '--preset hifi'; // 3.94, 3.95 - $KnownEncoderValues[0x80][67][1][1][3][2][18000] = '--preset tape'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0x80][67][1][1][3][2][15000] = '--preset radio'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0x70][67][1][1][3][2][15000] = '--preset fm'; // 3.90, 3.90.1, 3.90.2, 3.91, 3.92 - $KnownEncoderValues[0x70][58][2][2][3][2][16000] = '--preset tape/radio/fm'; // 3.90.3, 3.93, 3.93.1 - $KnownEncoderValues[0x70][57][2][1][3][4][16000] = '--preset tape/radio/fm'; // 3.94, 3.95 - $KnownEncoderValues[0x38][58][2][2][0][2][10000] = '--preset voice'; // 3.90.3, 3.93, 3.93.1 - $KnownEncoderValues[0x38][57][2][1][0][4][15000] = '--preset voice'; // 3.94, 3.95 - $KnownEncoderValues[0x38][57][2][1][0][4][16000] = '--preset voice'; // 3.94a14 - $KnownEncoderValues[0x28][65][1][1][0][2][7500] = '--preset mw-us'; // 3.90, 3.90.1, 3.92 - $KnownEncoderValues[0x28][65][1][1][0][2][7600] = '--preset mw-us'; // 3.90.2, 3.91 - $KnownEncoderValues[0x28][58][2][2][0][2][7000] = '--preset mw-us'; // 3.90.3, 3.93, 3.93.1 - $KnownEncoderValues[0x28][57][2][1][0][4][10500] = '--preset mw-us'; // 3.94, 3.95 - $KnownEncoderValues[0x28][57][2][1][0][4][11200] = '--preset mw-us'; // 3.94a14 - $KnownEncoderValues[0x28][57][2][1][0][4][8800] = '--preset mw-us'; // 3.94a15 - $KnownEncoderValues[0x18][58][2][2][0][2][4000] = '--preset phon+/lw/mw-eu/sw'; // 3.90.3, 3.93.1 - $KnownEncoderValues[0x18][58][2][2][0][2][3900] = '--preset phon+/lw/mw-eu/sw'; // 3.93 - $KnownEncoderValues[0x18][57][2][1][0][4][5900] = '--preset phon+/lw/mw-eu/sw'; // 3.94, 3.95 - $KnownEncoderValues[0x18][57][2][1][0][4][6200] = '--preset phon+/lw/mw-eu/sw'; // 3.94a14 - $KnownEncoderValues[0x18][57][2][1][0][4][3200] = '--preset phon+/lw/mw-eu/sw'; // 3.94a15 - $KnownEncoderValues[0x10][58][2][2][0][2][3800] = '--preset phone'; // 3.90.3, 3.93.1 - $KnownEncoderValues[0x10][58][2][2][0][2][3700] = '--preset phone'; // 3.93 - $KnownEncoderValues[0x10][57][2][1][0][4][5600] = '--preset phone'; // 3.94, 3.95 - } - - if (isset($KnownEncoderValues[$thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate']][$thisfile_mpeg_audio_lame['vbr_quality']][$thisfile_mpeg_audio_lame['raw']['vbr_method']][$thisfile_mpeg_audio_lame['raw']['noise_shaping']][$thisfile_mpeg_audio_lame['raw']['stereo_mode']][$thisfile_mpeg_audio_lame['ath_type']][$thisfile_mpeg_audio_lame['lowpass_frequency']])) { - - $encoder_options = $KnownEncoderValues[$thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate']][$thisfile_mpeg_audio_lame['vbr_quality']][$thisfile_mpeg_audio_lame['raw']['vbr_method']][$thisfile_mpeg_audio_lame['raw']['noise_shaping']][$thisfile_mpeg_audio_lame['raw']['stereo_mode']][$thisfile_mpeg_audio_lame['ath_type']][$thisfile_mpeg_audio_lame['lowpass_frequency']]; - - } elseif (isset($KnownEncoderValues['**'][$thisfile_mpeg_audio_lame['vbr_quality']][$thisfile_mpeg_audio_lame['raw']['vbr_method']][$thisfile_mpeg_audio_lame['raw']['noise_shaping']][$thisfile_mpeg_audio_lame['raw']['stereo_mode']][$thisfile_mpeg_audio_lame['ath_type']][$thisfile_mpeg_audio_lame['lowpass_frequency']])) { - - $encoder_options = $KnownEncoderValues['**'][$thisfile_mpeg_audio_lame['vbr_quality']][$thisfile_mpeg_audio_lame['raw']['vbr_method']][$thisfile_mpeg_audio_lame['raw']['noise_shaping']][$thisfile_mpeg_audio_lame['raw']['stereo_mode']][$thisfile_mpeg_audio_lame['ath_type']][$thisfile_mpeg_audio_lame['lowpass_frequency']]; - - } elseif ($info['audio']['bitrate_mode'] == 'vbr') { - - // http://gabriel.mp3-tech.org/mp3infotag.html - // int Quality = (100 - 10 * gfp->VBR_q - gfp->quality)h - - - $LAME_V_value = 10 - ceil($thisfile_mpeg_audio_lame['vbr_quality'] / 10); - $LAME_q_value = 100 - $thisfile_mpeg_audio_lame['vbr_quality'] - ($LAME_V_value * 10); - $encoder_options = '-V'.$LAME_V_value.' -q'.$LAME_q_value; - - } elseif ($info['audio']['bitrate_mode'] == 'cbr') { - - $encoder_options = strtoupper($info['audio']['bitrate_mode']).ceil($info['audio']['bitrate'] / 1000); - - } else { - - $encoder_options = strtoupper($info['audio']['bitrate_mode']); - - } - - } elseif (!empty($thisfile_mpeg_audio_lame['bitrate_abr'])) { - - $encoder_options = 'ABR'.$thisfile_mpeg_audio_lame['bitrate_abr']; - - } elseif (!empty($info['audio']['bitrate'])) { - - if ($info['audio']['bitrate_mode'] == 'cbr') { - $encoder_options = strtoupper($info['audio']['bitrate_mode']).ceil($info['audio']['bitrate'] / 1000); - } else { - $encoder_options = strtoupper($info['audio']['bitrate_mode']); - } - - } - if (!empty($thisfile_mpeg_audio_lame['bitrate_min'])) { - $encoder_options .= ' -b'.$thisfile_mpeg_audio_lame['bitrate_min']; - } - - if (!empty($thisfile_mpeg_audio_lame['encoding_flags']['nogap_prev']) || !empty($thisfile_mpeg_audio_lame['encoding_flags']['nogap_next'])) { - $encoder_options .= ' --nogap'; - } - - if (!empty($thisfile_mpeg_audio_lame['lowpass_frequency'])) { - $ExplodedOptions = explode(' ', $encoder_options, 4); - if ($ExplodedOptions[0] == '--r3mix') { - $ExplodedOptions[1] = 'r3mix'; - } - switch ($ExplodedOptions[0]) { - case '--preset': - case '--alt-preset': - case '--r3mix': - if ($ExplodedOptions[1] == 'fast') { - $ExplodedOptions[1] .= ' '.$ExplodedOptions[2]; - } - switch ($ExplodedOptions[1]) { - case 'portable': - case 'medium': - case 'standard': - case 'extreme': - case 'insane': - case 'fast portable': - case 'fast medium': - case 'fast standard': - case 'fast extreme': - case 'fast insane': - case 'r3mix': - static $ExpectedLowpass = array( - 'insane|20500' => 20500, - 'insane|20600' => 20600, // 3.90.2, 3.90.3, 3.91 - 'medium|18000' => 18000, - 'fast medium|18000' => 18000, - 'extreme|19500' => 19500, // 3.90, 3.90.1, 3.92, 3.95 - 'extreme|19600' => 19600, // 3.90.2, 3.90.3, 3.91, 3.93.1 - 'fast extreme|19500' => 19500, // 3.90, 3.90.1, 3.92, 3.95 - 'fast extreme|19600' => 19600, // 3.90.2, 3.90.3, 3.91, 3.93.1 - 'standard|19000' => 19000, - 'fast standard|19000' => 19000, - 'r3mix|19500' => 19500, // 3.90, 3.90.1, 3.92 - 'r3mix|19600' => 19600, // 3.90.2, 3.90.3, 3.91 - 'r3mix|18000' => 18000, // 3.94, 3.95 - ); - if (!isset($ExpectedLowpass[$ExplodedOptions[1].'|'.$thisfile_mpeg_audio_lame['lowpass_frequency']]) && ($thisfile_mpeg_audio_lame['lowpass_frequency'] < 22050) && (round($thisfile_mpeg_audio_lame['lowpass_frequency'] / 1000) < round($thisfile_mpeg_audio['sample_rate'] / 2000))) { - $encoder_options .= ' --lowpass '.$thisfile_mpeg_audio_lame['lowpass_frequency']; - } - break; - - default: - break; - } - break; - } - } - - if (isset($thisfile_mpeg_audio_lame['raw']['source_sample_freq'])) { - if (($thisfile_mpeg_audio['sample_rate'] == 44100) && ($thisfile_mpeg_audio_lame['raw']['source_sample_freq'] != 1)) { - $encoder_options .= ' --resample 44100'; - } elseif (($thisfile_mpeg_audio['sample_rate'] == 48000) && ($thisfile_mpeg_audio_lame['raw']['source_sample_freq'] != 2)) { - $encoder_options .= ' --resample 48000'; - } elseif ($thisfile_mpeg_audio['sample_rate'] < 44100) { - switch ($thisfile_mpeg_audio_lame['raw']['source_sample_freq']) { - case 0: // <= 32000 - // may or may not be same as source frequency - ignore - break; - case 1: // 44100 - case 2: // 48000 - case 3: // 48000+ - $ExplodedOptions = explode(' ', $encoder_options, 4); - switch ($ExplodedOptions[0]) { - case '--preset': - case '--alt-preset': - switch ($ExplodedOptions[1]) { - case 'fast': - case 'portable': - case 'medium': - case 'standard': - case 'extreme': - case 'insane': - $encoder_options .= ' --resample '.$thisfile_mpeg_audio['sample_rate']; - break; - - default: - static $ExpectedResampledRate = array( - 'phon+/lw/mw-eu/sw|16000' => 16000, - 'mw-us|24000' => 24000, // 3.95 - 'mw-us|32000' => 32000, // 3.93 - 'mw-us|16000' => 16000, // 3.92 - 'phone|16000' => 16000, - 'phone|11025' => 11025, // 3.94a15 - 'radio|32000' => 32000, // 3.94a15 - 'fm/radio|32000' => 32000, // 3.92 - 'fm|32000' => 32000, // 3.90 - 'voice|32000' => 32000); - if (!isset($ExpectedResampledRate[$ExplodedOptions[1].'|'.$thisfile_mpeg_audio['sample_rate']])) { - $encoder_options .= ' --resample '.$thisfile_mpeg_audio['sample_rate']; - } - break; - } - break; - - case '--r3mix': - default: - $encoder_options .= ' --resample '.$thisfile_mpeg_audio['sample_rate']; - break; - } - break; - } - } - } - if (empty($encoder_options) && !empty($info['audio']['bitrate']) && !empty($info['audio']['bitrate_mode'])) { - //$encoder_options = strtoupper($info['audio']['bitrate_mode']).ceil($info['audio']['bitrate'] / 1000); - $encoder_options = strtoupper($info['audio']['bitrate_mode']); - } - - return $encoder_options; - } - - - public function decodeMPEGaudioHeader($offset, &$info, $recursivesearch=true, $ScanAsCBR=false, $FastMPEGheaderScan=false) { - static $MPEGaudioVersionLookup; - static $MPEGaudioLayerLookup; - static $MPEGaudioBitrateLookup; - static $MPEGaudioFrequencyLookup; - static $MPEGaudioChannelModeLookup; - static $MPEGaudioModeExtensionLookup; - static $MPEGaudioEmphasisLookup; - if (empty($MPEGaudioVersionLookup)) { - $MPEGaudioVersionLookup = self::MPEGaudioVersionArray(); - $MPEGaudioLayerLookup = self::MPEGaudioLayerArray(); - $MPEGaudioBitrateLookup = self::MPEGaudioBitrateArray(); - $MPEGaudioFrequencyLookup = self::MPEGaudioFrequencyArray(); - $MPEGaudioChannelModeLookup = self::MPEGaudioChannelModeArray(); - $MPEGaudioModeExtensionLookup = self::MPEGaudioModeExtensionArray(); - $MPEGaudioEmphasisLookup = self::MPEGaudioEmphasisArray(); - } - - if (fseek($this->getid3->fp, $offset, SEEK_SET) != 0) { - $info['error'][] = 'decodeMPEGaudioHeader() failed to seek to next offset at '.$offset; - return false; - } - //$headerstring = fread($this->getid3->fp, 1441); // worst-case max length = 32kHz @ 320kbps layer 3 = 1441 bytes/frame - $headerstring = fread($this->getid3->fp, 226); // LAME header at offset 36 + 190 bytes of Xing/LAME data - - // MP3 audio frame structure: - // $aa $aa $aa $aa [$bb $bb] $cc... - // where $aa..$aa is the four-byte mpeg-audio header (below) - // $bb $bb is the optional 2-byte CRC - // and $cc... is the audio data - - $head4 = substr($headerstring, 0, 4); - - static $MPEGaudioHeaderDecodeCache = array(); - if (isset($MPEGaudioHeaderDecodeCache[$head4])) { - $MPEGheaderRawArray = $MPEGaudioHeaderDecodeCache[$head4]; - } else { - $MPEGheaderRawArray = self::MPEGaudioHeaderDecode($head4); - $MPEGaudioHeaderDecodeCache[$head4] = $MPEGheaderRawArray; - } - - static $MPEGaudioHeaderValidCache = array(); - if (!isset($MPEGaudioHeaderValidCache[$head4])) { // Not in cache - //$MPEGaudioHeaderValidCache[$head4] = self::MPEGaudioHeaderValid($MPEGheaderRawArray, false, true); // allow badly-formatted freeformat (from LAME 3.90 - 3.93.1) - $MPEGaudioHeaderValidCache[$head4] = self::MPEGaudioHeaderValid($MPEGheaderRawArray, false, false); - } - - // shortcut - if (!isset($info['mpeg']['audio'])) { - $info['mpeg']['audio'] = array(); - } - $thisfile_mpeg_audio = &$info['mpeg']['audio']; - - - if ($MPEGaudioHeaderValidCache[$head4]) { - $thisfile_mpeg_audio['raw'] = $MPEGheaderRawArray; - } else { - $info['error'][] = 'Invalid MPEG audio header ('.getid3_lib::PrintHexBytes($head4).') at offset '.$offset; - return false; - } - - if (!$FastMPEGheaderScan) { - $thisfile_mpeg_audio['version'] = $MPEGaudioVersionLookup[$thisfile_mpeg_audio['raw']['version']]; - $thisfile_mpeg_audio['layer'] = $MPEGaudioLayerLookup[$thisfile_mpeg_audio['raw']['layer']]; - - $thisfile_mpeg_audio['channelmode'] = $MPEGaudioChannelModeLookup[$thisfile_mpeg_audio['raw']['channelmode']]; - $thisfile_mpeg_audio['channels'] = (($thisfile_mpeg_audio['channelmode'] == 'mono') ? 1 : 2); - $thisfile_mpeg_audio['sample_rate'] = $MPEGaudioFrequencyLookup[$thisfile_mpeg_audio['version']][$thisfile_mpeg_audio['raw']['sample_rate']]; - $thisfile_mpeg_audio['protection'] = !$thisfile_mpeg_audio['raw']['protection']; - $thisfile_mpeg_audio['private'] = (bool) $thisfile_mpeg_audio['raw']['private']; - $thisfile_mpeg_audio['modeextension'] = $MPEGaudioModeExtensionLookup[$thisfile_mpeg_audio['layer']][$thisfile_mpeg_audio['raw']['modeextension']]; - $thisfile_mpeg_audio['copyright'] = (bool) $thisfile_mpeg_audio['raw']['copyright']; - $thisfile_mpeg_audio['original'] = (bool) $thisfile_mpeg_audio['raw']['original']; - $thisfile_mpeg_audio['emphasis'] = $MPEGaudioEmphasisLookup[$thisfile_mpeg_audio['raw']['emphasis']]; - - $info['audio']['channels'] = $thisfile_mpeg_audio['channels']; - $info['audio']['sample_rate'] = $thisfile_mpeg_audio['sample_rate']; - - if ($thisfile_mpeg_audio['protection']) { - $thisfile_mpeg_audio['crc'] = getid3_lib::BigEndian2Int(substr($headerstring, 4, 2)); - } - } - - if ($thisfile_mpeg_audio['raw']['bitrate'] == 15) { - // http://www.hydrogenaudio.org/?act=ST&f=16&t=9682&st=0 - $info['warning'][] = 'Invalid bitrate index (15), this is a known bug in free-format MP3s encoded by LAME v3.90 - 3.93.1'; - $thisfile_mpeg_audio['raw']['bitrate'] = 0; - } - $thisfile_mpeg_audio['padding'] = (bool) $thisfile_mpeg_audio['raw']['padding']; - $thisfile_mpeg_audio['bitrate'] = $MPEGaudioBitrateLookup[$thisfile_mpeg_audio['version']][$thisfile_mpeg_audio['layer']][$thisfile_mpeg_audio['raw']['bitrate']]; - - if (($thisfile_mpeg_audio['bitrate'] == 'free') && ($offset == $info['avdataoffset'])) { - // only skip multiple frame check if free-format bitstream found at beginning of file - // otherwise is quite possibly simply corrupted data - $recursivesearch = false; - } - - // For Layer 2 there are some combinations of bitrate and mode which are not allowed. - if (!$FastMPEGheaderScan && ($thisfile_mpeg_audio['layer'] == '2')) { - - $info['audio']['dataformat'] = 'mp2'; - switch ($thisfile_mpeg_audio['channelmode']) { - - case 'mono': - if (($thisfile_mpeg_audio['bitrate'] == 'free') || ($thisfile_mpeg_audio['bitrate'] <= 192000)) { - // these are ok - } else { - $info['error'][] = $thisfile_mpeg_audio['bitrate'].'kbps not allowed in Layer 2, '.$thisfile_mpeg_audio['channelmode'].'.'; - return false; - } - break; - - case 'stereo': - case 'joint stereo': - case 'dual channel': - if (($thisfile_mpeg_audio['bitrate'] == 'free') || ($thisfile_mpeg_audio['bitrate'] == 64000) || ($thisfile_mpeg_audio['bitrate'] >= 96000)) { - // these are ok - } else { - $info['error'][] = intval(round($thisfile_mpeg_audio['bitrate'] / 1000)).'kbps not allowed in Layer 2, '.$thisfile_mpeg_audio['channelmode'].'.'; - return false; - } - break; - - } - - } - - - if ($info['audio']['sample_rate'] > 0) { - $thisfile_mpeg_audio['framelength'] = self::MPEGaudioFrameLength($thisfile_mpeg_audio['bitrate'], $thisfile_mpeg_audio['version'], $thisfile_mpeg_audio['layer'], (int) $thisfile_mpeg_audio['padding'], $info['audio']['sample_rate']); - } - - $nextframetestoffset = $offset + 1; - if ($thisfile_mpeg_audio['bitrate'] != 'free') { - - $info['audio']['bitrate'] = $thisfile_mpeg_audio['bitrate']; - - if (isset($thisfile_mpeg_audio['framelength'])) { - $nextframetestoffset = $offset + $thisfile_mpeg_audio['framelength']; - } else { - $info['error'][] = 'Frame at offset('.$offset.') is has an invalid frame length.'; - return false; - } - - } - - $ExpectedNumberOfAudioBytes = 0; - - //////////////////////////////////////////////////////////////////////////////////// - // Variable-bitrate headers - - if (substr($headerstring, 4 + 32, 4) == 'VBRI') { - // Fraunhofer VBR header is hardcoded 'VBRI' at offset 0x24 (36) - // specs taken from http://minnie.tuhs.org/pipermail/mp3encoder/2001-January/001800.html - - $thisfile_mpeg_audio['bitrate_mode'] = 'vbr'; - $thisfile_mpeg_audio['VBR_method'] = 'Fraunhofer'; - $info['audio']['codec'] = 'Fraunhofer'; - - $SideInfoData = substr($headerstring, 4 + 2, 32); - - $FraunhoferVBROffset = 36; - - $thisfile_mpeg_audio['VBR_encoder_version'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 4, 2)); // VbriVersion - $thisfile_mpeg_audio['VBR_encoder_delay'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 6, 2)); // VbriDelay - $thisfile_mpeg_audio['VBR_quality'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 8, 2)); // VbriQuality - $thisfile_mpeg_audio['VBR_bytes'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 10, 4)); // VbriStreamBytes - $thisfile_mpeg_audio['VBR_frames'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 14, 4)); // VbriStreamFrames - $thisfile_mpeg_audio['VBR_seek_offsets'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 18, 2)); // VbriTableSize - $thisfile_mpeg_audio['VBR_seek_scale'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 20, 2)); // VbriTableScale - $thisfile_mpeg_audio['VBR_entry_bytes'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 22, 2)); // VbriEntryBytes - $thisfile_mpeg_audio['VBR_entry_frames'] = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset + 24, 2)); // VbriEntryFrames - - $ExpectedNumberOfAudioBytes = $thisfile_mpeg_audio['VBR_bytes']; - - $previousbyteoffset = $offset; - for ($i = 0; $i < $thisfile_mpeg_audio['VBR_seek_offsets']; $i++) { - $Fraunhofer_OffsetN = getid3_lib::BigEndian2Int(substr($headerstring, $FraunhoferVBROffset, $thisfile_mpeg_audio['VBR_entry_bytes'])); - $FraunhoferVBROffset += $thisfile_mpeg_audio['VBR_entry_bytes']; - $thisfile_mpeg_audio['VBR_offsets_relative'][$i] = ($Fraunhofer_OffsetN * $thisfile_mpeg_audio['VBR_seek_scale']); - $thisfile_mpeg_audio['VBR_offsets_absolute'][$i] = ($Fraunhofer_OffsetN * $thisfile_mpeg_audio['VBR_seek_scale']) + $previousbyteoffset; - $previousbyteoffset += $Fraunhofer_OffsetN; - } - - - } else { - - // Xing VBR header is hardcoded 'Xing' at a offset 0x0D (13), 0x15 (21) or 0x24 (36) - // depending on MPEG layer and number of channels - - $VBRidOffset = self::XingVBRidOffset($thisfile_mpeg_audio['version'], $thisfile_mpeg_audio['channelmode']); - $SideInfoData = substr($headerstring, 4 + 2, $VBRidOffset - 4); - - if ((substr($headerstring, $VBRidOffset, strlen('Xing')) == 'Xing') || (substr($headerstring, $VBRidOffset, strlen('Info')) == 'Info')) { - // 'Xing' is traditional Xing VBR frame - // 'Info' is LAME-encoded CBR (This was done to avoid CBR files to be recognized as traditional Xing VBR files by some decoders.) - // 'Info' *can* legally be used to specify a VBR file as well, however. - - // http://www.multiweb.cz/twoinches/MP3inside.htm - //00..03 = "Xing" or "Info" - //04..07 = Flags: - // 0x01 Frames Flag set if value for number of frames in file is stored - // 0x02 Bytes Flag set if value for filesize in bytes is stored - // 0x04 TOC Flag set if values for TOC are stored - // 0x08 VBR Scale Flag set if values for VBR scale is stored - //08..11 Frames: Number of frames in file (including the first Xing/Info one) - //12..15 Bytes: File length in Bytes - //16..115 TOC (Table of Contents): - // Contains of 100 indexes (one Byte length) for easier lookup in file. Approximately solves problem with moving inside file. - // Each Byte has a value according this formula: - // (TOC[i] / 256) * fileLenInBytes - // So if song lasts eg. 240 sec. and you want to jump to 60. sec. (and file is 5 000 000 Bytes length) you can use: - // TOC[(60/240)*100] = TOC[25] - // and corresponding Byte in file is then approximately at: - // (TOC[25]/256) * 5000000 - //116..119 VBR Scale - - - // should be safe to leave this at 'vbr' and let it be overriden to 'cbr' if a CBR preset/mode is used by LAME -// if (substr($headerstring, $VBRidOffset, strlen('Info')) == 'Xing') { - $thisfile_mpeg_audio['bitrate_mode'] = 'vbr'; - $thisfile_mpeg_audio['VBR_method'] = 'Xing'; -// } else { -// $ScanAsCBR = true; -// $thisfile_mpeg_audio['bitrate_mode'] = 'cbr'; -// } - - $thisfile_mpeg_audio['xing_flags_raw'] = getid3_lib::BigEndian2Int(substr($headerstring, $VBRidOffset + 4, 4)); - - $thisfile_mpeg_audio['xing_flags']['frames'] = (bool) ($thisfile_mpeg_audio['xing_flags_raw'] & 0x00000001); - $thisfile_mpeg_audio['xing_flags']['bytes'] = (bool) ($thisfile_mpeg_audio['xing_flags_raw'] & 0x00000002); - $thisfile_mpeg_audio['xing_flags']['toc'] = (bool) ($thisfile_mpeg_audio['xing_flags_raw'] & 0x00000004); - $thisfile_mpeg_audio['xing_flags']['vbr_scale'] = (bool) ($thisfile_mpeg_audio['xing_flags_raw'] & 0x00000008); - - if ($thisfile_mpeg_audio['xing_flags']['frames']) { - $thisfile_mpeg_audio['VBR_frames'] = getid3_lib::BigEndian2Int(substr($headerstring, $VBRidOffset + 8, 4)); - //$thisfile_mpeg_audio['VBR_frames']--; // don't count header Xing/Info frame - } - if ($thisfile_mpeg_audio['xing_flags']['bytes']) { - $thisfile_mpeg_audio['VBR_bytes'] = getid3_lib::BigEndian2Int(substr($headerstring, $VBRidOffset + 12, 4)); - } - - //if (($thisfile_mpeg_audio['bitrate'] == 'free') && !empty($thisfile_mpeg_audio['VBR_frames']) && !empty($thisfile_mpeg_audio['VBR_bytes'])) { - if (!empty($thisfile_mpeg_audio['VBR_frames']) && !empty($thisfile_mpeg_audio['VBR_bytes'])) { - - $framelengthfloat = $thisfile_mpeg_audio['VBR_bytes'] / $thisfile_mpeg_audio['VBR_frames']; - - if ($thisfile_mpeg_audio['layer'] == '1') { - // BitRate = (((FrameLengthInBytes / 4) - Padding) * SampleRate) / 12 - //$info['audio']['bitrate'] = ((($framelengthfloat / 4) - intval($thisfile_mpeg_audio['padding'])) * $thisfile_mpeg_audio['sample_rate']) / 12; - $info['audio']['bitrate'] = ($framelengthfloat / 4) * $thisfile_mpeg_audio['sample_rate'] * (2 / $info['audio']['channels']) / 12; - } else { - // Bitrate = ((FrameLengthInBytes - Padding) * SampleRate) / 144 - //$info['audio']['bitrate'] = (($framelengthfloat - intval($thisfile_mpeg_audio['padding'])) * $thisfile_mpeg_audio['sample_rate']) / 144; - $info['audio']['bitrate'] = $framelengthfloat * $thisfile_mpeg_audio['sample_rate'] * (2 / $info['audio']['channels']) / 144; - } - $thisfile_mpeg_audio['framelength'] = floor($framelengthfloat); - } - - if ($thisfile_mpeg_audio['xing_flags']['toc']) { - $LAMEtocData = substr($headerstring, $VBRidOffset + 16, 100); - for ($i = 0; $i < 100; $i++) { - $thisfile_mpeg_audio['toc'][$i] = ord($LAMEtocData{$i}); - } - } - if ($thisfile_mpeg_audio['xing_flags']['vbr_scale']) { - $thisfile_mpeg_audio['VBR_scale'] = getid3_lib::BigEndian2Int(substr($headerstring, $VBRidOffset + 116, 4)); - } - - - // http://gabriel.mp3-tech.org/mp3infotag.html - if (substr($headerstring, $VBRidOffset + 120, 4) == 'LAME') { - - // shortcut - $thisfile_mpeg_audio['LAME'] = array(); - $thisfile_mpeg_audio_lame = &$thisfile_mpeg_audio['LAME']; - - - $thisfile_mpeg_audio_lame['long_version'] = substr($headerstring, $VBRidOffset + 120, 20); - $thisfile_mpeg_audio_lame['short_version'] = substr($thisfile_mpeg_audio_lame['long_version'], 0, 9); - - if ($thisfile_mpeg_audio_lame['short_version'] >= 'LAME3.90') { - - // extra 11 chars are not part of version string when LAMEtag present - unset($thisfile_mpeg_audio_lame['long_version']); - - // It the LAME tag was only introduced in LAME v3.90 - // http://www.hydrogenaudio.org/?act=ST&f=15&t=9933 - - // Offsets of various bytes in http://gabriel.mp3-tech.org/mp3infotag.html - // are assuming a 'Xing' identifier offset of 0x24, which is the case for - // MPEG-1 non-mono, but not for other combinations - $LAMEtagOffsetContant = $VBRidOffset - 0x24; - - // shortcuts - $thisfile_mpeg_audio_lame['RGAD'] = array('track'=>array(), 'album'=>array()); - $thisfile_mpeg_audio_lame_RGAD = &$thisfile_mpeg_audio_lame['RGAD']; - $thisfile_mpeg_audio_lame_RGAD_track = &$thisfile_mpeg_audio_lame_RGAD['track']; - $thisfile_mpeg_audio_lame_RGAD_album = &$thisfile_mpeg_audio_lame_RGAD['album']; - $thisfile_mpeg_audio_lame['raw'] = array(); - $thisfile_mpeg_audio_lame_raw = &$thisfile_mpeg_audio_lame['raw']; - - // byte $9B VBR Quality - // This field is there to indicate a quality level, although the scale was not precised in the original Xing specifications. - // Actually overwrites original Xing bytes - unset($thisfile_mpeg_audio['VBR_scale']); - $thisfile_mpeg_audio_lame['vbr_quality'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0x9B, 1)); - - // bytes $9C-$A4 Encoder short VersionString - $thisfile_mpeg_audio_lame['short_version'] = substr($headerstring, $LAMEtagOffsetContant + 0x9C, 9); - - // byte $A5 Info Tag revision + VBR method - $LAMEtagRevisionVBRmethod = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xA5, 1)); - - $thisfile_mpeg_audio_lame['tag_revision'] = ($LAMEtagRevisionVBRmethod & 0xF0) >> 4; - $thisfile_mpeg_audio_lame_raw['vbr_method'] = $LAMEtagRevisionVBRmethod & 0x0F; - $thisfile_mpeg_audio_lame['vbr_method'] = self::LAMEvbrMethodLookup($thisfile_mpeg_audio_lame_raw['vbr_method']); - $thisfile_mpeg_audio['bitrate_mode'] = substr($thisfile_mpeg_audio_lame['vbr_method'], 0, 3); // usually either 'cbr' or 'vbr', but truncates 'vbr-old / vbr-rh' to 'vbr' - - // byte $A6 Lowpass filter value - $thisfile_mpeg_audio_lame['lowpass_frequency'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xA6, 1)) * 100; - - // bytes $A7-$AE Replay Gain - // http://privatewww.essex.ac.uk/~djmrob/replaygain/rg_data_format.html - // bytes $A7-$AA : 32 bit floating point "Peak signal amplitude" - if ($thisfile_mpeg_audio_lame['short_version'] >= 'LAME3.94b') { - // LAME 3.94a16 and later - 9.23 fixed point - // ie 0x0059E2EE / (2^23) = 5890798 / 8388608 = 0.7022378444671630859375 - $thisfile_mpeg_audio_lame_RGAD['peak_amplitude'] = (float) ((getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xA7, 4))) / 8388608); - } else { - // LAME 3.94a15 and earlier - 32-bit floating point - // Actually 3.94a16 will fall in here too and be WRONG, but is hard to detect 3.94a16 vs 3.94a15 - $thisfile_mpeg_audio_lame_RGAD['peak_amplitude'] = getid3_lib::LittleEndian2Float(substr($headerstring, $LAMEtagOffsetContant + 0xA7, 4)); - } - if ($thisfile_mpeg_audio_lame_RGAD['peak_amplitude'] == 0) { - unset($thisfile_mpeg_audio_lame_RGAD['peak_amplitude']); - } else { - $thisfile_mpeg_audio_lame_RGAD['peak_db'] = getid3_lib::RGADamplitude2dB($thisfile_mpeg_audio_lame_RGAD['peak_amplitude']); - } - - $thisfile_mpeg_audio_lame_raw['RGAD_track'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xAB, 2)); - $thisfile_mpeg_audio_lame_raw['RGAD_album'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xAD, 2)); - - - if ($thisfile_mpeg_audio_lame_raw['RGAD_track'] != 0) { - - $thisfile_mpeg_audio_lame_RGAD_track['raw']['name'] = ($thisfile_mpeg_audio_lame_raw['RGAD_track'] & 0xE000) >> 13; - $thisfile_mpeg_audio_lame_RGAD_track['raw']['originator'] = ($thisfile_mpeg_audio_lame_raw['RGAD_track'] & 0x1C00) >> 10; - $thisfile_mpeg_audio_lame_RGAD_track['raw']['sign_bit'] = ($thisfile_mpeg_audio_lame_raw['RGAD_track'] & 0x0200) >> 9; - $thisfile_mpeg_audio_lame_RGAD_track['raw']['gain_adjust'] = $thisfile_mpeg_audio_lame_raw['RGAD_track'] & 0x01FF; - $thisfile_mpeg_audio_lame_RGAD_track['name'] = getid3_lib::RGADnameLookup($thisfile_mpeg_audio_lame_RGAD_track['raw']['name']); - $thisfile_mpeg_audio_lame_RGAD_track['originator'] = getid3_lib::RGADoriginatorLookup($thisfile_mpeg_audio_lame_RGAD_track['raw']['originator']); - $thisfile_mpeg_audio_lame_RGAD_track['gain_db'] = getid3_lib::RGADadjustmentLookup($thisfile_mpeg_audio_lame_RGAD_track['raw']['gain_adjust'], $thisfile_mpeg_audio_lame_RGAD_track['raw']['sign_bit']); - - if (!empty($thisfile_mpeg_audio_lame_RGAD['peak_amplitude'])) { - $info['replay_gain']['track']['peak'] = $thisfile_mpeg_audio_lame_RGAD['peak_amplitude']; - } - $info['replay_gain']['track']['originator'] = $thisfile_mpeg_audio_lame_RGAD_track['originator']; - $info['replay_gain']['track']['adjustment'] = $thisfile_mpeg_audio_lame_RGAD_track['gain_db']; - } else { - unset($thisfile_mpeg_audio_lame_RGAD['track']); - } - if ($thisfile_mpeg_audio_lame_raw['RGAD_album'] != 0) { - - $thisfile_mpeg_audio_lame_RGAD_album['raw']['name'] = ($thisfile_mpeg_audio_lame_raw['RGAD_album'] & 0xE000) >> 13; - $thisfile_mpeg_audio_lame_RGAD_album['raw']['originator'] = ($thisfile_mpeg_audio_lame_raw['RGAD_album'] & 0x1C00) >> 10; - $thisfile_mpeg_audio_lame_RGAD_album['raw']['sign_bit'] = ($thisfile_mpeg_audio_lame_raw['RGAD_album'] & 0x0200) >> 9; - $thisfile_mpeg_audio_lame_RGAD_album['raw']['gain_adjust'] = $thisfile_mpeg_audio_lame_raw['RGAD_album'] & 0x01FF; - $thisfile_mpeg_audio_lame_RGAD_album['name'] = getid3_lib::RGADnameLookup($thisfile_mpeg_audio_lame_RGAD_album['raw']['name']); - $thisfile_mpeg_audio_lame_RGAD_album['originator'] = getid3_lib::RGADoriginatorLookup($thisfile_mpeg_audio_lame_RGAD_album['raw']['originator']); - $thisfile_mpeg_audio_lame_RGAD_album['gain_db'] = getid3_lib::RGADadjustmentLookup($thisfile_mpeg_audio_lame_RGAD_album['raw']['gain_adjust'], $thisfile_mpeg_audio_lame_RGAD_album['raw']['sign_bit']); - - if (!empty($thisfile_mpeg_audio_lame_RGAD['peak_amplitude'])) { - $info['replay_gain']['album']['peak'] = $thisfile_mpeg_audio_lame_RGAD['peak_amplitude']; - } - $info['replay_gain']['album']['originator'] = $thisfile_mpeg_audio_lame_RGAD_album['originator']; - $info['replay_gain']['album']['adjustment'] = $thisfile_mpeg_audio_lame_RGAD_album['gain_db']; - } else { - unset($thisfile_mpeg_audio_lame_RGAD['album']); - } - if (empty($thisfile_mpeg_audio_lame_RGAD)) { - unset($thisfile_mpeg_audio_lame['RGAD']); - } - - - // byte $AF Encoding flags + ATH Type - $EncodingFlagsATHtype = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xAF, 1)); - $thisfile_mpeg_audio_lame['encoding_flags']['nspsytune'] = (bool) ($EncodingFlagsATHtype & 0x10); - $thisfile_mpeg_audio_lame['encoding_flags']['nssafejoint'] = (bool) ($EncodingFlagsATHtype & 0x20); - $thisfile_mpeg_audio_lame['encoding_flags']['nogap_next'] = (bool) ($EncodingFlagsATHtype & 0x40); - $thisfile_mpeg_audio_lame['encoding_flags']['nogap_prev'] = (bool) ($EncodingFlagsATHtype & 0x80); - $thisfile_mpeg_audio_lame['ath_type'] = $EncodingFlagsATHtype & 0x0F; - - // byte $B0 if ABR {specified bitrate} else {minimal bitrate} - $thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB0, 1)); - if ($thisfile_mpeg_audio_lame_raw['vbr_method'] == 2) { // Average BitRate (ABR) - $thisfile_mpeg_audio_lame['bitrate_abr'] = $thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate']; - } elseif ($thisfile_mpeg_audio_lame_raw['vbr_method'] == 1) { // Constant BitRate (CBR) - // ignore - } elseif ($thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate'] > 0) { // Variable BitRate (VBR) - minimum bitrate - $thisfile_mpeg_audio_lame['bitrate_min'] = $thisfile_mpeg_audio_lame['raw']['abrbitrate_minbitrate']; - } - - // bytes $B1-$B3 Encoder delays - $EncoderDelays = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB1, 3)); - $thisfile_mpeg_audio_lame['encoder_delay'] = ($EncoderDelays & 0xFFF000) >> 12; - $thisfile_mpeg_audio_lame['end_padding'] = $EncoderDelays & 0x000FFF; - - // byte $B4 Misc - $MiscByte = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB4, 1)); - $thisfile_mpeg_audio_lame_raw['noise_shaping'] = ($MiscByte & 0x03); - $thisfile_mpeg_audio_lame_raw['stereo_mode'] = ($MiscByte & 0x1C) >> 2; - $thisfile_mpeg_audio_lame_raw['not_optimal_quality'] = ($MiscByte & 0x20) >> 5; - $thisfile_mpeg_audio_lame_raw['source_sample_freq'] = ($MiscByte & 0xC0) >> 6; - $thisfile_mpeg_audio_lame['noise_shaping'] = $thisfile_mpeg_audio_lame_raw['noise_shaping']; - $thisfile_mpeg_audio_lame['stereo_mode'] = self::LAMEmiscStereoModeLookup($thisfile_mpeg_audio_lame_raw['stereo_mode']); - $thisfile_mpeg_audio_lame['not_optimal_quality'] = (bool) $thisfile_mpeg_audio_lame_raw['not_optimal_quality']; - $thisfile_mpeg_audio_lame['source_sample_freq'] = self::LAMEmiscSourceSampleFrequencyLookup($thisfile_mpeg_audio_lame_raw['source_sample_freq']); - - // byte $B5 MP3 Gain - $thisfile_mpeg_audio_lame_raw['mp3_gain'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB5, 1), false, true); - $thisfile_mpeg_audio_lame['mp3_gain_db'] = (getid3_lib::RGADamplitude2dB(2) / 4) * $thisfile_mpeg_audio_lame_raw['mp3_gain']; - $thisfile_mpeg_audio_lame['mp3_gain_factor'] = pow(2, ($thisfile_mpeg_audio_lame['mp3_gain_db'] / 6)); - - // bytes $B6-$B7 Preset and surround info - $PresetSurroundBytes = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB6, 2)); - // Reserved = ($PresetSurroundBytes & 0xC000); - $thisfile_mpeg_audio_lame_raw['surround_info'] = ($PresetSurroundBytes & 0x3800); - $thisfile_mpeg_audio_lame['surround_info'] = self::LAMEsurroundInfoLookup($thisfile_mpeg_audio_lame_raw['surround_info']); - $thisfile_mpeg_audio_lame['preset_used_id'] = ($PresetSurroundBytes & 0x07FF); - $thisfile_mpeg_audio_lame['preset_used'] = self::LAMEpresetUsedLookup($thisfile_mpeg_audio_lame); - if (!empty($thisfile_mpeg_audio_lame['preset_used_id']) && empty($thisfile_mpeg_audio_lame['preset_used'])) { - $info['warning'][] = 'Unknown LAME preset used ('.$thisfile_mpeg_audio_lame['preset_used_id'].') - please report to info@getid3.org'; - } - if (($thisfile_mpeg_audio_lame['short_version'] == 'LAME3.90.') && !empty($thisfile_mpeg_audio_lame['preset_used_id'])) { - // this may change if 3.90.4 ever comes out - $thisfile_mpeg_audio_lame['short_version'] = 'LAME3.90.3'; - } - - // bytes $B8-$BB MusicLength - $thisfile_mpeg_audio_lame['audio_bytes'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xB8, 4)); - $ExpectedNumberOfAudioBytes = (($thisfile_mpeg_audio_lame['audio_bytes'] > 0) ? $thisfile_mpeg_audio_lame['audio_bytes'] : $thisfile_mpeg_audio['VBR_bytes']); - - // bytes $BC-$BD MusicCRC - $thisfile_mpeg_audio_lame['music_crc'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xBC, 2)); - - // bytes $BE-$BF CRC-16 of Info Tag - $thisfile_mpeg_audio_lame['lame_tag_crc'] = getid3_lib::BigEndian2Int(substr($headerstring, $LAMEtagOffsetContant + 0xBE, 2)); - - - // LAME CBR - if ($thisfile_mpeg_audio_lame_raw['vbr_method'] == 1) { - - $thisfile_mpeg_audio['bitrate_mode'] = 'cbr'; - $thisfile_mpeg_audio['bitrate'] = self::ClosestStandardMP3Bitrate($thisfile_mpeg_audio['bitrate']); - $info['audio']['bitrate'] = $thisfile_mpeg_audio['bitrate']; - //if (empty($thisfile_mpeg_audio['bitrate']) || (!empty($thisfile_mpeg_audio_lame['bitrate_min']) && ($thisfile_mpeg_audio_lame['bitrate_min'] != 255))) { - // $thisfile_mpeg_audio['bitrate'] = $thisfile_mpeg_audio_lame['bitrate_min']; - //} - - } - - } - } - - } else { - - // not Fraunhofer or Xing VBR methods, most likely CBR (but could be VBR with no header) - $thisfile_mpeg_audio['bitrate_mode'] = 'cbr'; - if ($recursivesearch) { - $thisfile_mpeg_audio['bitrate_mode'] = 'vbr'; - if ($this->RecursiveFrameScanning($offset, $nextframetestoffset, true)) { - $recursivesearch = false; - $thisfile_mpeg_audio['bitrate_mode'] = 'cbr'; - } - if ($thisfile_mpeg_audio['bitrate_mode'] == 'vbr') { - $info['warning'][] = 'VBR file with no VBR header. Bitrate values calculated from actual frame bitrates.'; - } - } - - } - - } - - if (($ExpectedNumberOfAudioBytes > 0) && ($ExpectedNumberOfAudioBytes != ($info['avdataend'] - $info['avdataoffset']))) { - if ($ExpectedNumberOfAudioBytes > ($info['avdataend'] - $info['avdataoffset'])) { - if (isset($info['fileformat']) && ($info['fileformat'] == 'riff')) { - // ignore, audio data is broken into chunks so will always be data "missing" - } elseif (($ExpectedNumberOfAudioBytes - ($info['avdataend'] - $info['avdataoffset'])) == 1) { - $info['warning'][] = 'Last byte of data truncated (this is a known bug in Meracl ID3 Tag Writer before v1.3.5)'; - } else { - $info['warning'][] = 'Probable truncated file: expecting '.$ExpectedNumberOfAudioBytes.' bytes of audio data, only found '.($info['avdataend'] - $info['avdataoffset']).' (short by '.($ExpectedNumberOfAudioBytes - ($info['avdataend'] - $info['avdataoffset'])).' bytes)'; - } - } else { - if ((($info['avdataend'] - $info['avdataoffset']) - $ExpectedNumberOfAudioBytes) == 1) { - // $prenullbytefileoffset = ftell($this->getid3->fp); - // fseek($this->getid3->fp, $info['avdataend'], SEEK_SET); - // $PossibleNullByte = fread($this->getid3->fp, 1); - // fseek($this->getid3->fp, $prenullbytefileoffset, SEEK_SET); - // if ($PossibleNullByte === "\x00") { - $info['avdataend']--; - // $info['warning'][] = 'Extra null byte at end of MP3 data assumed to be RIFF padding and therefore ignored'; - // } else { - // $info['warning'][] = 'Too much data in file: expecting '.$ExpectedNumberOfAudioBytes.' bytes of audio data, found '.($info['avdataend'] - $info['avdataoffset']).' ('.(($info['avdataend'] - $info['avdataoffset']) - $ExpectedNumberOfAudioBytes).' bytes too many)'; - // } - } else { - $info['warning'][] = 'Too much data in file: expecting '.$ExpectedNumberOfAudioBytes.' bytes of audio data, found '.($info['avdataend'] - $info['avdataoffset']).' ('.(($info['avdataend'] - $info['avdataoffset']) - $ExpectedNumberOfAudioBytes).' bytes too many)'; - } - } - } - - if (($thisfile_mpeg_audio['bitrate'] == 'free') && empty($info['audio']['bitrate'])) { - if (($offset == $info['avdataoffset']) && empty($thisfile_mpeg_audio['VBR_frames'])) { - $framebytelength = $this->FreeFormatFrameLength($offset, true); - if ($framebytelength > 0) { - $thisfile_mpeg_audio['framelength'] = $framebytelength; - if ($thisfile_mpeg_audio['layer'] == '1') { - // BitRate = (((FrameLengthInBytes / 4) - Padding) * SampleRate) / 12 - $info['audio']['bitrate'] = ((($framebytelength / 4) - intval($thisfile_mpeg_audio['padding'])) * $thisfile_mpeg_audio['sample_rate']) / 12; - } else { - // Bitrate = ((FrameLengthInBytes - Padding) * SampleRate) / 144 - $info['audio']['bitrate'] = (($framebytelength - intval($thisfile_mpeg_audio['padding'])) * $thisfile_mpeg_audio['sample_rate']) / 144; - } - } else { - $info['error'][] = 'Error calculating frame length of free-format MP3 without Xing/LAME header'; - } - } - } - - if (isset($thisfile_mpeg_audio['VBR_frames']) ? $thisfile_mpeg_audio['VBR_frames'] : '') { - switch ($thisfile_mpeg_audio['bitrate_mode']) { - case 'vbr': - case 'abr': - $bytes_per_frame = 1152; - if (($thisfile_mpeg_audio['version'] == '1') && ($thisfile_mpeg_audio['layer'] == 1)) { - $bytes_per_frame = 384; - } elseif ((($thisfile_mpeg_audio['version'] == '2') || ($thisfile_mpeg_audio['version'] == '2.5')) && ($thisfile_mpeg_audio['layer'] == 3)) { - $bytes_per_frame = 576; - } - $thisfile_mpeg_audio['VBR_bitrate'] = (isset($thisfile_mpeg_audio['VBR_bytes']) ? (($thisfile_mpeg_audio['VBR_bytes'] / $thisfile_mpeg_audio['VBR_frames']) * 8) * ($info['audio']['sample_rate'] / $bytes_per_frame) : 0); - if ($thisfile_mpeg_audio['VBR_bitrate'] > 0) { - $info['audio']['bitrate'] = $thisfile_mpeg_audio['VBR_bitrate']; - $thisfile_mpeg_audio['bitrate'] = $thisfile_mpeg_audio['VBR_bitrate']; // to avoid confusion - } - break; - } - } - - // End variable-bitrate headers - //////////////////////////////////////////////////////////////////////////////////// - - if ($recursivesearch) { - - if (!$this->RecursiveFrameScanning($offset, $nextframetestoffset, $ScanAsCBR)) { - return false; - } - - } - - - //if (false) { - // // experimental side info parsing section - not returning anything useful yet - // - // $SideInfoBitstream = getid3_lib::BigEndian2Bin($SideInfoData); - // $SideInfoOffset = 0; - // - // if ($thisfile_mpeg_audio['version'] == '1') { - // if ($thisfile_mpeg_audio['channelmode'] == 'mono') { - // // MPEG-1 (mono) - // $thisfile_mpeg_audio['side_info']['main_data_begin'] = substr($SideInfoBitstream, $SideInfoOffset, 9); - // $SideInfoOffset += 9; - // $SideInfoOffset += 5; - // } else { - // // MPEG-1 (stereo, joint-stereo, dual-channel) - // $thisfile_mpeg_audio['side_info']['main_data_begin'] = substr($SideInfoBitstream, $SideInfoOffset, 9); - // $SideInfoOffset += 9; - // $SideInfoOffset += 3; - // } - // } else { // 2 or 2.5 - // if ($thisfile_mpeg_audio['channelmode'] == 'mono') { - // // MPEG-2, MPEG-2.5 (mono) - // $thisfile_mpeg_audio['side_info']['main_data_begin'] = substr($SideInfoBitstream, $SideInfoOffset, 8); - // $SideInfoOffset += 8; - // $SideInfoOffset += 1; - // } else { - // // MPEG-2, MPEG-2.5 (stereo, joint-stereo, dual-channel) - // $thisfile_mpeg_audio['side_info']['main_data_begin'] = substr($SideInfoBitstream, $SideInfoOffset, 8); - // $SideInfoOffset += 8; - // $SideInfoOffset += 2; - // } - // } - // - // if ($thisfile_mpeg_audio['version'] == '1') { - // for ($channel = 0; $channel < $info['audio']['channels']; $channel++) { - // for ($scfsi_band = 0; $scfsi_band < 4; $scfsi_band++) { - // $thisfile_mpeg_audio['scfsi'][$channel][$scfsi_band] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 2; - // } - // } - // } - // for ($granule = 0; $granule < (($thisfile_mpeg_audio['version'] == '1') ? 2 : 1); $granule++) { - // for ($channel = 0; $channel < $info['audio']['channels']; $channel++) { - // $thisfile_mpeg_audio['part2_3_length'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 12); - // $SideInfoOffset += 12; - // $thisfile_mpeg_audio['big_values'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 9); - // $SideInfoOffset += 9; - // $thisfile_mpeg_audio['global_gain'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 8); - // $SideInfoOffset += 8; - // if ($thisfile_mpeg_audio['version'] == '1') { - // $thisfile_mpeg_audio['scalefac_compress'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 4); - // $SideInfoOffset += 4; - // } else { - // $thisfile_mpeg_audio['scalefac_compress'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 9); - // $SideInfoOffset += 9; - // } - // $thisfile_mpeg_audio['window_switching_flag'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 1; - // - // if ($thisfile_mpeg_audio['window_switching_flag'][$granule][$channel] == '1') { - // - // $thisfile_mpeg_audio['block_type'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 2); - // $SideInfoOffset += 2; - // $thisfile_mpeg_audio['mixed_block_flag'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 1; - // - // for ($region = 0; $region < 2; $region++) { - // $thisfile_mpeg_audio['table_select'][$granule][$channel][$region] = substr($SideInfoBitstream, $SideInfoOffset, 5); - // $SideInfoOffset += 5; - // } - // $thisfile_mpeg_audio['table_select'][$granule][$channel][2] = 0; - // - // for ($window = 0; $window < 3; $window++) { - // $thisfile_mpeg_audio['subblock_gain'][$granule][$channel][$window] = substr($SideInfoBitstream, $SideInfoOffset, 3); - // $SideInfoOffset += 3; - // } - // - // } else { - // - // for ($region = 0; $region < 3; $region++) { - // $thisfile_mpeg_audio['table_select'][$granule][$channel][$region] = substr($SideInfoBitstream, $SideInfoOffset, 5); - // $SideInfoOffset += 5; - // } - // - // $thisfile_mpeg_audio['region0_count'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 4); - // $SideInfoOffset += 4; - // $thisfile_mpeg_audio['region1_count'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 3); - // $SideInfoOffset += 3; - // $thisfile_mpeg_audio['block_type'][$granule][$channel] = 0; - // } - // - // if ($thisfile_mpeg_audio['version'] == '1') { - // $thisfile_mpeg_audio['preflag'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 1; - // } - // $thisfile_mpeg_audio['scalefac_scale'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 1; - // $thisfile_mpeg_audio['count1table_select'][$granule][$channel] = substr($SideInfoBitstream, $SideInfoOffset, 1); - // $SideInfoOffset += 1; - // } - // } - //} - - return true; - } - - public function RecursiveFrameScanning(&$offset, &$nextframetestoffset, $ScanAsCBR) { - $info = &$this->getid3->info; - $firstframetestarray = array('error'=>'', 'warning'=>'', 'avdataend'=>$info['avdataend'], 'avdataoffset'=>$info['avdataoffset']); - $this->decodeMPEGaudioHeader($offset, $firstframetestarray, false); - - for ($i = 0; $i < GETID3_MP3_VALID_CHECK_FRAMES; $i++) { - // check next GETID3_MP3_VALID_CHECK_FRAMES frames for validity, to make sure we haven't run across a false synch - if (($nextframetestoffset + 4) >= $info['avdataend']) { - // end of file - return true; - } - - $nextframetestarray = array('error'=>'', 'warning'=>'', 'avdataend'=>$info['avdataend'], 'avdataoffset'=>$info['avdataoffset']); - if ($this->decodeMPEGaudioHeader($nextframetestoffset, $nextframetestarray, false)) { - if ($ScanAsCBR) { - // force CBR mode, used for trying to pick out invalid audio streams with valid(?) VBR headers, or VBR streams with no VBR header - if (!isset($nextframetestarray['mpeg']['audio']['bitrate']) || !isset($firstframetestarray['mpeg']['audio']['bitrate']) || ($nextframetestarray['mpeg']['audio']['bitrate'] != $firstframetestarray['mpeg']['audio']['bitrate'])) { - return false; - } - } - - - // next frame is OK, get ready to check the one after that - if (isset($nextframetestarray['mpeg']['audio']['framelength']) && ($nextframetestarray['mpeg']['audio']['framelength'] > 0)) { - $nextframetestoffset += $nextframetestarray['mpeg']['audio']['framelength']; - } else { - $info['error'][] = 'Frame at offset ('.$offset.') is has an invalid frame length.'; - return false; - } - - } elseif (!empty($firstframetestarray['mpeg']['audio']['framelength']) && (($nextframetestoffset + $firstframetestarray['mpeg']['audio']['framelength']) > $info['avdataend'])) { - - // it's not the end of the file, but there's not enough data left for another frame, so assume it's garbage/padding and return OK - return true; - - } else { - - // next frame is not valid, note the error and fail, so scanning can contiue for a valid frame sequence - $info['warning'][] = 'Frame at offset ('.$offset.') is valid, but the next one at ('.$nextframetestoffset.') is not.'; - - return false; - } - } - return true; - } - - public function FreeFormatFrameLength($offset, $deepscan=false) { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $offset, SEEK_SET); - $MPEGaudioData = fread($this->getid3->fp, 32768); - - $SyncPattern1 = substr($MPEGaudioData, 0, 4); - // may be different pattern due to padding - $SyncPattern2 = $SyncPattern1{0}.$SyncPattern1{1}.chr(ord($SyncPattern1{2}) | 0x02).$SyncPattern1{3}; - if ($SyncPattern2 === $SyncPattern1) { - $SyncPattern2 = $SyncPattern1{0}.$SyncPattern1{1}.chr(ord($SyncPattern1{2}) & 0xFD).$SyncPattern1{3}; - } - - $framelength = false; - $framelength1 = strpos($MPEGaudioData, $SyncPattern1, 4); - $framelength2 = strpos($MPEGaudioData, $SyncPattern2, 4); - if ($framelength1 > 4) { - $framelength = $framelength1; - } - if (($framelength2 > 4) && ($framelength2 < $framelength1)) { - $framelength = $framelength2; - } - if (!$framelength) { - - // LAME 3.88 has a different value for modeextension on the first frame vs the rest - $framelength1 = strpos($MPEGaudioData, substr($SyncPattern1, 0, 3), 4); - $framelength2 = strpos($MPEGaudioData, substr($SyncPattern2, 0, 3), 4); - - if ($framelength1 > 4) { - $framelength = $framelength1; - } - if (($framelength2 > 4) && ($framelength2 < $framelength1)) { - $framelength = $framelength2; - } - if (!$framelength) { - $info['error'][] = 'Cannot find next free-format synch pattern ('.getid3_lib::PrintHexBytes($SyncPattern1).' or '.getid3_lib::PrintHexBytes($SyncPattern2).') after offset '.$offset; - return false; - } else { - $info['warning'][] = 'ModeExtension varies between first frame and other frames (known free-format issue in LAME 3.88)'; - $info['audio']['codec'] = 'LAME'; - $info['audio']['encoder'] = 'LAME3.88'; - $SyncPattern1 = substr($SyncPattern1, 0, 3); - $SyncPattern2 = substr($SyncPattern2, 0, 3); - } - } - - if ($deepscan) { - - $ActualFrameLengthValues = array(); - $nextoffset = $offset + $framelength; - while ($nextoffset < ($info['avdataend'] - 6)) { - fseek($this->getid3->fp, $nextoffset - 1, SEEK_SET); - $NextSyncPattern = fread($this->getid3->fp, 6); - if ((substr($NextSyncPattern, 1, strlen($SyncPattern1)) == $SyncPattern1) || (substr($NextSyncPattern, 1, strlen($SyncPattern2)) == $SyncPattern2)) { - // good - found where expected - $ActualFrameLengthValues[] = $framelength; - } elseif ((substr($NextSyncPattern, 0, strlen($SyncPattern1)) == $SyncPattern1) || (substr($NextSyncPattern, 0, strlen($SyncPattern2)) == $SyncPattern2)) { - // ok - found one byte earlier than expected (last frame wasn't padded, first frame was) - $ActualFrameLengthValues[] = ($framelength - 1); - $nextoffset--; - } elseif ((substr($NextSyncPattern, 2, strlen($SyncPattern1)) == $SyncPattern1) || (substr($NextSyncPattern, 2, strlen($SyncPattern2)) == $SyncPattern2)) { - // ok - found one byte later than expected (last frame was padded, first frame wasn't) - $ActualFrameLengthValues[] = ($framelength + 1); - $nextoffset++; - } else { - $info['error'][] = 'Did not find expected free-format sync pattern at offset '.$nextoffset; - return false; - } - $nextoffset += $framelength; - } - if (count($ActualFrameLengthValues) > 0) { - $framelength = intval(round(array_sum($ActualFrameLengthValues) / count($ActualFrameLengthValues))); - } - } - return $framelength; - } - - public function getOnlyMPEGaudioInfoBruteForce() { - $MPEGaudioHeaderDecodeCache = array(); - $MPEGaudioHeaderValidCache = array(); - $MPEGaudioHeaderLengthCache = array(); - $MPEGaudioVersionLookup = self::MPEGaudioVersionArray(); - $MPEGaudioLayerLookup = self::MPEGaudioLayerArray(); - $MPEGaudioBitrateLookup = self::MPEGaudioBitrateArray(); - $MPEGaudioFrequencyLookup = self::MPEGaudioFrequencyArray(); - $MPEGaudioChannelModeLookup = self::MPEGaudioChannelModeArray(); - $MPEGaudioModeExtensionLookup = self::MPEGaudioModeExtensionArray(); - $MPEGaudioEmphasisLookup = self::MPEGaudioEmphasisArray(); - $LongMPEGversionLookup = array(); - $LongMPEGlayerLookup = array(); - $LongMPEGbitrateLookup = array(); - $LongMPEGpaddingLookup = array(); - $LongMPEGfrequencyLookup = array(); - $Distribution['bitrate'] = array(); - $Distribution['frequency'] = array(); - $Distribution['layer'] = array(); - $Distribution['version'] = array(); - $Distribution['padding'] = array(); - - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $max_frames_scan = 5000; - $frames_scanned = 0; - - $previousvalidframe = $info['avdataoffset']; - while (ftell($this->getid3->fp) < $info['avdataend']) { - set_time_limit(30); - $head4 = fread($this->getid3->fp, 4); - if (strlen($head4) < 4) { - break; - } - if ($head4{0} != "\xFF") { - for ($i = 1; $i < 4; $i++) { - if ($head4{$i} == "\xFF") { - fseek($this->getid3->fp, $i - 4, SEEK_CUR); - continue 2; - } - } - continue; - } - if (!isset($MPEGaudioHeaderDecodeCache[$head4])) { - $MPEGaudioHeaderDecodeCache[$head4] = self::MPEGaudioHeaderDecode($head4); - } - if (!isset($MPEGaudioHeaderValidCache[$head4])) { - $MPEGaudioHeaderValidCache[$head4] = self::MPEGaudioHeaderValid($MPEGaudioHeaderDecodeCache[$head4], false, false); - } - if ($MPEGaudioHeaderValidCache[$head4]) { - - if (!isset($MPEGaudioHeaderLengthCache[$head4])) { - $LongMPEGversionLookup[$head4] = $MPEGaudioVersionLookup[$MPEGaudioHeaderDecodeCache[$head4]['version']]; - $LongMPEGlayerLookup[$head4] = $MPEGaudioLayerLookup[$MPEGaudioHeaderDecodeCache[$head4]['layer']]; - $LongMPEGbitrateLookup[$head4] = $MPEGaudioBitrateLookup[$LongMPEGversionLookup[$head4]][$LongMPEGlayerLookup[$head4]][$MPEGaudioHeaderDecodeCache[$head4]['bitrate']]; - $LongMPEGpaddingLookup[$head4] = (bool) $MPEGaudioHeaderDecodeCache[$head4]['padding']; - $LongMPEGfrequencyLookup[$head4] = $MPEGaudioFrequencyLookup[$LongMPEGversionLookup[$head4]][$MPEGaudioHeaderDecodeCache[$head4]['sample_rate']]; - $MPEGaudioHeaderLengthCache[$head4] = self::MPEGaudioFrameLength( - $LongMPEGbitrateLookup[$head4], - $LongMPEGversionLookup[$head4], - $LongMPEGlayerLookup[$head4], - $LongMPEGpaddingLookup[$head4], - $LongMPEGfrequencyLookup[$head4]); - } - if ($MPEGaudioHeaderLengthCache[$head4] > 4) { - $WhereWeWere = ftell($this->getid3->fp); - fseek($this->getid3->fp, $MPEGaudioHeaderLengthCache[$head4] - 4, SEEK_CUR); - $next4 = fread($this->getid3->fp, 4); - if ($next4{0} == "\xFF") { - if (!isset($MPEGaudioHeaderDecodeCache[$next4])) { - $MPEGaudioHeaderDecodeCache[$next4] = self::MPEGaudioHeaderDecode($next4); - } - if (!isset($MPEGaudioHeaderValidCache[$next4])) { - $MPEGaudioHeaderValidCache[$next4] = self::MPEGaudioHeaderValid($MPEGaudioHeaderDecodeCache[$next4], false, false); - } - if ($MPEGaudioHeaderValidCache[$next4]) { - fseek($this->getid3->fp, -4, SEEK_CUR); - - getid3_lib::safe_inc($Distribution['bitrate'][$LongMPEGbitrateLookup[$head4]]); - getid3_lib::safe_inc($Distribution['layer'][$LongMPEGlayerLookup[$head4]]); - getid3_lib::safe_inc($Distribution['version'][$LongMPEGversionLookup[$head4]]); - getid3_lib::safe_inc($Distribution['padding'][intval($LongMPEGpaddingLookup[$head4])]); - getid3_lib::safe_inc($Distribution['frequency'][$LongMPEGfrequencyLookup[$head4]]); - if ($max_frames_scan && (++$frames_scanned >= $max_frames_scan)) { - $pct_data_scanned = (ftell($this->getid3->fp) - $info['avdataoffset']) / ($info['avdataend'] - $info['avdataoffset']); - $info['warning'][] = 'too many MPEG audio frames to scan, only scanned first '.$max_frames_scan.' frames ('.number_format($pct_data_scanned * 100, 1).'% of file) and extrapolated distribution, playtime and bitrate may be incorrect.'; - foreach ($Distribution as $key1 => $value1) { - foreach ($value1 as $key2 => $value2) { - $Distribution[$key1][$key2] = round($value2 / $pct_data_scanned); - } - } - break; - } - continue; - } - } - unset($next4); - fseek($this->getid3->fp, $WhereWeWere - 3, SEEK_SET); - } - - } - } - foreach ($Distribution as $key => $value) { - ksort($Distribution[$key], SORT_NUMERIC); - } - ksort($Distribution['version'], SORT_STRING); - $info['mpeg']['audio']['bitrate_distribution'] = $Distribution['bitrate']; - $info['mpeg']['audio']['frequency_distribution'] = $Distribution['frequency']; - $info['mpeg']['audio']['layer_distribution'] = $Distribution['layer']; - $info['mpeg']['audio']['version_distribution'] = $Distribution['version']; - $info['mpeg']['audio']['padding_distribution'] = $Distribution['padding']; - if (count($Distribution['version']) > 1) { - $info['error'][] = 'Corrupt file - more than one MPEG version detected'; - } - if (count($Distribution['layer']) > 1) { - $info['error'][] = 'Corrupt file - more than one MPEG layer detected'; - } - if (count($Distribution['frequency']) > 1) { - $info['error'][] = 'Corrupt file - more than one MPEG sample rate detected'; - } - - - $bittotal = 0; - foreach ($Distribution['bitrate'] as $bitratevalue => $bitratecount) { - if ($bitratevalue != 'free') { - $bittotal += ($bitratevalue * $bitratecount); - } - } - $info['mpeg']['audio']['frame_count'] = array_sum($Distribution['bitrate']); - if ($info['mpeg']['audio']['frame_count'] == 0) { - $info['error'][] = 'no MPEG audio frames found'; - return false; - } - $info['mpeg']['audio']['bitrate'] = ($bittotal / $info['mpeg']['audio']['frame_count']); - $info['mpeg']['audio']['bitrate_mode'] = ((count($Distribution['bitrate']) > 0) ? 'vbr' : 'cbr'); - $info['mpeg']['audio']['sample_rate'] = getid3_lib::array_max($Distribution['frequency'], true); - - $info['audio']['bitrate'] = $info['mpeg']['audio']['bitrate']; - $info['audio']['bitrate_mode'] = $info['mpeg']['audio']['bitrate_mode']; - $info['audio']['sample_rate'] = $info['mpeg']['audio']['sample_rate']; - $info['audio']['dataformat'] = 'mp'.getid3_lib::array_max($Distribution['layer'], true); - $info['fileformat'] = $info['audio']['dataformat']; - - return true; - } - - - public function getOnlyMPEGaudioInfo($avdataoffset, $BitrateHistogram=false) { - // looks for synch, decodes MPEG audio header - - $info = &$this->getid3->info; - - static $MPEGaudioVersionLookup; - static $MPEGaudioLayerLookup; - static $MPEGaudioBitrateLookup; - if (empty($MPEGaudioVersionLookup)) { - $MPEGaudioVersionLookup = self::MPEGaudioVersionArray(); - $MPEGaudioLayerLookup = self::MPEGaudioLayerArray(); - $MPEGaudioBitrateLookup = self::MPEGaudioBitrateArray(); - - } - - fseek($this->getid3->fp, $avdataoffset, SEEK_SET); - $sync_seek_buffer_size = min(128 * 1024, $info['avdataend'] - $avdataoffset); - if ($sync_seek_buffer_size <= 0) { - $info['error'][] = 'Invalid $sync_seek_buffer_size at offset '.$avdataoffset; - return false; - } - $header = fread($this->getid3->fp, $sync_seek_buffer_size); - $sync_seek_buffer_size = strlen($header); - $SynchSeekOffset = 0; - while ($SynchSeekOffset < $sync_seek_buffer_size) { - if ((($avdataoffset + $SynchSeekOffset) < $info['avdataend']) && !feof($this->getid3->fp)) { - - if ($SynchSeekOffset > $sync_seek_buffer_size) { - // if a synch's not found within the first 128k bytes, then give up - $info['error'][] = 'Could not find valid MPEG audio synch within the first '.round($sync_seek_buffer_size / 1024).'kB'; - if (isset($info['audio']['bitrate'])) { - unset($info['audio']['bitrate']); - } - if (isset($info['mpeg']['audio'])) { - unset($info['mpeg']['audio']); - } - if (empty($info['mpeg'])) { - unset($info['mpeg']); - } - return false; - - } elseif (feof($this->getid3->fp)) { - - $info['error'][] = 'Could not find valid MPEG audio synch before end of file'; - if (isset($info['audio']['bitrate'])) { - unset($info['audio']['bitrate']); - } - if (isset($info['mpeg']['audio'])) { - unset($info['mpeg']['audio']); - } - if (isset($info['mpeg']) && (!is_array($info['mpeg']) || (count($info['mpeg']) == 0))) { - unset($info['mpeg']); - } - return false; - } - } - - if (($SynchSeekOffset + 1) >= strlen($header)) { - $info['error'][] = 'Could not find valid MPEG synch before end of file'; - return false; - } - - if (($header{$SynchSeekOffset} == "\xFF") && ($header{($SynchSeekOffset + 1)} > "\xE0")) { // synch detected - if (!isset($FirstFrameThisfileInfo) && !isset($info['mpeg']['audio'])) { - $FirstFrameThisfileInfo = $info; - $FirstFrameAVDataOffset = $avdataoffset + $SynchSeekOffset; - if (!$this->decodeMPEGaudioHeader($FirstFrameAVDataOffset, $FirstFrameThisfileInfo, false)) { - // if this is the first valid MPEG-audio frame, save it in case it's a VBR header frame and there's - // garbage between this frame and a valid sequence of MPEG-audio frames, to be restored below - unset($FirstFrameThisfileInfo); - } - } - - $dummy = $info; // only overwrite real data if valid header found - if ($this->decodeMPEGaudioHeader($avdataoffset + $SynchSeekOffset, $dummy, true)) { - $info = $dummy; - $info['avdataoffset'] = $avdataoffset + $SynchSeekOffset; - switch (isset($info['fileformat']) ? $info['fileformat'] : '') { - case '': - case 'id3': - case 'ape': - case 'mp3': - $info['fileformat'] = 'mp3'; - $info['audio']['dataformat'] = 'mp3'; - break; - } - if (isset($FirstFrameThisfileInfo['mpeg']['audio']['bitrate_mode']) && ($FirstFrameThisfileInfo['mpeg']['audio']['bitrate_mode'] == 'vbr')) { - if (!(abs($info['audio']['bitrate'] - $FirstFrameThisfileInfo['audio']['bitrate']) <= 1)) { - // If there is garbage data between a valid VBR header frame and a sequence - // of valid MPEG-audio frames the VBR data is no longer discarded. - $info = $FirstFrameThisfileInfo; - $info['avdataoffset'] = $FirstFrameAVDataOffset; - $info['fileformat'] = 'mp3'; - $info['audio']['dataformat'] = 'mp3'; - $dummy = $info; - unset($dummy['mpeg']['audio']); - $GarbageOffsetStart = $FirstFrameAVDataOffset + $FirstFrameThisfileInfo['mpeg']['audio']['framelength']; - $GarbageOffsetEnd = $avdataoffset + $SynchSeekOffset; - if ($this->decodeMPEGaudioHeader($GarbageOffsetEnd, $dummy, true, true)) { - $info = $dummy; - $info['avdataoffset'] = $GarbageOffsetEnd; - $info['warning'][] = 'apparently-valid VBR header not used because could not find '.GETID3_MP3_VALID_CHECK_FRAMES.' consecutive MPEG-audio frames immediately after VBR header (garbage data for '.($GarbageOffsetEnd - $GarbageOffsetStart).' bytes between '.$GarbageOffsetStart.' and '.$GarbageOffsetEnd.'), but did find valid CBR stream starting at '.$GarbageOffsetEnd; - } else { - $info['warning'][] = 'using data from VBR header even though could not find '.GETID3_MP3_VALID_CHECK_FRAMES.' consecutive MPEG-audio frames immediately after VBR header (garbage data for '.($GarbageOffsetEnd - $GarbageOffsetStart).' bytes between '.$GarbageOffsetStart.' and '.$GarbageOffsetEnd.')'; - } - } - } - if (isset($info['mpeg']['audio']['bitrate_mode']) && ($info['mpeg']['audio']['bitrate_mode'] == 'vbr') && !isset($info['mpeg']['audio']['VBR_method'])) { - // VBR file with no VBR header - $BitrateHistogram = true; - } - - if ($BitrateHistogram) { - - $info['mpeg']['audio']['stereo_distribution'] = array('stereo'=>0, 'joint stereo'=>0, 'dual channel'=>0, 'mono'=>0); - $info['mpeg']['audio']['version_distribution'] = array('1'=>0, '2'=>0, '2.5'=>0); - - if ($info['mpeg']['audio']['version'] == '1') { - if ($info['mpeg']['audio']['layer'] == 3) { - $info['mpeg']['audio']['bitrate_distribution'] = array('free'=>0, 32000=>0, 40000=>0, 48000=>0, 56000=>0, 64000=>0, 80000=>0, 96000=>0, 112000=>0, 128000=>0, 160000=>0, 192000=>0, 224000=>0, 256000=>0, 320000=>0); - } elseif ($info['mpeg']['audio']['layer'] == 2) { - $info['mpeg']['audio']['bitrate_distribution'] = array('free'=>0, 32000=>0, 48000=>0, 56000=>0, 64000=>0, 80000=>0, 96000=>0, 112000=>0, 128000=>0, 160000=>0, 192000=>0, 224000=>0, 256000=>0, 320000=>0, 384000=>0); - } elseif ($info['mpeg']['audio']['layer'] == 1) { - $info['mpeg']['audio']['bitrate_distribution'] = array('free'=>0, 32000=>0, 64000=>0, 96000=>0, 128000=>0, 160000=>0, 192000=>0, 224000=>0, 256000=>0, 288000=>0, 320000=>0, 352000=>0, 384000=>0, 416000=>0, 448000=>0); - } - } elseif ($info['mpeg']['audio']['layer'] == 1) { - $info['mpeg']['audio']['bitrate_distribution'] = array('free'=>0, 32000=>0, 48000=>0, 56000=>0, 64000=>0, 80000=>0, 96000=>0, 112000=>0, 128000=>0, 144000=>0, 160000=>0, 176000=>0, 192000=>0, 224000=>0, 256000=>0); - } else { - $info['mpeg']['audio']['bitrate_distribution'] = array('free'=>0, 8000=>0, 16000=>0, 24000=>0, 32000=>0, 40000=>0, 48000=>0, 56000=>0, 64000=>0, 80000=>0, 96000=>0, 112000=>0, 128000=>0, 144000=>0, 160000=>0); - } - - $dummy = array('error'=>$info['error'], 'warning'=>$info['warning'], 'avdataend'=>$info['avdataend'], 'avdataoffset'=>$info['avdataoffset']); - $synchstartoffset = $info['avdataoffset']; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - // you can play with these numbers: - $max_frames_scan = 50000; - $max_scan_segments = 10; - - // don't play with these numbers: - $FastMode = false; - $SynchErrorsFound = 0; - $frames_scanned = 0; - $this_scan_segment = 0; - $frames_scan_per_segment = ceil($max_frames_scan / $max_scan_segments); - $pct_data_scanned = 0; - for ($current_segment = 0; $current_segment < $max_scan_segments; $current_segment++) { - $frames_scanned_this_segment = 0; - if (ftell($this->getid3->fp) >= $info['avdataend']) { - break; - } - $scan_start_offset[$current_segment] = max(ftell($this->getid3->fp), $info['avdataoffset'] + round($current_segment * (($info['avdataend'] - $info['avdataoffset']) / $max_scan_segments))); - if ($current_segment > 0) { - fseek($this->getid3->fp, $scan_start_offset[$current_segment], SEEK_SET); - $buffer_4k = fread($this->getid3->fp, 4096); - for ($j = 0; $j < (strlen($buffer_4k) - 4); $j++) { - if (($buffer_4k{$j} == "\xFF") && ($buffer_4k{($j + 1)} > "\xE0")) { // synch detected - if ($this->decodeMPEGaudioHeader($scan_start_offset[$current_segment] + $j, $dummy, false, false, $FastMode)) { - $calculated_next_offset = $scan_start_offset[$current_segment] + $j + $dummy['mpeg']['audio']['framelength']; - if ($this->decodeMPEGaudioHeader($calculated_next_offset, $dummy, false, false, $FastMode)) { - $scan_start_offset[$current_segment] += $j; - break; - } - } - } - } - } - $synchstartoffset = $scan_start_offset[$current_segment]; - while ($this->decodeMPEGaudioHeader($synchstartoffset, $dummy, false, false, $FastMode)) { - $FastMode = true; - $thisframebitrate = $MPEGaudioBitrateLookup[$MPEGaudioVersionLookup[$dummy['mpeg']['audio']['raw']['version']]][$MPEGaudioLayerLookup[$dummy['mpeg']['audio']['raw']['layer']]][$dummy['mpeg']['audio']['raw']['bitrate']]; - - if (empty($dummy['mpeg']['audio']['framelength'])) { - $SynchErrorsFound++; - $synchstartoffset++; - } else { - getid3_lib::safe_inc($info['mpeg']['audio']['bitrate_distribution'][$thisframebitrate]); - getid3_lib::safe_inc($info['mpeg']['audio']['stereo_distribution'][$dummy['mpeg']['audio']['channelmode']]); - getid3_lib::safe_inc($info['mpeg']['audio']['version_distribution'][$dummy['mpeg']['audio']['version']]); - $synchstartoffset += $dummy['mpeg']['audio']['framelength']; - } - $frames_scanned++; - if ($frames_scan_per_segment && (++$frames_scanned_this_segment >= $frames_scan_per_segment)) { - $this_pct_scanned = (ftell($this->getid3->fp) - $scan_start_offset[$current_segment]) / ($info['avdataend'] - $info['avdataoffset']); - if (($current_segment == 0) && (($this_pct_scanned * $max_scan_segments) >= 1)) { - // file likely contains < $max_frames_scan, just scan as one segment - $max_scan_segments = 1; - $frames_scan_per_segment = $max_frames_scan; - } else { - $pct_data_scanned += $this_pct_scanned; - break; - } - } - } - } - if ($pct_data_scanned > 0) { - $info['warning'][] = 'too many MPEG audio frames to scan, only scanned '.$frames_scanned.' frames in '.$max_scan_segments.' segments ('.number_format($pct_data_scanned * 100, 1).'% of file) and extrapolated distribution, playtime and bitrate may be incorrect.'; - foreach ($info['mpeg']['audio'] as $key1 => $value1) { - if (!preg_match('#_distribution$#i', $key1)) { - continue; - } - foreach ($value1 as $key2 => $value2) { - $info['mpeg']['audio'][$key1][$key2] = round($value2 / $pct_data_scanned); - } - } - } - - if ($SynchErrorsFound > 0) { - $info['warning'][] = 'Found '.$SynchErrorsFound.' synch errors in histogram analysis'; - //return false; - } - - $bittotal = 0; - $framecounter = 0; - foreach ($info['mpeg']['audio']['bitrate_distribution'] as $bitratevalue => $bitratecount) { - $framecounter += $bitratecount; - if ($bitratevalue != 'free') { - $bittotal += ($bitratevalue * $bitratecount); - } - } - if ($framecounter == 0) { - $info['error'][] = 'Corrupt MP3 file: framecounter == zero'; - return false; - } - $info['mpeg']['audio']['frame_count'] = getid3_lib::CastAsInt($framecounter); - $info['mpeg']['audio']['bitrate'] = ($bittotal / $framecounter); - - $info['audio']['bitrate'] = $info['mpeg']['audio']['bitrate']; - - - // Definitively set VBR vs CBR, even if the Xing/LAME/VBRI header says differently - $distinct_bitrates = 0; - foreach ($info['mpeg']['audio']['bitrate_distribution'] as $bitrate_value => $bitrate_count) { - if ($bitrate_count > 0) { - $distinct_bitrates++; - } - } - if ($distinct_bitrates > 1) { - $info['mpeg']['audio']['bitrate_mode'] = 'vbr'; - } else { - $info['mpeg']['audio']['bitrate_mode'] = 'cbr'; - } - $info['audio']['bitrate_mode'] = $info['mpeg']['audio']['bitrate_mode']; - - } - - break; // exit while() - } - } - - $SynchSeekOffset++; - if (($avdataoffset + $SynchSeekOffset) >= $info['avdataend']) { - // end of file/data - - if (empty($info['mpeg']['audio'])) { - - $info['error'][] = 'could not find valid MPEG synch before end of file'; - if (isset($info['audio']['bitrate'])) { - unset($info['audio']['bitrate']); - } - if (isset($info['mpeg']['audio'])) { - unset($info['mpeg']['audio']); - } - if (isset($info['mpeg']) && (!is_array($info['mpeg']) || empty($info['mpeg']))) { - unset($info['mpeg']); - } - return false; - - } - break; - } - - } - $info['audio']['channels'] = $info['mpeg']['audio']['channels']; - $info['audio']['channelmode'] = $info['mpeg']['audio']['channelmode']; - $info['audio']['sample_rate'] = $info['mpeg']['audio']['sample_rate']; - return true; - } - - - public static function MPEGaudioVersionArray() { - static $MPEGaudioVersion = array('2.5', false, '2', '1'); - return $MPEGaudioVersion; - } - - public static function MPEGaudioLayerArray() { - static $MPEGaudioLayer = array(false, 3, 2, 1); - return $MPEGaudioLayer; - } - - public static function MPEGaudioBitrateArray() { - static $MPEGaudioBitrate; - if (empty($MPEGaudioBitrate)) { - $MPEGaudioBitrate = array ( - '1' => array (1 => array('free', 32000, 64000, 96000, 128000, 160000, 192000, 224000, 256000, 288000, 320000, 352000, 384000, 416000, 448000), - 2 => array('free', 32000, 48000, 56000, 64000, 80000, 96000, 112000, 128000, 160000, 192000, 224000, 256000, 320000, 384000), - 3 => array('free', 32000, 40000, 48000, 56000, 64000, 80000, 96000, 112000, 128000, 160000, 192000, 224000, 256000, 320000) - ), - - '2' => array (1 => array('free', 32000, 48000, 56000, 64000, 80000, 96000, 112000, 128000, 144000, 160000, 176000, 192000, 224000, 256000), - 2 => array('free', 8000, 16000, 24000, 32000, 40000, 48000, 56000, 64000, 80000, 96000, 112000, 128000, 144000, 160000), - ) - ); - $MPEGaudioBitrate['2'][3] = $MPEGaudioBitrate['2'][2]; - $MPEGaudioBitrate['2.5'] = $MPEGaudioBitrate['2']; - } - return $MPEGaudioBitrate; - } - - public static function MPEGaudioFrequencyArray() { - static $MPEGaudioFrequency; - if (empty($MPEGaudioFrequency)) { - $MPEGaudioFrequency = array ( - '1' => array(44100, 48000, 32000), - '2' => array(22050, 24000, 16000), - '2.5' => array(11025, 12000, 8000) - ); - } - return $MPEGaudioFrequency; - } - - public static function MPEGaudioChannelModeArray() { - static $MPEGaudioChannelMode = array('stereo', 'joint stereo', 'dual channel', 'mono'); - return $MPEGaudioChannelMode; - } - - public static function MPEGaudioModeExtensionArray() { - static $MPEGaudioModeExtension; - if (empty($MPEGaudioModeExtension)) { - $MPEGaudioModeExtension = array ( - 1 => array('4-31', '8-31', '12-31', '16-31'), - 2 => array('4-31', '8-31', '12-31', '16-31'), - 3 => array('', 'IS', 'MS', 'IS+MS') - ); - } - return $MPEGaudioModeExtension; - } - - public static function MPEGaudioEmphasisArray() { - static $MPEGaudioEmphasis = array('none', '50/15ms', false, 'CCIT J.17'); - return $MPEGaudioEmphasis; - } - - public static function MPEGaudioHeaderBytesValid($head4, $allowBitrate15=false) { - return self::MPEGaudioHeaderValid(self::MPEGaudioHeaderDecode($head4), false, $allowBitrate15); - } - - public static function MPEGaudioHeaderValid($rawarray, $echoerrors=false, $allowBitrate15=false) { - if (($rawarray['synch'] & 0x0FFE) != 0x0FFE) { - return false; - } - - static $MPEGaudioVersionLookup; - static $MPEGaudioLayerLookup; - static $MPEGaudioBitrateLookup; - static $MPEGaudioFrequencyLookup; - static $MPEGaudioChannelModeLookup; - static $MPEGaudioModeExtensionLookup; - static $MPEGaudioEmphasisLookup; - if (empty($MPEGaudioVersionLookup)) { - $MPEGaudioVersionLookup = self::MPEGaudioVersionArray(); - $MPEGaudioLayerLookup = self::MPEGaudioLayerArray(); - $MPEGaudioBitrateLookup = self::MPEGaudioBitrateArray(); - $MPEGaudioFrequencyLookup = self::MPEGaudioFrequencyArray(); - $MPEGaudioChannelModeLookup = self::MPEGaudioChannelModeArray(); - $MPEGaudioModeExtensionLookup = self::MPEGaudioModeExtensionArray(); - $MPEGaudioEmphasisLookup = self::MPEGaudioEmphasisArray(); - } - - if (isset($MPEGaudioVersionLookup[$rawarray['version']])) { - $decodedVersion = $MPEGaudioVersionLookup[$rawarray['version']]; - } else { - echo ($echoerrors ? "\n".'invalid Version ('.$rawarray['version'].')' : ''); - return false; - } - if (isset($MPEGaudioLayerLookup[$rawarray['layer']])) { - $decodedLayer = $MPEGaudioLayerLookup[$rawarray['layer']]; - } else { - echo ($echoerrors ? "\n".'invalid Layer ('.$rawarray['layer'].')' : ''); - return false; - } - if (!isset($MPEGaudioBitrateLookup[$decodedVersion][$decodedLayer][$rawarray['bitrate']])) { - echo ($echoerrors ? "\n".'invalid Bitrate ('.$rawarray['bitrate'].')' : ''); - if ($rawarray['bitrate'] == 15) { - // known issue in LAME 3.90 - 3.93.1 where free-format has bitrate ID of 15 instead of 0 - // let it go through here otherwise file will not be identified - if (!$allowBitrate15) { - return false; - } - } else { - return false; - } - } - if (!isset($MPEGaudioFrequencyLookup[$decodedVersion][$rawarray['sample_rate']])) { - echo ($echoerrors ? "\n".'invalid Frequency ('.$rawarray['sample_rate'].')' : ''); - return false; - } - if (!isset($MPEGaudioChannelModeLookup[$rawarray['channelmode']])) { - echo ($echoerrors ? "\n".'invalid ChannelMode ('.$rawarray['channelmode'].')' : ''); - return false; - } - if (!isset($MPEGaudioModeExtensionLookup[$decodedLayer][$rawarray['modeextension']])) { - echo ($echoerrors ? "\n".'invalid Mode Extension ('.$rawarray['modeextension'].')' : ''); - return false; - } - if (!isset($MPEGaudioEmphasisLookup[$rawarray['emphasis']])) { - echo ($echoerrors ? "\n".'invalid Emphasis ('.$rawarray['emphasis'].')' : ''); - return false; - } - // These are just either set or not set, you can't mess that up :) - // $rawarray['protection']; - // $rawarray['padding']; - // $rawarray['private']; - // $rawarray['copyright']; - // $rawarray['original']; - - return true; - } - - public static function MPEGaudioHeaderDecode($Header4Bytes) { - // AAAA AAAA AAAB BCCD EEEE FFGH IIJJ KLMM - // A - Frame sync (all bits set) - // B - MPEG Audio version ID - // C - Layer description - // D - Protection bit - // E - Bitrate index - // F - Sampling rate frequency index - // G - Padding bit - // H - Private bit - // I - Channel Mode - // J - Mode extension (Only if Joint stereo) - // K - Copyright - // L - Original - // M - Emphasis - - if (strlen($Header4Bytes) != 4) { - return false; - } - - $MPEGrawHeader['synch'] = (getid3_lib::BigEndian2Int(substr($Header4Bytes, 0, 2)) & 0xFFE0) >> 4; - $MPEGrawHeader['version'] = (ord($Header4Bytes{1}) & 0x18) >> 3; // BB - $MPEGrawHeader['layer'] = (ord($Header4Bytes{1}) & 0x06) >> 1; // CC - $MPEGrawHeader['protection'] = (ord($Header4Bytes{1}) & 0x01); // D - $MPEGrawHeader['bitrate'] = (ord($Header4Bytes{2}) & 0xF0) >> 4; // EEEE - $MPEGrawHeader['sample_rate'] = (ord($Header4Bytes{2}) & 0x0C) >> 2; // FF - $MPEGrawHeader['padding'] = (ord($Header4Bytes{2}) & 0x02) >> 1; // G - $MPEGrawHeader['private'] = (ord($Header4Bytes{2}) & 0x01); // H - $MPEGrawHeader['channelmode'] = (ord($Header4Bytes{3}) & 0xC0) >> 6; // II - $MPEGrawHeader['modeextension'] = (ord($Header4Bytes{3}) & 0x30) >> 4; // JJ - $MPEGrawHeader['copyright'] = (ord($Header4Bytes{3}) & 0x08) >> 3; // K - $MPEGrawHeader['original'] = (ord($Header4Bytes{3}) & 0x04) >> 2; // L - $MPEGrawHeader['emphasis'] = (ord($Header4Bytes{3}) & 0x03); // MM - - return $MPEGrawHeader; - } - - public static function MPEGaudioFrameLength(&$bitrate, &$version, &$layer, $padding, &$samplerate) { - static $AudioFrameLengthCache = array(); - - if (!isset($AudioFrameLengthCache[$bitrate][$version][$layer][$padding][$samplerate])) { - $AudioFrameLengthCache[$bitrate][$version][$layer][$padding][$samplerate] = false; - if ($bitrate != 'free') { - - if ($version == '1') { - - if ($layer == '1') { - - // For Layer I slot is 32 bits long - $FrameLengthCoefficient = 48; - $SlotLength = 4; - - } else { // Layer 2 / 3 - - // for Layer 2 and Layer 3 slot is 8 bits long. - $FrameLengthCoefficient = 144; - $SlotLength = 1; - - } - - } else { // MPEG-2 / MPEG-2.5 - - if ($layer == '1') { - - // For Layer I slot is 32 bits long - $FrameLengthCoefficient = 24; - $SlotLength = 4; - - } elseif ($layer == '2') { - - // for Layer 2 and Layer 3 slot is 8 bits long. - $FrameLengthCoefficient = 144; - $SlotLength = 1; - - } else { // layer 3 - - // for Layer 2 and Layer 3 slot is 8 bits long. - $FrameLengthCoefficient = 72; - $SlotLength = 1; - - } - - } - - // FrameLengthInBytes = ((Coefficient * BitRate) / SampleRate) + Padding - if ($samplerate > 0) { - $NewFramelength = ($FrameLengthCoefficient * $bitrate) / $samplerate; - $NewFramelength = floor($NewFramelength / $SlotLength) * $SlotLength; // round to next-lower multiple of SlotLength (1 byte for Layer 2/3, 4 bytes for Layer I) - if ($padding) { - $NewFramelength += $SlotLength; - } - $AudioFrameLengthCache[$bitrate][$version][$layer][$padding][$samplerate] = (int) $NewFramelength; - } - } - } - return $AudioFrameLengthCache[$bitrate][$version][$layer][$padding][$samplerate]; - } - - public static function ClosestStandardMP3Bitrate($bit_rate) { - static $standard_bit_rates = array (320000, 256000, 224000, 192000, 160000, 128000, 112000, 96000, 80000, 64000, 56000, 48000, 40000, 32000, 24000, 16000, 8000); - static $bit_rate_table = array (0=>'-'); - $round_bit_rate = intval(round($bit_rate, -3)); - if (!isset($bit_rate_table[$round_bit_rate])) { - if ($round_bit_rate > max($standard_bit_rates)) { - $bit_rate_table[$round_bit_rate] = round($bit_rate, 2 - strlen($bit_rate)); - } else { - $bit_rate_table[$round_bit_rate] = max($standard_bit_rates); - foreach ($standard_bit_rates as $standard_bit_rate) { - if ($round_bit_rate >= $standard_bit_rate + (($bit_rate_table[$round_bit_rate] - $standard_bit_rate) / 2)) { - break; - } - $bit_rate_table[$round_bit_rate] = $standard_bit_rate; - } - } - } - return $bit_rate_table[$round_bit_rate]; - } - - public static function XingVBRidOffset($version, $channelmode) { - static $XingVBRidOffsetCache = array(); - if (empty($XingVBRidOffset)) { - $XingVBRidOffset = array ( - '1' => array ('mono' => 0x15, // 4 + 17 = 21 - 'stereo' => 0x24, // 4 + 32 = 36 - 'joint stereo' => 0x24, - 'dual channel' => 0x24 - ), - - '2' => array ('mono' => 0x0D, // 4 + 9 = 13 - 'stereo' => 0x15, // 4 + 17 = 21 - 'joint stereo' => 0x15, - 'dual channel' => 0x15 - ), - - '2.5' => array ('mono' => 0x15, - 'stereo' => 0x15, - 'joint stereo' => 0x15, - 'dual channel' => 0x15 - ) - ); - } - return $XingVBRidOffset[$version][$channelmode]; - } - - public static function LAMEvbrMethodLookup($VBRmethodID) { - static $LAMEvbrMethodLookup = array( - 0x00 => 'unknown', - 0x01 => 'cbr', - 0x02 => 'abr', - 0x03 => 'vbr-old / vbr-rh', - 0x04 => 'vbr-new / vbr-mtrh', - 0x05 => 'vbr-mt', - 0x06 => 'vbr (full vbr method 4)', - 0x08 => 'cbr (constant bitrate 2 pass)', - 0x09 => 'abr (2 pass)', - 0x0F => 'reserved' - ); - return (isset($LAMEvbrMethodLookup[$VBRmethodID]) ? $LAMEvbrMethodLookup[$VBRmethodID] : ''); - } - - public static function LAMEmiscStereoModeLookup($StereoModeID) { - static $LAMEmiscStereoModeLookup = array( - 0 => 'mono', - 1 => 'stereo', - 2 => 'dual mono', - 3 => 'joint stereo', - 4 => 'forced stereo', - 5 => 'auto', - 6 => 'intensity stereo', - 7 => 'other' - ); - return (isset($LAMEmiscStereoModeLookup[$StereoModeID]) ? $LAMEmiscStereoModeLookup[$StereoModeID] : ''); - } - - public static function LAMEmiscSourceSampleFrequencyLookup($SourceSampleFrequencyID) { - static $LAMEmiscSourceSampleFrequencyLookup = array( - 0 => '<= 32 kHz', - 1 => '44.1 kHz', - 2 => '48 kHz', - 3 => '> 48kHz' - ); - return (isset($LAMEmiscSourceSampleFrequencyLookup[$SourceSampleFrequencyID]) ? $LAMEmiscSourceSampleFrequencyLookup[$SourceSampleFrequencyID] : ''); - } - - public static function LAMEsurroundInfoLookup($SurroundInfoID) { - static $LAMEsurroundInfoLookup = array( - 0 => 'no surround info', - 1 => 'DPL encoding', - 2 => 'DPL2 encoding', - 3 => 'Ambisonic encoding' - ); - return (isset($LAMEsurroundInfoLookup[$SurroundInfoID]) ? $LAMEsurroundInfoLookup[$SurroundInfoID] : 'reserved'); - } - - public static function LAMEpresetUsedLookup($LAMEtag) { - - if ($LAMEtag['preset_used_id'] == 0) { - // no preset used (LAME >=3.93) - // no preset recorded (LAME <3.93) - return ''; - } - $LAMEpresetUsedLookup = array(); - - ///// THIS PART CANNOT BE STATIC . - for ($i = 8; $i <= 320; $i++) { - switch ($LAMEtag['vbr_method']) { - case 'cbr': - $LAMEpresetUsedLookup[$i] = '--alt-preset '.$LAMEtag['vbr_method'].' '.$i; - break; - case 'abr': - default: // other VBR modes shouldn't be here(?) - $LAMEpresetUsedLookup[$i] = '--alt-preset '.$i; - break; - } - } - - // named old-style presets (studio, phone, voice, etc) are handled in GuessEncoderOptions() - - // named alt-presets - $LAMEpresetUsedLookup[1000] = '--r3mix'; - $LAMEpresetUsedLookup[1001] = '--alt-preset standard'; - $LAMEpresetUsedLookup[1002] = '--alt-preset extreme'; - $LAMEpresetUsedLookup[1003] = '--alt-preset insane'; - $LAMEpresetUsedLookup[1004] = '--alt-preset fast standard'; - $LAMEpresetUsedLookup[1005] = '--alt-preset fast extreme'; - $LAMEpresetUsedLookup[1006] = '--alt-preset medium'; - $LAMEpresetUsedLookup[1007] = '--alt-preset fast medium'; - - // LAME 3.94 additions/changes - $LAMEpresetUsedLookup[1010] = '--preset portable'; // 3.94a15 Oct 21 2003 - $LAMEpresetUsedLookup[1015] = '--preset radio'; // 3.94a15 Oct 21 2003 - - $LAMEpresetUsedLookup[320] = '--preset insane'; // 3.94a15 Nov 12 2003 - $LAMEpresetUsedLookup[410] = '-V9'; - $LAMEpresetUsedLookup[420] = '-V8'; - $LAMEpresetUsedLookup[440] = '-V6'; - $LAMEpresetUsedLookup[430] = '--preset radio'; // 3.94a15 Nov 12 2003 - $LAMEpresetUsedLookup[450] = '--preset '.(($LAMEtag['raw']['vbr_method'] == 4) ? 'fast ' : '').'portable'; // 3.94a15 Nov 12 2003 - $LAMEpresetUsedLookup[460] = '--preset '.(($LAMEtag['raw']['vbr_method'] == 4) ? 'fast ' : '').'medium'; // 3.94a15 Nov 12 2003 - $LAMEpresetUsedLookup[470] = '--r3mix'; // 3.94b1 Dec 18 2003 - $LAMEpresetUsedLookup[480] = '--preset '.(($LAMEtag['raw']['vbr_method'] == 4) ? 'fast ' : '').'standard'; // 3.94a15 Nov 12 2003 - $LAMEpresetUsedLookup[490] = '-V1'; - $LAMEpresetUsedLookup[500] = '--preset '.(($LAMEtag['raw']['vbr_method'] == 4) ? 'fast ' : '').'extreme'; // 3.94a15 Nov 12 2003 - - return (isset($LAMEpresetUsedLookup[$LAMEtag['preset_used_id']]) ? $LAMEpresetUsedLookup[$LAMEtag['preset_used_id']] : 'new/unknown preset: '.$LAMEtag['preset_used_id'].' - report to info@getid3.org'); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.mpc.php b/web/htdocs/media/lib/getid3/module.audio.mpc.php deleted file mode 100644 index 8ab421ebe23..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.mpc.php +++ /dev/null @@ -1,506 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.mpc.php // -// module for analyzing Musepack/MPEG+ Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_mpc extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['mpc']['header'] = array(); - $thisfile_mpc_header = &$info['mpc']['header']; - - $info['fileformat'] = 'mpc'; - $info['audio']['dataformat'] = 'mpc'; - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['channels'] = 2; // up to SV7 the format appears to have been hardcoded for stereo only - $info['audio']['lossless'] = false; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $MPCheaderData = fread($this->getid3->fp, 4); - $info['mpc']['header']['preamble'] = substr($MPCheaderData, 0, 4); // should be 'MPCK' (SV8) or 'MP+' (SV7), otherwise possible stream data (SV4-SV6) - if (preg_match('#^MPCK#', $info['mpc']['header']['preamble'])) { - - // this is SV8 - return $this->ParseMPCsv8(); - - } elseif (preg_match('#^MP\+#', $info['mpc']['header']['preamble'])) { - - // this is SV7 - return $this->ParseMPCsv7(); - - } elseif (preg_match('/^[\x00\x01\x10\x11\x40\x41\x50\x51\x80\x81\x90\x91\xC0\xC1\xD0\xD1][\x20-37][\x00\x20\x40\x60\x80\xA0\xC0\xE0]/s', $MPCheaderData)) { - - // this is SV4 - SV6, handle seperately - return $this->ParseMPCsv6(); - - } else { - - $info['error'][] = 'Expecting "MP+" or "MPCK" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($MPCheaderData, 0, 4)).'"'; - unset($info['fileformat']); - unset($info['mpc']); - return false; - - } - return false; - } - - - public function ParseMPCsv8() { - // this is SV8 - // http://trac.musepack.net/trac/wiki/SV8Specification - - $info = &$this->getid3->info; - $thisfile_mpc_header = &$info['mpc']['header']; - - $keyNameSize = 2; - $maxHandledPacketLength = 9; // specs say: "n*8; 0 < n < 10" - - $offset = ftell($this->getid3->fp); - while ($offset < $info['avdataend']) { - $thisPacket = array(); - $thisPacket['offset'] = $offset; - $packet_offset = 0; - - // Size is a variable-size field, could be 1-4 bytes (possibly more?) - // read enough data in and figure out the exact size later - $MPCheaderData = fread($this->getid3->fp, $keyNameSize + $maxHandledPacketLength); - $packet_offset += $keyNameSize; - $thisPacket['key'] = substr($MPCheaderData, 0, $keyNameSize); - $thisPacket['key_name'] = $this->MPCsv8PacketName($thisPacket['key']); - if ($thisPacket['key'] == $thisPacket['key_name']) { - $info['error'][] = 'Found unexpected key value "'.$thisPacket['key'].'" at offset '.$thisPacket['offset']; - return false; - } - $packetLength = 0; - $thisPacket['packet_size'] = $this->SV8variableLengthInteger(substr($MPCheaderData, $keyNameSize), $packetLength); // includes keyname and packet_size field - if ($thisPacket['packet_size'] === false) { - $info['error'][] = 'Did not find expected packet length within '.$maxHandledPacketLength.' bytes at offset '.($thisPacket['offset'] + $keyNameSize); - return false; - } - $packet_offset += $packetLength; - $offset += $thisPacket['packet_size']; - - switch ($thisPacket['key']) { - case 'SH': // Stream Header - $moreBytesToRead = $thisPacket['packet_size'] - $keyNameSize - $maxHandledPacketLength; - if ($moreBytesToRead > 0) { - $MPCheaderData .= fread($this->getid3->fp, $moreBytesToRead); - } - $thisPacket['crc'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 4)); - $packet_offset += 4; - $thisPacket['stream_version'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - - $packetLength = 0; - $thisPacket['sample_count'] = $this->SV8variableLengthInteger(substr($MPCheaderData, $packet_offset, $maxHandledPacketLength), $packetLength); - $packet_offset += $packetLength; - - $packetLength = 0; - $thisPacket['beginning_silence'] = $this->SV8variableLengthInteger(substr($MPCheaderData, $packet_offset, $maxHandledPacketLength), $packetLength); - $packet_offset += $packetLength; - - $otherUsefulData = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 2)); - $packet_offset += 2; - $thisPacket['sample_frequency_raw'] = (($otherUsefulData & 0xE000) >> 13); - $thisPacket['max_bands_used'] = (($otherUsefulData & 0x1F00) >> 8); - $thisPacket['channels'] = (($otherUsefulData & 0x00F0) >> 4) + 1; - $thisPacket['ms_used'] = (bool) (($otherUsefulData & 0x0008) >> 3); - $thisPacket['audio_block_frames'] = (($otherUsefulData & 0x0007) >> 0); - $thisPacket['sample_frequency'] = $this->MPCfrequencyLookup($thisPacket['sample_frequency_raw']); - - $thisfile_mpc_header['mid_side_stereo'] = $thisPacket['ms_used']; - $thisfile_mpc_header['sample_rate'] = $thisPacket['sample_frequency']; - $thisfile_mpc_header['samples'] = $thisPacket['sample_count']; - $thisfile_mpc_header['stream_version_major'] = $thisPacket['stream_version']; - - $info['audio']['channels'] = $thisPacket['channels']; - $info['audio']['sample_rate'] = $thisPacket['sample_frequency']; - $info['playtime_seconds'] = $thisPacket['sample_count'] / $thisPacket['sample_frequency']; - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - break; - - case 'RG': // Replay Gain - $moreBytesToRead = $thisPacket['packet_size'] - $keyNameSize - $maxHandledPacketLength; - if ($moreBytesToRead > 0) { - $MPCheaderData .= fread($this->getid3->fp, $moreBytesToRead); - } - $thisPacket['replaygain_version'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - $thisPacket['replaygain_title_gain'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 2)); - $packet_offset += 2; - $thisPacket['replaygain_title_peak'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 2)); - $packet_offset += 2; - $thisPacket['replaygain_album_gain'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 2)); - $packet_offset += 2; - $thisPacket['replaygain_album_peak'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 2)); - $packet_offset += 2; - - if ($thisPacket['replaygain_title_gain']) { $info['replay_gain']['title']['gain'] = $thisPacket['replaygain_title_gain']; } - if ($thisPacket['replaygain_title_peak']) { $info['replay_gain']['title']['peak'] = $thisPacket['replaygain_title_peak']; } - if ($thisPacket['replaygain_album_gain']) { $info['replay_gain']['album']['gain'] = $thisPacket['replaygain_album_gain']; } - if ($thisPacket['replaygain_album_peak']) { $info['replay_gain']['album']['peak'] = $thisPacket['replaygain_album_peak']; } - break; - - case 'EI': // Encoder Info - $moreBytesToRead = $thisPacket['packet_size'] - $keyNameSize - $maxHandledPacketLength; - if ($moreBytesToRead > 0) { - $MPCheaderData .= fread($this->getid3->fp, $moreBytesToRead); - } - $profile_pns = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - $quality_int = (($profile_pns & 0xF0) >> 4); - $quality_dec = (($profile_pns & 0x0E) >> 3); - $thisPacket['quality'] = (float) $quality_int + ($quality_dec / 8); - $thisPacket['pns_tool'] = (bool) (($profile_pns & 0x01) >> 0); - $thisPacket['version_major'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - $thisPacket['version_minor'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - $thisPacket['version_build'] = getid3_lib::BigEndian2Int(substr($MPCheaderData, $packet_offset, 1)); - $packet_offset += 1; - $thisPacket['version'] = $thisPacket['version_major'].'.'.$thisPacket['version_minor'].'.'.$thisPacket['version_build']; - - $info['audio']['encoder'] = 'MPC v'.$thisPacket['version'].' ('.(($thisPacket['version_minor'] % 2) ? 'unstable' : 'stable').')'; - $thisfile_mpc_header['encoder_version'] = $info['audio']['encoder']; - //$thisfile_mpc_header['quality'] = (float) ($thisPacket['quality'] / 1.5875); // values can range from 0.000 to 15.875, mapped to qualities of 0.0 to 10.0 - $thisfile_mpc_header['quality'] = (float) ($thisPacket['quality'] - 5); // values can range from 0.000 to 15.875, of which 0..4 are "reserved/experimental", and 5..15 are mapped to qualities of 0.0 to 10.0 - break; - - case 'SO': // Seek Table Offset - $packetLength = 0; - $thisPacket['seek_table_offset'] = $thisPacket['offset'] + $this->SV8variableLengthInteger(substr($MPCheaderData, $packet_offset, $maxHandledPacketLength), $packetLength); - $packet_offset += $packetLength; - break; - - case 'ST': // Seek Table - case 'SE': // Stream End - case 'AP': // Audio Data - // nothing useful here, just skip this packet - $thisPacket = array(); - break; - - default: - $info['error'][] = 'Found unhandled key type "'.$thisPacket['key'].'" at offset '.$thisPacket['offset']; - return false; - break; - } - if (!empty($thisPacket)) { - $info['mpc']['packets'][] = $thisPacket; - } - fseek($this->getid3->fp, $offset); - } - $thisfile_mpc_header['size'] = $offset; - return true; - } - - public function ParseMPCsv7() { - // this is SV7 - // http://www.uni-jena.de/~pfk/mpp/sv8/header.html - - $info = &$this->getid3->info; - $thisfile_mpc_header = &$info['mpc']['header']; - $offset = 0; - - $thisfile_mpc_header['size'] = 28; - $MPCheaderData = $info['mpc']['header']['preamble']; - $MPCheaderData .= fread($this->getid3->fp, $thisfile_mpc_header['size'] - strlen($info['mpc']['header']['preamble'])); - $offset = strlen('MP+'); - - $StreamVersionByte = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 1)); - $offset += 1; - $thisfile_mpc_header['stream_version_major'] = ($StreamVersionByte & 0x0F) >> 0; - $thisfile_mpc_header['stream_version_minor'] = ($StreamVersionByte & 0xF0) >> 4; // should always be 0, subversions no longer exist in SV8 - $thisfile_mpc_header['frame_count'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 4)); - $offset += 4; - - if ($thisfile_mpc_header['stream_version_major'] != 7) { - $info['error'][] = 'Only Musepack SV7 supported (this file claims to be v'.$thisfile_mpc_header['stream_version_major'].')'; - return false; - } - - $FlagsDWORD1 = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 4)); - $offset += 4; - $thisfile_mpc_header['intensity_stereo'] = (bool) (($FlagsDWORD1 & 0x80000000) >> 31); - $thisfile_mpc_header['mid_side_stereo'] = (bool) (($FlagsDWORD1 & 0x40000000) >> 30); - $thisfile_mpc_header['max_subband'] = ($FlagsDWORD1 & 0x3F000000) >> 24; - $thisfile_mpc_header['raw']['profile'] = ($FlagsDWORD1 & 0x00F00000) >> 20; - $thisfile_mpc_header['begin_loud'] = (bool) (($FlagsDWORD1 & 0x00080000) >> 19); - $thisfile_mpc_header['end_loud'] = (bool) (($FlagsDWORD1 & 0x00040000) >> 18); - $thisfile_mpc_header['raw']['sample_rate'] = ($FlagsDWORD1 & 0x00030000) >> 16; - $thisfile_mpc_header['max_level'] = ($FlagsDWORD1 & 0x0000FFFF); - - $thisfile_mpc_header['raw']['title_peak'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 2)); - $offset += 2; - $thisfile_mpc_header['raw']['title_gain'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 2), true); - $offset += 2; - - $thisfile_mpc_header['raw']['album_peak'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 2)); - $offset += 2; - $thisfile_mpc_header['raw']['album_gain'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 2), true); - $offset += 2; - - $FlagsDWORD2 = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 4)); - $offset += 4; - $thisfile_mpc_header['true_gapless'] = (bool) (($FlagsDWORD2 & 0x80000000) >> 31); - $thisfile_mpc_header['last_frame_length'] = ($FlagsDWORD2 & 0x7FF00000) >> 20; - - - $thisfile_mpc_header['raw']['not_sure_what'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 3)); - $offset += 3; - $thisfile_mpc_header['raw']['encoder_version'] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, $offset, 1)); - $offset += 1; - - $thisfile_mpc_header['profile'] = $this->MPCprofileNameLookup($thisfile_mpc_header['raw']['profile']); - $thisfile_mpc_header['sample_rate'] = $this->MPCfrequencyLookup($thisfile_mpc_header['raw']['sample_rate']); - if ($thisfile_mpc_header['sample_rate'] == 0) { - $info['error'][] = 'Corrupt MPC file: frequency == zero'; - return false; - } - $info['audio']['sample_rate'] = $thisfile_mpc_header['sample_rate']; - $thisfile_mpc_header['samples'] = ((($thisfile_mpc_header['frame_count'] - 1) * 1152) + $thisfile_mpc_header['last_frame_length']) * $info['audio']['channels']; - - $info['playtime_seconds'] = ($thisfile_mpc_header['samples'] / $info['audio']['channels']) / $info['audio']['sample_rate']; - if ($info['playtime_seconds'] == 0) { - $info['error'][] = 'Corrupt MPC file: playtime_seconds == zero'; - return false; - } - - // add size of file header to avdataoffset - calc bitrate correctly + MD5 data - $info['avdataoffset'] += $thisfile_mpc_header['size']; - - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - $thisfile_mpc_header['title_peak'] = $thisfile_mpc_header['raw']['title_peak']; - $thisfile_mpc_header['title_peak_db'] = $this->MPCpeakDBLookup($thisfile_mpc_header['title_peak']); - if ($thisfile_mpc_header['raw']['title_gain'] < 0) { - $thisfile_mpc_header['title_gain_db'] = (float) (32768 + $thisfile_mpc_header['raw']['title_gain']) / -100; - } else { - $thisfile_mpc_header['title_gain_db'] = (float) $thisfile_mpc_header['raw']['title_gain'] / 100; - } - - $thisfile_mpc_header['album_peak'] = $thisfile_mpc_header['raw']['album_peak']; - $thisfile_mpc_header['album_peak_db'] = $this->MPCpeakDBLookup($thisfile_mpc_header['album_peak']); - if ($thisfile_mpc_header['raw']['album_gain'] < 0) { - $thisfile_mpc_header['album_gain_db'] = (float) (32768 + $thisfile_mpc_header['raw']['album_gain']) / -100; - } else { - $thisfile_mpc_header['album_gain_db'] = (float) $thisfile_mpc_header['raw']['album_gain'] / 100;; - } - $thisfile_mpc_header['encoder_version'] = $this->MPCencoderVersionLookup($thisfile_mpc_header['raw']['encoder_version']); - - $info['replay_gain']['track']['adjustment'] = $thisfile_mpc_header['title_gain_db']; - $info['replay_gain']['album']['adjustment'] = $thisfile_mpc_header['album_gain_db']; - - if ($thisfile_mpc_header['title_peak'] > 0) { - $info['replay_gain']['track']['peak'] = $thisfile_mpc_header['title_peak']; - } elseif (round($thisfile_mpc_header['max_level'] * 1.18) > 0) { - $info['replay_gain']['track']['peak'] = getid3_lib::CastAsInt(round($thisfile_mpc_header['max_level'] * 1.18)); // why? I don't know - see mppdec.c - } - if ($thisfile_mpc_header['album_peak'] > 0) { - $info['replay_gain']['album']['peak'] = $thisfile_mpc_header['album_peak']; - } - - //$info['audio']['encoder'] = 'SV'.$thisfile_mpc_header['stream_version_major'].'.'.$thisfile_mpc_header['stream_version_minor'].', '.$thisfile_mpc_header['encoder_version']; - $info['audio']['encoder'] = $thisfile_mpc_header['encoder_version']; - $info['audio']['encoder_options'] = $thisfile_mpc_header['profile']; - $thisfile_mpc_header['quality'] = (float) ($thisfile_mpc_header['raw']['profile'] - 5); // values can range from 0 to 15, of which 0..4 are "reserved/experimental", and 5..15 are mapped to qualities of 0.0 to 10.0 - - return true; - } - - public function ParseMPCsv6() { - // this is SV4 - SV6 - - $info = &$this->getid3->info; - $thisfile_mpc_header = &$info['mpc']['header']; - $offset = 0; - - $thisfile_mpc_header['size'] = 8; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $MPCheaderData = fread($this->getid3->fp, $thisfile_mpc_header['size']); - - // add size of file header to avdataoffset - calc bitrate correctly + MD5 data - $info['avdataoffset'] += $thisfile_mpc_header['size']; - - // Most of this code adapted from Jurgen Faul's MPEGplus source code - thanks Jurgen! :) - $HeaderDWORD[0] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, 0, 4)); - $HeaderDWORD[1] = getid3_lib::LittleEndian2Int(substr($MPCheaderData, 4, 4)); - - - // DDDD DDDD CCCC CCCC BBBB BBBB AAAA AAAA - // aaaa aaaa abcd dddd dddd deee eeff ffff - // - // a = bitrate = anything - // b = IS = anything - // c = MS = anything - // d = streamversion = 0000000004 or 0000000005 or 0000000006 - // e = maxband = anything - // f = blocksize = 000001 for SV5+, anything(?) for SV4 - - $thisfile_mpc_header['target_bitrate'] = (($HeaderDWORD[0] & 0xFF800000) >> 23); - $thisfile_mpc_header['intensity_stereo'] = (bool) (($HeaderDWORD[0] & 0x00400000) >> 22); - $thisfile_mpc_header['mid_side_stereo'] = (bool) (($HeaderDWORD[0] & 0x00200000) >> 21); - $thisfile_mpc_header['stream_version_major'] = ($HeaderDWORD[0] & 0x001FF800) >> 11; - $thisfile_mpc_header['stream_version_minor'] = 0; // no sub-version numbers before SV7 - $thisfile_mpc_header['max_band'] = ($HeaderDWORD[0] & 0x000007C0) >> 6; // related to lowpass frequency, not sure how it translates exactly - $thisfile_mpc_header['block_size'] = ($HeaderDWORD[0] & 0x0000003F); - - switch ($thisfile_mpc_header['stream_version_major']) { - case 4: - $thisfile_mpc_header['frame_count'] = ($HeaderDWORD[1] >> 16); - break; - - case 5: - case 6: - $thisfile_mpc_header['frame_count'] = $HeaderDWORD[1]; - break; - - default: - $info['error'] = 'Expecting 4, 5 or 6 in version field, found '.$thisfile_mpc_header['stream_version_major'].' instead'; - unset($info['mpc']); - return false; - break; - } - - if (($thisfile_mpc_header['stream_version_major'] > 4) && ($thisfile_mpc_header['block_size'] != 1)) { - $info['warning'][] = 'Block size expected to be 1, actual value found: '.$thisfile_mpc_header['block_size']; - } - - $thisfile_mpc_header['sample_rate'] = 44100; // AB: used by all files up to SV7 - $info['audio']['sample_rate'] = $thisfile_mpc_header['sample_rate']; - $thisfile_mpc_header['samples'] = $thisfile_mpc_header['frame_count'] * 1152 * $info['audio']['channels']; - - if ($thisfile_mpc_header['target_bitrate'] == 0) { - $info['audio']['bitrate_mode'] = 'vbr'; - } else { - $info['audio']['bitrate_mode'] = 'cbr'; - } - - $info['mpc']['bitrate'] = ($info['avdataend'] - $info['avdataoffset']) * 8 * 44100 / $thisfile_mpc_header['frame_count'] / 1152; - $info['audio']['bitrate'] = $info['mpc']['bitrate']; - $info['audio']['encoder'] = 'SV'.$thisfile_mpc_header['stream_version_major']; - - return true; - } - - - public function MPCprofileNameLookup($profileid) { - static $MPCprofileNameLookup = array( - 0 => 'no profile', - 1 => 'Experimental', - 2 => 'unused', - 3 => 'unused', - 4 => 'unused', - 5 => 'below Telephone (q = 0.0)', - 6 => 'below Telephone (q = 1.0)', - 7 => 'Telephone (q = 2.0)', - 8 => 'Thumb (q = 3.0)', - 9 => 'Radio (q = 4.0)', - 10 => 'Standard (q = 5.0)', - 11 => 'Extreme (q = 6.0)', - 12 => 'Insane (q = 7.0)', - 13 => 'BrainDead (q = 8.0)', - 14 => 'above BrainDead (q = 9.0)', - 15 => 'above BrainDead (q = 10.0)' - ); - return (isset($MPCprofileNameLookup[$profileid]) ? $MPCprofileNameLookup[$profileid] : 'invalid'); - } - - public function MPCfrequencyLookup($frequencyid) { - static $MPCfrequencyLookup = array( - 0 => 44100, - 1 => 48000, - 2 => 37800, - 3 => 32000 - ); - return (isset($MPCfrequencyLookup[$frequencyid]) ? $MPCfrequencyLookup[$frequencyid] : 'invalid'); - } - - public function MPCpeakDBLookup($intvalue) { - if ($intvalue > 0) { - return ((log10($intvalue) / log10(2)) - 15) * 6; - } - return false; - } - - public function MPCencoderVersionLookup($encoderversion) { - //Encoder version * 100 (106 = 1.06) - //EncoderVersion % 10 == 0 Release (1.0) - //EncoderVersion % 2 == 0 Beta (1.06) - //EncoderVersion % 2 == 1 Alpha (1.05a...z) - - if ($encoderversion == 0) { - // very old version, not known exactly which - return 'Buschmann v1.7.0-v1.7.9 or Klemm v0.90-v1.05'; - } - - if (($encoderversion % 10) == 0) { - - // release version - return number_format($encoderversion / 100, 2); - - } elseif (($encoderversion % 2) == 0) { - - // beta version - return number_format($encoderversion / 100, 2).' beta'; - - } - - // alpha version - return number_format($encoderversion / 100, 2).' alpha'; - } - - public function SV8variableLengthInteger($data, &$packetLength, $maxHandledPacketLength=9) { - $packet_size = 0; - for ($packetLength = 1; $packetLength <= $maxHandledPacketLength; $packetLength++) { - // variable-length size field: - // bits, big-endian - // 0xxx xxxx - value 0 to 2^7-1 - // 1xxx xxxx 0xxx xxxx - value 0 to 2^14-1 - // 1xxx xxxx 1xxx xxxx 0xxx xxxx - value 0 to 2^21-1 - // 1xxx xxxx 1xxx xxxx 1xxx xxxx 0xxx xxxx - value 0 to 2^28-1 - // ... - $thisbyte = ord(substr($data, ($packetLength - 1), 1)); - // look through bytes until find a byte with MSB==0 - $packet_size = ($packet_size << 7); - $packet_size = ($packet_size | ($thisbyte & 0x7F)); - if (($thisbyte & 0x80) === 0) { - break; - } - if ($packetLength >= $maxHandledPacketLength) { - return false; - } - } - return $packet_size; - } - - public function MPCsv8PacketName($packetKey) { - static $MPCsv8PacketName = array(); - if (empty($MPCsv8PacketName)) { - $MPCsv8PacketName = array( - 'AP' => 'Audio Packet', - 'CT' => 'Chapter Tag', - 'EI' => 'Encoder Info', - 'RG' => 'Replay Gain', - 'SE' => 'Stream End', - 'SH' => 'Stream Header', - 'SO' => 'Seek Table Offset', - 'ST' => 'Seek Table', - ); - } - return (isset($MPCsv8PacketName[$packetKey]) ? $MPCsv8PacketName[$packetKey] : $packetKey); - } -} diff --git a/web/htdocs/media/lib/getid3/module.audio.ogg.php b/web/htdocs/media/lib/getid3/module.audio.ogg.php deleted file mode 100644 index a2a35aadf71..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.ogg.php +++ /dev/null @@ -1,671 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.ogg.php // -// module for analyzing Ogg Vorbis, OggFLAC and Speex files // -// dependencies: module.audio.flac.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.flac.php', __FILE__, true); - -class getid3_ogg extends getid3_handler -{ - // http://xiph.org/vorbis/doc/Vorbis_I_spec.html - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'ogg'; - - // Warn about illegal tags - only vorbiscomments are allowed - if (isset($info['id3v2'])) { - $info['warning'][] = 'Illegal ID3v2 tag present.'; - } - if (isset($info['id3v1'])) { - $info['warning'][] = 'Illegal ID3v1 tag present.'; - } - if (isset($info['ape'])) { - $info['warning'][] = 'Illegal APE tag present.'; - } - - - // Page 1 - Stream Header - - $this->fseek($info['avdataoffset']); - - $oggpageinfo = $this->ParseOggPageHeader(); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']] = $oggpageinfo; - - if ($this->ftell() >= $this->getid3->fread_buffer_size()) { - $info['error'][] = 'Could not find start of Ogg page in the first '.$this->getid3->fread_buffer_size().' bytes (this might not be an Ogg-Vorbis file?)'; - unset($info['fileformat']); - unset($info['ogg']); - return false; - } - - $filedata = $this->fread($oggpageinfo['page_length']); - $filedataoffset = 0; - - if (substr($filedata, 0, 4) == 'fLaC') { - - $info['audio']['dataformat'] = 'flac'; - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['lossless'] = true; - - } elseif (substr($filedata, 1, 6) == 'vorbis') { - - $this->ParseVorbisPageHeader($filedata, $filedataoffset, $oggpageinfo); - - } elseif (substr($filedata, 0, 8) == 'Speex ') { - - // http://www.speex.org/manual/node10.html - - $info['audio']['dataformat'] = 'speex'; - $info['mime_type'] = 'audio/speex'; - $info['audio']['bitrate_mode'] = 'abr'; - $info['audio']['lossless'] = false; - - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['speex_string'] = substr($filedata, $filedataoffset, 8); // hard-coded to 'Speex ' - $filedataoffset += 8; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['speex_version'] = substr($filedata, $filedataoffset, 20); - $filedataoffset += 20; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['speex_version_id'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['header_size'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['rate'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['mode'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['mode_bitstream_version'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['nb_channels'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['bitrate'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['framesize'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['vbr'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['frames_per_packet'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['extra_headers'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['reserved1'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['reserved2'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - - $info['speex']['speex_version'] = trim($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['speex_version']); - $info['speex']['sample_rate'] = $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['rate']; - $info['speex']['channels'] = $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['nb_channels']; - $info['speex']['vbr'] = (bool) $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['vbr']; - $info['speex']['band_type'] = $this->SpeexBandModeLookup($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['mode']); - - $info['audio']['sample_rate'] = $info['speex']['sample_rate']; - $info['audio']['channels'] = $info['speex']['channels']; - if ($info['speex']['vbr']) { - $info['audio']['bitrate_mode'] = 'vbr'; - } - - - } elseif (substr($filedata, 0, 8) == "fishead\x00") { - - // Ogg Skeleton version 3.0 Format Specification - // http://xiph.org/ogg/doc/skeleton.html - $filedataoffset += 8; - $info['ogg']['skeleton']['fishead']['raw']['version_major'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 2)); - $filedataoffset += 2; - $info['ogg']['skeleton']['fishead']['raw']['version_minor'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 2)); - $filedataoffset += 2; - $info['ogg']['skeleton']['fishead']['raw']['presentationtime_numerator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fishead']['raw']['presentationtime_denominator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fishead']['raw']['basetime_numerator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fishead']['raw']['basetime_denominator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fishead']['raw']['utc'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 20)); - $filedataoffset += 20; - - $info['ogg']['skeleton']['fishead']['version'] = $info['ogg']['skeleton']['fishead']['raw']['version_major'].'.'.$info['ogg']['skeleton']['fishead']['raw']['version_minor']; - $info['ogg']['skeleton']['fishead']['presentationtime'] = $info['ogg']['skeleton']['fishead']['raw']['presentationtime_numerator'] / $info['ogg']['skeleton']['fishead']['raw']['presentationtime_denominator']; - $info['ogg']['skeleton']['fishead']['basetime'] = $info['ogg']['skeleton']['fishead']['raw']['basetime_numerator'] / $info['ogg']['skeleton']['fishead']['raw']['basetime_denominator']; - $info['ogg']['skeleton']['fishead']['utc'] = $info['ogg']['skeleton']['fishead']['raw']['utc']; - - - $counter = 0; - do { - $oggpageinfo = $this->ParseOggPageHeader(); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno'].'.'.$counter++] = $oggpageinfo; - $filedata = $this->fread($oggpageinfo['page_length']); - $this->fseek($oggpageinfo['page_end_offset']); - - if (substr($filedata, 0, 8) == "fisbone\x00") { - - $filedataoffset = 8; - $info['ogg']['skeleton']['fisbone']['raw']['message_header_offset'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['skeleton']['fisbone']['raw']['serial_number'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['skeleton']['fisbone']['raw']['number_header_packets'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['skeleton']['fisbone']['raw']['granulerate_numerator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fisbone']['raw']['granulerate_denominator'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fisbone']['raw']['basegranule'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $info['ogg']['skeleton']['fisbone']['raw']['preroll'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['skeleton']['fisbone']['raw']['granuleshift'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $info['ogg']['skeleton']['fisbone']['raw']['padding'] = substr($filedata, $filedataoffset, 3); - $filedataoffset += 3; - - } elseif (substr($filedata, 1, 6) == 'theora') { - - $info['video']['dataformat'] = 'theora'; - $info['error'][] = 'Ogg Theora not correctly handled in this version of getID3 ['.$this->getid3->version().']'; - //break; - - } elseif (substr($filedata, 1, 6) == 'vorbis') { - - $this->ParseVorbisPageHeader($filedata, $filedataoffset, $oggpageinfo); - - } else { - $info['error'][] = 'unexpected'; - //break; - } - //} while ($oggpageinfo['page_seqno'] == 0); - } while (($oggpageinfo['page_seqno'] == 0) && (substr($filedata, 0, 8) != "fisbone\x00")); - - $this->fseek($oggpageinfo['page_start_offset']); - - $info['error'][] = 'Ogg Skeleton not correctly handled in this version of getID3 ['.$this->getid3->version().']'; - //return false; - - } else { - - $info['error'][] = 'Expecting either "Speex " or "vorbis" identifier strings, found "'.substr($filedata, 0, 8).'"'; - unset($info['ogg']); - unset($info['mime_type']); - return false; - - } - - // Page 2 - Comment Header - $oggpageinfo = $this->ParseOggPageHeader(); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']] = $oggpageinfo; - - switch ($info['audio']['dataformat']) { - case 'vorbis': - $filedata = $this->fread($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_length']); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['packet_type'] = getid3_lib::LittleEndian2Int(substr($filedata, 0, 1)); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['stream_type'] = substr($filedata, 1, 6); // hard-coded to 'vorbis' - - $this->ParseVorbisComments(); - break; - - case 'flac': - $flac = new getid3_flac($this->getid3); - if (!$flac->parseMETAdata()) { - $info['error'][] = 'Failed to parse FLAC headers'; - return false; - } - unset($flac); - break; - - case 'speex': - $this->fseek($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_length'], SEEK_CUR); - $this->ParseVorbisComments(); - break; - } - - - // Last Page - Number of Samples - if (!getid3_lib::intValueSupported($info['avdataend'])) { - - $info['warning'][] = 'Unable to parse Ogg end chunk file (PHP does not support file operations beyond '.round(PHP_INT_MAX / 1073741824).'GB)'; - - } else { - - $this->fseek(max($info['avdataend'] - $this->getid3->fread_buffer_size(), 0)); - $LastChunkOfOgg = strrev($this->fread($this->getid3->fread_buffer_size())); - if ($LastOggSpostion = strpos($LastChunkOfOgg, 'SggO')) { - $this->fseek($info['avdataend'] - ($LastOggSpostion + strlen('SggO'))); - $info['avdataend'] = $this->ftell(); - $info['ogg']['pageheader']['eos'] = $this->ParseOggPageHeader(); - $info['ogg']['samples'] = $info['ogg']['pageheader']['eos']['pcm_abs_position']; - if ($info['ogg']['samples'] == 0) { - $info['error'][] = 'Corrupt Ogg file: eos.number of samples == zero'; - return false; - } - if (!empty($info['audio']['sample_rate'])) { - $info['ogg']['bitrate_average'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / ($info['ogg']['samples'] / $info['audio']['sample_rate']); - } - } - - } - - if (!empty($info['ogg']['bitrate_average'])) { - $info['audio']['bitrate'] = $info['ogg']['bitrate_average']; - } elseif (!empty($info['ogg']['bitrate_nominal'])) { - $info['audio']['bitrate'] = $info['ogg']['bitrate_nominal']; - } elseif (!empty($info['ogg']['bitrate_min']) && !empty($info['ogg']['bitrate_max'])) { - $info['audio']['bitrate'] = ($info['ogg']['bitrate_min'] + $info['ogg']['bitrate_max']) / 2; - } - if (isset($info['audio']['bitrate']) && !isset($info['playtime_seconds'])) { - if ($info['audio']['bitrate'] == 0) { - $info['error'][] = 'Corrupt Ogg file: bitrate_audio == zero'; - return false; - } - $info['playtime_seconds'] = (float) ((($info['avdataend'] - $info['avdataoffset']) * 8) / $info['audio']['bitrate']); - } - - if (isset($info['ogg']['vendor'])) { - $info['audio']['encoder'] = preg_replace('/^Encoded with /', '', $info['ogg']['vendor']); - - // Vorbis only - if ($info['audio']['dataformat'] == 'vorbis') { - - // Vorbis 1.0 starts with Xiph.Org - if (preg_match('/^Xiph.Org/', $info['audio']['encoder'])) { - - if ($info['audio']['bitrate_mode'] == 'abr') { - - // Set -b 128 on abr files - $info['audio']['encoder_options'] = '-b '.round($info['ogg']['bitrate_nominal'] / 1000); - - } elseif (($info['audio']['bitrate_mode'] == 'vbr') && ($info['audio']['channels'] == 2) && ($info['audio']['sample_rate'] >= 44100) && ($info['audio']['sample_rate'] <= 48000)) { - // Set -q N on vbr files - $info['audio']['encoder_options'] = '-q '.$this->get_quality_from_nominal_bitrate($info['ogg']['bitrate_nominal']); - - } - } - - if (empty($info['audio']['encoder_options']) && !empty($info['ogg']['bitrate_nominal'])) { - $info['audio']['encoder_options'] = 'Nominal bitrate: '.intval(round($info['ogg']['bitrate_nominal'] / 1000)).'kbps'; - } - } - } - - return true; - } - - public function ParseVorbisPageHeader(&$filedata, &$filedataoffset, &$oggpageinfo) { - $info = &$this->getid3->info; - $info['audio']['dataformat'] = 'vorbis'; - $info['audio']['lossless'] = false; - - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['packet_type'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['stream_type'] = substr($filedata, $filedataoffset, 6); // hard-coded to 'vorbis' - $filedataoffset += 6; - $info['ogg']['bitstreamversion'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['numberofchannels'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $info['audio']['channels'] = $info['ogg']['numberofchannels']; - $info['ogg']['samplerate'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - if ($info['ogg']['samplerate'] == 0) { - $info['error'][] = 'Corrupt Ogg file: sample rate == zero'; - return false; - } - $info['audio']['sample_rate'] = $info['ogg']['samplerate']; - $info['ogg']['samples'] = 0; // filled in later - $info['ogg']['bitrate_average'] = 0; // filled in later - $info['ogg']['bitrate_max'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['bitrate_nominal'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['bitrate_min'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $info['ogg']['blocksize_small'] = pow(2, getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)) & 0x0F); - $info['ogg']['blocksize_large'] = pow(2, (getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)) & 0xF0) >> 4); - $info['ogg']['stop_bit'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); // must be 1, marks end of packet - - $info['audio']['bitrate_mode'] = 'vbr'; // overridden if actually abr - if ($info['ogg']['bitrate_max'] == 0xFFFFFFFF) { - unset($info['ogg']['bitrate_max']); - $info['audio']['bitrate_mode'] = 'abr'; - } - if ($info['ogg']['bitrate_nominal'] == 0xFFFFFFFF) { - unset($info['ogg']['bitrate_nominal']); - } - if ($info['ogg']['bitrate_min'] == 0xFFFFFFFF) { - unset($info['ogg']['bitrate_min']); - $info['audio']['bitrate_mode'] = 'abr'; - } - return true; - } - - public function ParseOggPageHeader() { - // http://xiph.org/ogg/vorbis/doc/framing.html - $oggheader['page_start_offset'] = $this->ftell(); // where we started from in the file - - $filedata = $this->fread($this->getid3->fread_buffer_size()); - $filedataoffset = 0; - while ((substr($filedata, $filedataoffset++, 4) != 'OggS')) { - if (($this->ftell() - $oggheader['page_start_offset']) >= $this->getid3->fread_buffer_size()) { - // should be found before here - return false; - } - if ((($filedataoffset + 28) > strlen($filedata)) || (strlen($filedata) < 28)) { - if ($this->feof() || (($filedata .= $this->fread($this->getid3->fread_buffer_size())) === false)) { - // get some more data, unless eof, in which case fail - return false; - } - } - } - $filedataoffset += strlen('OggS') - 1; // page, delimited by 'OggS' - - $oggheader['stream_structver'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $oggheader['flags_raw'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $oggheader['flags']['fresh'] = (bool) ($oggheader['flags_raw'] & 0x01); // fresh packet - $oggheader['flags']['bos'] = (bool) ($oggheader['flags_raw'] & 0x02); // first page of logical bitstream (bos) - $oggheader['flags']['eos'] = (bool) ($oggheader['flags_raw'] & 0x04); // last page of logical bitstream (eos) - - $oggheader['pcm_abs_position'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 8)); - $filedataoffset += 8; - $oggheader['stream_serialno'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $oggheader['page_seqno'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $oggheader['page_checksum'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 4)); - $filedataoffset += 4; - $oggheader['page_segments'] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $oggheader['page_length'] = 0; - for ($i = 0; $i < $oggheader['page_segments']; $i++) { - $oggheader['segment_table'][$i] = getid3_lib::LittleEndian2Int(substr($filedata, $filedataoffset, 1)); - $filedataoffset += 1; - $oggheader['page_length'] += $oggheader['segment_table'][$i]; - } - $oggheader['header_end_offset'] = $oggheader['page_start_offset'] + $filedataoffset; - $oggheader['page_end_offset'] = $oggheader['header_end_offset'] + $oggheader['page_length']; - $this->fseek($oggheader['header_end_offset']); - - return $oggheader; - } - - // http://xiph.org/vorbis/doc/Vorbis_I_spec.html#x1-810005 - public function ParseVorbisComments() { - $info = &$this->getid3->info; - - $OriginalOffset = $this->ftell(); - $commentdataoffset = 0; - $VorbisCommentPage = 1; - - switch ($info['audio']['dataformat']) { - case 'vorbis': - case 'speex': - $CommentStartOffset = $info['ogg']['pageheader'][$VorbisCommentPage]['page_start_offset']; // Second Ogg page, after header block - $this->fseek($CommentStartOffset); - $commentdataoffset = 27 + $info['ogg']['pageheader'][$VorbisCommentPage]['page_segments']; - $commentdata = $this->fread(self::OggPageSegmentLength($info['ogg']['pageheader'][$VorbisCommentPage], 1) + $commentdataoffset); - - if ($info['audio']['dataformat'] == 'vorbis') { - $commentdataoffset += (strlen('vorbis') + 1); - } - break; - - case 'flac': - $CommentStartOffset = $info['flac']['VORBIS_COMMENT']['raw']['offset'] + 4; - $this->fseek($CommentStartOffset); - $commentdata = $this->fread($info['flac']['VORBIS_COMMENT']['raw']['block_length']); - break; - - default: - return false; - } - - $VendorSize = getid3_lib::LittleEndian2Int(substr($commentdata, $commentdataoffset, 4)); - $commentdataoffset += 4; - - $info['ogg']['vendor'] = substr($commentdata, $commentdataoffset, $VendorSize); - $commentdataoffset += $VendorSize; - - $CommentsCount = getid3_lib::LittleEndian2Int(substr($commentdata, $commentdataoffset, 4)); - $commentdataoffset += 4; - $info['avdataoffset'] = $CommentStartOffset + $commentdataoffset; - - $basicfields = array('TITLE', 'ARTIST', 'ALBUM', 'TRACKNUMBER', 'GENRE', 'DATE', 'DESCRIPTION', 'COMMENT'); - $ThisFileInfo_ogg_comments_raw = &$info['ogg']['comments_raw']; - for ($i = 0; $i < $CommentsCount; $i++) { - - $ThisFileInfo_ogg_comments_raw[$i]['dataoffset'] = $CommentStartOffset + $commentdataoffset; - - if ($this->ftell() < ($ThisFileInfo_ogg_comments_raw[$i]['dataoffset'] + 4)) { - if ($oggpageinfo = $this->ParseOggPageHeader()) { - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']] = $oggpageinfo; - - $VorbisCommentPage++; - - // First, save what we haven't read yet - $AsYetUnusedData = substr($commentdata, $commentdataoffset); - - // Then take that data off the end - $commentdata = substr($commentdata, 0, $commentdataoffset); - - // Add [headerlength] bytes of dummy data for the Ogg Page Header, just to keep absolute offsets correct - $commentdata .= str_repeat("\x00", 27 + $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_segments']); - $commentdataoffset += (27 + $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_segments']); - - // Finally, stick the unused data back on the end - $commentdata .= $AsYetUnusedData; - - //$commentdata .= $this->fread($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_length']); - $commentdata .= $this->fread($this->OggPageSegmentLength($info['ogg']['pageheader'][$VorbisCommentPage], 1)); - } - - } - $ThisFileInfo_ogg_comments_raw[$i]['size'] = getid3_lib::LittleEndian2Int(substr($commentdata, $commentdataoffset, 4)); - - // replace avdataoffset with position just after the last vorbiscomment - $info['avdataoffset'] = $ThisFileInfo_ogg_comments_raw[$i]['dataoffset'] + $ThisFileInfo_ogg_comments_raw[$i]['size'] + 4; - - $commentdataoffset += 4; - while ((strlen($commentdata) - $commentdataoffset) < $ThisFileInfo_ogg_comments_raw[$i]['size']) { - if (($ThisFileInfo_ogg_comments_raw[$i]['size'] > $info['avdataend']) || ($ThisFileInfo_ogg_comments_raw[$i]['size'] < 0)) { - $info['warning'][] = 'Invalid Ogg comment size (comment #'.$i.', claims to be '.number_format($ThisFileInfo_ogg_comments_raw[$i]['size']).' bytes) - aborting reading comments'; - break 2; - } - - $VorbisCommentPage++; - - $oggpageinfo = $this->ParseOggPageHeader(); - $info['ogg']['pageheader'][$oggpageinfo['page_seqno']] = $oggpageinfo; - - // First, save what we haven't read yet - $AsYetUnusedData = substr($commentdata, $commentdataoffset); - - // Then take that data off the end - $commentdata = substr($commentdata, 0, $commentdataoffset); - - // Add [headerlength] bytes of dummy data for the Ogg Page Header, just to keep absolute offsets correct - $commentdata .= str_repeat("\x00", 27 + $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_segments']); - $commentdataoffset += (27 + $info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_segments']); - - // Finally, stick the unused data back on the end - $commentdata .= $AsYetUnusedData; - - //$commentdata .= $this->fread($info['ogg']['pageheader'][$oggpageinfo['page_seqno']]['page_length']); - if (!isset($info['ogg']['pageheader'][$VorbisCommentPage])) { - $info['warning'][] = 'undefined Vorbis Comment page "'.$VorbisCommentPage.'" at offset '.$this->ftell(); - break; - } - $readlength = self::OggPageSegmentLength($info['ogg']['pageheader'][$VorbisCommentPage], 1); - if ($readlength <= 0) { - $info['warning'][] = 'invalid length Vorbis Comment page "'.$VorbisCommentPage.'" at offset '.$this->ftell(); - break; - } - $commentdata .= $this->fread($readlength); - - //$filebaseoffset += $oggpageinfo['header_end_offset'] - $oggpageinfo['page_start_offset']; - } - $ThisFileInfo_ogg_comments_raw[$i]['offset'] = $commentdataoffset; - $commentstring = substr($commentdata, $commentdataoffset, $ThisFileInfo_ogg_comments_raw[$i]['size']); - $commentdataoffset += $ThisFileInfo_ogg_comments_raw[$i]['size']; - - if (!$commentstring) { - - // no comment? - $info['warning'][] = 'Blank Ogg comment ['.$i.']'; - - } elseif (strstr($commentstring, '=')) { - - $commentexploded = explode('=', $commentstring, 2); - $ThisFileInfo_ogg_comments_raw[$i]['key'] = strtoupper($commentexploded[0]); - $ThisFileInfo_ogg_comments_raw[$i]['value'] = (isset($commentexploded[1]) ? $commentexploded[1] : ''); - - if ($ThisFileInfo_ogg_comments_raw[$i]['key'] == 'METADATA_BLOCK_PICTURE') { - - // http://wiki.xiph.org/VorbisComment#METADATA_BLOCK_PICTURE - // The unencoded format is that of the FLAC picture block. The fields are stored in big endian order as in FLAC, picture data is stored according to the relevant standard. - // http://flac.sourceforge.net/format.html#metadata_block_picture - $flac = new getid3_flac($this->getid3); - $flac->setStringMode(base64_decode($ThisFileInfo_ogg_comments_raw[$i]['value'])); - $flac->parsePICTURE(); - $info['ogg']['comments']['picture'][] = $flac->getid3->info['flac']['PICTURE'][0]; - unset($flac); - - } elseif ($ThisFileInfo_ogg_comments_raw[$i]['key'] == 'COVERART') { - - $data = base64_decode($ThisFileInfo_ogg_comments_raw[$i]['value']); - $this->notice('Found deprecated COVERART tag, it should be replaced in honor of METADATA_BLOCK_PICTURE structure'); - /** @todo use 'coverartmime' where available */ - $imageinfo = getid3_lib::GetDataImageSize($data); - if ($imageinfo === false || !isset($imageinfo['mime'])) { - $this->warning('COVERART vorbiscomment tag contains invalid image'); - continue; - } - - $ogg = new self($this->getid3); - $ogg->setStringMode($data); - $info['ogg']['comments']['picture'][] = array( - 'image_mime' => $imageinfo['mime'], - 'data' => $ogg->saveAttachment('coverart', 0, strlen($data), $imageinfo['mime']), - ); - unset($ogg); - - } else { - - $info['ogg']['comments'][strtolower($ThisFileInfo_ogg_comments_raw[$i]['key'])][] = $ThisFileInfo_ogg_comments_raw[$i]['value']; - - } - - } else { - - $info['warning'][] = '[known problem with CDex >= v1.40, < v1.50b7] Invalid Ogg comment name/value pair ['.$i.']: '.$commentstring; - - } - unset($ThisFileInfo_ogg_comments_raw[$i]); - } - unset($ThisFileInfo_ogg_comments_raw); - - - // Replay Gain Adjustment - // http://privatewww.essex.ac.uk/~djmrob/replaygain/ - if (isset($info['ogg']['comments']) && is_array($info['ogg']['comments'])) { - foreach ($info['ogg']['comments'] as $index => $commentvalue) { - switch ($index) { - case 'rg_audiophile': - case 'replaygain_album_gain': - $info['replay_gain']['album']['adjustment'] = (double) $commentvalue[0]; - unset($info['ogg']['comments'][$index]); - break; - - case 'rg_radio': - case 'replaygain_track_gain': - $info['replay_gain']['track']['adjustment'] = (double) $commentvalue[0]; - unset($info['ogg']['comments'][$index]); - break; - - case 'replaygain_album_peak': - $info['replay_gain']['album']['peak'] = (double) $commentvalue[0]; - unset($info['ogg']['comments'][$index]); - break; - - case 'rg_peak': - case 'replaygain_track_peak': - $info['replay_gain']['track']['peak'] = (double) $commentvalue[0]; - unset($info['ogg']['comments'][$index]); - break; - - case 'replaygain_reference_loudness': - $info['replay_gain']['reference_volume'] = (double) $commentvalue[0]; - unset($info['ogg']['comments'][$index]); - break; - - default: - // do nothing - break; - } - } - } - - $this->fseek($OriginalOffset); - - return true; - } - - public static function SpeexBandModeLookup($mode) { - static $SpeexBandModeLookup = array(); - if (empty($SpeexBandModeLookup)) { - $SpeexBandModeLookup[0] = 'narrow'; - $SpeexBandModeLookup[1] = 'wide'; - $SpeexBandModeLookup[2] = 'ultra-wide'; - } - return (isset($SpeexBandModeLookup[$mode]) ? $SpeexBandModeLookup[$mode] : null); - } - - - public static function OggPageSegmentLength($OggInfoArray, $SegmentNumber=1) { - for ($i = 0; $i < $SegmentNumber; $i++) { - $segmentlength = 0; - foreach ($OggInfoArray['segment_table'] as $key => $value) { - $segmentlength += $value; - if ($value < 255) { - break; - } - } - } - return $segmentlength; - } - - - public static function get_quality_from_nominal_bitrate($nominal_bitrate) { - - // decrease precision - $nominal_bitrate = $nominal_bitrate / 1000; - - if ($nominal_bitrate < 128) { - // q-1 to q4 - $qval = ($nominal_bitrate - 64) / 16; - } elseif ($nominal_bitrate < 256) { - // q4 to q8 - $qval = $nominal_bitrate / 32; - } elseif ($nominal_bitrate < 320) { - // q8 to q9 - $qval = ($nominal_bitrate + 256) / 64; - } else { - // q9 to q10 - $qval = ($nominal_bitrate + 1300) / 180; - } - //return $qval; // 5.031324 - //return intval($qval); // 5 - return round($qval, 1); // 5 or 4.9 - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.optimfrog.php b/web/htdocs/media/lib/getid3/module.audio.optimfrog.php deleted file mode 100644 index 5df74b7b661..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.optimfrog.php +++ /dev/null @@ -1,426 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.optimfrog.php // -// module for analyzing OptimFROG audio files // -// dependencies: module.audio.riff.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - -class getid3_optimfrog extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'ofr'; - $info['audio']['dataformat'] = 'ofr'; - $info['audio']['bitrate_mode'] = 'vbr'; - $info['audio']['lossless'] = true; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $OFRheader = fread($this->getid3->fp, 8); - if (substr($OFRheader, 0, 5) == '*RIFF') { - - return $this->ParseOptimFROGheader42(); - - } elseif (substr($OFRheader, 0, 3) == 'OFR') { - - return $this->ParseOptimFROGheader45(); - - } - - $info['error'][] = 'Expecting "*RIFF" or "OFR " at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($OFRheader).'"'; - unset($info['fileformat']); - return false; - } - - - public function ParseOptimFROGheader42() { - // for fileformat of v4.21 and older - - $info = &$this->getid3->info; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $OptimFROGheaderData = fread($this->getid3->fp, 45); - $info['avdataoffset'] = 45; - - $OptimFROGencoderVersion_raw = getid3_lib::LittleEndian2Int(substr($OptimFROGheaderData, 0, 1)); - $OptimFROGencoderVersion_major = floor($OptimFROGencoderVersion_raw / 10); - $OptimFROGencoderVersion_minor = $OptimFROGencoderVersion_raw - ($OptimFROGencoderVersion_major * 10); - $RIFFdata = substr($OptimFROGheaderData, 1, 44); - $OrignalRIFFheaderSize = getid3_lib::LittleEndian2Int(substr($RIFFdata, 4, 4)) + 8; - $OrignalRIFFdataSize = getid3_lib::LittleEndian2Int(substr($RIFFdata, 40, 4)) + 44; - - if ($OrignalRIFFheaderSize > $OrignalRIFFdataSize) { - $info['avdataend'] -= ($OrignalRIFFheaderSize - $OrignalRIFFdataSize); - fseek($this->getid3->fp, $info['avdataend'], SEEK_SET); - $RIFFdata .= fread($this->getid3->fp, $OrignalRIFFheaderSize - $OrignalRIFFdataSize); - } - - // move the data chunk after all other chunks (if any) - // so that the RIFF parser doesn't see EOF when trying - // to skip over the data chunk - $RIFFdata = substr($RIFFdata, 0, 36).substr($RIFFdata, 44).substr($RIFFdata, 36, 8); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_temp->info['avdataend'] = $info['avdataend']; - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->ParseRIFFdata($RIFFdata); - $info['riff'] = $getid3_temp->info['riff']; - - $info['audio']['encoder'] = 'OptimFROG '.$OptimFROGencoderVersion_major.'.'.$OptimFROGencoderVersion_minor; - $info['audio']['channels'] = $info['riff']['audio'][0]['channels']; - $info['audio']['sample_rate'] = $info['riff']['audio'][0]['sample_rate']; - $info['audio']['bits_per_sample'] = $info['riff']['audio'][0]['bits_per_sample']; - $info['playtime_seconds'] = $OrignalRIFFdataSize / ($info['audio']['channels'] * $info['audio']['sample_rate'] * ($info['audio']['bits_per_sample'] / 8)); - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - unset($getid3_riff, $getid3_temp, $RIFFdata); - - return true; - } - - - public function ParseOptimFROGheader45() { - // for fileformat of v4.50a and higher - - $info = &$this->getid3->info; - $RIFFdata = ''; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - while (!feof($this->getid3->fp) && (ftell($this->getid3->fp) < $info['avdataend'])) { - $BlockOffset = ftell($this->getid3->fp); - $BlockData = fread($this->getid3->fp, 8); - $offset = 8; - $BlockName = substr($BlockData, 0, 4); - $BlockSize = getid3_lib::LittleEndian2Int(substr($BlockData, 4, 4)); - - if ($BlockName == 'OFRX') { - $BlockName = 'OFR '; - } - if (!isset($info['ofr'][$BlockName])) { - $info['ofr'][$BlockName] = array(); - } - $thisfile_ofr_thisblock = &$info['ofr'][$BlockName]; - - switch ($BlockName) { - case 'OFR ': - - // shortcut - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - $info['audio']['encoder'] = 'OptimFROG 4.50 alpha'; - switch ($BlockSize) { - case 12: - case 15: - // good - break; - - default: - $info['warning'][] = '"'.$BlockName.'" contains more data than expected (expected 12 or 15 bytes, found '.$BlockSize.' bytes)'; - break; - } - $BlockData .= fread($this->getid3->fp, $BlockSize); - - $thisfile_ofr_thisblock['total_samples'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 6)); - $offset += 6; - $thisfile_ofr_thisblock['raw']['sample_type'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 1)); - $thisfile_ofr_thisblock['sample_type'] = $this->OptimFROGsampleTypeLookup($thisfile_ofr_thisblock['raw']['sample_type']); - $offset += 1; - $thisfile_ofr_thisblock['channel_config'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 1)); - $thisfile_ofr_thisblock['channels'] = $thisfile_ofr_thisblock['channel_config']; - $offset += 1; - $thisfile_ofr_thisblock['sample_rate'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 4)); - $offset += 4; - - if ($BlockSize > 12) { - - // OFR 4.504b or higher - $thisfile_ofr_thisblock['channels'] = $this->OptimFROGchannelConfigNumChannelsLookup($thisfile_ofr_thisblock['channel_config']); - $thisfile_ofr_thisblock['raw']['encoder_id'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 2)); - $thisfile_ofr_thisblock['encoder'] = $this->OptimFROGencoderNameLookup($thisfile_ofr_thisblock['raw']['encoder_id']); - $offset += 2; - $thisfile_ofr_thisblock['raw']['compression'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 1)); - $thisfile_ofr_thisblock['compression'] = $this->OptimFROGcompressionLookup($thisfile_ofr_thisblock['raw']['compression']); - $thisfile_ofr_thisblock['speedup'] = $this->OptimFROGspeedupLookup($thisfile_ofr_thisblock['raw']['compression']); - $offset += 1; - - $info['audio']['encoder'] = 'OptimFROG '.$thisfile_ofr_thisblock['encoder']; - $info['audio']['encoder_options'] = '--mode '.$thisfile_ofr_thisblock['compression']; - - if ((($thisfile_ofr_thisblock['raw']['encoder_id'] & 0xF0) >> 4) == 7) { // v4.507 - if (strtolower(getid3_lib::fileextension($info['filename'])) == 'ofs') { - // OptimFROG DualStream format is lossy, but as of v4.507 there is no way to tell the difference - // between lossless and lossy other than the file extension. - $info['audio']['dataformat'] = 'ofs'; - $info['audio']['lossless'] = true; - } - } - - } - - $info['audio']['channels'] = $thisfile_ofr_thisblock['channels']; - $info['audio']['sample_rate'] = $thisfile_ofr_thisblock['sample_rate']; - $info['audio']['bits_per_sample'] = $this->OptimFROGbitsPerSampleTypeLookup($thisfile_ofr_thisblock['raw']['sample_type']); - break; - - - case 'COMP': - // unlike other block types, there CAN be multiple COMP blocks - - $COMPdata['offset'] = $BlockOffset; - $COMPdata['size'] = $BlockSize; - - if ($info['avdataoffset'] == 0) { - $info['avdataoffset'] = $BlockOffset; - } - - // Only interested in first 14 bytes (only first 12 needed for v4.50 alpha), not actual audio data - $BlockData .= fread($this->getid3->fp, 14); - fseek($this->getid3->fp, $BlockSize - 14, SEEK_CUR); - - $COMPdata['crc_32'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 4)); - $offset += 4; - $COMPdata['sample_count'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 4)); - $offset += 4; - $COMPdata['raw']['sample_type'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 1)); - $COMPdata['sample_type'] = $this->OptimFROGsampleTypeLookup($COMPdata['raw']['sample_type']); - $offset += 1; - $COMPdata['raw']['channel_configuration'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 1)); - $COMPdata['channel_configuration'] = $this->OptimFROGchannelConfigurationLookup($COMPdata['raw']['channel_configuration']); - $offset += 1; - $COMPdata['raw']['algorithm_id'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 2)); - //$COMPdata['algorithm'] = OptimFROGalgorithmNameLookup($COMPdata['raw']['algorithm_id']); - $offset += 2; - - if ($info['ofr']['OFR ']['size'] > 12) { - - // OFR 4.504b or higher - $COMPdata['raw']['encoder_id'] = getid3_lib::LittleEndian2Int(substr($BlockData, $offset, 2)); - $COMPdata['encoder'] = $this->OptimFROGencoderNameLookup($COMPdata['raw']['encoder_id']); - $offset += 2; - - } - - if ($COMPdata['crc_32'] == 0x454E4F4E) { - // ASCII value of 'NONE' - placeholder value in v4.50a - $COMPdata['crc_32'] = false; - } - - $thisfile_ofr_thisblock[] = $COMPdata; - break; - - case 'HEAD': - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - $RIFFdata .= fread($this->getid3->fp, $BlockSize); - break; - - case 'TAIL': - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - if ($BlockSize > 0) { - $RIFFdata .= fread($this->getid3->fp, $BlockSize); - } - break; - - case 'RECV': - // block contains no useful meta data - simply note and skip - - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - break; - - - case 'APET': - // APEtag v2 - - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - $info['warning'][] = 'APEtag processing inside OptimFROG not supported in this version ('.$this->getid3->version().') of getID3()'; - - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - break; - - - case 'MD5 ': - // APEtag v2 - - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - if ($BlockSize == 16) { - - $thisfile_ofr_thisblock['md5_binary'] = fread($this->getid3->fp, $BlockSize); - $thisfile_ofr_thisblock['md5_string'] = getid3_lib::PrintHexBytes($thisfile_ofr_thisblock['md5_binary'], true, false, false); - $info['md5_data_source'] = $thisfile_ofr_thisblock['md5_string']; - - } else { - - $info['warning'][] = 'Expecting block size of 16 in "MD5 " chunk, found '.$BlockSize.' instead'; - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - - } - break; - - - default: - $thisfile_ofr_thisblock['offset'] = $BlockOffset; - $thisfile_ofr_thisblock['size'] = $BlockSize; - - $info['warning'][] = 'Unhandled OptimFROG block type "'.$BlockName.'" at offset '.$thisfile_ofr_thisblock['offset']; - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - break; - } - } - if (isset($info['ofr']['TAIL']['offset'])) { - $info['avdataend'] = $info['ofr']['TAIL']['offset']; - } - - $info['playtime_seconds'] = (float) $info['ofr']['OFR ']['total_samples'] / ($info['audio']['channels'] * $info['audio']['sample_rate']); - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - // move the data chunk after all other chunks (if any) - // so that the RIFF parser doesn't see EOF when trying - // to skip over the data chunk - $RIFFdata = substr($RIFFdata, 0, 36).substr($RIFFdata, 44).substr($RIFFdata, 36, 8); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataoffset'] = $info['avdataoffset']; - $getid3_temp->info['avdataend'] = $info['avdataend']; - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->ParseRIFFdata($RIFFdata); - $info['riff'] = $getid3_temp->info['riff']; - - unset($getid3_riff, $getid3_temp, $RIFFdata); - - return true; - } - - - public static function OptimFROGsampleTypeLookup($SampleType) { - static $OptimFROGsampleTypeLookup = array( - 0 => 'unsigned int (8-bit)', - 1 => 'signed int (8-bit)', - 2 => 'unsigned int (16-bit)', - 3 => 'signed int (16-bit)', - 4 => 'unsigned int (24-bit)', - 5 => 'signed int (24-bit)', - 6 => 'unsigned int (32-bit)', - 7 => 'signed int (32-bit)', - 8 => 'float 0.24 (32-bit)', - 9 => 'float 16.8 (32-bit)', - 10 => 'float 24.0 (32-bit)' - ); - return (isset($OptimFROGsampleTypeLookup[$SampleType]) ? $OptimFROGsampleTypeLookup[$SampleType] : false); - } - - public static function OptimFROGbitsPerSampleTypeLookup($SampleType) { - static $OptimFROGbitsPerSampleTypeLookup = array( - 0 => 8, - 1 => 8, - 2 => 16, - 3 => 16, - 4 => 24, - 5 => 24, - 6 => 32, - 7 => 32, - 8 => 32, - 9 => 32, - 10 => 32 - ); - return (isset($OptimFROGbitsPerSampleTypeLookup[$SampleType]) ? $OptimFROGbitsPerSampleTypeLookup[$SampleType] : false); - } - - public static function OptimFROGchannelConfigurationLookup($ChannelConfiguration) { - static $OptimFROGchannelConfigurationLookup = array( - 0 => 'mono', - 1 => 'stereo' - ); - return (isset($OptimFROGchannelConfigurationLookup[$ChannelConfiguration]) ? $OptimFROGchannelConfigurationLookup[$ChannelConfiguration] : false); - } - - public static function OptimFROGchannelConfigNumChannelsLookup($ChannelConfiguration) { - static $OptimFROGchannelConfigNumChannelsLookup = array( - 0 => 1, - 1 => 2 - ); - return (isset($OptimFROGchannelConfigNumChannelsLookup[$ChannelConfiguration]) ? $OptimFROGchannelConfigNumChannelsLookup[$ChannelConfiguration] : false); - } - - - - // static function OptimFROGalgorithmNameLookup($AlgorithID) { - // static $OptimFROGalgorithmNameLookup = array(); - // return (isset($OptimFROGalgorithmNameLookup[$AlgorithID]) ? $OptimFROGalgorithmNameLookup[$AlgorithID] : false); - // } - - - public static function OptimFROGencoderNameLookup($EncoderID) { - // version = (encoderID >> 4) + 4500 - // system = encoderID & 0xF - - $EncoderVersion = number_format(((($EncoderID & 0xF0) >> 4) + 4500) / 1000, 3); - $EncoderSystemID = ($EncoderID & 0x0F); - - static $OptimFROGencoderSystemLookup = array( - 0x00 => 'Windows console', - 0x01 => 'Linux console', - 0x0F => 'unknown' - ); - return $EncoderVersion.' ('.(isset($OptimFROGencoderSystemLookup[$EncoderSystemID]) ? $OptimFROGencoderSystemLookup[$EncoderSystemID] : 'undefined encoder type (0x'.dechex($EncoderSystemID).')').')'; - } - - public static function OptimFROGcompressionLookup($CompressionID) { - // mode = compression >> 3 - // speedup = compression & 0x07 - - $CompressionModeID = ($CompressionID & 0xF8) >> 3; - //$CompressionSpeedupID = ($CompressionID & 0x07); - - static $OptimFROGencoderModeLookup = array( - 0x00 => 'fast', - 0x01 => 'normal', - 0x02 => 'high', - 0x03 => 'extra', // extranew (some versions) - 0x04 => 'best', // bestnew (some versions) - 0x05 => 'ultra', - 0x06 => 'insane', - 0x07 => 'highnew', - 0x08 => 'extranew', - 0x09 => 'bestnew' - ); - return (isset($OptimFROGencoderModeLookup[$CompressionModeID]) ? $OptimFROGencoderModeLookup[$CompressionModeID] : 'undefined mode (0x'.str_pad(dechex($CompressionModeID), 2, '0', STR_PAD_LEFT).')'); - } - - public static function OptimFROGspeedupLookup($CompressionID) { - // mode = compression >> 3 - // speedup = compression & 0x07 - - //$CompressionModeID = ($CompressionID & 0xF8) >> 3; - $CompressionSpeedupID = ($CompressionID & 0x07); - - static $OptimFROGencoderSpeedupLookup = array( - 0x00 => '1x', - 0x01 => '2x', - 0x02 => '4x' - ); - return (isset($OptimFROGencoderSpeedupLookup[$CompressionSpeedupID]) ? $OptimFROGencoderSpeedupLookup[$CompressionSpeedupID] : 'undefined mode (0x'.dechex($CompressionSpeedupID)); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.rkau.php b/web/htdocs/media/lib/getid3/module.audio.rkau.php deleted file mode 100644 index 0ea051bc6a5..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.rkau.php +++ /dev/null @@ -1,92 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.shorten.php // -// module for analyzing Shorten Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_rkau extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $RKAUHeader = fread($this->getid3->fp, 20); - $magic = 'RKA'; - if (substr($RKAUHeader, 0, 3) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($RKAUHeader, 0, 3)).'"'; - return false; - } - - $info['fileformat'] = 'rkau'; - $info['audio']['dataformat'] = 'rkau'; - $info['audio']['bitrate_mode'] = 'vbr'; - - $info['rkau']['raw']['version'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 3, 1)); - $info['rkau']['version'] = '1.'.str_pad($info['rkau']['raw']['version'] & 0x0F, 2, '0', STR_PAD_LEFT); - if (($info['rkau']['version'] > 1.07) || ($info['rkau']['version'] < 1.06)) { - $info['error'][] = 'This version of getID3() ['.$this->getid3->version().'] can only parse RKAU files v1.06 and 1.07 (this file is v'.$info['rkau']['version'].')'; - unset($info['rkau']); - return false; - } - - $info['rkau']['source_bytes'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 4, 4)); - $info['rkau']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 8, 4)); - $info['rkau']['channels'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 12, 1)); - $info['rkau']['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 13, 1)); - - $info['rkau']['raw']['quality'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 14, 1)); - $this->RKAUqualityLookup($info['rkau']); - - $info['rkau']['raw']['flags'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 15, 1)); - $info['rkau']['flags']['joint_stereo'] = (bool) (!($info['rkau']['raw']['flags'] & 0x01)); - $info['rkau']['flags']['streaming'] = (bool) ($info['rkau']['raw']['flags'] & 0x02); - $info['rkau']['flags']['vrq_lossy_mode'] = (bool) ($info['rkau']['raw']['flags'] & 0x04); - - if ($info['rkau']['flags']['streaming']) { - $info['avdataoffset'] += 20; - $info['rkau']['compressed_bytes'] = getid3_lib::LittleEndian2Int(substr($RKAUHeader, 16, 4)); - } else { - $info['avdataoffset'] += 16; - $info['rkau']['compressed_bytes'] = $info['avdataend'] - $info['avdataoffset'] - 1; - } - // Note: compressed_bytes does not always equal what appears to be the actual number of compressed bytes, - // sometimes it's more, sometimes less. No idea why(?) - - $info['audio']['lossless'] = $info['rkau']['lossless']; - $info['audio']['channels'] = $info['rkau']['channels']; - $info['audio']['bits_per_sample'] = $info['rkau']['bits_per_sample']; - $info['audio']['sample_rate'] = $info['rkau']['sample_rate']; - - $info['playtime_seconds'] = $info['rkau']['source_bytes'] / ($info['rkau']['sample_rate'] * $info['rkau']['channels'] * ($info['rkau']['bits_per_sample'] / 8)); - $info['audio']['bitrate'] = ($info['rkau']['compressed_bytes'] * 8) / $info['playtime_seconds']; - - return true; - - } - - - public function RKAUqualityLookup(&$RKAUdata) { - $level = ($RKAUdata['raw']['quality'] & 0xF0) >> 4; - $quality = $RKAUdata['raw']['quality'] & 0x0F; - - $RKAUdata['lossless'] = (($quality == 0) ? true : false); - $RKAUdata['compression_level'] = $level + 1; - if (!$RKAUdata['lossless']) { - $RKAUdata['quality_setting'] = $quality; - } - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.shorten.php b/web/htdocs/media/lib/getid3/module.audio.shorten.php deleted file mode 100644 index a047f16f12e..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.shorten.php +++ /dev/null @@ -1,181 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.shorten.php // -// module for analyzing Shorten Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_shorten extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $ShortenHeader = fread($this->getid3->fp, 8); - $magic = 'ajkg'; - if (substr($ShortenHeader, 0, 4) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($ShortenHeader, 0, 4)).'"'; - return false; - } - $info['fileformat'] = 'shn'; - $info['audio']['dataformat'] = 'shn'; - $info['audio']['lossless'] = true; - $info['audio']['bitrate_mode'] = 'vbr'; - - $info['shn']['version'] = getid3_lib::LittleEndian2Int(substr($ShortenHeader, 4, 1)); - - fseek($this->getid3->fp, $info['avdataend'] - 12, SEEK_SET); - $SeekTableSignatureTest = fread($this->getid3->fp, 12); - $info['shn']['seektable']['present'] = (bool) (substr($SeekTableSignatureTest, 4, 8) == 'SHNAMPSK'); - if ($info['shn']['seektable']['present']) { - $info['shn']['seektable']['length'] = getid3_lib::LittleEndian2Int(substr($SeekTableSignatureTest, 0, 4)); - $info['shn']['seektable']['offset'] = $info['avdataend'] - $info['shn']['seektable']['length']; - fseek($this->getid3->fp, $info['shn']['seektable']['offset'], SEEK_SET); - $SeekTableMagic = fread($this->getid3->fp, 4); - $magic = 'SEEK'; - if ($SeekTableMagic != $magic) { - - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['shn']['seektable']['offset'].', found "'.getid3_lib::PrintHexBytes($SeekTableMagic).'"'; - return false; - - } else { - - // typedef struct tag_TSeekEntry - // { - // unsigned long SampleNumber; - // unsigned long SHNFileByteOffset; - // unsigned long SHNLastBufferReadPosition; - // unsigned short SHNByteGet; - // unsigned short SHNBufferOffset; - // unsigned short SHNFileBitOffset; - // unsigned long SHNGBuffer; - // unsigned short SHNBitShift; - // long CBuf0[3]; - // long CBuf1[3]; - // long Offset0[4]; - // long Offset1[4]; - // }TSeekEntry; - - $SeekTableData = fread($this->getid3->fp, $info['shn']['seektable']['length'] - 16); - $info['shn']['seektable']['entry_count'] = floor(strlen($SeekTableData) / 80); - //$info['shn']['seektable']['entries'] = array(); - //$SeekTableOffset = 0; - //for ($i = 0; $i < $info['shn']['seektable']['entry_count']; $i++) { - // $SeekTableEntry['sample_number'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // $SeekTableEntry['shn_file_byte_offset'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // $SeekTableEntry['shn_last_buffer_read_position'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // $SeekTableEntry['shn_byte_get'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 2)); - // $SeekTableOffset += 2; - // $SeekTableEntry['shn_buffer_offset'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 2)); - // $SeekTableOffset += 2; - // $SeekTableEntry['shn_file_bit_offset'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 2)); - // $SeekTableOffset += 2; - // $SeekTableEntry['shn_gbuffer'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // $SeekTableEntry['shn_bit_shift'] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 2)); - // $SeekTableOffset += 2; - // for ($j = 0; $j < 3; $j++) { - // $SeekTableEntry['cbuf0'][$j] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // } - // for ($j = 0; $j < 3; $j++) { - // $SeekTableEntry['cbuf1'][$j] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // } - // for ($j = 0; $j < 4; $j++) { - // $SeekTableEntry['offset0'][$j] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // } - // for ($j = 0; $j < 4; $j++) { - // $SeekTableEntry['offset1'][$j] = getid3_lib::LittleEndian2Int(substr($SeekTableData, $SeekTableOffset, 4)); - // $SeekTableOffset += 4; - // } - // - // $info['shn']['seektable']['entries'][] = $SeekTableEntry; - //} - - } - - } - - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - $info['error'][] = 'PHP running in Safe Mode - backtick operator not available, cannot run shntool to analyze Shorten files'; - return false; - } - - if (GETID3_OS_ISWINDOWS) { - - $RequiredFiles = array('shorten.exe', 'cygwin1.dll', 'head.exe'); - foreach ($RequiredFiles as $required_file) { - if (!is_readable(GETID3_HELPERAPPSDIR.$required_file)) { - $info['error'][] = GETID3_HELPERAPPSDIR.$required_file.' does not exist'; - return false; - } - } - $commandline = GETID3_HELPERAPPSDIR.'shorten.exe -x "'.$info['filenamepath'].'" - | '.GETID3_HELPERAPPSDIR.'head.exe -c 64'; - $commandline = str_replace('/', '\\', $commandline); - - } else { - - static $shorten_present; - if (!isset($shorten_present)) { - $shorten_present = file_exists('/usr/local/bin/shorten') || `which shorten`; - } - if (!$shorten_present) { - $info['error'][] = 'shorten binary was not found in path or /usr/local/bin'; - return false; - } - $commandline = (file_exists('/usr/local/bin/shorten') ? '/usr/local/bin/' : '' ) . 'shorten -x '.escapeshellarg($info['filenamepath']).' - | head -c 64'; - - } - - $output = `$commandline`; - - if (!empty($output) && (substr($output, 12, 4) == 'fmt ')) { - - getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - - $fmt_size = getid3_lib::LittleEndian2Int(substr($output, 16, 4)); - $DecodedWAVFORMATEX = getid3_riff::parseWAVEFORMATex(substr($output, 20, $fmt_size)); - $info['audio']['channels'] = $DecodedWAVFORMATEX['channels']; - $info['audio']['bits_per_sample'] = $DecodedWAVFORMATEX['bits_per_sample']; - $info['audio']['sample_rate'] = $DecodedWAVFORMATEX['sample_rate']; - - if (substr($output, 20 + $fmt_size, 4) == 'data') { - - $info['playtime_seconds'] = getid3_lib::LittleEndian2Int(substr($output, 20 + 4 + $fmt_size, 4)) / $DecodedWAVFORMATEX['raw']['nAvgBytesPerSec']; - - } else { - - $info['error'][] = 'shorten failed to decode DATA chunk to expected location, cannot determine playtime'; - return false; - - } - - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) / $info['playtime_seconds']) * 8; - - } else { - - $info['error'][] = 'shorten failed to decode file to WAV for parsing'; - return false; - - } - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.tta.php b/web/htdocs/media/lib/getid3/module.audio.tta.php deleted file mode 100644 index a3056db6964..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.tta.php +++ /dev/null @@ -1,106 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.tta.php // -// module for analyzing TTA Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_tta extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'tta'; - $info['audio']['dataformat'] = 'tta'; - $info['audio']['lossless'] = true; - $info['audio']['bitrate_mode'] = 'vbr'; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $ttaheader = fread($this->getid3->fp, 26); - - $info['tta']['magic'] = substr($ttaheader, 0, 3); - $magic = 'TTA'; - if ($info['tta']['magic'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($info['tta']['magic']).'"'; - unset($info['fileformat']); - unset($info['audio']); - unset($info['tta']); - return false; - } - - switch ($ttaheader{3}) { - case "\x01": // TTA v1.x - case "\x02": // TTA v1.x - case "\x03": // TTA v1.x - // "It was the demo-version of the TTA encoder. There is no released format with such header. TTA encoder v1 is not supported about a year." - $info['tta']['major_version'] = 1; - $info['avdataoffset'] += 16; - - $info['tta']['compression_level'] = ord($ttaheader{3}); - $info['tta']['channels'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 4, 2)); - $info['tta']['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 6, 2)); - $info['tta']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 8, 4)); - $info['tta']['samples_per_channel'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 12, 4)); - - $info['audio']['encoder_options'] = '-e'.$info['tta']['compression_level']; - $info['playtime_seconds'] = $info['tta']['samples_per_channel'] / $info['tta']['sample_rate']; - break; - - case '2': // TTA v2.x - // "I have hurried to release the TTA 2.0 encoder. Format documentation is removed from our site. This format still in development. Please wait the TTA2 format, encoder v4." - $info['tta']['major_version'] = 2; - $info['avdataoffset'] += 20; - - $info['tta']['compression_level'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 4, 2)); - $info['tta']['audio_format'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 6, 2)); - $info['tta']['channels'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 8, 2)); - $info['tta']['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 10, 2)); - $info['tta']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 12, 4)); - $info['tta']['data_length'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 16, 4)); - - $info['audio']['encoder_options'] = '-e'.$info['tta']['compression_level']; - $info['playtime_seconds'] = $info['tta']['data_length'] / $info['tta']['sample_rate']; - break; - - case '1': // TTA v3.x - // "This is a first stable release of the TTA format. It will be supported by the encoders v3 or higher." - $info['tta']['major_version'] = 3; - $info['avdataoffset'] += 26; - - $info['tta']['audio_format'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 4, 2)); // getid3_riff::wFormatTagLookup() - $info['tta']['channels'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 6, 2)); - $info['tta']['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 8, 2)); - $info['tta']['sample_rate'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 10, 4)); - $info['tta']['data_length'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 14, 4)); - $info['tta']['crc32_footer'] = substr($ttaheader, 18, 4); - $info['tta']['seek_point'] = getid3_lib::LittleEndian2Int(substr($ttaheader, 22, 4)); - - $info['playtime_seconds'] = $info['tta']['data_length'] / $info['tta']['sample_rate']; - break; - - default: - $info['error'][] = 'This version of getID3() ['.$this->getid3->version().'] only knows how to handle TTA v1 and v2 - it may not work correctly with this file which appears to be TTA v'.$ttaheader{3}; - return false; - break; - } - - $info['audio']['encoder'] = 'TTA v'.$info['tta']['major_version']; - $info['audio']['bits_per_sample'] = $info['tta']['bits_per_sample']; - $info['audio']['sample_rate'] = $info['tta']['sample_rate']; - $info['audio']['channels'] = $info['tta']['channels']; - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.voc.php b/web/htdocs/media/lib/getid3/module.audio.voc.php deleted file mode 100644 index e38fa482be1..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.voc.php +++ /dev/null @@ -1,204 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.voc.php // -// module for analyzing Creative VOC Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_voc extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $OriginalAVdataOffset = $info['avdataoffset']; - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $VOCheader = fread($this->getid3->fp, 26); - - $magic = 'Creative Voice File'; - if (substr($VOCheader, 0, 19) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($VOCheader, 0, 19)).'"'; - return false; - } - - // shortcuts - $thisfile_audio = &$info['audio']; - $info['voc'] = array(); - $thisfile_voc = &$info['voc']; - - $info['fileformat'] = 'voc'; - $thisfile_audio['dataformat'] = 'voc'; - $thisfile_audio['bitrate_mode'] = 'cbr'; - $thisfile_audio['lossless'] = true; - $thisfile_audio['channels'] = 1; // might be overriden below - $thisfile_audio['bits_per_sample'] = 8; // might be overriden below - - // byte # Description - // ------ ------------------------------------------ - // 00-12 'Creative Voice File' - // 13 1A (eof to abort printing of file) - // 14-15 Offset of first datablock in .voc file (std 1A 00 in Intel Notation) - // 16-17 Version number (minor,major) (VOC-HDR puts 0A 01) - // 18-19 2's Comp of Ver. # + 1234h (VOC-HDR puts 29 11) - - $thisfile_voc['header']['datablock_offset'] = getid3_lib::LittleEndian2Int(substr($VOCheader, 20, 2)); - $thisfile_voc['header']['minor_version'] = getid3_lib::LittleEndian2Int(substr($VOCheader, 22, 1)); - $thisfile_voc['header']['major_version'] = getid3_lib::LittleEndian2Int(substr($VOCheader, 23, 1)); - - do { - - $BlockOffset = ftell($this->getid3->fp); - $BlockData = fread($this->getid3->fp, 4); - $BlockType = ord($BlockData{0}); - $BlockSize = getid3_lib::LittleEndian2Int(substr($BlockData, 1, 3)); - $ThisBlock = array(); - - getid3_lib::safe_inc($thisfile_voc['blocktypes'][$BlockType], 1); - switch ($BlockType) { - case 0: // Terminator - // do nothing, we'll break out of the loop down below - break; - - case 1: // Sound data - $BlockData .= fread($this->getid3->fp, 2); - if ($info['avdataoffset'] <= $OriginalAVdataOffset) { - $info['avdataoffset'] = ftell($this->getid3->fp); - } - fseek($this->getid3->fp, $BlockSize - 2, SEEK_CUR); - - $ThisBlock['sample_rate_id'] = getid3_lib::LittleEndian2Int(substr($BlockData, 4, 1)); - $ThisBlock['compression_type'] = getid3_lib::LittleEndian2Int(substr($BlockData, 5, 1)); - - $ThisBlock['compression_name'] = $this->VOCcompressionTypeLookup($ThisBlock['compression_type']); - if ($ThisBlock['compression_type'] <= 3) { - $thisfile_voc['compressed_bits_per_sample'] = getid3_lib::CastAsInt(str_replace('-bit', '', $ThisBlock['compression_name'])); - } - - // Less accurate sample_rate calculation than the Extended block (#8) data (but better than nothing if Extended Block is not available) - if (empty($thisfile_audio['sample_rate'])) { - // SR byte = 256 - (1000000 / sample_rate) - $thisfile_audio['sample_rate'] = getid3_lib::trunc((1000000 / (256 - $ThisBlock['sample_rate_id'])) / $thisfile_audio['channels']); - } - break; - - case 2: // Sound continue - case 3: // Silence - case 4: // Marker - case 6: // Repeat - case 7: // End repeat - // nothing useful, just skip - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - break; - - case 8: // Extended - $BlockData .= fread($this->getid3->fp, 4); - - //00-01 Time Constant: - // Mono: 65536 - (256000000 / sample_rate) - // Stereo: 65536 - (256000000 / (sample_rate * 2)) - $ThisBlock['time_constant'] = getid3_lib::LittleEndian2Int(substr($BlockData, 4, 2)); - $ThisBlock['pack_method'] = getid3_lib::LittleEndian2Int(substr($BlockData, 6, 1)); - $ThisBlock['stereo'] = (bool) getid3_lib::LittleEndian2Int(substr($BlockData, 7, 1)); - - $thisfile_audio['channels'] = ($ThisBlock['stereo'] ? 2 : 1); - $thisfile_audio['sample_rate'] = getid3_lib::trunc((256000000 / (65536 - $ThisBlock['time_constant'])) / $thisfile_audio['channels']); - break; - - case 9: // data block that supersedes blocks 1 and 8. Used for stereo, 16 bit - $BlockData .= fread($this->getid3->fp, 12); - if ($info['avdataoffset'] <= $OriginalAVdataOffset) { - $info['avdataoffset'] = ftell($this->getid3->fp); - } - fseek($this->getid3->fp, $BlockSize - 12, SEEK_CUR); - - $ThisBlock['sample_rate'] = getid3_lib::LittleEndian2Int(substr($BlockData, 4, 4)); - $ThisBlock['bits_per_sample'] = getid3_lib::LittleEndian2Int(substr($BlockData, 8, 1)); - $ThisBlock['channels'] = getid3_lib::LittleEndian2Int(substr($BlockData, 9, 1)); - $ThisBlock['wFormat'] = getid3_lib::LittleEndian2Int(substr($BlockData, 10, 2)); - - $ThisBlock['compression_name'] = $this->VOCwFormatLookup($ThisBlock['wFormat']); - if ($this->VOCwFormatActualBitsPerSampleLookup($ThisBlock['wFormat'])) { - $thisfile_voc['compressed_bits_per_sample'] = $this->VOCwFormatActualBitsPerSampleLookup($ThisBlock['wFormat']); - } - - $thisfile_audio['sample_rate'] = $ThisBlock['sample_rate']; - $thisfile_audio['bits_per_sample'] = $ThisBlock['bits_per_sample']; - $thisfile_audio['channels'] = $ThisBlock['channels']; - break; - - default: - $info['warning'][] = 'Unhandled block type "'.$BlockType.'" at offset '.$BlockOffset; - fseek($this->getid3->fp, $BlockSize, SEEK_CUR); - break; - } - - if (!empty($ThisBlock)) { - $ThisBlock['block_offset'] = $BlockOffset; - $ThisBlock['block_size'] = $BlockSize; - $ThisBlock['block_type_id'] = $BlockType; - $thisfile_voc['blocks'][] = $ThisBlock; - } - - } while (!feof($this->getid3->fp) && ($BlockType != 0)); - - // Terminator block doesn't have size field, so seek back 3 spaces - fseek($this->getid3->fp, -3, SEEK_CUR); - - ksort($thisfile_voc['blocktypes']); - - if (!empty($thisfile_voc['compressed_bits_per_sample'])) { - $info['playtime_seconds'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / ($thisfile_voc['compressed_bits_per_sample'] * $thisfile_audio['channels'] * $thisfile_audio['sample_rate']); - $thisfile_audio['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - } - - return true; - } - - public function VOCcompressionTypeLookup($index) { - static $VOCcompressionTypeLookup = array( - 0 => '8-bit', - 1 => '4-bit', - 2 => '2.6-bit', - 3 => '2-bit' - ); - return (isset($VOCcompressionTypeLookup[$index]) ? $VOCcompressionTypeLookup[$index] : 'Multi DAC ('.($index - 3).') channels'); - } - - public function VOCwFormatLookup($index) { - static $VOCwFormatLookup = array( - 0x0000 => '8-bit unsigned PCM', - 0x0001 => 'Creative 8-bit to 4-bit ADPCM', - 0x0002 => 'Creative 8-bit to 3-bit ADPCM', - 0x0003 => 'Creative 8-bit to 2-bit ADPCM', - 0x0004 => '16-bit signed PCM', - 0x0006 => 'CCITT a-Law', - 0x0007 => 'CCITT u-Law', - 0x2000 => 'Creative 16-bit to 4-bit ADPCM' - ); - return (isset($VOCwFormatLookup[$index]) ? $VOCwFormatLookup[$index] : false); - } - - public function VOCwFormatActualBitsPerSampleLookup($index) { - static $VOCwFormatLookup = array( - 0x0000 => 8, - 0x0001 => 4, - 0x0002 => 3, - 0x0003 => 2, - 0x0004 => 16, - 0x0006 => 8, - 0x0007 => 8, - 0x2000 => 4 - ); - return (isset($VOCwFormatLookup[$index]) ? $VOCwFormatLookup[$index] : false); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.vqf.php b/web/htdocs/media/lib/getid3/module.audio.vqf.php deleted file mode 100644 index 40c77d054a4..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.vqf.php +++ /dev/null @@ -1,159 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.vqf.php // -// module for analyzing VQF audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_vqf extends getid3_handler -{ - public function Analyze() { - $info = &$this->getid3->info; - - // based loosely on code from TTwinVQ by Jurgen Faul - // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html - - $info['fileformat'] = 'vqf'; - $info['audio']['dataformat'] = 'vqf'; - $info['audio']['bitrate_mode'] = 'cbr'; - $info['audio']['lossless'] = false; - - // shortcut - $info['vqf']['raw'] = array(); - $thisfile_vqf = &$info['vqf']; - $thisfile_vqf_raw = &$thisfile_vqf['raw']; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $VQFheaderData = fread($this->getid3->fp, 16); - - $offset = 0; - $thisfile_vqf_raw['header_tag'] = substr($VQFheaderData, $offset, 4); - $magic = 'TWIN'; - if ($thisfile_vqf_raw['header_tag'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($thisfile_vqf_raw['header_tag']).'"'; - unset($info['vqf']); - unset($info['fileformat']); - return false; - } - $offset += 4; - $thisfile_vqf_raw['version'] = substr($VQFheaderData, $offset, 8); - $offset += 8; - $thisfile_vqf_raw['size'] = getid3_lib::BigEndian2Int(substr($VQFheaderData, $offset, 4)); - $offset += 4; - - while (ftell($this->getid3->fp) < $info['avdataend']) { - - $ChunkBaseOffset = ftell($this->getid3->fp); - $chunkoffset = 0; - $ChunkData = fread($this->getid3->fp, 8); - $ChunkName = substr($ChunkData, $chunkoffset, 4); - if ($ChunkName == 'DATA') { - $info['avdataoffset'] = $ChunkBaseOffset; - break; - } - $chunkoffset += 4; - $ChunkSize = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); - $chunkoffset += 4; - if ($ChunkSize > ($info['avdataend'] - ftell($this->getid3->fp))) { - $info['error'][] = 'Invalid chunk size ('.$ChunkSize.') for chunk "'.$ChunkName.'" at offset '.$ChunkBaseOffset; - break; - } - if ($ChunkSize > 0) { - $ChunkData .= fread($this->getid3->fp, $ChunkSize); - } - - switch ($ChunkName) { - case 'COMM': - // shortcut - $thisfile_vqf['COMM'] = array(); - $thisfile_vqf_COMM = &$thisfile_vqf['COMM']; - - $thisfile_vqf_COMM['channel_mode'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); - $chunkoffset += 4; - $thisfile_vqf_COMM['bitrate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); - $chunkoffset += 4; - $thisfile_vqf_COMM['sample_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); - $chunkoffset += 4; - $thisfile_vqf_COMM['security_level'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); - $chunkoffset += 4; - - $info['audio']['channels'] = $thisfile_vqf_COMM['channel_mode'] + 1; - $info['audio']['sample_rate'] = $this->VQFchannelFrequencyLookup($thisfile_vqf_COMM['sample_rate']); - $info['audio']['bitrate'] = $thisfile_vqf_COMM['bitrate'] * 1000; - $info['audio']['encoder_options'] = 'CBR' . ceil($info['audio']['bitrate']/1000); - - if ($info['audio']['bitrate'] == 0) { - $info['error'][] = 'Corrupt VQF file: bitrate_audio == zero'; - return false; - } - break; - - case 'NAME': - case 'AUTH': - case '(c) ': - case 'FILE': - case 'COMT': - case 'ALBM': - $thisfile_vqf['comments'][$this->VQFcommentNiceNameLookup($ChunkName)][] = trim(substr($ChunkData, 8)); - break; - - case 'DSIZ': - $thisfile_vqf['DSIZ'] = getid3_lib::BigEndian2Int(substr($ChunkData, 8, 4)); - break; - - default: - $info['warning'][] = 'Unhandled chunk type "'.$ChunkName.'" at offset '.$ChunkBaseOffset; - break; - } - } - - $info['playtime_seconds'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['audio']['bitrate']; - - if (isset($thisfile_vqf['DSIZ']) && (($thisfile_vqf['DSIZ'] != ($info['avdataend'] - $info['avdataoffset'] - strlen('DATA'))))) { - switch ($thisfile_vqf['DSIZ']) { - case 0: - case 1: - $info['warning'][] = 'Invalid DSIZ value "'.$thisfile_vqf['DSIZ'].'". This is known to happen with VQF files encoded by Ahead Nero, and seems to be its way of saying this is TwinVQF v'.($thisfile_vqf['DSIZ'] + 1).'.0'; - $info['audio']['encoder'] = 'Ahead Nero'; - break; - - default: - $info['warning'][] = 'Probable corrupted file - should be '.$thisfile_vqf['DSIZ'].' bytes, actually '.($info['avdataend'] - $info['avdataoffset'] - strlen('DATA')); - break; - } - } - - return true; - } - - public function VQFchannelFrequencyLookup($frequencyid) { - static $VQFchannelFrequencyLookup = array( - 11 => 11025, - 22 => 22050, - 44 => 44100 - ); - return (isset($VQFchannelFrequencyLookup[$frequencyid]) ? $VQFchannelFrequencyLookup[$frequencyid] : $frequencyid * 1000); - } - - public function VQFcommentNiceNameLookup($shortname) { - static $VQFcommentNiceNameLookup = array( - 'NAME' => 'title', - 'AUTH' => 'artist', - '(c) ' => 'copyright', - 'FILE' => 'filename', - 'COMT' => 'comment', - 'ALBM' => 'album' - ); - return (isset($VQFcommentNiceNameLookup[$shortname]) ? $VQFcommentNiceNameLookup[$shortname] : $shortname); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.audio.wavpack.php b/web/htdocs/media/lib/getid3/module.audio.wavpack.php deleted file mode 100644 index 8daf60346b6..00000000000 --- a/web/htdocs/media/lib/getid3/module.audio.wavpack.php +++ /dev/null @@ -1,397 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.audio.wavpack.php // -// module for analyzing WavPack v4.0+ Audio files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_wavpack extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - while (true) { - - $wavpackheader = fread($this->getid3->fp, 32); - - if (ftell($this->getid3->fp) >= $info['avdataend']) { - break; - } elseif (feof($this->getid3->fp)) { - break; - } elseif ( - isset($info['wavpack']['blockheader']['total_samples']) && - isset($info['wavpack']['blockheader']['block_samples']) && - ($info['wavpack']['blockheader']['total_samples'] > 0) && - ($info['wavpack']['blockheader']['block_samples'] > 0) && - (!isset($info['wavpack']['riff_trailer_size']) || ($info['wavpack']['riff_trailer_size'] <= 0)) && - ((isset($info['wavpack']['config_flags']['md5_checksum']) && ($info['wavpack']['config_flags']['md5_checksum'] === false)) || !empty($info['md5_data_source']))) { - break; - } - - $blockheader_offset = ftell($this->getid3->fp) - 32; - $blockheader_magic = substr($wavpackheader, 0, 4); - $blockheader_size = getid3_lib::LittleEndian2Int(substr($wavpackheader, 4, 4)); - - $magic = 'wvpk'; - if ($blockheader_magic != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$blockheader_offset.', found "'.getid3_lib::PrintHexBytes($blockheader_magic).'"'; - switch (isset($info['audio']['dataformat']) ? $info['audio']['dataformat'] : '') { - case 'wavpack': - case 'wvc': - break; - default: - unset($info['fileformat']); - unset($info['audio']); - unset($info['wavpack']); - break; - } - return false; - } - - if (empty($info['wavpack']['blockheader']['block_samples']) || - empty($info['wavpack']['blockheader']['total_samples']) || - ($info['wavpack']['blockheader']['block_samples'] <= 0) || - ($info['wavpack']['blockheader']['total_samples'] <= 0)) { - // Also, it is possible that the first block might not have - // any samples (block_samples == 0) and in this case you should skip blocks - // until you find one with samples because the other information (like - // total_samples) are not guaranteed to be correct until (block_samples > 0) - - // Finally, I have defined a format for files in which the length is not known - // (for example when raw files are created using pipes). In these cases - // total_samples will be -1 and you must seek to the final block to determine - // the total number of samples. - - - $info['audio']['dataformat'] = 'wavpack'; - $info['fileformat'] = 'wavpack'; - $info['audio']['lossless'] = true; - $info['audio']['bitrate_mode'] = 'vbr'; - - $info['wavpack']['blockheader']['offset'] = $blockheader_offset; - $info['wavpack']['blockheader']['magic'] = $blockheader_magic; - $info['wavpack']['blockheader']['size'] = $blockheader_size; - - if ($info['wavpack']['blockheader']['size'] >= 0x100000) { - $info['error'][] = 'Expecting WavPack block size less than "0x100000", found "'.$info['wavpack']['blockheader']['size'].'" at offset '.$info['wavpack']['blockheader']['offset']; - switch (isset($info['audio']['dataformat']) ? $info['audio']['dataformat'] : '') { - case 'wavpack': - case 'wvc': - break; - default: - unset($info['fileformat']); - unset($info['audio']); - unset($info['wavpack']); - break; - } - return false; - } - - $info['wavpack']['blockheader']['minor_version'] = ord($wavpackheader{8}); - $info['wavpack']['blockheader']['major_version'] = ord($wavpackheader{9}); - - if (($info['wavpack']['blockheader']['major_version'] != 4) || - (($info['wavpack']['blockheader']['minor_version'] < 4) && - ($info['wavpack']['blockheader']['minor_version'] > 16))) { - $info['error'][] = 'Expecting WavPack version between "4.2" and "4.16", found version "'.$info['wavpack']['blockheader']['major_version'].'.'.$info['wavpack']['blockheader']['minor_version'].'" at offset '.$info['wavpack']['blockheader']['offset']; - switch (isset($info['audio']['dataformat']) ? $info['audio']['dataformat'] : '') { - case 'wavpack': - case 'wvc': - break; - default: - unset($info['fileformat']); - unset($info['audio']); - unset($info['wavpack']); - break; - } - return false; - } - - $info['wavpack']['blockheader']['track_number'] = ord($wavpackheader{10}); // unused - $info['wavpack']['blockheader']['index_number'] = ord($wavpackheader{11}); // unused - $info['wavpack']['blockheader']['total_samples'] = getid3_lib::LittleEndian2Int(substr($wavpackheader, 12, 4)); - $info['wavpack']['blockheader']['block_index'] = getid3_lib::LittleEndian2Int(substr($wavpackheader, 16, 4)); - $info['wavpack']['blockheader']['block_samples'] = getid3_lib::LittleEndian2Int(substr($wavpackheader, 20, 4)); - $info['wavpack']['blockheader']['flags_raw'] = getid3_lib::LittleEndian2Int(substr($wavpackheader, 24, 4)); - $info['wavpack']['blockheader']['crc'] = getid3_lib::LittleEndian2Int(substr($wavpackheader, 28, 4)); - - $info['wavpack']['blockheader']['flags']['bytes_per_sample'] = 1 + ($info['wavpack']['blockheader']['flags_raw'] & 0x00000003); - $info['wavpack']['blockheader']['flags']['mono'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000004); - $info['wavpack']['blockheader']['flags']['hybrid'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000008); - $info['wavpack']['blockheader']['flags']['joint_stereo'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000010); - $info['wavpack']['blockheader']['flags']['cross_decorrelation'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000020); - $info['wavpack']['blockheader']['flags']['hybrid_noiseshape'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000040); - $info['wavpack']['blockheader']['flags']['ieee_32bit_float'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000080); - $info['wavpack']['blockheader']['flags']['int_32bit'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000100); - $info['wavpack']['blockheader']['flags']['hybrid_bitrate_noise'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000200); - $info['wavpack']['blockheader']['flags']['hybrid_balance_noise'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000400); - $info['wavpack']['blockheader']['flags']['multichannel_initial'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00000800); - $info['wavpack']['blockheader']['flags']['multichannel_final'] = (bool) ($info['wavpack']['blockheader']['flags_raw'] & 0x00001000); - - $info['audio']['lossless'] = !$info['wavpack']['blockheader']['flags']['hybrid']; - } - - while (!feof($this->getid3->fp) && (ftell($this->getid3->fp) < ($blockheader_offset + $blockheader_size + 8))) { - - $metablock = array('offset'=>ftell($this->getid3->fp)); - $metablockheader = fread($this->getid3->fp, 2); - if (feof($this->getid3->fp)) { - break; - } - $metablock['id'] = ord($metablockheader{0}); - $metablock['function_id'] = ($metablock['id'] & 0x3F); - $metablock['function_name'] = $this->WavPackMetablockNameLookup($metablock['function_id']); - - // The 0x20 bit in the id of the meta subblocks (which is defined as - // ID_OPTIONAL_DATA) is a permanent part of the id. The idea is that - // if a decoder encounters an id that it does not know about, it uses - // that "ID_OPTIONAL_DATA" flag to determine what to do. If it is set - // then the decoder simply ignores the metadata, but if it is zero - // then the decoder should quit because it means that an understanding - // of the metadata is required to correctly decode the audio. - $metablock['non_decoder'] = (bool) ($metablock['id'] & 0x20); - - $metablock['padded_data'] = (bool) ($metablock['id'] & 0x40); - $metablock['large_block'] = (bool) ($metablock['id'] & 0x80); - if ($metablock['large_block']) { - $metablockheader .= fread($this->getid3->fp, 2); - } - $metablock['size'] = getid3_lib::LittleEndian2Int(substr($metablockheader, 1)) * 2; // size is stored in words - $metablock['data'] = null; - - if ($metablock['size'] > 0) { - - switch ($metablock['function_id']) { - case 0x21: // ID_RIFF_HEADER - case 0x22: // ID_RIFF_TRAILER - case 0x23: // ID_REPLAY_GAIN - case 0x24: // ID_CUESHEET - case 0x25: // ID_CONFIG_BLOCK - case 0x26: // ID_MD5_CHECKSUM - $metablock['data'] = fread($this->getid3->fp, $metablock['size']); - - if ($metablock['padded_data']) { - // padded to the nearest even byte - $metablock['size']--; - $metablock['data'] = substr($metablock['data'], 0, -1); - } - break; - - case 0x00: // ID_DUMMY - case 0x01: // ID_ENCODER_INFO - case 0x02: // ID_DECORR_TERMS - case 0x03: // ID_DECORR_WEIGHTS - case 0x04: // ID_DECORR_SAMPLES - case 0x05: // ID_ENTROPY_VARS - case 0x06: // ID_HYBRID_PROFILE - case 0x07: // ID_SHAPING_WEIGHTS - case 0x08: // ID_FLOAT_INFO - case 0x09: // ID_INT32_INFO - case 0x0A: // ID_WV_BITSTREAM - case 0x0B: // ID_WVC_BITSTREAM - case 0x0C: // ID_WVX_BITSTREAM - case 0x0D: // ID_CHANNEL_INFO - fseek($this->getid3->fp, $metablock['offset'] + ($metablock['large_block'] ? 4 : 2) + $metablock['size'], SEEK_SET); - break; - - default: - $info['warning'][] = 'Unexpected metablock type "0x'.str_pad(dechex($metablock['function_id']), 2, '0', STR_PAD_LEFT).'" at offset '.$metablock['offset']; - fseek($this->getid3->fp, $metablock['offset'] + ($metablock['large_block'] ? 4 : 2) + $metablock['size'], SEEK_SET); - break; - } - - switch ($metablock['function_id']) { - case 0x21: // ID_RIFF_HEADER - getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - $original_wav_filesize = getid3_lib::LittleEndian2Int(substr($metablock['data'], 4, 4)); - - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_riff = new getid3_riff($getid3_temp); - $getid3_riff->ParseRIFFdata($metablock['data']); - $metablock['riff'] = $getid3_temp->info['riff']; - $info['audio']['sample_rate'] = $getid3_temp->info['riff']['raw']['fmt ']['nSamplesPerSec']; - unset($getid3_riff, $getid3_temp); - - $metablock['riff']['original_filesize'] = $original_wav_filesize; - $info['wavpack']['riff_trailer_size'] = $original_wav_filesize - $metablock['riff']['WAVE']['data'][0]['size'] - $metablock['riff']['header_size']; - $info['playtime_seconds'] = $info['wavpack']['blockheader']['total_samples'] / $info['audio']['sample_rate']; - - // Safe RIFF header in case there's a RIFF footer later - $metablockRIFFheader = $metablock['data']; - break; - - - case 0x22: // ID_RIFF_TRAILER - $metablockRIFFfooter = $metablockRIFFheader.$metablock['data']; - getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio-video.riff.php', __FILE__, true); - - $startoffset = $metablock['offset'] + ($metablock['large_block'] ? 4 : 2); - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_temp->info['avdataend'] = $info['avdataend']; - $getid3_temp->info['fileformat'] = 'riff'; - $getid3_riff = new getid3_riff($getid3_temp); - $metablock['riff'] = $getid3_riff->ParseRIFF($startoffset, $startoffset + $metablock['size']); - - if (!empty($metablock['riff']['INFO'])) { - getid3_riff::parseComments($metablock['riff']['INFO'], $metablock['comments']); - $info['tags']['riff'] = $metablock['comments']; - } - unset($getid3_temp, $getid3_riff); - break; - - - case 0x23: // ID_REPLAY_GAIN - $info['warning'][] = 'WavPack "Replay Gain" contents not yet handled by getID3() in metablock at offset '.$metablock['offset']; - break; - - - case 0x24: // ID_CUESHEET - $info['warning'][] = 'WavPack "Cuesheet" contents not yet handled by getID3() in metablock at offset '.$metablock['offset']; - break; - - - case 0x25: // ID_CONFIG_BLOCK - $metablock['flags_raw'] = getid3_lib::LittleEndian2Int(substr($metablock['data'], 0, 3)); - - $metablock['flags']['adobe_mode'] = (bool) ($metablock['flags_raw'] & 0x000001); // "adobe" mode for 32-bit floats - $metablock['flags']['fast_flag'] = (bool) ($metablock['flags_raw'] & 0x000002); // fast mode - $metablock['flags']['very_fast_flag'] = (bool) ($metablock['flags_raw'] & 0x000004); // double fast - $metablock['flags']['high_flag'] = (bool) ($metablock['flags_raw'] & 0x000008); // high quality mode - $metablock['flags']['very_high_flag'] = (bool) ($metablock['flags_raw'] & 0x000010); // double high (not used yet) - $metablock['flags']['bitrate_kbps'] = (bool) ($metablock['flags_raw'] & 0x000020); // bitrate is kbps, not bits / sample - $metablock['flags']['auto_shaping'] = (bool) ($metablock['flags_raw'] & 0x000040); // automatic noise shaping - $metablock['flags']['shape_override'] = (bool) ($metablock['flags_raw'] & 0x000080); // shaping mode specified - $metablock['flags']['joint_override'] = (bool) ($metablock['flags_raw'] & 0x000100); // joint-stereo mode specified - $metablock['flags']['copy_time'] = (bool) ($metablock['flags_raw'] & 0x000200); // copy file-time from source - $metablock['flags']['create_exe'] = (bool) ($metablock['flags_raw'] & 0x000400); // create executable - $metablock['flags']['create_wvc'] = (bool) ($metablock['flags_raw'] & 0x000800); // create correction file - $metablock['flags']['optimize_wvc'] = (bool) ($metablock['flags_raw'] & 0x001000); // maximize bybrid compression - $metablock['flags']['quality_mode'] = (bool) ($metablock['flags_raw'] & 0x002000); // psychoacoustic quality mode - $metablock['flags']['raw_flag'] = (bool) ($metablock['flags_raw'] & 0x004000); // raw mode (not implemented yet) - $metablock['flags']['calc_noise'] = (bool) ($metablock['flags_raw'] & 0x008000); // calc noise in hybrid mode - $metablock['flags']['lossy_mode'] = (bool) ($metablock['flags_raw'] & 0x010000); // obsolete (for information) - $metablock['flags']['extra_mode'] = (bool) ($metablock['flags_raw'] & 0x020000); // extra processing mode - $metablock['flags']['skip_wvx'] = (bool) ($metablock['flags_raw'] & 0x040000); // no wvx stream w/ floats & big ints - $metablock['flags']['md5_checksum'] = (bool) ($metablock['flags_raw'] & 0x080000); // compute & store MD5 signature - $metablock['flags']['quiet_mode'] = (bool) ($metablock['flags_raw'] & 0x100000); // don't report progress % - - $info['wavpack']['config_flags'] = $metablock['flags']; - - - $info['audio']['encoder_options'] = ''; - if ($info['wavpack']['blockheader']['flags']['hybrid']) { - $info['audio']['encoder_options'] .= ' -b???'; - } - $info['audio']['encoder_options'] .= ($metablock['flags']['adobe_mode'] ? ' -a' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['optimize_wvc'] ? ' -cc' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['create_exe'] ? ' -e' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['fast_flag'] ? ' -f' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['joint_override'] ? ' -j?' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['high_flag'] ? ' -h' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['md5_checksum'] ? ' -m' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['calc_noise'] ? ' -n' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['shape_override'] ? ' -s?' : ''); - $info['audio']['encoder_options'] .= ($metablock['flags']['extra_mode'] ? ' -x?' : ''); - if (!empty($info['audio']['encoder_options'])) { - $info['audio']['encoder_options'] = trim($info['audio']['encoder_options']); - } elseif (isset($info['audio']['encoder_options'])) { - unset($info['audio']['encoder_options']); - } - break; - - - case 0x26: // ID_MD5_CHECKSUM - if (strlen($metablock['data']) == 16) { - $info['md5_data_source'] = strtolower(getid3_lib::PrintHexBytes($metablock['data'], true, false, false)); - } else { - $info['warning'][] = 'Expecting 16 bytes of WavPack "MD5 Checksum" in metablock at offset '.$metablock['offset'].', but found '.strlen($metablock['data']).' bytes'; - } - break; - - - case 0x00: // ID_DUMMY - case 0x01: // ID_ENCODER_INFO - case 0x02: // ID_DECORR_TERMS - case 0x03: // ID_DECORR_WEIGHTS - case 0x04: // ID_DECORR_SAMPLES - case 0x05: // ID_ENTROPY_VARS - case 0x06: // ID_HYBRID_PROFILE - case 0x07: // ID_SHAPING_WEIGHTS - case 0x08: // ID_FLOAT_INFO - case 0x09: // ID_INT32_INFO - case 0x0A: // ID_WV_BITSTREAM - case 0x0B: // ID_WVC_BITSTREAM - case 0x0C: // ID_WVX_BITSTREAM - case 0x0D: // ID_CHANNEL_INFO - unset($metablock); - break; - } - - } - if (!empty($metablock)) { - $info['wavpack']['metablocks'][] = $metablock; - } - - } - - } - - $info['audio']['encoder'] = 'WavPack v'.$info['wavpack']['blockheader']['major_version'].'.'.str_pad($info['wavpack']['blockheader']['minor_version'], 2, '0', STR_PAD_LEFT); - $info['audio']['bits_per_sample'] = $info['wavpack']['blockheader']['flags']['bytes_per_sample'] * 8; - $info['audio']['channels'] = ($info['wavpack']['blockheader']['flags']['mono'] ? 1 : 2); - - if (!empty($info['playtime_seconds'])) { - - $info['audio']['bitrate'] = (($info['avdataend'] - $info['avdataoffset']) * 8) / $info['playtime_seconds']; - - } else { - - $info['audio']['dataformat'] = 'wvc'; - - } - - return true; - } - - - public function WavPackMetablockNameLookup(&$id) { - static $WavPackMetablockNameLookup = array( - 0x00 => 'Dummy', - 0x01 => 'Encoder Info', - 0x02 => 'Decorrelation Terms', - 0x03 => 'Decorrelation Weights', - 0x04 => 'Decorrelation Samples', - 0x05 => 'Entropy Variables', - 0x06 => 'Hybrid Profile', - 0x07 => 'Shaping Weights', - 0x08 => 'Float Info', - 0x09 => 'Int32 Info', - 0x0A => 'WV Bitstream', - 0x0B => 'WVC Bitstream', - 0x0C => 'WVX Bitstream', - 0x0D => 'Channel Info', - 0x21 => 'RIFF header', - 0x22 => 'RIFF trailer', - 0x23 => 'Replay Gain', - 0x24 => 'Cuesheet', - 0x25 => 'Config Block', - 0x26 => 'MD5 Checksum', - ); - return (isset($WavPackMetablockNameLookup[$id]) ? $WavPackMetablockNameLookup[$id] : ''); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.bmp.php b/web/htdocs/media/lib/getid3/module.graphic.bmp.php deleted file mode 100644 index 5dabd9b0760..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.bmp.php +++ /dev/null @@ -1,687 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.bmp.php // -// module for analyzing BMP Image files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_bmp extends getid3_handler -{ - public $ExtractPalette = false; - public $ExtractData = false; - - public function Analyze() { - $info = &$this->getid3->info; - - // shortcuts - $info['bmp']['header']['raw'] = array(); - $thisfile_bmp = &$info['bmp']; - $thisfile_bmp_header = &$thisfile_bmp['header']; - $thisfile_bmp_header_raw = &$thisfile_bmp_header['raw']; - - // BITMAPFILEHEADER [14 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_62uq.asp - // all versions - // WORD bfType; - // DWORD bfSize; - // WORD bfReserved1; - // WORD bfReserved2; - // DWORD bfOffBits; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $offset = 0; - $BMPheader = fread($this->getid3->fp, 14 + 40); - - $thisfile_bmp_header_raw['identifier'] = substr($BMPheader, $offset, 2); - $offset += 2; - - $magic = 'BM'; - if ($thisfile_bmp_header_raw['identifier'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($thisfile_bmp_header_raw['identifier']).'"'; - unset($info['fileformat']); - unset($info['bmp']); - return false; - } - - $thisfile_bmp_header_raw['filesize'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['reserved1'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['reserved2'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['data_offset'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['header_size'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - - - // check if the hardcoded-to-1 "planes" is at offset 22 or 26 - $planes22 = getid3_lib::LittleEndian2Int(substr($BMPheader, 22, 2)); - $planes26 = getid3_lib::LittleEndian2Int(substr($BMPheader, 26, 2)); - if (($planes22 == 1) && ($planes26 != 1)) { - $thisfile_bmp['type_os'] = 'OS/2'; - $thisfile_bmp['type_version'] = 1; - } elseif (($planes26 == 1) && ($planes22 != 1)) { - $thisfile_bmp['type_os'] = 'Windows'; - $thisfile_bmp['type_version'] = 1; - } elseif ($thisfile_bmp_header_raw['header_size'] == 12) { - $thisfile_bmp['type_os'] = 'OS/2'; - $thisfile_bmp['type_version'] = 1; - } elseif ($thisfile_bmp_header_raw['header_size'] == 40) { - $thisfile_bmp['type_os'] = 'Windows'; - $thisfile_bmp['type_version'] = 1; - } elseif ($thisfile_bmp_header_raw['header_size'] == 84) { - $thisfile_bmp['type_os'] = 'Windows'; - $thisfile_bmp['type_version'] = 4; - } elseif ($thisfile_bmp_header_raw['header_size'] == 100) { - $thisfile_bmp['type_os'] = 'Windows'; - $thisfile_bmp['type_version'] = 5; - } else { - $info['error'][] = 'Unknown BMP subtype (or not a BMP file)'; - unset($info['fileformat']); - unset($info['bmp']); - return false; - } - - $info['fileformat'] = 'bmp'; - $info['video']['dataformat'] = 'bmp'; - $info['video']['lossless'] = true; - $info['video']['pixel_aspect_ratio'] = (float) 1; - - if ($thisfile_bmp['type_os'] == 'OS/2') { - - // OS/2-format BMP - // http://netghost.narod.ru/gff/graphics/summary/os2bmp.htm - - // DWORD Size; /* Size of this structure in bytes */ - // DWORD Width; /* Bitmap width in pixels */ - // DWORD Height; /* Bitmap height in pixel */ - // WORD NumPlanes; /* Number of bit planes (color depth) */ - // WORD BitsPerPixel; /* Number of bits per pixel per plane */ - - $thisfile_bmp_header_raw['width'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['height'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['planes'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['bits_per_pixel'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - - $info['video']['resolution_x'] = $thisfile_bmp_header_raw['width']; - $info['video']['resolution_y'] = $thisfile_bmp_header_raw['height']; - $info['video']['codec'] = 'BI_RGB '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit'; - $info['video']['bits_per_sample'] = $thisfile_bmp_header_raw['bits_per_pixel']; - - if ($thisfile_bmp['type_version'] >= 2) { - // DWORD Compression; /* Bitmap compression scheme */ - // DWORD ImageDataSize; /* Size of bitmap data in bytes */ - // DWORD XResolution; /* X resolution of display device */ - // DWORD YResolution; /* Y resolution of display device */ - // DWORD ColorsUsed; /* Number of color table indices used */ - // DWORD ColorsImportant; /* Number of important color indices */ - // WORD Units; /* Type of units used to measure resolution */ - // WORD Reserved; /* Pad structure to 4-byte boundary */ - // WORD Recording; /* Recording algorithm */ - // WORD Rendering; /* Halftoning algorithm used */ - // DWORD Size1; /* Reserved for halftoning algorithm use */ - // DWORD Size2; /* Reserved for halftoning algorithm use */ - // DWORD ColorEncoding; /* Color model used in bitmap */ - // DWORD Identifier; /* Reserved for application use */ - - $thisfile_bmp_header_raw['compression'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['bmp_data_size'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['resolution_h'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['resolution_v'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['colors_used'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['colors_important'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['resolution_units'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['reserved1'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['recording'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['rendering'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['size1'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['size2'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['color_encoding'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['identifier'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - - $thisfile_bmp_header['compression'] = $this->BMPcompressionOS2Lookup($thisfile_bmp_header_raw['compression']); - - $info['video']['codec'] = $thisfile_bmp_header['compression'].' '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit'; - } - - } elseif ($thisfile_bmp['type_os'] == 'Windows') { - - // Windows-format BMP - - // BITMAPINFOHEADER - [40 bytes] http://msdn.microsoft.com/library/en-us/gdi/bitmaps_1rw2.asp - // all versions - // DWORD biSize; - // LONG biWidth; - // LONG biHeight; - // WORD biPlanes; - // WORD biBitCount; - // DWORD biCompression; - // DWORD biSizeImage; - // LONG biXPelsPerMeter; - // LONG biYPelsPerMeter; - // DWORD biClrUsed; - // DWORD biClrImportant; - - // possibly integrate this section and module.audio-video.riff.php::ParseBITMAPINFOHEADER() ? - - $thisfile_bmp_header_raw['width'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4), true); - $offset += 4; - $thisfile_bmp_header_raw['height'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4), true); - $offset += 4; - $thisfile_bmp_header_raw['planes'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['bits_per_pixel'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 2)); - $offset += 2; - $thisfile_bmp_header_raw['compression'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['bmp_data_size'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['resolution_h'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4), true); - $offset += 4; - $thisfile_bmp_header_raw['resolution_v'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4), true); - $offset += 4; - $thisfile_bmp_header_raw['colors_used'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['colors_important'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - - $thisfile_bmp_header['compression'] = $this->BMPcompressionWindowsLookup($thisfile_bmp_header_raw['compression']); - $info['video']['resolution_x'] = $thisfile_bmp_header_raw['width']; - $info['video']['resolution_y'] = $thisfile_bmp_header_raw['height']; - $info['video']['codec'] = $thisfile_bmp_header['compression'].' '.$thisfile_bmp_header_raw['bits_per_pixel'].'-bit'; - $info['video']['bits_per_sample'] = $thisfile_bmp_header_raw['bits_per_pixel']; - - if (($thisfile_bmp['type_version'] >= 4) || ($thisfile_bmp_header_raw['compression'] == 3)) { - // should only be v4+, but BMPs with type_version==1 and BI_BITFIELDS compression have been seen - $BMPheader .= fread($this->getid3->fp, 44); - - // BITMAPV4HEADER - [44 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_2k1e.asp - // Win95+, WinNT4.0+ - // DWORD bV4RedMask; - // DWORD bV4GreenMask; - // DWORD bV4BlueMask; - // DWORD bV4AlphaMask; - // DWORD bV4CSType; - // CIEXYZTRIPLE bV4Endpoints; - // DWORD bV4GammaRed; - // DWORD bV4GammaGreen; - // DWORD bV4GammaBlue; - $thisfile_bmp_header_raw['red_mask'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['green_mask'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['blue_mask'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['alpha_mask'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['cs_type'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['ciexyz_red'] = substr($BMPheader, $offset, 4); - $offset += 4; - $thisfile_bmp_header_raw['ciexyz_green'] = substr($BMPheader, $offset, 4); - $offset += 4; - $thisfile_bmp_header_raw['ciexyz_blue'] = substr($BMPheader, $offset, 4); - $offset += 4; - $thisfile_bmp_header_raw['gamma_red'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['gamma_green'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['gamma_blue'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - - $thisfile_bmp_header['ciexyz_red'] = getid3_lib::FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_red'])); - $thisfile_bmp_header['ciexyz_green'] = getid3_lib::FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_green'])); - $thisfile_bmp_header['ciexyz_blue'] = getid3_lib::FixedPoint2_30(strrev($thisfile_bmp_header_raw['ciexyz_blue'])); - } - - if ($thisfile_bmp['type_version'] >= 5) { - $BMPheader .= fread($this->getid3->fp, 16); - - // BITMAPV5HEADER - [16 bytes] - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_7c36.asp - // Win98+, Win2000+ - // DWORD bV5Intent; - // DWORD bV5ProfileData; - // DWORD bV5ProfileSize; - // DWORD bV5Reserved; - $thisfile_bmp_header_raw['intent'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['profile_data_offset'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['profile_data_size'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - $thisfile_bmp_header_raw['reserved3'] = getid3_lib::LittleEndian2Int(substr($BMPheader, $offset, 4)); - $offset += 4; - } - - } else { - - $info['error'][] = 'Unknown BMP format in header.'; - return false; - - } - - - if ($this->ExtractPalette || $this->ExtractData) { - $PaletteEntries = 0; - if ($thisfile_bmp_header_raw['bits_per_pixel'] < 16) { - $PaletteEntries = pow(2, $thisfile_bmp_header_raw['bits_per_pixel']); - } elseif (isset($thisfile_bmp_header_raw['colors_used']) && ($thisfile_bmp_header_raw['colors_used'] > 0) && ($thisfile_bmp_header_raw['colors_used'] <= 256)) { - $PaletteEntries = $thisfile_bmp_header_raw['colors_used']; - } - if ($PaletteEntries > 0) { - $BMPpalette = fread($this->getid3->fp, 4 * $PaletteEntries); - $paletteoffset = 0; - for ($i = 0; $i < $PaletteEntries; $i++) { - // RGBQUAD - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_5f8y.asp - // BYTE rgbBlue; - // BYTE rgbGreen; - // BYTE rgbRed; - // BYTE rgbReserved; - $blue = getid3_lib::LittleEndian2Int(substr($BMPpalette, $paletteoffset++, 1)); - $green = getid3_lib::LittleEndian2Int(substr($BMPpalette, $paletteoffset++, 1)); - $red = getid3_lib::LittleEndian2Int(substr($BMPpalette, $paletteoffset++, 1)); - if (($thisfile_bmp['type_os'] == 'OS/2') && ($thisfile_bmp['type_version'] == 1)) { - // no padding byte - } else { - $paletteoffset++; // padding byte - } - $thisfile_bmp['palette'][$i] = (($red << 16) | ($green << 8) | $blue); - } - } - } - - if ($this->ExtractData) { - fseek($this->getid3->fp, $thisfile_bmp_header_raw['data_offset'], SEEK_SET); - $RowByteLength = ceil(($thisfile_bmp_header_raw['width'] * ($thisfile_bmp_header_raw['bits_per_pixel'] / 8)) / 4) * 4; // round up to nearest DWORD boundry - $BMPpixelData = fread($this->getid3->fp, $thisfile_bmp_header_raw['height'] * $RowByteLength); - $pixeldataoffset = 0; - $thisfile_bmp_header_raw['compression'] = (isset($thisfile_bmp_header_raw['compression']) ? $thisfile_bmp_header_raw['compression'] : ''); - switch ($thisfile_bmp_header_raw['compression']) { - - case 0: // BI_RGB - switch ($thisfile_bmp_header_raw['bits_per_pixel']) { - case 1: - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col = $col) { - $paletteindexbyte = ord($BMPpixelData{$pixeldataoffset++}); - for ($i = 7; $i >= 0; $i--) { - $paletteindex = ($paletteindexbyte & (0x01 << $i)) >> $i; - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex]; - $col++; - } - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - case 4: - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col = $col) { - $paletteindexbyte = ord($BMPpixelData{$pixeldataoffset++}); - for ($i = 1; $i >= 0; $i--) { - $paletteindex = ($paletteindexbyte & (0x0F << (4 * $i))) >> (4 * $i); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex]; - $col++; - } - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - case 8: - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) { - $paletteindex = ord($BMPpixelData{$pixeldataoffset++}); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex]; - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - case 24: - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) { - $thisfile_bmp['data'][$row][$col] = (ord($BMPpixelData{$pixeldataoffset+2}) << 16) | (ord($BMPpixelData{$pixeldataoffset+1}) << 8) | ord($BMPpixelData{$pixeldataoffset}); - $pixeldataoffset += 3; - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - case 32: - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) { - $thisfile_bmp['data'][$row][$col] = (ord($BMPpixelData{$pixeldataoffset+3}) << 24) | (ord($BMPpixelData{$pixeldataoffset+2}) << 16) | (ord($BMPpixelData{$pixeldataoffset+1}) << 8) | ord($BMPpixelData{$pixeldataoffset}); - $pixeldataoffset += 4; - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - case 16: - // ? - break; - - default: - $info['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data'; - break; - } - break; - - - case 1: // BI_RLE8 - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_6x0u.asp - switch ($thisfile_bmp_header_raw['bits_per_pixel']) { - case 8: - $pixelcounter = 0; - while ($pixeldataoffset < strlen($BMPpixelData)) { - $firstbyte = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $secondbyte = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - if ($firstbyte == 0) { - - // escaped/absolute mode - the first byte of the pair can be set to zero to - // indicate an escape character that denotes the end of a line, the end of - // a bitmap, or a delta, depending on the value of the second byte. - switch ($secondbyte) { - case 0: - // end of line - // no need for special processing, just ignore - break; - - case 1: - // end of bitmap - $pixeldataoffset = strlen($BMPpixelData); // force to exit loop just in case - break; - - case 2: - // delta - The 2 bytes following the escape contain unsigned values - // indicating the horizontal and vertical offsets of the next pixel - // from the current position. - $colincrement = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $rowincrement = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $col = ($pixelcounter % $thisfile_bmp_header_raw['width']) + $colincrement; - $row = ($thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width'])) - $rowincrement; - $pixelcounter = ($row * $thisfile_bmp_header_raw['width']) + $col; - break; - - default: - // In absolute mode, the first byte is zero and the second byte is a - // value in the range 03H through FFH. The second byte represents the - // number of bytes that follow, each of which contains the color index - // of a single pixel. Each run must be aligned on a word boundary. - for ($i = 0; $i < $secondbyte; $i++) { - $paletteindex = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $col = $pixelcounter % $thisfile_bmp_header_raw['width']; - $row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex]; - $pixelcounter++; - } - while (($pixeldataoffset % 2) != 0) { - // Each run must be aligned on a word boundary. - $pixeldataoffset++; - } - break; - } - - } else { - - // encoded mode - the first byte specifies the number of consecutive pixels - // to be drawn using the color index contained in the second byte. - for ($i = 0; $i < $firstbyte; $i++) { - $col = $pixelcounter % $thisfile_bmp_header_raw['width']; - $row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$secondbyte]; - $pixelcounter++; - } - - } - } - break; - - default: - $info['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data'; - break; - } - break; - - - - case 2: // BI_RLE4 - http://msdn.microsoft.com/library/en-us/gdi/bitmaps_6x0u.asp - switch ($thisfile_bmp_header_raw['bits_per_pixel']) { - case 4: - $pixelcounter = 0; - while ($pixeldataoffset < strlen($BMPpixelData)) { - $firstbyte = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $secondbyte = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - if ($firstbyte == 0) { - - // escaped/absolute mode - the first byte of the pair can be set to zero to - // indicate an escape character that denotes the end of a line, the end of - // a bitmap, or a delta, depending on the value of the second byte. - switch ($secondbyte) { - case 0: - // end of line - // no need for special processing, just ignore - break; - - case 1: - // end of bitmap - $pixeldataoffset = strlen($BMPpixelData); // force to exit loop just in case - break; - - case 2: - // delta - The 2 bytes following the escape contain unsigned values - // indicating the horizontal and vertical offsets of the next pixel - // from the current position. - $colincrement = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $rowincrement = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $col = ($pixelcounter % $thisfile_bmp_header_raw['width']) + $colincrement; - $row = ($thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width'])) - $rowincrement; - $pixelcounter = ($row * $thisfile_bmp_header_raw['width']) + $col; - break; - - default: - // In absolute mode, the first byte is zero. The second byte contains the number - // of color indexes that follow. Subsequent bytes contain color indexes in their - // high- and low-order 4 bits, one color index for each pixel. In absolute mode, - // each run must be aligned on a word boundary. - unset($paletteindexes); - for ($i = 0; $i < ceil($secondbyte / 2); $i++) { - $paletteindexbyte = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset++, 1)); - $paletteindexes[] = ($paletteindexbyte & 0xF0) >> 4; - $paletteindexes[] = ($paletteindexbyte & 0x0F); - } - while (($pixeldataoffset % 2) != 0) { - // Each run must be aligned on a word boundary. - $pixeldataoffset++; - } - - foreach ($paletteindexes as $paletteindex) { - $col = $pixelcounter % $thisfile_bmp_header_raw['width']; - $row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindex]; - $pixelcounter++; - } - break; - } - - } else { - - // encoded mode - the first byte of the pair contains the number of pixels to be - // drawn using the color indexes in the second byte. The second byte contains two - // color indexes, one in its high-order 4 bits and one in its low-order 4 bits. - // The first of the pixels is drawn using the color specified by the high-order - // 4 bits, the second is drawn using the color in the low-order 4 bits, the third - // is drawn using the color in the high-order 4 bits, and so on, until all the - // pixels specified by the first byte have been drawn. - $paletteindexes[0] = ($secondbyte & 0xF0) >> 4; - $paletteindexes[1] = ($secondbyte & 0x0F); - for ($i = 0; $i < $firstbyte; $i++) { - $col = $pixelcounter % $thisfile_bmp_header_raw['width']; - $row = $thisfile_bmp_header_raw['height'] - 1 - (($pixelcounter - $col) / $thisfile_bmp_header_raw['width']); - $thisfile_bmp['data'][$row][$col] = $thisfile_bmp['palette'][$paletteindexes[($i % 2)]]; - $pixelcounter++; - } - - } - } - break; - - default: - $info['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data'; - break; - } - break; - - - case 3: // BI_BITFIELDS - switch ($thisfile_bmp_header_raw['bits_per_pixel']) { - case 16: - case 32: - $redshift = 0; - $greenshift = 0; - $blueshift = 0; - while ((($thisfile_bmp_header_raw['red_mask'] >> $redshift) & 0x01) == 0) { - $redshift++; - } - while ((($thisfile_bmp_header_raw['green_mask'] >> $greenshift) & 0x01) == 0) { - $greenshift++; - } - while ((($thisfile_bmp_header_raw['blue_mask'] >> $blueshift) & 0x01) == 0) { - $blueshift++; - } - for ($row = ($thisfile_bmp_header_raw['height'] - 1); $row >= 0; $row--) { - for ($col = 0; $col < $thisfile_bmp_header_raw['width']; $col++) { - $pixelvalue = getid3_lib::LittleEndian2Int(substr($BMPpixelData, $pixeldataoffset, $thisfile_bmp_header_raw['bits_per_pixel'] / 8)); - $pixeldataoffset += $thisfile_bmp_header_raw['bits_per_pixel'] / 8; - - $red = intval(round(((($pixelvalue & $thisfile_bmp_header_raw['red_mask']) >> $redshift) / ($thisfile_bmp_header_raw['red_mask'] >> $redshift)) * 255)); - $green = intval(round(((($pixelvalue & $thisfile_bmp_header_raw['green_mask']) >> $greenshift) / ($thisfile_bmp_header_raw['green_mask'] >> $greenshift)) * 255)); - $blue = intval(round(((($pixelvalue & $thisfile_bmp_header_raw['blue_mask']) >> $blueshift) / ($thisfile_bmp_header_raw['blue_mask'] >> $blueshift)) * 255)); - $thisfile_bmp['data'][$row][$col] = (($red << 16) | ($green << 8) | ($blue)); - } - while (($pixeldataoffset % 4) != 0) { - // lines are padded to nearest DWORD - $pixeldataoffset++; - } - } - break; - - default: - $info['error'][] = 'Unknown bits-per-pixel value ('.$thisfile_bmp_header_raw['bits_per_pixel'].') - cannot read pixel data'; - break; - } - break; - - - default: // unhandled compression type - $info['error'][] = 'Unknown/unhandled compression type value ('.$thisfile_bmp_header_raw['compression'].') - cannot decompress pixel data'; - break; - } - } - - return true; - } - - - public function PlotBMP(&$BMPinfo) { - $starttime = time(); - if (!isset($BMPinfo['bmp']['data']) || !is_array($BMPinfo['bmp']['data'])) { - echo 'ERROR: no pixel data
'; - return false; - } - set_time_limit(intval(round($BMPinfo['resolution_x'] * $BMPinfo['resolution_y'] / 10000))); - if ($im = ImageCreateTrueColor($BMPinfo['resolution_x'], $BMPinfo['resolution_y'])) { - for ($row = 0; $row < $BMPinfo['resolution_y']; $row++) { - for ($col = 0; $col < $BMPinfo['resolution_x']; $col++) { - if (isset($BMPinfo['bmp']['data'][$row][$col])) { - $red = ($BMPinfo['bmp']['data'][$row][$col] & 0x00FF0000) >> 16; - $green = ($BMPinfo['bmp']['data'][$row][$col] & 0x0000FF00) >> 8; - $blue = ($BMPinfo['bmp']['data'][$row][$col] & 0x000000FF); - $pixelcolor = ImageColorAllocate($im, $red, $green, $blue); - ImageSetPixel($im, $col, $row, $pixelcolor); - } else { - //echo 'ERROR: no data for pixel '.$row.' x '.$col.'
'; - //return false; - } - } - } - if (headers_sent()) { - echo 'plotted '.($BMPinfo['resolution_x'] * $BMPinfo['resolution_y']).' pixels in '.(time() - $starttime).' seconds
'; - ImageDestroy($im); - exit; - } else { - header('Content-type: image/png'); - ImagePNG($im); - ImageDestroy($im); - return true; - } - } - return false; - } - - public function BMPcompressionWindowsLookup($compressionid) { - static $BMPcompressionWindowsLookup = array( - 0 => 'BI_RGB', - 1 => 'BI_RLE8', - 2 => 'BI_RLE4', - 3 => 'BI_BITFIELDS', - 4 => 'BI_JPEG', - 5 => 'BI_PNG' - ); - return (isset($BMPcompressionWindowsLookup[$compressionid]) ? $BMPcompressionWindowsLookup[$compressionid] : 'invalid'); - } - - public function BMPcompressionOS2Lookup($compressionid) { - static $BMPcompressionOS2Lookup = array( - 0 => 'BI_RGB', - 1 => 'BI_RLE8', - 2 => 'BI_RLE4', - 3 => 'Huffman 1D', - 4 => 'BI_RLE24', - ); - return (isset($BMPcompressionOS2Lookup[$compressionid]) ? $BMPcompressionOS2Lookup[$compressionid] : 'invalid'); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.efax.php b/web/htdocs/media/lib/getid3/module.graphic.efax.php deleted file mode 100644 index dfedf6e6f55..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.efax.php +++ /dev/null @@ -1,50 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.efax.php // -// module for analyzing eFax files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_efax extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $efaxheader = fread($this->getid3->fp, 1024); - - $info['efax']['header']['magic'] = substr($efaxheader, 0, 2); - if ($info['efax']['header']['magic'] != "\xDC\xFE") { - $info['error'][] = 'Invalid eFax byte order identifier (expecting DC FE, found '.getid3_lib::PrintHexBytes($info['efax']['header']['magic']).') at offset '.$info['avdataoffset']; - return false; - } - $info['fileformat'] = 'efax'; - - $info['efax']['header']['filesize'] = getid3_lib::LittleEndian2Int(substr($efaxheader, 2, 4)); - if ($info['efax']['header']['filesize'] != $info['filesize']) { - $info['error'][] = 'Probable '.(($info['efax']['header']['filesize'] > $info['filesize']) ? 'truncated' : 'corrupt').' file, expecting '.$info['efax']['header']['filesize'].' bytes, found '.$info['filesize'].' bytes'; - } - $info['efax']['header']['software1'] = rtrim(substr($efaxheader, 26, 32), "\x00"); - $info['efax']['header']['software2'] = rtrim(substr($efaxheader, 58, 32), "\x00"); - $info['efax']['header']['software3'] = rtrim(substr($efaxheader, 90, 32), "\x00"); - - $info['efax']['header']['pages'] = getid3_lib::LittleEndian2Int(substr($efaxheader, 198, 2)); - $info['efax']['header']['data_bytes'] = getid3_lib::LittleEndian2Int(substr($efaxheader, 202, 4)); - -$info['error'][] = 'eFax parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.gif.php b/web/htdocs/media/lib/getid3/module.graphic.gif.php deleted file mode 100644 index cd8457e33ec..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.gif.php +++ /dev/null @@ -1,181 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.gif.php // -// module for analyzing GIF Image files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_gif extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'gif'; - $info['video']['dataformat'] = 'gif'; - $info['video']['lossless'] = true; - $info['video']['pixel_aspect_ratio'] = (float) 1; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $GIFheader = fread($this->getid3->fp, 13); - $offset = 0; - - $info['gif']['header']['raw']['identifier'] = substr($GIFheader, $offset, 3); - $offset += 3; - - $magic = 'GIF'; - if ($info['gif']['header']['raw']['identifier'] != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes($info['gif']['header']['raw']['identifier']).'"'; - unset($info['fileformat']); - unset($info['gif']); - return false; - } - - $info['gif']['header']['raw']['version'] = substr($GIFheader, $offset, 3); - $offset += 3; - $info['gif']['header']['raw']['width'] = getid3_lib::LittleEndian2Int(substr($GIFheader, $offset, 2)); - $offset += 2; - $info['gif']['header']['raw']['height'] = getid3_lib::LittleEndian2Int(substr($GIFheader, $offset, 2)); - $offset += 2; - $info['gif']['header']['raw']['flags'] = getid3_lib::LittleEndian2Int(substr($GIFheader, $offset, 1)); - $offset += 1; - $info['gif']['header']['raw']['bg_color_index'] = getid3_lib::LittleEndian2Int(substr($GIFheader, $offset, 1)); - $offset += 1; - $info['gif']['header']['raw']['aspect_ratio'] = getid3_lib::LittleEndian2Int(substr($GIFheader, $offset, 1)); - $offset += 1; - - $info['video']['resolution_x'] = $info['gif']['header']['raw']['width']; - $info['video']['resolution_y'] = $info['gif']['header']['raw']['height']; - $info['gif']['version'] = $info['gif']['header']['raw']['version']; - $info['gif']['header']['flags']['global_color_table'] = (bool) ($info['gif']['header']['raw']['flags'] & 0x80); - if ($info['gif']['header']['raw']['flags'] & 0x80) { - // Number of bits per primary color available to the original image, minus 1 - $info['gif']['header']['bits_per_pixel'] = 3 * ((($info['gif']['header']['raw']['flags'] & 0x70) >> 4) + 1); - } else { - $info['gif']['header']['bits_per_pixel'] = 0; - } - $info['gif']['header']['flags']['global_color_sorted'] = (bool) ($info['gif']['header']['raw']['flags'] & 0x40); - if ($info['gif']['header']['flags']['global_color_table']) { - // the number of bytes contained in the Global Color Table. To determine that - // actual size of the color table, raise 2 to [the value of the field + 1] - $info['gif']['header']['global_color_size'] = pow(2, ($info['gif']['header']['raw']['flags'] & 0x07) + 1); - $info['video']['bits_per_sample'] = ($info['gif']['header']['raw']['flags'] & 0x07) + 1; - } else { - $info['gif']['header']['global_color_size'] = 0; - } - if ($info['gif']['header']['raw']['aspect_ratio'] != 0) { - // Aspect Ratio = (Pixel Aspect Ratio + 15) / 64 - $info['gif']['header']['aspect_ratio'] = ($info['gif']['header']['raw']['aspect_ratio'] + 15) / 64; - } - -// if ($info['gif']['header']['flags']['global_color_table']) { -// $GIFcolorTable = fread($this->getid3->fp, 3 * $info['gif']['header']['global_color_size']); -// $offset = 0; -// for ($i = 0; $i < $info['gif']['header']['global_color_size']; $i++) { -// $red = getid3_lib::LittleEndian2Int(substr($GIFcolorTable, $offset++, 1)); -// $green = getid3_lib::LittleEndian2Int(substr($GIFcolorTable, $offset++, 1)); -// $blue = getid3_lib::LittleEndian2Int(substr($GIFcolorTable, $offset++, 1)); -// $info['gif']['global_color_table'][$i] = (($red << 16) | ($green << 8) | ($blue)); -// } -// } -// -// // Image Descriptor -// while (!feof($this->getid3->fp)) { -// $NextBlockTest = fread($this->getid3->fp, 1); -// switch ($NextBlockTest) { -// -// case ',': // ',' - Image separator character -// -// $ImageDescriptorData = $NextBlockTest.fread($this->getid3->fp, 9); -// $ImageDescriptor = array(); -// $ImageDescriptor['image_left'] = getid3_lib::LittleEndian2Int(substr($ImageDescriptorData, 1, 2)); -// $ImageDescriptor['image_top'] = getid3_lib::LittleEndian2Int(substr($ImageDescriptorData, 3, 2)); -// $ImageDescriptor['image_width'] = getid3_lib::LittleEndian2Int(substr($ImageDescriptorData, 5, 2)); -// $ImageDescriptor['image_height'] = getid3_lib::LittleEndian2Int(substr($ImageDescriptorData, 7, 2)); -// $ImageDescriptor['flags_raw'] = getid3_lib::LittleEndian2Int(substr($ImageDescriptorData, 9, 1)); -// $ImageDescriptor['flags']['use_local_color_map'] = (bool) ($ImageDescriptor['flags_raw'] & 0x80); -// $ImageDescriptor['flags']['image_interlaced'] = (bool) ($ImageDescriptor['flags_raw'] & 0x40); -// $info['gif']['image_descriptor'][] = $ImageDescriptor; -// -// if ($ImageDescriptor['flags']['use_local_color_map']) { -// -// $info['warning'][] = 'This version of getID3() cannot parse local color maps for GIFs'; -// return true; -// -// } -//echo 'Start of raster data: '.ftell($this->getid3->fp).'
'; -// $RasterData = array(); -// $RasterData['code_size'] = getid3_lib::LittleEndian2Int(fread($this->getid3->fp, 1)); -// $RasterData['block_byte_count'] = getid3_lib::LittleEndian2Int(fread($this->getid3->fp, 1)); -// $info['gif']['raster_data'][count($info['gif']['image_descriptor']) - 1] = $RasterData; -// -// $CurrentCodeSize = $RasterData['code_size'] + 1; -// for ($i = 0; $i < pow(2, $RasterData['code_size']); $i++) { -// $DefaultDataLookupTable[$i] = chr($i); -// } -// $DefaultDataLookupTable[pow(2, $RasterData['code_size']) + 0] = ''; // Clear Code -// $DefaultDataLookupTable[pow(2, $RasterData['code_size']) + 1] = ''; // End Of Image Code -// -// -// $NextValue = $this->GetLSBits($CurrentCodeSize); -// echo 'Clear Code: '.$NextValue.'
'; -// -// $NextValue = $this->GetLSBits($CurrentCodeSize); -// echo 'First Color: '.$NextValue.'
'; -// -// $Prefix = $NextValue; -//$i = 0; -// while ($i++ < 20) { -// $NextValue = $this->GetLSBits($CurrentCodeSize); -// echo $NextValue.'
'; -// } -//return true; -// break; -// -// case '!': -// // GIF Extension Block -// $ExtensionBlockData = $NextBlockTest.fread($this->getid3->fp, 2); -// $ExtensionBlock = array(); -// $ExtensionBlock['function_code'] = getid3_lib::LittleEndian2Int(substr($ExtensionBlockData, 1, 1)); -// $ExtensionBlock['byte_length'] = getid3_lib::LittleEndian2Int(substr($ExtensionBlockData, 2, 1)); -// $ExtensionBlock['data'] = fread($this->getid3->fp, $ExtensionBlock['byte_length']); -// $info['gif']['extension_blocks'][] = $ExtensionBlock; -// break; -// -// case ';': -// $info['gif']['terminator_offset'] = ftell($this->getid3->fp) - 1; -// // GIF Terminator -// break; -// -// default: -// break; -// -// -// } -// } - - return true; - } - - - public function GetLSBits($bits) { - static $bitbuffer = ''; - while (strlen($bitbuffer) < $bits) { - $bitbuffer = str_pad(decbin(ord(fread($this->getid3->fp, 1))), 8, '0', STR_PAD_LEFT).$bitbuffer; - } - $value = bindec(substr($bitbuffer, 0 - $bits)); - $bitbuffer = substr($bitbuffer, 0, 0 - $bits); - - return $value; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.jpg.php b/web/htdocs/media/lib/getid3/module.graphic.jpg.php deleted file mode 100644 index 3db654382a9..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.jpg.php +++ /dev/null @@ -1,344 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.jpg.php // -// module for analyzing JPEG Image files // -// dependencies: PHP compiled with --enable-exif (optional) // -// module.tag.xmp.php (optional) // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_jpg extends getid3_handler -{ - - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'jpg'; - $info['video']['dataformat'] = 'jpg'; - $info['video']['lossless'] = false; - $info['video']['bits_per_sample'] = 24; - $info['video']['pixel_aspect_ratio'] = (float) 1; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $imageinfo = array(); - //list($width, $height, $type) = getid3_lib::GetDataImageSize(fread($this->getid3->fp, $info['filesize']), $imageinfo); - list($width, $height, $type) = getimagesize($info['filenamepath'], $imageinfo); // http://www.getid3.org/phpBB3/viewtopic.php?t=1474 - - - if (isset($imageinfo['APP13'])) { - // http://php.net/iptcparse - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/IPTC.html - $iptc_parsed = iptcparse($imageinfo['APP13']); - if (is_array($iptc_parsed)) { - foreach ($iptc_parsed as $iptc_key_raw => $iptc_values) { - list($iptc_record, $iptc_tagkey) = explode('#', $iptc_key_raw); - $iptc_tagkey = intval(ltrim($iptc_tagkey, '0')); - foreach ($iptc_values as $key => $value) { - $IPTCrecordName = $this->IPTCrecordName($iptc_record); - $IPTCrecordTagName = $this->IPTCrecordTagName($iptc_record, $iptc_tagkey); - if (isset($info['iptc'][$IPTCrecordName][$IPTCrecordTagName])) { - $info['iptc'][$IPTCrecordName][$IPTCrecordTagName][] = $value; - } else { - $info['iptc'][$IPTCrecordName][$IPTCrecordTagName] = array($value); - } - } - } - } - } - - $returnOK = false; - switch ($type) { - case IMG_JPG: - $info['video']['resolution_x'] = $width; - $info['video']['resolution_y'] = $height; - - if (isset($imageinfo['APP1'])) { - if (function_exists('exif_read_data')) { - if (substr($imageinfo['APP1'], 0, 4) == 'Exif') { -//$info['warning'][] = 'known issue: https://bugs.php.net/bug.php?id=62523'; -//return false; - $info['jpg']['exif'] = exif_read_data($info['filenamepath'], null, true, false); - } else { - $info['warning'][] = 'exif_read_data() cannot parse non-EXIF data in APP1 (expected "Exif", found "'.substr($imageinfo['APP1'], 0, 4).'")'; - } - } else { - $info['warning'][] = 'EXIF parsing only available when '.(GETID3_OS_ISWINDOWS ? 'php_exif.dll enabled' : 'compiled with --enable-exif'); - } - } - $returnOK = true; - break; - - default: - break; - } - - - $cast_as_appropriate_keys = array('EXIF', 'IFD0', 'THUMBNAIL'); - foreach ($cast_as_appropriate_keys as $exif_key) { - if (isset($info['jpg']['exif'][$exif_key])) { - foreach ($info['jpg']['exif'][$exif_key] as $key => $value) { - $info['jpg']['exif'][$exif_key][$key] = $this->CastAsAppropriate($value); - } - } - } - - - if (isset($info['jpg']['exif']['GPS'])) { - - if (isset($info['jpg']['exif']['GPS']['GPSVersion'])) { - for ($i = 0; $i < 4; $i++) { - $version_subparts[$i] = ord(substr($info['jpg']['exif']['GPS']['GPSVersion'], $i, 1)); - } - $info['jpg']['exif']['GPS']['computed']['version'] = 'v'.implode('.', $version_subparts); - } - - if (isset($info['jpg']['exif']['GPS']['GPSDateStamp'])) { - $explodedGPSDateStamp = explode(':', $info['jpg']['exif']['GPS']['GPSDateStamp']); - $computed_time[5] = (isset($explodedGPSDateStamp[0]) ? $explodedGPSDateStamp[0] : ''); - $computed_time[3] = (isset($explodedGPSDateStamp[1]) ? $explodedGPSDateStamp[1] : ''); - $computed_time[4] = (isset($explodedGPSDateStamp[2]) ? $explodedGPSDateStamp[2] : ''); - - if (function_exists('date_default_timezone_set')) { - date_default_timezone_set('UTC'); - } else { - ini_set('date.timezone', 'UTC'); - } - - $computed_time = array(0=>0, 1=>0, 2=>0, 3=>0, 4=>0, 5=>0); - if (isset($info['jpg']['exif']['GPS']['GPSTimeStamp']) && is_array($info['jpg']['exif']['GPS']['GPSTimeStamp'])) { - foreach ($info['jpg']['exif']['GPS']['GPSTimeStamp'] as $key => $value) { - $computed_time[$key] = getid3_lib::DecimalizeFraction($value); - } - } - $info['jpg']['exif']['GPS']['computed']['timestamp'] = mktime($computed_time[0], $computed_time[1], $computed_time[2], $computed_time[3], $computed_time[4], $computed_time[5]); - } - - if (isset($info['jpg']['exif']['GPS']['GPSLatitude']) && is_array($info['jpg']['exif']['GPS']['GPSLatitude'])) { - $direction_multiplier = ((isset($info['jpg']['exif']['GPS']['GPSLatitudeRef']) && ($info['jpg']['exif']['GPS']['GPSLatitudeRef'] == 'S')) ? -1 : 1); - foreach ($info['jpg']['exif']['GPS']['GPSLatitude'] as $key => $value) { - $computed_latitude[$key] = getid3_lib::DecimalizeFraction($value); - } - $info['jpg']['exif']['GPS']['computed']['latitude'] = $direction_multiplier * ($computed_latitude[0] + ($computed_latitude[1] / 60) + ($computed_latitude[2] / 3600)); - } - - if (isset($info['jpg']['exif']['GPS']['GPSLongitude']) && is_array($info['jpg']['exif']['GPS']['GPSLongitude'])) { - $direction_multiplier = ((isset($info['jpg']['exif']['GPS']['GPSLongitudeRef']) && ($info['jpg']['exif']['GPS']['GPSLongitudeRef'] == 'W')) ? -1 : 1); - foreach ($info['jpg']['exif']['GPS']['GPSLongitude'] as $key => $value) { - $computed_longitude[$key] = getid3_lib::DecimalizeFraction($value); - } - $info['jpg']['exif']['GPS']['computed']['longitude'] = $direction_multiplier * ($computed_longitude[0] + ($computed_longitude[1] / 60) + ($computed_longitude[2] / 3600)); - } - if (isset($info['jpg']['exif']['GPS']['GPSAltitudeRef'])) { - $info['jpg']['exif']['GPS']['GPSAltitudeRef'] = ord($info['jpg']['exif']['GPS']['GPSAltitudeRef']); // 0 = above sea level; 1 = below sea level - } - if (isset($info['jpg']['exif']['GPS']['GPSAltitude'])) { - $direction_multiplier = (!empty($info['jpg']['exif']['GPS']['GPSAltitudeRef']) ? -1 : 1); // 0 = above sea level; 1 = below sea level - $info['jpg']['exif']['GPS']['computed']['altitude'] = $direction_multiplier * getid3_lib::DecimalizeFraction($info['jpg']['exif']['GPS']['GPSAltitude']); - } - - } - - - if (getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.xmp.php', __FILE__, false)) { - if (isset($info['filenamepath'])) { - $image_xmp = new Image_XMP($info['filenamepath']); - $xmp_raw = $image_xmp->getAllTags(); - foreach ($xmp_raw as $key => $value) { - if (strpos($key, ':')) { - list($subsection, $tagname) = explode(':', $key); - $info['xmp'][$subsection][$tagname] = $this->CastAsAppropriate($value); - } else { - $info['warning'][] = 'XMP: expecting ":", found "'.$key.'"'; - } - } - } - } - - if (!$returnOK) { - unset($info['fileformat']); - return false; - } - return true; - } - - - public function CastAsAppropriate($value) { - if (is_array($value)) { - return $value; - } elseif (preg_match('#^[0-9]+/[0-9]+$#', $value)) { - return getid3_lib::DecimalizeFraction($value); - } elseif (preg_match('#^[0-9]+$#', $value)) { - return getid3_lib::CastAsInt($value); - } elseif (preg_match('#^[0-9\.]+$#', $value)) { - return (float) $value; - } - return $value; - } - - - public function IPTCrecordName($iptc_record) { - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/IPTC.html - static $IPTCrecordName = array(); - if (empty($IPTCrecordName)) { - $IPTCrecordName = array( - 1 => 'IPTCEnvelope', - 2 => 'IPTCApplication', - 3 => 'IPTCNewsPhoto', - 7 => 'IPTCPreObjectData', - 8 => 'IPTCObjectData', - 9 => 'IPTCPostObjectData', - ); - } - return (isset($IPTCrecordName[$iptc_record]) ? $IPTCrecordName[$iptc_record] : ''); - } - - - public function IPTCrecordTagName($iptc_record, $iptc_tagkey) { - // http://www.sno.phy.queensu.ca/~phil/exiftool/TagNames/IPTC.html - static $IPTCrecordTagName = array(); - if (empty($IPTCrecordTagName)) { - $IPTCrecordTagName = array( - 1 => array( // IPTC EnvelopeRecord Tags - 0 => 'EnvelopeRecordVersion', - 5 => 'Destination', - 20 => 'FileFormat', - 22 => 'FileVersion', - 30 => 'ServiceIdentifier', - 40 => 'EnvelopeNumber', - 50 => 'ProductID', - 60 => 'EnvelopePriority', - 70 => 'DateSent', - 80 => 'TimeSent', - 90 => 'CodedCharacterSet', - 100 => 'UniqueObjectName', - 120 => 'ARMIdentifier', - 122 => 'ARMVersion', - ), - 2 => array( // IPTC ApplicationRecord Tags - 0 => 'ApplicationRecordVersion', - 3 => 'ObjectTypeReference', - 4 => 'ObjectAttributeReference', - 5 => 'ObjectName', - 7 => 'EditStatus', - 8 => 'EditorialUpdate', - 10 => 'Urgency', - 12 => 'SubjectReference', - 15 => 'Category', - 20 => 'SupplementalCategories', - 22 => 'FixtureIdentifier', - 25 => 'Keywords', - 26 => 'ContentLocationCode', - 27 => 'ContentLocationName', - 30 => 'ReleaseDate', - 35 => 'ReleaseTime', - 37 => 'ExpirationDate', - 38 => 'ExpirationTime', - 40 => 'SpecialInstructions', - 42 => 'ActionAdvised', - 45 => 'ReferenceService', - 47 => 'ReferenceDate', - 50 => 'ReferenceNumber', - 55 => 'DateCreated', - 60 => 'TimeCreated', - 62 => 'DigitalCreationDate', - 63 => 'DigitalCreationTime', - 65 => 'OriginatingProgram', - 70 => 'ProgramVersion', - 75 => 'ObjectCycle', - 80 => 'By-line', - 85 => 'By-lineTitle', - 90 => 'City', - 92 => 'Sub-location', - 95 => 'Province-State', - 100 => 'Country-PrimaryLocationCode', - 101 => 'Country-PrimaryLocationName', - 103 => 'OriginalTransmissionReference', - 105 => 'Headline', - 110 => 'Credit', - 115 => 'Source', - 116 => 'CopyrightNotice', - 118 => 'Contact', - 120 => 'Caption-Abstract', - 121 => 'LocalCaption', - 122 => 'Writer-Editor', - 125 => 'RasterizedCaption', - 130 => 'ImageType', - 131 => 'ImageOrientation', - 135 => 'LanguageIdentifier', - 150 => 'AudioType', - 151 => 'AudioSamplingRate', - 152 => 'AudioSamplingResolution', - 153 => 'AudioDuration', - 154 => 'AudioOutcue', - 184 => 'JobID', - 185 => 'MasterDocumentID', - 186 => 'ShortDocumentID', - 187 => 'UniqueDocumentID', - 188 => 'OwnerID', - 200 => 'ObjectPreviewFileFormat', - 201 => 'ObjectPreviewFileVersion', - 202 => 'ObjectPreviewData', - 221 => 'Prefs', - 225 => 'ClassifyState', - 228 => 'SimilarityIndex', - 230 => 'DocumentNotes', - 231 => 'DocumentHistory', - 232 => 'ExifCameraInfo', - ), - 3 => array( // IPTC NewsPhoto Tags - 0 => 'NewsPhotoVersion', - 10 => 'IPTCPictureNumber', - 20 => 'IPTCImageWidth', - 30 => 'IPTCImageHeight', - 40 => 'IPTCPixelWidth', - 50 => 'IPTCPixelHeight', - 55 => 'SupplementalType', - 60 => 'ColorRepresentation', - 64 => 'InterchangeColorSpace', - 65 => 'ColorSequence', - 66 => 'ICC_Profile', - 70 => 'ColorCalibrationMatrix', - 80 => 'LookupTable', - 84 => 'NumIndexEntries', - 85 => 'ColorPalette', - 86 => 'IPTCBitsPerSample', - 90 => 'SampleStructure', - 100 => 'ScanningDirection', - 102 => 'IPTCImageRotation', - 110 => 'DataCompressionMethod', - 120 => 'QuantizationMethod', - 125 => 'EndPoints', - 130 => 'ExcursionTolerance', - 135 => 'BitsPerComponent', - 140 => 'MaximumDensityRange', - 145 => 'GammaCompensatedValue', - ), - 7 => array( // IPTC PreObjectData Tags - 10 => 'SizeMode', - 20 => 'MaxSubfileSize', - 90 => 'ObjectSizeAnnounced', - 95 => 'MaximumObjectSize', - ), - 8 => array( // IPTC ObjectData Tags - 10 => 'SubFile', - ), - 9 => array( // IPTC PostObjectData Tags - 10 => 'ConfirmedObjectSize', - ), - ); - - } - return (isset($IPTCrecordTagName[$iptc_record][$iptc_tagkey]) ? $IPTCrecordTagName[$iptc_record][$iptc_tagkey] : $iptc_tagkey); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.pcd.php b/web/htdocs/media/lib/getid3/module.graphic.pcd.php deleted file mode 100644 index 1f83a67309b..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.pcd.php +++ /dev/null @@ -1,132 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.pcd.php // -// module for analyzing PhotoCD (PCD) Image files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_pcd extends getid3_handler -{ - public $ExtractData = 0; - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'pcd'; - $info['video']['dataformat'] = 'pcd'; - $info['video']['lossless'] = false; - - - fseek($this->getid3->fp, $info['avdataoffset'] + 72, SEEK_SET); - - $PCDflags = fread($this->getid3->fp, 1); - $PCDisVertical = ((ord($PCDflags) & 0x01) ? true : false); - - - if ($PCDisVertical) { - $info['video']['resolution_x'] = 3072; - $info['video']['resolution_y'] = 2048; - } else { - $info['video']['resolution_x'] = 2048; - $info['video']['resolution_y'] = 3072; - } - - - if ($this->ExtractData > 3) { - - $info['error'][] = 'Cannot extract PSD image data for detail levels above BASE (level-3) because encrypted with Kodak-proprietary compression/encryption.'; - - } elseif ($this->ExtractData > 0) { - - $PCD_levels[1] = array( 192, 128, 0x02000); // BASE/16 - $PCD_levels[2] = array( 384, 256, 0x0B800); // BASE/4 - $PCD_levels[3] = array( 768, 512, 0x30000); // BASE - //$PCD_levels[4] = array(1536, 1024, ??); // BASE*4 - encrypted with Kodak-proprietary compression/encryption - //$PCD_levels[5] = array(3072, 2048, ??); // BASE*16 - encrypted with Kodak-proprietary compression/encryption - //$PCD_levels[6] = array(6144, 4096, ??); // BASE*64 - encrypted with Kodak-proprietary compression/encryption; PhotoCD-Pro only - - list($PCD_width, $PCD_height, $PCD_dataOffset) = $PCD_levels[3]; - - fseek($this->getid3->fp, $info['avdataoffset'] + $PCD_dataOffset, SEEK_SET); - - for ($y = 0; $y < $PCD_height; $y += 2) { - // The image-data of these subtypes start at the respective offsets of 02000h, 0b800h and 30000h. - // To decode the YcbYr to the more usual RGB-code, three lines of data have to be read, each - // consisting of ‘w’ bytes, where ‘w’ is the width of the image-subtype. The first ‘w’ bytes and - // the first half of the third ‘w’ bytes contain data for the first RGB-line, the second ‘w’ bytes - // and the second half of the third ‘w’ bytes contain data for a second RGB-line. - - $PCD_data_Y1 = fread($this->getid3->fp, $PCD_width); - $PCD_data_Y2 = fread($this->getid3->fp, $PCD_width); - $PCD_data_Cb = fread($this->getid3->fp, intval(round($PCD_width / 2))); - $PCD_data_Cr = fread($this->getid3->fp, intval(round($PCD_width / 2))); - - for ($x = 0; $x < $PCD_width; $x++) { - if ($PCDisVertical) { - $info['pcd']['data'][$PCD_width - $x][$y] = $this->YCbCr2RGB(ord($PCD_data_Y1{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); - $info['pcd']['data'][$PCD_width - $x][$y + 1] = $this->YCbCr2RGB(ord($PCD_data_Y2{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); - } else { - $info['pcd']['data'][$y][$x] = $this->YCbCr2RGB(ord($PCD_data_Y1{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); - $info['pcd']['data'][$y + 1][$x] = $this->YCbCr2RGB(ord($PCD_data_Y2{$x}), ord($PCD_data_Cb{floor($x / 2)}), ord($PCD_data_Cr{floor($x / 2)})); - } - } - } - - // Example for plotting extracted data - //getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.audio.ac3.php', __FILE__, true); - //if ($PCDisVertical) { - // $BMPinfo['resolution_x'] = $PCD_height; - // $BMPinfo['resolution_y'] = $PCD_width; - //} else { - // $BMPinfo['resolution_x'] = $PCD_width; - // $BMPinfo['resolution_y'] = $PCD_height; - //} - //$BMPinfo['bmp']['data'] = $info['pcd']['data']; - //getid3_bmp::PlotBMP($BMPinfo); - //exit; - - } - - } - - public function YCbCr2RGB($Y, $Cb, $Cr) { - static $YCbCr_constants = array(); - if (empty($YCbCr_constants)) { - $YCbCr_constants['red']['Y'] = 0.0054980 * 256; - $YCbCr_constants['red']['Cb'] = 0.0000000 * 256; - $YCbCr_constants['red']['Cr'] = 0.0051681 * 256; - $YCbCr_constants['green']['Y'] = 0.0054980 * 256; - $YCbCr_constants['green']['Cb'] = -0.0015446 * 256; - $YCbCr_constants['green']['Cr'] = -0.0026325 * 256; - $YCbCr_constants['blue']['Y'] = 0.0054980 * 256; - $YCbCr_constants['blue']['Cb'] = 0.0079533 * 256; - $YCbCr_constants['blue']['Cr'] = 0.0000000 * 256; - } - - $RGBcolor = array('red'=>0, 'green'=>0, 'blue'=>0); - foreach ($RGBcolor as $rgbname => $dummy) { - $RGBcolor[$rgbname] = max(0, - min(255, - intval( - round( - ($YCbCr_constants[$rgbname]['Y'] * $Y) + - ($YCbCr_constants[$rgbname]['Cb'] * ($Cb - 156)) + - ($YCbCr_constants[$rgbname]['Cr'] * ($Cr - 137)) - ) - ) - ) - ); - } - return (($RGBcolor['red'] * 65536) + ($RGBcolor['green'] * 256) + $RGBcolor['blue']); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.png.php b/web/htdocs/media/lib/getid3/module.graphic.png.php deleted file mode 100644 index 250ca1b10d2..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.png.php +++ /dev/null @@ -1,517 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.png.php // -// module for analyzing PNG Image files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_png extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - // shortcut - $info['png'] = array(); - $thisfile_png = &$info['png']; - - $info['fileformat'] = 'png'; - $info['video']['dataformat'] = 'png'; - $info['video']['lossless'] = false; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $PNGfiledata = fread($this->getid3->fp, $this->getid3->fread_buffer_size()); - $offset = 0; - - $PNGidentifier = substr($PNGfiledata, $offset, 8); // $89 $50 $4E $47 $0D $0A $1A $0A - $offset += 8; - - if ($PNGidentifier != "\x89\x50\x4E\x47\x0D\x0A\x1A\x0A") { - $info['error'][] = 'First 8 bytes of file ('.getid3_lib::PrintHexBytes($PNGidentifier).') did not match expected PNG identifier'; - unset($info['fileformat']); - return false; - } - - while (((ftell($this->getid3->fp) - (strlen($PNGfiledata) - $offset)) < $info['filesize'])) { - $chunk['data_length'] = getid3_lib::BigEndian2Int(substr($PNGfiledata, $offset, 4)); - $offset += 4; - while (((strlen($PNGfiledata) - $offset) < ($chunk['data_length'] + 4)) && (ftell($this->getid3->fp) < $info['filesize'])) { - $PNGfiledata .= fread($this->getid3->fp, $this->getid3->fread_buffer_size()); - } - $chunk['type_text'] = substr($PNGfiledata, $offset, 4); - $offset += 4; - $chunk['type_raw'] = getid3_lib::BigEndian2Int($chunk['type_text']); - $chunk['data'] = substr($PNGfiledata, $offset, $chunk['data_length']); - $offset += $chunk['data_length']; - $chunk['crc'] = getid3_lib::BigEndian2Int(substr($PNGfiledata, $offset, 4)); - $offset += 4; - - $chunk['flags']['ancilliary'] = (bool) ($chunk['type_raw'] & 0x20000000); - $chunk['flags']['private'] = (bool) ($chunk['type_raw'] & 0x00200000); - $chunk['flags']['reserved'] = (bool) ($chunk['type_raw'] & 0x00002000); - $chunk['flags']['safe_to_copy'] = (bool) ($chunk['type_raw'] & 0x00000020); - - // shortcut - $thisfile_png[$chunk['type_text']] = array(); - $thisfile_png_chunk_type_text = &$thisfile_png[$chunk['type_text']]; - - switch ($chunk['type_text']) { - - case 'IHDR': // Image Header - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['width'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 4)); - $thisfile_png_chunk_type_text['height'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 4)); - $thisfile_png_chunk_type_text['raw']['bit_depth'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 8, 1)); - $thisfile_png_chunk_type_text['raw']['color_type'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 9, 1)); - $thisfile_png_chunk_type_text['raw']['compression_method'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 10, 1)); - $thisfile_png_chunk_type_text['raw']['filter_method'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 11, 1)); - $thisfile_png_chunk_type_text['raw']['interlace_method'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 12, 1)); - - $thisfile_png_chunk_type_text['compression_method_text'] = $this->PNGcompressionMethodLookup($thisfile_png_chunk_type_text['raw']['compression_method']); - $thisfile_png_chunk_type_text['color_type']['palette'] = (bool) ($thisfile_png_chunk_type_text['raw']['color_type'] & 0x01); - $thisfile_png_chunk_type_text['color_type']['true_color'] = (bool) ($thisfile_png_chunk_type_text['raw']['color_type'] & 0x02); - $thisfile_png_chunk_type_text['color_type']['alpha'] = (bool) ($thisfile_png_chunk_type_text['raw']['color_type'] & 0x04); - - $info['video']['resolution_x'] = $thisfile_png_chunk_type_text['width']; - $info['video']['resolution_y'] = $thisfile_png_chunk_type_text['height']; - - $info['video']['bits_per_sample'] = $this->IHDRcalculateBitsPerSample($thisfile_png_chunk_type_text['raw']['color_type'], $thisfile_png_chunk_type_text['raw']['bit_depth']); - break; - - - case 'PLTE': // Palette - $thisfile_png_chunk_type_text['header'] = $chunk; - $paletteoffset = 0; - for ($i = 0; $i <= 255; $i++) { - //$thisfile_png_chunk_type_text['red'][$i] = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - //$thisfile_png_chunk_type_text['green'][$i] = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - //$thisfile_png_chunk_type_text['blue'][$i] = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - $red = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - $green = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - $blue = getid3_lib::BigEndian2Int(substr($chunk['data'], $paletteoffset++, 1)); - $thisfile_png_chunk_type_text[$i] = (($red << 16) | ($green << 8) | ($blue)); - } - break; - - - case 'tRNS': // Transparency - $thisfile_png_chunk_type_text['header'] = $chunk; - switch ($thisfile_png['IHDR']['raw']['color_type']) { - case 0: - $thisfile_png_chunk_type_text['transparent_color_gray'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 2)); - break; - - case 2: - $thisfile_png_chunk_type_text['transparent_color_red'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 2)); - $thisfile_png_chunk_type_text['transparent_color_green'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2, 2)); - $thisfile_png_chunk_type_text['transparent_color_blue'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 2)); - break; - - case 3: - for ($i = 0; $i < strlen($chunk['data']); $i++) { - $thisfile_png_chunk_type_text['palette_opacity'][$i] = getid3_lib::BigEndian2Int(substr($chunk['data'], $i, 1)); - } - break; - - case 4: - case 6: - $info['error'][] = 'Invalid color_type in tRNS chunk: '.$thisfile_png['IHDR']['raw']['color_type']; - - default: - $info['warning'][] = 'Unhandled color_type in tRNS chunk: '.$thisfile_png['IHDR']['raw']['color_type']; - break; - } - break; - - - case 'gAMA': // Image Gamma - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['gamma'] = getid3_lib::BigEndian2Int($chunk['data']) / 100000; - break; - - - case 'cHRM': // Primary Chromaticities - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['white_x'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 4)) / 100000; - $thisfile_png_chunk_type_text['white_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 4)) / 100000; - $thisfile_png_chunk_type_text['red_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 8, 4)) / 100000; - $thisfile_png_chunk_type_text['red_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 12, 4)) / 100000; - $thisfile_png_chunk_type_text['green_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 16, 4)) / 100000; - $thisfile_png_chunk_type_text['green_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 20, 4)) / 100000; - $thisfile_png_chunk_type_text['blue_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 24, 4)) / 100000; - $thisfile_png_chunk_type_text['blue_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 28, 4)) / 100000; - break; - - - case 'sRGB': // Standard RGB Color Space - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['reindering_intent'] = getid3_lib::BigEndian2Int($chunk['data']); - $thisfile_png_chunk_type_text['reindering_intent_text'] = $this->PNGsRGBintentLookup($thisfile_png_chunk_type_text['reindering_intent']); - break; - - - case 'iCCP': // Embedded ICC Profile - $thisfile_png_chunk_type_text['header'] = $chunk; - list($profilename, $compressiondata) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['profile_name'] = $profilename; - $thisfile_png_chunk_type_text['compression_method'] = getid3_lib::BigEndian2Int(substr($compressiondata, 0, 1)); - $thisfile_png_chunk_type_text['compression_profile'] = substr($compressiondata, 1); - - $thisfile_png_chunk_type_text['compression_method_text'] = $this->PNGcompressionMethodLookup($thisfile_png_chunk_type_text['compression_method']); - break; - - - case 'tEXt': // Textual Data - $thisfile_png_chunk_type_text['header'] = $chunk; - list($keyword, $text) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['keyword'] = $keyword; - $thisfile_png_chunk_type_text['text'] = $text; - - $thisfile_png['comments'][$thisfile_png_chunk_type_text['keyword']][] = $thisfile_png_chunk_type_text['text']; - break; - - - case 'zTXt': // Compressed Textual Data - $thisfile_png_chunk_type_text['header'] = $chunk; - list($keyword, $otherdata) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['keyword'] = $keyword; - $thisfile_png_chunk_type_text['compression_method'] = getid3_lib::BigEndian2Int(substr($otherdata, 0, 1)); - $thisfile_png_chunk_type_text['compressed_text'] = substr($otherdata, 1); - $thisfile_png_chunk_type_text['compression_method_text'] = $this->PNGcompressionMethodLookup($thisfile_png_chunk_type_text['compression_method']); - switch ($thisfile_png_chunk_type_text['compression_method']) { - case 0: - $thisfile_png_chunk_type_text['text'] = gzuncompress($thisfile_png_chunk_type_text['compressed_text']); - break; - - default: - // unknown compression method - break; - } - - if (isset($thisfile_png_chunk_type_text['text'])) { - $thisfile_png['comments'][$thisfile_png_chunk_type_text['keyword']][] = $thisfile_png_chunk_type_text['text']; - } - break; - - - case 'iTXt': // International Textual Data - $thisfile_png_chunk_type_text['header'] = $chunk; - list($keyword, $otherdata) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['keyword'] = $keyword; - $thisfile_png_chunk_type_text['compression'] = (bool) getid3_lib::BigEndian2Int(substr($otherdata, 0, 1)); - $thisfile_png_chunk_type_text['compression_method'] = getid3_lib::BigEndian2Int(substr($otherdata, 1, 1)); - $thisfile_png_chunk_type_text['compression_method_text'] = $this->PNGcompressionMethodLookup($thisfile_png_chunk_type_text['compression_method']); - list($languagetag, $translatedkeyword, $text) = explode("\x00", substr($otherdata, 2), 3); - $thisfile_png_chunk_type_text['language_tag'] = $languagetag; - $thisfile_png_chunk_type_text['translated_keyword'] = $translatedkeyword; - - if ($thisfile_png_chunk_type_text['compression']) { - - switch ($thisfile_png_chunk_type_text['compression_method']) { - case 0: - $thisfile_png_chunk_type_text['text'] = gzuncompress($text); - break; - - default: - // unknown compression method - break; - } - - } else { - - $thisfile_png_chunk_type_text['text'] = $text; - - } - - if (isset($thisfile_png_chunk_type_text['text'])) { - $thisfile_png['comments'][$thisfile_png_chunk_type_text['keyword']][] = $thisfile_png_chunk_type_text['text']; - } - break; - - - case 'bKGD': // Background Color - $thisfile_png_chunk_type_text['header'] = $chunk; - switch ($thisfile_png['IHDR']['raw']['color_type']) { - case 0: - case 4: - $thisfile_png_chunk_type_text['background_gray'] = getid3_lib::BigEndian2Int($chunk['data']); - break; - - case 2: - case 6: - $thisfile_png_chunk_type_text['background_red'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0 * $thisfile_png['IHDR']['raw']['bit_depth'], $thisfile_png['IHDR']['raw']['bit_depth'])); - $thisfile_png_chunk_type_text['background_green'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 1 * $thisfile_png['IHDR']['raw']['bit_depth'], $thisfile_png['IHDR']['raw']['bit_depth'])); - $thisfile_png_chunk_type_text['background_blue'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2 * $thisfile_png['IHDR']['raw']['bit_depth'], $thisfile_png['IHDR']['raw']['bit_depth'])); - break; - - case 3: - $thisfile_png_chunk_type_text['background_index'] = getid3_lib::BigEndian2Int($chunk['data']); - break; - - default: - break; - } - break; - - - case 'pHYs': // Physical Pixel Dimensions - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['pixels_per_unit_x'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 4)); - $thisfile_png_chunk_type_text['pixels_per_unit_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 4)); - $thisfile_png_chunk_type_text['unit_specifier'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 8, 1)); - $thisfile_png_chunk_type_text['unit'] = $this->PNGpHYsUnitLookup($thisfile_png_chunk_type_text['unit_specifier']); - break; - - - case 'sBIT': // Significant Bits - $thisfile_png_chunk_type_text['header'] = $chunk; - switch ($thisfile_png['IHDR']['raw']['color_type']) { - case 0: - $thisfile_png_chunk_type_text['significant_bits_gray'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - break; - - case 2: - case 3: - $thisfile_png_chunk_type_text['significant_bits_red'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - $thisfile_png_chunk_type_text['significant_bits_green'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 1, 1)); - $thisfile_png_chunk_type_text['significant_bits_blue'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2, 1)); - break; - - case 4: - $thisfile_png_chunk_type_text['significant_bits_gray'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - $thisfile_png_chunk_type_text['significant_bits_alpha'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 1, 1)); - break; - - case 6: - $thisfile_png_chunk_type_text['significant_bits_red'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - $thisfile_png_chunk_type_text['significant_bits_green'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 1, 1)); - $thisfile_png_chunk_type_text['significant_bits_blue'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2, 1)); - $thisfile_png_chunk_type_text['significant_bits_alpha'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 3, 1)); - break; - - default: - break; - } - break; - - - case 'sPLT': // Suggested Palette - $thisfile_png_chunk_type_text['header'] = $chunk; - list($palettename, $otherdata) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['palette_name'] = $palettename; - $sPLToffset = 0; - $thisfile_png_chunk_type_text['sample_depth_bits'] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, 1)); - $sPLToffset += 1; - $thisfile_png_chunk_type_text['sample_depth_bytes'] = $thisfile_png_chunk_type_text['sample_depth_bits'] / 8; - $paletteCounter = 0; - while ($sPLToffset < strlen($otherdata)) { - $thisfile_png_chunk_type_text['red'][$paletteCounter] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, $thisfile_png_chunk_type_text['sample_depth_bytes'])); - $sPLToffset += $thisfile_png_chunk_type_text['sample_depth_bytes']; - $thisfile_png_chunk_type_text['green'][$paletteCounter] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, $thisfile_png_chunk_type_text['sample_depth_bytes'])); - $sPLToffset += $thisfile_png_chunk_type_text['sample_depth_bytes']; - $thisfile_png_chunk_type_text['blue'][$paletteCounter] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, $thisfile_png_chunk_type_text['sample_depth_bytes'])); - $sPLToffset += $thisfile_png_chunk_type_text['sample_depth_bytes']; - $thisfile_png_chunk_type_text['alpha'][$paletteCounter] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, $thisfile_png_chunk_type_text['sample_depth_bytes'])); - $sPLToffset += $thisfile_png_chunk_type_text['sample_depth_bytes']; - $thisfile_png_chunk_type_text['frequency'][$paletteCounter] = getid3_lib::BigEndian2Int(substr($otherdata, $sPLToffset, 2)); - $sPLToffset += 2; - $paletteCounter++; - } - break; - - - case 'hIST': // Palette Histogram - $thisfile_png_chunk_type_text['header'] = $chunk; - $hISTcounter = 0; - while ($hISTcounter < strlen($chunk['data'])) { - $thisfile_png_chunk_type_text[$hISTcounter] = getid3_lib::BigEndian2Int(substr($chunk['data'], $hISTcounter / 2, 2)); - $hISTcounter += 2; - } - break; - - - case 'tIME': // Image Last-Modification Time - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['year'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 2)); - $thisfile_png_chunk_type_text['month'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2, 1)); - $thisfile_png_chunk_type_text['day'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 3, 1)); - $thisfile_png_chunk_type_text['hour'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 1)); - $thisfile_png_chunk_type_text['minute'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 5, 1)); - $thisfile_png_chunk_type_text['second'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 6, 1)); - $thisfile_png_chunk_type_text['unix'] = gmmktime($thisfile_png_chunk_type_text['hour'], $thisfile_png_chunk_type_text['minute'], $thisfile_png_chunk_type_text['second'], $thisfile_png_chunk_type_text['month'], $thisfile_png_chunk_type_text['day'], $thisfile_png_chunk_type_text['year']); - break; - - - case 'oFFs': // Image Offset - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['position_x'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 4), false, true); - $thisfile_png_chunk_type_text['position_y'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 4, 4), false, true); - $thisfile_png_chunk_type_text['unit_specifier'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 8, 1)); - $thisfile_png_chunk_type_text['unit'] = $this->PNGoFFsUnitLookup($thisfile_png_chunk_type_text['unit_specifier']); - break; - - - case 'pCAL': // Calibration Of Pixel Values - $thisfile_png_chunk_type_text['header'] = $chunk; - list($calibrationname, $otherdata) = explode("\x00", $chunk['data'], 2); - $thisfile_png_chunk_type_text['calibration_name'] = $calibrationname; - $pCALoffset = 0; - $thisfile_png_chunk_type_text['original_zero'] = getid3_lib::BigEndian2Int(substr($chunk['data'], $pCALoffset, 4), false, true); - $pCALoffset += 4; - $thisfile_png_chunk_type_text['original_max'] = getid3_lib::BigEndian2Int(substr($chunk['data'], $pCALoffset, 4), false, true); - $pCALoffset += 4; - $thisfile_png_chunk_type_text['equation_type'] = getid3_lib::BigEndian2Int(substr($chunk['data'], $pCALoffset, 1)); - $pCALoffset += 1; - $thisfile_png_chunk_type_text['equation_type_text'] = $this->PNGpCALequationTypeLookup($thisfile_png_chunk_type_text['equation_type']); - $thisfile_png_chunk_type_text['parameter_count'] = getid3_lib::BigEndian2Int(substr($chunk['data'], $pCALoffset, 1)); - $pCALoffset += 1; - $thisfile_png_chunk_type_text['parameters'] = explode("\x00", substr($chunk['data'], $pCALoffset)); - break; - - - case 'sCAL': // Physical Scale Of Image Subject - $thisfile_png_chunk_type_text['header'] = $chunk; - $thisfile_png_chunk_type_text['unit_specifier'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - $thisfile_png_chunk_type_text['unit'] = $this->PNGsCALUnitLookup($thisfile_png_chunk_type_text['unit_specifier']); - list($pixelwidth, $pixelheight) = explode("\x00", substr($chunk['data'], 1)); - $thisfile_png_chunk_type_text['pixel_width'] = $pixelwidth; - $thisfile_png_chunk_type_text['pixel_height'] = $pixelheight; - break; - - - case 'gIFg': // GIF Graphic Control Extension - $gIFgCounter = 0; - if (isset($thisfile_png_chunk_type_text) && is_array($thisfile_png_chunk_type_text)) { - $gIFgCounter = count($thisfile_png_chunk_type_text); - } - $thisfile_png_chunk_type_text[$gIFgCounter]['header'] = $chunk; - $thisfile_png_chunk_type_text[$gIFgCounter]['disposal_method'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 0, 1)); - $thisfile_png_chunk_type_text[$gIFgCounter]['user_input_flag'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 1, 1)); - $thisfile_png_chunk_type_text[$gIFgCounter]['delay_time'] = getid3_lib::BigEndian2Int(substr($chunk['data'], 2, 2)); - break; - - - case 'gIFx': // GIF Application Extension - $gIFxCounter = 0; - if (isset($thisfile_png_chunk_type_text) && is_array($thisfile_png_chunk_type_text)) { - $gIFxCounter = count($thisfile_png_chunk_type_text); - } - $thisfile_png_chunk_type_text[$gIFxCounter]['header'] = $chunk; - $thisfile_png_chunk_type_text[$gIFxCounter]['application_identifier'] = substr($chunk['data'], 0, 8); - $thisfile_png_chunk_type_text[$gIFxCounter]['authentication_code'] = substr($chunk['data'], 8, 3); - $thisfile_png_chunk_type_text[$gIFxCounter]['application_data'] = substr($chunk['data'], 11); - break; - - - case 'IDAT': // Image Data - $idatinformationfieldindex = 0; - if (isset($thisfile_png['IDAT']) && is_array($thisfile_png['IDAT'])) { - $idatinformationfieldindex = count($thisfile_png['IDAT']); - } - unset($chunk['data']); - $thisfile_png_chunk_type_text[$idatinformationfieldindex]['header'] = $chunk; - break; - - - case 'IEND': // Image Trailer - $thisfile_png_chunk_type_text['header'] = $chunk; - break; - - - default: - //unset($chunk['data']); - $thisfile_png_chunk_type_text['header'] = $chunk; - $info['warning'][] = 'Unhandled chunk type: '.$chunk['type_text']; - break; - } - } - - return true; - } - - public function PNGsRGBintentLookup($sRGB) { - static $PNGsRGBintentLookup = array( - 0 => 'Perceptual', - 1 => 'Relative colorimetric', - 2 => 'Saturation', - 3 => 'Absolute colorimetric' - ); - return (isset($PNGsRGBintentLookup[$sRGB]) ? $PNGsRGBintentLookup[$sRGB] : 'invalid'); - } - - public function PNGcompressionMethodLookup($compressionmethod) { - static $PNGcompressionMethodLookup = array( - 0 => 'deflate/inflate' - ); - return (isset($PNGcompressionMethodLookup[$compressionmethod]) ? $PNGcompressionMethodLookup[$compressionmethod] : 'invalid'); - } - - public function PNGpHYsUnitLookup($unitid) { - static $PNGpHYsUnitLookup = array( - 0 => 'unknown', - 1 => 'meter' - ); - return (isset($PNGpHYsUnitLookup[$unitid]) ? $PNGpHYsUnitLookup[$unitid] : 'invalid'); - } - - public function PNGoFFsUnitLookup($unitid) { - static $PNGoFFsUnitLookup = array( - 0 => 'pixel', - 1 => 'micrometer' - ); - return (isset($PNGoFFsUnitLookup[$unitid]) ? $PNGoFFsUnitLookup[$unitid] : 'invalid'); - } - - public function PNGpCALequationTypeLookup($equationtype) { - static $PNGpCALequationTypeLookup = array( - 0 => 'Linear mapping', - 1 => 'Base-e exponential mapping', - 2 => 'Arbitrary-base exponential mapping', - 3 => 'Hyperbolic mapping' - ); - return (isset($PNGpCALequationTypeLookup[$equationtype]) ? $PNGpCALequationTypeLookup[$equationtype] : 'invalid'); - } - - public function PNGsCALUnitLookup($unitid) { - static $PNGsCALUnitLookup = array( - 0 => 'meter', - 1 => 'radian' - ); - return (isset($PNGsCALUnitLookup[$unitid]) ? $PNGsCALUnitLookup[$unitid] : 'invalid'); - } - - public function IHDRcalculateBitsPerSample($color_type, $bit_depth) { - switch ($color_type) { - case 0: // Each pixel is a grayscale sample. - return $bit_depth; - break; - - case 2: // Each pixel is an R,G,B triple - return 3 * $bit_depth; - break; - - case 3: // Each pixel is a palette index; a PLTE chunk must appear. - return $bit_depth; - break; - - case 4: // Each pixel is a grayscale sample, followed by an alpha sample. - return 2 * $bit_depth; - break; - - case 6: // Each pixel is an R,G,B triple, followed by an alpha sample. - return 4 * $bit_depth; - break; - } - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.svg.php b/web/htdocs/media/lib/getid3/module.graphic.svg.php deleted file mode 100644 index 8b31167eb9e..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.svg.php +++ /dev/null @@ -1,101 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.graphic.svg.php // -// module for analyzing SVG Image files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_svg extends getid3_handler -{ - - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - - $SVGheader = fread($this->getid3->fp, 4096); - if (preg_match('#\<\?xml([^\>]+)\?\>#i', $SVGheader, $matches)) { - $info['svg']['xml']['raw'] = $matches; - } - if (preg_match('#\<\!DOCTYPE([^\>]+)\>#i', $SVGheader, $matches)) { - $info['svg']['doctype']['raw'] = $matches; - } - if (preg_match('#\]+)\>#i', $SVGheader, $matches)) { - $info['svg']['svg']['raw'] = $matches; - } - if (isset($info['svg']['svg']['raw'])) { - - $sections_to_fix = array('xml', 'doctype', 'svg'); - foreach ($sections_to_fix as $section_to_fix) { - if (!isset($info['svg'][$section_to_fix])) { - continue; - } - $section_data = array(); - while (preg_match('/ "([^"]+)"/', $info['svg'][$section_to_fix]['raw'][1], $matches)) { - $section_data[] = $matches[1]; - $info['svg'][$section_to_fix]['raw'][1] = str_replace($matches[0], '', $info['svg'][$section_to_fix]['raw'][1]); - } - while (preg_match('/([^\s]+)="([^"]+)"/', $info['svg'][$section_to_fix]['raw'][1], $matches)) { - $section_data[] = $matches[0]; - $info['svg'][$section_to_fix]['raw'][1] = str_replace($matches[0], '', $info['svg'][$section_to_fix]['raw'][1]); - } - $section_data = array_merge($section_data, preg_split('/[\s,]+/', $info['svg'][$section_to_fix]['raw'][1])); - foreach ($section_data as $keyvaluepair) { - $keyvaluepair = trim($keyvaluepair); - if ($keyvaluepair) { - $keyvalueexploded = explode('=', $keyvaluepair); - $key = (isset($keyvalueexploded[0]) ? $keyvalueexploded[0] : ''); - $value = (isset($keyvalueexploded[1]) ? $keyvalueexploded[1] : ''); - $info['svg'][$section_to_fix]['sections'][$key] = trim($value, '"'); - } - } - } - - $info['fileformat'] = 'svg'; - $info['video']['dataformat'] = 'svg'; - $info['video']['lossless'] = true; - //$info['video']['bits_per_sample'] = 24; - $info['video']['pixel_aspect_ratio'] = (float) 1; - - if (!empty($info['svg']['svg']['sections']['width'])) { - $info['svg']['width'] = intval($info['svg']['svg']['sections']['width']); - } - if (!empty($info['svg']['svg']['sections']['height'])) { - $info['svg']['height'] = intval($info['svg']['svg']['sections']['height']); - } - if (!empty($info['svg']['svg']['sections']['version'])) { - $info['svg']['version'] = $info['svg']['svg']['sections']['version']; - } - if (!isset($info['svg']['version']) && isset($info['svg']['doctype']['sections'])) { - foreach ($info['svg']['doctype']['sections'] as $key => $value) { - if (preg_match('#//W3C//DTD SVG ([0-9\.]+)//#i', $key, $matches)) { - $info['svg']['version'] = $matches[1]; - break; - } - } - } - - if (!empty($info['svg']['width'])) { - $info['video']['resolution_x'] = $info['svg']['width']; - } - if (!empty($info['svg']['height'])) { - $info['video']['resolution_y'] = $info['svg']['height']; - } - - return true; - } - $info['error'][] = 'Did not find expected tag'; - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.graphic.tiff.php b/web/htdocs/media/lib/getid3/module.graphic.tiff.php deleted file mode 100644 index 25996f0e57e..00000000000 --- a/web/htdocs/media/lib/getid3/module.graphic.tiff.php +++ /dev/null @@ -1,224 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.archive.tiff.php // -// module for analyzing TIFF files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_tiff extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $TIFFheader = fread($this->getid3->fp, 4); - - switch (substr($TIFFheader, 0, 2)) { - case 'II': - $info['tiff']['byte_order'] = 'Intel'; - break; - case 'MM': - $info['tiff']['byte_order'] = 'Motorola'; - break; - default: - $info['error'][] = 'Invalid TIFF byte order identifier ('.substr($TIFFheader, 0, 2).') at offset '.$info['avdataoffset']; - return false; - break; - } - - $info['fileformat'] = 'tiff'; - $info['video']['dataformat'] = 'tiff'; - $info['video']['lossless'] = true; - $info['tiff']['ifd'] = array(); - $CurrentIFD = array(); - - $FieldTypeByteLength = array(1=>1, 2=>1, 3=>2, 4=>4, 5=>8); - - $nextIFDoffset = $this->TIFFendian2Int(fread($this->getid3->fp, 4), $info['tiff']['byte_order']); - - while ($nextIFDoffset > 0) { - - $CurrentIFD['offset'] = $nextIFDoffset; - - fseek($this->getid3->fp, $info['avdataoffset'] + $nextIFDoffset, SEEK_SET); - $CurrentIFD['fieldcount'] = $this->TIFFendian2Int(fread($this->getid3->fp, 2), $info['tiff']['byte_order']); - - for ($i = 0; $i < $CurrentIFD['fieldcount']; $i++) { - $CurrentIFD['fields'][$i]['raw']['tag'] = $this->TIFFendian2Int(fread($this->getid3->fp, 2), $info['tiff']['byte_order']); - $CurrentIFD['fields'][$i]['raw']['type'] = $this->TIFFendian2Int(fread($this->getid3->fp, 2), $info['tiff']['byte_order']); - $CurrentIFD['fields'][$i]['raw']['length'] = $this->TIFFendian2Int(fread($this->getid3->fp, 4), $info['tiff']['byte_order']); - $CurrentIFD['fields'][$i]['raw']['offset'] = fread($this->getid3->fp, 4); - - switch ($CurrentIFD['fields'][$i]['raw']['type']) { - case 1: // BYTE An 8-bit unsigned integer. - if ($CurrentIFD['fields'][$i]['raw']['length'] <= 4) { - $CurrentIFD['fields'][$i]['value'] = $this->TIFFendian2Int(substr($CurrentIFD['fields'][$i]['raw']['offset'], 0, 1), $info['tiff']['byte_order']); - } else { - $CurrentIFD['fields'][$i]['offset'] = $this->TIFFendian2Int($CurrentIFD['fields'][$i]['raw']['offset'], $info['tiff']['byte_order']); - } - break; - - case 2: // ASCII 8-bit bytes that store ASCII codes; the last byte must be null. - if ($CurrentIFD['fields'][$i]['raw']['length'] <= 4) { - $CurrentIFD['fields'][$i]['value'] = substr($CurrentIFD['fields'][$i]['raw']['offset'], 3); - } else { - $CurrentIFD['fields'][$i]['offset'] = $this->TIFFendian2Int($CurrentIFD['fields'][$i]['raw']['offset'], $info['tiff']['byte_order']); - } - break; - - case 3: // SHORT A 16-bit (2-byte) unsigned integer. - if ($CurrentIFD['fields'][$i]['raw']['length'] <= 2) { - $CurrentIFD['fields'][$i]['value'] = $this->TIFFendian2Int(substr($CurrentIFD['fields'][$i]['raw']['offset'], 0, 2), $info['tiff']['byte_order']); - } else { - $CurrentIFD['fields'][$i]['offset'] = $this->TIFFendian2Int($CurrentIFD['fields'][$i]['raw']['offset'], $info['tiff']['byte_order']); - } - break; - - case 4: // LONG A 32-bit (4-byte) unsigned integer. - if ($CurrentIFD['fields'][$i]['raw']['length'] <= 1) { - $CurrentIFD['fields'][$i]['value'] = $this->TIFFendian2Int($CurrentIFD['fields'][$i]['raw']['offset'], $info['tiff']['byte_order']); - } else { - $CurrentIFD['fields'][$i]['offset'] = $this->TIFFendian2Int($CurrentIFD['fields'][$i]['raw']['offset'], $info['tiff']['byte_order']); - } - break; - - case 5: // RATIONAL Two LONG_s: the first represents the numerator of a fraction, the second the denominator. - break; - } - } - - $info['tiff']['ifd'][] = $CurrentIFD; - $CurrentIFD = array(); - $nextIFDoffset = $this->TIFFendian2Int(fread($this->getid3->fp, 4), $info['tiff']['byte_order']); - - } - - foreach ($info['tiff']['ifd'] as $IFDid => $IFDarray) { - foreach ($IFDarray['fields'] as $key => $fieldarray) { - switch ($fieldarray['raw']['tag']) { - case 256: // ImageWidth - case 257: // ImageLength - case 258: // BitsPerSample - case 259: // Compression - if (!isset($fieldarray['value'])) { - fseek($this->getid3->fp, $fieldarray['offset'], SEEK_SET); - $info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data'] = fread($this->getid3->fp, $fieldarray['raw']['length'] * $FieldTypeByteLength[$fieldarray['raw']['type']]); - - } - break; - - case 270: // ImageDescription - case 271: // Make - case 272: // Model - case 305: // Software - case 306: // DateTime - case 315: // Artist - case 316: // HostComputer - if (isset($fieldarray['value'])) { - $info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data'] = $fieldarray['value']; - } else { - fseek($this->getid3->fp, $fieldarray['offset'], SEEK_SET); - $info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data'] = fread($this->getid3->fp, $fieldarray['raw']['length'] * $FieldTypeByteLength[$fieldarray['raw']['type']]); - - } - break; - } - switch ($fieldarray['raw']['tag']) { - case 256: // ImageWidth - $info['video']['resolution_x'] = $fieldarray['value']; - break; - - case 257: // ImageLength - $info['video']['resolution_y'] = $fieldarray['value']; - break; - - case 258: // BitsPerSample - if (isset($fieldarray['value'])) { - $info['video']['bits_per_sample'] = $fieldarray['value']; - } else { - $info['video']['bits_per_sample'] = 0; - for ($i = 0; $i < $fieldarray['raw']['length']; $i++) { - $info['video']['bits_per_sample'] += $this->TIFFendian2Int(substr($info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data'], $i * $FieldTypeByteLength[$fieldarray['raw']['type']], $FieldTypeByteLength[$fieldarray['raw']['type']]), $info['tiff']['byte_order']); - } - } - break; - - case 259: // Compression - $info['video']['codec'] = $this->TIFFcompressionMethod($fieldarray['value']); - break; - - case 270: // ImageDescription - case 271: // Make - case 272: // Model - case 305: // Software - case 306: // DateTime - case 315: // Artist - case 316: // HostComputer - $TIFFcommentName = $this->TIFFcommentName($fieldarray['raw']['tag']); - if (isset($info['tiff']['comments'][$TIFFcommentName])) { - $info['tiff']['comments'][$TIFFcommentName][] = $info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data']; - } else { - $info['tiff']['comments'][$TIFFcommentName] = array($info['tiff']['ifd'][$IFDid]['fields'][$key]['raw']['data']); - } - break; - - default: - break; - } - } - } - - return true; - } - - - public function TIFFendian2Int($bytestring, $byteorder) { - if ($byteorder == 'Intel') { - return getid3_lib::LittleEndian2Int($bytestring); - } elseif ($byteorder == 'Motorola') { - return getid3_lib::BigEndian2Int($bytestring); - } - return false; - } - - public function TIFFcompressionMethod($id) { - static $TIFFcompressionMethod = array(); - if (empty($TIFFcompressionMethod)) { - $TIFFcompressionMethod = array( - 1 => 'Uncompressed', - 2 => 'Huffman', - 3 => 'Fax - CCITT 3', - 5 => 'LZW', - 32773 => 'PackBits', - ); - } - return (isset($TIFFcompressionMethod[$id]) ? $TIFFcompressionMethod[$id] : 'unknown/invalid ('.$id.')'); - } - - public function TIFFcommentName($id) { - static $TIFFcommentName = array(); - if (empty($TIFFcommentName)) { - $TIFFcommentName = array( - 270 => 'imagedescription', - 271 => 'make', - 272 => 'model', - 305 => 'software', - 306 => 'datetime', - 315 => 'artist', - 316 => 'hostcomputer', - ); - } - return (isset($TIFFcommentName[$id]) ? $TIFFcommentName[$id] : 'unknown/invalid ('.$id.')'); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.misc.cue.php b/web/htdocs/media/lib/getid3/module.misc.cue.php deleted file mode 100644 index a4536289c9a..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.cue.php +++ /dev/null @@ -1,311 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.cue.php // -// module for analyzing CUEsheet files // -// dependencies: NONE // -// // -///////////////////////////////////////////////////////////////// -// // -// Module originally written [2009-Mar-25] by // -// Nigel Barnes // -// Minor reformatting and similar small changes to integrate // -// into getID3 by James Heinrich // -// /// -///////////////////////////////////////////////////////////////// - -/* - * CueSheet parser by Nigel Barnes. - * - * This is a PHP conversion of CueSharp 0.5 by Wyatt O'Day (wyday.com/cuesharp) - */ - -/** - * A CueSheet class used to open and parse cuesheets. - * - */ -class getid3_cue extends getid3_handler -{ - public $cuesheet = array(); - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'cue'; - $this->readCueSheetFilename($info['filenamepath']); - $info['cue'] = $this->cuesheet; - return true; - } - - - - public function readCueSheetFilename($filename) - { - $filedata = file_get_contents($filename); - return $this->readCueSheet($filedata); - } - /** - * Parses a cue sheet file. - * - * @param string $filename - The filename for the cue sheet to open. - */ - public function readCueSheet(&$filedata) - { - $cue_lines = array(); - foreach (explode("\n", str_replace("\r", null, $filedata)) as $line) - { - if ( (strlen($line) > 0) && ($line[0] != '#')) - { - $cue_lines[] = trim($line); - } - } - $this->parseCueSheet($cue_lines); - - return $this->cuesheet; - } - - /** - * Parses the cue sheet array. - * - * @param array $file - The cuesheet as an array of each line. - */ - public function parseCueSheet($file) - { - //-1 means still global, all others are track specific - $track_on = -1; - - for ($i=0; $i < count($file); $i++) - { - list($key) = explode(' ', strtolower($file[$i]), 2); - switch ($key) - { - case 'catalog': - case 'cdtextfile': - case 'isrc': - case 'performer': - case 'songwriter': - case 'title': - $this->parseString($file[$i], $track_on); - break; - case 'file': - $currentFile = $this->parseFile($file[$i]); - break; - case 'flags': - $this->parseFlags($file[$i], $track_on); - break; - case 'index': - case 'postgap': - case 'pregap': - $this->parseIndex($file[$i], $track_on); - break; - case 'rem': - $this->parseComment($file[$i], $track_on); - break; - case 'track': - $track_on++; - $this->parseTrack($file[$i], $track_on); - if (isset($currentFile)) // if there's a file - { - $this->cuesheet['tracks'][$track_on]['datafile'] = $currentFile; - } - break; - default: - //save discarded junk and place string[] with track it was found in - $this->parseGarbage($file[$i], $track_on); - break; - } - } - } - - /** - * Parses the REM command. - * - * @param string $line - The line in the cue file that contains the TRACK command. - * @param integer $track_on - The track currently processing. - */ - public function parseComment($line, $track_on) - { - $explodedline = explode(' ', $line, 3); - $comment_REM = (isset($explodedline[0]) ? $explodedline[0] : ''); - $comment_type = (isset($explodedline[1]) ? $explodedline[1] : ''); - $comment_data = (isset($explodedline[2]) ? $explodedline[2] : ''); - if (($comment_REM == 'REM') && $comment_type) { - $comment_type = strtolower($comment_type); - $commment_data = trim($comment_data, ' "'); - if ($track_on != -1) { - $this->cuesheet['tracks'][$track_on]['comments'][$comment_type][] = $comment_data; - } else { - $this->cuesheet['comments'][$comment_type][] = $comment_data; - } - } - } - - /** - * Parses the FILE command. - * - * @param string $line - The line in the cue file that contains the FILE command. - * @return array - Array of FILENAME and TYPE of file.. - */ - public function parseFile($line) - { - $line = substr($line, strpos($line, ' ') + 1); - $type = strtolower(substr($line, strrpos($line, ' '))); - - //remove type - $line = substr($line, 0, strrpos($line, ' ') - 1); - - //if quotes around it, remove them. - $line = trim($line, '"'); - - return array('filename'=>$line, 'type'=>$type); - } - - /** - * Parses the FLAG command. - * - * @param string $line - The line in the cue file that contains the TRACK command. - * @param integer $track_on - The track currently processing. - */ - public function parseFlags($line, $track_on) - { - if ($track_on != -1) - { - foreach (explode(' ', strtolower($line)) as $type) - { - switch ($type) - { - case 'flags': - // first entry in this line - $this->cuesheet['tracks'][$track_on]['flags'] = array( - '4ch' => false, - 'data' => false, - 'dcp' => false, - 'pre' => false, - 'scms' => false, - ); - break; - case 'data': - case 'dcp': - case '4ch': - case 'pre': - case 'scms': - $this->cuesheet['tracks'][$track_on]['flags'][$type] = true; - break; - default: - break; - } - } - } - } - - /** - * Collect any unidentified data. - * - * @param string $line - The line in the cue file that contains the TRACK command. - * @param integer $track_on - The track currently processing. - */ - public function parseGarbage($line, $track_on) - { - if ( strlen($line) > 0 ) - { - if ($track_on == -1) - { - $this->cuesheet['garbage'][] = $line; - } - else - { - $this->cuesheet['tracks'][$track_on]['garbage'][] = $line; - } - } - } - - /** - * Parses the INDEX command of a TRACK. - * - * @param string $line - The line in the cue file that contains the TRACK command. - * @param integer $track_on - The track currently processing. - */ - public function parseIndex($line, $track_on) - { - $type = strtolower(substr($line, 0, strpos($line, ' '))); - $line = substr($line, strpos($line, ' ') + 1); - - if ($type == 'index') - { - //read the index number - $number = intval(substr($line, 0, strpos($line, ' '))); - $line = substr($line, strpos($line, ' ') + 1); - } - - //extract the minutes, seconds, and frames - $explodedline = explode(':', $line); - $minutes = (isset($explodedline[0]) ? $explodedline[0] : ''); - $seconds = (isset($explodedline[1]) ? $explodedline[1] : ''); - $frames = (isset($explodedline[2]) ? $explodedline[2] : ''); - - switch ($type) { - case 'index': - $this->cuesheet['tracks'][$track_on][$type][$number] = array('minutes'=>intval($minutes), 'seconds'=>intval($seconds), 'frames'=>intval($frames)); - break; - case 'pregap': - case 'postgap': - $this->cuesheet['tracks'][$track_on][$type] = array('minutes'=>intval($minutes), 'seconds'=>intval($seconds), 'frames'=>intval($frames)); - break; - } - } - - public function parseString($line, $track_on) - { - $category = strtolower(substr($line, 0, strpos($line, ' '))); - $line = substr($line, strpos($line, ' ') + 1); - - //get rid of the quotes - $line = trim($line, '"'); - - switch ($category) - { - case 'catalog': - case 'cdtextfile': - case 'isrc': - case 'performer': - case 'songwriter': - case 'title': - if ($track_on == -1) - { - $this->cuesheet[$category] = $line; - } - else - { - $this->cuesheet['tracks'][$track_on][$category] = $line; - } - break; - default: - break; - } - } - - /** - * Parses the TRACK command. - * - * @param string $line - The line in the cue file that contains the TRACK command. - * @param integer $track_on - The track currently processing. - */ - public function parseTrack($line, $track_on) - { - $line = substr($line, strpos($line, ' ') + 1); - $track = ltrim(substr($line, 0, strpos($line, ' ')), '0'); - - //find the data type. - $datatype = strtolower(substr($line, strpos($line, ' ') + 1)); - - $this->cuesheet['tracks'][$track_on] = array('track_number'=>$track, 'datatype'=>$datatype); - } - -} - diff --git a/web/htdocs/media/lib/getid3/module.misc.exe.php b/web/htdocs/media/lib/getid3/module.misc.exe.php deleted file mode 100644 index 15e786b4327..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.exe.php +++ /dev/null @@ -1,58 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.exe.php // -// module for analyzing EXE files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_exe extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $EXEheader = fread($this->getid3->fp, 28); - - $magic = 'MZ'; - if (substr($EXEheader, 0, 2) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at offset '.$info['avdataoffset'].', found "'.getid3_lib::PrintHexBytes(substr($EXEheader, 0, 2)).'"'; - return false; - } - - $info['fileformat'] = 'exe'; - $info['exe']['mz']['magic'] = 'MZ'; - - $info['exe']['mz']['raw']['last_page_size'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 2, 2)); - $info['exe']['mz']['raw']['page_count'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 4, 2)); - $info['exe']['mz']['raw']['relocation_count'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 6, 2)); - $info['exe']['mz']['raw']['header_paragraphs'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 8, 2)); - $info['exe']['mz']['raw']['min_memory_paragraphs'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 10, 2)); - $info['exe']['mz']['raw']['max_memory_paragraphs'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 12, 2)); - $info['exe']['mz']['raw']['initial_ss'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 14, 2)); - $info['exe']['mz']['raw']['initial_sp'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 16, 2)); - $info['exe']['mz']['raw']['checksum'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 18, 2)); - $info['exe']['mz']['raw']['cs_ip'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 20, 4)); - $info['exe']['mz']['raw']['relocation_table_offset'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 24, 2)); - $info['exe']['mz']['raw']['overlay_number'] = getid3_lib::LittleEndian2Int(substr($EXEheader, 26, 2)); - - $info['exe']['mz']['byte_size'] = (($info['exe']['mz']['raw']['page_count'] - 1)) * 512 + $info['exe']['mz']['raw']['last_page_size']; - $info['exe']['mz']['header_size'] = $info['exe']['mz']['raw']['header_paragraphs'] * 16; - $info['exe']['mz']['memory_minimum'] = $info['exe']['mz']['raw']['min_memory_paragraphs'] * 16; - $info['exe']['mz']['memory_recommended'] = $info['exe']['mz']['raw']['max_memory_paragraphs'] * 16; - -$info['error'][] = 'EXE parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.misc.iso.php b/web/htdocs/media/lib/getid3/module.misc.iso.php deleted file mode 100644 index 39bd16af305..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.iso.php +++ /dev/null @@ -1,387 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.iso.php // -// module for analyzing ISO files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_iso extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'iso'; - - for ($i = 16; $i <= 19; $i++) { - fseek($this->getid3->fp, 2048 * $i, SEEK_SET); - $ISOheader = fread($this->getid3->fp, 2048); - if (substr($ISOheader, 1, 5) == 'CD001') { - switch (ord($ISOheader{0})) { - case 1: - $info['iso']['primary_volume_descriptor']['offset'] = 2048 * $i; - $this->ParsePrimaryVolumeDescriptor($ISOheader); - break; - - case 2: - $info['iso']['supplementary_volume_descriptor']['offset'] = 2048 * $i; - $this->ParseSupplementaryVolumeDescriptor($ISOheader); - break; - - default: - // skip - break; - } - } - } - - $this->ParsePathTable(); - - $info['iso']['files'] = array(); - foreach ($info['iso']['path_table']['directories'] as $directorynum => $directorydata) { - $info['iso']['directories'][$directorynum] = $this->ParseDirectoryRecord($directorydata); - } - - return true; - } - - - public function ParsePrimaryVolumeDescriptor(&$ISOheader) { - // ISO integer values are stored *BOTH* Little-Endian AND Big-Endian format!! - // ie 12345 == 0x3039 is stored as $39 $30 $30 $39 in a 4-byte field - - // shortcuts - $info = &$this->getid3->info; - $info['iso']['primary_volume_descriptor']['raw'] = array(); - $thisfile_iso_primaryVD = &$info['iso']['primary_volume_descriptor']; - $thisfile_iso_primaryVD_raw = &$thisfile_iso_primaryVD['raw']; - - $thisfile_iso_primaryVD_raw['volume_descriptor_type'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 0, 1)); - $thisfile_iso_primaryVD_raw['standard_identifier'] = substr($ISOheader, 1, 5); - if ($thisfile_iso_primaryVD_raw['standard_identifier'] != 'CD001') { - $info['error'][] = 'Expected "CD001" at offset ('.($thisfile_iso_primaryVD['offset'] + 1).'), found "'.$thisfile_iso_primaryVD_raw['standard_identifier'].'" instead'; - unset($info['fileformat']); - unset($info['iso']); - return false; - } - - - $thisfile_iso_primaryVD_raw['volume_descriptor_version'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 6, 1)); - //$thisfile_iso_primaryVD_raw['unused_1'] = substr($ISOheader, 7, 1); - $thisfile_iso_primaryVD_raw['system_identifier'] = substr($ISOheader, 8, 32); - $thisfile_iso_primaryVD_raw['volume_identifier'] = substr($ISOheader, 40, 32); - //$thisfile_iso_primaryVD_raw['unused_2'] = substr($ISOheader, 72, 8); - $thisfile_iso_primaryVD_raw['volume_space_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 80, 4)); - //$thisfile_iso_primaryVD_raw['unused_3'] = substr($ISOheader, 88, 32); - $thisfile_iso_primaryVD_raw['volume_set_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 120, 2)); - $thisfile_iso_primaryVD_raw['volume_sequence_number'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 124, 2)); - $thisfile_iso_primaryVD_raw['logical_block_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 128, 2)); - $thisfile_iso_primaryVD_raw['path_table_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 132, 4)); - $thisfile_iso_primaryVD_raw['path_table_l_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 140, 2)); - $thisfile_iso_primaryVD_raw['path_table_l_opt_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 144, 2)); - $thisfile_iso_primaryVD_raw['path_table_m_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 148, 2)); - $thisfile_iso_primaryVD_raw['path_table_m_opt_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 152, 2)); - $thisfile_iso_primaryVD_raw['root_directory_record'] = substr($ISOheader, 156, 34); - $thisfile_iso_primaryVD_raw['volume_set_identifier'] = substr($ISOheader, 190, 128); - $thisfile_iso_primaryVD_raw['publisher_identifier'] = substr($ISOheader, 318, 128); - $thisfile_iso_primaryVD_raw['data_preparer_identifier'] = substr($ISOheader, 446, 128); - $thisfile_iso_primaryVD_raw['application_identifier'] = substr($ISOheader, 574, 128); - $thisfile_iso_primaryVD_raw['copyright_file_identifier'] = substr($ISOheader, 702, 37); - $thisfile_iso_primaryVD_raw['abstract_file_identifier'] = substr($ISOheader, 739, 37); - $thisfile_iso_primaryVD_raw['bibliographic_file_identifier'] = substr($ISOheader, 776, 37); - $thisfile_iso_primaryVD_raw['volume_creation_date_time'] = substr($ISOheader, 813, 17); - $thisfile_iso_primaryVD_raw['volume_modification_date_time'] = substr($ISOheader, 830, 17); - $thisfile_iso_primaryVD_raw['volume_expiration_date_time'] = substr($ISOheader, 847, 17); - $thisfile_iso_primaryVD_raw['volume_effective_date_time'] = substr($ISOheader, 864, 17); - $thisfile_iso_primaryVD_raw['file_structure_version'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 881, 1)); - //$thisfile_iso_primaryVD_raw['unused_4'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 882, 1)); - $thisfile_iso_primaryVD_raw['application_data'] = substr($ISOheader, 883, 512); - //$thisfile_iso_primaryVD_raw['unused_5'] = substr($ISOheader, 1395, 653); - - $thisfile_iso_primaryVD['system_identifier'] = trim($thisfile_iso_primaryVD_raw['system_identifier']); - $thisfile_iso_primaryVD['volume_identifier'] = trim($thisfile_iso_primaryVD_raw['volume_identifier']); - $thisfile_iso_primaryVD['volume_set_identifier'] = trim($thisfile_iso_primaryVD_raw['volume_set_identifier']); - $thisfile_iso_primaryVD['publisher_identifier'] = trim($thisfile_iso_primaryVD_raw['publisher_identifier']); - $thisfile_iso_primaryVD['data_preparer_identifier'] = trim($thisfile_iso_primaryVD_raw['data_preparer_identifier']); - $thisfile_iso_primaryVD['application_identifier'] = trim($thisfile_iso_primaryVD_raw['application_identifier']); - $thisfile_iso_primaryVD['copyright_file_identifier'] = trim($thisfile_iso_primaryVD_raw['copyright_file_identifier']); - $thisfile_iso_primaryVD['abstract_file_identifier'] = trim($thisfile_iso_primaryVD_raw['abstract_file_identifier']); - $thisfile_iso_primaryVD['bibliographic_file_identifier'] = trim($thisfile_iso_primaryVD_raw['bibliographic_file_identifier']); - $thisfile_iso_primaryVD['volume_creation_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_primaryVD_raw['volume_creation_date_time']); - $thisfile_iso_primaryVD['volume_modification_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_primaryVD_raw['volume_modification_date_time']); - $thisfile_iso_primaryVD['volume_expiration_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_primaryVD_raw['volume_expiration_date_time']); - $thisfile_iso_primaryVD['volume_effective_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_primaryVD_raw['volume_effective_date_time']); - - if (($thisfile_iso_primaryVD_raw['volume_space_size'] * 2048) > $info['filesize']) { - $info['error'][] = 'Volume Space Size ('.($thisfile_iso_primaryVD_raw['volume_space_size'] * 2048).' bytes) is larger than the file size ('.$info['filesize'].' bytes) (truncated file?)'; - } - - return true; - } - - - public function ParseSupplementaryVolumeDescriptor(&$ISOheader) { - // ISO integer values are stored Both-Endian format!! - // ie 12345 == 0x3039 is stored as $39 $30 $30 $39 in a 4-byte field - - // shortcuts - $info = &$this->getid3->info; - $info['iso']['supplementary_volume_descriptor']['raw'] = array(); - $thisfile_iso_supplementaryVD = &$info['iso']['supplementary_volume_descriptor']; - $thisfile_iso_supplementaryVD_raw = &$thisfile_iso_supplementaryVD['raw']; - - $thisfile_iso_supplementaryVD_raw['volume_descriptor_type'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 0, 1)); - $thisfile_iso_supplementaryVD_raw['standard_identifier'] = substr($ISOheader, 1, 5); - if ($thisfile_iso_supplementaryVD_raw['standard_identifier'] != 'CD001') { - $info['error'][] = 'Expected "CD001" at offset ('.($thisfile_iso_supplementaryVD['offset'] + 1).'), found "'.$thisfile_iso_supplementaryVD_raw['standard_identifier'].'" instead'; - unset($info['fileformat']); - unset($info['iso']); - return false; - } - - $thisfile_iso_supplementaryVD_raw['volume_descriptor_version'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 6, 1)); - //$thisfile_iso_supplementaryVD_raw['unused_1'] = substr($ISOheader, 7, 1); - $thisfile_iso_supplementaryVD_raw['system_identifier'] = substr($ISOheader, 8, 32); - $thisfile_iso_supplementaryVD_raw['volume_identifier'] = substr($ISOheader, 40, 32); - //$thisfile_iso_supplementaryVD_raw['unused_2'] = substr($ISOheader, 72, 8); - $thisfile_iso_supplementaryVD_raw['volume_space_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 80, 4)); - if ($thisfile_iso_supplementaryVD_raw['volume_space_size'] == 0) { - // Supplementary Volume Descriptor not used - //unset($thisfile_iso_supplementaryVD); - //return false; - } - - //$thisfile_iso_supplementaryVD_raw['unused_3'] = substr($ISOheader, 88, 32); - $thisfile_iso_supplementaryVD_raw['volume_set_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 120, 2)); - $thisfile_iso_supplementaryVD_raw['volume_sequence_number'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 124, 2)); - $thisfile_iso_supplementaryVD_raw['logical_block_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 128, 2)); - $thisfile_iso_supplementaryVD_raw['path_table_size'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 132, 4)); - $thisfile_iso_supplementaryVD_raw['path_table_l_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 140, 2)); - $thisfile_iso_supplementaryVD_raw['path_table_l_opt_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 144, 2)); - $thisfile_iso_supplementaryVD_raw['path_table_m_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 148, 2)); - $thisfile_iso_supplementaryVD_raw['path_table_m_opt_location'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 152, 2)); - $thisfile_iso_supplementaryVD_raw['root_directory_record'] = substr($ISOheader, 156, 34); - $thisfile_iso_supplementaryVD_raw['volume_set_identifier'] = substr($ISOheader, 190, 128); - $thisfile_iso_supplementaryVD_raw['publisher_identifier'] = substr($ISOheader, 318, 128); - $thisfile_iso_supplementaryVD_raw['data_preparer_identifier'] = substr($ISOheader, 446, 128); - $thisfile_iso_supplementaryVD_raw['application_identifier'] = substr($ISOheader, 574, 128); - $thisfile_iso_supplementaryVD_raw['copyright_file_identifier'] = substr($ISOheader, 702, 37); - $thisfile_iso_supplementaryVD_raw['abstract_file_identifier'] = substr($ISOheader, 739, 37); - $thisfile_iso_supplementaryVD_raw['bibliographic_file_identifier'] = substr($ISOheader, 776, 37); - $thisfile_iso_supplementaryVD_raw['volume_creation_date_time'] = substr($ISOheader, 813, 17); - $thisfile_iso_supplementaryVD_raw['volume_modification_date_time'] = substr($ISOheader, 830, 17); - $thisfile_iso_supplementaryVD_raw['volume_expiration_date_time'] = substr($ISOheader, 847, 17); - $thisfile_iso_supplementaryVD_raw['volume_effective_date_time'] = substr($ISOheader, 864, 17); - $thisfile_iso_supplementaryVD_raw['file_structure_version'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 881, 1)); - //$thisfile_iso_supplementaryVD_raw['unused_4'] = getid3_lib::LittleEndian2Int(substr($ISOheader, 882, 1)); - $thisfile_iso_supplementaryVD_raw['application_data'] = substr($ISOheader, 883, 512); - //$thisfile_iso_supplementaryVD_raw['unused_5'] = substr($ISOheader, 1395, 653); - - $thisfile_iso_supplementaryVD['system_identifier'] = trim($thisfile_iso_supplementaryVD_raw['system_identifier']); - $thisfile_iso_supplementaryVD['volume_identifier'] = trim($thisfile_iso_supplementaryVD_raw['volume_identifier']); - $thisfile_iso_supplementaryVD['volume_set_identifier'] = trim($thisfile_iso_supplementaryVD_raw['volume_set_identifier']); - $thisfile_iso_supplementaryVD['publisher_identifier'] = trim($thisfile_iso_supplementaryVD_raw['publisher_identifier']); - $thisfile_iso_supplementaryVD['data_preparer_identifier'] = trim($thisfile_iso_supplementaryVD_raw['data_preparer_identifier']); - $thisfile_iso_supplementaryVD['application_identifier'] = trim($thisfile_iso_supplementaryVD_raw['application_identifier']); - $thisfile_iso_supplementaryVD['copyright_file_identifier'] = trim($thisfile_iso_supplementaryVD_raw['copyright_file_identifier']); - $thisfile_iso_supplementaryVD['abstract_file_identifier'] = trim($thisfile_iso_supplementaryVD_raw['abstract_file_identifier']); - $thisfile_iso_supplementaryVD['bibliographic_file_identifier'] = trim($thisfile_iso_supplementaryVD_raw['bibliographic_file_identifier']); - $thisfile_iso_supplementaryVD['volume_creation_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_supplementaryVD_raw['volume_creation_date_time']); - $thisfile_iso_supplementaryVD['volume_modification_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_supplementaryVD_raw['volume_modification_date_time']); - $thisfile_iso_supplementaryVD['volume_expiration_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_supplementaryVD_raw['volume_expiration_date_time']); - $thisfile_iso_supplementaryVD['volume_effective_date_time'] = $this->ISOtimeText2UNIXtime($thisfile_iso_supplementaryVD_raw['volume_effective_date_time']); - - if (($thisfile_iso_supplementaryVD_raw['volume_space_size'] * $thisfile_iso_supplementaryVD_raw['logical_block_size']) > $info['filesize']) { - $info['error'][] = 'Volume Space Size ('.($thisfile_iso_supplementaryVD_raw['volume_space_size'] * $thisfile_iso_supplementaryVD_raw['logical_block_size']).' bytes) is larger than the file size ('.$info['filesize'].' bytes) (truncated file?)'; - } - - return true; - } - - - public function ParsePathTable() { - $info = &$this->getid3->info; - if (!isset($info['iso']['supplementary_volume_descriptor']['raw']['path_table_l_location']) && !isset($info['iso']['primary_volume_descriptor']['raw']['path_table_l_location'])) { - return false; - } - if (isset($info['iso']['supplementary_volume_descriptor']['raw']['path_table_l_location'])) { - $PathTableLocation = $info['iso']['supplementary_volume_descriptor']['raw']['path_table_l_location']; - $PathTableSize = $info['iso']['supplementary_volume_descriptor']['raw']['path_table_size']; - $TextEncoding = 'UTF-16BE'; // Big-Endian Unicode - } else { - $PathTableLocation = $info['iso']['primary_volume_descriptor']['raw']['path_table_l_location']; - $PathTableSize = $info['iso']['primary_volume_descriptor']['raw']['path_table_size']; - $TextEncoding = 'ISO-8859-1'; // Latin-1 - } - - if (($PathTableLocation * 2048) > $info['filesize']) { - $info['error'][] = 'Path Table Location specifies an offset ('.($PathTableLocation * 2048).') beyond the end-of-file ('.$info['filesize'].')'; - return false; - } - - $info['iso']['path_table']['offset'] = $PathTableLocation * 2048; - fseek($this->getid3->fp, $info['iso']['path_table']['offset'], SEEK_SET); - $info['iso']['path_table']['raw'] = fread($this->getid3->fp, $PathTableSize); - - $offset = 0; - $pathcounter = 1; - while ($offset < $PathTableSize) { - // shortcut - $info['iso']['path_table']['directories'][$pathcounter] = array(); - $thisfile_iso_pathtable_directories_current = &$info['iso']['path_table']['directories'][$pathcounter]; - - $thisfile_iso_pathtable_directories_current['length'] = getid3_lib::LittleEndian2Int(substr($info['iso']['path_table']['raw'], $offset, 1)); - $offset += 1; - $thisfile_iso_pathtable_directories_current['extended_length'] = getid3_lib::LittleEndian2Int(substr($info['iso']['path_table']['raw'], $offset, 1)); - $offset += 1; - $thisfile_iso_pathtable_directories_current['location_logical'] = getid3_lib::LittleEndian2Int(substr($info['iso']['path_table']['raw'], $offset, 4)); - $offset += 4; - $thisfile_iso_pathtable_directories_current['parent_directory'] = getid3_lib::LittleEndian2Int(substr($info['iso']['path_table']['raw'], $offset, 2)); - $offset += 2; - $thisfile_iso_pathtable_directories_current['name'] = substr($info['iso']['path_table']['raw'], $offset, $thisfile_iso_pathtable_directories_current['length']); - $offset += $thisfile_iso_pathtable_directories_current['length'] + ($thisfile_iso_pathtable_directories_current['length'] % 2); - - $thisfile_iso_pathtable_directories_current['name_ascii'] = getid3_lib::iconv_fallback($TextEncoding, $info['encoding'], $thisfile_iso_pathtable_directories_current['name']); - - $thisfile_iso_pathtable_directories_current['location_bytes'] = $thisfile_iso_pathtable_directories_current['location_logical'] * 2048; - if ($pathcounter == 1) { - $thisfile_iso_pathtable_directories_current['full_path'] = '/'; - } else { - $thisfile_iso_pathtable_directories_current['full_path'] = $info['iso']['path_table']['directories'][$thisfile_iso_pathtable_directories_current['parent_directory']]['full_path'].$thisfile_iso_pathtable_directories_current['name_ascii'].'/'; - } - $FullPathArray[] = $thisfile_iso_pathtable_directories_current['full_path']; - - $pathcounter++; - } - - return true; - } - - - public function ParseDirectoryRecord($directorydata) { - $info = &$this->getid3->info; - if (isset($info['iso']['supplementary_volume_descriptor'])) { - $TextEncoding = 'UTF-16BE'; // Big-Endian Unicode - } else { - $TextEncoding = 'ISO-8859-1'; // Latin-1 - } - - fseek($this->getid3->fp, $directorydata['location_bytes'], SEEK_SET); - $DirectoryRecordData = fread($this->getid3->fp, 1); - - while (ord($DirectoryRecordData{0}) > 33) { - - $DirectoryRecordData .= fread($this->getid3->fp, ord($DirectoryRecordData{0}) - 1); - - $ThisDirectoryRecord['raw']['length'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 0, 1)); - $ThisDirectoryRecord['raw']['extended_attribute_length'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 1, 1)); - $ThisDirectoryRecord['raw']['offset_logical'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 2, 4)); - $ThisDirectoryRecord['raw']['filesize'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 10, 4)); - $ThisDirectoryRecord['raw']['recording_date_time'] = substr($DirectoryRecordData, 18, 7); - $ThisDirectoryRecord['raw']['file_flags'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 25, 1)); - $ThisDirectoryRecord['raw']['file_unit_size'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 26, 1)); - $ThisDirectoryRecord['raw']['interleave_gap_size'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 27, 1)); - $ThisDirectoryRecord['raw']['volume_sequence_number'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 28, 2)); - $ThisDirectoryRecord['raw']['file_identifier_length'] = getid3_lib::LittleEndian2Int(substr($DirectoryRecordData, 32, 1)); - $ThisDirectoryRecord['raw']['file_identifier'] = substr($DirectoryRecordData, 33, $ThisDirectoryRecord['raw']['file_identifier_length']); - - $ThisDirectoryRecord['file_identifier_ascii'] = getid3_lib::iconv_fallback($TextEncoding, $info['encoding'], $ThisDirectoryRecord['raw']['file_identifier']); - - $ThisDirectoryRecord['filesize'] = $ThisDirectoryRecord['raw']['filesize']; - $ThisDirectoryRecord['offset_bytes'] = $ThisDirectoryRecord['raw']['offset_logical'] * 2048; - $ThisDirectoryRecord['file_flags']['hidden'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x01); - $ThisDirectoryRecord['file_flags']['directory'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x02); - $ThisDirectoryRecord['file_flags']['associated'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x04); - $ThisDirectoryRecord['file_flags']['extended'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x08); - $ThisDirectoryRecord['file_flags']['permissions'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x10); - $ThisDirectoryRecord['file_flags']['multiple'] = (bool) ($ThisDirectoryRecord['raw']['file_flags'] & 0x80); - $ThisDirectoryRecord['recording_timestamp'] = $this->ISOtime2UNIXtime($ThisDirectoryRecord['raw']['recording_date_time']); - - if ($ThisDirectoryRecord['file_flags']['directory']) { - $ThisDirectoryRecord['filename'] = $directorydata['full_path']; - } else { - $ThisDirectoryRecord['filename'] = $directorydata['full_path'].$this->ISOstripFilenameVersion($ThisDirectoryRecord['file_identifier_ascii']); - $info['iso']['files'] = getid3_lib::array_merge_clobber($info['iso']['files'], getid3_lib::CreateDeepArray($ThisDirectoryRecord['filename'], '/', $ThisDirectoryRecord['filesize'])); - } - - $DirectoryRecord[] = $ThisDirectoryRecord; - $DirectoryRecordData = fread($this->getid3->fp, 1); - } - - return $DirectoryRecord; - } - - public function ISOstripFilenameVersion($ISOfilename) { - // convert 'filename.ext;1' to 'filename.ext' - if (!strstr($ISOfilename, ';')) { - return $ISOfilename; - } else { - return substr($ISOfilename, 0, strpos($ISOfilename, ';')); - } - } - - public function ISOtimeText2UNIXtime($ISOtime) { - - $UNIXyear = (int) substr($ISOtime, 0, 4); - $UNIXmonth = (int) substr($ISOtime, 4, 2); - $UNIXday = (int) substr($ISOtime, 6, 2); - $UNIXhour = (int) substr($ISOtime, 8, 2); - $UNIXminute = (int) substr($ISOtime, 10, 2); - $UNIXsecond = (int) substr($ISOtime, 12, 2); - - if (!$UNIXyear) { - return false; - } - return gmmktime($UNIXhour, $UNIXminute, $UNIXsecond, $UNIXmonth, $UNIXday, $UNIXyear); - } - - public function ISOtime2UNIXtime($ISOtime) { - // Represented by seven bytes: - // 1: Number of years since 1900 - // 2: Month of the year from 1 to 12 - // 3: Day of the Month from 1 to 31 - // 4: Hour of the day from 0 to 23 - // 5: Minute of the hour from 0 to 59 - // 6: second of the minute from 0 to 59 - // 7: Offset from Greenwich Mean Time in number of 15 minute intervals from -48 (West) to +52 (East) - - $UNIXyear = ord($ISOtime{0}) + 1900; - $UNIXmonth = ord($ISOtime{1}); - $UNIXday = ord($ISOtime{2}); - $UNIXhour = ord($ISOtime{3}); - $UNIXminute = ord($ISOtime{4}); - $UNIXsecond = ord($ISOtime{5}); - $GMToffset = $this->TwosCompliment2Decimal(ord($ISOtime{5})); - - return gmmktime($UNIXhour, $UNIXminute, $UNIXsecond, $UNIXmonth, $UNIXday, $UNIXyear); - } - - public function TwosCompliment2Decimal($BinaryValue) { - // http://sandbox.mc.edu/~bennet/cs110/tc/tctod.html - // First check if the number is negative or positive by looking at the sign bit. - // If it is positive, simply convert it to decimal. - // If it is negative, make it positive by inverting the bits and adding one. - // Then, convert the result to decimal. - // The negative of this number is the value of the original binary. - - if ($BinaryValue & 0x80) { - - // negative number - return (0 - ((~$BinaryValue & 0xFF) + 1)); - } else { - // positive number - return $BinaryValue; - } - } - - -} diff --git a/web/htdocs/media/lib/getid3/module.misc.msoffice.php b/web/htdocs/media/lib/getid3/module.misc.msoffice.php deleted file mode 100644 index e488854c07b..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.msoffice.php +++ /dev/null @@ -1,37 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.msoffice.php // -// module for analyzing MS Office (.doc, .xls, etc) files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_msoffice extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - fseek($this->getid3->fp, $info['avdataoffset'], SEEK_SET); - $DOCFILEheader = fread($this->getid3->fp, 8); - $magic = "\xD0\xCF\x11\xE0\xA1\xB1\x1A\xE1"; - if (substr($DOCFILEheader, 0, 8) != $magic) { - $info['error'][] = 'Expecting "'.getid3_lib::PrintHexBytes($magic).'" at '.$info['avdataoffset'].', found '.getid3_lib::PrintHexBytes(substr($DOCFILEheader, 0, 8)).' instead.'; - return false; - } - $info['fileformat'] = 'msoffice'; - -$info['error'][] = 'MS Office (.doc, .xls, etc) parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; -return false; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.misc.par2.php b/web/htdocs/media/lib/getid3/module.misc.par2.php deleted file mode 100644 index 80b47d29587..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.par2.php +++ /dev/null @@ -1,30 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.par2.php // -// module for analyzing PAR2 files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_par2 extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'par2'; - - $info['error'][] = 'PAR2 parsing not enabled in this version of getID3()'; - return false; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.misc.pdf.php b/web/htdocs/media/lib/getid3/module.misc.pdf.php deleted file mode 100644 index 3b8aaa1468d..00000000000 --- a/web/htdocs/media/lib/getid3/module.misc.pdf.php +++ /dev/null @@ -1,30 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.misc.pdf.php // -// module for analyzing PDF files // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_pdf extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - $info['fileformat'] = 'pdf'; - - $info['error'][] = 'PDF parsing not enabled in this version of getID3() ['.$this->getid3->version().']'; - return false; - - } - -} diff --git a/web/htdocs/media/lib/getid3/module.tag.apetag.php b/web/htdocs/media/lib/getid3/module.tag.apetag.php deleted file mode 100644 index afeede769c7..00000000000 --- a/web/htdocs/media/lib/getid3/module.tag.apetag.php +++ /dev/null @@ -1,370 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.tag.apetag.php // -// module for analyzing APE tags // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - -class getid3_apetag extends getid3_handler -{ - public $inline_attachments = true; // true: return full data for all attachments; false: return no data for all attachments; integer: return data for attachments <= than this; string: save as file to this directory - public $overrideendoffset = 0; - - public function Analyze() { - $info = &$this->getid3->info; - - if (!getid3_lib::intValueSupported($info['filesize'])) { - $info['warning'][] = 'Unable to check for APEtags because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - - $id3v1tagsize = 128; - $apetagheadersize = 32; - $lyrics3tagsize = 10; - - if ($this->overrideendoffset == 0) { - - fseek($this->getid3->fp, 0 - $id3v1tagsize - $apetagheadersize - $lyrics3tagsize, SEEK_END); - $APEfooterID3v1 = fread($this->getid3->fp, $id3v1tagsize + $apetagheadersize + $lyrics3tagsize); - - //if (preg_match('/APETAGEX.{24}TAG.{125}$/i', $APEfooterID3v1)) { - if (substr($APEfooterID3v1, strlen($APEfooterID3v1) - $id3v1tagsize - $apetagheadersize, 8) == 'APETAGEX') { - - // APE tag found before ID3v1 - $info['ape']['tag_offset_end'] = $info['filesize'] - $id3v1tagsize; - - //} elseif (preg_match('/APETAGEX.{24}$/i', $APEfooterID3v1)) { - } elseif (substr($APEfooterID3v1, strlen($APEfooterID3v1) - $apetagheadersize, 8) == 'APETAGEX') { - - // APE tag found, no ID3v1 - $info['ape']['tag_offset_end'] = $info['filesize']; - - } - - } else { - - fseek($this->getid3->fp, $this->overrideendoffset - $apetagheadersize, SEEK_SET); - if (fread($this->getid3->fp, 8) == 'APETAGEX') { - $info['ape']['tag_offset_end'] = $this->overrideendoffset; - } - - } - if (!isset($info['ape']['tag_offset_end'])) { - - // APE tag not found - unset($info['ape']); - return false; - - } - - // shortcut - $thisfile_ape = &$info['ape']; - - fseek($this->getid3->fp, $thisfile_ape['tag_offset_end'] - $apetagheadersize, SEEK_SET); - $APEfooterData = fread($this->getid3->fp, 32); - if (!($thisfile_ape['footer'] = $this->parseAPEheaderFooter($APEfooterData))) { - $info['error'][] = 'Error parsing APE footer at offset '.$thisfile_ape['tag_offset_end']; - return false; - } - - if (isset($thisfile_ape['footer']['flags']['header']) && $thisfile_ape['footer']['flags']['header']) { - fseek($this->getid3->fp, $thisfile_ape['tag_offset_end'] - $thisfile_ape['footer']['raw']['tagsize'] - $apetagheadersize, SEEK_SET); - $thisfile_ape['tag_offset_start'] = ftell($this->getid3->fp); - $APEtagData = fread($this->getid3->fp, $thisfile_ape['footer']['raw']['tagsize'] + $apetagheadersize); - } else { - $thisfile_ape['tag_offset_start'] = $thisfile_ape['tag_offset_end'] - $thisfile_ape['footer']['raw']['tagsize']; - fseek($this->getid3->fp, $thisfile_ape['tag_offset_start'], SEEK_SET); - $APEtagData = fread($this->getid3->fp, $thisfile_ape['footer']['raw']['tagsize']); - } - $info['avdataend'] = $thisfile_ape['tag_offset_start']; - - if (isset($info['id3v1']['tag_offset_start']) && ($info['id3v1']['tag_offset_start'] < $thisfile_ape['tag_offset_end'])) { - $info['warning'][] = 'ID3v1 tag information ignored since it appears to be a false synch in APEtag data'; - unset($info['id3v1']); - foreach ($info['warning'] as $key => $value) { - if ($value == 'Some ID3v1 fields do not use NULL characters for padding') { - unset($info['warning'][$key]); - sort($info['warning']); - break; - } - } - } - - $offset = 0; - if (isset($thisfile_ape['footer']['flags']['header']) && $thisfile_ape['footer']['flags']['header']) { - if ($thisfile_ape['header'] = $this->parseAPEheaderFooter(substr($APEtagData, 0, $apetagheadersize))) { - $offset += $apetagheadersize; - } else { - $info['error'][] = 'Error parsing APE header at offset '.$thisfile_ape['tag_offset_start']; - return false; - } - } - - // shortcut - $info['replay_gain'] = array(); - $thisfile_replaygain = &$info['replay_gain']; - - for ($i = 0; $i < $thisfile_ape['footer']['raw']['tag_items']; $i++) { - $value_size = getid3_lib::LittleEndian2Int(substr($APEtagData, $offset, 4)); - $offset += 4; - $item_flags = getid3_lib::LittleEndian2Int(substr($APEtagData, $offset, 4)); - $offset += 4; - if (strstr(substr($APEtagData, $offset), "\x00") === false) { - $info['error'][] = 'Cannot find null-byte (0x00) seperator between ItemKey #'.$i.' and value. ItemKey starts '.$offset.' bytes into the APE tag, at file offset '.($thisfile_ape['tag_offset_start'] + $offset); - return false; - } - $ItemKeyLength = strpos($APEtagData, "\x00", $offset) - $offset; - $item_key = strtolower(substr($APEtagData, $offset, $ItemKeyLength)); - - // shortcut - $thisfile_ape['items'][$item_key] = array(); - $thisfile_ape_items_current = &$thisfile_ape['items'][$item_key]; - - $thisfile_ape_items_current['offset'] = $thisfile_ape['tag_offset_start'] + $offset; - - $offset += ($ItemKeyLength + 1); // skip 0x00 terminator - $thisfile_ape_items_current['data'] = substr($APEtagData, $offset, $value_size); - $offset += $value_size; - - $thisfile_ape_items_current['flags'] = $this->parseAPEtagFlags($item_flags); - switch ($thisfile_ape_items_current['flags']['item_contents_raw']) { - case 0: // UTF-8 - case 3: // Locator (URL, filename, etc), UTF-8 encoded - $thisfile_ape_items_current['data'] = explode("\x00", trim($thisfile_ape_items_current['data'])); - break; - - default: // binary data - break; - } - - switch (strtolower($item_key)) { - case 'replaygain_track_gain': - $thisfile_replaygain['track']['adjustment'] = (float) str_replace(',', '.', $thisfile_ape_items_current['data'][0]); // float casting will see "0,95" as zero! - $thisfile_replaygain['track']['originator'] = 'unspecified'; - break; - - case 'replaygain_track_peak': - $thisfile_replaygain['track']['peak'] = (float) str_replace(',', '.', $thisfile_ape_items_current['data'][0]); // float casting will see "0,95" as zero! - $thisfile_replaygain['track']['originator'] = 'unspecified'; - if ($thisfile_replaygain['track']['peak'] <= 0) { - $info['warning'][] = 'ReplayGain Track peak from APEtag appears invalid: '.$thisfile_replaygain['track']['peak'].' (original value = "'.$thisfile_ape_items_current['data'][0].'")'; - } - break; - - case 'replaygain_album_gain': - $thisfile_replaygain['album']['adjustment'] = (float) str_replace(',', '.', $thisfile_ape_items_current['data'][0]); // float casting will see "0,95" as zero! - $thisfile_replaygain['album']['originator'] = 'unspecified'; - break; - - case 'replaygain_album_peak': - $thisfile_replaygain['album']['peak'] = (float) str_replace(',', '.', $thisfile_ape_items_current['data'][0]); // float casting will see "0,95" as zero! - $thisfile_replaygain['album']['originator'] = 'unspecified'; - if ($thisfile_replaygain['album']['peak'] <= 0) { - $info['warning'][] = 'ReplayGain Album peak from APEtag appears invalid: '.$thisfile_replaygain['album']['peak'].' (original value = "'.$thisfile_ape_items_current['data'][0].'")'; - } - break; - - case 'mp3gain_undo': - list($mp3gain_undo_left, $mp3gain_undo_right, $mp3gain_undo_wrap) = explode(',', $thisfile_ape_items_current['data'][0]); - $thisfile_replaygain['mp3gain']['undo_left'] = intval($mp3gain_undo_left); - $thisfile_replaygain['mp3gain']['undo_right'] = intval($mp3gain_undo_right); - $thisfile_replaygain['mp3gain']['undo_wrap'] = (($mp3gain_undo_wrap == 'Y') ? true : false); - break; - - case 'mp3gain_minmax': - list($mp3gain_globalgain_min, $mp3gain_globalgain_max) = explode(',', $thisfile_ape_items_current['data'][0]); - $thisfile_replaygain['mp3gain']['globalgain_track_min'] = intval($mp3gain_globalgain_min); - $thisfile_replaygain['mp3gain']['globalgain_track_max'] = intval($mp3gain_globalgain_max); - break; - - case 'mp3gain_album_minmax': - list($mp3gain_globalgain_album_min, $mp3gain_globalgain_album_max) = explode(',', $thisfile_ape_items_current['data'][0]); - $thisfile_replaygain['mp3gain']['globalgain_album_min'] = intval($mp3gain_globalgain_album_min); - $thisfile_replaygain['mp3gain']['globalgain_album_max'] = intval($mp3gain_globalgain_album_max); - break; - - case 'tracknumber': - if (is_array($thisfile_ape_items_current['data'])) { - foreach ($thisfile_ape_items_current['data'] as $comment) { - $thisfile_ape['comments']['track'][] = $comment; - } - } - break; - - case 'cover art (artist)': - case 'cover art (back)': - case 'cover art (band logo)': - case 'cover art (band)': - case 'cover art (colored fish)': - case 'cover art (composer)': - case 'cover art (conductor)': - case 'cover art (front)': - case 'cover art (icon)': - case 'cover art (illustration)': - case 'cover art (lead)': - case 'cover art (leaflet)': - case 'cover art (lyricist)': - case 'cover art (media)': - case 'cover art (movie scene)': - case 'cover art (other icon)': - case 'cover art (other)': - case 'cover art (performance)': - case 'cover art (publisher logo)': - case 'cover art (recording)': - case 'cover art (studio)': - // list of possible cover arts from http://taglib-sharp.sourcearchive.com/documentation/2.0.3.0-2/Ape_2Tag_8cs-source.html - list($thisfile_ape_items_current['filename'], $thisfile_ape_items_current['data']) = explode("\x00", $thisfile_ape_items_current['data'], 2); - $thisfile_ape_items_current['data_offset'] = $thisfile_ape_items_current['offset'] + strlen($thisfile_ape_items_current['filename']."\x00"); - $thisfile_ape_items_current['data_length'] = strlen($thisfile_ape_items_current['data']); - - $thisfile_ape_items_current['image_mime'] = ''; - $imageinfo = array(); - $imagechunkcheck = getid3_lib::GetDataImageSize($thisfile_ape_items_current['data'], $imageinfo); - $thisfile_ape_items_current['image_mime'] = image_type_to_mime_type($imagechunkcheck[2]); - - do { - if ($this->inline_attachments === false) { - // skip entirely - unset($thisfile_ape_items_current['data']); - break; - } - if ($this->inline_attachments === true) { - // great - } elseif (is_int($this->inline_attachments)) { - if ($this->inline_attachments < $thisfile_ape_items_current['data_length']) { - // too big, skip - $info['warning'][] = 'attachment at '.$thisfile_ape_items_current['offset'].' is too large to process inline ('.number_format($thisfile_ape_items_current['data_length']).' bytes)'; - unset($thisfile_ape_items_current['data']); - break; - } - } elseif (is_string($this->inline_attachments)) { - $this->inline_attachments = rtrim(str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $this->inline_attachments), DIRECTORY_SEPARATOR); - if (!is_dir($this->inline_attachments) || !is_writable($this->inline_attachments)) { - // cannot write, skip - $info['warning'][] = 'attachment at '.$thisfile_ape_items_current['offset'].' cannot be saved to "'.$this->inline_attachments.'" (not writable)'; - unset($thisfile_ape_items_current['data']); - break; - } - } - // if we get this far, must be OK - if (is_string($this->inline_attachments)) { - $destination_filename = $this->inline_attachments.DIRECTORY_SEPARATOR.md5($info['filenamepath']).'_'.$thisfile_ape_items_current['data_offset']; - if (!file_exists($destination_filename) || is_writable($destination_filename)) { - file_put_contents($destination_filename, $thisfile_ape_items_current['data']); - } else { - $info['warning'][] = 'attachment at '.$thisfile_ape_items_current['offset'].' cannot be saved to "'.$destination_filename.'" (not writable)'; - } - $thisfile_ape_items_current['data_filename'] = $destination_filename; - unset($thisfile_ape_items_current['data']); - } else { - if (!isset($info['ape']['comments']['picture'])) { - $info['ape']['comments']['picture'] = array(); - } - $info['ape']['comments']['picture'][] = array('data'=>$thisfile_ape_items_current['data'], 'image_mime'=>$thisfile_ape_items_current['image_mime']); - } - } while (false); - break; - - default: - if (is_array($thisfile_ape_items_current['data'])) { - foreach ($thisfile_ape_items_current['data'] as $comment) { - $thisfile_ape['comments'][strtolower($item_key)][] = $comment; - } - } - break; - } - - } - if (empty($thisfile_replaygain)) { - unset($info['replay_gain']); - } - return true; - } - - public function parseAPEheaderFooter($APEheaderFooterData) { - // http://www.uni-jena.de/~pfk/mpp/sv8/apeheader.html - - // shortcut - $headerfooterinfo['raw'] = array(); - $headerfooterinfo_raw = &$headerfooterinfo['raw']; - - $headerfooterinfo_raw['footer_tag'] = substr($APEheaderFooterData, 0, 8); - if ($headerfooterinfo_raw['footer_tag'] != 'APETAGEX') { - return false; - } - $headerfooterinfo_raw['version'] = getid3_lib::LittleEndian2Int(substr($APEheaderFooterData, 8, 4)); - $headerfooterinfo_raw['tagsize'] = getid3_lib::LittleEndian2Int(substr($APEheaderFooterData, 12, 4)); - $headerfooterinfo_raw['tag_items'] = getid3_lib::LittleEndian2Int(substr($APEheaderFooterData, 16, 4)); - $headerfooterinfo_raw['global_flags'] = getid3_lib::LittleEndian2Int(substr($APEheaderFooterData, 20, 4)); - $headerfooterinfo_raw['reserved'] = substr($APEheaderFooterData, 24, 8); - - $headerfooterinfo['tag_version'] = $headerfooterinfo_raw['version'] / 1000; - if ($headerfooterinfo['tag_version'] >= 2) { - $headerfooterinfo['flags'] = $this->parseAPEtagFlags($headerfooterinfo_raw['global_flags']); - } - return $headerfooterinfo; - } - - public function parseAPEtagFlags($rawflagint) { - // "Note: APE Tags 1.0 do not use any of the APE Tag flags. - // All are set to zero on creation and ignored on reading." - // http://www.uni-jena.de/~pfk/mpp/sv8/apetagflags.html - $flags['header'] = (bool) ($rawflagint & 0x80000000); - $flags['footer'] = (bool) ($rawflagint & 0x40000000); - $flags['this_is_header'] = (bool) ($rawflagint & 0x20000000); - $flags['item_contents_raw'] = ($rawflagint & 0x00000006) >> 1; - $flags['read_only'] = (bool) ($rawflagint & 0x00000001); - - $flags['item_contents'] = $this->APEcontentTypeFlagLookup($flags['item_contents_raw']); - - return $flags; - } - - public function APEcontentTypeFlagLookup($contenttypeid) { - static $APEcontentTypeFlagLookup = array( - 0 => 'utf-8', - 1 => 'binary', - 2 => 'external', - 3 => 'reserved' - ); - return (isset($APEcontentTypeFlagLookup[$contenttypeid]) ? $APEcontentTypeFlagLookup[$contenttypeid] : 'invalid'); - } - - public function APEtagItemIsUTF8Lookup($itemkey) { - static $APEtagItemIsUTF8Lookup = array( - 'title', - 'subtitle', - 'artist', - 'album', - 'debut album', - 'publisher', - 'conductor', - 'track', - 'composer', - 'comment', - 'copyright', - 'publicationright', - 'file', - 'year', - 'record date', - 'record location', - 'genre', - 'media', - 'related', - 'isrc', - 'abstract', - 'language', - 'bibliography' - ); - return in_array(strtolower($itemkey), $APEtagItemIsUTF8Lookup); - } - -} diff --git a/web/htdocs/media/lib/getid3/module.tag.id3v1.php b/web/htdocs/media/lib/getid3/module.tag.id3v1.php deleted file mode 100644 index fd9069e04a1..00000000000 --- a/web/htdocs/media/lib/getid3/module.tag.id3v1.php +++ /dev/null @@ -1,359 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.tag.id3v1.php // -// module for analyzing ID3v1 tags // -// dependencies: NONE // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_id3v1 extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - if (!getid3_lib::intValueSupported($info['filesize'])) { - $info['warning'][] = 'Unable to check for ID3v1 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - - fseek($this->getid3->fp, -256, SEEK_END); - $preid3v1 = fread($this->getid3->fp, 128); - $id3v1tag = fread($this->getid3->fp, 128); - - if (substr($id3v1tag, 0, 3) == 'TAG') { - - $info['avdataend'] = $info['filesize'] - 128; - - $ParsedID3v1['title'] = $this->cutfield(substr($id3v1tag, 3, 30)); - $ParsedID3v1['artist'] = $this->cutfield(substr($id3v1tag, 33, 30)); - $ParsedID3v1['album'] = $this->cutfield(substr($id3v1tag, 63, 30)); - $ParsedID3v1['year'] = $this->cutfield(substr($id3v1tag, 93, 4)); - $ParsedID3v1['comment'] = substr($id3v1tag, 97, 30); // can't remove nulls yet, track detection depends on them - $ParsedID3v1['genreid'] = ord(substr($id3v1tag, 127, 1)); - - // If second-last byte of comment field is null and last byte of comment field is non-null - // then this is ID3v1.1 and the comment field is 28 bytes long and the 30th byte is the track number - if (($id3v1tag{125} === "\x00") && ($id3v1tag{126} !== "\x00")) { - $ParsedID3v1['track'] = ord(substr($ParsedID3v1['comment'], 29, 1)); - $ParsedID3v1['comment'] = substr($ParsedID3v1['comment'], 0, 28); - } - $ParsedID3v1['comment'] = $this->cutfield($ParsedID3v1['comment']); - - $ParsedID3v1['genre'] = $this->LookupGenreName($ParsedID3v1['genreid']); - if (!empty($ParsedID3v1['genre'])) { - unset($ParsedID3v1['genreid']); - } - if (isset($ParsedID3v1['genre']) && (empty($ParsedID3v1['genre']) || ($ParsedID3v1['genre'] == 'Unknown'))) { - unset($ParsedID3v1['genre']); - } - - foreach ($ParsedID3v1 as $key => $value) { - $ParsedID3v1['comments'][$key][0] = $value; - } - - // ID3v1 data is supposed to be padded with NULL characters, but some taggers pad with spaces - $GoodFormatID3v1tag = $this->GenerateID3v1Tag( - $ParsedID3v1['title'], - $ParsedID3v1['artist'], - $ParsedID3v1['album'], - $ParsedID3v1['year'], - (isset($ParsedID3v1['genre']) ? $this->LookupGenreID($ParsedID3v1['genre']) : false), - $ParsedID3v1['comment'], - (!empty($ParsedID3v1['track']) ? $ParsedID3v1['track'] : '')); - $ParsedID3v1['padding_valid'] = true; - if ($id3v1tag !== $GoodFormatID3v1tag) { - $ParsedID3v1['padding_valid'] = false; - $info['warning'][] = 'Some ID3v1 fields do not use NULL characters for padding'; - } - - $ParsedID3v1['tag_offset_end'] = $info['filesize']; - $ParsedID3v1['tag_offset_start'] = $ParsedID3v1['tag_offset_end'] - 128; - - $info['id3v1'] = $ParsedID3v1; - } - - if (substr($preid3v1, 0, 3) == 'TAG') { - // The way iTunes handles tags is, well, brain-damaged. - // It completely ignores v1 if ID3v2 is present. - // This goes as far as adding a new v1 tag *even if there already is one* - - // A suspected double-ID3v1 tag has been detected, but it could be that - // the "TAG" identifier is a legitimate part of an APE or Lyrics3 tag - if (substr($preid3v1, 96, 8) == 'APETAGEX') { - // an APE tag footer was found before the last ID3v1, assume false "TAG" synch - } elseif (substr($preid3v1, 119, 6) == 'LYRICS') { - // a Lyrics3 tag footer was found before the last ID3v1, assume false "TAG" synch - } else { - // APE and Lyrics3 footers not found - assume double ID3v1 - $info['warning'][] = 'Duplicate ID3v1 tag detected - this has been known to happen with iTunes'; - $info['avdataend'] -= 128; - } - } - - return true; - } - - public static function cutfield($str) { - return trim(substr($str, 0, strcspn($str, "\x00"))); - } - - public static function ArrayOfGenres($allowSCMPXextended=false) { - static $GenreLookup = array( - 0 => 'Blues', - 1 => 'Classic Rock', - 2 => 'Country', - 3 => 'Dance', - 4 => 'Disco', - 5 => 'Funk', - 6 => 'Grunge', - 7 => 'Hip-Hop', - 8 => 'Jazz', - 9 => 'Metal', - 10 => 'New Age', - 11 => 'Oldies', - 12 => 'Other', - 13 => 'Pop', - 14 => 'R&B', - 15 => 'Rap', - 16 => 'Reggae', - 17 => 'Rock', - 18 => 'Techno', - 19 => 'Industrial', - 20 => 'Alternative', - 21 => 'Ska', - 22 => 'Death Metal', - 23 => 'Pranks', - 24 => 'Soundtrack', - 25 => 'Euro-Techno', - 26 => 'Ambient', - 27 => 'Trip-Hop', - 28 => 'Vocal', - 29 => 'Jazz+Funk', - 30 => 'Fusion', - 31 => 'Trance', - 32 => 'Classical', - 33 => 'Instrumental', - 34 => 'Acid', - 35 => 'House', - 36 => 'Game', - 37 => 'Sound Clip', - 38 => 'Gospel', - 39 => 'Noise', - 40 => 'Alt. Rock', - 41 => 'Bass', - 42 => 'Soul', - 43 => 'Punk', - 44 => 'Space', - 45 => 'Meditative', - 46 => 'Instrumental Pop', - 47 => 'Instrumental Rock', - 48 => 'Ethnic', - 49 => 'Gothic', - 50 => 'Darkwave', - 51 => 'Techno-Industrial', - 52 => 'Electronic', - 53 => 'Pop-Folk', - 54 => 'Eurodance', - 55 => 'Dream', - 56 => 'Southern Rock', - 57 => 'Comedy', - 58 => 'Cult', - 59 => 'Gangsta Rap', - 60 => 'Top 40', - 61 => 'Christian Rap', - 62 => 'Pop/Funk', - 63 => 'Jungle', - 64 => 'Native American', - 65 => 'Cabaret', - 66 => 'New Wave', - 67 => 'Psychedelic', - 68 => 'Rave', - 69 => 'Showtunes', - 70 => 'Trailer', - 71 => 'Lo-Fi', - 72 => 'Tribal', - 73 => 'Acid Punk', - 74 => 'Acid Jazz', - 75 => 'Polka', - 76 => 'Retro', - 77 => 'Musical', - 78 => 'Rock & Roll', - 79 => 'Hard Rock', - 80 => 'Folk', - 81 => 'Folk/Rock', - 82 => 'National Folk', - 83 => 'Swing', - 84 => 'Fast-Fusion', - 85 => 'Bebob', - 86 => 'Latin', - 87 => 'Revival', - 88 => 'Celtic', - 89 => 'Bluegrass', - 90 => 'Avantgarde', - 91 => 'Gothic Rock', - 92 => 'Progressive Rock', - 93 => 'Psychedelic Rock', - 94 => 'Symphonic Rock', - 95 => 'Slow Rock', - 96 => 'Big Band', - 97 => 'Chorus', - 98 => 'Easy Listening', - 99 => 'Acoustic', - 100 => 'Humour', - 101 => 'Speech', - 102 => 'Chanson', - 103 => 'Opera', - 104 => 'Chamber Music', - 105 => 'Sonata', - 106 => 'Symphony', - 107 => 'Booty Bass', - 108 => 'Primus', - 109 => 'Porn Groove', - 110 => 'Satire', - 111 => 'Slow Jam', - 112 => 'Club', - 113 => 'Tango', - 114 => 'Samba', - 115 => 'Folklore', - 116 => 'Ballad', - 117 => 'Power Ballad', - 118 => 'Rhythmic Soul', - 119 => 'Freestyle', - 120 => 'Duet', - 121 => 'Punk Rock', - 122 => 'Drum Solo', - 123 => 'A Cappella', - 124 => 'Euro-House', - 125 => 'Dance Hall', - 126 => 'Goa', - 127 => 'Drum & Bass', - 128 => 'Club-House', - 129 => 'Hardcore', - 130 => 'Terror', - 131 => 'Indie', - 132 => 'BritPop', - 133 => 'Negerpunk', - 134 => 'Polsk Punk', - 135 => 'Beat', - 136 => 'Christian Gangsta Rap', - 137 => 'Heavy Metal', - 138 => 'Black Metal', - 139 => 'Crossover', - 140 => 'Contemporary Christian', - 141 => 'Christian Rock', - 142 => 'Merengue', - 143 => 'Salsa', - 144 => 'Thrash Metal', - 145 => 'Anime', - 146 => 'JPop', - 147 => 'Synthpop', - - 255 => 'Unknown', - - 'CR' => 'Cover', - 'RX' => 'Remix' - ); - - static $GenreLookupSCMPX = array(); - if ($allowSCMPXextended && empty($GenreLookupSCMPX)) { - $GenreLookupSCMPX = $GenreLookup; - // http://www.geocities.co.jp/SiliconValley-Oakland/3664/alittle.html#GenreExtended - // Extended ID3v1 genres invented by SCMPX - // Note that 255 "Japanese Anime" conflicts with standard "Unknown" - $GenreLookupSCMPX[240] = 'Sacred'; - $GenreLookupSCMPX[241] = 'Northern Europe'; - $GenreLookupSCMPX[242] = 'Irish & Scottish'; - $GenreLookupSCMPX[243] = 'Scotland'; - $GenreLookupSCMPX[244] = 'Ethnic Europe'; - $GenreLookupSCMPX[245] = 'Enka'; - $GenreLookupSCMPX[246] = 'Children\'s Song'; - $GenreLookupSCMPX[247] = 'Japanese Sky'; - $GenreLookupSCMPX[248] = 'Japanese Heavy Rock'; - $GenreLookupSCMPX[249] = 'Japanese Doom Rock'; - $GenreLookupSCMPX[250] = 'Japanese J-POP'; - $GenreLookupSCMPX[251] = 'Japanese Seiyu'; - $GenreLookupSCMPX[252] = 'Japanese Ambient Techno'; - $GenreLookupSCMPX[253] = 'Japanese Moemoe'; - $GenreLookupSCMPX[254] = 'Japanese Tokusatsu'; - //$GenreLookupSCMPX[255] = 'Japanese Anime'; - } - - return ($allowSCMPXextended ? $GenreLookupSCMPX : $GenreLookup); - } - - public static function LookupGenreName($genreid, $allowSCMPXextended=true) { - switch ($genreid) { - case 'RX': - case 'CR': - break; - default: - if (!is_numeric($genreid)) { - return false; - } - $genreid = intval($genreid); // to handle 3 or '3' or '03' - break; - } - $GenreLookup = self::ArrayOfGenres($allowSCMPXextended); - return (isset($GenreLookup[$genreid]) ? $GenreLookup[$genreid] : false); - } - - public static function LookupGenreID($genre, $allowSCMPXextended=false) { - $GenreLookup = self::ArrayOfGenres($allowSCMPXextended); - $LowerCaseNoSpaceSearchTerm = strtolower(str_replace(' ', '', $genre)); - foreach ($GenreLookup as $key => $value) { - if (strtolower(str_replace(' ', '', $value)) == $LowerCaseNoSpaceSearchTerm) { - return $key; - } - } - return false; - } - - public static function StandardiseID3v1GenreName($OriginalGenre) { - if (($GenreID = self::LookupGenreID($OriginalGenre)) !== false) { - return self::LookupGenreName($GenreID); - } - return $OriginalGenre; - } - - public static function GenerateID3v1Tag($title, $artist, $album, $year, $genreid, $comment, $track='') { - $ID3v1Tag = 'TAG'; - $ID3v1Tag .= str_pad(trim(substr($title, 0, 30)), 30, "\x00", STR_PAD_RIGHT); - $ID3v1Tag .= str_pad(trim(substr($artist, 0, 30)), 30, "\x00", STR_PAD_RIGHT); - $ID3v1Tag .= str_pad(trim(substr($album, 0, 30)), 30, "\x00", STR_PAD_RIGHT); - $ID3v1Tag .= str_pad(trim(substr($year, 0, 4)), 4, "\x00", STR_PAD_LEFT); - if (!empty($track) && ($track > 0) && ($track <= 255)) { - $ID3v1Tag .= str_pad(trim(substr($comment, 0, 28)), 28, "\x00", STR_PAD_RIGHT); - $ID3v1Tag .= "\x00"; - if (gettype($track) == 'string') { - $track = (int) $track; - } - $ID3v1Tag .= chr($track); - } else { - $ID3v1Tag .= str_pad(trim(substr($comment, 0, 30)), 30, "\x00", STR_PAD_RIGHT); - } - if (($genreid < 0) || ($genreid > 147)) { - $genreid = 255; // 'unknown' genre - } - switch (gettype($genreid)) { - case 'string': - case 'integer': - $ID3v1Tag .= chr(intval($genreid)); - break; - default: - $ID3v1Tag .= chr(255); // 'unknown' genre - break; - } - - return $ID3v1Tag; - } - -} diff --git a/web/htdocs/media/lib/getid3/module.tag.id3v2.php b/web/htdocs/media/lib/getid3/module.tag.id3v2.php deleted file mode 100644 index b08f9f9a3bb..00000000000 --- a/web/htdocs/media/lib/getid3/module.tag.id3v2.php +++ /dev/null @@ -1,3414 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -/// // -// module.tag.id3v2.php // -// module for analyzing ID3v2 tags // -// dependencies: module.tag.id3v1.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v1.php', __FILE__, true); - -class getid3_id3v2 extends getid3_handler -{ - public $StartingOffset = 0; - - public function Analyze() { - $info = &$this->getid3->info; - - // Overall tag structure: - // +-----------------------------+ - // | Header (10 bytes) | - // +-----------------------------+ - // | Extended Header | - // | (variable length, OPTIONAL) | - // +-----------------------------+ - // | Frames (variable length) | - // +-----------------------------+ - // | Padding | - // | (variable length, OPTIONAL) | - // +-----------------------------+ - // | Footer (10 bytes, OPTIONAL) | - // +-----------------------------+ - - // Header - // ID3v2/file identifier "ID3" - // ID3v2 version $04 00 - // ID3v2 flags (%ab000000 in v2.2, %abc00000 in v2.3, %abcd0000 in v2.4.x) - // ID3v2 size 4 * %0xxxxxxx - - - // shortcuts - $info['id3v2']['header'] = true; - $thisfile_id3v2 = &$info['id3v2']; - $thisfile_id3v2['flags'] = array(); - $thisfile_id3v2_flags = &$thisfile_id3v2['flags']; - - - fseek($this->getid3->fp, $this->StartingOffset, SEEK_SET); - $header = fread($this->getid3->fp, 10); - if (substr($header, 0, 3) == 'ID3' && strlen($header) == 10) { - - $thisfile_id3v2['majorversion'] = ord($header{3}); - $thisfile_id3v2['minorversion'] = ord($header{4}); - - // shortcut - $id3v2_majorversion = &$thisfile_id3v2['majorversion']; - - } else { - - unset($info['id3v2']); - return false; - - } - - if ($id3v2_majorversion > 4) { // this script probably won't correctly parse ID3v2.5.x and above (if it ever exists) - - $info['error'][] = 'this script only parses up to ID3v2.4.x - this tag is ID3v2.'.$id3v2_majorversion.'.'.$thisfile_id3v2['minorversion']; - return false; - - } - - $id3_flags = ord($header{5}); - switch ($id3v2_majorversion) { - case 2: - // %ab000000 in v2.2 - $thisfile_id3v2_flags['unsynch'] = (bool) ($id3_flags & 0x80); // a - Unsynchronisation - $thisfile_id3v2_flags['compression'] = (bool) ($id3_flags & 0x40); // b - Compression - break; - - case 3: - // %abc00000 in v2.3 - $thisfile_id3v2_flags['unsynch'] = (bool) ($id3_flags & 0x80); // a - Unsynchronisation - $thisfile_id3v2_flags['exthead'] = (bool) ($id3_flags & 0x40); // b - Extended header - $thisfile_id3v2_flags['experim'] = (bool) ($id3_flags & 0x20); // c - Experimental indicator - break; - - case 4: - // %abcd0000 in v2.4 - $thisfile_id3v2_flags['unsynch'] = (bool) ($id3_flags & 0x80); // a - Unsynchronisation - $thisfile_id3v2_flags['exthead'] = (bool) ($id3_flags & 0x40); // b - Extended header - $thisfile_id3v2_flags['experim'] = (bool) ($id3_flags & 0x20); // c - Experimental indicator - $thisfile_id3v2_flags['isfooter'] = (bool) ($id3_flags & 0x10); // d - Footer present - break; - } - - $thisfile_id3v2['headerlength'] = getid3_lib::BigEndian2Int(substr($header, 6, 4), 1) + 10; // length of ID3v2 tag in 10-byte header doesn't include 10-byte header length - - $thisfile_id3v2['tag_offset_start'] = $this->StartingOffset; - $thisfile_id3v2['tag_offset_end'] = $thisfile_id3v2['tag_offset_start'] + $thisfile_id3v2['headerlength']; - - - - // create 'encoding' key - used by getid3::HandleAllTags() - // in ID3v2 every field can have it's own encoding type - // so force everything to UTF-8 so it can be handled consistantly - $thisfile_id3v2['encoding'] = 'UTF-8'; - - - // Frames - - // All ID3v2 frames consists of one frame header followed by one or more - // fields containing the actual information. The header is always 10 - // bytes and laid out as follows: - // - // Frame ID $xx xx xx xx (four characters) - // Size 4 * %0xxxxxxx - // Flags $xx xx - - $sizeofframes = $thisfile_id3v2['headerlength'] - 10; // not including 10-byte initial header - if (!empty($thisfile_id3v2['exthead']['length'])) { - $sizeofframes -= ($thisfile_id3v2['exthead']['length'] + 4); - } - if (!empty($thisfile_id3v2_flags['isfooter'])) { - $sizeofframes -= 10; // footer takes last 10 bytes of ID3v2 header, after frame data, before audio - } - if ($sizeofframes > 0) { - - $framedata = fread($this->getid3->fp, $sizeofframes); // read all frames from file into $framedata variable - - // if entire frame data is unsynched, de-unsynch it now (ID3v2.3.x) - if (!empty($thisfile_id3v2_flags['unsynch']) && ($id3v2_majorversion <= 3)) { - $framedata = $this->DeUnsynchronise($framedata); - } - // [in ID3v2.4.0] Unsynchronisation [S:6.1] is done on frame level, instead - // of on tag level, making it easier to skip frames, increasing the streamability - // of the tag. The unsynchronisation flag in the header [S:3.1] indicates that - // there exists an unsynchronised frame, while the new unsynchronisation flag in - // the frame header [S:4.1.2] indicates unsynchronisation. - - - //$framedataoffset = 10 + ($thisfile_id3v2['exthead']['length'] ? $thisfile_id3v2['exthead']['length'] + 4 : 0); // how many bytes into the stream - start from after the 10-byte header (and extended header length+4, if present) - $framedataoffset = 10; // how many bytes into the stream - start from after the 10-byte header - - - // Extended Header - if (!empty($thisfile_id3v2_flags['exthead'])) { - $extended_header_offset = 0; - - if ($id3v2_majorversion == 3) { - - // v2.3 definition: - //Extended header size $xx xx xx xx // 32-bit integer - //Extended Flags $xx xx - // %x0000000 %00000000 // v2.3 - // x - CRC data present - //Size of padding $xx xx xx xx - - $thisfile_id3v2['exthead']['length'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4), 0); - $extended_header_offset += 4; - - $thisfile_id3v2['exthead']['flag_bytes'] = 2; - $thisfile_id3v2['exthead']['flag_raw'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $thisfile_id3v2['exthead']['flag_bytes'])); - $extended_header_offset += $thisfile_id3v2['exthead']['flag_bytes']; - - $thisfile_id3v2['exthead']['flags']['crc'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x8000); - - $thisfile_id3v2['exthead']['padding_size'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4)); - $extended_header_offset += 4; - - if ($thisfile_id3v2['exthead']['flags']['crc']) { - $thisfile_id3v2['exthead']['flag_data']['crc'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4)); - $extended_header_offset += 4; - } - $extended_header_offset += $thisfile_id3v2['exthead']['padding_size']; - - } elseif ($id3v2_majorversion == 4) { - - // v2.4 definition: - //Extended header size 4 * %0xxxxxxx // 28-bit synchsafe integer - //Number of flag bytes $01 - //Extended Flags $xx - // %0bcd0000 // v2.4 - // b - Tag is an update - // Flag data length $00 - // c - CRC data present - // Flag data length $05 - // Total frame CRC 5 * %0xxxxxxx - // d - Tag restrictions - // Flag data length $01 - - $thisfile_id3v2['exthead']['length'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4), true); - $extended_header_offset += 4; - - $thisfile_id3v2['exthead']['flag_bytes'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should always be 1 - $extended_header_offset += 1; - - $thisfile_id3v2['exthead']['flag_raw'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $thisfile_id3v2['exthead']['flag_bytes'])); - $extended_header_offset += $thisfile_id3v2['exthead']['flag_bytes']; - - $thisfile_id3v2['exthead']['flags']['update'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x40); - $thisfile_id3v2['exthead']['flags']['crc'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x20); - $thisfile_id3v2['exthead']['flags']['restrictions'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x10); - - if ($thisfile_id3v2['exthead']['flags']['update']) { - $ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 0 - $extended_header_offset += 1; - } - - if ($thisfile_id3v2['exthead']['flags']['crc']) { - $ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 5 - $extended_header_offset += 1; - $thisfile_id3v2['exthead']['flag_data']['crc'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $ext_header_chunk_length), true, false); - $extended_header_offset += $ext_header_chunk_length; - } - - if ($thisfile_id3v2['exthead']['flags']['restrictions']) { - $ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 1 - $extended_header_offset += 1; - - // %ppqrrstt - $restrictions_raw = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); - $extended_header_offset += 1; - $thisfile_id3v2['exthead']['flags']['restrictions']['tagsize'] = ($restrictions_raw & 0xC0) >> 6; // p - Tag size restrictions - $thisfile_id3v2['exthead']['flags']['restrictions']['textenc'] = ($restrictions_raw & 0x20) >> 5; // q - Text encoding restrictions - $thisfile_id3v2['exthead']['flags']['restrictions']['textsize'] = ($restrictions_raw & 0x18) >> 3; // r - Text fields size restrictions - $thisfile_id3v2['exthead']['flags']['restrictions']['imgenc'] = ($restrictions_raw & 0x04) >> 2; // s - Image encoding restrictions - $thisfile_id3v2['exthead']['flags']['restrictions']['imgsize'] = ($restrictions_raw & 0x03) >> 0; // t - Image size restrictions - - $thisfile_id3v2['exthead']['flags']['restrictions_text']['tagsize'] = $this->LookupExtendedHeaderRestrictionsTagSizeLimits($thisfile_id3v2['exthead']['flags']['restrictions']['tagsize']); - $thisfile_id3v2['exthead']['flags']['restrictions_text']['textenc'] = $this->LookupExtendedHeaderRestrictionsTextEncodings($thisfile_id3v2['exthead']['flags']['restrictions']['textenc']); - $thisfile_id3v2['exthead']['flags']['restrictions_text']['textsize'] = $this->LookupExtendedHeaderRestrictionsTextFieldSize($thisfile_id3v2['exthead']['flags']['restrictions']['textsize']); - $thisfile_id3v2['exthead']['flags']['restrictions_text']['imgenc'] = $this->LookupExtendedHeaderRestrictionsImageEncoding($thisfile_id3v2['exthead']['flags']['restrictions']['imgenc']); - $thisfile_id3v2['exthead']['flags']['restrictions_text']['imgsize'] = $this->LookupExtendedHeaderRestrictionsImageSizeSize($thisfile_id3v2['exthead']['flags']['restrictions']['imgsize']); - } - - if ($thisfile_id3v2['exthead']['length'] != $extended_header_offset) { - $info['warning'][] = 'ID3v2.4 extended header length mismatch (expecting '.intval($thisfile_id3v2['exthead']['length']).', found '.intval($extended_header_offset).')'; - } - } - - $framedataoffset += $extended_header_offset; - $framedata = substr($framedata, $extended_header_offset); - } // end extended header - - - while (isset($framedata) && (strlen($framedata) > 0)) { // cycle through until no more frame data is left to parse - if (strlen($framedata) <= $this->ID3v2HeaderLength($id3v2_majorversion)) { - // insufficient room left in ID3v2 header for actual data - must be padding - $thisfile_id3v2['padding']['start'] = $framedataoffset; - $thisfile_id3v2['padding']['length'] = strlen($framedata); - $thisfile_id3v2['padding']['valid'] = true; - for ($i = 0; $i < $thisfile_id3v2['padding']['length']; $i++) { - if ($framedata{$i} != "\x00") { - $thisfile_id3v2['padding']['valid'] = false; - $thisfile_id3v2['padding']['errorpos'] = $thisfile_id3v2['padding']['start'] + $i; - $info['warning'][] = 'Invalid ID3v2 padding found at offset '.$thisfile_id3v2['padding']['errorpos'].' (the remaining '.($thisfile_id3v2['padding']['length'] - $i).' bytes are considered invalid)'; - break; - } - } - break; // skip rest of ID3v2 header - } - if ($id3v2_majorversion == 2) { - // Frame ID $xx xx xx (three characters) - // Size $xx xx xx (24-bit integer) - // Flags $xx xx - - $frame_header = substr($framedata, 0, 6); // take next 6 bytes for header - $framedata = substr($framedata, 6); // and leave the rest in $framedata - $frame_name = substr($frame_header, 0, 3); - $frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 3, 3), 0); - $frame_flags = 0; // not used for anything in ID3v2.2, just set to avoid E_NOTICEs - - } elseif ($id3v2_majorversion > 2) { - - // Frame ID $xx xx xx xx (four characters) - // Size $xx xx xx xx (32-bit integer in v2.3, 28-bit synchsafe in v2.4+) - // Flags $xx xx - - $frame_header = substr($framedata, 0, 10); // take next 10 bytes for header - $framedata = substr($framedata, 10); // and leave the rest in $framedata - - $frame_name = substr($frame_header, 0, 4); - if ($id3v2_majorversion == 3) { - $frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0); // 32-bit integer - } else { // ID3v2.4+ - $frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 1); // 32-bit synchsafe integer (28-bit value) - } - - if ($frame_size < (strlen($framedata) + 4)) { - $nextFrameID = substr($framedata, $frame_size, 4); - if ($this->IsValidID3v2FrameName($nextFrameID, $id3v2_majorversion)) { - // next frame is OK - } elseif (($frame_name == "\x00".'MP3') || ($frame_name == "\x00\x00".'MP') || ($frame_name == ' MP3') || ($frame_name == 'MP3e')) { - // MP3ext known broken frames - "ok" for the purposes of this test - } elseif (($id3v2_majorversion == 4) && ($this->IsValidID3v2FrameName(substr($framedata, getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0), 4), 3))) { - $info['warning'][] = 'ID3v2 tag written as ID3v2.4, but with non-synchsafe integers (ID3v2.3 style). Older versions of (Helium2; iTunes) are known culprits of this. Tag has been parsed as ID3v2.3'; - $id3v2_majorversion = 3; - $frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0); // 32-bit integer - } - } - - - $frame_flags = getid3_lib::BigEndian2Int(substr($frame_header, 8, 2)); - } - - if ((($id3v2_majorversion == 2) && ($frame_name == "\x00\x00\x00")) || ($frame_name == "\x00\x00\x00\x00")) { - // padding encountered - - $thisfile_id3v2['padding']['start'] = $framedataoffset; - $thisfile_id3v2['padding']['length'] = strlen($frame_header) + strlen($framedata); - $thisfile_id3v2['padding']['valid'] = true; - - $len = strlen($framedata); - for ($i = 0; $i < $len; $i++) { - if ($framedata{$i} != "\x00") { - $thisfile_id3v2['padding']['valid'] = false; - $thisfile_id3v2['padding']['errorpos'] = $thisfile_id3v2['padding']['start'] + $i; - $info['warning'][] = 'Invalid ID3v2 padding found at offset '.$thisfile_id3v2['padding']['errorpos'].' (the remaining '.($thisfile_id3v2['padding']['length'] - $i).' bytes are considered invalid)'; - break; - } - } - break; // skip rest of ID3v2 header - } - - if ($frame_name == 'COM ') { - $info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))). [Note: this particular error has been known to happen with tags edited by iTunes (versions "X v2.0.3", "v3.0.1" are known-guilty, probably others too)]'; - $frame_name = 'COMM'; - } - if (($frame_size <= strlen($framedata)) && ($this->IsValidID3v2FrameName($frame_name, $id3v2_majorversion))) { - - unset($parsedFrame); - $parsedFrame['frame_name'] = $frame_name; - $parsedFrame['frame_flags_raw'] = $frame_flags; - $parsedFrame['data'] = substr($framedata, 0, $frame_size); - $parsedFrame['datalength'] = getid3_lib::CastAsInt($frame_size); - $parsedFrame['dataoffset'] = $framedataoffset; - - $this->ParseID3v2Frame($parsedFrame); - $thisfile_id3v2[$frame_name][] = $parsedFrame; - - $framedata = substr($framedata, $frame_size); - - } else { // invalid frame length or FrameID - - if ($frame_size <= strlen($framedata)) { - - if ($this->IsValidID3v2FrameName(substr($framedata, $frame_size, 4), $id3v2_majorversion)) { - - // next frame is valid, just skip the current frame - $framedata = substr($framedata, $frame_size); - $info['warning'][] = 'Next ID3v2 frame is valid, skipping current frame.'; - - } else { - - // next frame is invalid too, abort processing - //unset($framedata); - $framedata = null; - $info['error'][] = 'Next ID3v2 frame is also invalid, aborting processing.'; - - } - - } elseif ($frame_size == strlen($framedata)) { - - // this is the last frame, just skip - $info['warning'][] = 'This was the last ID3v2 frame.'; - - } else { - - // next frame is invalid too, abort processing - //unset($framedata); - $framedata = null; - $info['warning'][] = 'Invalid ID3v2 frame size, aborting.'; - - } - if (!$this->IsValidID3v2FrameName($frame_name, $id3v2_majorversion)) { - - switch ($frame_name) { - case "\x00\x00".'MP': - case "\x00".'MP3': - case ' MP3': - case 'MP3e': - case "\x00".'MP': - case ' MP': - case 'MP3': - $info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: !IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))). [Note: this particular error has been known to happen with tags edited by "MP3ext (www.mutschler.de/mp3ext/)"]'; - break; - - default: - $info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: !IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))).'; - break; - } - - } elseif (!isset($framedata) || ($frame_size > strlen($framedata))) { - - $info['error'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: $frame_size ('.$frame_size.') > strlen($framedata) ('.(isset($framedata) ? strlen($framedata) : 'null').')).'; - - } else { - - $info['error'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag).'; - - } - - } - $framedataoffset += ($frame_size + $this->ID3v2HeaderLength($id3v2_majorversion)); - - } - - } - - - // Footer - - // The footer is a copy of the header, but with a different identifier. - // ID3v2 identifier "3DI" - // ID3v2 version $04 00 - // ID3v2 flags %abcd0000 - // ID3v2 size 4 * %0xxxxxxx - - if (isset($thisfile_id3v2_flags['isfooter']) && $thisfile_id3v2_flags['isfooter']) { - $footer = fread($this->getid3->fp, 10); - if (substr($footer, 0, 3) == '3DI') { - $thisfile_id3v2['footer'] = true; - $thisfile_id3v2['majorversion_footer'] = ord($footer{3}); - $thisfile_id3v2['minorversion_footer'] = ord($footer{4}); - } - if ($thisfile_id3v2['majorversion_footer'] <= 4) { - $id3_flags = ord(substr($footer{5})); - $thisfile_id3v2_flags['unsynch_footer'] = (bool) ($id3_flags & 0x80); - $thisfile_id3v2_flags['extfoot_footer'] = (bool) ($id3_flags & 0x40); - $thisfile_id3v2_flags['experim_footer'] = (bool) ($id3_flags & 0x20); - $thisfile_id3v2_flags['isfooter_footer'] = (bool) ($id3_flags & 0x10); - - $thisfile_id3v2['footerlength'] = getid3_lib::BigEndian2Int(substr($footer, 6, 4), 1); - } - } // end footer - - if (isset($thisfile_id3v2['comments']['genre'])) { - foreach ($thisfile_id3v2['comments']['genre'] as $key => $value) { - unset($thisfile_id3v2['comments']['genre'][$key]); - $thisfile_id3v2['comments'] = getid3_lib::array_merge_noclobber($thisfile_id3v2['comments'], array('genre'=>$this->ParseID3v2GenreString($value))); - } - } - - if (isset($thisfile_id3v2['comments']['track'])) { - foreach ($thisfile_id3v2['comments']['track'] as $key => $value) { - if (strstr($value, '/')) { - list($thisfile_id3v2['comments']['tracknum'][$key], $thisfile_id3v2['comments']['totaltracks'][$key]) = explode('/', $thisfile_id3v2['comments']['track'][$key]); - } - } - } - - if (!isset($thisfile_id3v2['comments']['year']) && !empty($thisfile_id3v2['comments']['recording_time'][0]) && preg_match('#^([0-9]{4})#', trim($thisfile_id3v2['comments']['recording_time'][0]), $matches)) { - $thisfile_id3v2['comments']['year'] = array($matches[1]); - } - - - if (!empty($thisfile_id3v2['TXXX'])) { - // MediaMonkey does this, maybe others: write a blank RGAD frame, but put replay-gain adjustment values in TXXX frames - foreach ($thisfile_id3v2['TXXX'] as $txxx_array) { - switch ($txxx_array['description']) { - case 'replaygain_track_gain': - if (empty($info['replay_gain']['track']['adjustment']) && !empty($txxx_array['data'])) { - $info['replay_gain']['track']['adjustment'] = floatval(trim(str_replace('dB', '', $txxx_array['data']))); - } - break; - case 'replaygain_track_peak': - if (empty($info['replay_gain']['track']['peak']) && !empty($txxx_array['data'])) { - $info['replay_gain']['track']['peak'] = floatval($txxx_array['data']); - } - break; - case 'replaygain_album_gain': - if (empty($info['replay_gain']['album']['adjustment']) && !empty($txxx_array['data'])) { - $info['replay_gain']['album']['adjustment'] = floatval(trim(str_replace('dB', '', $txxx_array['data']))); - } - break; - } - } - } - - - // Set avdataoffset - $info['avdataoffset'] = $thisfile_id3v2['headerlength']; - if (isset($thisfile_id3v2['footer'])) { - $info['avdataoffset'] += 10; - } - - return true; - } - - - public function ParseID3v2GenreString($genrestring) { - // Parse genres into arrays of genreName and genreID - // ID3v2.2.x, ID3v2.3.x: '(21)' or '(4)Eurodisco' or '(51)(39)' or '(55)((I think...)' - // ID3v2.4.x: '21' $00 'Eurodisco' $00 - $clean_genres = array(); - if (strpos($genrestring, "\x00") === false) { - $genrestring = preg_replace('#\(([0-9]{1,3})\)#', '$1'."\x00", $genrestring); - } - $genre_elements = explode("\x00", $genrestring); - foreach ($genre_elements as $element) { - $element = trim($element); - if ($element) { - if (preg_match('#^[0-9]{1,3}#', $element)) { - $clean_genres[] = getid3_id3v1::LookupGenreName($element); - } else { - $clean_genres[] = str_replace('((', '(', $element); - } - } - } - return $clean_genres; - } - - - public function ParseID3v2Frame(&$parsedFrame) { - - // shortcuts - $info = &$this->getid3->info; - $id3v2_majorversion = $info['id3v2']['majorversion']; - - $parsedFrame['framenamelong'] = $this->FrameNameLongLookup($parsedFrame['frame_name']); - if (empty($parsedFrame['framenamelong'])) { - unset($parsedFrame['framenamelong']); - } - $parsedFrame['framenameshort'] = $this->FrameNameShortLookup($parsedFrame['frame_name']); - if (empty($parsedFrame['framenameshort'])) { - unset($parsedFrame['framenameshort']); - } - - if ($id3v2_majorversion >= 3) { // frame flags are not part of the ID3v2.2 standard - if ($id3v2_majorversion == 3) { - // Frame Header Flags - // %abc00000 %ijk00000 - $parsedFrame['flags']['TagAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x8000); // a - Tag alter preservation - $parsedFrame['flags']['FileAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x4000); // b - File alter preservation - $parsedFrame['flags']['ReadOnly'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x2000); // c - Read only - $parsedFrame['flags']['compression'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0080); // i - Compression - $parsedFrame['flags']['Encryption'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0040); // j - Encryption - $parsedFrame['flags']['GroupingIdentity'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0020); // k - Grouping identity - - } elseif ($id3v2_majorversion == 4) { - // Frame Header Flags - // %0abc0000 %0h00kmnp - $parsedFrame['flags']['TagAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x4000); // a - Tag alter preservation - $parsedFrame['flags']['FileAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x2000); // b - File alter preservation - $parsedFrame['flags']['ReadOnly'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x1000); // c - Read only - $parsedFrame['flags']['GroupingIdentity'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0040); // h - Grouping identity - $parsedFrame['flags']['compression'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0008); // k - Compression - $parsedFrame['flags']['Encryption'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0004); // m - Encryption - $parsedFrame['flags']['Unsynchronisation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0002); // n - Unsynchronisation - $parsedFrame['flags']['DataLengthIndicator'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x0001); // p - Data length indicator - - // Frame-level de-unsynchronisation - ID3v2.4 - if ($parsedFrame['flags']['Unsynchronisation']) { - $parsedFrame['data'] = $this->DeUnsynchronise($parsedFrame['data']); - } - - if ($parsedFrame['flags']['DataLengthIndicator']) { - $parsedFrame['data_length_indicator'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 4), 1); - $parsedFrame['data'] = substr($parsedFrame['data'], 4); - } - } - - // Frame-level de-compression - if ($parsedFrame['flags']['compression']) { - $parsedFrame['decompressed_size'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 4)); - if (!function_exists('gzuncompress')) { - $info['warning'][] = 'gzuncompress() support required to decompress ID3v2 frame "'.$parsedFrame['frame_name'].'"'; - } else { - if ($decompresseddata = @gzuncompress(substr($parsedFrame['data'], 4))) { - //if ($decompresseddata = @gzuncompress($parsedFrame['data'])) { - $parsedFrame['data'] = $decompresseddata; - unset($decompresseddata); - } else { - $info['warning'][] = 'gzuncompress() failed on compressed contents of ID3v2 frame "'.$parsedFrame['frame_name'].'"'; - } - } - } - } - - if (!empty($parsedFrame['flags']['DataLengthIndicator'])) { - if ($parsedFrame['data_length_indicator'] != strlen($parsedFrame['data'])) { - $info['warning'][] = 'ID3v2 frame "'.$parsedFrame['frame_name'].'" should be '.$parsedFrame['data_length_indicator'].' bytes long according to DataLengthIndicator, but found '.strlen($parsedFrame['data']).' bytes of data'; - } - } - - if (isset($parsedFrame['datalength']) && ($parsedFrame['datalength'] == 0)) { - - $warning = 'Frame "'.$parsedFrame['frame_name'].'" at offset '.$parsedFrame['dataoffset'].' has no data portion'; - switch ($parsedFrame['frame_name']) { - case 'WCOM': - $warning .= ' (this is known to happen with files tagged by RioPort)'; - break; - - default: - break; - } - $info['warning'][] = $warning; - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'UFID')) || // 4.1 UFID Unique file identifier - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'UFI'))) { // 4.1 UFI Unique file identifier - // There may be more than one 'UFID' frame in a tag, - // but only one with the same 'Owner identifier'. - //
- // Owner identifier $00 - // Identifier - $exploded = explode("\x00", $parsedFrame['data'], 2); - $parsedFrame['ownerid'] = (isset($exploded[0]) ? $exploded[0] : ''); - $parsedFrame['data'] = (isset($exploded[1]) ? $exploded[1] : ''); - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'TXXX')) || // 4.2.2 TXXX User defined text information frame - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'TXX'))) { // 4.2.2 TXX User defined text information frame - // There may be more than one 'TXXX' frame in each tag, - // but only one with the same description. - //
- // Text encoding $xx - // Description $00 (00) - // Value - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['description'] = $frame_description; - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = trim(getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data'])); - } - //unset($parsedFrame['data']); do not unset, may be needed elsewhere, e.g. for replaygain - - - } elseif ($parsedFrame['frame_name']{0} == 'T') { // 4.2. T??[?] Text information frame - // There may only be one text information frame of its kind in an tag. - //
- // Text encoding $xx - // Information - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - // ID3v2.3 specs say that TPE1 (and others) can contain multiple artist values separated with / - // This of course breaks when an artist name contains slash character, e.g. "AC/DC" - // MP3tag (maybe others) implement alternative system where multiple artists are null-separated, which makes more sense - // getID3 will split null-separated artists into multiple artists and leave slash-separated ones to the user - switch ($parsedFrame['encoding']) { - case 'UTF-16': - case 'UTF-16BE': - case 'UTF-16LE': - $wordsize = 2; - break; - case 'ISO-8859-1': - case 'UTF-8': - default: - $wordsize = 1; - break; - } - $Txxx_elements = array(); - $Txxx_elements_start_offset = 0; - for ($i = 0; $i < strlen($parsedFrame['data']); $i += $wordsize) { - if (substr($parsedFrame['data'], $i, $wordsize) == str_repeat("\x00", $wordsize)) { - $Txxx_elements[] = substr($parsedFrame['data'], $Txxx_elements_start_offset, $i - $Txxx_elements_start_offset); - $Txxx_elements_start_offset = $i + $wordsize; - } - } - $Txxx_elements[] = substr($parsedFrame['data'], $Txxx_elements_start_offset, $i - $Txxx_elements_start_offset); - foreach ($Txxx_elements as $Txxx_element) { - $string = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $Txxx_element); - if (!empty($string)) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $string; - } - } - unset($string, $wordsize, $i, $Txxx_elements, $Txxx_element, $Txxx_elements_start_offset); - } - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'WXXX')) || // 4.3.2 WXXX User defined URL link frame - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'WXX'))) { // 4.3.2 WXX User defined URL link frame - // There may be more than one 'WXXX' frame in each tag, - // but only one with the same description - //
- // Text encoding $xx - // Description $00 (00) - // URL - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding)); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - if ($frame_terminatorpos) { - // there are null bytes after the data - this is not according to spec - // only use data up to first null byte - $frame_urldata = (string) substr($parsedFrame['data'], 0, $frame_terminatorpos); - } else { - // no null bytes following data, just use all data - $frame_urldata = (string) $parsedFrame['data']; - } - - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['url'] = $frame_urldata; - $parsedFrame['description'] = $frame_description; - if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['url']); - } - unset($parsedFrame['data']); - - - } elseif ($parsedFrame['frame_name']{0} == 'W') { // 4.3. W??? URL link frames - // There may only be one URL link frame of its kind in a tag, - // except when stated otherwise in the frame description - //
- // URL - - $parsedFrame['url'] = trim($parsedFrame['data']); - if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['url']; - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'IPLS')) || // 4.4 IPLS Involved people list (ID3v2.3 only) - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'IPL'))) { // 4.4 IPL Involved people list (ID3v2.2 only) - // http://id3.org/id3v2.3.0#sec4.4 - // There may only be one 'IPL' frame in each tag - //
- // Text encoding $xx - // People list strings - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($parsedFrame['encodingid']); - $parsedFrame['data_raw'] = (string) substr($parsedFrame['data'], $frame_offset); - - // http://www.getid3.org/phpBB3/viewtopic.php?t=1369 - // "this tag typically contains null terminated strings, which are associated in pairs" - // "there are users that use the tag incorrectly" - $IPLS_parts = array(); - if (strpos($parsedFrame['data_raw'], "\x00") !== false) { - $IPLS_parts_unsorted = array(); - if (((strlen($parsedFrame['data_raw']) % 2) == 0) && ((substr($parsedFrame['data_raw'], 0, 2) == "\xFF\xFE") || (substr($parsedFrame['data_raw'], 0, 2) == "\xFE\xFF"))) { - // UTF-16, be careful looking for null bytes since most 2-byte characters may contain one; you need to find twin null bytes, and on even padding - $thisILPS = ''; - for ($i = 0; $i < strlen($parsedFrame['data_raw']); $i += 2) { - $twobytes = substr($parsedFrame['data_raw'], $i, 2); - if ($twobytes === "\x00\x00") { - $IPLS_parts_unsorted[] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $thisILPS); - $thisILPS = ''; - } else { - $thisILPS .= $twobytes; - } - } - if (strlen($thisILPS) > 2) { // 2-byte BOM - $IPLS_parts_unsorted[] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $thisILPS); - } - } else { - // ISO-8859-1 or UTF-8 or other single-byte-null character set - $IPLS_parts_unsorted = explode("\x00", $parsedFrame['data_raw']); - } - if (count($IPLS_parts_unsorted) == 1) { - // just a list of names, e.g. "Dino Baptiste, Jimmy Copley, John Gordon, Bernie Marsden, Sharon Watson" - foreach ($IPLS_parts_unsorted as $key => $value) { - $IPLS_parts_sorted = preg_split('#[;,\\r\\n\\t]#', $value); - $position = ''; - foreach ($IPLS_parts_sorted as $person) { - $IPLS_parts[] = array('position'=>$position, 'person'=>$person); - } - } - } elseif ((count($IPLS_parts_unsorted) % 2) == 0) { - $position = ''; - $person = ''; - foreach ($IPLS_parts_unsorted as $key => $value) { - if (($key % 2) == 0) { - $position = $value; - } else { - $person = $value; - $IPLS_parts[] = array('position'=>$position, 'person'=>$person); - $position = ''; - $person = ''; - } - } - } else { - foreach ($IPLS_parts_unsorted as $key => $value) { - $IPLS_parts[] = array($value); - } - } - - } else { - $IPLS_parts = preg_split('#[;,\\r\\n\\t]#', $parsedFrame['data_raw']); - } - $parsedFrame['data'] = $IPLS_parts; - - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['data']; - } - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'MCDI')) || // 4.4 MCDI Music CD identifier - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'MCI'))) { // 4.5 MCI Music CD identifier - // There may only be one 'MCDI' frame in each tag - //
- // CD TOC - - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['data']; - } - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'ETCO')) || // 4.5 ETCO Event timing codes - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'ETC'))) { // 4.6 ETC Event timing codes - // There may only be one 'ETCO' frame in each tag - //
- // Time stamp format $xx - // Where time stamp format is: - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - // Followed by a list of key events in the following format: - // Type of event $xx - // Time stamp $xx (xx ...) - // The 'Time stamp' is set to zero if directly at the beginning of the sound - // or after the previous event. All events MUST be sorted in chronological order. - - $frame_offset = 0; - $parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - - while ($frame_offset < strlen($parsedFrame['data'])) { - $parsedFrame['typeid'] = substr($parsedFrame['data'], $frame_offset++, 1); - $parsedFrame['type'] = $this->ETCOEventLookup($parsedFrame['typeid']); - $parsedFrame['timestamp'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - $frame_offset += 4; - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'MLLT')) || // 4.6 MLLT MPEG location lookup table - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'MLL'))) { // 4.7 MLL MPEG location lookup table - // There may only be one 'MLLT' frame in each tag - //
- // MPEG frames between reference $xx xx - // Bytes between reference $xx xx xx - // Milliseconds between reference $xx xx xx - // Bits for bytes deviation $xx - // Bits for milliseconds dev. $xx - // Then for every reference the following data is included; - // Deviation in bytes %xxx.... - // Deviation in milliseconds %xxx.... - - $frame_offset = 0; - $parsedFrame['framesbetweenreferences'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 2)); - $parsedFrame['bytesbetweenreferences'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 2, 3)); - $parsedFrame['msbetweenreferences'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 5, 3)); - $parsedFrame['bitsforbytesdeviation'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 8, 1)); - $parsedFrame['bitsformsdeviation'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 9, 1)); - $parsedFrame['data'] = substr($parsedFrame['data'], 10); - while ($frame_offset < strlen($parsedFrame['data'])) { - $deviationbitstream .= getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1)); - } - $reference_counter = 0; - while (strlen($deviationbitstream) > 0) { - $parsedFrame[$reference_counter]['bytedeviation'] = bindec(substr($deviationbitstream, 0, $parsedFrame['bitsforbytesdeviation'])); - $parsedFrame[$reference_counter]['msdeviation'] = bindec(substr($deviationbitstream, $parsedFrame['bitsforbytesdeviation'], $parsedFrame['bitsformsdeviation'])); - $deviationbitstream = substr($deviationbitstream, $parsedFrame['bitsforbytesdeviation'] + $parsedFrame['bitsformsdeviation']); - $reference_counter++; - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'SYTC')) || // 4.7 SYTC Synchronised tempo codes - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'STC'))) { // 4.8 STC Synchronised tempo codes - // There may only be one 'SYTC' frame in each tag - //
- // Time stamp format $xx - // Tempo data - // Where time stamp format is: - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - - $frame_offset = 0; - $parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $timestamp_counter = 0; - while ($frame_offset < strlen($parsedFrame['data'])) { - $parsedFrame[$timestamp_counter]['tempo'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ($parsedFrame[$timestamp_counter]['tempo'] == 255) { - $parsedFrame[$timestamp_counter]['tempo'] += ord(substr($parsedFrame['data'], $frame_offset++, 1)); - } - $parsedFrame[$timestamp_counter]['timestamp'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - $frame_offset += 4; - $timestamp_counter++; - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'USLT')) || // 4.8 USLT Unsynchronised lyric/text transcription - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'ULT'))) { // 4.9 ULT Unsynchronised lyric/text transcription - // There may be more than one 'Unsynchronised lyrics/text transcription' frame - // in each tag, but only one with the same language and content descriptor. - //
- // Text encoding $xx - // Language $xx xx xx - // Content descriptor $00 (00) - // Lyrics/text - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_language = substr($parsedFrame['data'], $frame_offset, 3); - $frame_offset += 3; - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['data'] = $parsedFrame['data']; - $parsedFrame['language'] = $frame_language; - $parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false); - $parsedFrame['description'] = $frame_description; - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']); - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'SYLT')) || // 4.9 SYLT Synchronised lyric/text - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'SLT'))) { // 4.10 SLT Synchronised lyric/text - // There may be more than one 'SYLT' frame in each tag, - // but only one with the same language and content descriptor. - //
- // Text encoding $xx - // Language $xx xx xx - // Time stamp format $xx - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - // Content type $xx - // Content descriptor $00 (00) - // Terminated text to be synced (typically a syllable) - // Sync identifier (terminator to above string) $00 (00) - // Time stamp $xx (xx ...) - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_language = substr($parsedFrame['data'], $frame_offset, 3); - $frame_offset += 3; - $parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['contenttypeid'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['contenttype'] = $this->SYTLContentTypeLookup($parsedFrame['contenttypeid']); - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['language'] = $frame_language; - $parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false); - - $timestampindex = 0; - $frame_remainingdata = substr($parsedFrame['data'], $frame_offset); - while (strlen($frame_remainingdata)) { - $frame_offset = 0; - $frame_terminatorpos = strpos($frame_remainingdata, $this->TextEncodingTerminatorLookup($frame_textencoding)); - if ($frame_terminatorpos === false) { - $frame_remainingdata = ''; - } else { - if (ord(substr($frame_remainingdata, $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $parsedFrame['lyrics'][$timestampindex]['data'] = substr($frame_remainingdata, $frame_offset, $frame_terminatorpos - $frame_offset); - - $frame_remainingdata = substr($frame_remainingdata, $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - if (($timestampindex == 0) && (ord($frame_remainingdata{0}) != 0)) { - // timestamp probably omitted for first data item - } else { - $parsedFrame['lyrics'][$timestampindex]['timestamp'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 0, 4)); - $frame_remainingdata = substr($frame_remainingdata, 4); - } - $timestampindex++; - } - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'COMM')) || // 4.10 COMM Comments - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'COM'))) { // 4.11 COM Comments - // There may be more than one comment frame in each tag, - // but only one with the same language and content descriptor. - //
- // Text encoding $xx - // Language $xx xx xx - // Short content descrip. $00 (00) - // The actual text - - if (strlen($parsedFrame['data']) < 5) { - - $info['warning'][] = 'Invalid data (too short) for "'.$parsedFrame['frame_name'].'" frame at offset '.$parsedFrame['dataoffset']; - - } else { - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_language = substr($parsedFrame['data'], $frame_offset, 3); - $frame_offset += 3; - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $frame_text = (string) substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['language'] = $frame_language; - $parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false); - $parsedFrame['description'] = $frame_description; - $parsedFrame['data'] = $frame_text; - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']); - } - - } - - } elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'RVA2')) { // 4.11 RVA2 Relative volume adjustment (2) (ID3v2.4+ only) - // There may be more than one 'RVA2' frame in each tag, - // but only one with the same identification string - //
- // Identification $00 - // The 'identification' string is used to identify the situation and/or - // device where this adjustment should apply. The following is then - // repeated for every channel: - // Type of channel $xx - // Volume adjustment $xx xx - // Bits representing peak $xx - // Peak volume $xx (xx ...) - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00"); - $frame_idstring = substr($parsedFrame['data'], 0, $frame_terminatorpos); - if (ord($frame_idstring) === 0) { - $frame_idstring = ''; - } - $frame_remainingdata = substr($parsedFrame['data'], $frame_terminatorpos + strlen("\x00")); - $parsedFrame['description'] = $frame_idstring; - $RVA2channelcounter = 0; - while (strlen($frame_remainingdata) >= 5) { - $frame_offset = 0; - $frame_channeltypeid = ord(substr($frame_remainingdata, $frame_offset++, 1)); - $parsedFrame[$RVA2channelcounter]['channeltypeid'] = $frame_channeltypeid; - $parsedFrame[$RVA2channelcounter]['channeltype'] = $this->RVA2ChannelTypeLookup($frame_channeltypeid); - $parsedFrame[$RVA2channelcounter]['volumeadjust'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, $frame_offset, 2), false, true); // 16-bit signed - $frame_offset += 2; - $parsedFrame[$RVA2channelcounter]['bitspeakvolume'] = ord(substr($frame_remainingdata, $frame_offset++, 1)); - if (($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] < 1) || ($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] > 4)) { - $info['warning'][] = 'ID3v2::RVA2 frame['.$RVA2channelcounter.'] contains invalid '.$parsedFrame[$RVA2channelcounter]['bitspeakvolume'].'-byte bits-representing-peak value'; - break; - } - $frame_bytespeakvolume = ceil($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] / 8); - $parsedFrame[$RVA2channelcounter]['peakvolume'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, $frame_offset, $frame_bytespeakvolume)); - $frame_remainingdata = substr($frame_remainingdata, $frame_offset + $frame_bytespeakvolume); - $RVA2channelcounter++; - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'RVAD')) || // 4.12 RVAD Relative volume adjustment (ID3v2.3 only) - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'RVA'))) { // 4.12 RVA Relative volume adjustment (ID3v2.2 only) - // There may only be one 'RVA' frame in each tag - //
- // ID3v2.2 => Increment/decrement %000000ba - // ID3v2.3 => Increment/decrement %00fedcba - // Bits used for volume descr. $xx - // Relative volume change, right $xx xx (xx ...) // a - // Relative volume change, left $xx xx (xx ...) // b - // Peak volume right $xx xx (xx ...) - // Peak volume left $xx xx (xx ...) - // ID3v2.3 only, optional (not present in ID3v2.2): - // Relative volume change, right back $xx xx (xx ...) // c - // Relative volume change, left back $xx xx (xx ...) // d - // Peak volume right back $xx xx (xx ...) - // Peak volume left back $xx xx (xx ...) - // ID3v2.3 only, optional (not present in ID3v2.2): - // Relative volume change, center $xx xx (xx ...) // e - // Peak volume center $xx xx (xx ...) - // ID3v2.3 only, optional (not present in ID3v2.2): - // Relative volume change, bass $xx xx (xx ...) // f - // Peak volume bass $xx xx (xx ...) - - $frame_offset = 0; - $frame_incrdecrflags = getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['incdec']['right'] = (bool) substr($frame_incrdecrflags, 6, 1); - $parsedFrame['incdec']['left'] = (bool) substr($frame_incrdecrflags, 7, 1); - $parsedFrame['bitsvolume'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $frame_bytesvolume = ceil($parsedFrame['bitsvolume'] / 8); - $parsedFrame['volumechange']['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['right'] === false) { - $parsedFrame['volumechange']['right'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['volumechange']['left'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['left'] === false) { - $parsedFrame['volumechange']['left'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['left'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - if ($id3v2_majorversion == 3) { - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset); - if (strlen($parsedFrame['data']) > 0) { - $parsedFrame['incdec']['rightrear'] = (bool) substr($frame_incrdecrflags, 4, 1); - $parsedFrame['incdec']['leftrear'] = (bool) substr($frame_incrdecrflags, 5, 1); - $parsedFrame['volumechange']['rightrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['rightrear'] === false) { - $parsedFrame['volumechange']['rightrear'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['volumechange']['leftrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['leftrear'] === false) { - $parsedFrame['volumechange']['leftrear'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['rightrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['leftrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - } - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset); - if (strlen($parsedFrame['data']) > 0) { - $parsedFrame['incdec']['center'] = (bool) substr($frame_incrdecrflags, 3, 1); - $parsedFrame['volumechange']['center'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['center'] === false) { - $parsedFrame['volumechange']['center'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['center'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - } - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset); - if (strlen($parsedFrame['data']) > 0) { - $parsedFrame['incdec']['bass'] = (bool) substr($frame_incrdecrflags, 2, 1); - $parsedFrame['volumechange']['bass'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - if ($parsedFrame['incdec']['bass'] === false) { - $parsedFrame['volumechange']['bass'] *= -1; - } - $frame_offset += $frame_bytesvolume; - $parsedFrame['peakvolume']['bass'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume)); - $frame_offset += $frame_bytesvolume; - } - } - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'EQU2')) { // 4.12 EQU2 Equalisation (2) (ID3v2.4+ only) - // There may be more than one 'EQU2' frame in each tag, - // but only one with the same identification string - //
- // Interpolation method $xx - // $00 Band - // $01 Linear - // Identification $00 - // The following is then repeated for every adjustment point - // Frequency $xx xx - // Volume adjustment $xx xx - - $frame_offset = 0; - $frame_interpolationmethod = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_idstring = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_idstring) === 0) { - $frame_idstring = ''; - } - $parsedFrame['description'] = $frame_idstring; - $frame_remainingdata = substr($parsedFrame['data'], $frame_terminatorpos + strlen("\x00")); - while (strlen($frame_remainingdata)) { - $frame_frequency = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 0, 2)) / 2; - $parsedFrame['data'][$frame_frequency] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 2, 2), false, true); - $frame_remainingdata = substr($frame_remainingdata, 4); - } - $parsedFrame['interpolationmethod'] = $frame_interpolationmethod; - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'EQUA')) || // 4.12 EQUA Equalisation (ID3v2.3 only) - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'EQU'))) { // 4.13 EQU Equalisation (ID3v2.2 only) - // There may only be one 'EQUA' frame in each tag - //
- // Adjustment bits $xx - // This is followed by 2 bytes + ('adjustment bits' rounded up to the - // nearest byte) for every equalisation band in the following format, - // giving a frequency range of 0 - 32767Hz: - // Increment/decrement %x (MSB of the Frequency) - // Frequency (lower 15 bits) - // Adjustment $xx (xx ...) - - $frame_offset = 0; - $parsedFrame['adjustmentbits'] = substr($parsedFrame['data'], $frame_offset++, 1); - $frame_adjustmentbytes = ceil($parsedFrame['adjustmentbits'] / 8); - - $frame_remainingdata = (string) substr($parsedFrame['data'], $frame_offset); - while (strlen($frame_remainingdata) > 0) { - $frame_frequencystr = getid3_lib::BigEndian2Bin(substr($frame_remainingdata, 0, 2)); - $frame_incdec = (bool) substr($frame_frequencystr, 0, 1); - $frame_frequency = bindec(substr($frame_frequencystr, 1, 15)); - $parsedFrame[$frame_frequency]['incdec'] = $frame_incdec; - $parsedFrame[$frame_frequency]['adjustment'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 2, $frame_adjustmentbytes)); - if ($parsedFrame[$frame_frequency]['incdec'] === false) { - $parsedFrame[$frame_frequency]['adjustment'] *= -1; - } - $frame_remainingdata = substr($frame_remainingdata, 2 + $frame_adjustmentbytes); - } - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RVRB')) || // 4.13 RVRB Reverb - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'REV'))) { // 4.14 REV Reverb - // There may only be one 'RVRB' frame in each tag. - //
- // Reverb left (ms) $xx xx - // Reverb right (ms) $xx xx - // Reverb bounces, left $xx - // Reverb bounces, right $xx - // Reverb feedback, left to left $xx - // Reverb feedback, left to right $xx - // Reverb feedback, right to right $xx - // Reverb feedback, right to left $xx - // Premix left to right $xx - // Premix right to left $xx - - $frame_offset = 0; - $parsedFrame['left'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['bouncesL'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['bouncesR'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['feedbackLL'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['feedbackLR'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['feedbackRR'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['feedbackRL'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['premixLR'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['premixRL'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'APIC')) || // 4.14 APIC Attached picture - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'PIC'))) { // 4.15 PIC Attached picture - // There may be several pictures attached to one file, - // each in their individual 'APIC' frame, but only one - // with the same content descriptor - //
- // Text encoding $xx - // ID3v2.3+ => MIME type $00 - // ID3v2.2 => Image format $xx xx xx - // Picture type $xx - // Description $00 (00) - // Picture data - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - - if ($id3v2_majorversion == 2 && strlen($parsedFrame['data']) > $frame_offset) { - $frame_imagetype = substr($parsedFrame['data'], $frame_offset, 3); - if (strtolower($frame_imagetype) == 'ima') { - // complete hack for mp3Rage (www.chaoticsoftware.com) that puts ID3v2.3-formatted - // MIME type instead of 3-char ID3v2.2-format image type (thanks xbhoffØpacbell*net) - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_mimetype) === 0) { - $frame_mimetype = ''; - } - $frame_imagetype = strtoupper(str_replace('image/', '', strtolower($frame_mimetype))); - if ($frame_imagetype == 'JPEG') { - $frame_imagetype = 'JPG'; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - } else { - $frame_offset += 3; - } - } - if ($id3v2_majorversion > 2 && strlen($parsedFrame['data']) > $frame_offset) { - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_mimetype) === 0) { - $frame_mimetype = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - } - - $frame_picturetype = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - - if ($frame_offset >= $parsedFrame['datalength']) { - $info['warning'][] = 'data portion of APIC frame is missing at offset '.($parsedFrame['dataoffset'] + 8 + $frame_offset); - } else { - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - if ($id3v2_majorversion == 2) { - $parsedFrame['imagetype'] = $frame_imagetype; - } else { - $parsedFrame['mime'] = $frame_mimetype; - } - $parsedFrame['picturetypeid'] = $frame_picturetype; - $parsedFrame['picturetype'] = $this->APICPictureTypeLookup($frame_picturetype); - $parsedFrame['description'] = $frame_description; - $parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding))); - $parsedFrame['datalength'] = strlen($parsedFrame['data']); - - $parsedFrame['image_mime'] = ''; - $imageinfo = array(); - $imagechunkcheck = getid3_lib::GetDataImageSize($parsedFrame['data'], $imageinfo); - if (($imagechunkcheck[2] >= 1) && ($imagechunkcheck[2] <= 3)) { - $parsedFrame['image_mime'] = 'image/'.getid3_lib::ImageTypesLookup($imagechunkcheck[2]); - if ($imagechunkcheck[0]) { - $parsedFrame['image_width'] = $imagechunkcheck[0]; - } - if ($imagechunkcheck[1]) { - $parsedFrame['image_height'] = $imagechunkcheck[1]; - } - } - - do { - if ($this->getid3->option_save_attachments === false) { - // skip entirely - unset($parsedFrame['data']); - break; - } - if ($this->getid3->option_save_attachments === true) { - // great -/* - } elseif (is_int($this->getid3->option_save_attachments)) { - if ($this->getid3->option_save_attachments < $parsedFrame['data_length']) { - // too big, skip - $info['warning'][] = 'attachment at '.$frame_offset.' is too large to process inline ('.number_format($parsedFrame['data_length']).' bytes)'; - unset($parsedFrame['data']); - break; - } -*/ - } elseif (is_string($this->getid3->option_save_attachments)) { - $dir = rtrim(str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $this->getid3->option_save_attachments), DIRECTORY_SEPARATOR); - if (!is_dir($dir) || !is_writable($dir)) { - // cannot write, skip - $info['warning'][] = 'attachment at '.$frame_offset.' cannot be saved to "'.$dir.'" (not writable)'; - unset($parsedFrame['data']); - break; - } - } - // if we get this far, must be OK - if (is_string($this->getid3->option_save_attachments)) { - $destination_filename = $dir.DIRECTORY_SEPARATOR.md5($info['filenamepath']).'_'.$frame_offset; - if (!file_exists($destination_filename) || is_writable($destination_filename)) { - file_put_contents($destination_filename, $parsedFrame['data']); - } else { - $info['warning'][] = 'attachment at '.$frame_offset.' cannot be saved to "'.$destination_filename.'" (not writable)'; - } - $parsedFrame['data_filename'] = $destination_filename; - unset($parsedFrame['data']); - } else { - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - if (!isset($info['id3v2']['comments']['picture'])) { - $info['id3v2']['comments']['picture'] = array(); - } - $info['id3v2']['comments']['picture'][] = array('data'=>$parsedFrame['data'], 'image_mime'=>$parsedFrame['image_mime']); - } - } - } while (false); - } - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'GEOB')) || // 4.15 GEOB General encapsulated object - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'GEO'))) { // 4.16 GEO General encapsulated object - // There may be more than one 'GEOB' frame in each tag, - // but only one with the same content descriptor - //
- // Text encoding $xx - // MIME type $00 - // Filename $00 (00) - // Content description $00 (00) - // Encapsulated object - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_mimetype) === 0) { - $frame_mimetype = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_filename = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_filename) === 0) { - $frame_filename = ''; - } - $frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)); - - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)); - - $parsedFrame['objectdata'] = (string) substr($parsedFrame['data'], $frame_offset); - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['mime'] = $frame_mimetype; - $parsedFrame['filename'] = $frame_filename; - $parsedFrame['description'] = $frame_description; - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'PCNT')) || // 4.16 PCNT Play counter - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CNT'))) { // 4.17 CNT Play counter - // There may only be one 'PCNT' frame in each tag. - // When the counter reaches all one's, one byte is inserted in - // front of the counter thus making the counter eight bits bigger - //
- // Counter $xx xx xx xx (xx ...) - - $parsedFrame['data'] = getid3_lib::BigEndian2Int($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'POPM')) || // 4.17 POPM Popularimeter - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'POP'))) { // 4.18 POP Popularimeter - // There may be more than one 'POPM' frame in each tag, - // but only one with the same email address - //
- // Email to user $00 - // Rating $xx - // Counter $xx xx xx xx (xx ...) - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_emailaddress = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_emailaddress) === 0) { - $frame_emailaddress = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - $frame_rating = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['counter'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset)); - $parsedFrame['email'] = $frame_emailaddress; - $parsedFrame['rating'] = $frame_rating; - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RBUF')) || // 4.18 RBUF Recommended buffer size - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'BUF'))) { // 4.19 BUF Recommended buffer size - // There may only be one 'RBUF' frame in each tag - //
- // Buffer size $xx xx xx - // Embedded info flag %0000000x - // Offset to next tag $xx xx xx xx - - $frame_offset = 0; - $parsedFrame['buffersize'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 3)); - $frame_offset += 3; - - $frame_embeddedinfoflags = getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['flags']['embededinfo'] = (bool) substr($frame_embeddedinfoflags, 7, 1); - $parsedFrame['nexttagoffset'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CRM')) { // 4.20 Encrypted meta frame (ID3v2.2 only) - // There may be more than one 'CRM' frame in a tag, - // but only one with the same 'owner identifier' - //
- // Owner identifier $00 (00) - // Content/explanation $00 (00) - // Encrypted datablock - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $parsedFrame['ownerid'] = $frame_ownerid; - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - $parsedFrame['description'] = $frame_description; - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'AENC')) || // 4.19 AENC Audio encryption - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CRA'))) { // 4.21 CRA Audio encryption - // There may be more than one 'AENC' frames in a tag, - // but only one with the same 'Owner identifier' - //
- // Owner identifier $00 - // Preview start $xx xx - // Preview length $xx xx - // Encryption info - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_ownerid) === 0) { - $frame_ownerid == ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - $parsedFrame['ownerid'] = $frame_ownerid; - $parsedFrame['previewstart'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['previewlength'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['encryptioninfo'] = (string) substr($parsedFrame['data'], $frame_offset); - unset($parsedFrame['data']); - - - } elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'LINK')) || // 4.20 LINK Linked information - (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'LNK'))) { // 4.22 LNK Linked information - // There may be more than one 'LINK' frame in a tag, - // but only one with the same contents - //
- // ID3v2.3+ => Frame identifier $xx xx xx xx - // ID3v2.2 => Frame identifier $xx xx xx - // URL $00 - // ID and additional data - - $frame_offset = 0; - if ($id3v2_majorversion == 2) { - $parsedFrame['frameid'] = substr($parsedFrame['data'], $frame_offset, 3); - $frame_offset += 3; - } else { - $parsedFrame['frameid'] = substr($parsedFrame['data'], $frame_offset, 4); - $frame_offset += 4; - } - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_url = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_url) === 0) { - $frame_url = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - $parsedFrame['url'] = $frame_url; - - $parsedFrame['additionaldata'] = (string) substr($parsedFrame['data'], $frame_offset); - if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = utf8_encode($parsedFrame['url']); - } - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'POSS')) { // 4.21 POSS Position synchronisation frame (ID3v2.3+ only) - // There may only be one 'POSS' frame in each tag - //
- // Time stamp format $xx - // Position $xx (xx ...) - - $frame_offset = 0; - $parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['position'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset)); - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'USER')) { // 4.22 USER Terms of use (ID3v2.3+ only) - // There may be more than one 'Terms of use' frame in a tag, - // but only one with the same 'Language' - //
- // Text encoding $xx - // Language $xx xx xx - // The actual text - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $frame_language = substr($parsedFrame['data'], $frame_offset, 3); - $frame_offset += 3; - $parsedFrame['language'] = $frame_language; - $parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false); - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) { - $info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']); - } - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'OWNE')) { // 4.23 OWNE Ownership frame (ID3v2.3+ only) - // There may only be one 'OWNE' frame in a tag - //
- // Text encoding $xx - // Price paid $00 - // Date of purch. - // Seller - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_pricepaid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $parsedFrame['pricepaid']['currencyid'] = substr($frame_pricepaid, 0, 3); - $parsedFrame['pricepaid']['currency'] = $this->LookupCurrencyUnits($parsedFrame['pricepaid']['currencyid']); - $parsedFrame['pricepaid']['value'] = substr($frame_pricepaid, 3); - - $parsedFrame['purchasedate'] = substr($parsedFrame['data'], $frame_offset, 8); - if (!$this->IsValidDateStampString($parsedFrame['purchasedate'])) { - $parsedFrame['purchasedateunix'] = mktime (0, 0, 0, substr($parsedFrame['purchasedate'], 4, 2), substr($parsedFrame['purchasedate'], 6, 2), substr($parsedFrame['purchasedate'], 0, 4)); - } - $frame_offset += 8; - - $parsedFrame['seller'] = (string) substr($parsedFrame['data'], $frame_offset); - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'COMR')) { // 4.24 COMR Commercial frame (ID3v2.3+ only) - // There may be more than one 'commercial frame' in a tag, - // but no two may be identical - //
- // Text encoding $xx - // Price string $00 - // Valid until - // Contact URL $00 - // Received as $xx - // Name of seller $00 (00) - // Description $00 (00) - // Picture MIME type $00 - // Seller logo - - $frame_offset = 0; - $frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) { - $info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding'; - } - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_pricestring = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - $frame_offset = $frame_terminatorpos + strlen("\x00"); - $frame_rawpricearray = explode('/', $frame_pricestring); - foreach ($frame_rawpricearray as $key => $val) { - $frame_currencyid = substr($val, 0, 3); - $parsedFrame['price'][$frame_currencyid]['currency'] = $this->LookupCurrencyUnits($frame_currencyid); - $parsedFrame['price'][$frame_currencyid]['value'] = substr($val, 3); - } - - $frame_datestring = substr($parsedFrame['data'], $frame_offset, 8); - $frame_offset += 8; - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_contacturl = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $frame_receivedasid = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_sellername = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_sellername) === 0) { - $frame_sellername = ''; - } - $frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)); - - $frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset); - if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) { - $frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00 - } - $frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_description) === 0) { - $frame_description = ''; - } - $frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)); - - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $frame_sellerlogo = substr($parsedFrame['data'], $frame_offset); - - $parsedFrame['encodingid'] = $frame_textencoding; - $parsedFrame['encoding'] = $this->TextEncodingNameLookup($frame_textencoding); - - $parsedFrame['pricevaliduntil'] = $frame_datestring; - $parsedFrame['contacturl'] = $frame_contacturl; - $parsedFrame['receivedasid'] = $frame_receivedasid; - $parsedFrame['receivedas'] = $this->COMRReceivedAsLookup($frame_receivedasid); - $parsedFrame['sellername'] = $frame_sellername; - $parsedFrame['description'] = $frame_description; - $parsedFrame['mime'] = $frame_mimetype; - $parsedFrame['logo'] = $frame_sellerlogo; - unset($parsedFrame['data']); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'ENCR')) { // 4.25 ENCR Encryption method registration (ID3v2.3+ only) - // There may be several 'ENCR' frames in a tag, - // but only one containing the same symbol - // and only one containing the same owner identifier - //
- // Owner identifier $00 - // Method symbol $xx - // Encryption data - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_ownerid) === 0) { - $frame_ownerid = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $parsedFrame['ownerid'] = $frame_ownerid; - $parsedFrame['methodsymbol'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'GRID')) { // 4.26 GRID Group identification registration (ID3v2.3+ only) - - // There may be several 'GRID' frames in a tag, - // but only one containing the same symbol - // and only one containing the same owner identifier - //
- // Owner identifier $00 - // Group symbol $xx - // Group dependent data - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_ownerid) === 0) { - $frame_ownerid = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $parsedFrame['ownerid'] = $frame_ownerid; - $parsedFrame['groupsymbol'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'PRIV')) { // 4.27 PRIV Private frame (ID3v2.3+ only) - // The tag may contain more than one 'PRIV' frame - // but only with different contents - //
- // Owner identifier $00 - // The private data - - $frame_offset = 0; - $frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset); - $frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset); - if (ord($frame_ownerid) === 0) { - $frame_ownerid = ''; - } - $frame_offset = $frame_terminatorpos + strlen("\x00"); - - $parsedFrame['ownerid'] = $frame_ownerid; - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - - - } elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'SIGN')) { // 4.28 SIGN Signature frame (ID3v2.4+ only) - // There may be more than one 'signature frame' in a tag, - // but no two may be identical - //
- // Group symbol $xx - // Signature - - $frame_offset = 0; - $parsedFrame['groupsymbol'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset); - - - } elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'SEEK')) { // 4.29 SEEK Seek frame (ID3v2.4+ only) - // There may only be one 'seek frame' in a tag - //
- // Minimum offset to next tag $xx xx xx xx - - $frame_offset = 0; - $parsedFrame['data'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - - - } elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'ASPI')) { // 4.30 ASPI Audio seek point index (ID3v2.4+ only) - // There may only be one 'audio seek point index' frame in a tag - //
- // Indexed data start (S) $xx xx xx xx - // Indexed data length (L) $xx xx xx xx - // Number of index points (N) $xx xx - // Bits per index point (b) $xx - // Then for every index point the following data is included: - // Fraction at index (Fi) $xx (xx) - - $frame_offset = 0; - $parsedFrame['datastart'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - $frame_offset += 4; - $parsedFrame['indexeddatalength'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4)); - $frame_offset += 4; - $parsedFrame['indexpoints'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['bitsperpoint'] = ord(substr($parsedFrame['data'], $frame_offset++, 1)); - $frame_bytesperpoint = ceil($parsedFrame['bitsperpoint'] / 8); - for ($i = 0; $i < $frame_indexpoints; $i++) { - $parsedFrame['indexes'][$i] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesperpoint)); - $frame_offset += $frame_bytesperpoint; - } - unset($parsedFrame['data']); - - } elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RGAD')) { // Replay Gain Adjustment - // http://privatewww.essex.ac.uk/~djmrob/replaygain/file_format_id3v2.html - // There may only be one 'RGAD' frame in a tag - //
- // Peak Amplitude $xx $xx $xx $xx - // Radio Replay Gain Adjustment %aaabbbcd %dddddddd - // Audiophile Replay Gain Adjustment %aaabbbcd %dddddddd - // a - name code - // b - originator code - // c - sign bit - // d - replay gain adjustment - - $frame_offset = 0; - $parsedFrame['peakamplitude'] = getid3_lib::BigEndian2Float(substr($parsedFrame['data'], $frame_offset, 4)); - $frame_offset += 4; - $rg_track_adjustment = getid3_lib::Dec2Bin(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $rg_album_adjustment = getid3_lib::Dec2Bin(substr($parsedFrame['data'], $frame_offset, 2)); - $frame_offset += 2; - $parsedFrame['raw']['track']['name'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 0, 3)); - $parsedFrame['raw']['track']['originator'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 3, 3)); - $parsedFrame['raw']['track']['signbit'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 6, 1)); - $parsedFrame['raw']['track']['adjustment'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 7, 9)); - $parsedFrame['raw']['album']['name'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 0, 3)); - $parsedFrame['raw']['album']['originator'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 3, 3)); - $parsedFrame['raw']['album']['signbit'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 6, 1)); - $parsedFrame['raw']['album']['adjustment'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 7, 9)); - $parsedFrame['track']['name'] = getid3_lib::RGADnameLookup($parsedFrame['raw']['track']['name']); - $parsedFrame['track']['originator'] = getid3_lib::RGADoriginatorLookup($parsedFrame['raw']['track']['originator']); - $parsedFrame['track']['adjustment'] = getid3_lib::RGADadjustmentLookup($parsedFrame['raw']['track']['adjustment'], $parsedFrame['raw']['track']['signbit']); - $parsedFrame['album']['name'] = getid3_lib::RGADnameLookup($parsedFrame['raw']['album']['name']); - $parsedFrame['album']['originator'] = getid3_lib::RGADoriginatorLookup($parsedFrame['raw']['album']['originator']); - $parsedFrame['album']['adjustment'] = getid3_lib::RGADadjustmentLookup($parsedFrame['raw']['album']['adjustment'], $parsedFrame['raw']['album']['signbit']); - - $info['replay_gain']['track']['peak'] = $parsedFrame['peakamplitude']; - $info['replay_gain']['track']['originator'] = $parsedFrame['track']['originator']; - $info['replay_gain']['track']['adjustment'] = $parsedFrame['track']['adjustment']; - $info['replay_gain']['album']['originator'] = $parsedFrame['album']['originator']; - $info['replay_gain']['album']['adjustment'] = $parsedFrame['album']['adjustment']; - - unset($parsedFrame['data']); - - } - - return true; - } - - - public function DeUnsynchronise($data) { - return str_replace("\xFF\x00", "\xFF", $data); - } - - public function LookupExtendedHeaderRestrictionsTagSizeLimits($index) { - static $LookupExtendedHeaderRestrictionsTagSizeLimits = array( - 0x00 => 'No more than 128 frames and 1 MB total tag size', - 0x01 => 'No more than 64 frames and 128 KB total tag size', - 0x02 => 'No more than 32 frames and 40 KB total tag size', - 0x03 => 'No more than 32 frames and 4 KB total tag size', - ); - return (isset($LookupExtendedHeaderRestrictionsTagSizeLimits[$index]) ? $LookupExtendedHeaderRestrictionsTagSizeLimits[$index] : ''); - } - - public function LookupExtendedHeaderRestrictionsTextEncodings($index) { - static $LookupExtendedHeaderRestrictionsTextEncodings = array( - 0x00 => 'No restrictions', - 0x01 => 'Strings are only encoded with ISO-8859-1 or UTF-8', - ); - return (isset($LookupExtendedHeaderRestrictionsTextEncodings[$index]) ? $LookupExtendedHeaderRestrictionsTextEncodings[$index] : ''); - } - - public function LookupExtendedHeaderRestrictionsTextFieldSize($index) { - static $LookupExtendedHeaderRestrictionsTextFieldSize = array( - 0x00 => 'No restrictions', - 0x01 => 'No string is longer than 1024 characters', - 0x02 => 'No string is longer than 128 characters', - 0x03 => 'No string is longer than 30 characters', - ); - return (isset($LookupExtendedHeaderRestrictionsTextFieldSize[$index]) ? $LookupExtendedHeaderRestrictionsTextFieldSize[$index] : ''); - } - - public function LookupExtendedHeaderRestrictionsImageEncoding($index) { - static $LookupExtendedHeaderRestrictionsImageEncoding = array( - 0x00 => 'No restrictions', - 0x01 => 'Images are encoded only with PNG or JPEG', - ); - return (isset($LookupExtendedHeaderRestrictionsImageEncoding[$index]) ? $LookupExtendedHeaderRestrictionsImageEncoding[$index] : ''); - } - - public function LookupExtendedHeaderRestrictionsImageSizeSize($index) { - static $LookupExtendedHeaderRestrictionsImageSizeSize = array( - 0x00 => 'No restrictions', - 0x01 => 'All images are 256x256 pixels or smaller', - 0x02 => 'All images are 64x64 pixels or smaller', - 0x03 => 'All images are exactly 64x64 pixels, unless required otherwise', - ); - return (isset($LookupExtendedHeaderRestrictionsImageSizeSize[$index]) ? $LookupExtendedHeaderRestrictionsImageSizeSize[$index] : ''); - } - - public function LookupCurrencyUnits($currencyid) { - - $begin = __LINE__; - - /** This is not a comment! - - - AED Dirhams - AFA Afghanis - ALL Leke - AMD Drams - ANG Guilders - AOA Kwanza - ARS Pesos - ATS Schillings - AUD Dollars - AWG Guilders - AZM Manats - BAM Convertible Marka - BBD Dollars - BDT Taka - BEF Francs - BGL Leva - BHD Dinars - BIF Francs - BMD Dollars - BND Dollars - BOB Bolivianos - BRL Brazil Real - BSD Dollars - BTN Ngultrum - BWP Pulas - BYR Rubles - BZD Dollars - CAD Dollars - CDF Congolese Francs - CHF Francs - CLP Pesos - CNY Yuan Renminbi - COP Pesos - CRC Colones - CUP Pesos - CVE Escudos - CYP Pounds - CZK Koruny - DEM Deutsche Marks - DJF Francs - DKK Kroner - DOP Pesos - DZD Algeria Dinars - EEK Krooni - EGP Pounds - ERN Nakfa - ESP Pesetas - ETB Birr - EUR Euro - FIM Markkaa - FJD Dollars - FKP Pounds - FRF Francs - GBP Pounds - GEL Lari - GGP Pounds - GHC Cedis - GIP Pounds - GMD Dalasi - GNF Francs - GRD Drachmae - GTQ Quetzales - GYD Dollars - HKD Dollars - HNL Lempiras - HRK Kuna - HTG Gourdes - HUF Forints - IDR Rupiahs - IEP Pounds - ILS New Shekels - IMP Pounds - INR Rupees - IQD Dinars - IRR Rials - ISK Kronur - ITL Lire - JEP Pounds - JMD Dollars - JOD Dinars - JPY Yen - KES Shillings - KGS Soms - KHR Riels - KMF Francs - KPW Won - KWD Dinars - KYD Dollars - KZT Tenge - LAK Kips - LBP Pounds - LKR Rupees - LRD Dollars - LSL Maloti - LTL Litai - LUF Francs - LVL Lati - LYD Dinars - MAD Dirhams - MDL Lei - MGF Malagasy Francs - MKD Denars - MMK Kyats - MNT Tugriks - MOP Patacas - MRO Ouguiyas - MTL Liri - MUR Rupees - MVR Rufiyaa - MWK Kwachas - MXN Pesos - MYR Ringgits - MZM Meticais - NAD Dollars - NGN Nairas - NIO Gold Cordobas - NLG Guilders - NOK Krone - NPR Nepal Rupees - NZD Dollars - OMR Rials - PAB Balboa - PEN Nuevos Soles - PGK Kina - PHP Pesos - PKR Rupees - PLN Zlotych - PTE Escudos - PYG Guarani - QAR Rials - ROL Lei - RUR Rubles - RWF Rwanda Francs - SAR Riyals - SBD Dollars - SCR Rupees - SDD Dinars - SEK Kronor - SGD Dollars - SHP Pounds - SIT Tolars - SKK Koruny - SLL Leones - SOS Shillings - SPL Luigini - SRG Guilders - STD Dobras - SVC Colones - SYP Pounds - SZL Emalangeni - THB Baht - TJR Rubles - TMM Manats - TND Dinars - TOP Pa'anga - TRL Liras - TTD Dollars - TVD Tuvalu Dollars - TWD New Dollars - TZS Shillings - UAH Hryvnia - UGX Shillings - USD Dollars - UYU Pesos - UZS Sums - VAL Lire - VEB Bolivares - VND Dong - VUV Vatu - WST Tala - XAF Francs - XAG Ounces - XAU Ounces - XCD Dollars - XDR Special Drawing Rights - XPD Ounces - XPF Francs - XPT Ounces - YER Rials - YUM New Dinars - ZAR Rand - ZMK Kwacha - ZWD Zimbabwe Dollars - - */ - - return getid3_lib::EmbeddedLookup($currencyid, $begin, __LINE__, __FILE__, 'id3v2-currency-units'); - } - - - public function LookupCurrencyCountry($currencyid) { - - $begin = __LINE__; - - /** This is not a comment! - - AED United Arab Emirates - AFA Afghanistan - ALL Albania - AMD Armenia - ANG Netherlands Antilles - AOA Angola - ARS Argentina - ATS Austria - AUD Australia - AWG Aruba - AZM Azerbaijan - BAM Bosnia and Herzegovina - BBD Barbados - BDT Bangladesh - BEF Belgium - BGL Bulgaria - BHD Bahrain - BIF Burundi - BMD Bermuda - BND Brunei Darussalam - BOB Bolivia - BRL Brazil - BSD Bahamas - BTN Bhutan - BWP Botswana - BYR Belarus - BZD Belize - CAD Canada - CDF Congo/Kinshasa - CHF Switzerland - CLP Chile - CNY China - COP Colombia - CRC Costa Rica - CUP Cuba - CVE Cape Verde - CYP Cyprus - CZK Czech Republic - DEM Germany - DJF Djibouti - DKK Denmark - DOP Dominican Republic - DZD Algeria - EEK Estonia - EGP Egypt - ERN Eritrea - ESP Spain - ETB Ethiopia - EUR Euro Member Countries - FIM Finland - FJD Fiji - FKP Falkland Islands (Malvinas) - FRF France - GBP United Kingdom - GEL Georgia - GGP Guernsey - GHC Ghana - GIP Gibraltar - GMD Gambia - GNF Guinea - GRD Greece - GTQ Guatemala - GYD Guyana - HKD Hong Kong - HNL Honduras - HRK Croatia - HTG Haiti - HUF Hungary - IDR Indonesia - IEP Ireland (Eire) - ILS Israel - IMP Isle of Man - INR India - IQD Iraq - IRR Iran - ISK Iceland - ITL Italy - JEP Jersey - JMD Jamaica - JOD Jordan - JPY Japan - KES Kenya - KGS Kyrgyzstan - KHR Cambodia - KMF Comoros - KPW Korea - KWD Kuwait - KYD Cayman Islands - KZT Kazakstan - LAK Laos - LBP Lebanon - LKR Sri Lanka - LRD Liberia - LSL Lesotho - LTL Lithuania - LUF Luxembourg - LVL Latvia - LYD Libya - MAD Morocco - MDL Moldova - MGF Madagascar - MKD Macedonia - MMK Myanmar (Burma) - MNT Mongolia - MOP Macau - MRO Mauritania - MTL Malta - MUR Mauritius - MVR Maldives (Maldive Islands) - MWK Malawi - MXN Mexico - MYR Malaysia - MZM Mozambique - NAD Namibia - NGN Nigeria - NIO Nicaragua - NLG Netherlands (Holland) - NOK Norway - NPR Nepal - NZD New Zealand - OMR Oman - PAB Panama - PEN Peru - PGK Papua New Guinea - PHP Philippines - PKR Pakistan - PLN Poland - PTE Portugal - PYG Paraguay - QAR Qatar - ROL Romania - RUR Russia - RWF Rwanda - SAR Saudi Arabia - SBD Solomon Islands - SCR Seychelles - SDD Sudan - SEK Sweden - SGD Singapore - SHP Saint Helena - SIT Slovenia - SKK Slovakia - SLL Sierra Leone - SOS Somalia - SPL Seborga - SRG Suriname - STD São Tome and Principe - SVC El Salvador - SYP Syria - SZL Swaziland - THB Thailand - TJR Tajikistan - TMM Turkmenistan - TND Tunisia - TOP Tonga - TRL Turkey - TTD Trinidad and Tobago - TVD Tuvalu - TWD Taiwan - TZS Tanzania - UAH Ukraine - UGX Uganda - USD United States of America - UYU Uruguay - UZS Uzbekistan - VAL Vatican City - VEB Venezuela - VND Viet Nam - VUV Vanuatu - WST Samoa - XAF Communauté Financière Africaine - XAG Silver - XAU Gold - XCD East Caribbean - XDR International Monetary Fund - XPD Palladium - XPF Comptoirs Français du Pacifique - XPT Platinum - YER Yemen - YUM Yugoslavia - ZAR South Africa - ZMK Zambia - ZWD Zimbabwe - - */ - - return getid3_lib::EmbeddedLookup($currencyid, $begin, __LINE__, __FILE__, 'id3v2-currency-country'); - } - - - - public static function LanguageLookup($languagecode, $casesensitive=false) { - - if (!$casesensitive) { - $languagecode = strtolower($languagecode); - } - - // http://www.id3.org/id3v2.4.0-structure.txt - // [4. ID3v2 frame overview] - // The three byte language field, present in several frames, is used to - // describe the language of the frame's content, according to ISO-639-2 - // [ISO-639-2]. The language should be represented in lower case. If the - // language is not known the string "XXX" should be used. - - - // ISO 639-2 - http://www.id3.org/iso639-2.html - - $begin = __LINE__; - - /** This is not a comment! - - XXX unknown - xxx unknown - aar Afar - abk Abkhazian - ace Achinese - ach Acoli - ada Adangme - afa Afro-Asiatic (Other) - afh Afrihili - afr Afrikaans - aka Akan - akk Akkadian - alb Albanian - ale Aleut - alg Algonquian Languages - amh Amharic - ang English, Old (ca. 450-1100) - apa Apache Languages - ara Arabic - arc Aramaic - arm Armenian - arn Araucanian - arp Arapaho - art Artificial (Other) - arw Arawak - asm Assamese - ath Athapascan Languages - ava Avaric - ave Avestan - awa Awadhi - aym Aymara - aze Azerbaijani - bad Banda - bai Bamileke Languages - bak Bashkir - bal Baluchi - bam Bambara - ban Balinese - baq Basque - bas Basa - bat Baltic (Other) - bej Beja - bel Byelorussian - bem Bemba - ben Bengali - ber Berber (Other) - bho Bhojpuri - bih Bihari - bik Bikol - bin Bini - bis Bislama - bla Siksika - bnt Bantu (Other) - bod Tibetan - bra Braj - bre Breton - bua Buriat - bug Buginese - bul Bulgarian - bur Burmese - cad Caddo - cai Central American Indian (Other) - car Carib - cat Catalan - cau Caucasian (Other) - ceb Cebuano - cel Celtic (Other) - ces Czech - cha Chamorro - chb Chibcha - che Chechen - chg Chagatai - chi Chinese - chm Mari - chn Chinook jargon - cho Choctaw - chr Cherokee - chu Church Slavic - chv Chuvash - chy Cheyenne - cop Coptic - cor Cornish - cos Corsican - cpe Creoles and Pidgins, English-based (Other) - cpf Creoles and Pidgins, French-based (Other) - cpp Creoles and Pidgins, Portuguese-based (Other) - cre Cree - crp Creoles and Pidgins (Other) - cus Cushitic (Other) - cym Welsh - cze Czech - dak Dakota - dan Danish - del Delaware - deu German - din Dinka - div Divehi - doi Dogri - dra Dravidian (Other) - dua Duala - dum Dutch, Middle (ca. 1050-1350) - dut Dutch - dyu Dyula - dzo Dzongkha - efi Efik - egy Egyptian (Ancient) - eka Ekajuk - ell Greek, Modern (1453-) - elx Elamite - eng English - enm English, Middle (ca. 1100-1500) - epo Esperanto - esk Eskimo (Other) - esl Spanish - est Estonian - eus Basque - ewe Ewe - ewo Ewondo - fan Fang - fao Faroese - fas Persian - fat Fanti - fij Fijian - fin Finnish - fiu Finno-Ugrian (Other) - fon Fon - fra French - fre French - frm French, Middle (ca. 1400-1600) - fro French, Old (842- ca. 1400) - fry Frisian - ful Fulah - gaa Ga - gae Gaelic (Scots) - gai Irish - gay Gayo - gdh Gaelic (Scots) - gem Germanic (Other) - geo Georgian - ger German - gez Geez - gil Gilbertese - glg Gallegan - gmh German, Middle High (ca. 1050-1500) - goh German, Old High (ca. 750-1050) - gon Gondi - got Gothic - grb Grebo - grc Greek, Ancient (to 1453) - gre Greek, Modern (1453-) - grn Guarani - guj Gujarati - hai Haida - hau Hausa - haw Hawaiian - heb Hebrew - her Herero - hil Hiligaynon - him Himachali - hin Hindi - hmo Hiri Motu - hun Hungarian - hup Hupa - hye Armenian - iba Iban - ibo Igbo - ice Icelandic - ijo Ijo - iku Inuktitut - ilo Iloko - ina Interlingua (International Auxiliary language Association) - inc Indic (Other) - ind Indonesian - ine Indo-European (Other) - ine Interlingue - ipk Inupiak - ira Iranian (Other) - iri Irish - iro Iroquoian uages - isl Icelandic - ita Italian - jav Javanese - jaw Javanese - jpn Japanese - jpr Judeo-Persian - jrb Judeo-Arabic - kaa Kara-Kalpak - kab Kabyle - kac Kachin - kal Greenlandic - kam Kamba - kan Kannada - kar Karen - kas Kashmiri - kat Georgian - kau Kanuri - kaw Kawi - kaz Kazakh - kha Khasi - khi Khoisan (Other) - khm Khmer - kho Khotanese - kik Kikuyu - kin Kinyarwanda - kir Kirghiz - kok Konkani - kom Komi - kon Kongo - kor Korean - kpe Kpelle - kro Kru - kru Kurukh - kua Kuanyama - kum Kumyk - kur Kurdish - kus Kusaie - kut Kutenai - lad Ladino - lah Lahnda - lam Lamba - lao Lao - lat Latin - lav Latvian - lez Lezghian - lin Lingala - lit Lithuanian - lol Mongo - loz Lozi - ltz Letzeburgesch - lub Luba-Katanga - lug Ganda - lui Luiseno - lun Lunda - luo Luo (Kenya and Tanzania) - mac Macedonian - mad Madurese - mag Magahi - mah Marshall - mai Maithili - mak Macedonian - mak Makasar - mal Malayalam - man Mandingo - mao Maori - map Austronesian (Other) - mar Marathi - mas Masai - max Manx - may Malay - men Mende - mga Irish, Middle (900 - 1200) - mic Micmac - min Minangkabau - mis Miscellaneous (Other) - mkh Mon-Kmer (Other) - mlg Malagasy - mlt Maltese - mni Manipuri - mno Manobo Languages - moh Mohawk - mol Moldavian - mon Mongolian - mos Mossi - mri Maori - msa Malay - mul Multiple Languages - mun Munda Languages - mus Creek - mwr Marwari - mya Burmese - myn Mayan Languages - nah Aztec - nai North American Indian (Other) - nau Nauru - nav Navajo - nbl Ndebele, South - nde Ndebele, North - ndo Ndongo - nep Nepali - new Newari - nic Niger-Kordofanian (Other) - niu Niuean - nla Dutch - nno Norwegian (Nynorsk) - non Norse, Old - nor Norwegian - nso Sotho, Northern - nub Nubian Languages - nya Nyanja - nym Nyamwezi - nyn Nyankole - nyo Nyoro - nzi Nzima - oci Langue d'Oc (post 1500) - oji Ojibwa - ori Oriya - orm Oromo - osa Osage - oss Ossetic - ota Turkish, Ottoman (1500 - 1928) - oto Otomian Languages - paa Papuan-Australian (Other) - pag Pangasinan - pal Pahlavi - pam Pampanga - pan Panjabi - pap Papiamento - pau Palauan - peo Persian, Old (ca 600 - 400 B.C.) - per Persian - phn Phoenician - pli Pali - pol Polish - pon Ponape - por Portuguese - pra Prakrit uages - pro Provencal, Old (to 1500) - pus Pushto - que Quechua - raj Rajasthani - rar Rarotongan - roa Romance (Other) - roh Rhaeto-Romance - rom Romany - ron Romanian - rum Romanian - run Rundi - rus Russian - sad Sandawe - sag Sango - sah Yakut - sai South American Indian (Other) - sal Salishan Languages - sam Samaritan Aramaic - san Sanskrit - sco Scots - scr Serbo-Croatian - sel Selkup - sem Semitic (Other) - sga Irish, Old (to 900) - shn Shan - sid Sidamo - sin Singhalese - sio Siouan Languages - sit Sino-Tibetan (Other) - sla Slavic (Other) - slk Slovak - slo Slovak - slv Slovenian - smi Sami Languages - smo Samoan - sna Shona - snd Sindhi - sog Sogdian - som Somali - son Songhai - sot Sotho, Southern - spa Spanish - sqi Albanian - srd Sardinian - srr Serer - ssa Nilo-Saharan (Other) - ssw Siswant - ssw Swazi - suk Sukuma - sun Sudanese - sus Susu - sux Sumerian - sve Swedish - swa Swahili - swe Swedish - syr Syriac - tah Tahitian - tam Tamil - tat Tatar - tel Telugu - tem Timne - ter Tereno - tgk Tajik - tgl Tagalog - tha Thai - tib Tibetan - tig Tigre - tir Tigrinya - tiv Tivi - tli Tlingit - tmh Tamashek - tog Tonga (Nyasa) - ton Tonga (Tonga Islands) - tru Truk - tsi Tsimshian - tsn Tswana - tso Tsonga - tuk Turkmen - tum Tumbuka - tur Turkish - tut Altaic (Other) - twi Twi - tyv Tuvinian - uga Ugaritic - uig Uighur - ukr Ukrainian - umb Umbundu - und Undetermined - urd Urdu - uzb Uzbek - vai Vai - ven Venda - vie Vietnamese - vol Volapük - vot Votic - wak Wakashan Languages - wal Walamo - war Waray - was Washo - wel Welsh - wen Sorbian Languages - wol Wolof - xho Xhosa - yao Yao - yap Yap - yid Yiddish - yor Yoruba - zap Zapotec - zen Zenaga - zha Zhuang - zho Chinese - zul Zulu - zun Zuni - - */ - - return getid3_lib::EmbeddedLookup($languagecode, $begin, __LINE__, __FILE__, 'id3v2-languagecode'); - } - - - public static function ETCOEventLookup($index) { - if (($index >= 0x17) && ($index <= 0xDF)) { - return 'reserved for future use'; - } - if (($index >= 0xE0) && ($index <= 0xEF)) { - return 'not predefined synch 0-F'; - } - if (($index >= 0xF0) && ($index <= 0xFC)) { - return 'reserved for future use'; - } - - static $EventLookup = array( - 0x00 => 'padding (has no meaning)', - 0x01 => 'end of initial silence', - 0x02 => 'intro start', - 0x03 => 'main part start', - 0x04 => 'outro start', - 0x05 => 'outro end', - 0x06 => 'verse start', - 0x07 => 'refrain start', - 0x08 => 'interlude start', - 0x09 => 'theme start', - 0x0A => 'variation start', - 0x0B => 'key change', - 0x0C => 'time change', - 0x0D => 'momentary unwanted noise (Snap, Crackle & Pop)', - 0x0E => 'sustained noise', - 0x0F => 'sustained noise end', - 0x10 => 'intro end', - 0x11 => 'main part end', - 0x12 => 'verse end', - 0x13 => 'refrain end', - 0x14 => 'theme end', - 0x15 => 'profanity', - 0x16 => 'profanity end', - 0xFD => 'audio end (start of silence)', - 0xFE => 'audio file ends', - 0xFF => 'one more byte of events follows' - ); - - return (isset($EventLookup[$index]) ? $EventLookup[$index] : ''); - } - - public static function SYTLContentTypeLookup($index) { - static $SYTLContentTypeLookup = array( - 0x00 => 'other', - 0x01 => 'lyrics', - 0x02 => 'text transcription', - 0x03 => 'movement/part name', // (e.g. 'Adagio') - 0x04 => 'events', // (e.g. 'Don Quijote enters the stage') - 0x05 => 'chord', // (e.g. 'Bb F Fsus') - 0x06 => 'trivia/\'pop up\' information', - 0x07 => 'URLs to webpages', - 0x08 => 'URLs to images' - ); - - return (isset($SYTLContentTypeLookup[$index]) ? $SYTLContentTypeLookup[$index] : ''); - } - - public static function APICPictureTypeLookup($index, $returnarray=false) { - static $APICPictureTypeLookup = array( - 0x00 => 'Other', - 0x01 => '32x32 pixels \'file icon\' (PNG only)', - 0x02 => 'Other file icon', - 0x03 => 'Cover (front)', - 0x04 => 'Cover (back)', - 0x05 => 'Leaflet page', - 0x06 => 'Media (e.g. label side of CD)', - 0x07 => 'Lead artist/lead performer/soloist', - 0x08 => 'Artist/performer', - 0x09 => 'Conductor', - 0x0A => 'Band/Orchestra', - 0x0B => 'Composer', - 0x0C => 'Lyricist/text writer', - 0x0D => 'Recording Location', - 0x0E => 'During recording', - 0x0F => 'During performance', - 0x10 => 'Movie/video screen capture', - 0x11 => 'A bright coloured fish', - 0x12 => 'Illustration', - 0x13 => 'Band/artist logotype', - 0x14 => 'Publisher/Studio logotype' - ); - if ($returnarray) { - return $APICPictureTypeLookup; - } - return (isset($APICPictureTypeLookup[$index]) ? $APICPictureTypeLookup[$index] : ''); - } - - public static function COMRReceivedAsLookup($index) { - static $COMRReceivedAsLookup = array( - 0x00 => 'Other', - 0x01 => 'Standard CD album with other songs', - 0x02 => 'Compressed audio on CD', - 0x03 => 'File over the Internet', - 0x04 => 'Stream over the Internet', - 0x05 => 'As note sheets', - 0x06 => 'As note sheets in a book with other sheets', - 0x07 => 'Music on other media', - 0x08 => 'Non-musical merchandise' - ); - - return (isset($COMRReceivedAsLookup[$index]) ? $COMRReceivedAsLookup[$index] : ''); - } - - public static function RVA2ChannelTypeLookup($index) { - static $RVA2ChannelTypeLookup = array( - 0x00 => 'Other', - 0x01 => 'Master volume', - 0x02 => 'Front right', - 0x03 => 'Front left', - 0x04 => 'Back right', - 0x05 => 'Back left', - 0x06 => 'Front centre', - 0x07 => 'Back centre', - 0x08 => 'Subwoofer' - ); - - return (isset($RVA2ChannelTypeLookup[$index]) ? $RVA2ChannelTypeLookup[$index] : ''); - } - - public static function FrameNameLongLookup($framename) { - - $begin = __LINE__; - - /** This is not a comment! - - AENC Audio encryption - APIC Attached picture - ASPI Audio seek point index - BUF Recommended buffer size - CNT Play counter - COM Comments - COMM Comments - COMR Commercial frame - CRA Audio encryption - CRM Encrypted meta frame - ENCR Encryption method registration - EQU Equalisation - EQU2 Equalisation (2) - EQUA Equalisation - ETC Event timing codes - ETCO Event timing codes - GEO General encapsulated object - GEOB General encapsulated object - GRID Group identification registration - IPL Involved people list - IPLS Involved people list - LINK Linked information - LNK Linked information - MCDI Music CD identifier - MCI Music CD Identifier - MLL MPEG location lookup table - MLLT MPEG location lookup table - OWNE Ownership frame - PCNT Play counter - PIC Attached picture - POP Popularimeter - POPM Popularimeter - POSS Position synchronisation frame - PRIV Private frame - RBUF Recommended buffer size - REV Reverb - RVA Relative volume adjustment - RVA2 Relative volume adjustment (2) - RVAD Relative volume adjustment - RVRB Reverb - SEEK Seek frame - SIGN Signature frame - SLT Synchronised lyric/text - STC Synced tempo codes - SYLT Synchronised lyric/text - SYTC Synchronised tempo codes - TAL Album/Movie/Show title - TALB Album/Movie/Show title - TBP BPM (Beats Per Minute) - TBPM BPM (beats per minute) - TCM Composer - TCMP Part of a compilation - TCO Content type - TCOM Composer - TCON Content type - TCOP Copyright message - TCP Part of a compilation - TCR Copyright message - TDA Date - TDAT Date - TDEN Encoding time - TDLY Playlist delay - TDOR Original release time - TDRC Recording time - TDRL Release time - TDTG Tagging time - TDY Playlist delay - TEN Encoded by - TENC Encoded by - TEXT Lyricist/Text writer - TFLT File type - TFT File type - TIM Time - TIME Time - TIPL Involved people list - TIT1 Content group description - TIT2 Title/songname/content description - TIT3 Subtitle/Description refinement - TKE Initial key - TKEY Initial key - TLA Language(s) - TLAN Language(s) - TLE Length - TLEN Length - TMCL Musician credits list - TMED Media type - TMOO Mood - TMT Media type - TOA Original artist(s)/performer(s) - TOAL Original album/movie/show title - TOF Original filename - TOFN Original filename - TOL Original Lyricist(s)/text writer(s) - TOLY Original lyricist(s)/text writer(s) - TOPE Original artist(s)/performer(s) - TOR Original release year - TORY Original release year - TOT Original album/Movie/Show title - TOWN File owner/licensee - TP1 Lead artist(s)/Lead performer(s)/Soloist(s)/Performing group - TP2 Band/Orchestra/Accompaniment - TP3 Conductor/Performer refinement - TP4 Interpreted, remixed, or otherwise modified by - TPA Part of a set - TPB Publisher - TPE1 Lead performer(s)/Soloist(s) - TPE2 Band/orchestra/accompaniment - TPE3 Conductor/performer refinement - TPE4 Interpreted, remixed, or otherwise modified by - TPOS Part of a set - TPRO Produced notice - TPUB Publisher - TRC ISRC (International Standard Recording Code) - TRCK Track number/Position in set - TRD Recording dates - TRDA Recording dates - TRK Track number/Position in set - TRSN Internet radio station name - TRSO Internet radio station owner - TS2 Album-Artist sort order - TSA Album sort order - TSC Composer sort order - TSI Size - TSIZ Size - TSO2 Album-Artist sort order - TSOA Album sort order - TSOC Composer sort order - TSOP Performer sort order - TSOT Title sort order - TSP Performer sort order - TSRC ISRC (international standard recording code) - TSS Software/hardware and settings used for encoding - TSSE Software/Hardware and settings used for encoding - TSST Set subtitle - TST Title sort order - TT1 Content group description - TT2 Title/Songname/Content description - TT3 Subtitle/Description refinement - TXT Lyricist/text writer - TXX User defined text information frame - TXXX User defined text information frame - TYE Year - TYER Year - UFI Unique file identifier - UFID Unique file identifier - ULT Unsychronised lyric/text transcription - USER Terms of use - USLT Unsynchronised lyric/text transcription - WAF Official audio file webpage - WAR Official artist/performer webpage - WAS Official audio source webpage - WCM Commercial information - WCOM Commercial information - WCOP Copyright/Legal information - WCP Copyright/Legal information - WOAF Official audio file webpage - WOAR Official artist/performer webpage - WOAS Official audio source webpage - WORS Official Internet radio station homepage - WPAY Payment - WPB Publishers official webpage - WPUB Publishers official webpage - WXX User defined URL link frame - WXXX User defined URL link frame - TFEA Featured Artist - TSTU Recording Studio - rgad Replay Gain Adjustment - - */ - - return getid3_lib::EmbeddedLookup($framename, $begin, __LINE__, __FILE__, 'id3v2-framename_long'); - - // Last three: - // from Helium2 [www.helium2.com] - // from http://privatewww.essex.ac.uk/~djmrob/replaygain/file_format_id3v2.html - } - - - public static function FrameNameShortLookup($framename) { - - $begin = __LINE__; - - /** This is not a comment! - - AENC audio_encryption - APIC attached_picture - ASPI audio_seek_point_index - BUF recommended_buffer_size - CNT play_counter - COM comment - COMM comment - COMR commercial_frame - CRA audio_encryption - CRM encrypted_meta_frame - ENCR encryption_method_registration - EQU equalisation - EQU2 equalisation - EQUA equalisation - ETC event_timing_codes - ETCO event_timing_codes - GEO general_encapsulated_object - GEOB general_encapsulated_object - GRID group_identification_registration - IPL involved_people_list - IPLS involved_people_list - LINK linked_information - LNK linked_information - MCDI music_cd_identifier - MCI music_cd_identifier - MLL mpeg_location_lookup_table - MLLT mpeg_location_lookup_table - OWNE ownership_frame - PCNT play_counter - PIC attached_picture - POP popularimeter - POPM popularimeter - POSS position_synchronisation_frame - PRIV private_frame - RBUF recommended_buffer_size - REV reverb - RVA relative_volume_adjustment - RVA2 relative_volume_adjustment - RVAD relative_volume_adjustment - RVRB reverb - SEEK seek_frame - SIGN signature_frame - SLT synchronised_lyric - STC synced_tempo_codes - SYLT synchronised_lyric - SYTC synchronised_tempo_codes - TAL album - TALB album - TBP bpm - TBPM bpm - TCM composer - TCMP part_of_a_compilation - TCO genre - TCOM composer - TCON genre - TCOP copyright_message - TCP part_of_a_compilation - TCR copyright_message - TDA date - TDAT date - TDEN encoding_time - TDLY playlist_delay - TDOR original_release_time - TDRC recording_time - TDRL release_time - TDTG tagging_time - TDY playlist_delay - TEN encoded_by - TENC encoded_by - TEXT lyricist - TFLT file_type - TFT file_type - TIM time - TIME time - TIPL involved_people_list - TIT1 content_group_description - TIT2 title - TIT3 subtitle - TKE initial_key - TKEY initial_key - TLA language - TLAN language - TLE length - TLEN length - TMCL musician_credits_list - TMED media_type - TMOO mood - TMT media_type - TOA original_artist - TOAL original_album - TOF original_filename - TOFN original_filename - TOL original_lyricist - TOLY original_lyricist - TOPE original_artist - TOR original_year - TORY original_year - TOT original_album - TOWN file_owner - TP1 artist - TP2 band - TP3 conductor - TP4 remixer - TPA part_of_a_set - TPB publisher - TPE1 artist - TPE2 band - TPE3 conductor - TPE4 remixer - TPOS part_of_a_set - TPRO produced_notice - TPUB publisher - TRC isrc - TRCK track_number - TRD recording_dates - TRDA recording_dates - TRK track_number - TRSN internet_radio_station_name - TRSO internet_radio_station_owner - TS2 album_artist_sort_order - TSA album_sort_order - TSC composer_sort_order - TSI size - TSIZ size - TSO2 album_artist_sort_order - TSOA album_sort_order - TSOC composer_sort_order - TSOP performer_sort_order - TSOT title_sort_order - TSP performer_sort_order - TSRC isrc - TSS encoder_settings - TSSE encoder_settings - TSST set_subtitle - TST title_sort_order - TT1 content_group_description - TT2 title - TT3 subtitle - TXT lyricist - TXX text - TXXX text - TYE year - TYER year - UFI unique_file_identifier - UFID unique_file_identifier - ULT unsychronised_lyric - USER terms_of_use - USLT unsynchronised_lyric - WAF url_file - WAR url_artist - WAS url_source - WCM commercial_information - WCOM commercial_information - WCOP copyright - WCP copyright - WOAF url_file - WOAR url_artist - WOAS url_source - WORS url_station - WPAY url_payment - WPB url_publisher - WPUB url_publisher - WXX url_user - WXXX url_user - TFEA featured_artist - TSTU recording_studio - rgad replay_gain_adjustment - - */ - - return getid3_lib::EmbeddedLookup($framename, $begin, __LINE__, __FILE__, 'id3v2-framename_short'); - } - - public static function TextEncodingTerminatorLookup($encoding) { - // http://www.id3.org/id3v2.4.0-structure.txt - // Frames that allow different types of text encoding contains a text encoding description byte. Possible encodings: - static $TextEncodingTerminatorLookup = array( - 0 => "\x00", // $00 ISO-8859-1. Terminated with $00. - 1 => "\x00\x00", // $01 UTF-16 encoded Unicode with BOM. All strings in the same frame SHALL have the same byteorder. Terminated with $00 00. - 2 => "\x00\x00", // $02 UTF-16BE encoded Unicode without BOM. Terminated with $00 00. - 3 => "\x00", // $03 UTF-8 encoded Unicode. Terminated with $00. - 255 => "\x00\x00" - ); - return (isset($TextEncodingTerminatorLookup[$encoding]) ? $TextEncodingTerminatorLookup[$encoding] : ''); - } - - public static function TextEncodingNameLookup($encoding) { - // http://www.id3.org/id3v2.4.0-structure.txt - // Frames that allow different types of text encoding contains a text encoding description byte. Possible encodings: - static $TextEncodingNameLookup = array( - 0 => 'ISO-8859-1', // $00 ISO-8859-1. Terminated with $00. - 1 => 'UTF-16', // $01 UTF-16 encoded Unicode with BOM. All strings in the same frame SHALL have the same byteorder. Terminated with $00 00. - 2 => 'UTF-16BE', // $02 UTF-16BE encoded Unicode without BOM. Terminated with $00 00. - 3 => 'UTF-8', // $03 UTF-8 encoded Unicode. Terminated with $00. - 255 => 'UTF-16BE' - ); - return (isset($TextEncodingNameLookup[$encoding]) ? $TextEncodingNameLookup[$encoding] : 'ISO-8859-1'); - } - - public static function IsValidID3v2FrameName($framename, $id3v2majorversion) { - switch ($id3v2majorversion) { - case 2: - return preg_match('#[A-Z][A-Z0-9]{2}#', $framename); - break; - - case 3: - case 4: - return preg_match('#[A-Z][A-Z0-9]{3}#', $framename); - break; - } - return false; - } - - public static function IsANumber($numberstring, $allowdecimal=false, $allownegative=false) { - for ($i = 0; $i < strlen($numberstring); $i++) { - if ((chr($numberstring{$i}) < chr('0')) || (chr($numberstring{$i}) > chr('9'))) { - if (($numberstring{$i} == '.') && $allowdecimal) { - // allowed - } elseif (($numberstring{$i} == '-') && $allownegative && ($i == 0)) { - // allowed - } else { - return false; - } - } - } - return true; - } - - public static function IsValidDateStampString($datestamp) { - if (strlen($datestamp) != 8) { - return false; - } - if (!self::IsANumber($datestamp, false)) { - return false; - } - $year = substr($datestamp, 0, 4); - $month = substr($datestamp, 4, 2); - $day = substr($datestamp, 6, 2); - if (($year == 0) || ($month == 0) || ($day == 0)) { - return false; - } - if ($month > 12) { - return false; - } - if ($day > 31) { - return false; - } - if (($day > 30) && (($month == 4) || ($month == 6) || ($month == 9) || ($month == 11))) { - return false; - } - if (($day > 29) && ($month == 2)) { - return false; - } - return true; - } - - public static function ID3v2HeaderLength($majorversion) { - return (($majorversion == 2) ? 6 : 10); - } - -} - diff --git a/web/htdocs/media/lib/getid3/module.tag.lyrics3.php b/web/htdocs/media/lib/getid3/module.tag.lyrics3.php deleted file mode 100644 index 108d7aeeabc..00000000000 --- a/web/htdocs/media/lib/getid3/module.tag.lyrics3.php +++ /dev/null @@ -1,294 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -/// // -// module.tag.lyrics3.php // -// module for analyzing Lyrics3 tags // -// dependencies: module.tag.apetag.php (optional) // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_lyrics3 extends getid3_handler -{ - - public function Analyze() { - $info = &$this->getid3->info; - - // http://www.volweb.cz/str/tags.htm - - if (!getid3_lib::intValueSupported($info['filesize'])) { - $info['warning'][] = 'Unable to check for Lyrics3 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - - fseek($this->getid3->fp, (0 - 128 - 9 - 6), SEEK_END); // end - ID3v1 - "LYRICSEND" - [Lyrics3size] - $lyrics3_id3v1 = fread($this->getid3->fp, 128 + 9 + 6); - $lyrics3lsz = substr($lyrics3_id3v1, 0, 6); // Lyrics3size - $lyrics3end = substr($lyrics3_id3v1, 6, 9); // LYRICSEND or LYRICS200 - $id3v1tag = substr($lyrics3_id3v1, 15, 128); // ID3v1 - - if ($lyrics3end == 'LYRICSEND') { - // Lyrics3v1, ID3v1, no APE - - $lyrics3size = 5100; - $lyrics3offset = $info['filesize'] - 128 - $lyrics3size; - $lyrics3version = 1; - - } elseif ($lyrics3end == 'LYRICS200') { - // Lyrics3v2, ID3v1, no APE - - // LSZ = lyrics + 'LYRICSBEGIN'; add 6-byte size field; add 'LYRICS200' - $lyrics3size = $lyrics3lsz + 6 + strlen('LYRICS200'); - $lyrics3offset = $info['filesize'] - 128 - $lyrics3size; - $lyrics3version = 2; - - } elseif (substr(strrev($lyrics3_id3v1), 0, 9) == strrev('LYRICSEND')) { - // Lyrics3v1, no ID3v1, no APE - - $lyrics3size = 5100; - $lyrics3offset = $info['filesize'] - $lyrics3size; - $lyrics3version = 1; - $lyrics3offset = $info['filesize'] - $lyrics3size; - - } elseif (substr(strrev($lyrics3_id3v1), 0, 9) == strrev('LYRICS200')) { - - // Lyrics3v2, no ID3v1, no APE - - $lyrics3size = strrev(substr(strrev($lyrics3_id3v1), 9, 6)) + 6 + strlen('LYRICS200'); // LSZ = lyrics + 'LYRICSBEGIN'; add 6-byte size field; add 'LYRICS200' - $lyrics3offset = $info['filesize'] - $lyrics3size; - $lyrics3version = 2; - - } else { - - if (isset($info['ape']['tag_offset_start']) && ($info['ape']['tag_offset_start'] > 15)) { - - fseek($this->getid3->fp, $info['ape']['tag_offset_start'] - 15, SEEK_SET); - $lyrics3lsz = fread($this->getid3->fp, 6); - $lyrics3end = fread($this->getid3->fp, 9); - - if ($lyrics3end == 'LYRICSEND') { - // Lyrics3v1, APE, maybe ID3v1 - - $lyrics3size = 5100; - $lyrics3offset = $info['ape']['tag_offset_start'] - $lyrics3size; - $info['avdataend'] = $lyrics3offset; - $lyrics3version = 1; - $info['warning'][] = 'APE tag located after Lyrics3, will probably break Lyrics3 compatability'; - - } elseif ($lyrics3end == 'LYRICS200') { - // Lyrics3v2, APE, maybe ID3v1 - - $lyrics3size = $lyrics3lsz + 6 + strlen('LYRICS200'); // LSZ = lyrics + 'LYRICSBEGIN'; add 6-byte size field; add 'LYRICS200' - $lyrics3offset = $info['ape']['tag_offset_start'] - $lyrics3size; - $lyrics3version = 2; - $info['warning'][] = 'APE tag located after Lyrics3, will probably break Lyrics3 compatability'; - - } - - } - - } - - if (isset($lyrics3offset)) { - $info['avdataend'] = $lyrics3offset; - $this->getLyrics3Data($lyrics3offset, $lyrics3version, $lyrics3size); - - if (!isset($info['ape'])) { - $GETID3_ERRORARRAY = &$info['warning']; - if (getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.apetag.php', __FILE__, false)) { - $getid3_temp = new getID3(); - $getid3_temp->openfile($this->getid3->filename); - $getid3_apetag = new getid3_apetag($getid3_temp); - $getid3_apetag->overrideendoffset = $info['lyrics3']['tag_offset_start']; - $getid3_apetag->Analyze(); - if (!empty($getid3_temp->info['ape'])) { - $info['ape'] = $getid3_temp->info['ape']; - } - if (!empty($getid3_temp->info['replay_gain'])) { - $info['replay_gain'] = $getid3_temp->info['replay_gain']; - } - unset($getid3_temp, $getid3_apetag); - } - } - - } - - return true; - } - - public function getLyrics3Data($endoffset, $version, $length) { - // http://www.volweb.cz/str/tags.htm - - $info = &$this->getid3->info; - - if (!getid3_lib::intValueSupported($endoffset)) { - $info['warning'][] = 'Unable to check for Lyrics3 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - - fseek($this->getid3->fp, $endoffset, SEEK_SET); - if ($length <= 0) { - return false; - } - $rawdata = fread($this->getid3->fp, $length); - - $ParsedLyrics3['raw']['lyrics3version'] = $version; - $ParsedLyrics3['raw']['lyrics3tagsize'] = $length; - $ParsedLyrics3['tag_offset_start'] = $endoffset; - $ParsedLyrics3['tag_offset_end'] = $endoffset + $length - 1; - - if (substr($rawdata, 0, 11) != 'LYRICSBEGIN') { - if (strpos($rawdata, 'LYRICSBEGIN') !== false) { - - $info['warning'][] = '"LYRICSBEGIN" expected at '.$endoffset.' but actually found at '.($endoffset + strpos($rawdata, 'LYRICSBEGIN')).' - this is invalid for Lyrics3 v'.$version; - $info['avdataend'] = $endoffset + strpos($rawdata, 'LYRICSBEGIN'); - $rawdata = substr($rawdata, strpos($rawdata, 'LYRICSBEGIN')); - $length = strlen($rawdata); - $ParsedLyrics3['tag_offset_start'] = $info['avdataend']; - $ParsedLyrics3['raw']['lyrics3tagsize'] = $length; - - } else { - - $info['error'][] = '"LYRICSBEGIN" expected at '.$endoffset.' but found "'.substr($rawdata, 0, 11).'" instead'; - return false; - - } - - } - - switch ($version) { - - case 1: - if (substr($rawdata, strlen($rawdata) - 9, 9) == 'LYRICSEND') { - $ParsedLyrics3['raw']['LYR'] = trim(substr($rawdata, 11, strlen($rawdata) - 11 - 9)); - $this->Lyrics3LyricsTimestampParse($ParsedLyrics3); - } else { - $info['error'][] = '"LYRICSEND" expected at '.(ftell($this->getid3->fp) - 11 + $length - 9).' but found "'.substr($rawdata, strlen($rawdata) - 9, 9).'" instead'; - return false; - } - break; - - case 2: - if (substr($rawdata, strlen($rawdata) - 9, 9) == 'LYRICS200') { - $ParsedLyrics3['raw']['unparsed'] = substr($rawdata, 11, strlen($rawdata) - 11 - 9 - 6); // LYRICSBEGIN + LYRICS200 + LSZ - $rawdata = $ParsedLyrics3['raw']['unparsed']; - while (strlen($rawdata) > 0) { - $fieldname = substr($rawdata, 0, 3); - $fieldsize = (int) substr($rawdata, 3, 5); - $ParsedLyrics3['raw'][$fieldname] = substr($rawdata, 8, $fieldsize); - $rawdata = substr($rawdata, 3 + 5 + $fieldsize); - } - - if (isset($ParsedLyrics3['raw']['IND'])) { - $i = 0; - $flagnames = array('lyrics', 'timestamps', 'inhibitrandom'); - foreach ($flagnames as $flagname) { - if (strlen($ParsedLyrics3['raw']['IND']) > $i++) { - $ParsedLyrics3['flags'][$flagname] = $this->IntString2Bool(substr($ParsedLyrics3['raw']['IND'], $i, 1 - 1)); - } - } - } - - $fieldnametranslation = array('ETT'=>'title', 'EAR'=>'artist', 'EAL'=>'album', 'INF'=>'comment', 'AUT'=>'author'); - foreach ($fieldnametranslation as $key => $value) { - if (isset($ParsedLyrics3['raw'][$key])) { - $ParsedLyrics3['comments'][$value][] = trim($ParsedLyrics3['raw'][$key]); - } - } - - if (isset($ParsedLyrics3['raw']['IMG'])) { - $imagestrings = explode("\r\n", $ParsedLyrics3['raw']['IMG']); - foreach ($imagestrings as $key => $imagestring) { - if (strpos($imagestring, '||') !== false) { - $imagearray = explode('||', $imagestring); - $ParsedLyrics3['images'][$key]['filename'] = (isset($imagearray[0]) ? $imagearray[0] : ''); - $ParsedLyrics3['images'][$key]['description'] = (isset($imagearray[1]) ? $imagearray[1] : ''); - $ParsedLyrics3['images'][$key]['timestamp'] = $this->Lyrics3Timestamp2Seconds(isset($imagearray[2]) ? $imagearray[2] : ''); - } - } - } - if (isset($ParsedLyrics3['raw']['LYR'])) { - $this->Lyrics3LyricsTimestampParse($ParsedLyrics3); - } - } else { - $info['error'][] = '"LYRICS200" expected at '.(ftell($this->getid3->fp) - 11 + $length - 9).' but found "'.substr($rawdata, strlen($rawdata) - 9, 9).'" instead'; - return false; - } - break; - - default: - $info['error'][] = 'Cannot process Lyrics3 version '.$version.' (only v1 and v2)'; - return false; - break; - } - - - if (isset($info['id3v1']['tag_offset_start']) && ($info['id3v1']['tag_offset_start'] <= $ParsedLyrics3['tag_offset_end'])) { - $info['warning'][] = 'ID3v1 tag information ignored since it appears to be a false synch in Lyrics3 tag data'; - unset($info['id3v1']); - foreach ($info['warning'] as $key => $value) { - if ($value == 'Some ID3v1 fields do not use NULL characters for padding') { - unset($info['warning'][$key]); - sort($info['warning']); - break; - } - } - } - - $info['lyrics3'] = $ParsedLyrics3; - - return true; - } - - public function Lyrics3Timestamp2Seconds($rawtimestamp) { - if (preg_match('#^\\[([0-9]{2}):([0-9]{2})\\]$#', $rawtimestamp, $regs)) { - return (int) (($regs[1] * 60) + $regs[2]); - } - return false; - } - - public function Lyrics3LyricsTimestampParse(&$Lyrics3data) { - $lyricsarray = explode("\r\n", $Lyrics3data['raw']['LYR']); - foreach ($lyricsarray as $key => $lyricline) { - $regs = array(); - unset($thislinetimestamps); - while (preg_match('#^(\\[[0-9]{2}:[0-9]{2}\\])#', $lyricline, $regs)) { - $thislinetimestamps[] = $this->Lyrics3Timestamp2Seconds($regs[0]); - $lyricline = str_replace($regs[0], '', $lyricline); - } - $notimestamplyricsarray[$key] = $lyricline; - if (isset($thislinetimestamps) && is_array($thislinetimestamps)) { - sort($thislinetimestamps); - foreach ($thislinetimestamps as $timestampkey => $timestamp) { - if (isset($Lyrics3data['synchedlyrics'][$timestamp])) { - // timestamps only have a 1-second resolution, it's possible that multiple lines - // could have the same timestamp, if so, append - $Lyrics3data['synchedlyrics'][$timestamp] .= "\r\n".$lyricline; - } else { - $Lyrics3data['synchedlyrics'][$timestamp] = $lyricline; - } - } - } - } - $Lyrics3data['unsynchedlyrics'] = implode("\r\n", $notimestamplyricsarray); - if (isset($Lyrics3data['synchedlyrics']) && is_array($Lyrics3data['synchedlyrics'])) { - ksort($Lyrics3data['synchedlyrics']); - } - return true; - } - - public function IntString2Bool($char) { - if ($char == '1') { - return true; - } elseif ($char == '0') { - return false; - } - return null; - } -} diff --git a/web/htdocs/media/lib/getid3/module.tag.xmp.php b/web/htdocs/media/lib/getid3/module.tag.xmp.php deleted file mode 100644 index 366c4ec913d..00000000000 --- a/web/htdocs/media/lib/getid3/module.tag.xmp.php +++ /dev/null @@ -1,767 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// module.tag.xmp.php // -// module for analyzing XMP metadata (e.g. in JPEG files) // -// dependencies: NONE // -// // -///////////////////////////////////////////////////////////////// -// // -// Module originally written [2009-Mar-26] by // -// Nigel Barnes // -// Bundled into getID3 with permission // -// called by getID3 in module.graphic.jpg.php // -// /// -///////////////////////////////////////////////////////////////// - -/************************************************************************************************** - * SWISScenter Source Nigel Barnes - * - * Provides functions for reading information from the 'APP1' Extensible Metadata - * Platform (XMP) segment of JPEG format files. - * This XMP segment is XML based and contains the Resource Description Framework (RDF) - * data, which itself can contain the Dublin Core Metadata Initiative (DCMI) information. - * - * This code uses segments from the JPEG Metadata Toolkit project by Evan Hunter. - *************************************************************************************************/ -class Image_XMP -{ - /** - * @var string - * The name of the image file that contains the XMP fields to extract and modify. - * @see Image_XMP() - */ - public $_sFilename = null; - - /** - * @var array - * The XMP fields that were extracted from the image or updated by this class. - * @see getAllTags() - */ - public $_aXMP = array(); - - /** - * @var boolean - * True if an APP1 segment was found to contain XMP metadata. - * @see isValid() - */ - public $_bXMPParse = false; - - /** - * Returns the status of XMP parsing during instantiation - * - * You'll normally want to call this method before trying to get XMP fields. - * - * @return boolean - * Returns true if an APP1 segment was found to contain XMP metadata. - */ - public function isValid() - { - return $this->_bXMPParse; - } - - /** - * Get a copy of all XMP tags extracted from the image - * - * @return array - An array of XMP fields as it extracted by the XMPparse() function - */ - public function getAllTags() - { - return $this->_aXMP; - } - - /** - * Reads all the JPEG header segments from an JPEG image file into an array - * - * @param string $filename - the filename of the JPEG file to read - * @return array $headerdata - Array of JPEG header segments - * @return boolean FALSE - if headers could not be read - */ - public function _get_jpeg_header_data($filename) - { - // prevent refresh from aborting file operations and hosing file - ignore_user_abort(true); - - // Attempt to open the jpeg file - the at symbol supresses the error message about - // not being able to open files. The file_exists would have been used, but it - // does not work with files fetched over http or ftp. - if (is_readable($filename) && is_file($filename) && ($filehnd = fopen($filename, 'rb'))) { - // great - } else { - return false; - } - - // Read the first two characters - $data = fread($filehnd, 2); - - // Check that the first two characters are 0xFF 0xD8 (SOI - Start of image) - if ($data != "\xFF\xD8") - { - // No SOI (FF D8) at start of file - This probably isn't a JPEG file - close file and return; - echo '

This probably is not a JPEG file

'."\n"; - fclose($filehnd); - return false; - } - - // Read the third character - $data = fread($filehnd, 2); - - // Check that the third character is 0xFF (Start of first segment header) - if ($data{0} != "\xFF") - { - // NO FF found - close file and return - JPEG is probably corrupted - fclose($filehnd); - return false; - } - - // Flag that we havent yet hit the compressed image data - $hit_compressed_image_data = false; - - // Cycle through the file until, one of: 1) an EOI (End of image) marker is hit, - // 2) we have hit the compressed image data (no more headers are allowed after data) - // 3) or end of file is hit - - while (($data{1} != "\xD9") && (!$hit_compressed_image_data) && (!feof($filehnd))) - { - // Found a segment to look at. - // Check that the segment marker is not a Restart marker - restart markers don't have size or data after them - if ((ord($data{1}) < 0xD0) || (ord($data{1}) > 0xD7)) - { - // Segment isn't a Restart marker - // Read the next two bytes (size) - $sizestr = fread($filehnd, 2); - - // convert the size bytes to an integer - $decodedsize = unpack('nsize', $sizestr); - - // Save the start position of the data - $segdatastart = ftell($filehnd); - - // Read the segment data with length indicated by the previously read size - $segdata = fread($filehnd, $decodedsize['size'] - 2); - - // Store the segment information in the output array - $headerdata[] = array( - 'SegType' => ord($data{1}), - 'SegName' => $GLOBALS['JPEG_Segment_Names'][ord($data{1})], - 'SegDataStart' => $segdatastart, - 'SegData' => $segdata, - ); - } - - // If this is a SOS (Start Of Scan) segment, then there is no more header data - the compressed image data follows - if ($data{1} == "\xDA") - { - // Flag that we have hit the compressed image data - exit loop as no more headers available. - $hit_compressed_image_data = true; - } - else - { - // Not an SOS - Read the next two bytes - should be the segment marker for the next segment - $data = fread($filehnd, 2); - - // Check that the first byte of the two is 0xFF as it should be for a marker - if ($data{0} != "\xFF") - { - // NO FF found - close file and return - JPEG is probably corrupted - fclose($filehnd); - return false; - } - } - } - - // Close File - fclose($filehnd); - // Alow the user to abort from now on - ignore_user_abort(false); - - // Return the header data retrieved - return $headerdata; - } - - - /** - * Retrieves XMP information from an APP1 JPEG segment and returns the raw XML text as a string. - * - * @param string $filename - the filename of the JPEG file to read - * @return string $xmp_data - the string of raw XML text - * @return boolean FALSE - if an APP 1 XMP segment could not be found, or if an error occured - */ - public function _get_XMP_text($filename) - { - //Get JPEG header data - $jpeg_header_data = $this->_get_jpeg_header_data($filename); - - //Cycle through the header segments - for ($i = 0; $i < count($jpeg_header_data); $i++) - { - // If we find an APP1 header, - if (strcmp($jpeg_header_data[$i]['SegName'], 'APP1') == 0) - { - // And if it has the Adobe XMP/RDF label (http://ns.adobe.com/xap/1.0/\x00) , - if (strncmp($jpeg_header_data[$i]['SegData'], 'http://ns.adobe.com/xap/1.0/'."\x00", 29) == 0) - { - // Found a XMP/RDF block - // Return the XMP text - $xmp_data = substr($jpeg_header_data[$i]['SegData'], 29); - - return trim($xmp_data); // trim() should not be neccesary, but some files found in the wild with null-terminated block (known samples from Apple Aperture) causes problems elsewhere (see http://www.getid3.org/phpBB3/viewtopic.php?f=4&t=1153) - } - } - } - return false; - } - - /** - * Parses a string containing XMP data (XML), and returns an array - * which contains all the XMP (XML) information. - * - * @param string $xml_text - a string containing the XMP data (XML) to be parsed - * @return array $xmp_array - an array containing all xmp details retrieved. - * @return boolean FALSE - couldn't parse the XMP data - */ - public function read_XMP_array_from_text($xmltext) - { - // Check if there actually is any text to parse - if (trim($xmltext) == '') - { - return false; - } - - // Create an instance of a xml parser to parse the XML text - $xml_parser = xml_parser_create('UTF-8'); - - // Change: Fixed problem that caused the whitespace (especially newlines) to be destroyed when converting xml text to an xml array, as of revision 1.10 - - // We would like to remove unneccessary white space, but this will also - // remove things like newlines ( ) in the XML values, so white space - // will have to be removed later - if (xml_parser_set_option($xml_parser, XML_OPTION_SKIP_WHITE, 0) == false) - { - // Error setting case folding - destroy the parser and return - xml_parser_free($xml_parser); - return false; - } - - // to use XML code correctly we have to turn case folding - // (uppercasing) off. XML is case sensitive and upper - // casing is in reality XML standards violation - if (xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, 0) == false) - { - // Error setting case folding - destroy the parser and return - xml_parser_free($xml_parser); - return false; - } - - // Parse the XML text into a array structure - if (xml_parse_into_struct($xml_parser, $xmltext, $values, $tags) == 0) - { - // Error Parsing XML - destroy the parser and return - xml_parser_free($xml_parser); - return false; - } - - // Destroy the xml parser - xml_parser_free($xml_parser); - - // Clear the output array - $xmp_array = array(); - - // The XMP data has now been parsed into an array ... - - // Cycle through each of the array elements - $current_property = ''; // current property being processed - $container_index = -1; // -1 = no container open, otherwise index of container content - foreach ($values as $xml_elem) - { - // Syntax and Class names - switch ($xml_elem['tag']) - { - case 'x:xmpmeta': - // only defined attribute is x:xmptk written by Adobe XMP Toolkit; value is the version of the toolkit - break; - - case 'rdf:RDF': - // required element immediately within x:xmpmeta; no data here - break; - - case 'rdf:Description': - switch ($xml_elem['type']) - { - case 'open': - case 'complete': - if (array_key_exists('attributes', $xml_elem)) - { - // rdf:Description may contain wanted attributes - foreach (array_keys($xml_elem['attributes']) as $key) - { - // Check whether we want this details from this attribute -// if (in_array($key, $GLOBALS['XMP_tag_captions'])) - if (true) - { - // Attribute wanted - $xmp_array[$key] = $xml_elem['attributes'][$key]; - } - } - } - case 'cdata': - case 'close': - break; - } - - case 'rdf:ID': - case 'rdf:nodeID': - // Attributes are ignored - break; - - case 'rdf:li': - // Property member - if ($xml_elem['type'] == 'complete') - { - if (array_key_exists('attributes', $xml_elem)) - { - // If Lang Alt (language alternatives) then ensure we take the default language - if (isset($xml_elem['attributes']['xml:lang']) && ($xml_elem['attributes']['xml:lang'] != 'x-default')) - { - break; - } - } - if ($current_property != '') - { - $xmp_array[$current_property][$container_index] = (isset($xml_elem['value']) ? $xml_elem['value'] : ''); - $container_index += 1; - } - //else unidentified attribute!! - } - break; - - case 'rdf:Seq': - case 'rdf:Bag': - case 'rdf:Alt': - // Container found - switch ($xml_elem['type']) - { - case 'open': - $container_index = 0; - break; - case 'close': - $container_index = -1; - break; - case 'cdata': - break; - } - break; - - default: - // Check whether we want the details from this attribute -// if (in_array($xml_elem['tag'], $GLOBALS['XMP_tag_captions'])) - if (true) - { - switch ($xml_elem['type']) - { - case 'open': - // open current element - $current_property = $xml_elem['tag']; - break; - - case 'close': - // close current element - $current_property = ''; - break; - - case 'complete': - // store attribute value - $xmp_array[$xml_elem['tag']] = (isset($xml_elem['attributes']) ? $xml_elem['attributes'] : (isset($xml_elem['value']) ? $xml_elem['value'] : '')); - break; - - case 'cdata': - // ignore - break; - } - } - break; - } - - } - return $xmp_array; - } - - - /** - * Constructor - * - * @param string - Name of the image file to access and extract XMP information from. - */ - public function Image_XMP($sFilename) - { - $this->_sFilename = $sFilename; - - if (is_file($this->_sFilename)) - { - // Get XMP data - $xmp_data = $this->_get_XMP_text($sFilename); - if ($xmp_data) - { - $this->_aXMP = $this->read_XMP_array_from_text($xmp_data); - $this->_bXMPParse = true; - } - } - } - -} - -/** -* Global Variable: XMP_tag_captions -* -* The Property names of all known XMP fields. -* Note: this is a full list with unrequired properties commented out. -*/ -/* -$GLOBALS['XMP_tag_captions'] = array( -// IPTC Core - 'Iptc4xmpCore:CiAdrCity', - 'Iptc4xmpCore:CiAdrCtry', - 'Iptc4xmpCore:CiAdrExtadr', - 'Iptc4xmpCore:CiAdrPcode', - 'Iptc4xmpCore:CiAdrRegion', - 'Iptc4xmpCore:CiEmailWork', - 'Iptc4xmpCore:CiTelWork', - 'Iptc4xmpCore:CiUrlWork', - 'Iptc4xmpCore:CountryCode', - 'Iptc4xmpCore:CreatorContactInfo', - 'Iptc4xmpCore:IntellectualGenre', - 'Iptc4xmpCore:Location', - 'Iptc4xmpCore:Scene', - 'Iptc4xmpCore:SubjectCode', -// Dublin Core Schema - 'dc:contributor', - 'dc:coverage', - 'dc:creator', - 'dc:date', - 'dc:description', - 'dc:format', - 'dc:identifier', - 'dc:language', - 'dc:publisher', - 'dc:relation', - 'dc:rights', - 'dc:source', - 'dc:subject', - 'dc:title', - 'dc:type', -// XMP Basic Schema - 'xmp:Advisory', - 'xmp:BaseURL', - 'xmp:CreateDate', - 'xmp:CreatorTool', - 'xmp:Identifier', - 'xmp:Label', - 'xmp:MetadataDate', - 'xmp:ModifyDate', - 'xmp:Nickname', - 'xmp:Rating', - 'xmp:Thumbnails', - 'xmpidq:Scheme', -// XMP Rights Management Schema - 'xmpRights:Certificate', - 'xmpRights:Marked', - 'xmpRights:Owner', - 'xmpRights:UsageTerms', - 'xmpRights:WebStatement', -// These are not in spec but Photoshop CS seems to use them - 'xap:Advisory', - 'xap:BaseURL', - 'xap:CreateDate', - 'xap:CreatorTool', - 'xap:Identifier', - 'xap:MetadataDate', - 'xap:ModifyDate', - 'xap:Nickname', - 'xap:Rating', - 'xap:Thumbnails', - 'xapidq:Scheme', - 'xapRights:Certificate', - 'xapRights:Copyright', - 'xapRights:Marked', - 'xapRights:Owner', - 'xapRights:UsageTerms', - 'xapRights:WebStatement', -// XMP Media Management Schema - 'xapMM:DerivedFrom', - 'xapMM:DocumentID', - 'xapMM:History', - 'xapMM:InstanceID', - 'xapMM:ManagedFrom', - 'xapMM:Manager', - 'xapMM:ManageTo', - 'xapMM:ManageUI', - 'xapMM:ManagerVariant', - 'xapMM:RenditionClass', - 'xapMM:RenditionParams', - 'xapMM:VersionID', - 'xapMM:Versions', - 'xapMM:LastURL', - 'xapMM:RenditionOf', - 'xapMM:SaveID', -// XMP Basic Job Ticket Schema - 'xapBJ:JobRef', -// XMP Paged-Text Schema - 'xmpTPg:MaxPageSize', - 'xmpTPg:NPages', - 'xmpTPg:Fonts', - 'xmpTPg:Colorants', - 'xmpTPg:PlateNames', -// Adobe PDF Schema - 'pdf:Keywords', - 'pdf:PDFVersion', - 'pdf:Producer', -// Photoshop Schema - 'photoshop:AuthorsPosition', - 'photoshop:CaptionWriter', - 'photoshop:Category', - 'photoshop:City', - 'photoshop:Country', - 'photoshop:Credit', - 'photoshop:DateCreated', - 'photoshop:Headline', - 'photoshop:History', -// Not in XMP spec - 'photoshop:Instructions', - 'photoshop:Source', - 'photoshop:State', - 'photoshop:SupplementalCategories', - 'photoshop:TransmissionReference', - 'photoshop:Urgency', -// EXIF Schemas - 'tiff:ImageWidth', - 'tiff:ImageLength', - 'tiff:BitsPerSample', - 'tiff:Compression', - 'tiff:PhotometricInterpretation', - 'tiff:Orientation', - 'tiff:SamplesPerPixel', - 'tiff:PlanarConfiguration', - 'tiff:YCbCrSubSampling', - 'tiff:YCbCrPositioning', - 'tiff:XResolution', - 'tiff:YResolution', - 'tiff:ResolutionUnit', - 'tiff:TransferFunction', - 'tiff:WhitePoint', - 'tiff:PrimaryChromaticities', - 'tiff:YCbCrCoefficients', - 'tiff:ReferenceBlackWhite', - 'tiff:DateTime', - 'tiff:ImageDescription', - 'tiff:Make', - 'tiff:Model', - 'tiff:Software', - 'tiff:Artist', - 'tiff:Copyright', - 'exif:ExifVersion', - 'exif:FlashpixVersion', - 'exif:ColorSpace', - 'exif:ComponentsConfiguration', - 'exif:CompressedBitsPerPixel', - 'exif:PixelXDimension', - 'exif:PixelYDimension', - 'exif:MakerNote', - 'exif:UserComment', - 'exif:RelatedSoundFile', - 'exif:DateTimeOriginal', - 'exif:DateTimeDigitized', - 'exif:ExposureTime', - 'exif:FNumber', - 'exif:ExposureProgram', - 'exif:SpectralSensitivity', - 'exif:ISOSpeedRatings', - 'exif:OECF', - 'exif:ShutterSpeedValue', - 'exif:ApertureValue', - 'exif:BrightnessValue', - 'exif:ExposureBiasValue', - 'exif:MaxApertureValue', - 'exif:SubjectDistance', - 'exif:MeteringMode', - 'exif:LightSource', - 'exif:Flash', - 'exif:FocalLength', - 'exif:SubjectArea', - 'exif:FlashEnergy', - 'exif:SpatialFrequencyResponse', - 'exif:FocalPlaneXResolution', - 'exif:FocalPlaneYResolution', - 'exif:FocalPlaneResolutionUnit', - 'exif:SubjectLocation', - 'exif:SensingMethod', - 'exif:FileSource', - 'exif:SceneType', - 'exif:CFAPattern', - 'exif:CustomRendered', - 'exif:ExposureMode', - 'exif:WhiteBalance', - 'exif:DigitalZoomRatio', - 'exif:FocalLengthIn35mmFilm', - 'exif:SceneCaptureType', - 'exif:GainControl', - 'exif:Contrast', - 'exif:Saturation', - 'exif:Sharpness', - 'exif:DeviceSettingDescription', - 'exif:SubjectDistanceRange', - 'exif:ImageUniqueID', - 'exif:GPSVersionID', - 'exif:GPSLatitude', - 'exif:GPSLongitude', - 'exif:GPSAltitudeRef', - 'exif:GPSAltitude', - 'exif:GPSTimeStamp', - 'exif:GPSSatellites', - 'exif:GPSStatus', - 'exif:GPSMeasureMode', - 'exif:GPSDOP', - 'exif:GPSSpeedRef', - 'exif:GPSSpeed', - 'exif:GPSTrackRef', - 'exif:GPSTrack', - 'exif:GPSImgDirectionRef', - 'exif:GPSImgDirection', - 'exif:GPSMapDatum', - 'exif:GPSDestLatitude', - 'exif:GPSDestLongitude', - 'exif:GPSDestBearingRef', - 'exif:GPSDestBearing', - 'exif:GPSDestDistanceRef', - 'exif:GPSDestDistance', - 'exif:GPSProcessingMethod', - 'exif:GPSAreaInformation', - 'exif:GPSDifferential', - 'stDim:w', - 'stDim:h', - 'stDim:unit', - 'xapGImg:height', - 'xapGImg:width', - 'xapGImg:format', - 'xapGImg:image', - 'stEvt:action', - 'stEvt:instanceID', - 'stEvt:parameters', - 'stEvt:softwareAgent', - 'stEvt:when', - 'stRef:instanceID', - 'stRef:documentID', - 'stRef:versionID', - 'stRef:renditionClass', - 'stRef:renditionParams', - 'stRef:manager', - 'stRef:managerVariant', - 'stRef:manageTo', - 'stRef:manageUI', - 'stVer:comments', - 'stVer:event', - 'stVer:modifyDate', - 'stVer:modifier', - 'stVer:version', - 'stJob:name', - 'stJob:id', - 'stJob:url', -// Exif Flash - 'exif:Fired', - 'exif:Return', - 'exif:Mode', - 'exif:Function', - 'exif:RedEyeMode', -// Exif OECF/SFR - 'exif:Columns', - 'exif:Rows', - 'exif:Names', - 'exif:Values', -// Exif CFAPattern - 'exif:Columns', - 'exif:Rows', - 'exif:Values', -// Exif DeviceSettings - 'exif:Columns', - 'exif:Rows', - 'exif:Settings', -); -*/ - -/** -* Global Variable: JPEG_Segment_Names -* -* The names of the JPEG segment markers, indexed by their marker number -*/ -$GLOBALS['JPEG_Segment_Names'] = array( - 0x01 => 'TEM', - 0x02 => 'RES', - 0xC0 => 'SOF0', - 0xC1 => 'SOF1', - 0xC2 => 'SOF2', - 0xC3 => 'SOF4', - 0xC4 => 'DHT', - 0xC5 => 'SOF5', - 0xC6 => 'SOF6', - 0xC7 => 'SOF7', - 0xC8 => 'JPG', - 0xC9 => 'SOF9', - 0xCA => 'SOF10', - 0xCB => 'SOF11', - 0xCC => 'DAC', - 0xCD => 'SOF13', - 0xCE => 'SOF14', - 0xCF => 'SOF15', - 0xD0 => 'RST0', - 0xD1 => 'RST1', - 0xD2 => 'RST2', - 0xD3 => 'RST3', - 0xD4 => 'RST4', - 0xD5 => 'RST5', - 0xD6 => 'RST6', - 0xD7 => 'RST7', - 0xD8 => 'SOI', - 0xD9 => 'EOI', - 0xDA => 'SOS', - 0xDB => 'DQT', - 0xDC => 'DNL', - 0xDD => 'DRI', - 0xDE => 'DHP', - 0xDF => 'EXP', - 0xE0 => 'APP0', - 0xE1 => 'APP1', - 0xE2 => 'APP2', - 0xE3 => 'APP3', - 0xE4 => 'APP4', - 0xE5 => 'APP5', - 0xE6 => 'APP6', - 0xE7 => 'APP7', - 0xE8 => 'APP8', - 0xE9 => 'APP9', - 0xEA => 'APP10', - 0xEB => 'APP11', - 0xEC => 'APP12', - 0xED => 'APP13', - 0xEE => 'APP14', - 0xEF => 'APP15', - 0xF0 => 'JPG0', - 0xF1 => 'JPG1', - 0xF2 => 'JPG2', - 0xF3 => 'JPG3', - 0xF4 => 'JPG4', - 0xF5 => 'JPG5', - 0xF6 => 'JPG6', - 0xF7 => 'JPG7', - 0xF8 => 'JPG8', - 0xF9 => 'JPG9', - 0xFA => 'JPG10', - 0xFB => 'JPG11', - 0xFC => 'JPG12', - 0xFD => 'JPG13', - 0xFE => 'COM', -); diff --git a/web/htdocs/media/lib/getid3/write.apetag.php b/web/htdocs/media/lib/getid3/write.apetag.php deleted file mode 100644 index 68bd771d808..00000000000 --- a/web/htdocs/media/lib/getid3/write.apetag.php +++ /dev/null @@ -1,223 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.apetag.php // -// module for writing APE tags // -// dependencies: module.tag.apetag.php // -// /// -///////////////////////////////////////////////////////////////// - - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.apetag.php', __FILE__, true); - -class getid3_write_apetag -{ - - public $filename; - public $tag_data; - public $always_preserve_replaygain = true; // ReplayGain / MP3gain tags will be copied from old tag even if not passed in data - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_apetag() { - return true; - } - - public function WriteAPEtag() { - // NOTE: All data passed to this function must be UTF-8 format - - $getID3 = new getID3; - $ThisFileInfo = $getID3->analyze($this->filename); - - if (isset($ThisFileInfo['ape']['tag_offset_start']) && isset($ThisFileInfo['lyrics3']['tag_offset_end'])) { - if ($ThisFileInfo['ape']['tag_offset_start'] >= $ThisFileInfo['lyrics3']['tag_offset_end']) { - // Current APE tag between Lyrics3 and ID3v1/EOF - // This break Lyrics3 functionality - if (!$this->DeleteAPEtag()) { - return false; - } - $ThisFileInfo = $getID3->analyze($this->filename); - } - } - - if ($this->always_preserve_replaygain) { - $ReplayGainTagsToPreserve = array('mp3gain_minmax', 'mp3gain_album_minmax', 'mp3gain_undo', 'replaygain_track_peak', 'replaygain_track_gain', 'replaygain_album_peak', 'replaygain_album_gain'); - foreach ($ReplayGainTagsToPreserve as $rg_key) { - if (isset($ThisFileInfo['ape']['items'][strtolower($rg_key)]['data'][0]) && !isset($this->tag_data[strtoupper($rg_key)][0])) { - $this->tag_data[strtoupper($rg_key)][0] = $ThisFileInfo['ape']['items'][strtolower($rg_key)]['data'][0]; - } - } - } - - if ($APEtag = $this->GenerateAPEtag()) { - if (is_writable($this->filename) && is_file($this->filename) && ($fp = fopen($this->filename, 'a+b'))) { - $oldignoreuserabort = ignore_user_abort(true); - flock($fp, LOCK_EX); - - $PostAPEdataOffset = $ThisFileInfo['avdataend']; - if (isset($ThisFileInfo['ape']['tag_offset_end'])) { - $PostAPEdataOffset = max($PostAPEdataOffset, $ThisFileInfo['ape']['tag_offset_end']); - } - if (isset($ThisFileInfo['lyrics3']['tag_offset_start'])) { - $PostAPEdataOffset = max($PostAPEdataOffset, $ThisFileInfo['lyrics3']['tag_offset_start']); - } - fseek($fp, $PostAPEdataOffset, SEEK_SET); - $PostAPEdata = ''; - if ($ThisFileInfo['filesize'] > $PostAPEdataOffset) { - $PostAPEdata = fread($fp, $ThisFileInfo['filesize'] - $PostAPEdataOffset); - } - - fseek($fp, $PostAPEdataOffset, SEEK_SET); - if (isset($ThisFileInfo['ape']['tag_offset_start'])) { - fseek($fp, $ThisFileInfo['ape']['tag_offset_start'], SEEK_SET); - } - ftruncate($fp, ftell($fp)); - fwrite($fp, $APEtag, strlen($APEtag)); - if (!empty($PostAPEdata)) { - fwrite($fp, $PostAPEdata, strlen($PostAPEdata)); - } - flock($fp, LOCK_UN); - fclose($fp); - ignore_user_abort($oldignoreuserabort); - return true; - } - } - return false; - } - - public function DeleteAPEtag() { - $getID3 = new getID3; - $ThisFileInfo = $getID3->analyze($this->filename); - if (isset($ThisFileInfo['ape']['tag_offset_start']) && isset($ThisFileInfo['ape']['tag_offset_end'])) { - if (is_writable($this->filename) && is_file($this->filename) && ($fp = fopen($this->filename, 'a+b'))) { - - flock($fp, LOCK_EX); - $oldignoreuserabort = ignore_user_abort(true); - - fseek($fp, $ThisFileInfo['ape']['tag_offset_end'], SEEK_SET); - $DataAfterAPE = ''; - if ($ThisFileInfo['filesize'] > $ThisFileInfo['ape']['tag_offset_end']) { - $DataAfterAPE = fread($fp, $ThisFileInfo['filesize'] - $ThisFileInfo['ape']['tag_offset_end']); - } - - ftruncate($fp, $ThisFileInfo['ape']['tag_offset_start']); - fseek($fp, $ThisFileInfo['ape']['tag_offset_start'], SEEK_SET); - - if (!empty($DataAfterAPE)) { - fwrite($fp, $DataAfterAPE, strlen($DataAfterAPE)); - } - - flock($fp, LOCK_UN); - fclose($fp); - ignore_user_abort($oldignoreuserabort); - - return true; - } - return false; - } - return true; - } - - - public function GenerateAPEtag() { - // NOTE: All data passed to this function must be UTF-8 format - - $items = array(); - if (!is_array($this->tag_data)) { - return false; - } - foreach ($this->tag_data as $key => $arrayofvalues) { - if (!is_array($arrayofvalues)) { - return false; - } - - $valuestring = ''; - foreach ($arrayofvalues as $value) { - $valuestring .= str_replace("\x00", '', $value)."\x00"; - } - $valuestring = rtrim($valuestring, "\x00"); - - // Length of the assigned value in bytes - $tagitem = getid3_lib::LittleEndian2String(strlen($valuestring), 4); - - //$tagitem .= $this->GenerateAPEtagFlags(true, true, false, 0, false); - $tagitem .= "\x00\x00\x00\x00"; - - $tagitem .= $this->CleanAPEtagItemKey($key)."\x00"; - $tagitem .= $valuestring; - - $items[] = $tagitem; - - } - - return $this->GenerateAPEtagHeaderFooter($items, true).implode('', $items).$this->GenerateAPEtagHeaderFooter($items, false); - } - - public function GenerateAPEtagHeaderFooter(&$items, $isheader=false) { - $tagdatalength = 0; - foreach ($items as $itemdata) { - $tagdatalength += strlen($itemdata); - } - - $APEheader = 'APETAGEX'; - $APEheader .= getid3_lib::LittleEndian2String(2000, 4); - $APEheader .= getid3_lib::LittleEndian2String(32 + $tagdatalength, 4); - $APEheader .= getid3_lib::LittleEndian2String(count($items), 4); - $APEheader .= $this->GenerateAPEtagFlags(true, true, $isheader, 0, false); - $APEheader .= str_repeat("\x00", 8); - - return $APEheader; - } - - public function GenerateAPEtagFlags($header=true, $footer=true, $isheader=false, $encodingid=0, $readonly=false) { - $APEtagFlags = array_fill(0, 4, 0); - if ($header) { - $APEtagFlags[0] |= 0x80; // Tag contains a header - } - if (!$footer) { - $APEtagFlags[0] |= 0x40; // Tag contains no footer - } - if ($isheader) { - $APEtagFlags[0] |= 0x20; // This is the header, not the footer - } - - // 0: Item contains text information coded in UTF-8 - // 1: Item contains binary information °) - // 2: Item is a locator of external stored information °°) - // 3: reserved - $APEtagFlags[3] |= ($encodingid << 1); - - if ($readonly) { - $APEtagFlags[3] |= 0x01; // Tag or Item is Read Only - } - - return chr($APEtagFlags[3]).chr($APEtagFlags[2]).chr($APEtagFlags[1]).chr($APEtagFlags[0]); - } - - public function CleanAPEtagItemKey($itemkey) { - $itemkey = preg_replace("#[^\x20-\x7E]#i", '', $itemkey); - - // http://www.personal.uni-jena.de/~pfk/mpp/sv8/apekey.html - switch (strtoupper($itemkey)) { - case 'EAN/UPC': - case 'ISBN': - case 'LC': - case 'ISRC': - $itemkey = strtoupper($itemkey); - break; - - default: - $itemkey = ucwords($itemkey); - break; - } - return $itemkey; - - } - -} diff --git a/web/htdocs/media/lib/getid3/write.id3v1.php b/web/htdocs/media/lib/getid3/write.id3v1.php deleted file mode 100644 index 86d509209ca..00000000000 --- a/web/htdocs/media/lib/getid3/write.id3v1.php +++ /dev/null @@ -1,136 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.id3v1.php // -// module for writing ID3v1 tags // -// dependencies: module.tag.id3v1.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v1.php', __FILE__, true); - -class getid3_write_id3v1 -{ - public $filename; - public $filesize; - public $tag_data; - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_id3v1() { - return true; - } - - public function WriteID3v1() { - // File MUST be writeable - CHMOD(646) at least - if (!empty($this->filename) && is_readable($this->filename) && is_writable($this->filename) && is_file($this->filename)) { - $this->setRealFileSize(); - if (($this->filesize <= 0) || !getid3_lib::intValueSupported($this->filesize)) { - $this->errors[] = 'Unable to WriteID3v1('.$this->filename.') because filesize ('.$this->filesize.') is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - if ($fp_source = fopen($this->filename, 'r+b')) { - fseek($fp_source, -128, SEEK_END); - if (fread($fp_source, 3) == 'TAG') { - fseek($fp_source, -128, SEEK_END); // overwrite existing ID3v1 tag - } else { - fseek($fp_source, 0, SEEK_END); // append new ID3v1 tag - } - $this->tag_data['track'] = (isset($this->tag_data['track']) ? $this->tag_data['track'] : (isset($this->tag_data['track_number']) ? $this->tag_data['track_number'] : (isset($this->tag_data['tracknumber']) ? $this->tag_data['tracknumber'] : ''))); - - $new_id3v1_tag_data = getid3_id3v1::GenerateID3v1Tag( - (isset($this->tag_data['title'] ) ? $this->tag_data['title'] : ''), - (isset($this->tag_data['artist'] ) ? $this->tag_data['artist'] : ''), - (isset($this->tag_data['album'] ) ? $this->tag_data['album'] : ''), - (isset($this->tag_data['year'] ) ? $this->tag_data['year'] : ''), - (isset($this->tag_data['genreid']) ? $this->tag_data['genreid'] : ''), - (isset($this->tag_data['comment']) ? $this->tag_data['comment'] : ''), - (isset($this->tag_data['track'] ) ? $this->tag_data['track'] : '')); - fwrite($fp_source, $new_id3v1_tag_data, 128); - fclose($fp_source); - return true; - - } else { - $this->errors[] = 'Could not fopen('.$this->filename.', "r+b")'; - return false; - } - } - $this->errors[] = 'File is not writeable: '.$this->filename; - return false; - } - - public function FixID3v1Padding() { - // ID3v1 data is supposed to be padded with NULL characters, but some taggers incorrectly use spaces - // This function rewrites the ID3v1 tag with correct padding - - // Initialize getID3 engine - $getID3 = new getID3; - $getID3->option_tag_id3v2 = false; - $getID3->option_tag_apetag = false; - $getID3->option_tags_html = false; - $getID3->option_extra_info = false; - $getID3->option_tag_id3v1 = true; - $ThisFileInfo = $getID3->analyze($this->filename); - if (isset($ThisFileInfo['tags']['id3v1'])) { - foreach ($ThisFileInfo['tags']['id3v1'] as $key => $value) { - $id3v1data[$key] = implode(',', $value); - } - $this->tag_data = $id3v1data; - return $this->WriteID3v1(); - } - return false; - } - - public function RemoveID3v1() { - // File MUST be writeable - CHMOD(646) at least - if (!empty($this->filename) && is_readable($this->filename) && is_writable($this->filename) && is_file($this->filename)) { - $this->setRealFileSize(); - if (($this->filesize <= 0) || !getid3_lib::intValueSupported($this->filesize)) { - $this->errors[] = 'Unable to RemoveID3v1('.$this->filename.') because filesize ('.$this->filesize.') is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - return false; - } - if ($fp_source = fopen($this->filename, 'r+b')) { - - fseek($fp_source, -128, SEEK_END); - if (fread($fp_source, 3) == 'TAG') { - ftruncate($fp_source, $this->filesize - 128); - } else { - // no ID3v1 tag to begin with - do nothing - } - fclose($fp_source); - return true; - - } else { - $this->errors[] = 'Could not fopen('.$this->filename.', "r+b")'; - } - } else { - $this->errors[] = $this->filename.' is not writeable'; - } - return false; - } - - public function setRealFileSize() { - if (PHP_INT_MAX > 2147483647) { - $this->filesize = filesize($this->filename); - return true; - } - // 32-bit PHP will not return correct values for filesize() if file is >=2GB - // but getID3->analyze() has workarounds to get actual filesize - $getID3 = new getID3; - $getID3->option_tag_id3v1 = false; - $getID3->option_tag_id3v2 = false; - $getID3->option_tag_apetag = false; - $getID3->option_tags_html = false; - $getID3->option_extra_info = false; - $ThisFileInfo = $getID3->analyze($this->filename); - $this->filesize = $ThisFileInfo['filesize']; - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/write.id3v2.php b/web/htdocs/media/lib/getid3/write.id3v2.php deleted file mode 100644 index 3d2bfecc414..00000000000 --- a/web/htdocs/media/lib/getid3/write.id3v2.php +++ /dev/null @@ -1,2049 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -/// // -// write.id3v2.php // -// module for writing ID3v2 tags // -// dependencies: module.tag.id3v2.php // -// /// -///////////////////////////////////////////////////////////////// - -getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v2.php', __FILE__, true); - -class getid3_write_id3v2 -{ - public $filename; - public $tag_data; - public $fread_buffer_size = 32768; // read buffer size in bytes - public $paddedlength = 4096; // minimum length of ID3v2 tag in bytes - public $majorversion = 3; // ID3v2 major version (2, 3 (recommended), 4) - public $minorversion = 0; // ID3v2 minor version - always 0 - public $merge_existing_data = false; // if true, merge new data with existing tags; if false, delete old tag data and only write new tags - public $id3v2_default_encodingid = 0; // default text encoding (ISO-8859-1) if not explicitly passed - public $id3v2_use_unsynchronisation = false; // the specs say it should be TRUE, but most other ID3v2-aware programs are broken if unsynchronization is used, so by default don't use it. - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_id3v2() { - return true; - } - - public function WriteID3v2() { - // File MUST be writeable - CHMOD(646) at least. It's best if the - // directory is also writeable, because that method is both faster and less susceptible to errors. - - if (!empty($this->filename) && (is_writeable($this->filename) || (!file_exists($this->filename) && is_writeable(dirname($this->filename))))) { - // Initialize getID3 engine - $getID3 = new getID3; - $OldThisFileInfo = $getID3->analyze($this->filename); - if (!getid3_lib::intValueSupported($OldThisFileInfo['filesize'])) { - $this->errors[] = 'Unable to write ID3v2 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - fclose($fp_source); - return false; - } - if ($this->merge_existing_data) { - // merge with existing data - if (!empty($OldThisFileInfo['id3v2'])) { - $this->tag_data = $this->array_join_merge($OldThisFileInfo['id3v2'], $this->tag_data); - } - } - $this->paddedlength = (isset($OldThisFileInfo['id3v2']['headerlength']) ? max($OldThisFileInfo['id3v2']['headerlength'], $this->paddedlength) : $this->paddedlength); - - if ($NewID3v2Tag = $this->GenerateID3v2Tag()) { - - if (file_exists($this->filename) && is_writeable($this->filename) && isset($OldThisFileInfo['id3v2']['headerlength']) && ($OldThisFileInfo['id3v2']['headerlength'] == strlen($NewID3v2Tag))) { - - // best and fastest method - insert-overwrite existing tag (padded to length of old tag if neccesary) - if (file_exists($this->filename)) { - - if (is_readable($this->filename) && is_writable($this->filename) && is_file($this->filename) && ($fp = fopen($this->filename, 'r+b'))) { - rewind($fp); - fwrite($fp, $NewID3v2Tag, strlen($NewID3v2Tag)); - fclose($fp); - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "r+b")'; - } - - } else { - - if (is_writable($this->filename) && is_file($this->filename) && ($fp = fopen($this->filename, 'wb'))) { - rewind($fp); - fwrite($fp, $NewID3v2Tag, strlen($NewID3v2Tag)); - fclose($fp); - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "wb")'; - } - - } - - } else { - - if ($tempfilename = tempnam(GETID3_TEMP_DIR, 'getID3')) { - if (is_readable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'rb'))) { - if (is_writable($tempfilename) && is_file($tempfilename) && ($fp_temp = fopen($tempfilename, 'wb'))) { - - fwrite($fp_temp, $NewID3v2Tag, strlen($NewID3v2Tag)); - - rewind($fp_source); - if (!empty($OldThisFileInfo['avdataoffset'])) { - fseek($fp_source, $OldThisFileInfo['avdataoffset'], SEEK_SET); - } - - while ($buffer = fread($fp_source, $this->fread_buffer_size)) { - fwrite($fp_temp, $buffer, strlen($buffer)); - } - - fclose($fp_temp); - fclose($fp_source); - copy($tempfilename, $this->filename); - unlink($tempfilename); - return true; - - } else { - $this->errors[] = 'Could not fopen("'.$tempfilename.'", "wb")'; - } - fclose($fp_source); - - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "rb")'; - } - } - return false; - - } - - } else { - - $this->errors[] = '$this->GenerateID3v2Tag() failed'; - - } - - if (!empty($this->errors)) { - return false; - } - return true; - } else { - $this->errors[] = 'WriteID3v2() failed: !is_writeable('.$this->filename.')'; - } - return false; - } - - public function RemoveID3v2() { - // File MUST be writeable - CHMOD(646) at least. It's best if the - // directory is also writeable, because that method is both faster and less susceptible to errors. - if (is_writeable(dirname($this->filename))) { - - // preferred method - only one copying operation, minimal chance of corrupting - // original file if script is interrupted, but required directory to be writeable - if (is_readable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'rb'))) { - - // Initialize getID3 engine - $getID3 = new getID3; - $OldThisFileInfo = $getID3->analyze($this->filename); - if (!getid3_lib::intValueSupported($OldThisFileInfo['filesize'])) { - $this->errors[] = 'Unable to remove ID3v2 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - fclose($fp_source); - return false; - } - rewind($fp_source); - if ($OldThisFileInfo['avdataoffset'] !== false) { - fseek($fp_source, $OldThisFileInfo['avdataoffset'], SEEK_SET); - } - if (is_writable($this->filename) && is_file($this->filename) && ($fp_temp = fopen($this->filename.'getid3tmp', 'w+b'))) { - while ($buffer = fread($fp_source, $this->fread_buffer_size)) { - fwrite($fp_temp, $buffer, strlen($buffer)); - } - fclose($fp_temp); - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'getid3tmp", "w+b")'; - } - fclose($fp_source); - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "rb")'; - } - if (file_exists($this->filename)) { - unlink($this->filename); - } - rename($this->filename.'getid3tmp', $this->filename); - - } elseif (is_writable($this->filename)) { - - // less desirable alternate method - double-copies the file, overwrites original file - // and could corrupt source file if the script is interrupted or an error occurs. - if (is_readable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'rb'))) { - - // Initialize getID3 engine - $getID3 = new getID3; - $OldThisFileInfo = $getID3->analyze($this->filename); - if (!getid3_lib::intValueSupported($OldThisFileInfo['filesize'])) { - $this->errors[] = 'Unable to remove ID3v2 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB'; - fclose($fp_source); - return false; - } - rewind($fp_source); - if ($OldThisFileInfo['avdataoffset'] !== false) { - fseek($fp_source, $OldThisFileInfo['avdataoffset'], SEEK_SET); - } - if ($fp_temp = tmpfile()) { - while ($buffer = fread($fp_source, $this->fread_buffer_size)) { - fwrite($fp_temp, $buffer, strlen($buffer)); - } - fclose($fp_source); - if (is_writable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'wb'))) { - rewind($fp_temp); - while ($buffer = fread($fp_temp, $this->fread_buffer_size)) { - fwrite($fp_source, $buffer, strlen($buffer)); - } - fseek($fp_temp, -128, SEEK_END); - fclose($fp_source); - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "wb")'; - } - fclose($fp_temp); - } else { - $this->errors[] = 'Could not create tmpfile()'; - } - } else { - $this->errors[] = 'Could not fopen("'.$this->filename.'", "rb")'; - } - - } else { - - $this->errors[] = 'Directory and file both not writeable'; - - } - - if (!empty($this->errors)) { - return false; - } - return true; - } - - - public function GenerateID3v2TagFlags($flags) { - switch ($this->majorversion) { - case 4: - // %abcd0000 - $flag = (!empty($flags['unsynchronisation']) ? '1' : '0'); // a - Unsynchronisation - $flag .= (!empty($flags['extendedheader'] ) ? '1' : '0'); // b - Extended header - $flag .= (!empty($flags['experimental'] ) ? '1' : '0'); // c - Experimental indicator - $flag .= (!empty($flags['footer'] ) ? '1' : '0'); // d - Footer present - $flag .= '0000'; - break; - - case 3: - // %abc00000 - $flag = (!empty($flags['unsynchronisation']) ? '1' : '0'); // a - Unsynchronisation - $flag .= (!empty($flags['extendedheader'] ) ? '1' : '0'); // b - Extended header - $flag .= (!empty($flags['experimental'] ) ? '1' : '0'); // c - Experimental indicator - $flag .= '00000'; - break; - - case 2: - // %ab000000 - $flag = (!empty($flags['unsynchronisation']) ? '1' : '0'); // a - Unsynchronisation - $flag .= (!empty($flags['compression'] ) ? '1' : '0'); // b - Compression - $flag .= '000000'; - break; - - default: - return false; - break; - } - return chr(bindec($flag)); - } - - - public function GenerateID3v2FrameFlags($TagAlter=false, $FileAlter=false, $ReadOnly=false, $Compression=false, $Encryption=false, $GroupingIdentity=false, $Unsynchronisation=false, $DataLengthIndicator=false) { - switch ($this->majorversion) { - case 4: - // %0abc0000 %0h00kmnp - $flag1 = '0'; - $flag1 .= $TagAlter ? '1' : '0'; // a - Tag alter preservation (true == discard) - $flag1 .= $FileAlter ? '1' : '0'; // b - File alter preservation (true == discard) - $flag1 .= $ReadOnly ? '1' : '0'; // c - Read only (true == read only) - $flag1 .= '0000'; - - $flag2 = '0'; - $flag2 .= $GroupingIdentity ? '1' : '0'; // h - Grouping identity (true == contains group information) - $flag2 .= '00'; - $flag2 .= $Compression ? '1' : '0'; // k - Compression (true == compressed) - $flag2 .= $Encryption ? '1' : '0'; // m - Encryption (true == encrypted) - $flag2 .= $Unsynchronisation ? '1' : '0'; // n - Unsynchronisation (true == unsynchronised) - $flag2 .= $DataLengthIndicator ? '1' : '0'; // p - Data length indicator (true == data length indicator added) - break; - - case 3: - // %abc00000 %ijk00000 - $flag1 = $TagAlter ? '1' : '0'; // a - Tag alter preservation (true == discard) - $flag1 .= $FileAlter ? '1' : '0'; // b - File alter preservation (true == discard) - $flag1 .= $ReadOnly ? '1' : '0'; // c - Read only (true == read only) - $flag1 .= '00000'; - - $flag2 = $Compression ? '1' : '0'; // i - Compression (true == compressed) - $flag2 .= $Encryption ? '1' : '0'; // j - Encryption (true == encrypted) - $flag2 .= $GroupingIdentity ? '1' : '0'; // k - Grouping identity (true == contains group information) - $flag2 .= '00000'; - break; - - default: - return false; - break; - - } - return chr(bindec($flag1)).chr(bindec($flag2)); - } - - public function GenerateID3v2FrameData($frame_name, $source_data_array) { - if (!getid3_id3v2::IsValidID3v2FrameName($frame_name, $this->majorversion)) { - return false; - } - $framedata = ''; - - if (($this->majorversion < 3) || ($this->majorversion > 4)) { - - $this->errors[] = 'Only ID3v2.3 and ID3v2.4 are supported in GenerateID3v2FrameData()'; - - } else { // $this->majorversion 3 or 4 - - switch ($frame_name) { - case 'UFID': - // 4.1 UFID Unique file identifier - // Owner identifier $00 - // Identifier - if (strlen($source_data_array['data']) > 64) { - $this->errors[] = 'Identifier not allowed to be longer than 64 bytes in '.$frame_name.' (supplied data was '.strlen($source_data_array['data']).' bytes long)'; - } else { - $framedata .= str_replace("\x00", '', $source_data_array['ownerid'])."\x00"; - $framedata .= substr($source_data_array['data'], 0, 64); // max 64 bytes - truncate anything longer - } - break; - - case 'TXXX': - // 4.2.2 TXXX User defined text information frame - // Text encoding $xx - // Description $00 (00) - // Value - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'], $this->majorversion)) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'WXXX': - // 4.3.2 WXXX User defined URL link frame - // Text encoding $xx - // Description $00 (00) - // URL - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'], $this->majorversion)) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (!isset($source_data_array['data']) || !$this->IsValidURL($source_data_array['data'], false, false)) { - //$this->errors[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - // probably should be an error, need to rewrite IsValidURL() to handle other encodings - $this->warnings[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'IPLS': - // 4.4 IPLS Involved people list (ID3v2.3 only) - // Text encoding $xx - // People list strings - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'], $this->majorversion)) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'MCDI': - // 4.4 MCDI Music CD identifier - // CD TOC - $framedata .= $source_data_array['data']; - break; - - case 'ETCO': - // 4.5 ETCO Event timing codes - // Time stamp format $xx - // Where time stamp format is: - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - // Followed by a list of key events in the following format: - // Type of event $xx - // Time stamp $xx (xx ...) - // The 'Time stamp' is set to zero if directly at the beginning of the sound - // or after the previous event. All events MUST be sorted in chronological order. - if (($source_data_array['timestampformat'] > 2) || ($source_data_array['timestampformat'] < 1)) { - $this->errors[] = 'Invalid Time Stamp Format byte in '.$frame_name.' ('.$source_data_array['timestampformat'].')'; - } else { - $framedata .= chr($source_data_array['timestampformat']); - foreach ($source_data_array as $key => $val) { - if (!$this->ID3v2IsValidETCOevent($val['typeid'])) { - $this->errors[] = 'Invalid Event Type byte in '.$frame_name.' ('.$val['typeid'].')'; - } elseif (($key != 'timestampformat') && ($key != 'flags')) { - if (($val['timestamp'] > 0) && ($previousETCOtimestamp >= $val['timestamp'])) { - // The 'Time stamp' is set to zero if directly at the beginning of the sound - // or after the previous event. All events MUST be sorted in chronological order. - $this->errors[] = 'Out-of-order timestamp in '.$frame_name.' ('.$val['timestamp'].') for Event Type ('.$val['typeid'].')'; - } else { - $framedata .= chr($val['typeid']); - $framedata .= getid3_lib::BigEndian2String($val['timestamp'], 4, false); - } - } - } - } - break; - - case 'MLLT': - // 4.6 MLLT MPEG location lookup table - // MPEG frames between reference $xx xx - // Bytes between reference $xx xx xx - // Milliseconds between reference $xx xx xx - // Bits for bytes deviation $xx - // Bits for milliseconds dev. $xx - // Then for every reference the following data is included; - // Deviation in bytes %xxx.... - // Deviation in milliseconds %xxx.... - if (($source_data_array['framesbetweenreferences'] > 0) && ($source_data_array['framesbetweenreferences'] <= 65535)) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['framesbetweenreferences'], 2, false); - } else { - $this->errors[] = 'Invalid MPEG Frames Between References in '.$frame_name.' ('.$source_data_array['framesbetweenreferences'].')'; - } - if (($source_data_array['bytesbetweenreferences'] > 0) && ($source_data_array['bytesbetweenreferences'] <= 16777215)) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['bytesbetweenreferences'], 3, false); - } else { - $this->errors[] = 'Invalid bytes Between References in '.$frame_name.' ('.$source_data_array['bytesbetweenreferences'].')'; - } - if (($source_data_array['msbetweenreferences'] > 0) && ($source_data_array['msbetweenreferences'] <= 16777215)) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['msbetweenreferences'], 3, false); - } else { - $this->errors[] = 'Invalid Milliseconds Between References in '.$frame_name.' ('.$source_data_array['msbetweenreferences'].')'; - } - if (!$this->IsWithinBitRange($source_data_array['bitsforbytesdeviation'], 8, false)) { - if (($source_data_array['bitsforbytesdeviation'] % 4) == 0) { - $framedata .= chr($source_data_array['bitsforbytesdeviation']); - } else { - $this->errors[] = 'Bits For Bytes Deviation in '.$frame_name.' ('.$source_data_array['bitsforbytesdeviation'].') must be a multiple of 4.'; - } - } else { - $this->errors[] = 'Invalid Bits For Bytes Deviation in '.$frame_name.' ('.$source_data_array['bitsforbytesdeviation'].')'; - } - if (!$this->IsWithinBitRange($source_data_array['bitsformsdeviation'], 8, false)) { - if (($source_data_array['bitsformsdeviation'] % 4) == 0) { - $framedata .= chr($source_data_array['bitsformsdeviation']); - } else { - $this->errors[] = 'Bits For Milliseconds Deviation in '.$frame_name.' ('.$source_data_array['bitsforbytesdeviation'].') must be a multiple of 4.'; - } - } else { - $this->errors[] = 'Invalid Bits For Milliseconds Deviation in '.$frame_name.' ('.$source_data_array['bitsformsdeviation'].')'; - } - foreach ($source_data_array as $key => $val) { - if (($key != 'framesbetweenreferences') && ($key != 'bytesbetweenreferences') && ($key != 'msbetweenreferences') && ($key != 'bitsforbytesdeviation') && ($key != 'bitsformsdeviation') && ($key != 'flags')) { - $unwrittenbitstream .= str_pad(getid3_lib::Dec2Bin($val['bytedeviation']), $source_data_array['bitsforbytesdeviation'], '0', STR_PAD_LEFT); - $unwrittenbitstream .= str_pad(getid3_lib::Dec2Bin($val['msdeviation']), $source_data_array['bitsformsdeviation'], '0', STR_PAD_LEFT); - } - } - for ($i = 0; $i < strlen($unwrittenbitstream); $i += 8) { - $highnibble = bindec(substr($unwrittenbitstream, $i, 4)) << 4; - $lownibble = bindec(substr($unwrittenbitstream, $i + 4, 4)); - $framedata .= chr($highnibble & $lownibble); - } - break; - - case 'SYTC': - // 4.7 SYTC Synchronised tempo codes - // Time stamp format $xx - // Tempo data - // Where time stamp format is: - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - if (($source_data_array['timestampformat'] > 2) || ($source_data_array['timestampformat'] < 1)) { - $this->errors[] = 'Invalid Time Stamp Format byte in '.$frame_name.' ('.$source_data_array['timestampformat'].')'; - } else { - $framedata .= chr($source_data_array['timestampformat']); - foreach ($source_data_array as $key => $val) { - if (!$this->ID3v2IsValidETCOevent($val['typeid'])) { - $this->errors[] = 'Invalid Event Type byte in '.$frame_name.' ('.$val['typeid'].')'; - } elseif (($key != 'timestampformat') && ($key != 'flags')) { - if (($val['tempo'] < 0) || ($val['tempo'] > 510)) { - $this->errors[] = 'Invalid Tempo (max = 510) in '.$frame_name.' ('.$val['tempo'].') at timestamp ('.$val['timestamp'].')'; - } else { - if ($val['tempo'] > 255) { - $framedata .= chr(255); - $val['tempo'] -= 255; - } - $framedata .= chr($val['tempo']); - $framedata .= getid3_lib::BigEndian2String($val['timestamp'], 4, false); - } - } - } - } - break; - - case 'USLT': - // 4.8 USLT Unsynchronised lyric/text transcription - // Text encoding $xx - // Language $xx xx xx - // Content descriptor $00 (00) - // Lyrics/text - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (getid3_id3v2::LanguageLookup($source_data_array['language'], true) == '') { - $this->errors[] = 'Invalid Language in '.$frame_name.' ('.$source_data_array['language'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= strtolower($source_data_array['language']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'SYLT': - // 4.9 SYLT Synchronised lyric/text - // Text encoding $xx - // Language $xx xx xx - // Time stamp format $xx - // $01 (32-bit value) MPEG frames from beginning of file - // $02 (32-bit value) milliseconds from beginning of file - // Content type $xx - // Content descriptor $00 (00) - // Terminated text to be synced (typically a syllable) - // Sync identifier (terminator to above string) $00 (00) - // Time stamp $xx (xx ...) - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (getid3_id3v2::LanguageLookup($source_data_array['language'], true) == '') { - $this->errors[] = 'Invalid Language in '.$frame_name.' ('.$source_data_array['language'].')'; - } elseif (($source_data_array['timestampformat'] > 2) || ($source_data_array['timestampformat'] < 1)) { - $this->errors[] = 'Invalid Time Stamp Format byte in '.$frame_name.' ('.$source_data_array['timestampformat'].')'; - } elseif (!$this->ID3v2IsValidSYLTtype($source_data_array['contenttypeid'])) { - $this->errors[] = 'Invalid Content Type byte in '.$frame_name.' ('.$source_data_array['contenttypeid'].')'; - } elseif (!is_array($source_data_array['data'])) { - $this->errors[] = 'Invalid Lyric/Timestamp data in '.$frame_name.' (must be an array)'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= strtolower($source_data_array['language']); - $framedata .= chr($source_data_array['timestampformat']); - $framedata .= chr($source_data_array['contenttypeid']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - ksort($source_data_array['data']); - foreach ($source_data_array['data'] as $key => $val) { - $framedata .= $val['data'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= getid3_lib::BigEndian2String($val['timestamp'], 4, false); - } - } - break; - - case 'COMM': - // 4.10 COMM Comments - // Text encoding $xx - // Language $xx xx xx - // Short content descrip. $00 (00) - // The actual text - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (getid3_id3v2::LanguageLookup($source_data_array['language'], true) == '') { - $this->errors[] = 'Invalid Language in '.$frame_name.' ('.$source_data_array['language'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= strtolower($source_data_array['language']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'RVA2': - // 4.11 RVA2 Relative volume adjustment (2) (ID3v2.4+ only) - // Identification $00 - // The 'identification' string is used to identify the situation and/or - // device where this adjustment should apply. The following is then - // repeated for every channel: - // Type of channel $xx - // Volume adjustment $xx xx - // Bits representing peak $xx - // Peak volume $xx (xx ...) - $framedata .= str_replace("\x00", '', $source_data_array['description'])."\x00"; - foreach ($source_data_array as $key => $val) { - if ($key != 'description') { - $framedata .= chr($val['channeltypeid']); - $framedata .= getid3_lib::BigEndian2String($val['volumeadjust'], 2, false, true); // signed 16-bit - if (!$this->IsWithinBitRange($source_data_array['bitspeakvolume'], 8, false)) { - $framedata .= chr($val['bitspeakvolume']); - if ($val['bitspeakvolume'] > 0) { - $framedata .= getid3_lib::BigEndian2String($val['peakvolume'], ceil($val['bitspeakvolume'] / 8), false, false); - } - } else { - $this->errors[] = 'Invalid Bits Representing Peak Volume in '.$frame_name.' ('.$val['bitspeakvolume'].') (range = 0 to 255)'; - } - } - } - break; - - case 'RVAD': - // 4.12 RVAD Relative volume adjustment (ID3v2.3 only) - // Increment/decrement %00fedcba - // Bits used for volume descr. $xx - // Relative volume change, right $xx xx (xx ...) // a - // Relative volume change, left $xx xx (xx ...) // b - // Peak volume right $xx xx (xx ...) - // Peak volume left $xx xx (xx ...) - // Relative volume change, right back $xx xx (xx ...) // c - // Relative volume change, left back $xx xx (xx ...) // d - // Peak volume right back $xx xx (xx ...) - // Peak volume left back $xx xx (xx ...) - // Relative volume change, center $xx xx (xx ...) // e - // Peak volume center $xx xx (xx ...) - // Relative volume change, bass $xx xx (xx ...) // f - // Peak volume bass $xx xx (xx ...) - if (!$this->IsWithinBitRange($source_data_array['bitsvolume'], 8, false)) { - $this->errors[] = 'Invalid Bits For Volume Description byte in '.$frame_name.' ('.$source_data_array['bitsvolume'].') (range = 1 to 255)'; - } else { - $incdecflag .= '00'; - $incdecflag .= $source_data_array['incdec']['right'] ? '1' : '0'; // a - Relative volume change, right - $incdecflag .= $source_data_array['incdec']['left'] ? '1' : '0'; // b - Relative volume change, left - $incdecflag .= $source_data_array['incdec']['rightrear'] ? '1' : '0'; // c - Relative volume change, right back - $incdecflag .= $source_data_array['incdec']['leftrear'] ? '1' : '0'; // d - Relative volume change, left back - $incdecflag .= $source_data_array['incdec']['center'] ? '1' : '0'; // e - Relative volume change, center - $incdecflag .= $source_data_array['incdec']['bass'] ? '1' : '0'; // f - Relative volume change, bass - $framedata .= chr(bindec($incdecflag)); - $framedata .= chr($source_data_array['bitsvolume']); - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['right'], ceil($source_data_array['bitsvolume'] / 8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['left'], ceil($source_data_array['bitsvolume'] / 8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['right'], ceil($source_data_array['bitsvolume'] / 8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['left'], ceil($source_data_array['bitsvolume'] / 8), false); - if ($source_data_array['volumechange']['rightrear'] || $source_data_array['volumechange']['leftrear'] || - $source_data_array['peakvolume']['rightrear'] || $source_data_array['peakvolume']['leftrear'] || - $source_data_array['volumechange']['center'] || $source_data_array['peakvolume']['center'] || - $source_data_array['volumechange']['bass'] || $source_data_array['peakvolume']['bass']) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['rightrear'], ceil($source_data_array['bitsvolume']/8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['leftrear'], ceil($source_data_array['bitsvolume']/8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['rightrear'], ceil($source_data_array['bitsvolume']/8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['leftrear'], ceil($source_data_array['bitsvolume']/8), false); - } - if ($source_data_array['volumechange']['center'] || $source_data_array['peakvolume']['center'] || - $source_data_array['volumechange']['bass'] || $source_data_array['peakvolume']['bass']) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['center'], ceil($source_data_array['bitsvolume']/8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['center'], ceil($source_data_array['bitsvolume']/8), false); - } - if ($source_data_array['volumechange']['bass'] || $source_data_array['peakvolume']['bass']) { - $framedata .= getid3_lib::BigEndian2String($source_data_array['volumechange']['bass'], ceil($source_data_array['bitsvolume']/8), false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['peakvolume']['bass'], ceil($source_data_array['bitsvolume']/8), false); - } - } - break; - - case 'EQU2': - // 4.12 EQU2 Equalisation (2) (ID3v2.4+ only) - // Interpolation method $xx - // $00 Band - // $01 Linear - // Identification $00 - // The following is then repeated for every adjustment point - // Frequency $xx xx - // Volume adjustment $xx xx - if (($source_data_array['interpolationmethod'] < 0) || ($source_data_array['interpolationmethod'] > 1)) { - $this->errors[] = 'Invalid Interpolation Method byte in '.$frame_name.' ('.$source_data_array['interpolationmethod'].') (valid = 0 or 1)'; - } else { - $framedata .= chr($source_data_array['interpolationmethod']); - $framedata .= str_replace("\x00", '', $source_data_array['description'])."\x00"; - foreach ($source_data_array['data'] as $key => $val) { - $framedata .= getid3_lib::BigEndian2String(intval(round($key * 2)), 2, false); - $framedata .= getid3_lib::BigEndian2String($val, 2, false, true); // signed 16-bit - } - } - break; - - case 'EQUA': - // 4.12 EQUA Equalisation (ID3v2.3 only) - // Adjustment bits $xx - // This is followed by 2 bytes + ('adjustment bits' rounded up to the - // nearest byte) for every equalisation band in the following format, - // giving a frequency range of 0 - 32767Hz: - // Increment/decrement %x (MSB of the Frequency) - // Frequency (lower 15 bits) - // Adjustment $xx (xx ...) - if (!$this->IsWithinBitRange($source_data_array['bitsvolume'], 8, false)) { - $this->errors[] = 'Invalid Adjustment Bits byte in '.$frame_name.' ('.$source_data_array['bitsvolume'].') (range = 1 to 255)'; - } else { - $framedata .= chr($source_data_array['adjustmentbits']); - foreach ($source_data_array as $key => $val) { - if ($key != 'bitsvolume') { - if (($key > 32767) || ($key < 0)) { - $this->errors[] = 'Invalid Frequency in '.$frame_name.' ('.$key.') (range = 0 to 32767)'; - } else { - if ($val >= 0) { - // put MSB of frequency to 1 if increment, 0 if decrement - $key |= 0x8000; - } - $framedata .= getid3_lib::BigEndian2String($key, 2, false); - $framedata .= getid3_lib::BigEndian2String($val, ceil($source_data_array['adjustmentbits'] / 8), false); - } - } - } - } - break; - - case 'RVRB': - // 4.13 RVRB Reverb - // Reverb left (ms) $xx xx - // Reverb right (ms) $xx xx - // Reverb bounces, left $xx - // Reverb bounces, right $xx - // Reverb feedback, left to left $xx - // Reverb feedback, left to right $xx - // Reverb feedback, right to right $xx - // Reverb feedback, right to left $xx - // Premix left to right $xx - // Premix right to left $xx - if (!$this->IsWithinBitRange($source_data_array['left'], 16, false)) { - $this->errors[] = 'Invalid Reverb Left in '.$frame_name.' ('.$source_data_array['left'].') (range = 0 to 65535)'; - } elseif (!$this->IsWithinBitRange($source_data_array['right'], 16, false)) { - $this->errors[] = 'Invalid Reverb Left in '.$frame_name.' ('.$source_data_array['right'].') (range = 0 to 65535)'; - } elseif (!$this->IsWithinBitRange($source_data_array['bouncesL'], 8, false)) { - $this->errors[] = 'Invalid Reverb Bounces, Left in '.$frame_name.' ('.$source_data_array['bouncesL'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['bouncesR'], 8, false)) { - $this->errors[] = 'Invalid Reverb Bounces, Right in '.$frame_name.' ('.$source_data_array['bouncesR'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['feedbackLL'], 8, false)) { - $this->errors[] = 'Invalid Reverb Feedback, Left-To-Left in '.$frame_name.' ('.$source_data_array['feedbackLL'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['feedbackLR'], 8, false)) { - $this->errors[] = 'Invalid Reverb Feedback, Left-To-Right in '.$frame_name.' ('.$source_data_array['feedbackLR'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['feedbackRR'], 8, false)) { - $this->errors[] = 'Invalid Reverb Feedback, Right-To-Right in '.$frame_name.' ('.$source_data_array['feedbackRR'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['feedbackRL'], 8, false)) { - $this->errors[] = 'Invalid Reverb Feedback, Right-To-Left in '.$frame_name.' ('.$source_data_array['feedbackRL'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['premixLR'], 8, false)) { - $this->errors[] = 'Invalid Premix, Left-To-Right in '.$frame_name.' ('.$source_data_array['premixLR'].') (range = 0 to 255)'; - } elseif (!$this->IsWithinBitRange($source_data_array['premixRL'], 8, false)) { - $this->errors[] = 'Invalid Premix, Right-To-Left in '.$frame_name.' ('.$source_data_array['premixRL'].') (range = 0 to 255)'; - } else { - $framedata .= getid3_lib::BigEndian2String($source_data_array['left'], 2, false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['right'], 2, false); - $framedata .= chr($source_data_array['bouncesL']); - $framedata .= chr($source_data_array['bouncesR']); - $framedata .= chr($source_data_array['feedbackLL']); - $framedata .= chr($source_data_array['feedbackLR']); - $framedata .= chr($source_data_array['feedbackRR']); - $framedata .= chr($source_data_array['feedbackRL']); - $framedata .= chr($source_data_array['premixLR']); - $framedata .= chr($source_data_array['premixRL']); - } - break; - - case 'APIC': - // 4.14 APIC Attached picture - // Text encoding $xx - // MIME type $00 - // Picture type $xx - // Description $00 (00) - // Picture data - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (!$this->ID3v2IsValidAPICpicturetype($source_data_array['picturetypeid'])) { - $this->errors[] = 'Invalid Picture Type byte in '.$frame_name.' ('.$source_data_array['picturetypeid'].') for ID3v2.'.$this->majorversion; - } elseif (($this->majorversion >= 3) && (!$this->ID3v2IsValidAPICimageformat($source_data_array['mime']))) { - $this->errors[] = 'Invalid MIME Type in '.$frame_name.' ('.$source_data_array['mime'].') for ID3v2.'.$this->majorversion; - } elseif (($source_data_array['mime'] == '-->') && (!$this->IsValidURL($source_data_array['data'], false, false))) { - //$this->errors[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - // probably should be an error, need to rewrite IsValidURL() to handle other encodings - $this->warnings[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= str_replace("\x00", '', $source_data_array['mime'])."\x00"; - $framedata .= chr($source_data_array['picturetypeid']); - $framedata .= (!empty($source_data_array['description']) ? $source_data_array['description'] : '').getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'GEOB': - // 4.15 GEOB General encapsulated object - // Text encoding $xx - // MIME type $00 - // Filename $00 (00) - // Content description $00 (00) - // Encapsulated object - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } elseif (!$this->IsValidMIMEstring($source_data_array['mime'])) { - $this->errors[] = 'Invalid MIME Type in '.$frame_name.' ('.$source_data_array['mime'].')'; - } elseif (!$source_data_array['description']) { - $this->errors[] = 'Missing Description in '.$frame_name; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= str_replace("\x00", '', $source_data_array['mime'])."\x00"; - $framedata .= $source_data_array['filename'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - break; - - case 'PCNT': - // 4.16 PCNT Play counter - // When the counter reaches all one's, one byte is inserted in - // front of the counter thus making the counter eight bits bigger - // Counter $xx xx xx xx (xx ...) - $framedata .= getid3_lib::BigEndian2String($source_data_array['data'], 4, false); - break; - - case 'POPM': - // 4.17 POPM Popularimeter - // When the counter reaches all one's, one byte is inserted in - // front of the counter thus making the counter eight bits bigger - // Email to user $00 - // Rating $xx - // Counter $xx xx xx xx (xx ...) - if (!$this->IsWithinBitRange($source_data_array['rating'], 8, false)) { - $this->errors[] = 'Invalid Rating byte in '.$frame_name.' ('.$source_data_array['rating'].') (range = 0 to 255)'; - } elseif (!IsValidEmail($source_data_array['email'])) { - $this->errors[] = 'Invalid Email in '.$frame_name.' ('.$source_data_array['email'].')'; - } else { - $framedata .= str_replace("\x00", '', $source_data_array['email'])."\x00"; - $framedata .= chr($source_data_array['rating']); - $framedata .= getid3_lib::BigEndian2String($source_data_array['data'], 4, false); - } - break; - - case 'RBUF': - // 4.18 RBUF Recommended buffer size - // Buffer size $xx xx xx - // Embedded info flag %0000000x - // Offset to next tag $xx xx xx xx - if (!$this->IsWithinBitRange($source_data_array['buffersize'], 24, false)) { - $this->errors[] = 'Invalid Buffer Size in '.$frame_name; - } elseif (!$this->IsWithinBitRange($source_data_array['nexttagoffset'], 32, false)) { - $this->errors[] = 'Invalid Offset To Next Tag in '.$frame_name; - } else { - $framedata .= getid3_lib::BigEndian2String($source_data_array['buffersize'], 3, false); - $flag .= '0000000'; - $flag .= $source_data_array['flags']['embededinfo'] ? '1' : '0'; - $framedata .= chr(bindec($flag)); - $framedata .= getid3_lib::BigEndian2String($source_data_array['nexttagoffset'], 4, false); - } - break; - - case 'AENC': - // 4.19 AENC Audio encryption - // Owner identifier $00 - // Preview start $xx xx - // Preview length $xx xx - // Encryption info - if (!$this->IsWithinBitRange($source_data_array['previewstart'], 16, false)) { - $this->errors[] = 'Invalid Preview Start in '.$frame_name.' ('.$source_data_array['previewstart'].')'; - } elseif (!$this->IsWithinBitRange($source_data_array['previewlength'], 16, false)) { - $this->errors[] = 'Invalid Preview Length in '.$frame_name.' ('.$source_data_array['previewlength'].')'; - } else { - $framedata .= str_replace("\x00", '', $source_data_array['ownerid'])."\x00"; - $framedata .= getid3_lib::BigEndian2String($source_data_array['previewstart'], 2, false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['previewlength'], 2, false); - $framedata .= $source_data_array['encryptioninfo']; - } - break; - - case 'LINK': - // 4.20 LINK Linked information - // Frame identifier $xx xx xx xx - // URL $00 - // ID and additional data - if (!getid3_id3v2::IsValidID3v2FrameName($source_data_array['frameid'], $this->majorversion)) { - $this->errors[] = 'Invalid Frame Identifier in '.$frame_name.' ('.$source_data_array['frameid'].')'; - } elseif (!$this->IsValidURL($source_data_array['data'], true, false)) { - //$this->errors[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - // probably should be an error, need to rewrite IsValidURL() to handle other encodings - $this->warnings[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - } elseif ((($source_data_array['frameid'] == 'AENC') || ($source_data_array['frameid'] == 'APIC') || ($source_data_array['frameid'] == 'GEOB') || ($source_data_array['frameid'] == 'TXXX')) && ($source_data_array['additionaldata'] == '')) { - $this->errors[] = 'Content Descriptor must be specified as additional data for Frame Identifier of '.$source_data_array['frameid'].' in '.$frame_name; - } elseif (($source_data_array['frameid'] == 'USER') && (getid3_id3v2::LanguageLookup($source_data_array['additionaldata'], true) == '')) { - $this->errors[] = 'Language must be specified as additional data for Frame Identifier of '.$source_data_array['frameid'].' in '.$frame_name; - } elseif (($source_data_array['frameid'] == 'PRIV') && ($source_data_array['additionaldata'] == '')) { - $this->errors[] = 'Owner Identifier must be specified as additional data for Frame Identifier of '.$source_data_array['frameid'].' in '.$frame_name; - } elseif ((($source_data_array['frameid'] == 'COMM') || ($source_data_array['frameid'] == 'SYLT') || ($source_data_array['frameid'] == 'USLT')) && ((getid3_id3v2::LanguageLookup(substr($source_data_array['additionaldata'], 0, 3), true) == '') || (substr($source_data_array['additionaldata'], 3) == ''))) { - $this->errors[] = 'Language followed by Content Descriptor must be specified as additional data for Frame Identifier of '.$source_data_array['frameid'].' in '.$frame_name; - } else { - $framedata .= $source_data_array['frameid']; - $framedata .= str_replace("\x00", '', $source_data_array['data'])."\x00"; - switch ($source_data_array['frameid']) { - case 'COMM': - case 'SYLT': - case 'USLT': - case 'PRIV': - case 'USER': - case 'AENC': - case 'APIC': - case 'GEOB': - case 'TXXX': - $framedata .= $source_data_array['additionaldata']; - break; - case 'ASPI': - case 'ETCO': - case 'EQU2': - case 'MCID': - case 'MLLT': - case 'OWNE': - case 'RVA2': - case 'RVRB': - case 'SYTC': - case 'IPLS': - case 'RVAD': - case 'EQUA': - // no additional data required - break; - case 'RBUF': - if ($this->majorversion == 3) { - // no additional data required - } else { - $this->errors[] = $source_data_array['frameid'].' is not a valid Frame Identifier in '.$frame_name.' (in ID3v2.'.$this->majorversion.')'; - } - - default: - if ((substr($source_data_array['frameid'], 0, 1) == 'T') || (substr($source_data_array['frameid'], 0, 1) == 'W')) { - // no additional data required - } else { - $this->errors[] = $source_data_array['frameid'].' is not a valid Frame Identifier in '.$frame_name.' (in ID3v2.'.$this->majorversion.')'; - } - break; - } - } - break; - - case 'POSS': - // 4.21 POSS Position synchronisation frame (ID3v2.3+ only) - // Time stamp format $xx - // Position $xx (xx ...) - if (($source_data_array['timestampformat'] < 1) || ($source_data_array['timestampformat'] > 2)) { - $this->errors[] = 'Invalid Time Stamp Format in '.$frame_name.' ('.$source_data_array['timestampformat'].') (valid = 1 or 2)'; - } elseif (!$this->IsWithinBitRange($source_data_array['position'], 32, false)) { - $this->errors[] = 'Invalid Position in '.$frame_name.' ('.$source_data_array['position'].') (range = 0 to 4294967295)'; - } else { - $framedata .= chr($source_data_array['timestampformat']); - $framedata .= getid3_lib::BigEndian2String($source_data_array['position'], 4, false); - } - break; - - case 'USER': - // 4.22 USER Terms of use (ID3v2.3+ only) - // Text encoding $xx - // Language $xx xx xx - // The actual text - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].')'; - } elseif (getid3_id3v2::LanguageLookup($source_data_array['language'], true) == '') { - $this->errors[] = 'Invalid Language in '.$frame_name.' ('.$source_data_array['language'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= strtolower($source_data_array['language']); - $framedata .= $source_data_array['data']; - } - break; - - case 'OWNE': - // 4.23 OWNE Ownership frame (ID3v2.3+ only) - // Text encoding $xx - // Price paid $00 - // Date of purch. - // Seller - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].')'; - } elseif (!$this->IsANumber($source_data_array['pricepaid']['value'], false)) { - $this->errors[] = 'Invalid Price Paid in '.$frame_name.' ('.$source_data_array['pricepaid']['value'].')'; - } elseif (!$this->IsValidDateStampString($source_data_array['purchasedate'])) { - $this->errors[] = 'Invalid Date Of Purchase in '.$frame_name.' ('.$source_data_array['purchasedate'].') (format = YYYYMMDD)'; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= str_replace("\x00", '', $source_data_array['pricepaid']['value'])."\x00"; - $framedata .= $source_data_array['purchasedate']; - $framedata .= $source_data_array['seller']; - } - break; - - case 'COMR': - // 4.24 COMR Commercial frame (ID3v2.3+ only) - // Text encoding $xx - // Price string $00 - // Valid until - // Contact URL $00 - // Received as $xx - // Name of seller $00 (00) - // Description $00 (00) - // Picture MIME type $00 - // Seller logo - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].')'; - } elseif (!$this->IsValidDateStampString($source_data_array['pricevaliduntil'])) { - $this->errors[] = 'Invalid Valid Until date in '.$frame_name.' ('.$source_data_array['pricevaliduntil'].') (format = YYYYMMDD)'; - } elseif (!$this->IsValidURL($source_data_array['contacturl'], false, true)) { - $this->errors[] = 'Invalid Contact URL in '.$frame_name.' ('.$source_data_array['contacturl'].') (allowed schemes: http, https, ftp, mailto)'; - } elseif (!$this->ID3v2IsValidCOMRreceivedAs($source_data_array['receivedasid'])) { - $this->errors[] = 'Invalid Received As byte in '.$frame_name.' ('.$source_data_array['contacturl'].') (range = 0 to 8)'; - } elseif (!$this->IsValidMIMEstring($source_data_array['mime'])) { - $this->errors[] = 'Invalid MIME Type in '.$frame_name.' ('.$source_data_array['mime'].')'; - } else { - $framedata .= chr($source_data_array['encodingid']); - unset($pricestring); - foreach ($source_data_array['price'] as $key => $val) { - if ($this->ID3v2IsValidPriceString($key.$val['value'])) { - $pricestrings[] = $key.$val['value']; - } else { - $this->errors[] = 'Invalid Price String in '.$frame_name.' ('.$key.$val['value'].')'; - } - } - $framedata .= implode('/', $pricestrings); - $framedata .= $source_data_array['pricevaliduntil']; - $framedata .= str_replace("\x00", '', $source_data_array['contacturl'])."\x00"; - $framedata .= chr($source_data_array['receivedasid']); - $framedata .= $source_data_array['sellername'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['description'].getid3_id3v2::TextEncodingTerminatorLookup($source_data_array['encodingid']); - $framedata .= $source_data_array['mime']."\x00"; - $framedata .= $source_data_array['logo']; - } - break; - - case 'ENCR': - // 4.25 ENCR Encryption method registration (ID3v2.3+ only) - // Owner identifier $00 - // Method symbol $xx - // Encryption data - if (!$this->IsWithinBitRange($source_data_array['methodsymbol'], 8, false)) { - $this->errors[] = 'Invalid Group Symbol in '.$frame_name.' ('.$source_data_array['methodsymbol'].') (range = 0 to 255)'; - } else { - $framedata .= str_replace("\x00", '', $source_data_array['ownerid'])."\x00"; - $framedata .= ord($source_data_array['methodsymbol']); - $framedata .= $source_data_array['data']; - } - break; - - case 'GRID': - // 4.26 GRID Group identification registration (ID3v2.3+ only) - // Owner identifier $00 - // Group symbol $xx - // Group dependent data - if (!$this->IsWithinBitRange($source_data_array['groupsymbol'], 8, false)) { - $this->errors[] = 'Invalid Group Symbol in '.$frame_name.' ('.$source_data_array['groupsymbol'].') (range = 0 to 255)'; - } else { - $framedata .= str_replace("\x00", '', $source_data_array['ownerid'])."\x00"; - $framedata .= ord($source_data_array['groupsymbol']); - $framedata .= $source_data_array['data']; - } - break; - - case 'PRIV': - // 4.27 PRIV Private frame (ID3v2.3+ only) - // Owner identifier $00 - // The private data - $framedata .= str_replace("\x00", '', $source_data_array['ownerid'])."\x00"; - $framedata .= $source_data_array['data']; - break; - - case 'SIGN': - // 4.28 SIGN Signature frame (ID3v2.4+ only) - // Group symbol $xx - // Signature - if (!$this->IsWithinBitRange($source_data_array['groupsymbol'], 8, false)) { - $this->errors[] = 'Invalid Group Symbol in '.$frame_name.' ('.$source_data_array['groupsymbol'].') (range = 0 to 255)'; - } else { - $framedata .= ord($source_data_array['groupsymbol']); - $framedata .= $source_data_array['data']; - } - break; - - case 'SEEK': - // 4.29 SEEK Seek frame (ID3v2.4+ only) - // Minimum offset to next tag $xx xx xx xx - if (!$this->IsWithinBitRange($source_data_array['data'], 32, false)) { - $this->errors[] = 'Invalid Minimum Offset in '.$frame_name.' ('.$source_data_array['data'].') (range = 0 to 4294967295)'; - } else { - $framedata .= getid3_lib::BigEndian2String($source_data_array['data'], 4, false); - } - break; - - case 'ASPI': - // 4.30 ASPI Audio seek point index (ID3v2.4+ only) - // Indexed data start (S) $xx xx xx xx - // Indexed data length (L) $xx xx xx xx - // Number of index points (N) $xx xx - // Bits per index point (b) $xx - // Then for every index point the following data is included: - // Fraction at index (Fi) $xx (xx) - if (!$this->IsWithinBitRange($source_data_array['datastart'], 32, false)) { - $this->errors[] = 'Invalid Indexed Data Start in '.$frame_name.' ('.$source_data_array['datastart'].') (range = 0 to 4294967295)'; - } elseif (!$this->IsWithinBitRange($source_data_array['datalength'], 32, false)) { - $this->errors[] = 'Invalid Indexed Data Length in '.$frame_name.' ('.$source_data_array['datalength'].') (range = 0 to 4294967295)'; - } elseif (!$this->IsWithinBitRange($source_data_array['indexpoints'], 16, false)) { - $this->errors[] = 'Invalid Number Of Index Points in '.$frame_name.' ('.$source_data_array['indexpoints'].') (range = 0 to 65535)'; - } elseif (!$this->IsWithinBitRange($source_data_array['bitsperpoint'], 8, false)) { - $this->errors[] = 'Invalid Bits Per Index Point in '.$frame_name.' ('.$source_data_array['bitsperpoint'].') (range = 0 to 255)'; - } elseif ($source_data_array['indexpoints'] != count($source_data_array['indexes'])) { - $this->errors[] = 'Number Of Index Points does not match actual supplied data in '.$frame_name; - } else { - $framedata .= getid3_lib::BigEndian2String($source_data_array['datastart'], 4, false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['datalength'], 4, false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['indexpoints'], 2, false); - $framedata .= getid3_lib::BigEndian2String($source_data_array['bitsperpoint'], 1, false); - foreach ($source_data_array['indexes'] as $key => $val) { - $framedata .= getid3_lib::BigEndian2String($val, ceil($source_data_array['bitsperpoint'] / 8), false); - } - } - break; - - case 'RGAD': - // RGAD Replay Gain Adjustment - // http://privatewww.essex.ac.uk/~djmrob/replaygain/ - // Peak Amplitude $xx $xx $xx $xx - // Radio Replay Gain Adjustment %aaabbbcd %dddddddd - // Audiophile Replay Gain Adjustment %aaabbbcd %dddddddd - // a - name code - // b - originator code - // c - sign bit - // d - replay gain adjustment - - if (($source_data_array['track_adjustment'] > 51) || ($source_data_array['track_adjustment'] < -51)) { - $this->errors[] = 'Invalid Track Adjustment in '.$frame_name.' ('.$source_data_array['track_adjustment'].') (range = -51.0 to +51.0)'; - } elseif (($source_data_array['album_adjustment'] > 51) || ($source_data_array['album_adjustment'] < -51)) { - $this->errors[] = 'Invalid Album Adjustment in '.$frame_name.' ('.$source_data_array['album_adjustment'].') (range = -51.0 to +51.0)'; - } elseif (!$this->ID3v2IsValidRGADname($source_data_array['raw']['track_name'])) { - $this->errors[] = 'Invalid Track Name Code in '.$frame_name.' ('.$source_data_array['raw']['track_name'].') (range = 0 to 2)'; - } elseif (!$this->ID3v2IsValidRGADname($source_data_array['raw']['album_name'])) { - $this->errors[] = 'Invalid Album Name Code in '.$frame_name.' ('.$source_data_array['raw']['album_name'].') (range = 0 to 2)'; - } elseif (!$this->ID3v2IsValidRGADoriginator($source_data_array['raw']['track_originator'])) { - $this->errors[] = 'Invalid Track Originator Code in '.$frame_name.' ('.$source_data_array['raw']['track_originator'].') (range = 0 to 3)'; - } elseif (!$this->ID3v2IsValidRGADoriginator($source_data_array['raw']['album_originator'])) { - $this->errors[] = 'Invalid Album Originator Code in '.$frame_name.' ('.$source_data_array['raw']['album_originator'].') (range = 0 to 3)'; - } else { - $framedata .= getid3_lib::Float2String($source_data_array['peakamplitude'], 32); - $framedata .= getid3_lib::RGADgainString($source_data_array['raw']['track_name'], $source_data_array['raw']['track_originator'], $source_data_array['track_adjustment']); - $framedata .= getid3_lib::RGADgainString($source_data_array['raw']['album_name'], $source_data_array['raw']['album_originator'], $source_data_array['album_adjustment']); - } - break; - - default: - if ((($this->majorversion == 2) && (strlen($frame_name) != 3)) || (($this->majorversion > 2) && (strlen($frame_name) != 4))) { - $this->errors[] = 'Invalid frame name "'.$frame_name.'" for ID3v2.'.$this->majorversion; - } elseif ($frame_name{0} == 'T') { - // 4.2. T??? Text information frames - // Text encoding $xx - // Information - $source_data_array['encodingid'] = (isset($source_data_array['encodingid']) ? $source_data_array['encodingid'] : $this->id3v2_default_encodingid); - if (!$this->ID3v2IsValidTextEncoding($source_data_array['encodingid'])) { - $this->errors[] = 'Invalid Text Encoding in '.$frame_name.' ('.$source_data_array['encodingid'].') for ID3v2.'.$this->majorversion; - } else { - $framedata .= chr($source_data_array['encodingid']); - $framedata .= $source_data_array['data']; - } - } elseif ($frame_name{0} == 'W') { - // 4.3. W??? URL link frames - // URL - if (!$this->IsValidURL($source_data_array['data'], false, false)) { - //$this->errors[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - // probably should be an error, need to rewrite IsValidURL() to handle other encodings - $this->warnings[] = 'Invalid URL in '.$frame_name.' ('.$source_data_array['data'].')'; - } else { - $framedata .= $source_data_array['data']; - } - } else { - $this->errors[] = $frame_name.' not yet supported in $this->GenerateID3v2FrameData()'; - } - break; - } - } - if (!empty($this->errors)) { - return false; - } - return $framedata; - } - - public function ID3v2FrameIsAllowed($frame_name, $source_data_array) { - static $PreviousFrames = array(); - - if ($frame_name === null) { - // if the writing functions are called multiple times, the static array needs to be - // cleared - this can be done by calling $this->ID3v2FrameIsAllowed(null, '') - $PreviousFrames = array(); - return true; - } - - if ($this->majorversion == 4) { - switch ($frame_name) { - case 'UFID': - case 'AENC': - case 'ENCR': - case 'GRID': - if (!isset($source_data_array['ownerid'])) { - $this->errors[] = '[ownerid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['ownerid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same OwnerID ('.$source_data_array['ownerid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['ownerid']; - } - break; - - case 'TXXX': - case 'WXXX': - case 'RVA2': - case 'EQU2': - case 'APIC': - case 'GEOB': - if (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Description ('.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['description']; - } - break; - - case 'USER': - if (!isset($source_data_array['language'])) { - $this->errors[] = '[language] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['language'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Language ('.$source_data_array['language'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['language']; - } - break; - - case 'USLT': - case 'SYLT': - case 'COMM': - if (!isset($source_data_array['language'])) { - $this->errors[] = '[language] not specified for '.$frame_name; - } elseif (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['language'].$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Language + Description ('.$source_data_array['language'].' + '.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['language'].$source_data_array['description']; - } - break; - - case 'POPM': - if (!isset($source_data_array['email'])) { - $this->errors[] = '[email] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['email'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Email ('.$source_data_array['email'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['email']; - } - break; - - case 'IPLS': - case 'MCDI': - case 'ETCO': - case 'MLLT': - case 'SYTC': - case 'RVRB': - case 'PCNT': - case 'RBUF': - case 'POSS': - case 'OWNE': - case 'SEEK': - case 'ASPI': - case 'RGAD': - if (in_array($frame_name, $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed'; - } else { - $PreviousFrames[] = $frame_name; - } - break; - - case 'LINK': - // this isn't implemented quite right (yet) - it should check the target frame data for compliance - // but right now it just allows one linked frame of each type, to be safe. - if (!isset($source_data_array['frameid'])) { - $this->errors[] = '[frameid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['frameid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same FrameID ('.$source_data_array['frameid'].')'; - } elseif (in_array($source_data_array['frameid'], $PreviousFrames)) { - // no links to singleton tags - $this->errors[] = 'Cannot specify a '.$frame_name.' tag to a singleton tag that already exists ('.$source_data_array['frameid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['frameid']; // only one linked tag of this type - $PreviousFrames[] = $source_data_array['frameid']; // no non-linked singleton tags of this type - } - break; - - case 'COMR': - // There may be more than one 'commercial frame' in a tag, but no two may be identical - // Checking isn't implemented at all (yet) - just assumes that it's OK. - break; - - case 'PRIV': - case 'SIGN': - if (!isset($source_data_array['ownerid'])) { - $this->errors[] = '[ownerid] not specified for '.$frame_name; - } elseif (!isset($source_data_array['data'])) { - $this->errors[] = '[data] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['ownerid'].$source_data_array['data'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same OwnerID + Data ('.$source_data_array['ownerid'].' + '.$source_data_array['data'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['ownerid'].$source_data_array['data']; - } - break; - - default: - if (($frame_name{0} != 'T') && ($frame_name{0} != 'W')) { - $this->errors[] = 'Frame not allowed in ID3v2.'.$this->majorversion.': '.$frame_name; - } - break; - } - - } elseif ($this->majorversion == 3) { - - switch ($frame_name) { - case 'UFID': - case 'AENC': - case 'ENCR': - case 'GRID': - if (!isset($source_data_array['ownerid'])) { - $this->errors[] = '[ownerid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['ownerid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same OwnerID ('.$source_data_array['ownerid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['ownerid']; - } - break; - - case 'TXXX': - case 'WXXX': - case 'APIC': - case 'GEOB': - if (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Description ('.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['description']; - } - break; - - case 'USER': - if (!isset($source_data_array['language'])) { - $this->errors[] = '[language] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['language'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Language ('.$source_data_array['language'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['language']; - } - break; - - case 'USLT': - case 'SYLT': - case 'COMM': - if (!isset($source_data_array['language'])) { - $this->errors[] = '[language] not specified for '.$frame_name; - } elseif (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['language'].$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Language + Description ('.$source_data_array['language'].' + '.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['language'].$source_data_array['description']; - } - break; - - case 'POPM': - if (!isset($source_data_array['email'])) { - $this->errors[] = '[email] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['email'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Email ('.$source_data_array['email'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['email']; - } - break; - - case 'IPLS': - case 'MCDI': - case 'ETCO': - case 'MLLT': - case 'SYTC': - case 'RVAD': - case 'EQUA': - case 'RVRB': - case 'PCNT': - case 'RBUF': - case 'POSS': - case 'OWNE': - case 'RGAD': - if (in_array($frame_name, $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed'; - } else { - $PreviousFrames[] = $frame_name; - } - break; - - case 'LINK': - // this isn't implemented quite right (yet) - it should check the target frame data for compliance - // but right now it just allows one linked frame of each type, to be safe. - if (!isset($source_data_array['frameid'])) { - $this->errors[] = '[frameid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['frameid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same FrameID ('.$source_data_array['frameid'].')'; - } elseif (in_array($source_data_array['frameid'], $PreviousFrames)) { - // no links to singleton tags - $this->errors[] = 'Cannot specify a '.$frame_name.' tag to a singleton tag that already exists ('.$source_data_array['frameid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['frameid']; // only one linked tag of this type - $PreviousFrames[] = $source_data_array['frameid']; // no non-linked singleton tags of this type - } - break; - - case 'COMR': - // There may be more than one 'commercial frame' in a tag, but no two may be identical - // Checking isn't implemented at all (yet) - just assumes that it's OK. - break; - - case 'PRIV': - if (!isset($source_data_array['ownerid'])) { - $this->errors[] = '[ownerid] not specified for '.$frame_name; - } elseif (!isset($source_data_array['data'])) { - $this->errors[] = '[data] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['ownerid'].$source_data_array['data'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same OwnerID + Data ('.$source_data_array['ownerid'].' + '.$source_data_array['data'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['ownerid'].$source_data_array['data']; - } - break; - - default: - if (($frame_name{0} != 'T') && ($frame_name{0} != 'W')) { - $this->errors[] = 'Frame not allowed in ID3v2.'.$this->majorversion.': '.$frame_name; - } - break; - } - - } elseif ($this->majorversion == 2) { - - switch ($frame_name) { - case 'UFI': - case 'CRM': - case 'CRA': - if (!isset($source_data_array['ownerid'])) { - $this->errors[] = '[ownerid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['ownerid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same OwnerID ('.$source_data_array['ownerid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['ownerid']; - } - break; - - case 'TXX': - case 'WXX': - case 'PIC': - case 'GEO': - if (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Description ('.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['description']; - } - break; - - case 'ULT': - case 'SLT': - case 'COM': - if (!isset($source_data_array['language'])) { - $this->errors[] = '[language] not specified for '.$frame_name; - } elseif (!isset($source_data_array['description'])) { - $this->errors[] = '[description] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['language'].$source_data_array['description'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Language + Description ('.$source_data_array['language'].' + '.$source_data_array['description'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['language'].$source_data_array['description']; - } - break; - - case 'POP': - if (!isset($source_data_array['email'])) { - $this->errors[] = '[email] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['email'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same Email ('.$source_data_array['email'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['email']; - } - break; - - case 'IPL': - case 'MCI': - case 'ETC': - case 'MLL': - case 'STC': - case 'RVA': - case 'EQU': - case 'REV': - case 'CNT': - case 'BUF': - if (in_array($frame_name, $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed'; - } else { - $PreviousFrames[] = $frame_name; - } - break; - - case 'LNK': - // this isn't implemented quite right (yet) - it should check the target frame data for compliance - // but right now it just allows one linked frame of each type, to be safe. - if (!isset($source_data_array['frameid'])) { - $this->errors[] = '[frameid] not specified for '.$frame_name; - } elseif (in_array($frame_name.$source_data_array['frameid'], $PreviousFrames)) { - $this->errors[] = 'Only one '.$frame_name.' tag allowed with the same FrameID ('.$source_data_array['frameid'].')'; - } elseif (in_array($source_data_array['frameid'], $PreviousFrames)) { - // no links to singleton tags - $this->errors[] = 'Cannot specify a '.$frame_name.' tag to a singleton tag that already exists ('.$source_data_array['frameid'].')'; - } else { - $PreviousFrames[] = $frame_name.$source_data_array['frameid']; // only one linked tag of this type - $PreviousFrames[] = $source_data_array['frameid']; // no non-linked singleton tags of this type - } - break; - - default: - if (($frame_name{0} != 'T') && ($frame_name{0} != 'W')) { - $this->errors[] = 'Frame not allowed in ID3v2.'.$this->majorversion.': '.$frame_name; - } - break; - } - } - - if (!empty($this->errors)) { - return false; - } - return true; - } - - public function GenerateID3v2Tag($noerrorsonly=true) { - $this->ID3v2FrameIsAllowed(null, ''); // clear static array in case this isn't the first call to $this->GenerateID3v2Tag() - - $tagstring = ''; - if (is_array($this->tag_data)) { - foreach ($this->tag_data as $frame_name => $frame_rawinputdata) { - foreach ($frame_rawinputdata as $irrelevantindex => $source_data_array) { - if (getid3_id3v2::IsValidID3v2FrameName($frame_name, $this->majorversion)) { - unset($frame_length); - unset($frame_flags); - $frame_data = false; - if ($this->ID3v2FrameIsAllowed($frame_name, $source_data_array)) { - if ($frame_data = $this->GenerateID3v2FrameData($frame_name, $source_data_array)) { - $FrameUnsynchronisation = false; - if ($this->majorversion >= 4) { - // frame-level unsynchronisation - $unsynchdata = $frame_data; - if ($this->id3v2_use_unsynchronisation) { - $unsynchdata = $this->Unsynchronise($frame_data); - } - if (strlen($unsynchdata) != strlen($frame_data)) { - // unsynchronisation needed - $FrameUnsynchronisation = true; - $frame_data = $unsynchdata; - if (isset($TagUnsynchronisation) && $TagUnsynchronisation === false) { - // only set to true if ALL frames are unsynchronised - } else { - $TagUnsynchronisation = true; - } - } else { - if (isset($TagUnsynchronisation)) { - $TagUnsynchronisation = false; - } - } - unset($unsynchdata); - - $frame_length = getid3_lib::BigEndian2String(strlen($frame_data), 4, true); - } else { - $frame_length = getid3_lib::BigEndian2String(strlen($frame_data), 4, false); - } - $frame_flags = $this->GenerateID3v2FrameFlags($this->ID3v2FrameFlagsLookupTagAlter($frame_name), $this->ID3v2FrameFlagsLookupFileAlter($frame_name), false, false, false, false, $FrameUnsynchronisation, false); - } - } else { - $this->errors[] = 'Frame "'.$frame_name.'" is NOT allowed'; - } - if ($frame_data === false) { - $this->errors[] = '$this->GenerateID3v2FrameData() failed for "'.$frame_name.'"'; - if ($noerrorsonly) { - return false; - } else { - unset($frame_name); - } - } - } else { - // ignore any invalid frame names, including 'title', 'header', etc - $this->warnings[] = 'Ignoring invalid ID3v2 frame type: "'.$frame_name.'"'; - unset($frame_name); - unset($frame_length); - unset($frame_flags); - unset($frame_data); - } - if (isset($frame_name) && isset($frame_length) && isset($frame_flags) && isset($frame_data)) { - $tagstring .= $frame_name.$frame_length.$frame_flags.$frame_data; - } - } - } - - if (!isset($TagUnsynchronisation)) { - $TagUnsynchronisation = false; - } - if (($this->majorversion <= 3) && $this->id3v2_use_unsynchronisation) { - // tag-level unsynchronisation - $unsynchdata = $this->Unsynchronise($tagstring); - if (strlen($unsynchdata) != strlen($tagstring)) { - // unsynchronisation needed - $TagUnsynchronisation = true; - $tagstring = $unsynchdata; - } - } - - while ($this->paddedlength < (strlen($tagstring) + getid3_id3v2::ID3v2HeaderLength($this->majorversion))) { - $this->paddedlength += 1024; - } - - $footer = false; // ID3v2 footers not yet supported in getID3() - if (!$footer && ($this->paddedlength > (strlen($tagstring) + getid3_id3v2::ID3v2HeaderLength($this->majorversion)))) { - // pad up to $paddedlength bytes if unpadded tag is shorter than $paddedlength - // "Furthermore it MUST NOT have any padding when a tag footer is added to the tag." - if (($this->paddedlength - strlen($tagstring) - getid3_id3v2::ID3v2HeaderLength($this->majorversion)) > 0) { - $tagstring .= str_repeat("\x00", $this->paddedlength - strlen($tagstring) - getid3_id3v2::ID3v2HeaderLength($this->majorversion)); - } - } - if ($this->id3v2_use_unsynchronisation && (substr($tagstring, strlen($tagstring) - 1, 1) == "\xFF")) { - // special unsynchronisation case: - // if last byte == $FF then appended a $00 - $TagUnsynchronisation = true; - $tagstring .= "\x00"; - } - - $tagheader = 'ID3'; - $tagheader .= chr($this->majorversion); - $tagheader .= chr($this->minorversion); - $tagheader .= $this->GenerateID3v2TagFlags(array('unsynchronisation'=>$TagUnsynchronisation)); - $tagheader .= getid3_lib::BigEndian2String(strlen($tagstring), 4, true); - - return $tagheader.$tagstring; - } - $this->errors[] = 'tag_data is not an array in GenerateID3v2Tag()'; - return false; - } - - public function ID3v2IsValidPriceString($pricestring) { - if (getid3_id3v2::LanguageLookup(substr($pricestring, 0, 3), true) == '') { - return false; - } elseif (!$this->IsANumber(substr($pricestring, 3), true)) { - return false; - } - return true; - } - - public function ID3v2FrameFlagsLookupTagAlter($framename) { - // unfinished - switch ($framename) { - case 'RGAD': - $allow = true; - default: - $allow = false; - break; - } - return $allow; - } - - public function ID3v2FrameFlagsLookupFileAlter($framename) { - // unfinished - switch ($framename) { - case 'RGAD': - return false; - break; - - default: - return false; - break; - } - } - - public function ID3v2IsValidETCOevent($eventid) { - if (($eventid < 0) || ($eventid > 0xFF)) { - // outside range of 1 byte - return false; - } elseif (($eventid >= 0xF0) && ($eventid <= 0xFC)) { - // reserved for future use - return false; - } elseif (($eventid >= 0x17) && ($eventid <= 0xDF)) { - // reserved for future use - return false; - } elseif (($eventid >= 0x0E) && ($eventid <= 0x16) && ($this->majorversion == 2)) { - // not defined in ID3v2.2 - return false; - } elseif (($eventid >= 0x15) && ($eventid <= 0x16) && ($this->majorversion == 3)) { - // not defined in ID3v2.3 - return false; - } - return true; - } - - public function ID3v2IsValidSYLTtype($contenttype) { - if (($contenttype >= 0) && ($contenttype <= 8) && ($this->majorversion == 4)) { - return true; - } elseif (($contenttype >= 0) && ($contenttype <= 6) && ($this->majorversion == 3)) { - return true; - } - return false; - } - - public function ID3v2IsValidRVA2channeltype($channeltype) { - if (($channeltype >= 0) && ($channeltype <= 8) && ($this->majorversion == 4)) { - return true; - } - return false; - } - - public function ID3v2IsValidAPICpicturetype($picturetype) { - if (($picturetype >= 0) && ($picturetype <= 0x14) && ($this->majorversion >= 2) && ($this->majorversion <= 4)) { - return true; - } - return false; - } - - public function ID3v2IsValidAPICimageformat($imageformat) { - if ($imageformat == '-->') { - return true; - } elseif ($this->majorversion == 2) { - if ((strlen($imageformat) == 3) && ($imageformat == strtoupper($imageformat))) { - return true; - } - } elseif (($this->majorversion == 3) || ($this->majorversion == 4)) { - if ($this->IsValidMIMEstring($imageformat)) { - return true; - } - } - return false; - } - - public function ID3v2IsValidCOMRreceivedAs($receivedas) { - if (($this->majorversion >= 3) && ($receivedas >= 0) && ($receivedas <= 8)) { - return true; - } - return false; - } - - public function ID3v2IsValidRGADname($RGADname) { - if (($RGADname >= 0) && ($RGADname <= 2)) { - return true; - } - return false; - } - - public function ID3v2IsValidRGADoriginator($RGADoriginator) { - if (($RGADoriginator >= 0) && ($RGADoriginator <= 3)) { - return true; - } - return false; - } - - public function ID3v2IsValidTextEncoding($textencodingbyte) { - static $ID3v2IsValidTextEncoding_cache = array( - 2 => array(true, true), - 3 => array(true, true), - 4 => array(true, true, true, true)); - return isset($ID3v2IsValidTextEncoding_cache[$this->majorversion][$textencodingbyte]); - } - - public function Unsynchronise($data) { - // Whenever a false synchronisation is found within the tag, one zeroed - // byte is inserted after the first false synchronisation byte. The - // format of a correct sync that should be altered by ID3 encoders is as - // follows: - // %11111111 111xxxxx - // And should be replaced with: - // %11111111 00000000 111xxxxx - // This has the side effect that all $FF 00 combinations have to be - // altered, so they won't be affected by the decoding process. Therefore - // all the $FF 00 combinations have to be replaced with the $FF 00 00 - // combination during the unsynchronisation. - - $data = str_replace("\xFF\x00", "\xFF\x00\x00", $data); - $unsyncheddata = ''; - $datalength = strlen($data); - for ($i = 0; $i < $datalength; $i++) { - $thischar = $data{$i}; - $unsyncheddata .= $thischar; - if ($thischar == "\xFF") { - $nextchar = ord($data{$i + 1}); - if (($nextchar & 0xE0) == 0xE0) { - // previous byte = 11111111, this byte = 111????? - $unsyncheddata .= "\x00"; - } - } - } - return $unsyncheddata; - } - - public function is_hash($var) { - // written by dev-nullØchristophe*vg - // taken from http://www.php.net/manual/en/function.array-merge-recursive.php - if (is_array($var)) { - $keys = array_keys($var); - $all_num = true; - for ($i = 0; $i < count($keys); $i++) { - if (is_string($keys[$i])) { - return true; - } - } - } - return false; - } - - public function array_join_merge($arr1, $arr2) { - // written by dev-nullØchristophe*vg - // taken from http://www.php.net/manual/en/function.array-merge-recursive.php - if (is_array($arr1) && is_array($arr2)) { - // the same -> merge - $new_array = array(); - - if ($this->is_hash($arr1) && $this->is_hash($arr2)) { - // hashes -> merge based on keys - $keys = array_merge(array_keys($arr1), array_keys($arr2)); - foreach ($keys as $key) { - $new_array[$key] = $this->array_join_merge((isset($arr1[$key]) ? $arr1[$key] : ''), (isset($arr2[$key]) ? $arr2[$key] : '')); - } - } else { - // two real arrays -> merge - $new_array = array_reverse(array_unique(array_reverse(array_merge($arr1, $arr2)))); - } - return $new_array; - } else { - // not the same ... take new one if defined, else the old one stays - return $arr2 ? $arr2 : $arr1; - } - } - - public function IsValidMIMEstring($mimestring) { - if ((strlen($mimestring) >= 3) && (strpos($mimestring, '/') > 0) && (strpos($mimestring, '/') < (strlen($mimestring) - 1))) { - return true; - } - return false; - } - - public function IsWithinBitRange($number, $maxbits, $signed=false) { - if ($signed) { - if (($number > (0 - pow(2, $maxbits - 1))) && ($number <= pow(2, $maxbits - 1))) { - return true; - } - } else { - if (($number >= 0) && ($number <= pow(2, $maxbits))) { - return true; - } - } - return false; - } - - public function safe_parse_url($url) { - $parts = @parse_url($url); - $parts['scheme'] = (isset($parts['scheme']) ? $parts['scheme'] : ''); - $parts['host'] = (isset($parts['host']) ? $parts['host'] : ''); - $parts['user'] = (isset($parts['user']) ? $parts['user'] : ''); - $parts['pass'] = (isset($parts['pass']) ? $parts['pass'] : ''); - $parts['path'] = (isset($parts['path']) ? $parts['path'] : ''); - $parts['query'] = (isset($parts['query']) ? $parts['query'] : ''); - return $parts; - } - - public function IsValidURL($url, $allowUserPass=false) { - if ($url == '') { - return false; - } - if ($allowUserPass !== true) { - if (strstr($url, '@')) { - // in the format http://user:pass@example.com or http://user@example.com - // but could easily be somebody incorrectly entering an email address in place of a URL - return false; - } - } - if ($parts = $this->safe_parse_url($url)) { - if (($parts['scheme'] != 'http') && ($parts['scheme'] != 'https') && ($parts['scheme'] != 'ftp') && ($parts['scheme'] != 'gopher')) { - return false; - } elseif (!preg_match('#^[[:alnum:]]([-.]?[0-9a-z])*\\.[a-z]{2,3}$#i', $parts['host'], $regs) && !preg_match('#^[0-9]{1,3}(\\.[0-9]{1,3}){3}$#', $parts['host'])) { - return false; - } elseif (!preg_match('#^([[:alnum:]-]|[\\_])*$#i', $parts['user'], $regs)) { - return false; - } elseif (!preg_match('#^([[:alnum:]-]|[\\_])*$#i', $parts['pass'], $regs)) { - return false; - } elseif (!preg_match('#^[[:alnum:]/_\\.@~-]*$#i', $parts['path'], $regs)) { - return false; - } elseif (!empty($parts['query']) && !preg_match('#^[[:alnum:]?&=+:;_()%\\#/,\\.-]*$#i', $parts['query'], $regs)) { - return false; - } else { - return true; - } - } - return false; - } - - public static function ID3v2ShortFrameNameLookup($majorversion, $long_description) { - $long_description = str_replace(' ', '_', strtolower(trim($long_description))); - static $ID3v2ShortFrameNameLookup = array(); - if (empty($ID3v2ShortFrameNameLookup)) { - - // The following are unique to ID3v2.2 - $ID3v2ShortFrameNameLookup[2]['comment'] = 'COM'; - $ID3v2ShortFrameNameLookup[2]['album'] = 'TAL'; - $ID3v2ShortFrameNameLookup[2]['beats_per_minute'] = 'TBP'; - $ID3v2ShortFrameNameLookup[2]['composer'] = 'TCM'; - $ID3v2ShortFrameNameLookup[2]['genre'] = 'TCO'; - $ID3v2ShortFrameNameLookup[2]['itunescompilation'] = 'TCP'; - $ID3v2ShortFrameNameLookup[2]['copyright'] = 'TCR'; - $ID3v2ShortFrameNameLookup[2]['encoded_by'] = 'TEN'; - $ID3v2ShortFrameNameLookup[2]['language'] = 'TLA'; - $ID3v2ShortFrameNameLookup[2]['length'] = 'TLE'; - $ID3v2ShortFrameNameLookup[2]['original_artist'] = 'TOA'; - $ID3v2ShortFrameNameLookup[2]['original_filename'] = 'TOF'; - $ID3v2ShortFrameNameLookup[2]['original_lyricist'] = 'TOL'; - $ID3v2ShortFrameNameLookup[2]['original_album_title'] = 'TOT'; - $ID3v2ShortFrameNameLookup[2]['artist'] = 'TP1'; - $ID3v2ShortFrameNameLookup[2]['band'] = 'TP2'; - $ID3v2ShortFrameNameLookup[2]['conductor'] = 'TP3'; - $ID3v2ShortFrameNameLookup[2]['remixer'] = 'TP4'; - $ID3v2ShortFrameNameLookup[2]['publisher'] = 'TPB'; - $ID3v2ShortFrameNameLookup[2]['isrc'] = 'TRC'; - $ID3v2ShortFrameNameLookup[2]['tracknumber'] = 'TRK'; - $ID3v2ShortFrameNameLookup[2]['size'] = 'TSI'; - $ID3v2ShortFrameNameLookup[2]['encoder_settings'] = 'TSS'; - $ID3v2ShortFrameNameLookup[2]['description'] = 'TT1'; - $ID3v2ShortFrameNameLookup[2]['title'] = 'TT2'; - $ID3v2ShortFrameNameLookup[2]['subtitle'] = 'TT3'; - $ID3v2ShortFrameNameLookup[2]['lyricist'] = 'TXT'; - $ID3v2ShortFrameNameLookup[2]['user_text'] = 'TXX'; - $ID3v2ShortFrameNameLookup[2]['year'] = 'TYE'; - $ID3v2ShortFrameNameLookup[2]['unique_file_identifier'] = 'UFI'; - $ID3v2ShortFrameNameLookup[2]['unsynchronised_lyrics'] = 'ULT'; - $ID3v2ShortFrameNameLookup[2]['url_file'] = 'WAF'; - $ID3v2ShortFrameNameLookup[2]['url_artist'] = 'WAR'; - $ID3v2ShortFrameNameLookup[2]['url_source'] = 'WAS'; - $ID3v2ShortFrameNameLookup[2]['copyright_information'] = 'WCP'; - $ID3v2ShortFrameNameLookup[2]['url_publisher'] = 'WPB'; - $ID3v2ShortFrameNameLookup[2]['url_user'] = 'WXX'; - - // The following are common to ID3v2.3 and ID3v2.4 - $ID3v2ShortFrameNameLookup[3]['audio_encryption'] = 'AENC'; - $ID3v2ShortFrameNameLookup[3]['attached_picture'] = 'APIC'; - $ID3v2ShortFrameNameLookup[3]['comment'] = 'COMM'; - $ID3v2ShortFrameNameLookup[3]['commercial'] = 'COMR'; - $ID3v2ShortFrameNameLookup[3]['encryption_method_registration'] = 'ENCR'; - $ID3v2ShortFrameNameLookup[3]['event_timing_codes'] = 'ETCO'; - $ID3v2ShortFrameNameLookup[3]['general_encapsulated_object'] = 'GEOB'; - $ID3v2ShortFrameNameLookup[3]['group_identification_registration'] = 'GRID'; - $ID3v2ShortFrameNameLookup[3]['linked_information'] = 'LINK'; - $ID3v2ShortFrameNameLookup[3]['music_cd_identifier'] = 'MCDI'; - $ID3v2ShortFrameNameLookup[3]['mpeg_location_lookup_table'] = 'MLLT'; - $ID3v2ShortFrameNameLookup[3]['ownership'] = 'OWNE'; - $ID3v2ShortFrameNameLookup[3]['play_counter'] = 'PCNT'; - $ID3v2ShortFrameNameLookup[3]['popularimeter'] = 'POPM'; - $ID3v2ShortFrameNameLookup[3]['position_synchronisation'] = 'POSS'; - $ID3v2ShortFrameNameLookup[3]['private'] = 'PRIV'; - $ID3v2ShortFrameNameLookup[3]['recommended_buffer_size'] = 'RBUF'; - $ID3v2ShortFrameNameLookup[3]['reverb'] = 'RVRB'; - $ID3v2ShortFrameNameLookup[3]['synchronised_lyrics'] = 'SYLT'; - $ID3v2ShortFrameNameLookup[3]['synchronised_tempo_codes'] = 'SYTC'; - $ID3v2ShortFrameNameLookup[3]['album'] = 'TALB'; - $ID3v2ShortFrameNameLookup[3]['beats_per_minute'] = 'TBPM'; - $ID3v2ShortFrameNameLookup[3]['itunescompilation'] = 'TCMP'; - $ID3v2ShortFrameNameLookup[3]['composer'] = 'TCOM'; - $ID3v2ShortFrameNameLookup[3]['genre'] = 'TCON'; - $ID3v2ShortFrameNameLookup[3]['copyright'] = 'TCOP'; - $ID3v2ShortFrameNameLookup[3]['playlist_delay'] = 'TDLY'; - $ID3v2ShortFrameNameLookup[3]['encoded_by'] = 'TENC'; - $ID3v2ShortFrameNameLookup[3]['lyricist'] = 'TEXT'; - $ID3v2ShortFrameNameLookup[3]['file_type'] = 'TFLT'; - $ID3v2ShortFrameNameLookup[3]['content_group_description'] = 'TIT1'; - $ID3v2ShortFrameNameLookup[3]['title'] = 'TIT2'; - $ID3v2ShortFrameNameLookup[3]['subtitle'] = 'TIT3'; - $ID3v2ShortFrameNameLookup[3]['initial_key'] = 'TKEY'; - $ID3v2ShortFrameNameLookup[3]['language'] = 'TLAN'; - $ID3v2ShortFrameNameLookup[3]['length'] = 'TLEN'; - $ID3v2ShortFrameNameLookup[3]['media_type'] = 'TMED'; - $ID3v2ShortFrameNameLookup[3]['original_album_title'] = 'TOAL'; - $ID3v2ShortFrameNameLookup[3]['original_filename'] = 'TOFN'; - $ID3v2ShortFrameNameLookup[3]['original_lyricist'] = 'TOLY'; - $ID3v2ShortFrameNameLookup[3]['original_artist'] = 'TOPE'; - $ID3v2ShortFrameNameLookup[3]['file_owner'] = 'TOWN'; - $ID3v2ShortFrameNameLookup[3]['artist'] = 'TPE1'; - $ID3v2ShortFrameNameLookup[3]['band'] = 'TPE2'; - $ID3v2ShortFrameNameLookup[3]['conductor'] = 'TPE3'; - $ID3v2ShortFrameNameLookup[3]['remixer'] = 'TPE4'; - $ID3v2ShortFrameNameLookup[3]['part_of_a_set'] = 'TPOS'; - $ID3v2ShortFrameNameLookup[3]['publisher'] = 'TPUB'; - $ID3v2ShortFrameNameLookup[3]['tracknumber'] = 'TRCK'; - $ID3v2ShortFrameNameLookup[3]['internet_radio_station_name'] = 'TRSN'; - $ID3v2ShortFrameNameLookup[3]['internet_radio_station_owner'] = 'TRSO'; - $ID3v2ShortFrameNameLookup[3]['isrc'] = 'TSRC'; - $ID3v2ShortFrameNameLookup[3]['encoder_settings'] = 'TSSE'; - $ID3v2ShortFrameNameLookup[3]['user_text'] = 'TXXX'; - $ID3v2ShortFrameNameLookup[3]['unique_file_identifier'] = 'UFID'; - $ID3v2ShortFrameNameLookup[3]['terms_of_use'] = 'USER'; - $ID3v2ShortFrameNameLookup[3]['unsynchronised_lyrics'] = 'USLT'; - $ID3v2ShortFrameNameLookup[3]['commercial'] = 'WCOM'; - $ID3v2ShortFrameNameLookup[3]['copyright_information'] = 'WCOP'; - $ID3v2ShortFrameNameLookup[3]['url_file'] = 'WOAF'; - $ID3v2ShortFrameNameLookup[3]['url_artist'] = 'WOAR'; - $ID3v2ShortFrameNameLookup[3]['url_source'] = 'WOAS'; - $ID3v2ShortFrameNameLookup[3]['url_station'] = 'WORS'; - $ID3v2ShortFrameNameLookup[3]['payment'] = 'WPAY'; - $ID3v2ShortFrameNameLookup[3]['url_publisher'] = 'WPUB'; - $ID3v2ShortFrameNameLookup[3]['url_user'] = 'WXXX'; - - // The above are common to ID3v2.3 and ID3v2.4 - // so copy them to ID3v2.4 before adding specifics for 2.3 and 2.4 - $ID3v2ShortFrameNameLookup[4] = $ID3v2ShortFrameNameLookup[3]; - - // The following are unique to ID3v2.3 - $ID3v2ShortFrameNameLookup[3]['equalisation'] = 'EQUA'; - $ID3v2ShortFrameNameLookup[3]['involved_people_list'] = 'IPLS'; - $ID3v2ShortFrameNameLookup[3]['relative_volume_adjustment'] = 'RVAD'; - $ID3v2ShortFrameNameLookup[3]['date'] = 'TDAT'; - $ID3v2ShortFrameNameLookup[3]['time'] = 'TIME'; - $ID3v2ShortFrameNameLookup[3]['original_release_year'] = 'TORY'; - $ID3v2ShortFrameNameLookup[3]['recording_dates'] = 'TRDA'; - $ID3v2ShortFrameNameLookup[3]['size'] = 'TSIZ'; - $ID3v2ShortFrameNameLookup[3]['year'] = 'TYER'; - - - // The following are unique to ID3v2.4 - $ID3v2ShortFrameNameLookup[4]['audio_seek_point_index'] = 'ASPI'; - $ID3v2ShortFrameNameLookup[4]['equalisation'] = 'EQU2'; - $ID3v2ShortFrameNameLookup[4]['relative_volume_adjustment'] = 'RVA2'; - $ID3v2ShortFrameNameLookup[4]['seek'] = 'SEEK'; - $ID3v2ShortFrameNameLookup[4]['signature'] = 'SIGN'; - $ID3v2ShortFrameNameLookup[4]['encoding_time'] = 'TDEN'; - $ID3v2ShortFrameNameLookup[4]['original_release_time'] = 'TDOR'; - $ID3v2ShortFrameNameLookup[4]['recording_time'] = 'TDRC'; - $ID3v2ShortFrameNameLookup[4]['release_time'] = 'TDRL'; - $ID3v2ShortFrameNameLookup[4]['tagging_time'] = 'TDTG'; - $ID3v2ShortFrameNameLookup[4]['involved_people_list'] = 'TIPL'; - $ID3v2ShortFrameNameLookup[4]['musician_credits_list'] = 'TMCL'; - $ID3v2ShortFrameNameLookup[4]['mood'] = 'TMOO'; - $ID3v2ShortFrameNameLookup[4]['produced_notice'] = 'TPRO'; - $ID3v2ShortFrameNameLookup[4]['album_sort_order'] = 'TSOA'; - $ID3v2ShortFrameNameLookup[4]['performer_sort_order'] = 'TSOP'; - $ID3v2ShortFrameNameLookup[4]['title_sort_order'] = 'TSOT'; - $ID3v2ShortFrameNameLookup[4]['set_subtitle'] = 'TSST'; - } - return (isset($ID3v2ShortFrameNameLookup[$majorversion][strtolower($long_description)]) ? $ID3v2ShortFrameNameLookup[$majorversion][strtolower($long_description)] : ''); - - } - -} - diff --git a/web/htdocs/media/lib/getid3/write.lyrics3.php b/web/htdocs/media/lib/getid3/write.lyrics3.php deleted file mode 100644 index 1f85ebd0a1f..00000000000 --- a/web/htdocs/media/lib/getid3/write.lyrics3.php +++ /dev/null @@ -1,71 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.lyrics3.php // -// module for writing Lyrics3 tags // -// dependencies: module.tag.lyrics3.php // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_write_lyrics3 -{ - public $filename; - public $tag_data; - //public $lyrics3_version = 2; // 1 or 2 - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_lyrics3() { - return true; - } - - public function WriteLyrics3() { - $this->errors[] = 'WriteLyrics3() not yet functional - cannot write Lyrics3'; - return false; - } - public function DeleteLyrics3() { - // Initialize getID3 engine - $getID3 = new getID3; - $ThisFileInfo = $getID3->analyze($this->filename); - if (isset($ThisFileInfo['lyrics3']['tag_offset_start']) && isset($ThisFileInfo['lyrics3']['tag_offset_end'])) { - if (is_readable($this->filename) && is_writable($this->filename) && is_file($this->filename) && ($fp = fopen($this->filename, 'a+b'))) { - - flock($fp, LOCK_EX); - $oldignoreuserabort = ignore_user_abort(true); - - fseek($fp, $ThisFileInfo['lyrics3']['tag_offset_end'], SEEK_SET); - $DataAfterLyrics3 = ''; - if ($ThisFileInfo['filesize'] > $ThisFileInfo['lyrics3']['tag_offset_end']) { - $DataAfterLyrics3 = fread($fp, $ThisFileInfo['filesize'] - $ThisFileInfo['lyrics3']['tag_offset_end']); - } - - ftruncate($fp, $ThisFileInfo['lyrics3']['tag_offset_start']); - - if (!empty($DataAfterLyrics3)) { - fseek($fp, $ThisFileInfo['lyrics3']['tag_offset_start'], SEEK_SET); - fwrite($fp, $DataAfterLyrics3, strlen($DataAfterLyrics3)); - } - - flock($fp, LOCK_UN); - fclose($fp); - ignore_user_abort($oldignoreuserabort); - - return true; - - } else { - $this->errors[] = 'Cannot fopen('.$this->filename.', "a+b")'; - return false; - } - } - // no Lyrics3 present - return true; - } - -} diff --git a/web/htdocs/media/lib/getid3/write.metaflac.php b/web/htdocs/media/lib/getid3/write.metaflac.php deleted file mode 100644 index f3ce505fc5e..00000000000 --- a/web/htdocs/media/lib/getid3/write.metaflac.php +++ /dev/null @@ -1,161 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.metaflac.php // -// module for writing metaflac tags // -// dependencies: /helperapps/metaflac.exe // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_write_metaflac -{ - - public $filename; - public $tag_data; - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_metaflac() { - return true; - } - - public function WriteMetaFLAC() { - - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - $this->errors[] = 'PHP running in Safe Mode (backtick operator not available) - cannot call metaflac, tags not written'; - return false; - } - - // Create file with new comments - $tempcommentsfilename = tempnam(GETID3_TEMP_DIR, 'getID3'); - if (is_writable($tempcommentsfilename) && is_file($tempcommentsfilename) && ($fpcomments = fopen($tempcommentsfilename, 'wb'))) { - foreach ($this->tag_data as $key => $value) { - foreach ($value as $commentdata) { - fwrite($fpcomments, $this->CleanmetaflacName($key).'='.$commentdata."\n"); - } - } - fclose($fpcomments); - - } else { - $this->errors[] = 'failed to open temporary tags file, tags not written - fopen("'.$tempcommentsfilename.'", "wb")'; - return false; - } - - $oldignoreuserabort = ignore_user_abort(true); - if (GETID3_OS_ISWINDOWS) { - - if (file_exists(GETID3_HELPERAPPSDIR.'metaflac.exe')) { - //$commandline = '"'.GETID3_HELPERAPPSDIR.'metaflac.exe" --no-utf8-convert --remove-all-tags --import-tags-from="'.$tempcommentsfilename.'" "'.str_replace('/', '\\', $this->filename).'"'; - // metaflac works fine if you copy-paste the above commandline into a command prompt, - // but refuses to work with `backtick` if there are "doublequotes" present around BOTH - // the metaflac pathname and the target filename. For whatever reason...?? - // The solution is simply ensure that the metaflac pathname has no spaces, - // and therefore does not need to be quoted - - // On top of that, if error messages are not always captured properly under Windows - // To at least see if there was a problem, compare file modification timestamps before and after writing - clearstatcache(); - $timestampbeforewriting = filemtime($this->filename); - - $commandline = GETID3_HELPERAPPSDIR.'metaflac.exe --no-utf8-convert --remove-all-tags --import-tags-from='.escapeshellarg($tempcommentsfilename).' '.escapeshellarg($this->filename).' 2>&1'; - $metaflacError = `$commandline`; - - if (empty($metaflacError)) { - clearstatcache(); - if ($timestampbeforewriting == filemtime($this->filename)) { - $metaflacError = 'File modification timestamp has not changed - it looks like the tags were not written'; - } - } - } else { - $metaflacError = 'metaflac.exe not found in '.GETID3_HELPERAPPSDIR; - } - - } else { - - // It's simpler on *nix - $commandline = 'metaflac --no-utf8-convert --remove-all-tags --import-tags-from='.escapeshellarg($tempcommentsfilename).' '.escapeshellarg($this->filename).' 2>&1'; - $metaflacError = `$commandline`; - - } - - // Remove temporary comments file - unlink($tempcommentsfilename); - ignore_user_abort($oldignoreuserabort); - - if (!empty($metaflacError)) { - - $this->errors[] = 'System call to metaflac failed with this message returned: '."\n\n".$metaflacError; - return false; - - } - - return true; - } - - - public function DeleteMetaFLAC() { - - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - $this->errors[] = 'PHP running in Safe Mode (backtick operator not available) - cannot call metaflac, tags not deleted'; - return false; - } - - $oldignoreuserabort = ignore_user_abort(true); - if (GETID3_OS_ISWINDOWS) { - - if (file_exists(GETID3_HELPERAPPSDIR.'metaflac.exe')) { - // To at least see if there was a problem, compare file modification timestamps before and after writing - clearstatcache(); - $timestampbeforewriting = filemtime($this->filename); - - $commandline = GETID3_HELPERAPPSDIR.'metaflac.exe --remove-all-tags "'.$this->filename.'" 2>&1'; - $metaflacError = `$commandline`; - - if (empty($metaflacError)) { - clearstatcache(); - if ($timestampbeforewriting == filemtime($this->filename)) { - $metaflacError = 'File modification timestamp has not changed - it looks like the tags were not deleted'; - } - } - } else { - $metaflacError = 'metaflac.exe not found in '.GETID3_HELPERAPPSDIR; - } - - } else { - - // It's simpler on *nix - $commandline = 'metaflac --remove-all-tags "'.$this->filename.'" 2>&1'; - $metaflacError = `$commandline`; - - } - - ignore_user_abort($oldignoreuserabort); - - if (!empty($metaflacError)) { - $this->errors[] = 'System call to metaflac failed with this message returned: '."\n\n".$metaflacError; - return false; - } - return true; - } - - - public function CleanmetaflacName($originalcommentname) { - // A case-insensitive field name that may consist of ASCII 0x20 through 0x7D, 0x3D ('=') excluded. - // ASCII 0x41 through 0x5A inclusive (A-Z) is to be considered equivalent to ASCII 0x61 through - // 0x7A inclusive (a-z). - - // replace invalid chars with a space, return uppercase text - // Thanks Chris Bolt for improving this function - // note: *reg_replace() replaces nulls with empty string (not space) - return strtoupper(preg_replace('#[^ -<>-}]#', ' ', str_replace("\x00", ' ', $originalcommentname))); - - } - -} diff --git a/web/htdocs/media/lib/getid3/write.php b/web/htdocs/media/lib/getid3/write.php deleted file mode 100644 index 3a7f1974d89..00000000000 --- a/web/htdocs/media/lib/getid3/write.php +++ /dev/null @@ -1,613 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -/// // -// write.php // -// module for writing tags (APEv2, ID3v1, ID3v2) // -// dependencies: getid3.lib.php // -// write.apetag.php (optional) // -// write.id3v1.php (optional) // -// write.id3v2.php (optional) // -// write.vorbiscomment.php (optional) // -// write.metaflac.php (optional) // -// write.lyrics3.php (optional) // -// /// -///////////////////////////////////////////////////////////////// - -if (!defined('GETID3_INCLUDEPATH')) { - throw new Exception('getid3.php MUST be included before calling getid3_writetags'); -} -if (!include_once(GETID3_INCLUDEPATH.'getid3.lib.php')) { - throw new Exception('write.php depends on getid3.lib.php, which is missing.'); -} - - -// NOTES: -// -// You should pass data here with standard field names as follows: -// * TITLE -// * ARTIST -// * ALBUM -// * TRACKNUMBER -// * COMMENT -// * GENRE -// * YEAR -// * ATTACHED_PICTURE (ID3v2 only) -// -// http://www.personal.uni-jena.de/~pfk/mpp/sv8/apekey.html -// The APEv2 Tag Items Keys definition says "TRACK" is correct but foobar2000 uses "TRACKNUMBER" instead -// Pass data here as "TRACKNUMBER" for compatability with all formats - - -class getid3_writetags -{ - // public - public $filename; // absolute filename of file to write tags to - public $tagformats = array(); // array of tag formats to write ('id3v1', 'id3v2.2', 'id2v2.3', 'id3v2.4', 'ape', 'vorbiscomment', 'metaflac', 'real') - public $tag_data = array(array()); // 2-dimensional array of tag data (ex: $data['ARTIST'][0] = 'Elvis') - public $tag_encoding = 'ISO-8859-1'; // text encoding used for tag data ('ISO-8859-1', 'UTF-8', 'UTF-16', 'UTF-16LE', 'UTF-16BE', ) - public $overwrite_tags = true; // if true will erase existing tag data and write only passed data; if false will merge passed data with existing tag data - public $remove_other_tags = false; // if true will erase remove all existing tags and only write those passed in $tagformats; if false will ignore any tags not mentioned in $tagformats - - public $id3v2_tag_language = 'eng'; // ISO-639-2 3-character language code needed for some ID3v2 frames (http://www.id3.org/iso639-2.html) - public $id3v2_paddedlength = 4096; // minimum length of ID3v2 tags (will be padded to this length if tag data is shorter) - - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - // private - private $ThisFileInfo; // analysis of file before writing - - public function getid3_writetags() { - return true; - } - - - public function WriteTags() { - - if (empty($this->filename)) { - $this->errors[] = 'filename is undefined in getid3_writetags'; - return false; - } elseif (!file_exists($this->filename)) { - $this->errors[] = 'filename set to non-existant file "'.$this->filename.'" in getid3_writetags'; - return false; - } - - if (!is_array($this->tagformats)) { - $this->errors[] = 'tagformats must be an array in getid3_writetags'; - return false; - } - - $TagFormatsToRemove = array(); - if (filesize($this->filename) == 0) { - - // empty file special case - allow any tag format, don't check existing format - // could be useful if you want to generate tag data for a non-existant file - $this->ThisFileInfo = array('fileformat'=>''); - $AllowedTagFormats = array('id3v1', 'id3v2.2', 'id3v2.3', 'id3v2.4', 'ape', 'lyrics3'); - - } else { - - $getID3 = new getID3; - $getID3->encoding = $this->tag_encoding; - $this->ThisFileInfo = $getID3->analyze($this->filename); - - // check for what file types are allowed on this fileformat - switch (isset($this->ThisFileInfo['fileformat']) ? $this->ThisFileInfo['fileformat'] : '') { - case 'mp3': - case 'mp2': - case 'mp1': - case 'riff': // maybe not officially, but people do it anyway - $AllowedTagFormats = array('id3v1', 'id3v2.2', 'id3v2.3', 'id3v2.4', 'ape', 'lyrics3'); - break; - - case 'mpc': - $AllowedTagFormats = array('ape'); - break; - - case 'flac': - $AllowedTagFormats = array('metaflac'); - break; - - case 'real': - $AllowedTagFormats = array('real'); - break; - - case 'ogg': - switch (isset($this->ThisFileInfo['audio']['dataformat']) ? $this->ThisFileInfo['audio']['dataformat'] : '') { - case 'flac': - //$AllowedTagFormats = array('metaflac'); - $this->errors[] = 'metaflac is not (yet) compatible with OggFLAC files'; - return false; - break; - case 'vorbis': - $AllowedTagFormats = array('vorbiscomment'); - break; - default: - $this->errors[] = 'metaflac is not (yet) compatible with Ogg files other than OggVorbis'; - return false; - break; - } - break; - - default: - $AllowedTagFormats = array(); - break; - } - foreach ($this->tagformats as $requested_tag_format) { - if (!in_array($requested_tag_format, $AllowedTagFormats)) { - $errormessage = 'Tag format "'.$requested_tag_format.'" is not allowed on "'.(isset($this->ThisFileInfo['fileformat']) ? $this->ThisFileInfo['fileformat'] : ''); - $errormessage .= (isset($this->ThisFileInfo['audio']['dataformat']) ? '.'.$this->ThisFileInfo['audio']['dataformat'] : ''); - $errormessage .= '" files'; - $this->errors[] = $errormessage; - return false; - } - } - - // List of other tag formats, removed if requested - if ($this->remove_other_tags) { - foreach ($AllowedTagFormats as $AllowedTagFormat) { - switch ($AllowedTagFormat) { - case 'id3v2.2': - case 'id3v2.3': - case 'id3v2.4': - if (!in_array('id3v2', $TagFormatsToRemove) && !in_array('id3v2.2', $this->tagformats) && !in_array('id3v2.3', $this->tagformats) && !in_array('id3v2.4', $this->tagformats)) { - $TagFormatsToRemove[] = 'id3v2'; - } - break; - - default: - if (!in_array($AllowedTagFormat, $this->tagformats)) { - $TagFormatsToRemove[] = $AllowedTagFormat; - } - break; - } - } - } - } - - $WritingFilesToInclude = array_merge($this->tagformats, $TagFormatsToRemove); - - // Check for required include files and include them - foreach ($WritingFilesToInclude as $tagformat) { - switch ($tagformat) { - case 'ape': - $GETID3_ERRORARRAY = &$this->errors; - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'write.apetag.php', __FILE__, false)) { - return false; - } - break; - - case 'id3v1': - case 'lyrics3': - case 'vorbiscomment': - case 'metaflac': - case 'real': - $GETID3_ERRORARRAY = &$this->errors; - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'write.'.$tagformat.'.php', __FILE__, false)) { - return false; - } - break; - - case 'id3v2.2': - case 'id3v2.3': - case 'id3v2.4': - case 'id3v2': - $GETID3_ERRORARRAY = &$this->errors; - if (!getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'write.id3v2.php', __FILE__, false)) { - return false; - } - break; - - default: - $this->errors[] = 'unknown tag format "'.$tagformat.'" in $tagformats in WriteTags()'; - return false; - break; - } - - } - - // Validation of supplied data - if (!is_array($this->tag_data)) { - $this->errors[] = '$this->tag_data is not an array in WriteTags()'; - return false; - } - // convert supplied data array keys to upper case, if they're not already - foreach ($this->tag_data as $tag_key => $tag_array) { - if (strtoupper($tag_key) !== $tag_key) { - $this->tag_data[strtoupper($tag_key)] = $this->tag_data[$tag_key]; - unset($this->tag_data[$tag_key]); - } - } - // convert source data array keys to upper case, if they're not already - if (!empty($this->ThisFileInfo['tags'])) { - foreach ($this->ThisFileInfo['tags'] as $tag_format => $tag_data_array) { - foreach ($tag_data_array as $tag_key => $tag_array) { - if (strtoupper($tag_key) !== $tag_key) { - $this->ThisFileInfo['tags'][$tag_format][strtoupper($tag_key)] = $this->ThisFileInfo['tags'][$tag_format][$tag_key]; - unset($this->ThisFileInfo['tags'][$tag_format][$tag_key]); - } - } - } - } - - // Convert "TRACK" to "TRACKNUMBER" (if needed) for compatability with all formats - if (isset($this->tag_data['TRACK']) && !isset($this->tag_data['TRACKNUMBER'])) { - $this->tag_data['TRACKNUMBER'] = $this->tag_data['TRACK']; - unset($this->tag_data['TRACK']); - } - - // Remove all other tag formats, if requested - if ($this->remove_other_tags) { - $this->DeleteTags($TagFormatsToRemove); - } - - // Write data for each tag format - foreach ($this->tagformats as $tagformat) { - $success = false; // overridden if tag writing is successful - switch ($tagformat) { - case 'ape': - $ape_writer = new getid3_write_apetag; - if (($ape_writer->tag_data = $this->FormatDataForAPE()) !== false) { - $ape_writer->filename = $this->filename; - if (($success = $ape_writer->WriteAPEtag()) === false) { - $this->errors[] = 'WriteAPEtag() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $ape_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForAPE() failed'; - } - break; - - case 'id3v1': - $id3v1_writer = new getid3_write_id3v1; - if (($id3v1_writer->tag_data = $this->FormatDataForID3v1()) !== false) { - $id3v1_writer->filename = $this->filename; - if (($success = $id3v1_writer->WriteID3v1()) === false) { - $this->errors[] = 'WriteID3v1() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $id3v1_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForID3v1() failed'; - } - break; - - case 'id3v2.2': - case 'id3v2.3': - case 'id3v2.4': - $id3v2_writer = new getid3_write_id3v2; - $id3v2_writer->majorversion = intval(substr($tagformat, -1)); - $id3v2_writer->paddedlength = $this->id3v2_paddedlength; - if (($id3v2_writer->tag_data = $this->FormatDataForID3v2($id3v2_writer->majorversion)) !== false) { - $id3v2_writer->filename = $this->filename; - if (($success = $id3v2_writer->WriteID3v2()) === false) { - $this->errors[] = 'WriteID3v2() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $id3v2_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForID3v2() failed'; - } - break; - - case 'vorbiscomment': - $vorbiscomment_writer = new getid3_write_vorbiscomment; - if (($vorbiscomment_writer->tag_data = $this->FormatDataForVorbisComment()) !== false) { - $vorbiscomment_writer->filename = $this->filename; - if (($success = $vorbiscomment_writer->WriteVorbisComment()) === false) { - $this->errors[] = 'WriteVorbisComment() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $vorbiscomment_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForVorbisComment() failed'; - } - break; - - case 'metaflac': - $metaflac_writer = new getid3_write_metaflac; - if (($metaflac_writer->tag_data = $this->FormatDataForMetaFLAC()) !== false) { - $metaflac_writer->filename = $this->filename; - if (($success = $metaflac_writer->WriteMetaFLAC()) === false) { - $this->errors[] = 'WriteMetaFLAC() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $metaflac_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForMetaFLAC() failed'; - } - break; - - case 'real': - $real_writer = new getid3_write_real; - if (($real_writer->tag_data = $this->FormatDataForReal()) !== false) { - $real_writer->filename = $this->filename; - if (($success = $real_writer->WriteReal()) === false) { - $this->errors[] = 'WriteReal() failed with message(s):
  • '.str_replace("\n", '
  • ', htmlentities(trim(implode("\n", $real_writer->errors)))).'
'; - } - } else { - $this->errors[] = 'FormatDataForReal() failed'; - } - break; - - default: - $this->errors[] = 'Invalid tag format to write: "'.$tagformat.'"'; - return false; - break; - } - if (!$success) { - return false; - } - } - return true; - - } - - - public function DeleteTags($TagFormatsToDelete) { - foreach ($TagFormatsToDelete as $DeleteTagFormat) { - $success = false; // overridden if tag deletion is successful - switch ($DeleteTagFormat) { - case 'id3v1': - $id3v1_writer = new getid3_write_id3v1; - $id3v1_writer->filename = $this->filename; - if (($success = $id3v1_writer->RemoveID3v1()) === false) { - $this->errors[] = 'RemoveID3v1() failed with message(s):
  • '.trim(implode('
  • ', $id3v1_writer->errors)).'
'; - } - break; - - case 'id3v2': - $id3v2_writer = new getid3_write_id3v2; - $id3v2_writer->filename = $this->filename; - if (($success = $id3v2_writer->RemoveID3v2()) === false) { - $this->errors[] = 'RemoveID3v2() failed with message(s):
  • '.trim(implode('
  • ', $id3v2_writer->errors)).'
'; - } - break; - - case 'ape': - $ape_writer = new getid3_write_apetag; - $ape_writer->filename = $this->filename; - if (($success = $ape_writer->DeleteAPEtag()) === false) { - $this->errors[] = 'DeleteAPEtag() failed with message(s):
  • '.trim(implode('
  • ', $ape_writer->errors)).'
'; - } - break; - - case 'vorbiscomment': - $vorbiscomment_writer = new getid3_write_vorbiscomment; - $vorbiscomment_writer->filename = $this->filename; - if (($success = $vorbiscomment_writer->DeleteVorbisComment()) === false) { - $this->errors[] = 'DeleteVorbisComment() failed with message(s):
  • '.trim(implode('
  • ', $vorbiscomment_writer->errors)).'
'; - } - break; - - case 'metaflac': - $metaflac_writer = new getid3_write_metaflac; - $metaflac_writer->filename = $this->filename; - if (($success = $metaflac_writer->DeleteMetaFLAC()) === false) { - $this->errors[] = 'DeleteMetaFLAC() failed with message(s):
  • '.trim(implode('
  • ', $metaflac_writer->errors)).'
'; - } - break; - - case 'lyrics3': - $lyrics3_writer = new getid3_write_lyrics3; - $lyrics3_writer->filename = $this->filename; - if (($success = $lyrics3_writer->DeleteLyrics3()) === false) { - $this->errors[] = 'DeleteLyrics3() failed with message(s):
  • '.trim(implode('
  • ', $lyrics3_writer->errors)).'
'; - } - break; - - case 'real': - $real_writer = new getid3_write_real; - $real_writer->filename = $this->filename; - if (($success = $real_writer->RemoveReal()) === false) { - $this->errors[] = 'RemoveReal() failed with message(s):
  • '.trim(implode('
  • ', $real_writer->errors)).'
'; - } - break; - - default: - $this->errors[] = 'Invalid tag format to delete: "'.$tagformat.'"'; - return false; - break; - } - if (!$success) { - return false; - } - } - return true; - } - - - public function MergeExistingTagData($TagFormat, &$tag_data) { - // Merge supplied data with existing data, if requested - if ($this->overwrite_tags) { - // do nothing - ignore previous data - } else { -throw new Exception('$this->overwrite_tags=false is known to be buggy in this version of getID3. Will be fixed in the near future, check www.getid3.org for a newer version.'); - if (!isset($this->ThisFileInfo['tags'][$TagFormat])) { - return false; - } - $tag_data = array_merge_recursive($tag_data, $this->ThisFileInfo['tags'][$TagFormat]); - } - return true; - } - - public function FormatDataForAPE() { - $ape_tag_data = array(); - foreach ($this->tag_data as $tag_key => $valuearray) { - switch ($tag_key) { - case 'ATTACHED_PICTURE': - // ATTACHED_PICTURE is ID3v2 only - ignore - $this->warnings[] = '$data['.$tag_key.'] is assumed to be ID3v2 APIC data - NOT written to APE tag'; - break; - - default: - foreach ($valuearray as $key => $value) { - if (is_string($value) || is_numeric($value)) { - $ape_tag_data[$tag_key][$key] = getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-8', $value); - } else { - $this->warnings[] = '$data['.$tag_key.']['.$key.'] is not a string value - all of $data['.$tag_key.'] NOT written to APE tag'; - unset($ape_tag_data[$tag_key]); - break; - } - } - break; - } - } - $this->MergeExistingTagData('ape', $ape_tag_data); - return $ape_tag_data; - } - - - public function FormatDataForID3v1() { - $tag_data_id3v1['genreid'] = 255; - if (!empty($this->tag_data['GENRE'])) { - foreach ($this->tag_data['GENRE'] as $key => $value) { - if (getid3_id3v1::LookupGenreID($value) !== false) { - $tag_data_id3v1['genreid'] = getid3_id3v1::LookupGenreID($value); - break; - } - } - } - $tag_data_id3v1['title'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['TITLE'] ) ? $this->tag_data['TITLE'] : array()))); - $tag_data_id3v1['artist'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['ARTIST'] ) ? $this->tag_data['ARTIST'] : array()))); - $tag_data_id3v1['album'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['ALBUM'] ) ? $this->tag_data['ALBUM'] : array()))); - $tag_data_id3v1['year'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['YEAR'] ) ? $this->tag_data['YEAR'] : array()))); - $tag_data_id3v1['comment'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['COMMENT'] ) ? $this->tag_data['COMMENT'] : array()))); - $tag_data_id3v1['track'] = intval(getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['TRACKNUMBER']) ? $this->tag_data['TRACKNUMBER'] : array())))); - if ($tag_data_id3v1['track'] <= 0) { - $tag_data_id3v1['track'] = ''; - } - - $this->MergeExistingTagData('id3v1', $tag_data_id3v1); - return $tag_data_id3v1; - } - - public function FormatDataForID3v2($id3v2_majorversion) { - $tag_data_id3v2 = array(); - - $ID3v2_text_encoding_lookup[2] = array('ISO-8859-1'=>0, 'UTF-16'=>1); - $ID3v2_text_encoding_lookup[3] = array('ISO-8859-1'=>0, 'UTF-16'=>1); - $ID3v2_text_encoding_lookup[4] = array('ISO-8859-1'=>0, 'UTF-16'=>1, 'UTF-16BE'=>2, 'UTF-8'=>3); - foreach ($this->tag_data as $tag_key => $valuearray) { - $ID3v2_framename = getid3_write_id3v2::ID3v2ShortFrameNameLookup($id3v2_majorversion, $tag_key); - switch ($ID3v2_framename) { - case 'APIC': - foreach ($valuearray as $key => $apic_data_array) { - if (isset($apic_data_array['data']) && - isset($apic_data_array['picturetypeid']) && - isset($apic_data_array['description']) && - isset($apic_data_array['mime'])) { - $tag_data_id3v2['APIC'][] = $apic_data_array; - } else { - $this->errors[] = 'ID3v2 APIC data is not properly structured'; - return false; - } - } - break; - - case '': - $this->errors[] = 'ID3v2: Skipping "'.$tag_key.'" because cannot match it to a known ID3v2 frame type'; - // some other data type, don't know how to handle it, ignore it - break; - - default: - // most other (text) frames can be copied over as-is - foreach ($valuearray as $key => $value) { - if (isset($ID3v2_text_encoding_lookup[$id3v2_majorversion][$this->tag_encoding])) { - // source encoding is valid in ID3v2 - use it with no conversion - $tag_data_id3v2[$ID3v2_framename][$key]['encodingid'] = $ID3v2_text_encoding_lookup[$id3v2_majorversion][$this->tag_encoding]; - $tag_data_id3v2[$ID3v2_framename][$key]['data'] = $value; - } else { - // source encoding is NOT valid in ID3v2 - convert it to an ID3v2-valid encoding first - if ($id3v2_majorversion < 4) { - // convert data from other encoding to UTF-16 (with BOM) - // note: some software, notably Windows Media Player and iTunes are broken and treat files tagged with UTF-16BE (with BOM) as corrupt - // therefore we force data to UTF-16LE and manually prepend the BOM - $ID3v2_tag_data_converted = false; - if (!$ID3v2_tag_data_converted && ($this->tag_encoding == 'ISO-8859-1')) { - // great, leave data as-is for minimum compatability problems - $tag_data_id3v2[$ID3v2_framename][$key]['encodingid'] = 0; - $tag_data_id3v2[$ID3v2_framename][$key]['data'] = $value; - $ID3v2_tag_data_converted = true; - } - if (!$ID3v2_tag_data_converted && ($this->tag_encoding == 'UTF-8')) { - do { - // if UTF-8 string does not include any characters above chr(127) then it is identical to ISO-8859-1 - for ($i = 0; $i < strlen($value); $i++) { - if (ord($value{$i}) > 127) { - break 2; - } - } - $tag_data_id3v2[$ID3v2_framename][$key]['encodingid'] = 0; - $tag_data_id3v2[$ID3v2_framename][$key]['data'] = $value; - $ID3v2_tag_data_converted = true; - } while (false); - } - if (!$ID3v2_tag_data_converted) { - $tag_data_id3v2[$ID3v2_framename][$key]['encodingid'] = 1; - //$tag_data_id3v2[$ID3v2_framename][$key]['data'] = getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-16', $value); // output is UTF-16LE+BOM or UTF-16BE+BOM depending on system architecture - $tag_data_id3v2[$ID3v2_framename][$key]['data'] = "\xFF\xFE".getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-16LE', $value); // force LittleEndian order version of UTF-16 - $ID3v2_tag_data_converted = true; - } - - } else { - // convert data from other encoding to UTF-8 - $tag_data_id3v2[$ID3v2_framename][$key]['encodingid'] = 3; - $tag_data_id3v2[$ID3v2_framename][$key]['data'] = getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-8', $value); - } - } - - // These values are not needed for all frame types, but if they're not used no matter - $tag_data_id3v2[$ID3v2_framename][$key]['description'] = ''; - $tag_data_id3v2[$ID3v2_framename][$key]['language'] = $this->id3v2_tag_language; - } - break; - } - } - $this->MergeExistingTagData('id3v2', $tag_data_id3v2); - return $tag_data_id3v2; - } - - public function FormatDataForVorbisComment() { - $tag_data_vorbiscomment = $this->tag_data; - - // check for multi-line comment values - split out to multiple comments if neccesary - // and convert data to UTF-8 strings - foreach ($tag_data_vorbiscomment as $tag_key => $valuearray) { - foreach ($valuearray as $key => $value) { - str_replace("\r", "\n", $value); - if (strstr($value, "\n")) { - unset($tag_data_vorbiscomment[$tag_key][$key]); - $multilineexploded = explode("\n", $value); - foreach ($multilineexploded as $newcomment) { - if (strlen(trim($newcomment)) > 0) { - $tag_data_vorbiscomment[$tag_key][] = getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-8', $newcomment); - } - } - } elseif (is_string($value) || is_numeric($value)) { - $tag_data_vorbiscomment[$tag_key][$key] = getid3_lib::iconv_fallback($this->tag_encoding, 'UTF-8', $value); - } else { - $this->warnings[] = '$data['.$tag_key.']['.$key.'] is not a string value - all of $data['.$tag_key.'] NOT written to VorbisComment tag'; - unset($tag_data_vorbiscomment[$tag_key]); - break; - } - } - } - $this->MergeExistingTagData('vorbiscomment', $tag_data_vorbiscomment); - return $tag_data_vorbiscomment; - } - - public function FormatDataForMetaFLAC() { - // FLAC & OggFLAC use VorbisComments same as OggVorbis - // but require metaflac to do the writing rather than vorbiscomment - return $this->FormatDataForVorbisComment(); - } - - public function FormatDataForReal() { - $tag_data_real['title'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['TITLE'] ) ? $this->tag_data['TITLE'] : array()))); - $tag_data_real['artist'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['ARTIST'] ) ? $this->tag_data['ARTIST'] : array()))); - $tag_data_real['copyright'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['COPYRIGHT']) ? $this->tag_data['COPYRIGHT'] : array()))); - $tag_data_real['comment'] = getid3_lib::iconv_fallback($this->tag_encoding, 'ISO-8859-1', implode(' ', (isset($this->tag_data['COMMENT'] ) ? $this->tag_data['COMMENT'] : array()))); - - $this->MergeExistingTagData('real', $tag_data_real); - return $tag_data_real; - } - -} diff --git a/web/htdocs/media/lib/getid3/write.real.php b/web/htdocs/media/lib/getid3/write.real.php deleted file mode 100644 index 02b9165286e..00000000000 --- a/web/htdocs/media/lib/getid3/write.real.php +++ /dev/null @@ -1,273 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.real.php // -// module for writing RealAudio/RealVideo tags // -// dependencies: module.tag.real.php // -// /// -///////////////////////////////////////////////////////////////// - -class getid3_write_real -{ - public $filename; - public $tag_data = array(); - public $fread_buffer_size = 32768; // read buffer size in bytes - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - public $paddedlength = 512; // minimum length of CONT tag in bytes - - public function getid3_write_real() { - return true; - } - - public function WriteReal() { - // File MUST be writeable - CHMOD(646) at least - if (is_writeable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'r+b'))) { - - // Initialize getID3 engine - $getID3 = new getID3; - $OldThisFileInfo = $getID3->analyze($this->filename); - if (empty($OldThisFileInfo['real']['chunks']) && !empty($OldThisFileInfo['real']['old_ra_header'])) { - $this->errors[] = 'Cannot write Real tags on old-style file format'; - fclose($fp_source); - return false; - } - - if (empty($OldThisFileInfo['real']['chunks'])) { - $this->errors[] = 'Cannot write Real tags because cannot find DATA chunk in file'; - fclose($fp_source); - return false; - } - foreach ($OldThisFileInfo['real']['chunks'] as $chunknumber => $chunkarray) { - $oldChunkInfo[$chunkarray['name']] = $chunkarray; - } - if (!empty($oldChunkInfo['CONT']['length'])) { - $this->paddedlength = max($oldChunkInfo['CONT']['length'], $this->paddedlength); - } - - $new_CONT_tag_data = $this->GenerateCONTchunk(); - $new_PROP_tag_data = $this->GeneratePROPchunk($OldThisFileInfo['real']['chunks'], $new_CONT_tag_data); - $new__RMF_tag_data = $this->GenerateRMFchunk($OldThisFileInfo['real']['chunks']); - - if (isset($oldChunkInfo['.RMF']['length']) && ($oldChunkInfo['.RMF']['length'] == strlen($new__RMF_tag_data))) { - fseek($fp_source, $oldChunkInfo['.RMF']['offset'], SEEK_SET); - fwrite($fp_source, $new__RMF_tag_data); - } else { - $this->errors[] = 'new .RMF tag ('.strlen($new__RMF_tag_data).' bytes) different length than old .RMF tag ('.$oldChunkInfo['.RMF']['length'].' bytes)'; - fclose($fp_source); - return false; - } - - if (isset($oldChunkInfo['PROP']['length']) && ($oldChunkInfo['PROP']['length'] == strlen($new_PROP_tag_data))) { - fseek($fp_source, $oldChunkInfo['PROP']['offset'], SEEK_SET); - fwrite($fp_source, $new_PROP_tag_data); - } else { - $this->errors[] = 'new PROP tag ('.strlen($new_PROP_tag_data).' bytes) different length than old PROP tag ('.$oldChunkInfo['PROP']['length'].' bytes)'; - fclose($fp_source); - return false; - } - - if (isset($oldChunkInfo['CONT']['length']) && ($oldChunkInfo['CONT']['length'] == strlen($new_CONT_tag_data))) { - - // new data length is same as old data length - just overwrite - fseek($fp_source, $oldChunkInfo['CONT']['offset'], SEEK_SET); - fwrite($fp_source, $new_CONT_tag_data); - fclose($fp_source); - return true; - - } else { - - if (empty($oldChunkInfo['CONT'])) { - // no existing CONT chunk - $BeforeOffset = $oldChunkInfo['DATA']['offset']; - $AfterOffset = $oldChunkInfo['DATA']['offset']; - } else { - // new data is longer than old data - $BeforeOffset = $oldChunkInfo['CONT']['offset']; - $AfterOffset = $oldChunkInfo['CONT']['offset'] + $oldChunkInfo['CONT']['length']; - } - if ($tempfilename = tempnam(GETID3_TEMP_DIR, 'getID3')) { - if (is_writable($tempfilename) && is_file($tempfilename) && ($fp_temp = fopen($tempfilename, 'wb'))) { - - rewind($fp_source); - fwrite($fp_temp, fread($fp_source, $BeforeOffset)); - fwrite($fp_temp, $new_CONT_tag_data); - fseek($fp_source, $AfterOffset, SEEK_SET); - while ($buffer = fread($fp_source, $this->fread_buffer_size)) { - fwrite($fp_temp, $buffer, strlen($buffer)); - } - fclose($fp_temp); - - if (copy($tempfilename, $this->filename)) { - unlink($tempfilename); - fclose($fp_source); - return true; - } - unlink($tempfilename); - $this->errors[] = 'FAILED: copy('.$tempfilename.', '.$this->filename.')'; - - } else { - $this->errors[] = 'Could not fopen("'.$tempfilename.'", "wb")'; - } - } - fclose($fp_source); - return false; - - } - - } - $this->errors[] = 'Could not fopen("'.$this->filename.'", "r+b")'; - return false; - } - - public function GenerateRMFchunk(&$chunks) { - $oldCONTexists = false; - foreach ($chunks as $key => $chunk) { - $chunkNameKeys[$chunk['name']] = $key; - if ($chunk['name'] == 'CONT') { - $oldCONTexists = true; - } - } - $newHeadersCount = $chunks[$chunkNameKeys['.RMF']]['headers_count'] + ($oldCONTexists ? 0 : 1); - - $RMFchunk = "\x00\x00"; // object version - $RMFchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['.RMF']]['file_version'], 4); - $RMFchunk .= getid3_lib::BigEndian2String($newHeadersCount, 4); - - $RMFchunk = '.RMF'.getid3_lib::BigEndian2String(strlen($RMFchunk) + 8, 4).$RMFchunk; // .RMF chunk identifier + chunk length - return $RMFchunk; - } - - public function GeneratePROPchunk(&$chunks, &$new_CONT_tag_data) { - $old_CONT_length = 0; - $old_DATA_offset = 0; - $old_INDX_offset = 0; - foreach ($chunks as $key => $chunk) { - $chunkNameKeys[$chunk['name']] = $key; - if ($chunk['name'] == 'CONT') { - $old_CONT_length = $chunk['length']; - } elseif ($chunk['name'] == 'DATA') { - if (!$old_DATA_offset) { - $old_DATA_offset = $chunk['offset']; - } - } elseif ($chunk['name'] == 'INDX') { - if (!$old_INDX_offset) { - $old_INDX_offset = $chunk['offset']; - } - } - } - $CONTdelta = strlen($new_CONT_tag_data) - $old_CONT_length; - - $PROPchunk = "\x00\x00"; // object version - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['max_bit_rate'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['avg_bit_rate'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['max_packet_size'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['avg_packet_size'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['num_packets'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['duration'], 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['preroll'], 4); - $PROPchunk .= getid3_lib::BigEndian2String(max(0, $old_INDX_offset + $CONTdelta), 4); - $PROPchunk .= getid3_lib::BigEndian2String(max(0, $old_DATA_offset + $CONTdelta), 4); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['num_streams'], 2); - $PROPchunk .= getid3_lib::BigEndian2String($chunks[$chunkNameKeys['PROP']]['flags_raw'], 2); - - $PROPchunk = 'PROP'.getid3_lib::BigEndian2String(strlen($PROPchunk) + 8, 4).$PROPchunk; // PROP chunk identifier + chunk length - return $PROPchunk; - } - - public function GenerateCONTchunk() { - foreach ($this->tag_data as $key => $value) { - // limit each value to 0xFFFF bytes - $this->tag_data[$key] = substr($value, 0, 65535); - } - - $CONTchunk = "\x00\x00"; // object version - - $CONTchunk .= getid3_lib::BigEndian2String((!empty($this->tag_data['title']) ? strlen($this->tag_data['title']) : 0), 2); - $CONTchunk .= (!empty($this->tag_data['title']) ? strlen($this->tag_data['title']) : ''); - - $CONTchunk .= getid3_lib::BigEndian2String((!empty($this->tag_data['artist']) ? strlen($this->tag_data['artist']) : 0), 2); - $CONTchunk .= (!empty($this->tag_data['artist']) ? strlen($this->tag_data['artist']) : ''); - - $CONTchunk .= getid3_lib::BigEndian2String((!empty($this->tag_data['copyright']) ? strlen($this->tag_data['copyright']) : 0), 2); - $CONTchunk .= (!empty($this->tag_data['copyright']) ? strlen($this->tag_data['copyright']) : ''); - - $CONTchunk .= getid3_lib::BigEndian2String((!empty($this->tag_data['comment']) ? strlen($this->tag_data['comment']) : 0), 2); - $CONTchunk .= (!empty($this->tag_data['comment']) ? strlen($this->tag_data['comment']) : ''); - - if ($this->paddedlength > (strlen($CONTchunk) + 8)) { - $CONTchunk .= str_repeat("\x00", $this->paddedlength - strlen($CONTchunk) - 8); - } - - $CONTchunk = 'CONT'.getid3_lib::BigEndian2String(strlen($CONTchunk) + 8, 4).$CONTchunk; // CONT chunk identifier + chunk length - - return $CONTchunk; - } - - public function RemoveReal() { - // File MUST be writeable - CHMOD(646) at least - if (is_writeable($this->filename) && is_file($this->filename) && ($fp_source = fopen($this->filename, 'r+b'))) { - - // Initialize getID3 engine - $getID3 = new getID3; - $OldThisFileInfo = $getID3->analyze($this->filename); - if (empty($OldThisFileInfo['real']['chunks']) && !empty($OldThisFileInfo['real']['old_ra_header'])) { - $this->errors[] = 'Cannot remove Real tags from old-style file format'; - fclose($fp_source); - return false; - } - - if (empty($OldThisFileInfo['real']['chunks'])) { - $this->errors[] = 'Cannot remove Real tags because cannot find DATA chunk in file'; - fclose($fp_source); - return false; - } - foreach ($OldThisFileInfo['real']['chunks'] as $chunknumber => $chunkarray) { - $oldChunkInfo[$chunkarray['name']] = $chunkarray; - } - - if (empty($oldChunkInfo['CONT'])) { - // no existing CONT chunk - fclose($fp_source); - return true; - } - - $BeforeOffset = $oldChunkInfo['CONT']['offset']; - $AfterOffset = $oldChunkInfo['CONT']['offset'] + $oldChunkInfo['CONT']['length']; - if ($tempfilename = tempnam(GETID3_TEMP_DIR, 'getID3')) { - if (is_writable($tempfilename) && is_file($tempfilename) && ($fp_temp = fopen($tempfilename, 'wb'))) { - - rewind($fp_source); - fwrite($fp_temp, fread($fp_source, $BeforeOffset)); - fseek($fp_source, $AfterOffset, SEEK_SET); - while ($buffer = fread($fp_source, $this->fread_buffer_size)) { - fwrite($fp_temp, $buffer, strlen($buffer)); - } - fclose($fp_temp); - - if (copy($tempfilename, $this->filename)) { - unlink($tempfilename); - fclose($fp_source); - return true; - } - unlink($tempfilename); - $this->errors[] = 'FAILED: copy('.$tempfilename.', '.$this->filename.')'; - - } else { - $this->errors[] = 'Could not fopen("'.$tempfilename.'", "wb")'; - } - } - fclose($fp_source); - return false; - } - $this->errors[] = 'Could not fopen("'.$this->filename.'", "r+b")'; - return false; - } - -} diff --git a/web/htdocs/media/lib/getid3/write.vorbiscomment.php b/web/htdocs/media/lib/getid3/write.vorbiscomment.php deleted file mode 100644 index 30b51ffb8fc..00000000000 --- a/web/htdocs/media/lib/getid3/write.vorbiscomment.php +++ /dev/null @@ -1,119 +0,0 @@ - // -// available at http://getid3.sourceforge.net // -// or http://www.getid3.org // -///////////////////////////////////////////////////////////////// -// See readme.txt for more details // -///////////////////////////////////////////////////////////////// -// // -// write.vorbiscomment.php // -// module for writing VorbisComment tags // -// dependencies: /helperapps/vorbiscomment.exe // -// /// -///////////////////////////////////////////////////////////////// - - -class getid3_write_vorbiscomment -{ - - public $filename; - public $tag_data; - public $warnings = array(); // any non-critical errors will be stored here - public $errors = array(); // any critical errors will be stored here - - public function getid3_write_vorbiscomment() { - return true; - } - - public function WriteVorbisComment() { - - if (preg_match('#(1|ON)#i', ini_get('safe_mode'))) { - $this->errors[] = 'PHP running in Safe Mode (backtick operator not available) - cannot call vorbiscomment, tags not written'; - return false; - } - - // Create file with new comments - $tempcommentsfilename = tempnam(GETID3_TEMP_DIR, 'getID3'); - if (is_writable($tempcommentsfilename) && is_file($tempcommentsfilename) && ($fpcomments = fopen($tempcommentsfilename, 'wb'))) { - - foreach ($this->tag_data as $key => $value) { - foreach ($value as $commentdata) { - fwrite($fpcomments, $this->CleanVorbisCommentName($key).'='.$commentdata."\n"); - } - } - fclose($fpcomments); - - } else { - $this->errors[] = 'failed to open temporary tags file "'.$tempcommentsfilename.'", tags not written'; - return false; - } - - $oldignoreuserabort = ignore_user_abort(true); - if (GETID3_OS_ISWINDOWS) { - - if (file_exists(GETID3_HELPERAPPSDIR.'vorbiscomment.exe')) { - //$commandline = '"'.GETID3_HELPERAPPSDIR.'vorbiscomment.exe" -w --raw -c "'.$tempcommentsfilename.'" "'.str_replace('/', '\\', $this->filename).'"'; - // vorbiscomment works fine if you copy-paste the above commandline into a command prompt, - // but refuses to work with `backtick` if there are "doublequotes" present around BOTH - // the metaflac pathname and the target filename. For whatever reason...?? - // The solution is simply ensure that the metaflac pathname has no spaces, - // and therefore does not need to be quoted - - // On top of that, if error messages are not always captured properly under Windows - // To at least see if there was a problem, compare file modification timestamps before and after writing - clearstatcache(); - $timestampbeforewriting = filemtime($this->filename); - - $commandline = GETID3_HELPERAPPSDIR.'vorbiscomment.exe -w --raw -c "'.$tempcommentsfilename.'" "'.$this->filename.'" 2>&1'; - $VorbiscommentError = `$commandline`; - - if (empty($VorbiscommentError)) { - clearstatcache(); - if ($timestampbeforewriting == filemtime($this->filename)) { - $VorbiscommentError = 'File modification timestamp has not changed - it looks like the tags were not written'; - } - } - } else { - $VorbiscommentError = 'vorbiscomment.exe not found in '.GETID3_HELPERAPPSDIR; - } - - } else { - - $commandline = 'vorbiscomment -w --raw -c "'.$tempcommentsfilename.'" "'.$this->filename.'" 2>&1'; - $VorbiscommentError = `$commandline`; - - } - - // Remove temporary comments file - unlink($tempcommentsfilename); - ignore_user_abort($oldignoreuserabort); - - if (!empty($VorbiscommentError)) { - - $this->errors[] = 'system call to vorbiscomment failed with message: '."\n\n".$VorbiscommentError; - return false; - - } - - return true; - } - - public function DeleteVorbisComment() { - $this->tag_data = array(array()); - return $this->WriteVorbisComment(); - } - - public function CleanVorbisCommentName($originalcommentname) { - // A case-insensitive field name that may consist of ASCII 0x20 through 0x7D, 0x3D ('=') excluded. - // ASCII 0x41 through 0x5A inclusive (A-Z) is to be considered equivalent to ASCII 0x61 through - // 0x7A inclusive (a-z). - - // replace invalid chars with a space, return uppercase text - // Thanks Chris Bolt for improving this function - // note: *reg_replace() replaces nulls with empty string (not space) - return strtoupper(preg_replace('#[^ -<>-}]#', ' ', str_replace("\x00", ' ', $originalcommentname))); - - } - -} diff --git a/web/htdocs/media/playlists/example.php b/web/htdocs/media/playlists/example.php deleted file mode 100644 index 8ad348717b9..00000000000 --- a/web/htdocs/media/playlists/example.php +++ /dev/null @@ -1,18 +0,0 @@ -array(), - 'subfolder/file2.mp3'=>array( - 'title'=>'Just a Friend', - 'artist'=>'Biz Markie' - ) -); - -// Dynamic Playlist -// Loads files from files/subfolder. -$playlist=loadFilesIn('subfolder'); - - -// Adjust playlist entry's tags. -$playlist['file1.mp3']=array('artist'=>'Kingston','title'=>'SS13 sucks','album'=>'Fuck You'); From 7d2983b4bf2138ae88d68a2de4a59d878cd82093 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sun, 14 Aug 2016 18:12:23 -0700 Subject: [PATCH 21/92] Makes IPC surgery much more reliable, object insertion surgery works better now, and `can_use` is actually called now. --- code/_onclick/item_attack.dm | 10 +- .../gamemodes/changeling/powers/revive.dm | 1 - code/modules/mob/living/carbon/brain/MMI.dm | 24 +- .../mob/living/carbon/brain/brain_item.dm | 6 +- .../mob/living/carbon/carbon_defenses.dm | 7 + code/modules/mob/living/carbon/human/death.dm | 8 +- .../living/carbon/human/human_attackhand.dm | 11 +- code/modules/mob/living/carbon/human/life.dm | 3 +- code/modules/surgery/bones.dm | 46 ++- code/modules/surgery/encased.dm | 5 +- code/modules/surgery/face.dm | 35 +-- code/modules/surgery/generic.dm | 15 +- code/modules/surgery/helpers.dm | 31 +- code/modules/surgery/implant.dm | 110 ++++--- code/modules/surgery/limb_reattach.dm | 143 ++++++--- code/modules/surgery/organs/augments_eyes.dm | 6 +- .../surgery/organs/augments_internal.dm | 2 +- code/modules/surgery/organs/body_egg.dm | 4 +- code/modules/surgery/organs/organ.dm | 1 + code/modules/surgery/organs/organ_external.dm | 63 ++-- code/modules/surgery/organs/organ_icon.dm | 2 +- code/modules/surgery/organs/organ_internal.dm | 32 +- code/modules/surgery/organs/organ_stump.dm | 2 +- code/modules/surgery/organs/parasites.dm | 3 +- code/modules/surgery/organs/subtypes/grey.dm | 2 +- .../surgery/organs/subtypes/machine.dm | 47 +-- code/modules/surgery/organs/subtypes/misc.dm | 1 + .../surgery/organs/subtypes/standard.dm | 6 +- code/modules/surgery/organs/subtypes/xenos.dm | 8 +- code/modules/surgery/organs_internal.dm | 23 +- code/modules/surgery/other.dm | 81 +++-- code/modules/surgery/robotics.dm | 279 +++++++----------- code/modules/surgery/surgery.dm | 8 +- 33 files changed, 564 insertions(+), 461 deletions(-) diff --git a/code/_onclick/item_attack.dm b/code/_onclick/item_attack.dm index 3516c02a2ae..1fa83b66513 100644 --- a/code/_onclick/item_attack.dm +++ b/code/_onclick/item_attack.dm @@ -33,11 +33,19 @@ var/messagesource = M if(can_operate(M)) //Checks if mob is lying down on table for surgery - if(istype(src,/obj/item/robot_parts))//popup ovveride for direct attach + if(istype(src,/obj/item/robot_parts))//popup override for direct attach if(!attempt_initiate_surgery(src, M, user,1)) return 0 else return 1 + if(istype(src,/obj/item/organ/external)) + var/obj/item/organ/external/E = src + if(E.robotic == 2) // Robot limbs are less messy to attach + if(!attempt_initiate_surgery(src, M, user,1)) + return 0 + else + return 1 + if(istype(src,/obj/item/weapon/screwdriver) && M.get_species() == "Machine") if(!attempt_initiate_surgery(src, M, user)) return 0 diff --git a/code/game/gamemodes/changeling/powers/revive.dm b/code/game/gamemodes/changeling/powers/revive.dm index 1bb19749ac1..b6692817650 100644 --- a/code/game/gamemodes/changeling/powers/revive.dm +++ b/code/game/gamemodes/changeling/powers/revive.dm @@ -51,7 +51,6 @@ O.number_wounds = 0 O.open = 0 O.perma_injury = 0 - O.stage = 0 O.status = 0 O.trace_chemicals = list() O.wounds = list() diff --git a/code/modules/mob/living/carbon/brain/MMI.dm b/code/modules/mob/living/carbon/brain/MMI.dm index ec0791d9e09..545be2f8613 100644 --- a/code/modules/mob/living/carbon/brain/MMI.dm +++ b/code/modules/mob/living/carbon/brain/MMI.dm @@ -178,4 +178,26 @@ /obj/item/device/mmi/syndie name = "Syndicate Man-Machine Interface" desc = "Syndicate's own brand of MMI. It enforces laws designed to help Syndicate agents achieve their goals upon cyborgs created with it, but doesn't fit in Nanotrasen AI cores." - syndiemmi = 1 \ No newline at end of file + syndiemmi = 1 + +/obj/item/device/mmi/attempt_become_organ(obj/item/organ/external/parent,mob/living/carbon/human/H) + if(!brainmob) + return 0 + if(!parent) + log_debug("Attempting to insert into a null parent!") + return 0 + if(H.get_int_organ(/obj/item/organ/internal/brain)) + // one brain at a time + return 0 + var/obj/item/organ/internal/brain/mmi_holder/holder = new() + holder.parent_organ = parent.limb_name + forceMove(holder) + holder.stored_mmi = src + holder.update_from_mmi() + if(istype(src, /obj/item/device/mmi/posibrain)) + holder.robotize() + if(brainmob && brainmob.mind) + brainmob.mind.transfer_to(H) + holder.insert(H) + + return 1 diff --git a/code/modules/mob/living/carbon/brain/brain_item.dm b/code/modules/mob/living/carbon/brain/brain_item.dm index dd2e81ed35b..26d25238197 100644 --- a/code/modules/mob/living/carbon/brain/brain_item.dm +++ b/code/modules/mob/living/carbon/brain/brain_item.dm @@ -79,7 +79,7 @@ if(istype(owner,/mob/living/carbon/human)) var/mob/living/carbon/human/H = owner H.update_hair(1) - ..() + . = ..() /obj/item/organ/internal/brain/insert(var/mob/living/target,special = 0) @@ -100,7 +100,9 @@ brainmob.mind.transfer_to(target) else target.key = brainmob.key - ..(target, special = special, dont_remove_slot = brain_already_exists) + else + log_debug("Multibrain shenanigans at ([target.x],[target.y],[target.z]), mob '[target]'") + ..(target, special = special) /obj/item/organ/internal/brain/prepare_eat() return // Too important to eat. diff --git a/code/modules/mob/living/carbon/carbon_defenses.dm b/code/modules/mob/living/carbon/carbon_defenses.dm index efebc58ffc1..69f882379ed 100644 --- a/code/modules/mob/living/carbon/carbon_defenses.dm +++ b/code/modules/mob/living/carbon/carbon_defenses.dm @@ -36,4 +36,11 @@ for(var/datum/disease/D in user.viruses) if(D.IsSpreadByTouch()) ContractDisease(D) + + if(lying) + if(surgeries.len) + if(user != src && user.a_intent == "help") + for(var/datum/surgery/S in surgeries) + if(S.next_step(user, src)) + return 1 return 0 diff --git a/code/modules/mob/living/carbon/human/death.dm b/code/modules/mob/living/carbon/human/death.dm index d3606b12b8a..e4427f6d74a 100644 --- a/code/modules/mob/living/carbon/human/death.dm +++ b/code/modules/mob/living/carbon/human/death.dm @@ -12,13 +12,15 @@ animation.master = src playsound(src.loc, 'sound/goonstation/effects/gib.ogg', 50, 1) + else + playsound(src.loc, 'sound/goonstation/effects/robogib.ogg', 50, 1) for(var/obj/item/organ/internal/I in internal_organs) if(isturf(loc)) - I.remove(src) - I.forceMove(get_turf(src)) + var/atom/movable/thing = I.remove(src) + thing.forceMove(get_turf(src)) spawn() - I.throw_at(get_edge_target_turf(src,pick(alldirs)),rand(1,3),5) + thing.throw_at(get_edge_target_turf(src,pick(alldirs)),rand(1,3),5) for(var/obj/item/organ/external/E in src.organs) if(istype(E, /obj/item/organ/external/chest)) diff --git a/code/modules/mob/living/carbon/human/human_attackhand.dm b/code/modules/mob/living/carbon/human/human_attackhand.dm index 2ca74f02c86..e382768722f 100644 --- a/code/modules/mob/living/carbon/human/human_attackhand.dm +++ b/code/modules/mob/living/carbon/human/human_attackhand.dm @@ -13,7 +13,7 @@ if(H.hand) temp = H.organs_by_name["l_hand"] if(!temp || !temp.is_usable()) - to_chat(H, "\red You can't use your hand.") + to_chat(H, "You can't use your hand.") return ..() @@ -62,10 +62,9 @@ for(var/datum/surgery/S in src.surgeries) if(S.next_step(M, src)) return 1 - else - help_shake_act(M) - add_logs(src, M, "shaked") - return 1 + help_shake_act(M) + add_logs(src, M, "shaked") + return 1 if(health >= config.health_threshold_crit) help_shake_act(M) add_logs(src, M, "shaked") @@ -231,4 +230,4 @@ return /mob/living/carbon/human/proc/afterattack(atom/target as mob|obj|turf|area, mob/living/user as mob|obj, inrange, params) - return \ No newline at end of file + return diff --git a/code/modules/mob/living/carbon/human/life.dm b/code/modules/mob/living/carbon/human/life.dm index d557fb65fed..6e74c90f08c 100644 --- a/code/modules/mob/living/carbon/human/life.dm +++ b/code/modules/mob/living/carbon/human/life.dm @@ -1113,7 +1113,8 @@ return if(H.species && H.species.flags & NO_BREATHE) return //no puking if you can't smell! - if(H.mind.assigned_role == "Detective") + // Humans can lack a mind datum, y'know + if(H.mind && H.mind.assigned_role == "Detective") return //too cool for puke to_chat(H, "You smell something foul...") H.fakevomit() diff --git a/code/modules/surgery/bones.dm b/code/modules/surgery/bones.dm index a32186f2827..fc7f631c10e 100644 --- a/code/modules/surgery/bones.dm +++ b/code/modules/surgery/bones.dm @@ -4,12 +4,12 @@ ////////////////////////////////////////////////////////////////// ///Surgery Datums /datum/surgery/bone_repair - name = "bone repair" + name = "Bone Repair" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/glue_bone, /datum/surgery_step/set_bone, /datum/surgery_step/finish_bone, /datum/surgery_step/generic/cauterize) possible_locs = list("chest", "l_arm", "l_hand", "r_arm", "r_hand","r_leg", "r_foot", "l_leg", "l_foot", "groin") /datum/surgery/bone_repair/skull - name = "bone repair" + name = "Skull Repair" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/glue_bone, /datum/surgery_step/mend_skull, /datum/surgery_step/finish_bone, /datum/surgery_step/generic/cauterize) possible_locs = list("head") @@ -17,14 +17,14 @@ if(istype(target,/mob/living/carbon/human)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) - if(affected && (affected.status & ORGAN_ROBOT)) + if(!affected) return 0 - if(affected && (affected.status & ORGAN_BROKEN)) + if(affected.status & ORGAN_ROBOT) + return 0 + if(affected.cannot_break) + return 0 + if(affected.status & ORGAN_BROKEN) return 1 - if(target.get_species() == "Machine") - return 0 - if(target.get_species() == "Diona") - return 0 return 1 @@ -43,13 +43,12 @@ /datum/surgery_step/glue_bone/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && !(affected.status & ORGAN_ROBOT) && !(affected.cannot_break) && affected.open == 2 && affected.stage == 0 + return affected && !(affected.status & ORGAN_ROBOT) && !(affected.cannot_break) /datum/surgery_step/glue_bone/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - if(affected.stage == 0) - user.visible_message("[user] starts applying medication to the damaged bones in [target]'s [affected.name] with \the [tool]." , \ - "You start applying medication to the damaged bones in [target]'s [affected.name] with \the [tool].") + user.visible_message("[user] starts applying medication to the damaged bones in [target]'s [affected.name] with \the [tool]." , \ + "You start applying medication to the damaged bones in [target]'s [affected.name] with \the [tool].") target.custom_pain("Something in your [affected.name] is causing you a lot of pain!",1) ..() @@ -57,7 +56,6 @@ var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message(" [user] applies some [tool] to [target]'s bone in [affected.name]", \ " You apply some [tool] to [target]'s bone in [affected.name] with \the [tool].") - affected.stage = 1 return 1 @@ -79,7 +77,7 @@ /datum/surgery_step/set_bone/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && !(affected.status & ORGAN_ROBOT) && affected.limb_name != "head" && affected.open == 2 && affected.stage == 1 + return affected && !(affected.status & ORGAN_ROBOT) /datum/surgery_step/set_bone/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) @@ -93,7 +91,6 @@ if(affected.status & ORGAN_BROKEN) user.visible_message(" [user] sets the bone in [target]'s [affected.name] in place with \the [tool].", \ " You set the bone in [target]'s [affected.name] in place with \the [tool].") - affected.stage = 2 return 1 else user.visible_message(" [user] sets the bone in [target]'s [affected.name] in place with \the [tool].", \ @@ -119,7 +116,7 @@ /datum/surgery_step/mend_skull/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && !(affected.status & ORGAN_ROBOT) && affected.limb_name == "head" && affected.open == 2 && affected.stage == 1 + return affected && !(affected.status & ORGAN_ROBOT) && affected.limb_name == "head" /datum/surgery_step/mend_skull/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) user.visible_message("[user] is beginning piece together [target]'s skull with \the [tool]." , \ @@ -128,16 +125,15 @@ /datum/surgery_step/mend_skull/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user] sets [target]'s skull with \the [tool]." , \ - " You set [target]'s skull with \the [tool].") - affected.stage = 2 + user.visible_message(" [user] sets [target]'s [affected.encased] with \the [tool]." , \ + " You set [target]'s [affected.encased] with \the [tool].") return 1 /datum/surgery_step/mend_skull/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user]'s hand slips, damaging [target]'s face with \the [tool]!" , \ - " Your hand slips, damaging [target]'s face with \the [tool]!") + user.visible_message("[user]'s hand slips, damaging [target]'s face with \the [tool]!" , \ + "Your hand slips, damaging [target]'s face with \the [tool]!") var/obj/item/organ/external/head/h = affected h.createwound(BRUISE, 10) h.disfigured = 1 @@ -157,7 +153,7 @@ /datum/surgery_step/finish_bone/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && !(affected.status & ORGAN_ROBOT) && affected.open == 2 && affected.stage == 2 + return affected && !(affected.status & ORGAN_ROBOT) /datum/surgery_step/finish_bone/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/affected = target.get_organ(target_zone) @@ -165,14 +161,14 @@ "You start to finish mending the damaged bones in [target]'s [affected.name] with \the [tool].") ..() -/datum/surgery_step/finish_bone/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) +/datum/surgery_step/finish_bone/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message(" [user] has mended the damaged bones in [target]'s [affected.name] with \the [tool]." , \ " You have mended the damaged bones in [target]'s [affected.name] with \the [tool]." ) affected.status &= ~ORGAN_BROKEN affected.status &= ~ORGAN_SPLINTED - affected.stage = 0 affected.perma_injury = 0 + surgery.can_cancel = 1 return 1 @@ -180,4 +176,4 @@ var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message(" [user]'s hand slips, smearing [tool] in the incision in [target]'s [affected.name]!" , \ " Your hand slips, smearing [tool] in the incision in [target]'s [affected.name]!") - return 0 \ No newline at end of file + return 0 diff --git a/code/modules/surgery/encased.dm b/code/modules/surgery/encased.dm index 90460f34c21..a1ea245d138 100644 --- a/code/modules/surgery/encased.dm +++ b/code/modules/surgery/encased.dm @@ -52,6 +52,8 @@ user.visible_message(" [user] has cut [target]'s [affected.encased] open with \the [tool].", \ " You have cut [target]'s [affected.encased] open with \the [tool].") affected.open = 2.5 + // crossin' the rubicon + surgery.can_cancel = 0 return 1 /datum/surgery_step/open_encased/saw/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -223,5 +225,6 @@ user.visible_message(msg, self_msg) affected.open = 2 + surgery.can_cancel = 1 - return 1 \ No newline at end of file + return 1 diff --git a/code/modules/surgery/face.dm b/code/modules/surgery/face.dm index 6e947511dd6..406c1f83083 100644 --- a/code/modules/surgery/face.dm +++ b/code/modules/surgery/face.dm @@ -3,7 +3,7 @@ // FACE SURGERY // ////////////////////////////////////////////////////////////////// /datum/surgery/plastic_surgery - name = "face repair" + name = "Face Repair" steps = list(/datum/surgery_step/generic/cut_face, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/face/mend_vocal, /datum/surgery_step/face/fix_face,/datum/surgery_step/face/cauterize) possible_locs = list("head") @@ -13,9 +13,11 @@ if(istype(target,/mob/living/carbon/human)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) - if(affected && (affected.status & ORGAN_ROBOT)) + if(!affected) return 0 - if((target.get_species() == "Machine")) + if(affected.status & ORGAN_ROBOT) + return 0 + if(!affected.disfigured) return 0 return 1 @@ -23,14 +25,6 @@ priority = 2 can_infect = 0 -/datum/surgery_step/face/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(!hasorgans(target)) - return 0 - var/obj/item/organ/external/affected = target.get_organ(target_zone) - if(!affected || (affected.status & ORGAN_ROBOT)) - return 0 - return target_zone == "mouth" - /datum/surgery_step/generic/cut_face name = "make incision" allowed_tools = list( @@ -45,9 +39,6 @@ time = 16 -/datum/surgery_step/generic/cut_face/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - return ..() && target_zone == "mouth" //&& target.op_stage.face == 0//I NEED TO REPLACE THE OPSTAGE SHIT! - /datum/surgery_step/generic/cut_face/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message("[user] starts to cut open [target]'s face and neck with \the [tool].", \ "You start to cut open [target]'s face and neck with \the [tool].") @@ -56,7 +47,6 @@ /datum/surgery_step/generic/cut_face/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message(" [user] has cut open [target]'s face and neck with \the [tool]." , \ " You have cut open [target]'s face and neck with \the [tool].",) - //target.op_stage.face = 1//DID I MENTION I NEED TO REPLACE THE OPSTAGE SHIT! return 1 @@ -80,9 +70,6 @@ time = 24 -/datum/surgery_step/face/mend_vocal/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - return ..()// && target.op_stage.face == 1 //NO REALLY NED TO REPLACE, MAYBE WITH FUCKING istype(S.get_surgery_step(), /datum/surgery_step/cut_face)) OR SOMETHING - /datum/surgery_step/face/mend_vocal/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message("[user] starts mending [target]'s vocal cords with \the [tool].", \ "You start mending [target]'s vocal cords with \the [tool].") @@ -91,7 +78,6 @@ /datum/surgery_step/face/mend_vocal/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message(" [user] mends [target]'s vocal cords with \the [tool].", \ " You mend [target]'s vocal cords with \the [tool].") - //target.op_stage.face = 2//I NEED TO REPLACE THE OPSTAGE SHIT! return 1 /datum/surgery_step/face/mend_vocal/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -110,9 +96,6 @@ time = 64 -/datum/surgery_step/face/fix_face/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - return ..() //&& target.op_stage.face == 2//I NEED TO REPLACE THE OPSTAGE SHIT! - /datum/surgery_step/face/fix_face/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message("[user] starts pulling skin on [target]'s face back in place with \the [tool].", \ "You start pulling skin on [target]'s face back in place with \the [tool].") @@ -121,7 +104,6 @@ /datum/surgery_step/face/fix_face/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message(" [user] pulls skin on [target]'s face back in place with \the [tool].", \ " You pull skin on [target]'s face back in place with \the [tool].") - //target.op_stage.face = 3//I NEED TO REPLACE THE OPSTAGE SHIT! return 1 /datum/surgery_step/face/fix_face/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -145,9 +127,6 @@ time = 24 -/datum/surgery_step/face/cauterize/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - return ..()// && target.op_stage.face > 0//I NEED TO REPLACE THE OPSTAGE SHIT! - /datum/surgery_step/face/cauterize/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message("[user] is beginning to cauterize the incision on [target]'s face and neck with \the [tool]." , \ "You are beginning to cauterize the incision on [target]'s face and neck with \the [tool].") @@ -159,12 +138,10 @@ " You cauterize the incision on [target]'s face and neck with \the [tool].") affected.open = 0 affected.status &= ~ORGAN_BLEEDING - //if(target.op_stage.face == 3)//I NEED TO REPLACE THE OPSTAGE SHIT! var/obj/item/organ/external/head/h = affected h.disfigured = 0 h.update_icon() target.regenerate_icons() - //target.op_stage.face = 0//I NEED TO REPLACE THE OPSTAGE SHIT! return 1 @@ -174,4 +151,4 @@ " Your hand slips, leaving a small burn on [target]'s face with \the [tool]!") target.apply_damage(4, BURN, affected) - return 0 \ No newline at end of file + return 0 diff --git a/code/modules/surgery/generic.dm b/code/modules/surgery/generic.dm index d02787eb3b5..1441cb83e8b 100644 --- a/code/modules/surgery/generic.dm +++ b/code/modules/surgery/generic.dm @@ -83,11 +83,6 @@ time = 24 -/datum/surgery_step/generic/clamp_bleeders/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return ..() && affected.open && (affected.status & ORGAN_BLEEDING) - - /datum/surgery_step/generic/clamp_bleeders/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message("[user] starts clamping bleeders in [target]'s [affected.name] with \the [tool].", \ @@ -122,10 +117,6 @@ time = 24 -/datum/surgery_step/generic/retract_skin/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return ..() && affected.open == 1 && !(affected.status & ORGAN_BLEEDING) - /datum/surgery_step/generic/retract_skin/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) var/msg = "[user] starts to pry open the incision on [target]'s [affected.name] with \the [tool]." @@ -264,7 +255,9 @@ add_logs(target,user ,"surgically removed [affected.name] from", addition="INTENT: [uppertext(user.a_intent)]")//log it - affected.droplimb(1,DROPLIMB_EDGE) + var/atom/movable/thing = affected.droplimb(1,DROPLIMB_EDGE) + if(istype(thing,/obj/item)) + user.put_in_hands(thing) return 1 /datum/surgery_step/generic/amputate/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -273,4 +266,4 @@ " Your hand slips, sawwing through the bone in [target]'s [affected.name] with \the [tool]!") affected.createwound(CUT, 30) affected.fracture() - return 0 \ No newline at end of file + return 0 diff --git a/code/modules/surgery/helpers.dm b/code/modules/surgery/helpers.dm index a21a7422696..1991ce8ec21 100644 --- a/code/modules/surgery/helpers.dm +++ b/code/modules/surgery/helpers.dm @@ -28,19 +28,26 @@ for(var/path in S.allowed_mob) if(istype(M, path)) + // If there are multiple surgeries with the same name, + // prepare to cry available_surgeries[S.name] = S break if(override) + var/datum/surgery/S if(istype(I,/obj/item/robot_parts)) - var/datum/surgery/S = available_surgeries["robotic limb attachment"] - if(S) - var/datum/surgery/procedure = new S.type - if(procedure) - procedure.location = selected_zone - M.surgeries += procedure - procedure.organ_ref = affecting - procedure.next_step(user, M) + S = available_surgeries["Apply Robotic Prosthetic"] + if(istype(I,/obj/item/organ/external)) + var/obj/item/organ/external/E = I + if(E.robotic == 2) + S = available_surgeries["Synthetic Limb Reattachment"] + if(S) + var/datum/surgery/procedure = new S.type + if(procedure) + procedure.location = selected_zone + M.surgeries += procedure + procedure.organ_ref = affecting + procedure.next_step(user, M) else var/P = input("Begin which procedure?", "Surgery", null, null) as null|anything in available_surgeries @@ -77,7 +84,7 @@ -proc/get_location_modifier(mob/M) +/proc/get_location_modifier(mob/M) var/turf/T = get_turf(M) if(locate(/obj/machinery/optable, T)) return 1 @@ -86,4 +93,8 @@ proc/get_location_modifier(mob/M) else if(locate(/obj/structure/stool/bed, T)) return 0.7 else - return 0.5 \ No newline at end of file + return 0.5 + +// Called when a limb containing this object is placed back on a body +/atom/movable/proc/attempt_become_organ(obj/item/organ/external/parent,mob/living/carbon/human/H) + return 0 diff --git a/code/modules/surgery/implant.dm b/code/modules/surgery/implant.dm index 1aec72f1d63..a3b7ec2d908 100644 --- a/code/modules/surgery/implant.dm +++ b/code/modules/surgery/implant.dm @@ -6,41 +6,45 @@ ////////////////////////////////////////////////////////////////// /datum/surgery/cavity_implant - name = "cavity implant/removal" + name = "Cavity Implant/Removal" steps = list(/datum/surgery_step/generic/cut_open,/datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/open_encased/saw, /datum/surgery_step/open_encased/retract, /datum/surgery_step/cavity/make_space,/datum/surgery_step/cavity/place_item,/datum/surgery_step/cavity/close_space,/datum/surgery_step/open_encased/close,/datum/surgery_step/glue_bone, /datum/surgery_step/set_bone,/datum/surgery_step/finish_bone,/datum/surgery_step/generic/cauterize) - + can_cancel = 0 possible_locs = list("chest","head") /datum/surgery/cavity_implant/soft - name = "cavity implant/removal" + name = "Cavity Implant/Removal" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/generic/cut_open, /datum/surgery_step/cavity/make_space,/datum/surgery_step/cavity/place_item,/datum/surgery_step/cavity/close_space,/datum/surgery_step/generic/cauterize) possible_locs = list("groin") /datum/surgery/cavity_implant/synth - name = "robotic cavity implant" + name = "Robotic Cavity Implant/Removal" steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/cavity/place_item,/datum/surgery_step/robotics/external/close_hatch) possible_locs = list("chest","head","groin") -/datum/surgery/cavity_implant/can_start(mob/user, mob/living/carbon/target) - if(target.get_species() == "Machine") +/datum/surgery/cavity_implant/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(affected.status & ORGAN_ROBOT) return 0 return 1 -/datum/surgery/cavity_implant/synth/can_start(mob/user, mob/living/carbon/target) - return target.get_species() == "Machine" +/datum/surgery/cavity_implant/synth/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + return (affected.status & ORGAN_ROBOT) /datum/surgery_step/cavity priority = 1 -/datum/surgery_step/cavity/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(!hasorgans(target)) - return 0 - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && affected.open == (affected.encased ? 3 : 2) && !(affected.status & ORGAN_BLEEDING) - /datum/surgery_step/cavity/proc/get_max_wclass(obj/item/organ/external/affected) switch(affected.limb_name) if("head") @@ -77,16 +81,11 @@ time = 54 -/datum/surgery_step/cavity/make_space/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return ..() && !affected.cavity && !affected.hidden - /datum/surgery_step/cavity/make_space/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message("[user] starts making some space inside [target]'s [get_cavity(affected)] cavity with \the [tool].", \ "You start making some space inside [target]'s [get_cavity(affected)] cavity with \the [tool]." ) target.custom_pain("The pain in your chest is living hell!",1) - affected.cavity = 1 ..() /datum/surgery_step/cavity/make_space/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -111,16 +110,11 @@ time = 24 -/datum/surgery_step/cavity/close_space/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return ..() && affected.cavity - /datum/surgery_step/cavity/close_space/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message("[user] starts mending [target]'s [get_cavity(affected)] cavity wall with \the [tool].", \ "You start mending [target]'s [get_cavity(affected)] cavity wall with \the [tool]." ) target.custom_pain("The pain in your chest is living hell!",1) - affected.cavity = 0 ..() /datum/surgery_step/cavity/close_space/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -145,17 +139,24 @@ if(!ishuman(target)) return 0 var/obj/item/organ/external/affected = target.get_organ(target_zone) - var/can_fit = affected && !affected.hidden && affected.cavity && tool.w_class <= get_max_wclass(affected) - return ..() && can_fit + if(!affected) + to_chat(user, "\The [target] lacks a [parse_zone(target_zone)]!") + return 0 + if(tool) + var/can_fit = !affected.hidden && tool.w_class <= get_max_wclass(affected) + if(!can_fit) + to_chat(user, "\The [tool] won't fit in \The [affected.name]!") + return 0 + return ..() /datum/surgery_step/cavity/place_item/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) - for(var/obj/item/I in target.internal_organs) + for(var/obj/item/I in affected.contents) if(!istype(I, /obj/item/organ)) IC = I break if(istype(tool,/obj/item/weapon/cautery)) - to_chat(user, "you prepare to close the cavity wall.") + to_chat(user, "You prepare to close the cavity wall.") else if(tool) user.visible_message("[user] starts putting \the [tool] inside [target]'s [get_cavity(affected)] cavity.", \ "You start putting \the [tool] inside [target]'s [get_cavity(affected)] cavity." ) @@ -203,8 +204,7 @@ affected.owner.custom_pain("You feel something rip in your [affected.name]!", 1) user.drop_item() target.internal_organs += tool - tool.loc = target - affected.cavity = 0 + tool.forceMove(affected) return 1 else if(IC) @@ -222,22 +222,35 @@ ////////////////////////////////////////////////////////////////// /datum/surgery/cavity_implant_rem - name = "implant removal" + name = "Implant Removal" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin,/datum/surgery_step/cavity/implant_removal,/datum/surgery_step/cavity/close_space,/datum/surgery_step/generic/cauterize/) possible_locs = list("chest")//head is for borers..i can put it elsewhere /datum/surgery/cavity_implant_rem/synth - name = "implant removal" + name = "Implant Removal" steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/cavity/implant_removal,/datum/surgery_step/robotics/external/close_hatch) possible_locs = list("chest")//head is for borers..i can put it elsewhere -/datum/surgery/cavity_implant_rem/can_start(mob/user, mob/living/carbon/target) - if(target.get_species() == "Machine") +/datum/surgery/cavity_implant_rem/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(affected.status & ORGAN_ROBOT) return 0 return 1 -/datum/surgery/cavity_implant_rem/synth/can_start(mob/user, mob/living/carbon/target) - return target.get_species() == "Machine" +/datum/surgery/cavity_implant_rem/synth/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(!(affected.status & ORGAN_ROBOT)) + return 0 + + return 1 /datum/surgery_step/cavity/implant_removal name = "extract implant" @@ -309,25 +322,34 @@ ////////////////////////////////////////////////////////////////// /datum/surgery/embedded_removal - name = "removal of embedded objects" + name = "Removal of Embedded Objects" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/remove_object, /datum/surgery_step/generic/cauterize) possible_locs = list("r_arm","l_arm","r_leg","l_leg","r_hand","r_foot","l_hand","l_foot","groin","chest","head") /datum/surgery/embedded_removal/synth - name = "removal of embedded objects" steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch, /datum/surgery_step/remove_object, /datum/surgery_step/robotics/external/close_hatch) possible_locs = list("r_arm","l_arm","r_leg","l_leg","r_hand","r_foot","l_hand","l_foot","groin","chest","head") -/datum/surgery/embedded_removal/can_start(mob/user, mob/living/carbon/target) - if(target.get_species() == "Machine") +/datum/surgery/embedded_removal/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(affected.status & ORGAN_ROBOT) return 0 return 1 -/datum/surgery/embedded_removal/synth/can_start(mob/user, mob/living/carbon/target) - if(target.get_species() == "Machine") - return 1 - return 0 +/datum/surgery/embedded_removal/synth/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(!(affected.status & ORGAN_ROBOT)) + return 0 + return 1 /datum/surgery_step/remove_object name = "remove embedded objects" diff --git a/code/modules/surgery/limb_reattach.dm b/code/modules/surgery/limb_reattach.dm index ad0a1973b8f..873506338a7 100644 --- a/code/modules/surgery/limb_reattach.dm +++ b/code/modules/surgery/limb_reattach.dm @@ -4,7 +4,7 @@ ////////////////////////////////////////////////////////////////// /datum/surgery/amputation - name = "amputation" + name = "Amputation" steps = list(/datum/surgery_step/generic/amputate) possible_locs = list("head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") @@ -13,16 +13,18 @@ if(ishuman(target)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) - if((target.get_species() == "Machine")) - return 0 if(!affected) return 0 + if(affected.status & ORGAN_ROBOT) + return 0 + if(affected.cannot_amputate) + return 0 return 1 /datum/surgery/reattach - name = "limb attachment" + name = "Limb Reattachment" steps = list(/datum/surgery_step/limb/attach,/datum/surgery_step/limb/connect) possible_locs = list("head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") @@ -30,29 +32,30 @@ if(ishuman(target)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) + if(target.get_species() == "Machine") + // RIP bi-centennial man + return 0 if(!affected) return 1 - if((target.get_species() == "Machine")) - return 0 - return 0 + return 0 /datum/surgery/reattach_synth - name = "limb attachment" - steps = list(/datum/surgery_step/limb/attach) + name = "Synthetic Limb Reattachment" + steps = list(/datum/surgery_step/limb/attach/robo) possible_locs = list("head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") /datum/surgery/reattach_synth/can_start(mob/user, mob/living/carbon/target) if(ishuman(target)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) - if(!affected && (target.get_species() == "Machine")) + if(!affected) return 1 return 0 /datum/surgery/robo_attach - name = "robotic limb attachment" + name = "Apply Robotic Prosthetic" steps = list(/datum/surgery_step/limb/mechanize) possible_locs = list("head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") @@ -67,14 +70,14 @@ /datum/surgery_step/limb/ can_infect = 0 - can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) - if(!hasorgans(target)) - return 0 - var/obj/item/organ/external/affected = target.get_organ(target_zone) - if(affected) - return 0 - var/list/organ_data = target.species.has_limbs["[target_zone]"] - return !isnull(organ_data) +/datum/surgery_step/limb/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) + if(!hasorgans(target)) + return 0 + var/obj/item/organ/external/affected = target.get_organ(target_zone) + if(affected) + return 0 + var/list/organ_data = target.species.has_limbs["[target_zone]"] + return !isnull(organ_data) /datum/surgery_step/limb/attach name = "attach limb" @@ -82,6 +85,31 @@ time = 32 +/datum/surgery_step/limb/attach/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) + if(!..()) + return 0 + if(!istype(tool, /obj/item/organ/external)) + return 0 + var/obj/item/organ/external/E = tool + if(target.get_organ(E.limb_name)) + // This catches attaching an arm to a missing hand while the arm is still there + to_chat(user, "[target] already has an [E.name]!") + return 0 + if(E.limb_name != target_zone) + // This ensures you must be aiming at the appropriate location to attach + // this limb. (Can't aim at a missing foot to re-attach a missing arm) + to_chat(user, "The [E.name] does not go there.") + return 0 + // if(E.parent_organ && !target.get_organ(E.parent_organ)) + // // No rayman allowed + // return 0 + if(!is_correct_limb(E)) + to_chat(user, "This is not the correct limb type for this surgery!") + return 0 + + return 1 + + /datum/surgery_step/limb/attach/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/E = tool user.visible_message("[user] starts attaching [E.name] to [target]'s [E.amputation_point].", \ @@ -91,29 +119,7 @@ var/obj/item/organ/external/E = tool user.visible_message("[user] has attached [target]'s [E.name] to the [E.amputation_point].", \ "You have attached [target]'s [E.name] to the [E.amputation_point].") - user.unEquip(E) - E.replaced(target) - E.forceMove(target) - if(target.get_species() == "Machine")//as this is the only step needed for ipc put togethers - if(!(E.dna) && E.robotic == 2 && target.dna) - E.dna = target.dna.Clone() - if(!E.blood_DNA) - E.blood_DNA = list() - E.blood_DNA[target.dna.unique_enzymes] = target.dna.b_type - if(target_zone == "head") - var/obj/item/organ/external/head/H = target.get_organ("head") - var/datum/robolimb/robohead = all_robolimbs[H.model] - if(robohead.is_monitor) //Ensures that if an IPC gets a head that's got a human hair wig attached to their body, the hair won't wipe. - H.h_style = "" - H.f_style = "" - target.m_style = "" - E.status &= ~ORGAN_DESTROYED - if(E.children) - for(var/obj/item/organ/external/C in E.children) - C.status &= ~ORGAN_DESTROYED - target.update_body() - target.updatehealth() - target.UpdateDamageIcon() + attach_limb(user, target, E) return 1 /datum/surgery_step/limb/attach/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) @@ -123,6 +129,48 @@ target.apply_damage(10, BRUTE, null, sharp=1) return 0 + +/datum/surgery_step/limb/attach/proc/is_correct_limb(obj/item/organ/external/E) + if(E.status & ORGAN_ROBOT) + return 0 + return 1 + +/datum/surgery_step/limb/attach/proc/attach_limb(mob/living/user, mob/living/carbon/human/target, obj/item/organ/external/E) + user.unEquip(E) + E.replaced(target) + target.update_body() + target.updatehealth() + target.UpdateDamageIcon() + + +// This is a step that handles robotic limb attachment while skipping the "connect" step +// THIS IS DISTINCT FROM USING A CYBORG LIMB TO CREATE A NEW LIMB ORGAN +/datum/surgery_step/limb/attach/robo + name = "attach robotic limb" + +/datum/surgery_step/limb/attach/robo/is_correct_limb(obj/item/organ/external/E) + if(!(E.status & ORGAN_ROBOT)) + return 0 + return 1 + +/datum/surgery_step/limb/attach/robo/attach_limb(mob/living/user, mob/living/carbon/human/target, obj/item/organ/external/E) + // Fixes fabricator IPC heads + if(!(E.dna) && E.robotic == 2 && target.dna) + E.set_dna(target.dna) + if(E.limb_name == "head") + var/obj/item/organ/external/head/H = target.get_organ("head") + var/datum/robolimb/robohead = all_robolimbs[H.model] + if(robohead.is_monitor) //Ensures that if an IPC gets a head that's got a human hair wig attached to their body, the hair won't wipe. + H.h_style = "" + H.f_style = "" + target.m_style = "" + ..() + E.status &= ~ORGAN_DESTROYED + if(E.children) + for(var/obj/item/organ/external/C in E.children) + C.status &= ~ORGAN_DESTROYED + + /datum/surgery_step/limb/connect name = "connect limb" allowed_tools = list( @@ -134,9 +182,11 @@ time = 32 + /datum/surgery_step/limb/connect/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool) - var/obj/item/organ/external/E = target.get_organ(target_zone) - return E && !E.is_stump() && (E.status & ORGAN_DESTROYED) + if(!hasorgans(target)) + return 0 + return 1 /datum/surgery_step/limb/connect/begin_step(mob/user, mob/living/carbon/human/target, target_zone, obj/item/tool) var/obj/item/organ/external/E = target.get_organ(target_zone) @@ -167,7 +217,7 @@ return 0 /datum/surgery_step/limb/mechanize - name = "attach robotic limb" + name = "apply robotic prosthetic" allowed_tools = list(/obj/item/robot_parts = 100) time = 32 @@ -177,6 +227,7 @@ var/obj/item/robot_parts/p = tool if(p.part) if(!(target_zone in p.part)) + to_chat(user, "\The [tool] does not go there!") return 0 return isnull(target.get_organ(target_zone)) @@ -196,13 +247,13 @@ var/list/organ_data = target.species.has_limbs["[part_name]"] if(!organ_data) continue + // This will break if there's more than one stump ever var/obj/item/organ/external/stump = target.organs_by_name["limb stump"] if(stump) stump.remove(target) var/new_limb_type = organ_data["path"] var/obj/item/organ/external/new_limb = new new_limb_type(target) new_limb.robotize(L.model_info) - new_limb.replaced(target) new_limb.status &= ~ORGAN_DESTROYED if(new_limb.children) for(var/obj/item/organ/external/C in new_limb.children) diff --git a/code/modules/surgery/organs/augments_eyes.dm b/code/modules/surgery/organs/augments_eyes.dm index 679a98c98f4..78878917d6d 100644 --- a/code/modules/surgery/organs/augments_eyes.dm +++ b/code/modules/surgery/organs/augments_eyes.dm @@ -40,7 +40,7 @@ M.sight |= vision_flags /obj/item/organ/internal/cyberimp/eyes/remove(var/mob/living/carbon/M, var/special = 0) - ..() + . = ..() M.sight ^= vision_flags if(istype(owner,/mob/living/carbon/human) && eye_colour) var/mob/living/carbon/human/HMN = owner @@ -97,7 +97,7 @@ M.permanent_huds |= H /obj/item/organ/internal/cyberimp/eyes/hud/remove(var/mob/living/carbon/M, var/special = 0) - ..() + . = ..() if(HUD_type) var/datum/atom_hud/H = huds[HUD_type] M.permanent_huds ^= H @@ -132,4 +132,4 @@ // Welding with thermals will still hurt your eyes a bit. /obj/item/organ/internal/cyberimp/eyes/shield/emp_act(severity) - return \ No newline at end of file + return diff --git a/code/modules/surgery/organs/augments_internal.dm b/code/modules/surgery/organs/augments_internal.dm index 2fa12d1a0dc..b860e3f062c 100644 --- a/code/modules/surgery/organs/augments_internal.dm +++ b/code/modules/surgery/organs/augments_internal.dm @@ -116,7 +116,7 @@ r_hand_obj.flags ^= NODROP /obj/item/organ/internal/cyberimp/brain/anti_drop/remove(var/mob/living/carbon/M, special = 0) - ..() + . = ..() if(active) ui_action_click() diff --git a/code/modules/surgery/organs/body_egg.dm b/code/modules/surgery/organs/body_egg.dm index 3653e3df327..335d4e5b751 100644 --- a/code/modules/surgery/organs/body_egg.dm +++ b/code/modules/surgery/organs/body_egg.dm @@ -25,7 +25,7 @@ owner.med_hud_set_status() spawn(0) RemoveInfectionImages(owner) - ..() + . = ..() /obj/item/organ/internal/body_egg/process() if(!owner) @@ -46,4 +46,4 @@ return /obj/item/organ/internal/body_egg/proc/RemoveInfectionImages() - return \ No newline at end of file + return diff --git a/code/modules/surgery/organs/organ.dm b/code/modules/surgery/organs/organ.dm index b49ccc6a838..26d50abaa75 100644 --- a/code/modules/surgery/organs/organ.dm +++ b/code/modules/surgery/organs/organ.dm @@ -314,6 +314,7 @@ var/list/organ_cache = list() msg_admin_attack("[key_name_admin(user)] removed a vital organ ([src]) from [key_name_admin(owner)]") owner.death() owner = null + return src /obj/item/organ/proc/replaced(var/mob/living/carbon/human/target,var/obj/item/organ/external/affected) diff --git a/code/modules/surgery/organs/organ_external.dm b/code/modules/surgery/organs/organ_external.dm index 8ec993c8db8..e2702b36afe 100644 --- a/code/modules/surgery/organs/organ_external.dm +++ b/code/modules/surgery/organs/organ_external.dm @@ -51,8 +51,6 @@ var/broken_description var/open = 0 - var/stage = 0 - var/cavity = 0 var/sabotaged = 0 //If a prosthetic limb is emagged, it will detonate when it fails. var/encased // Needs to be opened with a saw to access the organs. @@ -71,6 +69,9 @@ if(parent && parent.children) parent.children -= src + if(owner) + owner.organs_by_name[limb_name] = null + if(internal_organs) for(var/obj/item/organ/internal/O in internal_organs) internal_organs -= O @@ -87,38 +88,35 @@ return ..() /obj/item/organ/external/attackby(obj/item/weapon/W as obj, mob/user as mob) - switch(stage) + switch(open) if(0) if(istype(W,/obj/item/weapon/scalpel)) spread_germs_to_organ(src,user) - user.visible_message("[user] cuts [src] open with [W]!") - stage++ + user.visible_message("[user] cuts [src] open with [W]!") + open++ return if(1) if(istype(W,/obj/item/weapon/retractor)) spread_germs_to_organ(src,user) - user.visible_message("[user] cracks [src] open like an egg with [W]!") - stage++ + user.visible_message("[user] cracks [src] open like an egg with [W]!") + open++ return if(2) if(istype(W,/obj/item/weapon/hemostat)) spread_germs_to_organ(src,user) if(contents.len) var/obj/item/removing = pick(contents) - removing.loc = get_turf(user.loc) var/obj/item/organ/internal/O = removing if(istype(O)) O.status |= ORGAN_CUT_AWAY if(!O.sterile) spread_germs_to_organ(O,user) // This wouldn't be any cleaner than the actual surgery - O.forceMove(get_turf(src)) - if(!(user.l_hand && user.r_hand)) - user.put_in_hands(removing) - user.visible_message("[user] extracts [removing] from [src] with [W]!") + user.put_in_hands(removing) + user.visible_message("[user] extracts [removing] from [src] with [W]!") else - user.visible_message("[user] fishes around fruitlessly in [src] with [W].") + user.visible_message("[user] fishes around fruitlessly in [src] with [W].") return - ..() + . = ..() /obj/item/organ/external/update_health() @@ -139,14 +137,12 @@ status = status & ~ORGAN_DESTROYED forceMove(owner) if(istype(owner)) + if(!isnull(owner.organs_by_name[limb_name])) + log_debug("Duplicate organ in slot \"[limb_name]\", mob '[target]'") owner.organs_by_name[limb_name] = src owner.organs |= src - for(var/obj/item/organ/organ in src) - if(istype(src, /obj/item/organ/internal)) - var/obj/item/organ/internal/I = organ - if(target.get_organ_slot(I.slot)) - continue // Just leave it inside its limb, so brains with brainmobs in them don't get voided. - organ.replaced(owner,src) + for(var/atom/movable/stuff in src) + stuff.attempt_become_organ(src, owner) if(parent_organ) parent = owner.organs_by_name[src.parent_organ] @@ -161,6 +157,12 @@ break parent.update_damages() +/obj/item/organ/external/attempt_become_organ(obj/item/organ/external/parent,mob/living/carbon/human/H) + if(parent_organ != parent.limb_name) + return 0 + replaced(H) + return 1 + /**************************************************** DAMAGE PROCS ****************************************************/ @@ -691,7 +693,8 @@ Note that amputating the affected organ does in fact remove the infection from t "You hear the [gore_sound].") var/mob/living/carbon/human/victim = owner //Keep a reference for post-removed(). - remove(null, ignore_children) + // Let people make limbs become fun things when removed + var/atom/movable/dropped_part = remove(null, ignore_children) victim.traumatic_shock += 30 wounds.Cut() @@ -726,12 +729,12 @@ Note that amputating the affected organ does in fact remove the infection from t if(!clean) // Throw limb around. if(src && istype(loc,/turf)) - throw_at(get_edge_target_turf(src,pick(alldirs)),rand(1,3),30) + dropped_part.throw_at(get_edge_target_turf(src,pick(alldirs)),rand(1,3),30) dir = 2 - return + return dropped_part else qdel(src) // If you flashed away to ashes, YOU FLASHED AWAY TO ASHES - return + return null /**************************************************** HELPERS @@ -903,7 +906,7 @@ Note that amputating the affected organ does in fact remove the infection from t var/is_robotic = status & ORGAN_ROBOT var/mob/living/carbon/human/victim = owner - ..() + . = ..() status |= ORGAN_DESTROYED victim.bad_external_organs -= src @@ -914,14 +917,14 @@ Note that amputating the affected organ does in fact remove the infection from t // Attached organs also fly off. if(!ignore_children) for(var/obj/item/organ/external/O in children) - O.remove(victim) - if(O) - O.forceMove(src) + var/atom/movable/thing = O.remove(victim) + if(thing) + thing.forceMove(src) // Grab all the internal giblets too. for(var/obj/item/organ/internal/organ in internal_organs) - organ.remove(victim) - organ.forceMove(src) + var/atom/movable/thing = organ.remove(victim) + thing.forceMove(src) release_restraints(victim) victim.organs -= src diff --git a/code/modules/surgery/organs/organ_icon.dm b/code/modules/surgery/organs/organ_icon.dm index 49777aa4a5c..fb945fce7f6 100644 --- a/code/modules/surgery/organs/organ_icon.dm +++ b/code/modules/surgery/organs/organ_icon.dm @@ -47,7 +47,7 @@ var/global/list/limb_icon_cache = list() /obj/item/organ/external/head/remove() get_icon() - ..() + . = ..() /obj/item/organ/external/head/get_icon() diff --git a/code/modules/surgery/organs/organ_internal.dm b/code/modules/surgery/organs/organ_internal.dm index 9c28a60b055..9958e1705c2 100644 --- a/code/modules/surgery/organs/organ_internal.dm +++ b/code/modules/surgery/organs/organ_internal.dm @@ -15,6 +15,11 @@ insert(holder) ..() +/obj/item/organ/internal/Destroy() + if(owner) + remove(owner, 1) + return ..() + /obj/item/organ/internal/proc/insert(mob/living/carbon/M, special = 0, var/dont_remove_slot = 0) if(!iscarbon(M) || owner == M) return @@ -43,7 +48,9 @@ var/datum/action/A = X A.Grant(M) - +// Removes the given organ from its owner. +// Returns the removed object, which is usually just itself +// However, you MUST set the object's positiion yourself when you call this! /obj/item/organ/internal/remove(mob/living/carbon/M, special = 0) owner = null if(M) @@ -63,7 +70,7 @@ for(var/X in actions) var/datum/action/A = X A.Remove(M) - + return src /obj/item/organ/internal/replaced(var/mob/living/carbon/human/target,var/obj/item/organ/external/affected) insert(target) @@ -78,11 +85,6 @@ /obj/item/organ/internal/proc/on_life() return -/obj/item/organ/internal/Destroy() - if(owner) - remove(owner, 1) - return ..() - /obj/item/organ/internal/proc/prepare_eat() if(status == ORGAN_ROBOT) return //no eating cybernetic implants! @@ -96,6 +98,12 @@ return S +/obj/item/organ/internal/attempt_become_organ(obj/item/organ/external/parent,mob/living/carbon/human/H) + if(parent_organ != parent.limb_name) + return 0 + insert(H) + return 1 + /obj/item/weapon/reagent_containers/food/snacks/organ name = "appendix" icon_state = "appendix" @@ -149,7 +157,7 @@ icon_state = "[icon_base]-off" /obj/item/organ/internal/heart/remove(mob/living/carbon/M, special = 0) - ..() + . = ..() if(ishuman(M)) var/mob/living/carbon/human/H = M if(H.stat == DEAD || H.heart_attack) @@ -279,7 +287,7 @@ ///obj/item/organ/internal/lungs/remove(mob/living/carbon/M, special = 0) // owner.losebreath += 10 //insert oxy damage extream here. -// ..() +// . = ..() /obj/item/organ/internal/lungs/process() @@ -436,7 +444,7 @@ A.cure() inflamed = 1 update_icon() - ..() + . = ..() /obj/item/organ/internal/appendix/insert(mob/living/carbon/M, special = 0) ..() @@ -508,7 +516,7 @@ organhonked = world.time /obj/item/organ/internal/honktumor/remove(mob/living/carbon/M, special = 0) - ..() + . = ..() M.mutations.Remove(CLUMSY) M.mutations.Remove(COMICBLOCK) @@ -561,7 +569,7 @@ /obj/item/organ/internal/honktumor/cursed /obj/item/organ/internal/honktumor/cursed/remove(mob/living/carbon/M, special = 0, clean_remove = 0) - ..() + . = ..() if(!clean_remove) visible_message("[src] vanishes into dust, and a [M] emits a loud honk!", "You hear a loud honk.") insert(M) //You're not getting away that easily! diff --git a/code/modules/surgery/organs/organ_stump.dm b/code/modules/surgery/organs/organ_stump.dm index b310a5862fc..9d6c0183cb8 100644 --- a/code/modules/surgery/organs/organ_stump.dm +++ b/code/modules/surgery/organs/organ_stump.dm @@ -22,7 +22,7 @@ /obj/item/organ/external/stump/remove() ..() qdel(src) + return null /obj/item/organ/external/stump/is_usable() return 0 - diff --git a/code/modules/surgery/organs/parasites.dm b/code/modules/surgery/organs/parasites.dm index 2d15efdd041..61e72743464 100644 --- a/code/modules/surgery/organs/parasites.dm +++ b/code/modules/surgery/organs/parasites.dm @@ -32,4 +32,5 @@ /obj/item/organ/internal/body_egg/spider_eggs/remove(var/mob/living/carbon/M, var/special = 0) ..() M.reagents.del_reagent("spidereggs") //purge all remaining spider eggs reagent if caught, in time. - qdel(src) //We don't want people re-implanting these for near instant gibbings. \ No newline at end of file + qdel(src) //We don't want people re-implanting these for near instant gibbings. + return null diff --git a/code/modules/surgery/organs/subtypes/grey.dm b/code/modules/surgery/organs/subtypes/grey.dm index 7c84bdc2019..a47ab801d6f 100644 --- a/code/modules/surgery/organs/subtypes/grey.dm +++ b/code/modules/surgery/organs/subtypes/grey.dm @@ -12,5 +12,5 @@ M.add_language("Psionic Communication") /obj/item/organ/internal/brain/grey/remove(var/mob/living/carbon/M, var/special = 0) - ..() + . = ..() M.remove_language("Psionic Communication") diff --git a/code/modules/surgery/organs/subtypes/machine.dm b/code/modules/surgery/organs/subtypes/machine.dm index d64fbf70e3d..5ea937c0bb1 100644 --- a/code/modules/surgery/organs/subtypes/machine.dm +++ b/code/modules/surgery/organs/subtypes/machine.dm @@ -117,13 +117,6 @@ robotize() ..() -/obj/item/organ/internal/cell/insert() - ..() - // This is very ghetto way of rebooting an IPC. TODO better way. - if(owner && owner.stat == DEAD) - owner.stat = CONSCIOUS - owner.visible_message("\The [owner] twitches visibly!") - /obj/item/organ/internal/optical_sensor name = "optical sensor" organ_tag = "eyes" @@ -167,20 +160,29 @@ species = "Machine" var/obj/item/device/mmi/stored_mmi -/obj/item/organ/internal/brain/mmi_holder/proc/update_from_mmi() - if(!stored_mmi) - return - name = stored_mmi.name - desc = stored_mmi.desc - icon = stored_mmi.icon - icon_state = stored_mmi.icon_state + +/obj/item/organ/internal/brain/mmi_holder/Destroy() + if(stored_mmi) + log_debug("Deleting MMI!") + qdel(stored_mmi) + return ..() + +/obj/item/organ/internal/brain/mmi_holder/insert(var/mob/living/target,special = 0) + ..() + // To supersede the over-writing of the MMI's name from `insert` + update_from_mmi() /obj/item/organ/internal/brain/mmi_holder/remove(var/mob/living/user,special = 0) if(!special) if(stored_mmi) - stored_mmi.forceMove(get_turf(owner)) + . = stored_mmi if(owner.mind) owner.mind.transfer_to(stored_mmi.brainmob) + log_debug("Releasing MMI!") + // move it to nullspace momentarily. If it STAYS there, we got a problem - + // the caller needs to set the location of the removed organ for this to work + contents -= stored_mmi + stored_mmi = null ..() var/mob/living/holder_mob = loc @@ -188,13 +190,14 @@ holder_mob.unEquip(src) qdel(src) -/obj/item/organ/internal/brain/mmi_holder/New() - ..() - // This is very ghetto way of rebooting an IPC. TODO better way. - spawn(1) - if(owner && owner.stat == DEAD) - owner.stat = CONSCIOUS - owner.visible_message("\The [owner] twitches visibly!") +/obj/item/organ/internal/brain/mmi_holder/proc/update_from_mmi() + if(!stored_mmi) + return + name = stored_mmi.name + desc = stored_mmi.desc + icon = stored_mmi.icon + icon_state = stored_mmi.icon_state + set_dna(stored_mmi.brainmob.dna) /obj/item/organ/internal/brain/mmi_holder/posibrain/New() robotize() diff --git a/code/modules/surgery/organs/subtypes/misc.dm b/code/modules/surgery/organs/subtypes/misc.dm index 240a36149f8..be76fa907dc 100644 --- a/code/modules/surgery/organs/subtypes/misc.dm +++ b/code/modules/surgery/organs/subtypes/misc.dm @@ -41,6 +41,7 @@ spawn(0) qdel(src) + return null //VOX ORGANS. /obj/item/organ/internal/stack diff --git a/code/modules/surgery/organs/subtypes/standard.dm b/code/modules/surgery/organs/subtypes/standard.dm index 1c6240318fe..a82940886be 100644 --- a/code/modules/surgery/organs/subtypes/standard.dm +++ b/code/modules/surgery/organs/subtypes/standard.dm @@ -85,7 +85,7 @@ /obj/item/organ/external/foot/remove() if(owner.shoes) owner.unEquip(owner.shoes) - ..() + . = ..() /obj/item/organ/external/foot/right limb_name = "r_foot" @@ -116,7 +116,7 @@ if(owner.r_hand) owner.unEquip(owner.r_hand,1) - ..() + . = ..() /obj/item/organ/external/hand/right limb_name = "r_hand" @@ -178,7 +178,7 @@ if(owner)//runtimer no runtiming owner.update_hair() owner.update_fhair() - ..() + . = ..() /obj/item/organ/external/head/replaced() name = limb_name diff --git a/code/modules/surgery/organs/subtypes/xenos.dm b/code/modules/surgery/organs/subtypes/xenos.dm index 75de3664657..5e771931165 100644 --- a/code/modules/surgery/organs/subtypes/xenos.dm +++ b/code/modules/surgery/organs/subtypes/xenos.dm @@ -24,7 +24,7 @@ M.verbs -= P //M.verbs -= alien_powers.Copy() - ..() + . = ..() /obj/item/organ/internal/xenos/prepare_eat() var/obj/S = ..() @@ -106,7 +106,7 @@ A.updatePlasmaDisplay() /obj/item/organ/internal/alien/plasmavessel/remove(mob/living/carbon/M, special = 0) - ..() + . =..() if(isalien(M)) var/mob/living/carbon/alien/A = M A.updatePlasmaDisplay() @@ -140,7 +140,7 @@ M.faction -= "alien" M.remove_language("Hivemind") M.remove_language("Xenomorph") - ..() + . = ..() /obj/item/organ/internal/xenos/neurotoxin name = "xeno neurotoxin gland" @@ -165,4 +165,4 @@ slot = "eggsac" w_class = 4 origin_tech = "biotech=8" - alien_powers = list(/mob/living/carbon/alien/humanoid/queen/verb/lay_egg) \ No newline at end of file + alien_powers = list(/mob/living/carbon/alien/humanoid/queen/verb/lay_egg) diff --git a/code/modules/surgery/organs_internal.dm b/code/modules/surgery/organs_internal.dm index 625f886455a..8928f52bb47 100644 --- a/code/modules/surgery/organs_internal.dm +++ b/code/modules/surgery/organs_internal.dm @@ -1,5 +1,5 @@ /datum/surgery/organ_manipulation - name = "organ manipulation" + name = "Organ Manipulation" steps = list(/datum/surgery_step/generic/cut_open,/datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/open_encased/saw, /datum/surgery_step/open_encased/retract, /datum/surgery_step/internal/manipulate_organs, /datum/surgery_step/glue_bone, /datum/surgery_step/set_bone,/datum/surgery_step/finish_bone,/datum/surgery_step/generic/cauterize) possible_locs = list("chest","head") @@ -11,13 +11,13 @@ requires_organic_bodypart = 1 /datum/surgery/organ_manipulation_boneless - name = "organ manipulation" + name = "Organ Manipulation" possible_locs = list("chest","head","groin", "eyes", "mouth") steps = list(/datum/surgery_step/generic/cut_open,/datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/internal/manipulate_organs,/datum/surgery_step/generic/cauterize) requires_organic_bodypart = 1 /datum/surgery/organ_manipulation/alien - name = "alien organ manipulation" + name = "Alien Organ Manipulation" possible_locs = list("chest", "head", "groin", "eyes", "mouth") allowed_mob = list(/mob/living/carbon/alien/humanoid) steps = list(/datum/surgery_step/saw_carapace,/datum/surgery_step/cut_carapace, /datum/surgery_step/retract_carapace,/datum/surgery_step/internal/manipulate_organs) @@ -27,11 +27,12 @@ if(istype(target,/mob/living/carbon/human)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) - if(affected && (affected.status & ORGAN_ROBOT)) + if(!affected) + // I'd like to see you do surgery on LITERALLY NOTHING return 0 - if(target.get_species() == "Machine")//i know organ robot might be enough but i am not taking chances... + if(affected.status & ORGAN_ROBOT) return 0 - if(affected && !affected.encased) //no bone, problem. + if(!affected.encased) //no bone, problem. return 0 return 1 @@ -42,6 +43,9 @@ if(affected && (affected.status & ORGAN_ROBOT)) return 0//no operating on robotic limbs in an organic surgery + if(!affected) + // I'd like to see you do surgery on LITERALLY NOTHING + return 0 if(affected && affected.encased) //no bones no problem. return 0 @@ -236,8 +240,11 @@ add_logs(target,user, "surgically removed [I.name] from", addition="INTENT: [uppertext(user.a_intent)]") spread_germs_to_organ(I, user) I.status |= ORGAN_CUT_AWAY - I.remove(target) - I.loc = get_turf(target) + var/obj/item/thing = I.remove(target) + if(!istype(thing)) + thing.forceMove(get_turf(target)) + else + user.put_in_hands(thing) else user.visible_message("[user] can't seem to extract anything from [target]'s [parse_zone(target_zone)]!", "You can't extract anything from [target]'s [parse_zone(target_zone)]!") diff --git a/code/modules/surgery/other.dm b/code/modules/surgery/other.dm index 21328599a19..de9d096a628 100644 --- a/code/modules/surgery/other.dm +++ b/code/modules/surgery/other.dm @@ -4,15 +4,26 @@ ////////////////////////////////////////////////////////////////// /datum/surgery/infection - name = "external infection treatment/autopsy" + name = "External Infection Treatment/Autopsy" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/cauterize) possible_locs = list("chest","head","groin", "l_arm", "r_arm", "l_leg", "r_leg", "r_hand", "l_hand", "r_foot", "l_foot") /datum/surgery/bleeding - name = "internal bleeding" + name = "Internal Bleeding" steps = list(/datum/surgery_step/generic/cut_open,/datum/surgery_step/generic/clamp_bleeders,/datum/surgery_step/generic/retract_skin,/datum/surgery_step/fix_vein,/datum/surgery_step/generic/cauterize) possible_locs = list("chest","head","groin", "l_arm", "r_arm", "l_leg", "r_leg", "r_hand", "l_hand", "r_foot", "l_foot") +/datum/surgery/infection/can_start(mob/user, mob/living/carbon/target) + if(ishuman(target)) + var/mob/living/carbon/human/H = target + var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) + if(!affected) + return 0 + if(affected.status & ORGAN_ROBOT) + return 0 + return 1 + return 0 + /datum/surgery/bleeding/can_start(mob/user, mob/living/carbon/target) if(ishuman(target)) var/mob/living/carbon/human/H = target @@ -49,7 +60,7 @@ internal_bleeding = 1 break - return affected.open == 2 && internal_bleeding + return internal_bleeding /datum/surgery_step/fix_vein/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) @@ -207,35 +218,59 @@ // Dethrall Shadowling // ////////////////////////////////////////////////////////////////// /datum/surgery/remove_thrall - name = "cleanse contaminations"//RENAME MEH + name = "Remove Shadow Tumor" steps = list(/datum/surgery_step/generic/cut_open, /datum/surgery_step/generic/clamp_bleeders, /datum/surgery_step/generic/retract_skin, /datum/surgery_step/open_encased/saw,/datum/surgery_step/open_encased/retract, /datum/surgery_step/internal/dethrall, /datum/surgery_step/glue_bone, /datum/surgery_step/set_bone,/datum/surgery_step/finish_bone,/datum/surgery_step/generic/cauterize) - possible_locs = list("head") + possible_locs = list("head", "chest", "groin") /datum/surgery/remove_thrall/synth - name = "cleanse contaminations"//RENAME MEH steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/internal/dethrall,/datum/surgery_step/robotics/external/close_hatch) - possible_locs = list("chest") + possible_locs = list("head", "chest", "groin") +/datum/surgery/remove_thrall/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + if(!is_thrall(target)) + return 0 + var/obj/item/organ/internal/brain/B = target.get_int_organ(/obj/item/organ/internal/brain) + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!B) + // No brain to remove the tumor from + return 0 + if(affected.status & ORGAN_ROBOT) + return 0 + if(!(B in affected.internal_organs)) + return 0 + return 1 - -/datum/surgery/remove_thrall/can_start(mob/user, mob/living/carbon/target) - return is_thrall(target) //would this be too meta? - -/datum/surgery/remove_thrall/synth/can_start(mob/user, mob/living/carbon/target) - return is_thrall(target) && target.get_species() == "Machine" +/datum/surgery/remove_thrall/synth/can_start(mob/user, mob/living/carbon/human/target) + if(!istype(target)) + return 0 + if(!is_thrall(target)) + return 0 + var/obj/item/organ/internal/brain/B = target.get_int_organ(/obj/item/organ/internal/brain) + var/obj/item/organ/external/affected = target.get_organ(user.zone_sel.selecting) + if(!B) + // No brain to remove the tumor from + return 0 + if(!(affected.status & ORGAN_ROBOT)) + return 0 + if(!(B in affected.internal_organs)) + return 0 + return 1 /datum/surgery_step/internal/dethrall name = "cleanse contamination" allowed_tools = list(/obj/item/device/flash = 100, /obj/item/device/flashlight/pen = 80, /obj/item/device/flashlight = 40) - + blood_level = 0 time = 30 /datum/surgery_step/internal/dethrall/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(!hasorgans(target)) - return - var/obj/item/organ/external/affected = target.get_organ(target_zone) - return ..() && affected && is_thrall(target) && affected.open_enough_for_surgery() && target_zone == target.named_organ_parent("brain") + if(!..()) + return 0 + if(!is_thrall(target)) + return 0 + return 1 /datum/surgery_step/internal/dethrall/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/braincase = target.named_organ_parent("brain") @@ -263,11 +298,15 @@ S.apply_damage(20, BRUTE) playsound(S, 'sound/effects/bang.ogg', 50, 1) return 0 - user.visible_message("[user] shines light onto the tumor in [target]'s head!", "You cleanse the contamination from [target]'s brain!") + var/obj/item/organ/internal/brain/B = target.get_int_organ(/obj/item/organ/internal/brain) + var/obj/item/organ/external/E = target.get_organ(check_zone(B.parent_organ)) + user.visible_message("[user] shines light onto the tumor in [target]'s [E]!", "You cleanse the contamination from [target]'s brain!") if(target.vision_type) //Turns off their darksight if it's still active. to_chat(target, "Your eyes are suddenly wrought with immense pain as your darksight is forcibly dismissed!") target.vision_type = null ticker.mode.remove_thrall(target.mind, 0) - target.visible_message("A strange black mass falls from [target]'s head!") - new /obj/item/organ/internal/shadowtumor(get_turf(target)) + target.visible_message("A strange black mass falls from [target]'s [E]!") + var/obj/item/organ/thing = new /obj/item/organ/internal/shadowtumor(get_turf(target)) + thing.set_dna(target.dna) + user.put_in_hands(thing) return 1 diff --git a/code/modules/surgery/robotics.dm b/code/modules/surgery/robotics.dm index 4567c465678..8a07616f5fc 100644 --- a/code/modules/surgery/robotics.dm +++ b/code/modules/surgery/robotics.dm @@ -5,18 +5,18 @@ /datum/surgery/cybernetic_repair name = "Cybernetic Repair" - steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/robotics/external/repair_brute,/datum/surgery_step/robotics/external/repair_burn,/datum/surgery_step/robotics/external/close_hatch) + steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/robotics/external/repair) possible_locs = list("chest","head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") requires_organic_bodypart = 0 /datum/surgery/cybernetic_repair/internal - name = "Internal Cybernetic Mainpulation" + name = "Internal Component Manipulation" steps = list(/datum/surgery_step/robotics/external/unscrew_hatch,/datum/surgery_step/robotics/external/open_hatch,/datum/surgery_step/robotics/manipulate_robotic_organs) possible_locs = list("eyes", "chest","head","groin") requires_organic_bodypart = 0 /datum/surgery/cybernetic_amputation - name = "robotic limb amputation" + name = "Robotic Limb Amputation" steps = list(/datum/surgery_step/robotics/external/amputate) possible_locs = list("chest","head","l_arm", "l_hand","r_arm","r_hand","r_leg","r_foot","l_leg","l_foot","groin") requires_organic_bodypart = 0 @@ -33,7 +33,6 @@ return 1 /datum/surgery/cybernetic_amputation/can_start(mob/user, mob/living/carbon/target) - if(istype(target,/mob/living/carbon/human)) var/mob/living/carbon/human/H = target var/obj/item/organ/external/affected = H.get_organ(user.zone_sel.selecting) @@ -41,16 +40,16 @@ return 0 if(!(affected.status & ORGAN_ROBOT)) return 0 + if(affected.cannot_amputate) + return 0 return 1 -//to do, moar surgerys or condense down ala mainpulate organs. +//to do, moar surgerys or condense down ala manipulate organs. /datum/surgery_step/robotics can_infect = 0 /datum/surgery_step/robotics/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(isslime(target)) - return 0 - if(target_zone == "eyes") //there are specific steps for eye surgery + if(!istype(target)) return 0 if(!hasorgans(target)) return 0 @@ -152,7 +151,7 @@ /datum/surgery_step/robotics/external/close_hatch/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) if(..()) var/obj/item/organ/external/affected = target.get_organ(target_zone) - return affected && affected.open && target_zone != "mouth" + return affected && affected.open /datum/surgery_step/robotics/external/close_hatch/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) @@ -165,7 +164,6 @@ user.visible_message(" [user] closes and secures the hatch on [target]'s [affected.name] with \the [tool].", \ " You close and secure the hatch on [target]'s [affected.name] with \the [tool].") affected.open = 0 - affected.germ_level = 0 return 1 /datum/surgery_step/robotics/external/close_hatch/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) @@ -174,94 +172,116 @@ " Your [tool.name] slips, failing to close the hatch on [target]'s [affected.name].") return 0 -/datum/surgery_step/robotics/external/repair_brute - name = "Repair brute damage" - allowed_tools = list( +/datum/surgery_step/robotics/external/repair + name = "repair damage internally" + allowed_tools = list() + + var/list/implements_finish = list( + /obj/item/weapon/retractor = 100, + /obj/item/weapon/crowbar = 100, + /obj/item/weapon/kitchen/utensil = 50 + ) + var/list/implements_heal_burn = list( + /obj/item/stack/cable_coil = 100 + ) + var/list/implements_heal_brute = list( /obj/item/weapon/weldingtool = 100, /obj/item/weapon/gun/energy/plasmacutter = 50 ) - + var/current_type time = 32 -/datum/surgery_step/robotics/external/repair_brute/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(..()) - var/obj/item/organ/external/affected = target.get_organ(target_zone) +/datum/surgery_step/robotics/external/repair/New() + ..() + allowed_tools = implements_heal_burn + implements_heal_brute + implements_finish + + +/datum/surgery_step/robotics/external/repair/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) + var/obj/item/organ/external/affected = target.get_organ(target_zone) + if(!affected) + return -1 + if(affected.open != 2) + to_chat(user, "The [affected] needs to be open to be operated on!") + return -1 + + if(implement_type in implements_heal_burn) + current_type = "burn" + var/obj/item/stack/cable_coil/C = tool + if(!(affected.burn_dam > 0)) + to_chat(user, "The [affected] does not have any burn damage!") + return -1 + if(!istype(C)) + return -1 + if(!C.get_amount() >= 3) + to_chat(user, "You need three or more cable pieces to repair this damage.") + return -1 + C.use(3) + user.visible_message("[user] begins to splice new cabling into [target]'s [affected.name]." , \ + "You begin to splice new cabling into [target]'s [affected.name].") + + else if(implement_type in implements_heal_brute) + current_type = "brute" + if(!(affected.brute_dam > 0 || affected.disfigured)) + to_chat(user, "The [affected] does not require welding repair!") + return -1 if(istype(tool,/obj/item/weapon/weldingtool)) var/obj/item/weapon/weldingtool/welder = tool if(!welder.isOn() || !welder.remove_fuel(1,user)) - return 0 - return affected && affected.open == 2 && (affected.brute_dam > 0 || affected.disfigured)&& target_zone != "mouth" + return -1 + user.visible_message("[user] begins to patch damage to [target]'s [affected.name]'s support structure with \the [tool]." , \ + "You begin to patch damage to [target]'s [affected.name]'s support structure with \the [tool].") -/datum/surgery_step/robotics/external/repair_brute/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message("[user] begins to patch damage to [target]'s [affected.name]'s support structure with \the [tool]." , \ - "You begin to patch damage to [target]'s [affected.name]'s support structure with \the [tool].") + else if(implement_type in implements_finish) + current_type = "finish" + user.visible_message("[user] begins to close and secure the hatch on [target]'s [affected.name] with \the [tool]." , \ + "You begin to close and secure the hatch on [target]'s [affected.name] with \the [tool].") + else + log_debug("Invalid tool: '[implement_type]'") + return -1 ..() -/datum/surgery_step/robotics/external/repair_brute/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) +/datum/surgery_step/robotics/external/repair/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user] finishes patching damage to [target]'s [affected.name] with \the [tool].", \ - " You finish patching damage to [target]'s [affected.name] with \the [tool].") - affected.heal_damage(rand(30,50),0,1,1) - if(affected.disfigured) - affected.disfigured = 0 - affected.update_icon() - target.regenerate_icons() - return 1 - -/datum/surgery_step/robotics/external/repair_brute/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user]'s [tool.name] slips, damaging the internal structure of [target]'s [affected.name].", - " Your [tool.name] slips, damaging the internal structure of [target]'s [affected.name].") - target.apply_damage(rand(5,10), BURN, affected) + switch(current_type) + if("brute") + user.visible_message(" [user] finishes patching damage to [target]'s [affected.name] with \the [tool].", \ + " You finish patching damage to [target]'s [affected.name] with \the [tool].") + affected.heal_damage(rand(30,50),0,1,1) + if(affected.disfigured) + affected.disfigured = 0 + affected.update_icon() + target.regenerate_icons() + if("burn") + user.visible_message(" [user] finishes splicing cable into [target]'s [affected.name].", \ + " You finishes splicing new cable into [target]'s [affected.name].") + affected.heal_damage(0,rand(30,50),1,1) + if("finish") + user.visible_message(" [user] closes and secures the hatch on [target]'s [affected.name] with \the [tool].", \ + " You close and secure the hatch on [target]'s [affected.name] with \the [tool].") + affected.open = 0 + return 1 return 0 -/datum/surgery_step/robotics/external/repair_burn - name = "repair heat damage" - allowed_tools = list( - /obj/item/stack/cable_coil = 100 - ) - - time = 32 - -/datum/surgery_step/robotics/external/repair_burn/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - if(..()) - var/obj/item/stack/cable_coil/C = tool - var/obj/item/organ/external/affected = target.get_organ(target_zone) - var/limb_can_operate = (affected && affected.open == 2 && affected.burn_dam > 0 && target_zone != "mouth") - if(limb_can_operate) - if(istype(C)) - if(!C.get_amount() >= 3) - to_chat(user, "You need three or more cable pieces to repair this damage.") - return 2 - C.use(3) - return 1 - return 0 - -/datum/surgery_step/robotics/external/repair_burn/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) +/datum/surgery_step/robotics/external/repair/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message("[user] begins to splice new cabling into [target]'s [affected.name]." , \ - "You begin to splice new cabling into [target]'s [affected.name].") - ..() - -/datum/surgery_step/robotics/external/repair_burn/end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user] finishes splicing cable into [target]'s [affected.name].", \ - " You finishes splicing new cable into [target]'s [affected.name].") - affected.heal_damage(0,rand(30,50),1,1) - return 1 - -/datum/surgery_step/robotics/external/repair_burn/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user] causes a short circuit in [target]'s [affected.name]!", - " You cause a short circuit in [target]'s [affected.name]!") - target.apply_damage(rand(5,10), BURN, affected) + switch(current_type) + if("brute") + user.visible_message(" [user]'s [tool.name] slips, damaging the internal structure of [target]'s [affected.name].", + " Your [tool.name] slips, damaging the internal structure of [target]'s [affected.name].") + target.apply_damage(rand(5,10), BURN, affected) + if("burn") + user.visible_message(" [user] causes a short circuit in [target]'s [affected.name]!", + " You cause a short circuit in [target]'s [affected.name]!") + target.apply_damage(rand(5,10), BURN, affected) + if("finish") + user.visible_message(" [user]'s [tool.name] slips, failing to close the hatch on [target]'s [affected.name].", + " Your [tool.name] slips, failing to close the hatch on [target]'s [affected.name].") return 0 ///////condenseing remove/extract/repair here. ///////////// /datum/surgery_step/robotics/manipulate_robotic_organs - name = "internal part mainpulation" + name = "internal part manipulation" allowed_tools = list(/obj/item/device/mmi = 100) var/implements_extract = list(/obj/item/device/multitool = 100) var/implements_mend = list( /obj/item/stack/nanopaste = 100,/obj/item/weapon/bonegel = 30, /obj/item/weapon/screwdriver = 70) @@ -423,29 +443,23 @@ " You have installed \the [tool] into [target]'s [affected.name].") var/obj/item/device/mmi/M = tool - var/obj/item/organ/internal/brain/mmi_holder/holder = new() - if(istype(M, /obj/item/device/mmi/posibrain)) - holder.robotize() - holder.insert(target) user.unEquip(tool) - tool.forceMove(holder) - holder.stored_mmi = tool - holder.update_from_mmi() - - if(M.brainmob && M.brainmob.mind) - M.brainmob.mind.transfer_to(target) + M.attempt_become_organ(affected,target) else if(current_type == "extract") if(I && I.owner == target) - user.visible_message(" [user] has decoupled [target]'s [surgery.current_organ] with \the [tool]." , \ - " You have decoupled [target]'s [surgery.current_organ] with \the [tool].") + user.visible_message(" [user] has decoupled [target]'s [I] with \the [tool]." , \ + " You have decoupled [target]'s [I] with \the [tool].") add_logs(target,user, "surgically removed [I.name] from", addition="INTENT: [uppertext(user.a_intent)]") spread_germs_to_organ(I, user) I.status |= ORGAN_CUT_AWAY - I.remove(target) - I.loc = get_turf(target) + var/obj/item/thing = I.remove(target) + if(!istype(thing)) + thing.forceMove(get_turf(target)) + else + user.put_in_hands(thing) else user.visible_message("[user] can't seem to extract anything from [target]'s [parse_zone(target_zone)]!", "You can't extract anything from [target]'s [parse_zone(target_zone)]!") @@ -490,81 +504,9 @@ var/obj/item/organ/external/affected = target.get_organ(target_zone) user.visible_message(" [user]'s [tool.name] slips, failing to close the hatch on [target]'s [affected.name].", " Your [tool.name] slips, failing to close the hatch on [target]'s [affected.name].") - return -1 + return 0 - -/datum/surgery_step/robotics/install_mmi - allowed_tools = list( - /obj/item/device/mmi = 100 - ) - - time = 64 - - can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - - if(target_zone != "chest") - return 0 - - var/obj/item/device/mmi/M = tool - var/obj/item/organ/external/affected = target.get_organ(target_zone) - if(!(affected && affected.open_enough_for_surgery())) - return 0 - - if(!istype(M)) - return 0 - - if(!M.brainmob || !M.brainmob.client || !M.brainmob.ckey || M.brainmob.stat >= DEAD) - to_chat(user, "That brain is not usable.") - return 2 - - if(!(affected.status & ORGAN_ROBOT)) - to_chat(user, "You cannot install a computer brain into a meat enclosure.") - return 2 - - if(!target.species) - to_chat(user, "You have no idea what species this person is. Report this on the bug tracker.") - return 2 - - if(!target.species.has_organ["brain"]) - to_chat(user, "You're pretty sure [target.species.name_plural] don't normally have a brain.") - return 2 - - if(target.get_int_organ(/obj/item/organ/internal/brain/)) - to_chat(user, "Your subject already has a brain.") - return 2 - - return 1 - - begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message("[user] starts installing \the [tool] into [target]'s [affected.name].", \ - "You start installing \the [tool] into [target]'s [affected.name].") - ..() - - end_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - var/obj/item/organ/external/affected = target.get_organ(target_zone) - user.visible_message(" [user] has installed \the [tool] into [target]'s [affected.name].", \ - " You have installed \the [tool] into [target]'s [affected.name].") - - var/obj/item/device/mmi/M = tool - var/obj/item/organ/internal/brain/mmi_holder/holder = new() - if(istype(M, /obj/item/device/mmi/posibrain)) - holder.robotize() - - holder.insert(target) - user.unEquip(tool) - tool.forceMove(holder) - holder.stored_mmi = tool - holder.update_from_mmi() - - if(M.brainmob && M.brainmob.mind) - M.brainmob.mind.transfer_to(target) - - fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - user.visible_message(" [user]'s hand slips.", \ - " Your hand slips.") - /datum/surgery_step/robotics/external/amputate name = "remove robotic limb" @@ -589,11 +531,14 @@ add_logs(target,user ,"surgically removed [affected.name] from", addition="INTENT: [uppertext(user.a_intent)]")//log it - affected.droplimb(1,DROPLIMB_EDGE) + var/atom/movable/thing = affected.droplimb(1,DROPLIMB_EDGE) + if(istype(thing,/obj/item)) + user.put_in_hands(thing) + return 1 /datum/surgery_step/robotics/external/fail_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) user.visible_message(" [user]'s hand slips!", \ " Your hand slips!") - return 0 \ No newline at end of file + return 0 diff --git a/code/modules/surgery/surgery.dm b/code/modules/surgery/surgery.dm index 8a60718ccbf..bbde2f3fd32 100644 --- a/code/modules/surgery/surgery.dm +++ b/code/modules/surgery/surgery.dm @@ -43,7 +43,7 @@ /datum/surgery/proc/complete(mob/living/carbon/human/target) target.surgeries -= src - src = null + qdel(src) @@ -95,6 +95,8 @@ return 0 /datum/surgery_step/proc/initiate(mob/user, mob/living/carbon/target, target_zone, obj/item/tool, datum/surgery/surgery) + if(!can_use(user, target, target_zone, tool, surgery)) + return surgery.step_in_progress = 1 if(begin_step(user, target, target_zone, tool, surgery) == -1) @@ -110,7 +112,7 @@ if(prob_chance > 100)//if we are using a super tool time = time/prob_chance //PLACEHOLDER VALUES - + time = 1 // DEBUG LINE if(do_after(user, time, target = target)) @@ -154,7 +156,7 @@ // checks whether this step can be applied with the given user and target /datum/surgery_step/proc/can_use(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) - return 0 + return 1 // does stuff to begin the step, usually just printing messages. Moved germs transfering and bloodying here too /datum/surgery_step/proc/begin_step(mob/living/user, mob/living/carbon/human/target, target_zone, obj/item/tool,datum/surgery/surgery) From 28de2252c6e24e0b6165e411c2429f4c46fcf13a Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Sun, 14 Aug 2016 18:27:04 -0700 Subject: [PATCH 22/92] Removes debugging code --- code/modules/mob/living/carbon/carbon_defenses.dm | 7 ------- code/modules/surgery/organs/subtypes/machine.dm | 2 -- code/modules/surgery/surgery.dm | 2 +- 3 files changed, 1 insertion(+), 10 deletions(-) diff --git a/code/modules/mob/living/carbon/carbon_defenses.dm b/code/modules/mob/living/carbon/carbon_defenses.dm index 69f882379ed..efebc58ffc1 100644 --- a/code/modules/mob/living/carbon/carbon_defenses.dm +++ b/code/modules/mob/living/carbon/carbon_defenses.dm @@ -36,11 +36,4 @@ for(var/datum/disease/D in user.viruses) if(D.IsSpreadByTouch()) ContractDisease(D) - - if(lying) - if(surgeries.len) - if(user != src && user.a_intent == "help") - for(var/datum/surgery/S in surgeries) - if(S.next_step(user, src)) - return 1 return 0 diff --git a/code/modules/surgery/organs/subtypes/machine.dm b/code/modules/surgery/organs/subtypes/machine.dm index 5ea937c0bb1..9c41afd0ecb 100644 --- a/code/modules/surgery/organs/subtypes/machine.dm +++ b/code/modules/surgery/organs/subtypes/machine.dm @@ -163,7 +163,6 @@ /obj/item/organ/internal/brain/mmi_holder/Destroy() if(stored_mmi) - log_debug("Deleting MMI!") qdel(stored_mmi) return ..() @@ -178,7 +177,6 @@ . = stored_mmi if(owner.mind) owner.mind.transfer_to(stored_mmi.brainmob) - log_debug("Releasing MMI!") // move it to nullspace momentarily. If it STAYS there, we got a problem - // the caller needs to set the location of the removed organ for this to work contents -= stored_mmi diff --git a/code/modules/surgery/surgery.dm b/code/modules/surgery/surgery.dm index bbde2f3fd32..defa57b3ca4 100644 --- a/code/modules/surgery/surgery.dm +++ b/code/modules/surgery/surgery.dm @@ -112,7 +112,7 @@ if(prob_chance > 100)//if we are using a super tool time = time/prob_chance //PLACEHOLDER VALUES - time = 1 // DEBUG LINE + if(do_after(user, time, target = target)) From 4c932151588e8bd8d93874758ce4aeb9a50b9a70 Mon Sep 17 00:00:00 2001 From: Fox-McCloud Date: Sun, 14 Aug 2016 21:37:24 -0400 Subject: [PATCH 23/92] Removes A Few Object Verbs --- code/datums/action.dm | 12 +++++++ code/modules/clothing/head/misc.dm | 20 ++++++----- code/modules/clothing/head/soft_caps.dm | 38 +++++++++++--------- code/modules/clothing/masks/miscellaneous.dm | 14 +++++--- code/modules/detective_work/scanner.dm | 8 ++--- 5 files changed, 58 insertions(+), 34 deletions(-) diff --git a/code/datums/action.dm b/code/datums/action.dm index 8457a7fc825..b710ba110a4 100644 --- a/code/datums/action.dm +++ b/code/datums/action.dm @@ -145,6 +145,9 @@ /datum/action/item_action/startchainsaw name = "Pull The Starting Cord" +/datum/action/item_action/print_report + name = "Print Forensic Report" + /datum/action/item_action/toggle_gunlight name = "Toggle Gunlight" @@ -241,6 +244,15 @@ name = "Adjust [target.name]" button.name = name +/datum/action/item_action/pontificate + name = "Pontificate Evilly" + +/datum/action/item_action/tip_fedora + name = "Tip Fedora" + +/datum/action/item_action/flip_cap + name = "Flip Cap" + /datum/action/item_action/switch_hud name = "Switch HUD" diff --git a/code/modules/clothing/head/misc.dm b/code/modules/clothing/head/misc.dm index 2133fe98e48..98e5026ae81 100644 --- a/code/modules/clothing/head/misc.dm +++ b/code/modules/clothing/head/misc.dm @@ -177,21 +177,25 @@ desc = "There's a new sheriff in town. Pass the whiskey." /obj/item/clothing/head/fedora - name = "\improper fedora" + name = "fedora" icon_state = "fedora" item_state = "fedora" desc = "A great hat ruined by being within fifty yards of you." + actions_types = list(/datum/action/item_action/tip_fedora) -//TIPS FEDORA -/obj/item/clothing/head/fedora/verb/tip_fedora() - set name = "Tip Fedora" - set category = "Object" - set desc = "Show that CIS SCUM who's boss." +/obj/item/clothing/head/fedora/attack_self(mob/user) + tip_fedora(user) + +/obj/item/clothing/head/fedora/item_action_slot_check(slot) + if(slot == slot_head) + return 1 + +/obj/item/clothing/head/fedora/proc/tip_fedora(mob/user) + user.visible_message("[user] tips their fedora.", "You tip your fedora") - usr.visible_message("[usr] tips their fedora.","You tip your fedora") /obj/item/clothing/head/fez - name = "\improper fez" + name = "fez" icon_state = "fez" item_state = "fez" desc = "Put it on your monkey, make lots of cash money." diff --git a/code/modules/clothing/head/soft_caps.dm b/code/modules/clothing/head/soft_caps.dm index e7dae7d04da..8727065fb5b 100644 --- a/code/modules/clothing/head/soft_caps.dm +++ b/code/modules/clothing/head/soft_caps.dm @@ -5,25 +5,29 @@ item_state = "helmet" item_color = "cargo" var/flipped = 0 + actions_types = list(/datum/action/item_action/flip_cap) - dropped() - src.icon_state = "[item_color]soft" - src.flipped=0 - ..() +/obj/item/clothing/head/soft/dropped() + icon_state = "[item_color]soft" + flipped = 0 + ..() - verb/flip() - set category = "Object" - set name = "Flip cap" - set src in usr - if(usr.canmove && !usr.stat && !usr.restrained()) - src.flipped = !src.flipped - if(src.flipped) - icon_state = "[item_color]soft_flipped" - to_chat(usr, "You flip the hat backwards.") - else - icon_state = "[item_color]soft" - to_chat(usr, "You flip the hat back in normal position.") - usr.update_inv_head() //so our mob-overlays update +/obj/item/clothing/head/soft/attack_self(mob/user) + flip(user) + +/obj/item/clothing/head/soft/proc/flip(mob/user) + flipped = !flipped + if(flipped) + icon_state = "[item_color]soft_flipped" + to_chat(usr, "You flip the hat backwards.") + else + icon_state = "[item_color]soft" + to_chat(user, "You flip the hat back in normal position.") + user.update_inv_head() //so our mob-overlays update + + for(var/X in actions) + var/datum/action/A = X + A.UpdateButtonIcon() /obj/item/clothing/head/soft/red name = "red cap" diff --git a/code/modules/clothing/masks/miscellaneous.dm b/code/modules/clothing/masks/miscellaneous.dm index dd66740f966..f299419ed09 100644 --- a/code/modules/clothing/masks/miscellaneous.dm +++ b/code/modules/clothing/masks/miscellaneous.dm @@ -82,6 +82,7 @@ desc = "moustache is totally real." icon_state = "fake-moustache" flags_inv = HIDEFACE + actions_types = list(/datum/action/item_action/pontificate) species_fit = list("Vox", "Unathi", "Tajaran", "Vulpkanin") sprite_sheets = list( "Vox" = 'icons/mob/species/vox/mask.dmi', @@ -90,12 +91,15 @@ "Vulpkanin" = 'icons/mob/species/vulpkanin/mask.dmi' ) -/obj/item/clothing/mask/fakemoustache/verb/pontificate() - set name = "Pontificate Evilly" - set category = "Object" - set desc = "Devise evil plans of evilness." +/obj/item/clothing/mask/fakemoustache/attack_self(mob/user) + pontificate(user) - usr.visible_message("\ [usr] twirls \his moustache and laughs [pick("fiendishly","maniacally","diabolically","evilly")]!") +/obj/item/clothing/mask/fakemoustache/item_action_slot_check(slot) + if(slot == slot_wear_mask) + return 1 + +/obj/item/clothing/mask/fakemoustache/proc/pontificate(mob/user) + user.visible_message("\ [user] twirls \his moustache and laughs [pick("fiendishly","maniacally","diabolically","evilly")]!") //scarves (fit in in mask slot) diff --git a/code/modules/detective_work/scanner.dm b/code/modules/detective_work/scanner.dm index 58c1c31a3b8..be8e7d147a2 100644 --- a/code/modules/detective_work/scanner.dm +++ b/code/modules/detective_work/scanner.dm @@ -14,6 +14,7 @@ origin_tech = "magnets=4;biotech=2" var/scanning = 0 var/list/log = list() + actions_types = list(/datum/action/item_action/print_report) /obj/item/device/detective_scanner/attack_self(var/mob/user) var/search = input(user, "Enter name, fingerprint or blood DNA.", "Find record", "") @@ -58,11 +59,10 @@ to_chat(user, "No match found in station records.") +/obj/item/device/detective_scanner/ui_action_click() + print_scanner_report() -/obj/item/device/detective_scanner/verb/print_scanner_report() - set name = "Print Scanner Report" - set category = "Object" - +/obj/item/device/detective_scanner/proc/print_scanner_report() if(log.len && !scanning) scanning = 1 to_chat(usr, "Printing report, please wait...") From 690d8b0c1e72ddd69ae898bcebec73ef36cd5ae5 Mon Sep 17 00:00:00 2001 From: Fox-McCloud Date: Mon, 15 Aug 2016 00:06:20 -0400 Subject: [PATCH 24/92] Removes Unused Mob Vars --- code/modules/mob/dead/observer/observer.dm | 1 - code/modules/mob/living/carbon/brain/brain.dm | 1 - code/modules/mob/living/carbon/human/human_defines.dm | 4 ---- code/modules/mob/mob_defines.dm | 1 - 4 files changed, 7 deletions(-) diff --git a/code/modules/mob/dead/observer/observer.dm b/code/modules/mob/dead/observer/observer.dm index 3bdd95b648d..5bd5ec9c36f 100644 --- a/code/modules/mob/dead/observer/observer.dm +++ b/code/modules/mob/dead/observer/observer.dm @@ -16,7 +16,6 @@ var/list/image/ghost_darkness_images = list() //this is a list of images for thi anchored = 1 // don't get pushed around invisibility = INVISIBILITY_OBSERVER var/can_reenter_corpse - var/datum/hud/living/carbon/hud = null // hud var/bootime = 0 var/started_as_observer //This variable is set to 1 when you enter the game as an observer. //If you died in the game and are a ghsot - this will remain as null. diff --git a/code/modules/mob/living/carbon/brain/brain.dm b/code/modules/mob/living/carbon/brain/brain.dm index aac43c16ac3..996687ee4b0 100644 --- a/code/modules/mob/living/carbon/brain/brain.dm +++ b/code/modules/mob/living/carbon/brain/brain.dm @@ -4,7 +4,6 @@ var/obj/item/container = null var/timeofhostdeath = 0 var/emp_damage = 0//Handles a type of MMI damage - var/alert = null use_me = 0 //Can't use the me verb, it's a freaking immobile brain icon = 'icons/obj/surgery.dmi' icon_state = "brain1" diff --git a/code/modules/mob/living/carbon/human/human_defines.dm b/code/modules/mob/living/carbon/human/human_defines.dm index a74409a9b44..61ef6fb1a4f 100644 --- a/code/modules/mob/living/carbon/human/human_defines.dm +++ b/code/modules/mob/living/carbon/human/human_defines.dm @@ -58,7 +58,6 @@ var/global/default_martial_art = new/datum/martial_art var/datum/martial_art/martial_art = null var/special_voice = "" // For changing our voice. Used by a symptom. - var/said_last_words=0 var/last_dam = -1 //Used for determining if we need to process all organs or just some or even none. var/list/bad_external_organs = list()// organs we check until they are good. @@ -73,12 +72,9 @@ var/global/default_martial_art = new/datum/martial_art var/meatleft = 3 //For chef item var/decaylevel = 0 // For rotting bodies var/max_blood = BLOOD_VOLUME_NORMAL // For stuff in the vessel - var/slime_color = "blue" //For slime people this defines their color, it's blue by default to pay tribute to the old icons var/check_mutations=0 // Check mutations on next life tick - var/lastFart = 0 // Toxic fart cooldown. - var/fire_dmi = 'icons/mob/OnFire.dmi' var/fire_sprite = "Standing" diff --git a/code/modules/mob/mob_defines.dm b/code/modules/mob/mob_defines.dm index e4765b4f106..323f170facd 100644 --- a/code/modules/mob/mob_defines.dm +++ b/code/modules/mob/mob_defines.dm @@ -94,7 +94,6 @@ var/intent = null//Living var/shakecamera = 0 var/a_intent = I_HELP//Living - var/m_int = null//Living var/m_intent = "run"//Living var/lastKnownIP = null var/atom/movable/buckled = null//Living From 4ea4f5288348fdee746dacec5de87d2ae45cb88c Mon Sep 17 00:00:00 2001 From: FalseIncarnate Date: Mon, 15 Aug 2016 00:15:15 -0400 Subject: [PATCH 25/92] wololo --- code/game/objects/items/weapons/holy_weapons.dm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/game/objects/items/weapons/holy_weapons.dm b/code/game/objects/items/weapons/holy_weapons.dm index f93e4b67eca..46a948aed2f 100644 --- a/code/game/objects/items/weapons/holy_weapons.dm +++ b/code/game/objects/items/weapons/holy_weapons.dm @@ -35,7 +35,7 @@ var/list/holy_weapons_list = typesof(/obj/item/weapon/nullrod) for(var/entry in holy_weapons_list) var/obj/item/weapon/nullrod/variant = entry - if(initial(variant.reskin_selectable) == FALSE) + if(!initial(variant.reskin_selectable)) holy_weapons_list -= variant if(fluff_transformations.len) for(var/thing in fluff_transformations) From 37a9c6756045ac92f202beff1e0a49f16ba9a91a Mon Sep 17 00:00:00 2001 From: GeneralChaos81 Date: Mon, 15 Aug 2016 15:58:23 +1000 Subject: [PATCH 26/92] Corrected points Fox raised. Updated nanoUI for the new screen. --- code/game/mecha/mech_bay.dm | 19 +++++++++---------- .../items/stacks/sheets/sheet_types.dm | 1 - code/modules/admin/admin.dm | 3 --- nano/templates/mech_bay_console.tmpl | 14 +------------- 4 files changed, 10 insertions(+), 27 deletions(-) diff --git a/code/game/mecha/mech_bay.dm b/code/game/mecha/mech_bay.dm index b4f6748bde8..da8ca9787b9 100644 --- a/code/game/mecha/mech_bay.dm +++ b/code/game/mecha/mech_bay.dm @@ -20,7 +20,6 @@ var/obj/machinery/computer/mech_bay_power_console/recharge_console var/max_charge = 50 var/on = 0 - var/repairability = 0 //What's this? I don't think this is a thing on paradise var/turf/recharging_turf = null /obj/machinery/mech_bay_recharge_port/New() @@ -59,6 +58,7 @@ return if(default_change_direction_wrench(user, I)) + recharging_turf = get_step(loc, dir) return if(exchange_parts(user, I)) @@ -86,7 +86,6 @@ if(recharging_mecha.loc != recharging_turf) recharging_mecha = null recharge_console.update_icon() - return //This was missing... Is it not needed? Appeared in the original, but not in the port. Added it back in, to be safe. /obj/machinery/computer/mech_bay_power_console/proc/reconnect() @@ -140,12 +139,13 @@ if(recharge_port.recharging_mecha && !qdeleted(recharge_port.recharging_mecha)) data["recharge_port"]["mech"] = list("health" = recharge_port.recharging_mecha.health, "maxhealth" = initial(recharge_port.recharging_mecha.health), "cell" = null) if(recharge_port.recharging_mecha.cell && !qdeleted(recharge_port.recharging_mecha.cell)) - data["recharge_port"]["mech"]["cell"] = list( - "critfail" = recharge_port.recharging_mecha.cell.crit_fail, - "charge" = recharge_port.recharging_mecha.cell.charge, - "maxcharge" = recharge_port.recharging_mecha.cell.maxcharge - ) -/* Need to update the nanoUI for these new data types. + data["has_mech"] = 1 //Copied + data["mecha_name"] = recharge_port.recharging_mecha || "None" + data["mecha_charge"] = isnull(recharge_port.recharging_mecha) ? 0 : recharge_port.recharging_mecha.cell.charge + data["mecha_maxcharge"] = isnull(recharge_port.recharging_mecha) ? 0 : recharge_port.recharging_mecha.cell.maxcharge + data["mecha_charge_percentage"] = isnull(recharge_port.recharging_mecha) ? 0 : round(recharge_port.recharging_mecha.cell.percent()) + else + data["has_mech"] = 0 //Copied ui = nanomanager.try_update_ui(user, src, ui_key, ui, data, force_open) if(!ui) // the ui does not exist, so we'll create a new() one @@ -158,8 +158,7 @@ // auto update every Master Controller tick ui.set_auto_update(1) return data -*/ /obj/machinery/computer/mech_bay_power_console/initialize() reconnect() - update_icon() //this the right place for it? Otherwise the computer sits there with a black screen. \ No newline at end of file + update_icon() \ No newline at end of file diff --git a/code/game/objects/items/stacks/sheets/sheet_types.dm b/code/game/objects/items/stacks/sheets/sheet_types.dm index 763ea7bdf93..76ac7cc252e 100644 --- a/code/game/objects/items/stacks/sheets/sheet_types.dm +++ b/code/game/objects/items/stacks/sheets/sheet_types.dm @@ -113,7 +113,6 @@ var/global/list/datum/stack_recipe/plasteel_recipes = list( new /datum/stack_recipe("Surgery Table", /obj/machinery/optable, 5, time = 50, one_per_turf = 1, on_floor = 1), new /datum/stack_recipe("Metal crate", /obj/structure/closet/crate, 10, time = 50, one_per_turf = 1), new /datum/stack_recipe("Mass Driver frame", /obj/machinery/mass_driver_frame, 3, time = 50, one_per_turf = 1), - new /datum/stack_recipe("Mech Recharge Bay", /turf/simulated/floor/mech_bay_recharge_floor, 2, time = 50, one_per_turf = 1), ) /obj/item/stack/sheet/plasteel diff --git a/code/modules/admin/admin.dm b/code/modules/admin/admin.dm index d0eab325481..9fe2e6e911c 100644 --- a/code/modules/admin/admin.dm +++ b/code/modules/admin/admin.dm @@ -897,9 +897,6 @@ var/gamma_ship_location = 1 // 0 = station , 1 = space toArea = locate(/area/shuttle/gamma/space) fromArea.move_contents_to(toArea) -// for(var/turf/simulated/floor/mech_bay_recharge_floor/F in toArea) -// F.init_devices() - for(var/obj/machinery/power/apc/A in toArea) A.init() diff --git a/nano/templates/mech_bay_console.tmpl b/nano/templates/mech_bay_console.tmpl index cd80983469a..2a4cf5d6085 100644 --- a/nano/templates/mech_bay_console.tmpl +++ b/nano/templates/mech_bay_console.tmpl @@ -1,22 +1,10 @@

Subsystems

-
-
- Recharge Station: -
-
- {{if data.has_floor}} - OK - {{else}} - ERROR - {{/if}} -
-
Power Port:
- {{if data.has_port}} + {{if data.recharge_port}} OK {{else}} ERROR From dfff61da58a579241c509921cbe97fe9b947c799 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Mon, 15 Aug 2016 06:26:25 -0700 Subject: [PATCH 27/92] Removes a lot of extra interface defines --- interface/skin.dmf | 1237 ++------------------------------------------ 1 file changed, 32 insertions(+), 1205 deletions(-) diff --git a/interface/skin.dmf b/interface/skin.dmf index 4d41549359c..0620d9e8b87 100644 --- a/interface/skin.dmf +++ b/interface/skin.dmf @@ -1493,838 +1493,84 @@ menu "menu" saved-params = "is-checked" -window "Telecomms IDE" - elem "Telecomms IDE" - type = MAIN - pos = 281,0 - size = 569x582 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = #ffffff - is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "TCS IDE" - titlebar = true - statusbar = false - can-close = true - can-minimize = true - can-resize = true - is-pane = false - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "exittcs" - elem "button5" - type = BUTTON - pos = 209,464 - size = 70x20 - anchor1 = 37,80 - anchor2 = 49,83 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Clear Memory" - image = "" - command = "tcsclearmem" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "button4" - type = BUTTON - pos = 157,464 - size = 52x20 - anchor1 = 28,80 - anchor2 = 37,83 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Revert" - image = "" - command = "tcsrevert" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "button3" - type = BUTTON - pos = 105,464 - size = 52x20 - anchor1 = 18,80 - anchor2 = 28,83 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Execute" - image = "" - command = "tcsrun" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "tcserror" - type = OUTPUT - pos = 0,488 - size = 566x94 - anchor1 = 0,84 - anchor2 = 99,100 - font-family = "sans-serif" - font-size = 9 - font-style = "" - text-color = #000000 - background-color = #ffffff - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "max-lines" - on-size = "" - link-color = #0000ff - visited-color = #ff00ff - style = "" - enable-http-images = false - max-lines = 1000 - image = "" - elem "button2" - type = BUTTON - pos = 53,464 - size = 52x20 - anchor1 = 9,80 - anchor2 = 18,83 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Compile" - image = "" - command = "tcscompile" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "button1" - type = BUTTON - pos = 0,464 - size = 53x20 - anchor1 = 0,80 - anchor2 = 9,83 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Apply" - image = "" - command = "tcssave" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "tcscode" - type = INPUT - pos = 0,0 - size = 569x464 - anchor1 = 0,0 - anchor2 = 100,80 - font-family = "Courier" - font-size = 10 - font-style = "" - text-color = #000000 - background-color = #ffffff - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - command = "cancel" - multi-line = true - is-password = false - no-command = true - -window "chemdispenser" - elem "chemdispenser" - type = MAIN - pos = 281,0 - size = 340x480 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "Chem Dispenser" - titlebar = true - statusbar = false - can-close = true - can-minimize = true - can-resize = true - is-pane = false - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" - elem "energy" - type = LABEL - pos = 8,24 - size = 56x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - text = "Energy: 25" - image = "" - image-mode = center - keep-aspect = false - align = center - text-wrap = false - allow-html = false - letterbox = true - elem "eject" - type = BUTTON - pos = 264,4 - size = 72x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "[Insert beaker]" - image = "" - command = "skincmd \"chemdispenser;eject\"" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "amountc" - type = BUTTON - pos = 208,4 - size = 48x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "[Other]" - image = "" - command = "skincmd \"chemdispenser;amountc\"" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "amount3" - type = BUTTON - pos = 176,4 - size = 24x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "[30]" - image = "" - command = "skincmd \"chemdispenser;amount30\"" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "amount2" - type = BUTTON - pos = 144,4 - size = 24x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "[20]" - image = "" - command = "skincmd \"chemdispenser;amount20\"" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "amount1" - type = BUTTON - pos = 112,4 - size = 24x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "[10]" - image = "" - command = "skincmd \"chemdispenser;amount10\"" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "amount" - type = LABEL - pos = 4,4 - size = 100x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 12 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - text = "Amount: 30" - image = "" - image-mode = center - keep-aspect = false - align = center - text-wrap = false - allow-html = false - letterbox = true - elem "child1" - type = CHILD - pos = 0,40 - size = 340x440 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "splitter" - on-size = "" - left = "chemdispenser_reagents" - right = "" - is-vert = false - splitter = 50 - show-splitter = true - lock = none - -window "chemdispenser_reagents" - elem "chemdispenser_reagents" - type = MAIN - pos = 281,0 - size = 340x448 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "" - titlebar = false - statusbar = false - can-close = false - can-minimize = false - can-resize = false - is-pane = true - is-minimized = false - is-maximized = false - can-scroll = vertical - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" - elem "template_dispense" - type = BUTTON - pos = 256,8 - size = 64x32 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Dispense" - image = 'icons\\dispensebutton_bg.png' - command = "" - is-flat = true - stretch = false - is-checked = false - group = "" - button-type = pushbutton - elem "template_name" - type = LABEL - pos = 18,8 - size = 230x32 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 15 - font-style = "" - text-color = #000000 - background-color = none - is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - text = "Chloral Hydrate" - image = 'icons\\reagentname_bg.png' - image-mode = stretch - keep-aspect = false - align = center - text-wrap = false - allow-html = false - letterbox = true - window "mainwindow" elem "mainwindow" type = MAIN - pos = 281,0 size = 640x440 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false is-default = true - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "Space Station 13" - titlebar = true - statusbar = true - can-close = true - can-minimize = true - can-resize = true - is-pane = false - is-minimized = false is-maximized = true - can-scroll = none + title = "Space Station 13" icon = 'icons\\ss13_64.png' - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "macro" menu = "menu" - on-close = "" + macro = "macro" + saved-params = "pos;size;is-minimized;is-maximized" elem "asset_cache_browser" type = BROWSER - pos = 424,208 - size = 1x1 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = true - use-title = false - on-show = "" - on-hide = "" elem "hotkey_toggle" type = BUTTON + button-type = pushbox pos = 560,420 size = 80x20 anchor1 = 100,100 anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - text = "Hotkey Toggle" - image = "" - command = ".Toggle-hotkey-mode" is-flat = false - stretch = false + text = "Hotkey Toggle" + command = ".Toggle-hotkey-mode" is-checked = false - group = "" - button-type = pushbox + saved-params = "is-checked" elem "mainvsplit" type = CHILD pos = 3,0 size = 634x416 anchor1 = 0,0 anchor2 = 100,100 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "splitter" - on-size = "" - left = "" - right = "rpane" is-vert = true splitter = 50 show-splitter = true - lock = none + left = "mapwindow" + right = "rpane" + saved-params = "splitter" elem "input" type = INPUT pos = 3,420 size = 517x20 anchor1 = 0,100 anchor2 = 100,100 + is-default = true + border = sunken font-family = "" font-size = 0 font-style = "" text-color = #000000 background-color = #d3b5b5 - is-visible = true - is-disabled = false - is-transparent = false - is-default = true - border = sunken - drop-zone = false - right-click = false saved-params = "command" - on-size = "" - command = "" - multi-line = false - is-password = false - no-command = false elem "saybutton" type = BUTTON + button-type = pushbox pos = 520,420 size = 40x20 anchor1 = 100,100 anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" - text = "Chat" - image = "" - command = ".winset \"saybutton.is-checked=true?input.command=\"!say \\\"\" macrobutton.is-checked=false:input.command=\"" is-flat = false - stretch = false + text = "Chat" + command = ".winset \"saybutton.is-checked=true?input.command=\"!say \\\"\" macrobutton.is-checked=false:input.command=\"" is-checked = false - group = "" - button-type = pushbox + saved-params = "is-checked" elem "tooltip" type = BROWSER pos = 0,0 size = 999x999 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #ffffff - background-color = #000000 is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = false - use-title = false - on-show = "" - on-hide = "" window "mapwindow" elem "mapwindow" type = MAIN - pos = 281,0 - size = 640x480 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "" - titlebar = false - statusbar = false - can-close = false - can-minimize = false - can-resize = false is-pane = true - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" + saved-params = "pos;size;is-minimized;is-maximized" elem "map" type = MAP + is-default = true pos = 0,0 size = 640x480 anchor1 = 0,0 @@ -2334,65 +1580,20 @@ window "mapwindow" font-style = "" text-color = none background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = true - border = none - drop-zone = true - right-click = false - saved-params = "icon-size" - on-size = "" icon-size = 0 - text-mode = false - letterbox = true - zoom = 0 - on-show = ".winset\"mainwindow.mainvsplit.left=mapwindow\"" - on-hide = ".winset\"mainwindow.mainvsplit.left=\"" - style = "" + saved-params = "icon-size" window "outputwindow" elem "outputwindow" type = MAIN - pos = 372,0 - size = 640x480 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "" - titlebar = false - statusbar = false + is-pane = true can-close = false can-minimize = false - can-resize = false - is-pane = true - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" + saved-params = "pos;size;is-minimized;is-maximized" elem "browseroutput" type = BROWSER + is-disabled = true + auto-format = false pos = 0,0 size = 640x480 anchor1 = 0,0 @@ -2402,307 +1603,75 @@ window "outputwindow" font-style = "" text-color = #000000 background-color = #ffffff - is-visible = true - is-disabled = true - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = false - use-title = false - on-show = "" - on-hide = "" window "rpane" elem "rpane" type = MAIN - pos = 372,0 - size = 640x492 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "" + is-pane = true titlebar = true statusbar = true can-close = true can-minimize = true - can-resize = true - is-pane = true - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" + saved-params = "pos;size;is-minimized;is-maximized" elem "donate" type = BUTTON pos = 480,-2 size = 60x20 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 background-color = #8080ff - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Donate" - image = "" command = "Donate" - is-flat = false - stretch = false - is-checked = false - group = "" - button-type = pushbutton elem "karma" type = BUTTON pos = 410,0 size = 67x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 background-color = #ff8040 - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Karma Shop" - image = "" command = "karmashop" - is-flat = false - stretch = false - is-checked = false - group = "rpanemode" - button-type = pushbutton elem "rpanewindow" type = CHILD pos = -9,15 size = 636x449 anchor1 = 0,0 anchor2 = 100,100 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "splitter" - on-size = "" + is-vert = false left = "" right = "outputwindow" - is-vert = false splitter = 50 show-splitter = true - lock = none - elem "hosttracker" - type = BROWSER - pos = 392,25 - size = 1x1 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = true - use-title = false - on-show = "" - on-hide = "" + saved-params = "splitter" elem "rulesb" type = BUTTON pos = 278,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Rules" - image = "" command = "rules" - is-flat = false - stretch = false - is-checked = false - group = "rpanemode" - button-type = pushbutton + saved-params = "is-checked" elem "changelog" type = BUTTON pos = 341,0 size = 67x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Changelog" - image = "" command = "Changelog" - is-flat = false - stretch = false - is-checked = false - group = "rpanemode" - button-type = pushbutton elem "forumb" type = BUTTON pos = 215,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Forum" - image = "" command = "forum" - is-flat = false - stretch = false - is-checked = false - group = "rpanemode" - button-type = pushbutton elem "wikib" type = BUTTON pos = 152,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "is-checked" - on-size = "" text = "Wiki" - image = "" command = "wiki" - is-flat = false - stretch = false - is-checked = false - group = "rpanemode" - button-type = pushbutton elem "textb" type = BUTTON pos = 0,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false saved-params = "is-checked" - on-size = "" text = "Text" - image = "" command = ".winset \"rpanewindow.left=;\"" - is-flat = false - stretch = false is-checked = true group = "rpanemode" button-type = pushbox @@ -2710,197 +1679,55 @@ window "rpane" type = BUTTON pos = 561,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false saved-params = "is-checked" - on-size = "" text = "Browser" - image = "" command = ".winset \"rpanewindow.left=browserwindow\"" - is-flat = false - stretch = false - is-checked = false group = "rpanemode" button-type = pushbox elem "infob" type = BUTTON pos = 64,0 size = 60x16 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none is-visible = false - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false saved-params = "is-checked" - on-size = "" text = "Info" - image = "" command = ".winset \"rpanewindow.left=infowindow\"" - is-flat = false - stretch = false - is-checked = false group = "rpanemode" button-type = pushbox window "browserwindow" elem "browserwindow" type = MAIN - pos = 281,0 - size = 640x480 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "Browser" - titlebar = true - statusbar = true - can-close = true - can-minimize = true - can-resize = true is-pane = true - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" + saved-params = "pos;size;is-minimized;is-maximized" + title = "Browser" elem "browser" type = BROWSER pos = 0,0 size = 640x499 anchor1 = 0,0 anchor2 = 100,100 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = #ffffff - is-visible = true - is-disabled = false - is-transparent = false is-default = true - border = none - drop-zone = false - right-click = false - saved-params = "" - on-size = "" - show-history = false - show-url = false - auto-format = true - use-title = false on-show = ".winset\"rpane.infob.is-visible=true?rpane.infob.pos=130,0;rpane.textb.is-visible=true;rpane.browseb.is-visible=true;rpane.browseb.is-checked=true;rpane.rpanewindow.pos=0,30;rpane.rpanewindow.size=0x0;rpane.rpanewindow.left=browserwindow\"" on-hide = ".winset\"rpane.infob.is-visible=true?rpane.infob.is-checked=true rpane.infob.pos=65,0 rpane.rpanewindow.left=infowindow:rpane.rpanewindow.left=textwindow rpane.textb.is-visible=true rpane.rpanewindow.pos=0,30 rpane.rpanewindow.size=0x0\"" window "infowindow" elem "infowindow" type = MAIN - pos = 281,0 - size = 640x480 - anchor1 = none - anchor2 = none - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = none - is-visible = true - is-disabled = false - is-transparent = false - is-default = false - border = none - drop-zone = false - right-click = false - saved-params = "pos;size;is-minimized;is-maximized" - on-size = "" - title = "Info" - titlebar = true - statusbar = true - can-close = true - can-minimize = true - can-resize = true is-pane = true - is-minimized = false - is-maximized = false - can-scroll = none - icon = "" - image = "" - image-mode = stretch - keep-aspect = false - transparent-color = none - alpha = 255 - macro = "" - menu = "" - on-close = "" + saved-params = "pos;size;is-minimized;is-maximized" + title = "Info" elem "info" type = INFO pos = 0,0 size = 638x475 anchor1 = 0,0 anchor2 = 100,100 - font-family = "" - font-size = 0 - font-style = "" - text-color = #000000 - background-color = #ffffff - is-visible = true - is-disabled = false - is-transparent = false is-default = true - border = none - drop-zone = true - right-click = false - saved-params = "" - on-size = "" highlight-color = #00aa00 tab-text-color = #000000 - tab-background-color = none - tab-font-family = "" - tab-font-size = 0 - tab-font-style = "" allow-html = true multi-line = true on-show = ".winset\"rpane.infob.is-visible=true;rpane.browseb.is-visible=true?rpane.infob.pos=130,0:rpane.infob.pos=65,0 rpane.textb.is-visible=true rpane.infob.is-checked=true rpane.rpanewindow.pos=0,30 rpane.rpanewindow.size=0x0 rpane.rpanewindow.left=infowindow\"" on-hide = ".winset\"rpane.infob.is-visible=false;rpane.browseb.is-visible=true?rpane.browseb.is-checked=true rpane.rpanewindow.left=browserwindow:rpane.textb.is-visible=true rpane.rpanewindow.pos=0,30 rpane.rpanewindow.size=0x0 rpane.rpanewindow.left=\"" - on-tab = "" - prefix-color = none - suffix-color = none - From 2f459c1abdb2c4e99e5461685a1757dfa019c9b4 Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Mon, 15 Aug 2016 08:45:56 -0700 Subject: [PATCH 28/92] Keeps the host-tracker in while the media manager still exists --- interface/skin.dmf | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/interface/skin.dmf b/interface/skin.dmf index 0620d9e8b87..2e60e46aa6d 100644 --- a/interface/skin.dmf +++ b/interface/skin.dmf @@ -1567,6 +1567,7 @@ window "mapwindow" elem "mapwindow" type = MAIN is-pane = true + title = "Map window" saved-params = "pos;size;is-minimized;is-maximized" elem "map" type = MAP @@ -1590,6 +1591,7 @@ window "outputwindow" can-close = false can-minimize = false saved-params = "pos;size;is-minimized;is-maximized" + title = "Output window" elem "browseroutput" type = BROWSER is-disabled = true @@ -1607,12 +1609,8 @@ window "outputwindow" window "rpane" elem "rpane" type = MAIN - is-pane = true - titlebar = true - statusbar = true - can-close = true - can-minimize = true saved-params = "pos;size;is-minimized;is-maximized" + is-pane = true elem "donate" type = BUTTON pos = 480,-2 @@ -1633,19 +1631,23 @@ window "rpane" size = 636x449 anchor1 = 0,0 anchor2 = 100,100 - is-vert = false + saved-params = "splitter" left = "" right = "outputwindow" + is-vert = false splitter = 50 show-splitter = true - saved-params = "splitter" + elem "hosttracker" + type = BROWSER + pos = 392,25 + size = 1x1 + is-visible = true elem "rulesb" type = BUTTON pos = 278,0 size = 60x16 text = "Rules" command = "rules" - saved-params = "is-checked" elem "changelog" type = BUTTON pos = 341,0 From 60ff7e100a431b70c160019c39f5dabe57a0398e Mon Sep 17 00:00:00 2001 From: Crazylemon64 Date: Mon, 15 Aug 2016 09:44:07 -0700 Subject: [PATCH 29/92] Clicky stat buttons --- .../ProcessScheduler/core/process.dm | 6 ++- .../ProcessScheduler/core/processScheduler.dm | 4 +- code/controllers/master_controller.dm | 3 ++ code/datums/statclick.dm | 39 +++++++++++++++++++ paradise.dme | 1 + 5 files changed, 50 insertions(+), 3 deletions(-) create mode 100644 code/datums/statclick.dm diff --git a/code/controllers/ProcessScheduler/core/process.dm b/code/controllers/ProcessScheduler/core/process.dm index 24fde08e2d8..8cbf9ec3faa 100644 --- a/code/controllers/ProcessScheduler/core/process.dm +++ b/code/controllers/ProcessScheduler/core/process.dm @@ -326,7 +326,9 @@ var/averageRunTime = round(getAverageRunTime(), 0.1)/10 var/lastRunTime = round(getLastRunTime(), 0.1)/10 var/highestRunTime = round(getHighestRunTime(), 0.1)/10 - stat("[name]", "T#[getTicks()] | AR [averageRunTime] | LR [lastRunTime] | HR [highestRunTime] | D [cpu_defer_count]") + if(!statclick) + statclick = new (src) + stat("[name]", statclick.update("T#[getTicks()] | AR [averageRunTime] | LR [lastRunTime] | HR [highestRunTime] | D [cpu_defer_count]")) /datum/controller/process/proc/catchException(var/exception/e, var/thrower) if(istype(e)) // Real runtimes go to the real error handler @@ -358,4 +360,4 @@ /datum/controller/process/proc/catchBadType(var/datum/caught) if(isnull(caught) || !istype(caught) || !isnull(caught.gcDestroyed)) return // Only bother with types we can identify and that don't belong - catchException("Type [caught.type] does not belong in process' queue") \ No newline at end of file + catchException("Type [caught.type] does not belong in process' queue") diff --git a/code/controllers/ProcessScheduler/core/processScheduler.dm b/code/controllers/ProcessScheduler/core/processScheduler.dm index 8eb0b37c0b8..9f13f08fde8 100644 --- a/code/controllers/ProcessScheduler/core/processScheduler.dm +++ b/code/controllers/ProcessScheduler/core/processScheduler.dm @@ -368,7 +368,9 @@ var/global/datum/controller/processScheduler/processScheduler if(!isRunning) stat("Processes", "Scheduler not running") return - stat("Processes", "[processes.len] (R [running.len] / Q [queued.len] / I [idle.len])") + if(!statclick) + statclick = new (src) + stat("Processes", statclick.update("[processes.len] (R [running.len] / Q [queued.len] / I [idle.len])")) stat(null, "[round(cpuAverage, 0.1)] CPU, [round(timeAllowance, 0.1)/10] TA") for(var/datum/controller/process/p in processes) p.statProcess() diff --git a/code/controllers/master_controller.dm b/code/controllers/master_controller.dm index f013e4e817c..2dc0e38e66c 100644 --- a/code/controllers/master_controller.dm +++ b/code/controllers/master_controller.dm @@ -15,6 +15,9 @@ var/global/pipe_processing_killed = 0 var/iteration = 0 var/processing_interval = 0 + // Dummy object to let us click it to debug while in the stat panel + var/obj/effect/statclick/debug/statclick + /datum/controller/proc/recover() // If we are replacing an existing controller (due to a crash) we attempt to preserve as much as we can. /datum/controller/game_controller diff --git a/code/datums/statclick.dm b/code/datums/statclick.dm new file mode 100644 index 00000000000..90446294f7d --- /dev/null +++ b/code/datums/statclick.dm @@ -0,0 +1,39 @@ +// Not TECHNICALLY a datum, but this should never be instantiated +// outside of the stat panel +// Clickable stat() button +/obj/effect/statclick + var/target + +/obj/effect/statclick/New(ntarget, text) + name = text + target = ntarget + +/obj/effect/statclick/proc/update(text) + name = text + return src + +/obj/effect/statclick/debug + var/class + +/obj/effect/statclick/debug/New(ntarget) + name = "Initializing..." + target = ntarget + if(istype(target, /datum/controller/process)) + class = "process" + else if(istype(target, /datum/controller/processScheduler)) + class = "scheduler" + else if(istype(target, /datum/controller)) + class = "controller" + else if(istype(target, /datum)) + class = "datum" + else + class = "unknown" + +// This bit is called when clicked in the stat panel +/obj/effect/statclick/debug/Click() + if(!usr.client.holder) + return + + usr.client.debug_variables(target) + + message_admins("Admin [key_name_admin(usr)] is debugging the [target] [class].") diff --git a/paradise.dme b/paradise.dme index 5847ccb02b8..a4ab5dd9370 100644 --- a/paradise.dme +++ b/paradise.dme @@ -207,6 +207,7 @@ #include "code\datums\recipe.dm" #include "code\datums\ruins.dm" #include "code\datums\spell.dm" +#include "code\datums\statclick.dm" #include "code\datums\supplypacks.dm" #include "code\datums\uplink_item.dm" #include "code\datums\vision_override.dm" From e322d4881da045f582938e01044c4d218a05ef76 Mon Sep 17 00:00:00 2001 From: Isaac Erwin Date: Mon, 15 Aug 2016 15:58:17 -0400 Subject: [PATCH 30/92] Adds floor painters to engineering cyborgs and maintenance drones --- code/modules/mob/living/silicon/robot/robot_modules.dm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/code/modules/mob/living/silicon/robot/robot_modules.dm b/code/modules/mob/living/silicon/robot/robot_modules.dm index bd2712cdcdb..e26e798e3ce 100644 --- a/code/modules/mob/living/silicon/robot/robot_modules.dm +++ b/code/modules/mob/living/silicon/robot/robot_modules.dm @@ -193,6 +193,7 @@ src.modules += new /obj/item/taperoll/engineering(src) src.modules += new /obj/item/weapon/gripper(src) src.modules += new /obj/item/weapon/matter_decompiler(src) + src.modules += new /obj/item/device/floor_painter(src) src.emag = new /obj/item/borg/stun(src) @@ -480,6 +481,7 @@ src.modules += new /obj/item/weapon/reagent_containers/spray/cleaner/drone(src) src.modules += new /obj/item/weapon/soap(src) src.modules += new /obj/item/device/t_scanner(src) + src.modules += new /obj/item/device/floor_painter(src) src.emag = new /obj/item/weapon/pickaxe/drill/cyborg/diamond(src) From b9da024bc0b8a3d0fe14f03900d555b1886b386c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mieszko=20J=C4=99drzejczak?= Date: Mon, 15 Aug 2016 23:13:48 +0200 Subject: [PATCH 31/92] Floofs. --- code/modules/customitems/item_defines.dm | 15 +++++++++++++++ icons/mob/head.dmi | Bin 252001 -> 252767 bytes icons/mob/species/vox/head.dmi | Bin 18524 -> 19413 bytes icons/mob/species/vox/suit.dmi | Bin 200285 -> 202207 bytes icons/mob/suit.dmi | Bin 478796 -> 481183 bytes icons/obj/clothing/hats.dmi | Bin 117071 -> 117478 bytes icons/obj/clothing/suits.dmi | Bin 156176 -> 156652 bytes 7 files changed, 15 insertions(+) diff --git a/code/modules/customitems/item_defines.dm b/code/modules/customitems/item_defines.dm index 5b83cfb0415..71b9a1e4491 100644 --- a/code/modules/customitems/item_defines.dm +++ b/code/modules/customitems/item_defines.dm @@ -326,6 +326,11 @@ if(H.head == src) H.slurring = max(3, H.slurring) //always slur +/obj/item/clothing/head/beret/fluff/linda //Epic_Charger: Linda Clark + name = "Green beret" + desc = "A beret, an artists favorite headwear. This one has two holes cut on the edges." + icon_state = "linda_beret" + //////////// Suits //////////// /obj/item/clothing/suit/storage/labcoat/fluff/aeneas_rinil //Socialsystem: Lynn Fea name = "Robotics labcoat" @@ -392,6 +397,16 @@ icon = 'icons/obj/custom_items.dmi' icon_state = "stobarico_jacket" + +/obj/item/clothing/suit/hooded/hoodie/fluff/linda // Epic_Charger: Linda Clark + name = "Green Nanotrasen Hoodie" + desc = "A green hoodie with the Nanotrasen logo on the back. It looks weathered." + icon_state = "linda_hoodie" + hoodtype = /obj/item/clothing/head/hood/fluff/linda + +/obj/item/clothing/head/hood/fluff/linda //Epic_Charger: Linda Clark + icon_state = "greenhood" + //////////// Uniforms //////////// /obj/item/clothing/under/fluff/kharshai // Kharshai: Athena Castile name = "Castile formal outfit" diff --git a/icons/mob/head.dmi b/icons/mob/head.dmi index 57405bbe13713d3258dafad2ce6ab38d6d9f6ae5..b8f6f29812a6688d836ae26963e6334032dca349 100644 GIT binary patch delta 20892 zcmb@uc{o(>{|9^qSwcwmWulKF`w}9?5-JH5vX1OwELpQ1MTnwOL|L*__I+Q*F3FOt zV<-C_W5$@}IX>Ut@B3`m^WSr>%b0V{ec$Jt`+l#l*Za(TDa&j%%jlX&CfJRikp6x;+H6y6;Cu z?2ge>QBi+4(4eVN5b2ewHcg5h8TIfVBl_#0a~*S%^bdL~e-0mrr=UzfJ__ZqoYZOH zJ?tyGUh%PDEA_0X>(ma8hc;^Rh$I_w#yRS#!ita6(AfUouB^Os*AuXRr9GuLjwNHi zz*&Qx?Y|rLIZS~qu@YC7%&Gzt1KW=8Q`#eX@=gPd*q~HRE3O*riPGkOL`3rZe*gaM zSFlmo+-cWZjhdVqjXF5+jX11VU0*kuEMpED^E1s@^laY?FyvDv^HVBN#A$3@yE$o; zlTi^(N}a@HlK8*qAp_f15IV-g^|TS1xaP4@X>oDw+qYj%Vr*r&nJ^pR_O}8vR8g+@ z?_tcqwfFhKl;FFeO_THen6~8r`C-K=5T`JGJUfl8LMiiYc!nuy^V|(#(kW~2|3Ls= zzdw9N1-!^J%<#ibhZ5@=nyZPzi}75`*vYxr(~x3fdp`HOttv{T~x#jZS_&C7{vz?ocQD8cDu4w zPK}tLEM^o6<>Kb{yQ;ZmZv{`y55^<9Dem0h-jTMbq!>*m5?FtL{!)MTOO%DRwhM}{ zW2JQHt=2S^OF$U;-Z`C{w{PF~j2kEkI+YoZO%POzrKUTx3i4{XO}>8r{&`2obq7bs zHBOB<=t6o4f;x{L<$2hb`Z}h*CE%^F{+M1jKV}Ub;3Kq`)6~cr-VEDpJQDkn&(Ztl z@UO+{G)q509lKW-__$T8vD~RjDzx-ynrW$j($m<}lQd^${mn8AzkdN!jy+S>oXaeaQI<)Z$JtVWb3|!|&nR%Hcy{ z0`MMN`nBg(b=yL=M8PBR>J@SZl|PLo8{E=YH1>w zO!g1W?B-TJq>L6>zDY^x*&FjF%FD~c0=w`ln{uD$j?cuS)4M4+0pOZFaje)pqGq&c z5x=2K_AIibYf)P)VYYG07vI~=a9(&dGSEIYW=L>mamGT&U_jTL(G;a6yZ$AJwg)_z zPMabk*5;vB)LsKC2-I%S!K$&9s(`XZdd!Cp+zsYEK_iHu15v>C=LcC)Ny!n%gYXX~ z0B|0-d0q29QGj|EYE>l=^nie_#=Lm(0=n@rZVBs@FE5+iUrtw-CBO1k5jQgpMFEWC z&s>_;-P%{6W3Agwv$h~^#?$vvwEwKmG;~N4TIDj=&c{DLW@Po^^>ibtf$b?IBM|eF zeyoV1g#P$>luP(R+m=&DkAi1d?1^Mt*NrT&XXRmwSM@~eB&$EDmouo_KeP-QHVh3Z z-d>dcWUz=N5%h1(QTLSEJbsR$jOrI_Ks(>UNFr+}FED^q5lVbQ^dS!9>>-v!loyIm zYgRa-e;?E0>C)GKrzz}pT86AuJ&=f@XQAUgIR1NTocw1fg-kj=S-05D6fX>LUH>P| zJ4xYd{HRoQ`ZH%B!RYS-hjMNXtz(zn;gp++7qPs7*qvFVh4t5N%JT)Ag39{%{=>b5 z+Ceb3TCw8y@qr+vVF!)0Xqx%7wFu%!xP~P>S8GAfaCqtuIR(p~wZ~{@{eqR-ZgHos zMh8(geJIokm*t$b44d5Q-+IkE0)rQPJy5@#iSWP!1_jGcaEcs)@?y^9r?Ql!Waq1F z*gb~QCYsvK^4^>QvZ%Ot`}#;h+6)&vI~YMa#)->KmVuNo5fPD7Ku~1Awf@uZmy1%5 zx&z9B{PKPu+u7OW)O^m*;!jCQ8Ly#)t5DbFXIZ%#bQ27v9?%17QrPm~9i?yiqTS6T zI+??AS*Q_kxP{2nN69YogcYc`KxH+B|}r^Musf4@73f53c^ z$Wn&^s^9yDp=oOc#e(zg!+G~OP;-m`vo);I2BexXOSANBdJis2vvp@I4nPLgElqN9 z_SXz;Vjc`zHR56J!?Su^k+8YTQ+lc~zSYOTaYDMf@BI|^sHCv)r$-&5TAQg}=*W8k z^?;Ebwrg-@FAdbkpO{p|g9*Cw?%eWx-p@A&S`{Ahrd!Ft!o&|VLk($Ne`h3Gn7K{0 zz<1|=DNp&^dWY~1MGBca=FkFMIh;(1XPOrZt* zxA0@lI}aZ{CimVn8;qwwQZ=_R;>4xCafK}Gt}-=j$EDsY2m(#<6v%|TL&lwW)5+VH zQimRQ?%qRRxOm$FB}?v$Uf)~ltY#(j4wn4-WL`1@Rtr*=zjKBh{T`!_%qaW|gm)rx zLD+K*+uWk~hIk5x>S8JI{6U#Kw7AyYlm?SUZ>8pEH8}~wm%^C38uYrTzingjh!Mz4 z0QJ&xXqvc0!8-8}yhsoYFj1HSm+W(~o_a=&r&Eb8B*y7-FW%6IQPeqI9 zy}o2-dBGs73H)-eU`giM?+SsQYUZ8CJ{t8D6ZroGBV<`Y!vl#uiE}MtSe~pY`d3RP6e9XenD?*o!KA zGm&A{XyvPqmzwB9)kY4(e{ty-!3m$Yq%{s_lAf{6l9?gdxvPDtsI`xo8_pi(N9osv zl&%XYcN#&$!-1A|F!^O0Lj@5XB{=0?Ae)2#5HvCBe!P)=d2QrrTm&u9$L!KeVq2jh z*vD{rwYj&(Z^0)pK0TuU+{zEF%{!%fh*>8-#P4|B$wU~1FkSk|$wVuo>=K^yW17~A z`&rw7&r`16H&?&eFvAy%`55lsk}mn1vxwYE9C*4f0;fEe2A8Qyu>t#^gRB!k08bk4 zEwew?J27P$;#o!}4^_#YjYp=|-R+58@Nk042c(y5`kQkaCF4BN8DW(I6t;*gV6L)z zHWyaup3bYj+LK5{*W^vSO5XN}Xz(TucsTFlgI)23mkdvT!YQR8nPX;hz~aT}^|)R0;7Lxc4a?ve;yE1&Jyu!K)A4Thz2~)@Wf`mTvl{il z?{`g%&lGs_I9=P#{D6mnVhUIN1TgLTF~w+f{R!Lwv){KXya zi+AcdMN;?ld?PCf(7MNHypwcq=BA%oi-zH%0ZLilcQwldO3aUK_0~IesF+~89Ly|u zMFmdDN=R!WZ&WcQT#5&YSKDQt{B^KKQgG1CJY(;^6HEl}K_UCemZoN7UQs`gX?D1| z*qn|mVKvo1h+e$;=HP88zO?w5^dog73UUhXeu!GGo*!K-EX?m(ZQJqV1GjpTI+8sn zs&qoT5%L4lqDHUxWiMwJn;e7JFaDZsf9&4cO$so)Hz|B^_C-_x)cvtu|~`#xff(9W$&MBctmD9o}x~Ee0?;^9)4yn z6;ohzHItW;uN<5}fgVCemTXaF=x~8({r9dzHkljqQ`EAa3JygfocVed*^Vym5zqwl4Wo=W_(Go(!i4R&J$Q$Oa3x)*# zPj=LsENup~%+A6eK72@j`t-BfP!e`b-!r0NBeCzD*u8hJU$gr9`nG`XiW|H%hADD7 zvb?W$|Nhkq4Q;Y~X7-EL)6;W!Y-~d?((QQGK~6U0-zmtFA2nNh;Yur~E~by$QBS{* z+))fEL)}EcdyC_@C23z8VshQ!|MXAhZ-b-a0qZlA^!u{{C@&Kdl0!opicxaZ)ywpRHi4r8f2);p~&_mbqT^nR5U|jg;cs#DQiigd67PF&0|U# zXsG}nJWFmi(Dw3@`MbaG$C#-T3Wvk-c>Jmb#a+&C{eGu;sR}fcA~G_p81ojV3iBGC zLEUUNU~Xw?#2J{hJhq-Vd9uoy8XP7{?A{kq5M7N7I!537ddGx{ntFspmw7A=bLvaY zZH5&g(Kfin{>1f-=`#VNPN6GUtUEM)bZ|w@Zs+f#M*XmUeCbHn6ZKjx$0EmOdD0i1p@O&LE8d>}7x5KhTdtcU_$;6!EK zct#mB;I+k9vTlmpq#P(Am0~s)s?)IoljkeQkuN%F$CH?_VFyDalB7n${JL0x?N0Dc zc11RO3F-9$U8aD>O8Ru!9b|@;3FzJSgR>=!nEdCONLBObm*}?~5v}3Ob&QShW-pV5 z08sj1e?7X2k_tbQSy3QR^mP&x+)}6BU8~?ML?p0Oery)(6o){axBuri0POH9JtF8dgjql}ih!mfrR2tGpT@ zem?rn?BLk7kaG><>F+R6FCt9E_Q%pz4w@%D8v1gpIv;ac&_=+7goM`1S)ealTU#=` zub@mKk@wjhNWEUf$45=LMl>!eQ#=pg zP9kHF$dMxQR?Teuhi|R^C@8elPk%oXg$A7)3na{mjnmaXe%yMOl)NfOD~xX>tQU-+ zf^plYG7VYRw+Sb)0uKDG-E+&vhkb_oY`igYNAJ)i`Jun@l_(Z^=xWDyhy0FaiFw_J zH(|QgTB`;uBI2I#9$m~m!wV}B2{L==?GB9ySdE1FOFG?`Z)fPT$lY#zv8!N{6N<@zOm{ZdrtC9#G;8r91WnRAtuEAJN0-;@pC+S+DLAGWk;Ol$3)94ad-i;0W7=SHmo8F0XM6wi_i zJ|ASKE4n)h`tbpopFhLGB?C`|x3y`V7g&4 z8;P2=OS6ZbXU>eK-;T31Ihl)=i5mbQZByNn88ruXxYZ%JX!T5tH5-*(%C;a(v!2L?2D_dMT!|9&GfGP0$&mytxkYU}CIsi>+NBasP^BtH_W{NShR zK3-}A_t_km1s*#s#1i7?YtCzVnPYYMDzQow$);|52P~+GB!QHso4_B6@Z8$h4AZUz zc*#tBY^>IkCv`!`1traGjM9zgx308IV}soyjBISAs+hB??F}>&NJw9buj7;N8WM#i z_iA2D_9}Y5C6g;w$!n*>1!2m-8de97cW-+>KH|{Er`@)fU?Co>s`}=vI#5vX5%&G# zi^jFj4xmUi5~Cp0A1>extpYQU(tp z60)munUy}Myh-|)Kp}1Z(gb)9H{+{*z(SC7Z%a;glv+AAaL|D}HK{ zD^0fbLy!keJkn1vjJzqcZFy}?5kOFjBGL}Qm{3~QQ*!}35);_@9gkXIB`oyZWW3pD z;JuEZ1I5ReN#EbKb}GN5pdF zi07%U>(SXoRd;TY$m-PZhss?gf(XX@F+JAZ-ltLN$z6Ugv}6b??RKi<_X*e z^r-Ix9mTo!ck0Pv8Ih&`Ur2)L$XCKh7c&tC7kt%@TH(k~o*lN%x7_-9dlI|Z9zC+# zL^1?@Sd}00Lg{J?1h~c)Xs<%S>bv~d$M~Xg>iu-4K#*`*PF~&^%3#08ctOa59Ry8S znGZctRo8EYASxIj5De39I|Hf&OaN6kVw(kXXWK`qOnw44B+nd8v+6XMNt`F<&SYqxEcA|C;Ac_dpE<-=-esj zlq>z_))q4Yf#7DMtwI&kTkG&$2Q~|tZES2@`L5$7wQS8QA3|ZOKZynC>+4%5VH8DU zv($AfwMSpBe)`0Ztyg?G{QD_2-Fc^o`j6EJ2NkcD!`}YLNE++)M~^^fgc~kkFjMoy zrJclG-06?h`2e7&rzdc~PYDM6{%V+Pf%~Pm zOvDb(YbRI*wmt{9wq#|0RUhkc@2nF_NZ1iQ!1DW!GPT9AG7t7S9iLzP=&>%<$zi;{aRuUM`=ml+}AFMyjuHxv`rnPHJpme4GO190e zGHF6CGuG=FuY!o zq}fk5k2ZwsanEJ9ueBBIly6nSC3OsCFkNEyXzV;SmC@A13uktz>+Xn0Te}2stl3yr z=0{9M6jMjjijMuDWSr67p4{eDi>Rj~SMVpN_YlaRXI}psBc9I0?Ln@q-0mjWf3JLf z@)hOD)2HJPPifJe%6f8x^~b=gXGm@NejYU%K$ohtMUkE0+bj_TqX%T@TfY0~vOM+F zmWLW?QB1{YAE=gQ5613OQ5#Q9UGyUgw6DD4Q_8Q%+=jF@Q8CiPt!QH-FU*gm>c%yn z(i8w_>taJRj1`TJ)ti&T^>J=N#=fZXECO0C(>RR&H>axw#d|=X|;5 zLN&*#W!C!o_*D_|M-3Htq}3C&X_4G~MkQ(hL;56ZA9a&Yt2a~KlVp6pqX(He2Co7? z#pP9GG`POUW1nM9 z-6X9QxEvjr02;l|7}gU{a>?(Xo~r)e5F~drs+qCH8fRb@?z)DB&9!HH1McWOe!tdJ zCtecL(EL#0q?OkXM`D)(@BW^Jz}hYdo_h_Y-$f`B?^^v^j=^zU(p^v{Lj@Rxaf4AS z>h)&P`HBmM%>wN+qobzNm^l}+i9Rbo|FGZ2x;i|#KK(=KIbd*bFy;zUI>|zxRp<-7 zR0+i(!>`P=5v@xouT2p3y`*S*csPe_r_ps+)NX46gR$sX zSt0>Innv)i-Ff>?QaSba6aNK1f1cNx-Dzj+oLw&-{v5&n==^yQ1LfajJpzhhKbJijwy<WofBt+7Aoc!bd-Ueshbu>>w&3fd#N_i)2_|N>>Y>TU?C5;{(BS{1nqSR~YL{ zc8?sk130>KrG+nCFt)JC(p#&5G_iV6T2z#tjzzFThs!z=GGQ!$43ywu2`9S|bS%Ph za(79HVtOs-{!e*8wJaxAhhE%+F{>Gm;8S$>>haD*X`7ovu;2GL7hE1aGTwk+3uIl8 zef8>9v8bEgHD}P#F?Txb*m_S(#It8s%@hl}>irt|mw5k9j+W`>@5gQeNzqLA zBV5e=ucQpCWYkn;hwYu+^mNnncK(Vfb`u$ctDgtN=BbVB*NvQ?8lILBJ}(Ab0PdUg ze2ipQnP6mNt43c-edpoEV#}8(lg$M=+Y2RiH%;N(U}GcUVbBBaknK=`&%f4O+MOb2 z&L+h5rneqF4_Hjg=LBA3j|RNt7SY#jLL2r5R@rhhekinbmx#Z-YItN=V_dt=r@v-&3N% zB~r-OYt+1@r!t^CEcz0cL9TOh=uGwVLBi-sILg-R8MCD9 z!2a3CM5iujZ5%E)GCC>@<@5s-AKAN?Bs4LIhIVHjcnA~`Win@B^LJeO#^TBxZknB^ zkZb_MA7aC`Tv5HKp_2NNTipYlNU18{wy;SjJWijT8>f*jDMw0EZ7nZ5cB>VfhXt=u@Hqz@`NiX`(up6|m`ID<-LLllb495~v>^4IZATkH4)8Ne>fta0Kjj$*TEP5j_~W;W(vr~-S>aJ~$2XAA zs{{vxSl^2V*(esVB~6Bz6Ly{Ouko(HAk*YcdMHV{HRhv0?Sc=nJVT2=7XBP6*8J^= z2N%TBGIV$+WCHW_MPIBnpS8iy@a?!wo>(!)5Ysu-sdka-x0$mS5HMh ziaH*)KqQ4e{jll<5S}Mk@F{sH^rw?zZvG5cKO2w+1|fAB0f)NE^bfFUE^8+Z#?-;O zf$q9n?cNQkc1O%Dp^FInE~ekM-QIZ!S2yuHQfHKN0mAz$1;QornOEX?2y?ghkdd_igp)+v1>&noE z=q%klSSPTbJGSQ#6jhWyP8%?K2Fk}fQp_3ybI5_c08=DX^k5-U;Q@h%av*Ty_H8SgXz8T#LGHS+Q{J^MOI7x#|2><$ZL&E=(>BSe>oA(65ofR8}d^S}r zBuqCiOX<00!qwe=w4*Eb8^*$=r1auCPXpz5fN$zM(l61K?5wWc=zEW}&l5|(X2D*B zk;*Erz}3S@vRf2ukRieGWq7l~_ zYyE|DQ}G~Kg)D5fE$Kd4>z!SO9?;NPW?FS~61?6O6(@tbJ8&%T4;%Y=O%z3YfX|W8 z)(y%Mc8%j1+#VhpDlFDUeGGfJ5p7DjDYXNzN#U-L_58u+&)+}6nzk>_%^RvyFL8yxm#PTIgUWiUm#% zxBuvHs14=K96(G$f>{m6xpP4HFbKtaw|Z}Jv>e^#i#`K~m_oZO``^D3|zR^@dfs zqbfOcpf9kj@a)cJD%YvWpl-=v|L*#0G^3+*GG1C!T3G7c^tL4iVBKMKr%0{FrhX{I z+Lxw_j;>{Hnq}i-D!8{E{M&j+usbwe-tk_4VK~ePqq=9J&8{w8(58pD#u2D;<&KVt zU-Zxz137Fh%xpN}1%n=bFV4&66Fi=?`djkIir_ncs_R81^;)ZN652?6HAbfHO7K0C z-=AZ62D2r{gzS?gMUzc-;sQ)Bho;T#ByR`kkjB5WUJF?joCMGE+lj>!vL6J@b3VGH zF??3&pd!M?OncSspRvupwN2fE{4du@yc+0?=oj>A1)4HmZY$mRp zUHHJSaANXs77VgBT$G?6b(^h1yYIduA9g7A{E?u4&rz>(;hBqM%4auEzhG6_%o$jv z^4082J!FhuI&7>E8ly8i9Y0$v%d?k~$G3OrB>gF~IquAoey&d|D9yQ*A( zI_pM3CZp}n)eu^44R(^N@XJx!UjtL6yp+8+`&uF1Zdv6A74HOF<+Yt3(-kY--p)#6 z7|766nS9~(z@N3mOaNlETBqf~OtqVK^Y4EswLdn_YA@WFxeuZJ5%z7e+v7JJIzz>q zn77kmTQ|?n#@-$6RCE3a3oZHRq(SLZq$bR_t-QwC9+kLKQ@aRrJ*aScMK$ge*_+Co zo}OMDQ>DH#kO7)D4xVMZ+KvoAVZVM&T-@6@FS3!ZTN6U-?~GEBmkAg6A8PG{UlSwL zL0s5>H(w{aLWv~(406mcpC^(?DKphBqpZ;x|0$E_FGVp}IiIT3CTwAf9$mId4yDn`FRk17=)oD*t%$Ct5 z|5H%7dmD3s#M>yo3DJ$mbBRB={V1NX5+h9%wY=sT6!^XD`hlv)wx<#~2-ljWI%A3h zCyrTGPY5oE1C#i8d>5VcmbGDTtbrv~GPa&lMyCDWYroZXLv&7ddl0eP5o4a4WMW36 zHf7*H9UFfrhLQu_ooio>gTls^nE^t;LRO9+} z=j7qx;ceVZW##XnSy`wYFl`9@rt&xUtN`My}}jHdmsI0;GlbDxe&m~Z@?tdDB{ zMcjE`JN^(~w=3Gbg-fbeqXf&Z>s#j1{fe-Q7JCW{lToT_*(=Y&e>fn+&#B&ivO&jK ztcngMA}D#BEH>*U`Xs~4_V2!*hrf*95~Kto#Hpx59(t5#Whomzrm&cS(C)AC;b&P% z+hdvVxV~?$?wt-jnw6ItDHKOd^{!|Gvzkzo3WkIt?tFccPC#Q(f(FrX`{g7Uecuvh$18r*$Ha(ldrXM#eN_V}r5 zc-T9xKlyNV2aui(u0CvWbd~!Yf{L8W2Lom)4qYGC$& zBADw4j=16_R3lB>ovTba?6TTrinne7E!EbN-zDEE@%=yh;5x`GkZk15S8TFcL=Ipq z$|43jXZ6#m03tDsf!Pr?q_x`I<_xha&hr(Sdh`$&oN$`@r@{39bcnxF;pUEmOUQl3 z3}2LtJdDJFVE3;1;Dtzkri@D^MP56{pr#aU=c|tRClLUENNK)q;P&SKeeXqIf)o@| zhj-2W=_T8oyHnM>Sb@LVE{4kF6LtZ5O4$&>gMM)j$Rxyl!?S&>rN{y;HU%6aXQ4*i z|K}xl>Od?nOCSmUGypMk3Q+dnR9;`_&50h|Ul}l?qN1`@;C(2UGB`XOdBtsXl`~`@ z1A)A{@@X3hd{Xw-8iVSf-@VJBp`~pb8{;x9;BczoSzBAHuWU`Lg3Z-Cs~er0wQae? z?Scw##e@$e&lJ0n`ge`jx57py>PP9qJL*cr!Ci*P8Z_G$C;OnQ?kL8=8UxYV!0vRw ztQbVEx3;#rxVVJ(IJ9w?ea|4~7G=DCojKFr)AOrJ9dK}P5QSJ#s0KmH-u}Y+#)d2k zqX6|U#+=B^g9i|-OkHSNFdcd^an0=c;H4(o%Ejn}VKmp?y8&xLAyg@tzKscR|@!*XIXN@CU6=(5`UBMLv7{_zHhcAviftIE0=<`zL z&dM97o#PL6)sgYdF zis;`ZjVyd5gR@k?mpgykkF=MDAsKKUxGh@}xXrx3nIZ<=9c0FCu2CR~0&4MxMvaH9 zmmgtanGmA&e1+`#?_j3rQkxx!z z8zv$6f- zOjMgEp=+SYfoxGXlJk##C}l@H#J~3#B;L4xZh4{0>@onX@RexR8aBSeK=T2=XrM6r zWW!(?aXZyz)PseaTPl}weEQ^u#`V2(av(zUN*Ty zXz$kybcuO~N%tb+IMu0Jz@uY($nN9{QbL~(Y#$LJ$MRfH#$_J~0A|Mo;n80GTPVoB z%s_L5C+$dg=3_H%2%JnAu89n9ovyh}1u*gXOVOTr=R;(KF#cN_8o+5rMq?wR6E=_r zq@g)~^{TlATD1UaZ2Xk{(w!5+dW?|8oUQvx%f&?$(t^2-jkwZMnQO$|_Myq$-F6mn zhzH-rVs)UQw6wKlU57=d4-v8=*2WlI&gYXn`pi-ItOYkGTo zD$Mr}LXS%oH2e3h{K#JygsTH{FF4kg{n6Zy&@WtYakAIS zgs0t6sGU8b>yy&)8}}NX+2acZz;0HHs1F~!xIx-@57(!Ey$3)&$XVj$b4DlwZ?AW* z%o@2}1*0GwJ@s#99mK6+@HJJVJP=5)U|A%Y%BsSj>v+W#jVD^Rwu-!vf}fZzRdT#g zB@^V?_v~kizKMJI1%cMy;$c4qc=k9|Zwg2UJDl^hd#&u-BnVu42m4Ygn3(KU^uQVk7u3F&~2woRbI$F(otf=!@Paq0>9m)ol0OUP)1r&wnp~!KknV zlMr@e|E|W{k`n0?kvB6-wz_}+oz=v6ctE!yN6lC;;Ft zWL^coiAO<)thL5Zyn#)GZk{}vd6c%&^0tdK;#py`^G!Gf`sBg%CS*?A-QCEpfI`**Uwc%(!TFa4;Nd z2j}7889GFlm9aq{4l2|iuY8m!bm2mFHyXL$cu7D*H4HyEvw|18PP?_Q5;cgKEMJeC z7|2RmjAq$;c>9(&vvK#HHofgebQxFIt&~$xNT6E%FR>Ilb1ixR%slCk!AEsl{cA%K zq&CNR)yTo{B2?l4tpAM+Lz`@fzdOWsC23yUIaKT2Y%^`)r1zYy__^&}%z1V(LTzMn z7&5vQs_`J37Rw7YuJ9uG;eF3UIYx`fUSX*3?~LLGOd)fg<1iP$HdJF_j_urB+0L9) z4;c+63TT5aEu$>i_S9@*4>>C@HBlgG{qGa#HBq|#qW2lPu8UP6yhHZY}ESu-8`@F^TafS|4m_8Y+8iKD@q#Pi~?u-5;P_0LBUP zmv2^Nsy%`(`aiefY}}g-+EA{{6H6bi-1vAZ?bD}1C=JOhE|%ia5DMRcof{n)5g8jE zzQGdS=Omw+nmU|&321SxIte!n3=CvG_Q~}YT*ph?H#N0`h~j!lSSe~!@dULFvWy%o z7x|JSzJ+y^Sq5E|$R`pxxzYQFuBFHc61-`BL%^lx!yLHfxp~?S%LB5h7x3!8sUnL_ zcOl$J_h=Q8@@sVHB`5pSRNq660ur+c52BLi%qK{7MAd-el9FhsY$Q1yaBp=nGGe`b zksXRa9Fxpm?3#;SzT5`YDt(*8Bk*$(Q4myyt)~C%Xi?*l_Bkh~V+rk`y2LXW`fE{X zP78E2sUnn=K)CQj$2e=rEk3j$9D18&s`i(Q%)vbbJp=Sgg=nE~D7}x|d^v1S za5zp5@Wvs^`VLfI$Y;`F#)fFo+k9XIFH};wgrK%Y?l`nLPRM8Ku~2R_otQjqhD;D% zZ)kmIf^;c!o(7m(W{AtQ_GnM*20^P$nR6WQ?ml+TiES6$mEG`uX;UEGvuQ{Rt*bP!T7wduMcXlNWVfpoDZ>1`*gm` zT@iXy4rswm)_4v~HHRLvoP43#ZR)gpBM4YZBni4DoHi{msWebwQ>UY$IgucAvg1>S zzc?HiJ>m-a@o?*pIj&czC0~Un?&;}g6M@=XW9D>$D$Cnhs3B-c_n50ku!)G{8aniO z$Tk^;L~LRHNu&>-cOYWv!#myWojYFIs>P^4F)IWK%JBMuM?1!r38Be*T!IioRbQht zdE!$YDYPMvhZx8Av-jbD)exihkHI0vq4n9_LEVVz>P0@ZYUKmV`P%LAbojj{QG z0KhsMWF8M1|6fLc^TA`=MfwpgaH&Ua_KVuNBWSVm;mo2fZeqQ5MJH9a-&dAoh54x# zMW_>$vX)H!)%%l*Q*J_xHPVUK5RENJjynk3!O_ESI7;m{Iu*B>dsjmC4_mj4(L+jlHhy=jIx0a|XC@Gyh*_8c}Ol3{_n{G-YPHAq^ zbOmj7TwTSnKQnv2DC}>%04)lYph9kN(txax%PV+@ZagK`(Qpp$y`nE8fFR3{N(5_J zkSe*5(1Zn#;selRICPYX7@8{q(g<>MkGqYp@9ZQ%^<+GbTdpw^1N~B1`e(X( z12dOOait^D-~G|I!!*}7ot=~GX<9=g=eBe70QlLnLvG`)3cPG*g#$=W%4W(xU^fHv z^jN3N=(q0#(e4)e4#9joV%(T6?elq=I}34QFI{Q^PTs0Bqri;Xol`((&C#gAg;$i$ zQ#aot{ep1|&vG=j=srWju^1Jt$m{X3q3-ucm2g`V(~oJS@R0Stk+OgX$E#lS@M;n)sHVNBJ5T3O%_F^(9=wUW#sWY&aDlol<7Y;)WG<|Ov8VkOAKf9h zGknr#Qu3lh5onNvX3{dFFUHeu$Zg=0A=kA2g4L037b+xdiuwuVw@|NiMO5l%C?ruk z$~Y{C0+HWe3=-AJ!Zb>}uLRlfskbjSD3V44Gk!#5FY2`&iD}%~CjaJukUOzB3RMeN z31Ya3RL2tXl!g3kL|-t`0$%!jFr(?JcFL#WP;iKO;z}@k?$tfLKox z)HrjP5H1->&iO~T?(mb5pK0x8YE#+sfoes5sk}~uH@SDaXW3^c$WLz~XzYc7V^%^Z zk9nY-{j&qy!ihzC;M+a<<0T#u1VTbrd_*bTB+=!>gEwBY8Td6(&JzBmG8Q?i{o-NA ztST$x44+g*@4JR-Fn{J?3yh}Wd6;BXq12knjtI-}p(-Os$&>LJ?}=!yvxBBtIMBFAo#+3e6?b+zFl%N{Tv4-bN&HCrID3 zu!CPW*E|Eg4>q7~1}EKp5pNid+_RKPYq$}_m!A)+zH4^krVNps-!e?Hzu)=7fBnTD z^Rdvp{B0xJ?#RVhoK#!-$0aCB^!kUQnp?uth4!VS{MjO={AkiP6+(-$T!^ySP6}0j zOKFnx{q999TD^Hq#y8?XkttT-%fXd){K<_}Mj|s`o|gCRtMB*eRcDD6D5jys3pMCI zMS|FeM)fp*>6$gPAx3dP~hKOPUHDQcp&wzWfJOpC~R%58aNa=@(>JLzH9R{S)Uk&Q+p&sV^E#^#57xW{8?&c^C#wWy$*AUE z&N>;?Em=Bo?;LxRu;a5c)x9U!SqwNa8Z_#cQ&fcdowA8>L|#TptUqbQR$E7%*_`cJ6Ud+kG-j`t~Nl6d_AX;*tEPOXf~tz zSZMoW@hp!_)y%{}lAL3Q5L4~K((DwA;I9;0?94wRORl((T_0yudCv~Q%7F*7oDN{p zs(O~wa_oPEuC-6?lXto>4(#0QB_H$|r`RHKE^nJ zyPCA*@3?Lc=kEVPIGRNn0hzysBj3IaVG_J{E}ODDZazjUtP))GNlp97`m0wS!F}EV zp^|Eo3u4EiBRcPYjL}_~9z7E<77)O9?IGpGYK=Hls5x!mC4TY-lNjae@bG;dD^GX# zj(WchUyu#tMBUKWmv<>?$S$_2dfw4p{mrj}{5WAdw4{i|N49(>XbAef079=C?UrA_ z@JK=Ru9IEBbaeRv97K`i&e?k>kr$;gyGEn`Z6IUUL0`4~=7OH@PB4lDRcH^7jMNn| z>&5fS{_j=(f}VGQ%<_6c5fSjn#r1o1x=^X=MlvNh@h$RxY(3@{o)8EF3X244|769n z`Sl#gS2K5MQ;fh-2z&~fnuY4^Y?Q3=NGZ>VuVZ7?n!2GVzOcOJmx_Tw6zEML=$9uJ z@NO@F`!u#ebXi$5-x}9$9qt-<6qGcDolH@mnL5M7)`P3TQRO6X(!^^s0OFzY<1TaT z8;a3i1FuZ6J*$UC5pcEy(rTCbw|CNT?tX5e=Pch~|8#q}X^*N|GGjLW{k060{ZCu4 z1F?bdI|c?OZSCzNlTg6Rf*_V=Inx)RB5G}{t&7Z_L`FwXR<*iT317Kl^6Nt6oe=l9 zXM;4ylY`O#=vSDK$^DOd?X6$(k)zd`O*S91&7PcBXl;gL_+I13Idu|b1LeKr`BuZtn%xm| z5>$K0uO9LM8s6U};w%Tp^S^%|H~q*isK!L~_ul~lBZv6b)URjX7j#)Y`#)N_@_4A) zHhfY{Zza8jq>z0XLX>?EAtGCL*_TjcUk;KsOUV{7C_6J{8`~IfiV$PpqYN`eW3rD~ zztP+G_xI2D{B_^Y@0{nHb3OO{{GQ)^p6hxS4wsME<7sP}cwH&z68pIcJqPE^8ox#F zlg>f94_H3#%fbeBav`O^H`2Sgl%S#PVv^gevI4>#G+aIZEOzmsa9=ML({T9^1R|_B zRNk{=9~7jhsCX5=*1|l(>1_%~Sb97{j}oG`63Ta&(jW&x?;g@qU<(KJmLPVFCuG&5 z#%7}q70rDv@MQO#=cmD2P;bt;TIvWFq`{hKY!12^8DO>VGY>0w_0%a=ZD$vOaRvZ$66b-H% zJ?(fWAyBZP9&nuHo|fWpj<2ZjyP~f@J)WA9a_An<{i-g9EUb9iKW^{?K&}j-!e35s z^-FoC3kgwP3u~;KBu}?F+p^G57UJvXj+<5`EC6yLOaLgVY~iwAegMQ5z&t@$y!V+W zpMNn`WM;@w4T8$bJbLe6VLFceB5(jV4$57J%dSld1KgCAt6>5W!Tage%(%u67RNbA z&Bs=sO28w!+k#4qm@Yu8<6vgc6rJGLX3}Xg$(%y6pobstXRXq&Uyw!qXB#dd!8YFQ z*&CtNT6Y((luE2gErE^4Ka}EozV+ze;-OQmb8nIwF9^PETWxD&U#nqepBXDY6t$z+ zFmu7Zee4g0el_UdsLa7-qKtT4U6i^_kSC&MAd`~GuB?aIh5!k6Hjg=aOJEQ%s@ZI| z&Oc83Qm)YkgEK=AH+d>6E+HNmP+;PXfA;mJYbS)TL{6mBUyqIAyb&V}`g#HU^}fy&8)m!|9bc4|f)1V|6BLP2Qa zq=BNVEd8;;);Y#Qk#z9PlXn7xyRmYM>sJ54*gTw+b&-=!BVJvGMY^U?)v{Bh0GN*0;HmVQM%-vutPZb@7smI=-2?zN}6`QPcQ5 zH+H|+Ru#(T6sh7uVMq#BXWSn3ntwgBKXUI>cy}mi$YgplV3&uNm)CfWx)m$7lX>wa zn`o0lF7*kI-V_l%18zb+k7eB34$C+5voQ%@c*Z$AJ{ypMJ0^ys5S9DTEMoSWq(*>PnvNPODvHnPt1D}tTGsm;dNlBnEIn<6yXjR?KZM410UA^*s%M3*`DmigjR)$WX`5W&m0+p z!BBdfm`s_0i%yqM*EcucyvVGO^UA`3NF(UhgWGO$q>J~x? zL%dE?qqKHCbRJ=b#I-q|^%aC!bH*4*rr4X6DI(wI^66RD=*aS`i}XTEX!1eP;9sbg zt~&Utc*dKpR2WXR$<2P^MC11beDiB!Wc|WKX>0#5`rgdZWgKWdrr1!Y$H-ffSq{zun+$nE2 zyZH5drbm5)ki=T9m(r2_lE|)U@ZO$uFErxlQ~WKWZLH3KQOh~}?VR->!HG)~KFiJq zt<%b1!ISnDZbP#ArW^fu!_n0$|E-O==F)pYuQecvlK-?pkbT}tYx_k&9v_sS`xDgMv2<1?{pjIq^IrSw;?i!6oi)8fPmnwvUIz!$vwnF%= zz4mR6>J$#WeYZqFZEsb;=8Qlx4u{jm*u$?hHa14C3RtZ>8a>JCEK4t(GP;(D77Mol zd13if)a<;Q$qnZN_BWHwXyR}PUk@_&Rmx4Y*vxU`Vx_ zrXA1@JwmQoHePxKVq_z`q_AB>3QNsrjf|AeLPTQE6QQSTGYZF%r|v(`^{4~Z_~&M5 z`DPw?G#IGc z++}6?&9P#p-@CH)2wr#GS<__PTKRO<&W2sp;QN*no*`hQ7_K}6r;a2^TPNDQI3L!5 zI}$x;$B5BEfJ2dhIbpfp%IQH!aq63f4r%>Tv=cgx*2IVj58r*h?YX(P+J8f}$yyn2 zEPnBb+p&>}LGS*sZJ#Ko;WF3Y5dHkjFMEXU+IHP@FlUjU2LJ#lYOsn*r82N&GlBbz zpal{ZjF{hipp`$!VNw~xpg~&br8xDUDlEWH&F8ts*|o!B#8#tWv1LNk1*+O3p@`UN zXdKk^87nog4jZO@5CE)Rq`#>4#N^U`y&i)PBEsm@@YvO7YzV3fg{n>L&!`Hg9mQks z^xPFzQDQV$t5QOa1M$A0sh5nQuTzC4g+O_(FE85*;2bG8=_*4bICj!yMx0^*oy6{2 zeF%9QDHO&>QF5!XOud{Zh2TNl;~Zjs1(#Hoac@%q%{|zL00Zqa6wwVOG|Gyok)^`X zx&VjD%$FzMp4@0eXv%_qUV_ATy)oc1fyuELA>^-jkL5WBK@g) zm~C2IZ$4>Y@C^2ic<;C$?Eo;o+V>cV>TZ-}>LM8JPd~ULd6?p6%aGfJf&5`yW#-k%jk<>3WD&@sIhx26p`ajLcx=euCE+-i`ja P|6C(|vnz02*Tnw-O1(+B delta 20121 zcma&OcU%))*ETw#OGl~F)!T+rL_lewii&`U^e!MsM|uf^f`Fia1rX^V(tEF=qjYJZ z7eRUzLLecTGu+SfzTbDwUuS+lNcLoA&z`;4waT^D%v=@ILJ3pMB?Lq1Kcq7p#Y$+? zM(D^HyWQr(1d-b>96ALUj57qQ(1xkdBH%x=Y86`YwgAxJ>7QBoU4IJ1tAzk&m6D;) zH)O`E%AWRmZIzWTPqCoXd+y(q`Xw@aOJ`XBmQa53i^hnpN$xGXapU^4eFf7-Q{=BQ zI*$WV7DSWAcA^&y3%IC;zS{PE!>!acgc=6#qsI1a#M=7WjL^Q6w^{yo(>CW+I0v`l z)#AvF<4JcBC{R`liW&46_N9xXd_3S;L<^=e@?%NB!J(sbGkb+Jfkj7FItzY&D|$BD|Xrr zzR-F5K-pI#j4&3WtMa%>d{$OgcvO_v1SdUJup*%p6k1=`HFj9*ep-1rto40W9@>6t zzT;L?R#kG`=;29^n~~7K9eaDCwmAFS@riTl`cxde%9g!@;$`xH^>_JVKtZWn$JPX; z&kq(A74xrm3mP&fb3LW)L&BopW+>a&Ty|{5||B(W#w39SE&C>OwG9Z zP)X^vpLqi~Dg;y(g9oeHn{#M$5W{RF6WZJR=+dQ20^;I2)qv5+IjcK<2Uj0HeCV;! zG8CKpu-nRgl#nY@I4S|KAspe>2mFu`fTt?iU%n!guXjUjUELuaCwu2B;d9sW@3)k6 zd);40>v~(3aYL~(&h>_k=s#^*9z;Qtk-1ubrpqQ0dN{ng{`c$3zkdsW%N9LhslcE} zICD#IRiIg5lXF+l7jS>7xD6s*iig(}n{Nhc-<=+R-Lpbs19pj%9BxgiOsyYDc|Dva zrm0=XXz&m^ScR^ozFr*H{|5+KRV*Fjmwki<04s&GzHR}o3ZzeUWu>6Z6>1^@rv{OT zPI_5uy6D0}27npl%4X#e4Ut z2*p;A_^n$&jT%(${UrucrY01x?7<%ZZWWr8aM&HI^V~#75kZF;X`pBgE$LHOl-Dc{ zCcl-^LsGlA@UQL2@r)K17<^ek%F=R~$Gwk6rzh z`QW1kQZd>0oSgk^MHbi&ll%?G>nJJCT14C=j9hPzx(cg ziiKDE!Ufq!TZ$?^oZB^9&rO#tU>yC4nsVOOM*bCfLduN zE>a{6Zshn8RoARsJ&B-rBP2_jfQECS>;T%RaiQSB>572`EAjxM7IsbZ>rspG$>7w; zNXTx9Xqp+CzX{k#HIW`dgW#iNY26QvXEnKl?B2!(mAwgjldd67{p!`Lx_2$w&=t+3 ztA%DR{Rbqiq&uaU=6nz$4XsPdl0=xJjlPXmdVj|uPsr#d!O31m{^5Gad&WDp!msh} zFagA%aJ5TE94+}jpGL1oJh?5E;D!MQ;`9bSjKy8H=3gf^4xn(zj2|Xvckh(~06F#$|f;C^i z*z3r^!{hcLxHXmigQu$rMfkk5WDTscNP8#Ks_4BK?L{|)jpnQK$g}hE-bB&I{;~P- z<45x>iZIId18zKVn8bk3T9klQxBU3zdR$sr1HC_PtLuxpn$=DdalGCIEnL|V;R4ui zb^pC3K@qR9iOZM2IB4`FROS$2Ro9so)^HMl4Fh)~y03ep_y6u^VN#@!h6%F1Wp%$b zm=`DfN97FaZs~rgJnIIps?ClrE{9;EZI~rr1*2Ki_pfztVrl_A2_kqVAk$Kg{cwF6 z^cZEs3SH0lSOcH0???Rk-J|_W9lGN2rnyY-Lga33HAyYWpQS-3Ro^=0Vxs2KdO}z))+W{w$<_g`iBptrQ4fZbRTMU!iVUAzY9nSDZ!n0!{ zh~v9aQw5Z6y?yv9I|;4w-bw2zy9sxAand-X!n!r8!t#r% z33xom*1UneGLIUq{S#+A4!#A)!GG0gW&dZAcSUuJb)K53Myz^&E&Ty;R?X{(-hkYU zFkf4jaiHI|{HVwe(l;`)cdw(9Yt{2djmGlIdynq0$nLG*8ZUxj-OuJa5x&iLW0%e0a6{;}z#w4(jIf z0ZV^Ytl$+*s{~a7X@+5;(9cw}=-oz>2ld?{HR7mmOGuOcd=s}LpuOh;ef%pXLI(V> z<{=tk+{TWrwi86^K?f+Ty~7gL-Sd749lwYxq-UvH1km3jr(!Y#>I+-n#j1`m<2Pbl zekEyV%LjhvgO z+jK1(F5W`3XJ%$H5O6#CCT=b0Pw8E>j$+h@Q`Q(c!?G2HlegI`w#6BL%JmVzO}fr} zWcv>i!gcnEoLZ}ZfDvn&6i|ki+ytk&Tu?TR-o&p{`t94g`q&M$>* ztHf)e?ep>*Ka=6ZmX#8)xP-QVhPhiW{|PeR6AD!d+0xQ(h!yNT$tmODYGepNvUn4?u z6z!?HodD06zQ@3srWl#f@h-KTebd7IJrQtu{1*;v)NEUfB1X&jU%jlAQm}!88VQFN zq4v_b83_3l&`>$uY@_tY3bw^pV;k``#VZ)0kkPaImZ0{fMr&UAf{j3Q+4D-vQ$##V zlki|(SuDsYXw7-e@3DbCe5U?8%w?id6-7Xb5A+P^#}Ln4r_y|~qHs-T4rt_ljZMU_;<4%A~EN5F@YfKZ`p)f{fL{3zF_33 z$Af%dOApNw$lD8N&B?b9u+<(mc^RhfFYjNlp49a&!W%IYU3%_@lP=yXg}#!i|M0XE z)#Dy;4NOIHTqCNzdznbuKdP42fj!o__2_AkYEVV%-??2Ho4y9PQeOz!#qP&T@}K(E zFwWycwI)l$qbJ~_W3Ak%H=%^B=*iQQ{&%~iiqvNc3jg0tQ|r?Q-0a7rYhdf}D7ioe z^7}QN?^mgU5fK>xFbhJcU_J>%vqeeVWSwXJ!PlrxfpwvXjGjQ81f$$a>VLageaZz- z1~?3wz~-NYA4#;1*lr1v8O8YX6cscE9KWOl0#GQH^XDUif`D)W#>~I)K&+-t-cTdq zmg*T=S|v3#YOwctd6DAo=W9BwnZIb5n3zUJM{6(nuvzUM9H^L@CT}a&c#$+NpKG)I zcfzHeP@m$`o(n9V759WDx{}v75_vBN2;dy;r5F&+J#_5K@o3dFuwy zGNaxdoJqQn6y@Nlr+Y2BPj@G~sX`CKY(Pq3$1iVY_vh`l zVUHs63j2+AAqTyUvp_Vj3_Gyfn;JjgvGarl4h9+;WM|0iwC8$y=*-N_>c)_tPJIVA z)&foV?)GrFFfX=}3CA%f%8Flh6o8M9&jDBSp=6+KRLk)2xvj0O#wg3~&)2|im*n_a z(#}Y(4jTx9o)BV{q#k5g{ybMiVFOc)A=bEOp)r}H#6AqeZ!0(R0sNs=j3Iaua)G=c zn;sjm^l|hiQ5L_DcdgnAN8nE@&pcO5{IW@&#;dSWlq|-GM&8XQ{XUAl8RP`TTO+Sk zHjRC!{=^#G62x$qPL{vULbu))WIEVi4XcDw_^Hy$9e4`SpttNKifVq;bIN5qb?m99 zmq$ipA^8TQ+`?V=_6RRkZI5Goe!=?VjLf#jPo7W`rglY{OxIT&Q$tjTQ6o-0l9d+i z4CZT3pu`G_KMjJ-Tj%OFTnf7tJf3nse3;M7cio#lc9i$wzs>7n5-0aO3Dhz-kM1%J z1+Ny*8s>uSDirBC8H|V3pSDp?@FyU)|Dny=ta}h$z4#p-gUIYI9!yqXYr{=ivH?Ws zbegk&Cqaxpf=03cJ-vZ=sXYRLw`c9ky1zQ}$GeI{Sc64Hr< z&3b1@erMj4*Y<2MtS~pul0^b~6vdOqa_gW&+Y0=s_5esU()>I-x2!vyrUNm%rZ-$tQk;Z05NbQ@7l zW>(g3DTgf4(v^57}BwY9ZH6Z>{|cON^Dj{$n`9?0m~M%#k03_gV8 zi$|Bw$;uVlik`I+O?V_(nVFFhh)D`J`sbg2B&RA74PGR5ILbf%r@6qe{BukUv&y}D z84V3Q5)u-1)Il&$!zt?{N=ruvUt{4T9$-Fyp0*j!!3ldw@$ylyFkj15i@v9$a}G$W zt2+;PBnF@EgB?vE2!uNu85se9?w%gce13j@CUbLhPhN~&XNQZgOSeN=ONfjm@YjG;Tpkaw?&FTnL!~1uC>=>AE%+JYDcwks6EXUlk zqN{J31V>wM4p+vq%PhKW+?{&_LzB}>aFDq(bEvL&Dbqq=sMvUv1 zuUwTmuOU~Zbs)ZeR>{Rr^nowoKKql@0NM%uz;|aLPwLkURMQRCV%z-kPw+h9_|zL_ zuZ>i}78sF=Cr;G@Hh=b?Y(%F%UP3h6l46U$2sH*}t0yL7eJXA3$8Nfo6K^ku;n27}#b z|4u*@kwa-gl3QdU&^PldhysfdG7#8=%LN^~Fb?J_y5*EIvl?A@rKW?rQq6^l8^y)D zhSAKE+DA85S(K*22K@0*(8rIM-9Fo{45 zz@E(0;5j$~1qN*>i*k0t&9GOrQr^K~4E#&`e}h%Y)QjRlW3wEUu;(JsdC8qIPQ<*( z@xd|2yBQ=Q)7%c{@{HZN>ApQp18jV3Msl=wak%P z^z;-!?|Iw@u!7l7Y3aHRQL35@Sl`${7zFDBSFc`G(AH*Q7dE;2k1J)tD>XH>u=7Fo z36CyIP*mcKm9(9XZuYz1XtiZIiD)(~AUoXMZ4N?^0|1ORw9GqC)@FFN4y}MX@@KXb ztvcD7x)~W6z&O=(N=k|(n!?V(L0Lf|NE#~Z*9Hq2Qc)<>uaS{&4m9w0N;zdaHN-ao znUE?bxIuoOMIkICBxlOr-o8H^s4Jc&FWNw+4PX@J_jW#qhtp6{Qns|UkrVM)W!RcZ z%gAW!>xV@|(7q6?Fz}S|SRFJ&u8fyj0ZRq#Y}lLzlU5>&PjgYeDkZTLP9z_;C`Q!59xR%3&jMJFteQkpJQVm@CN5N znd=N%K^!wuriOg1@7{P;u1mUs6U!Py<{&$~6ES!ZpcZIsqTx?{iw0m|_*l7ek_@dB zwQa9_Y@@R9)D;JOg+55hfnUD0A8dp{w0oWFdC$Y6Z8`KTGg4UwZ1_L2D@DO*U=Y|v z7yB2=+O#tVIB!ymq>}8MUbK0B*Zj7;v;ZQ(OJ@~`FdWzov0YulH>i1Vpnl8C7g)p; zX~)^2bM78}YkbP=>O02v5%*TNlWzCDo|Q1So!@V($&M%$CU!us=y6+s9Fc_W|H#Xq z>^XCMXJsmL+^^v*@!`6gMm;6d3hQDXiTvB)oP0pj%C>Ru?@~0HP>SAUu7lwb!>gpf z^YF1BU8>GUe$nirz#gRZb$X}5$|vhM9IYN~f=X6%)p~nUz&=4R6xs@}c3)x+cdTjJsgwJL?>QDu472=Z?S zcLb{NcZ9TxgOZ)H8I{)!Uepj)>-a(lTdXe4g8=sLd&9f!ulIHhOX;@ihqON(Zsy95 zx=8-Nd4y9Mfs1P_x}1?;uMKwyZmcweC$}qZa7M$Xip@6cUoQ#fjZS-6HeK62+0?bR zwoZe?SC$3KQ)X#=oe({PtC%3w>wH^R#uKK zFfIFyuvZ_p)X-zGSbGh*28cwUVrjpprlzdT`Z+F6Nt@LU6bZVbw4Rf5RpR7CE+3qO zUC%by7m9sFPMtS!fFr}+pK;^R00En=$#A({sUn7Ab! z0pQX<|19)L%~1f4QsqtUXVmyo_N$e{nB)RljyX;Ws|VgjmB|aY`q*N?Etg_>dIRM^ z0^8u^z$b0Ye&cp8I{v0vyh9$H^Lk&$$$hhMeessQMTCyaqXY4bNo!Nr$4=|bH%W-2@o6xq z`1ydgbA-p;NCI4eD9?EdulNS*53b}e|7If_6{d5iTlluM2_^6Pd4M86|60~qetMU z*{e`$@pHn@JoKGFo4bSl5Jy+>4Ri1#@mm32l8D62@lV}Uxc?3Lm6|$jGwIcCu1n`c zCKY)z4WLm{6he|i-tYr<$(hesw8OjG>YKQ1R_IkAJvu4_>5|6g*X~53_Q>?*O6YK5 zzwg!lr^I zUz$U(KDX?lncC$7o_yplN#L+`a43}cb_r=gX2GGP-x^ciB`soO92Ad!a*IECX=Eq( zaG~4_Y1{k7awv50R?dL2H!ID{U5-^xH7Df2&ympq)5?fOr#4&QKH-*{JrrgxGgb1e zlm1iAKT4|^5z?M!tei2TpiAV-vXv0|EWoHh{tyORMZn>8AkC)52m4^TPfO3bs5u#C zTXW$cSuM8os7q#SPIB(de7}FTkV5PM9@zc$%K#Xg^NEs$0^Zen+`e_|*2rC!?3EbH z(TG1jO5$^$u4r|_?&Js0qY_WY*wPxEhc?EM93q|KpcxtPI1uECuthehh2`n})@s^n zn;jd|o9VQ0A;qdQb8-%P?&QfMaX7z#lP7=z3PnB^P;X#=Q!(Vr1)8m`hW1Gvi#tLA zqho9pg8B2kgE-tf*zvrBqCea(W;m{_0f-LaJIy1wU%Dd)$XXEs+%@gG zg4VvicVD`@OW8^Gv9?q=j*gDnqbt#_pSkc8<>ths`MeDnGZ%tB)h={a<9UX$uk#|Ia?jY*Tz?J=)^6^wW z9BPvNW7FaHS$?rM!HR)MMn>j3-;6NvS$N|E5pf7W=ldgVWYcadog2Ix4zhEgE-uAY z7`JTAlUCa1Atk??1lA*=a?3WVY#!=KF<9A=0Z}}6U&qC2GFMo`Q`5s;3+A6fS|U8oMlJI};l7Qr z%sRVBOH-8>tEX4q;@3;Hq!L8neMased!4X4+5p&u2EGmCWK1i2GJ7E@<|iKwQ#I+& zulCy;K7fOk(tADw)6sV@ybVEji{0JTu(kB`-MSUe5S6TShD4T^?mWWRQRi3Krr&s9 zHwF~O2*|dd2jJTV7^uY#xaRyqjqqR=sSv6*sH}tYY!*rNkw6flWLXAnD;rw0!U+ht z_Bz>;1AiZ$b2C%DRmCr)7U*zp*~kClj{zNf$e%71VX@fx{+<&JFUYqnnAMag+9Mev z+*@`m%Y|i;Bda-Ktc*h)-4OQ~IqUiSKLGo&RuQ%JS0-qu`c9*>%R)KlC&>`L?Su6( zyaI+0NMNoL3SdvYlG)_9{=UcvMy3$Hm?2%8abrAm8d!2duC2)YVH*sRI7)IIHIOZ} z5Y#I)h=S80;5;bhjK8UcO$^^P^q)Jgv|;QIlT)fmfyzly%91S7`f>5O)rb3nIq|*l9U+gEo*w~q9Zvr z&dEDq*$TR4apfpeH5i(xZ7Vga!Ib6JUn@Vr^T8-i;fn{`>L$+H(HCEJC%!t-3aSaL ztwk;~aep63O|x6&ZMN5H0mehqPmKpx&Szcdxd1<)LUXfI0G7QP54PR4-X`4Z%K`F? zKy7X9C!6kAVWn(g~f7jLW#i*J0~Yq6BC~2{Yh_OQRMnF4fdxi zhxsLewHX;?VT`;(S%D7>-J*eM(;qYos^PNk%a1x>sbsJ~j2Cp?ym|8tY=y61zn*kH zAY$b#R`mxD8(Y?4I-ICtV`F==E^|Kk&RE6buSBm@V&&0a7edUdDlb;oYTq*)RY6{42ggRA!NLlglB;+%X<(!KX{qUVOY(w9hkOm*qq07~ z85WiRVQ@f);hRgHswR=YN)oUu8QY|_;ustK-BaadVpYbQNzuJ`PyA4#D$RG1SYy$C zrk$QYIOC$f+trmodb@%S_($MJH{$cBO>_m1(iD`;m%O@rd!BCqaRgS?vA02utaE-T z3htjM!360tJ_Ydt4#5+-MeVwjOfCgtym7f$GlqL_OMOolD^kX6bG4|FQXrR7LSD)XGzU({L~qlJ26kd7d?$%p4aFXdX^jrsi?g{42lGd zOxCz%x*cwYX*{Dm06&a7jC2hd0|LXj*mm00rqwbsqrs4VRA5T^2!D0%HBB_4rU(*$ z-Yd#bwxd3yyTgcgRO7q7<%GG^z|*ts`7uGJ$KHOz2Syg1LweO$vr<_@J|>ZTaRiwklubYP%_Hf zHQzlcC@A=YUvl#!Wo@lXKcD1gi_}Z^xoLUFanDJ*p`Vvu&%r)bdso*+9bWgOw(%(4 z{GA~8u4znSBGP}n7aVq*PHMK&VlK{?)#7&_+(eitTJ7??L7Aj#y3 zSU-PW^wCfX6c=~r0^pj08?R@W;>uRiU|x&<*fc-wCOh5NuU{YQ=#cZLZo6OTZem_2 zPJX?J;qzuEq{Zf^{+TMV3|6c^%UKed_Ioijlqz>2J4Zz6x%Rmr4Q8SICL$-0lkTFd z9PBJu;nmb3@6dJ89eTB``-5)7{zJXn#h`6wJ&|Yh;BQs|zftyV4qxYG$Bt*EDWO}i zPn=>~!=9 zDblsJy2J@qqManOmWW=qLHz;QpaTYuXOrzI(b+pdQHrm^B<-r(+l0`A3JTQ`cA+%W z+^j4^Ii^a_<2RmsMyM;&C^D5Aa9SUV4%iF5;7)l^$Nefyp2!nkU$k;%35@cT(o;7^ zB*QdnXo#;dtG01Lke7r6jmXYq40KoX@PND7rG_Rwt&ua0j{_oPGIP*=c4M^T8t~6+ zS3OcvQYu*r9lbweWBS(Ez+iOF|= z>sFhQl_{q)EE|`?;nV5uxyXubW_wO4Z9mh)&{LCqys29_TP8J8S<)_-f!FZk0YI!IFw-=iD#kyY^ z4xU+o@W@D=YVgm>3VF~7?DRc+sLtBFmn+H0D}NvgsHmx`a|a(Pg&bO&2R$C)m-e_S zTr*F`Bkl2H;cglN=CPz7+#?PS4q|wnpc8WlSHd}5YSs0v{}qiz$2ET7c%dAH0wfpm z4L%g8!ErNSpauRK9Gw5G6Mg5FZ9k9d2ryqpQ?g6_a+weIKAJC{HX_!oP?&Tjc(WwhLRMx z^W7T=%+MV{?JL^%;W+-{*Ya+lI{AVJ21Z!w52+3 z_NB_q9w7SEeI?`wX+}mwj5yJ!J*c{p>hmbK$SDNHoUe}}=+LjCCeMH@_({yB6M?_6 zsNRj0Vxw|r(p<8pC!l`ui}g#^kZxL2UKYiQxZc6a>bgc#&c{1|kx7#Fpp|gDZwg{1 zY2*0mTV~Ed5uYsw`XGszI5`gYCr-v6bnV!@#UDp! zRH*=>1u@^LcuLrGW)K{(P{_`hZ$te=07jN_rYfgYx+an#6h$nW3IwF<*B=(nVSGq0 zXWeh|@$rcsh%2l;jd8O}*I8~0Oub@W(x5o9y1Lp75l`L?>=e3P$NN(X!TdvGU>|XE zu|LQB@XwnX)N8HiF8T3^*RL=yIJDF0O*`he`aReE;f`dD|7&G zU5b?YynyN7uIwz9+kS^!5!`I2qxp-&*g zP=aPiTUjvZ)40ye!g8j_46&tombU2eA$^}>DPw+-zmDN(I(-CV+ql)m7%oCGoH_EN ztdM!&&}nwkl%o! z_NR<(@LjRuf3KZh(=w#BcTjeE<}RLLW(WFIwE>al{>`Dq^QDXq2%*RSJ+XTc)WspO zZ#X>vb5+h1)N@62=jBKZ5Hb~`R#EYI{@}rbwZJV64WeoBX;EOW4xTAitw}HA_r0{+ zNb1Atg|^~2(gg$GC5Jy<$uGW0zsRX`+R*QE{TZTSx(Hm>zrM40d*RCcG$+MF$ z-b=fIq_+In_1JUC!Ny{m=JUy4@%}x$*-R7eF$?W=qi@u|Vs&{Rf*u}lS|`r}-J)nLi+>(qS#xp4W9xW=;_;`GO=wIyg?`K6a@`{1P=|38&X`U@FTN+V9t zaS2uQ^kE1nj9n?LH9Zq?*c#JwGU}vn$^OhLG$U=5v!C~6!iX48A3^c$d#(s`+Nj_4 zfiAgI`+=gFMc;J&n0dLxpYGxIU)7dU9#;QR?fNzVTK7KwQ^=p_+UGk%g#NCamvwzx zER01KhU;A*YY@Huy&iItXFnqNwoTh9`f3*~9rJ$&;bvxfDdn4+GjqX=>zRowA`qe0%#xv1HoEhpw)oOHMh;N7B?3XlWZsL(9M+3=rF`J{lE5@l? zMc1L}Kwwhj&Z9H5q8UXk6ojeH$?I$TI~+XUd9D?;*NDaEOf^jqE`~DE!U-@~mO|c8 z2!esD6YEvozm+JcIJM_2UK{@9JPB_5++1`V#d+IcCIz)gk!QaSFV?o}iAw@RM(V-n z&m0bXzdT*K>}I--4s2t1_%4jP=-^PV`dZH?4&NH zqj;^oY@{bY1d(vjKF`M9*NtfTo)kX>U0s<&?W3T4kqED!IH)%`YyHrwOEayiDoPQq z9)9rQ<41U$Z*p<@d3nIep#c6f*=o~l!0O)R_W#Xd^aXFL83sn-mz56_nfI2J3uEKo z|EO8my*WVx94%M~(hA)iQd(_lwUtw{Q(GucQ=@U>m)}`~$YC-U9N9JWqA3g=urGWF zOVTsPDK;ReP{t@mN5DnG!+fEfPp~3$*KqLSDSN*YblUiB%j4C-8 zWJR6hQO$?Ga3(EP!#uOD^05)ke{(Qb1K1D#&B5sD@UC+| zvOl^Z6T%LAB^n}D%)qf=g$xf&mHoFjwWj@u$T?`m!eZL>^BfK?Ag%6r{p>A#&;d+) z|F@rdms)U=p$TH@@=x6a03I1Hp2|w>kn-yB{)$jwV4&#v_i*me&e5?Q*1#TgO)CSb z#YreHoCu(qbSK>b1>Ar1=qVgRFKlfwM0SvsPrQTGvuP(BZ~(4-!~EAHyandjXe!3q zEONWz)m?@w18v9eV*}B7H%vFk6!0`@^OLMXIGb2JJJ8=hRw)mB%gz>3R8*v)p;1s)CSPA)7j>FEy?EZ_ zwQJWN+Sy&Dry{?>9@%Gg`O})zo53q6MmvHOKdwKpJE`nKU%<|0cJJg?EC}nkK;nd^ zsriC9@F@8vAu`hlZW3Uhs5eCLYE#W(3#R z3Oq2Ve{^zE4vI$-%EFEEQ_YLVu3wjrlA$i70FpdwSrmVnJ+XIyIZ96Nj;!U4;@WQ6 z?FjWgV1!xv*7Kat$2&p+R6!2?bS=h6$p`sNAOH(2#@s#2a5`Rfq>lIlxil$y#9e*F0HTVH)9{?DI3cietcoF=UcMLI=aF5M3a2{}y>%+AizFfeo| zGs#^-(KE>%#GHk5;Vv#Na94ttE>T=mi-N7mxsSuF9Wu@*UIJyS%~3EW5CGte=+VKjR#x=FuohDHnUxg_Gcy362_Ip(IbJ%1GcO2mc5><%KtkZV zwlJotlb(SANMpc%2vI>yjDF88b-n{hkP^HVzEYS|@bai;TsXh!FlhkJO3BRz0L_a+ zL%mz_zlH+O{n|d~gIuKi^Cax;!ygN8TsNfsfUIiqXs0!9->ws=WpqEPGgV zm{3#3$+eeYaYd{$q8pLCbk9~(J1)eh@0Mk4n?@WUAN z`^21H$EEhy^w9M5#gMW7NaAsBa*Jsc^!m{2|8ze%JG-%G9+!GCOMZ|5e*xQ{|7W_l zhoG-tjsDMpIyxKA=b-5E-hcb~IW@&iNlBSgSg3LR#*IgLr=PIwS64TfH_$x*A3S(? z|2_?zj2;{xrvYGHuL9GeaIEif#`4^`bFnowcRc@iTUlMa!A=L4gOobYNU!BHV+xIJ zuim&3((z1tBk|GYc9?P(6Vt|%{PE|1X{V4|&DuWb%ryS^&NuZR&(AB(!}_x#W^Y24 zZg*U~L&aOEDr&Hf0I1aEr0pZYc@~~bb(%y`oM*?ym*49CPFdut`F}dIWuq2zJal7? zI1un6F1>M+W-{@SJqk7@@Ijt771js@;zxIP>vCV>r?Dc_#0ua2me$VRPPOdL1M0y; z7x{|l3G|r{ii8GO;t!h&@XxU2IX2L;as$_=Cnm}xrQkU-gB8nOO0g$;ivLy-oFg>F-4I#94Ml*t{HCogN;(GE?P{pfOHs zK)&EqA2$(@QckJrZ>c}3S6PKR+KgB<4;c)$>PJ{4hneacXBE6=UnrwV-Rkmyr8c2b zu<{-LHHxONQ6#^~fH=+TF$I@Z;^yQ-s0zS+(d(W3ENAr;>xVbc|9i|0``XbB(9!!2 zzssYTGFsS?sp5y}`MCejUBV-t0SWMk`-9c>s*V>F3f?Z8l`@xHItI)W*|FMb5=7D)x z^50Wdc#qpPJ);bKNW@@P?y4)QMrz#LqC@k!$Zk4K*Zi^*JIRk6lt2wTLH14++ z$~M^szn24#Do8zza4qEcb7}S8w5t|VMw9axPoh)~TvlmDI=6Y^cjcULj~PPFe!Od) z2&+78=uBoP>P8`{C>cYJy#fGI@69Q;)+9}QPr5qkK~>9NZqv5|KVVo?_R&Tj&714FuZ==XzTU%_B=+H7?v(W!vX)0W9NFJPlgVwZzSm(1!_ZBtZ)C5 z(XTE#J%wfvonzZ^-q_sXiYw}Ff~#RP+n|z-#(R8m@ql|=-dE|w)8X0>)x4R7pN@^B z<$;~Y$ne^!J@diYBGSgjeo|IWX505TV_xW3ZDfmbYwPOzs;i%z_Xen;QTU%;CMV%u zwnxD!*QP2xO=c^}M7Y+50zf)WRo%3js&Ya)!(YgonKU#shREl?fB(+6!p8=Cf}DvS z7Xl9V_k%m0y>b!Bru_I5gW&+#BPn4|SJLWZ-Y9*=ZGaIU9Y=MHa8(aJFFWPna_epB zgDb7J9WsMP7&X%R9A5z0;H>rQ-@JC>mlIR~dTJu(BEX*io|i@FHCAAq^ZmWsw{JJw zjS#26=t;lL`giEvJ8+h&v2olPUev1usrgUmQoD+RqtHLRc?;T>+QF5qQS^4pdnzX< z0!N^}U1>!tsllqAaV&jeXyM==<_jj<`B0g@g1Ov2FywtFP!>h)itQyIT8~!my=~`^ z-%?ChS#i6K)G)jz6QnoyR&xhU6Hi!2!@`okT-23=i1rLCG<80Yrpcs|4b^qWsOP61 z<2}eDymBf#Xzlbt`_c-fdNTa?y~v;pUQQO@ku@U6!b@{vd?OkDmz&@nlg*>|hYP>& z$w~{W7!hIOf_`%Hu%%e&wvZnr2fahP!GCko9G>0b8M^T?-I&Ay4 zZTP2M2FJYeG0^xn2IAQlKBCWa_k&bxV3yjZIH(D{L2_K;>2W{u=`WQvVF#-!@M29= z!BthL-3{8lzP=LVjtBe;=cKV#&muTW4W}jY7tM=Mn8^rVe#aO+9jy>vSULD=KI5p&8gV!g~XoW}j$MfN(9@ zoWnR=Cq@Ss>%!?<`|#0$C}%9qYXWVH>4SJ+wg-(X8NJesuX!YoSYNkQtFEJHL50j0 zeNzMAU~t4?-2V1?7S>C+ll|WTJRM+`SKQU7xPk{SYzQ0aDBb{q*Bob&$z*P zMZjTe%$2@NAV-LQJjX1CaEBxlYNoL*{Y3ZWp@KB3EA|% z6AjI(gf$~A?Z-gA)fdCxxz3+IKN1POaN$0G{xr^oK`ICv36IETjPL$#;DaPWNGE+<-AnD;k4l?vstTIRdvijvy={YIMv+4;30HLi`cS{fF{6;M zpS5H)V>RuMl>Llezr^-#M+$dOuQaKsy%h_&hzf=ao;HY+Yd5WvNlJv10W?GtYVsU) zj+JLIYgQg2UG%Znx|fs9Y71V!z?~p2Z_`zgN_h*0bmYw_z01kG8AY`5rsYy&yA#r(Z5+6#T`QhpGnO~u4TJ!Vsvx*giuJ&S*XO{%Arx1LlJ&>;W)Fgh&4rV4AgP;AuGB|swV?kLaH&b56xc% z9{(BZFg<;?qt8o@AfmM0+`LVK-QkV@T#JL1RX|d5EbCP<&50_r+2h9oD9SqeQ_A=g zX{r07xe$sNdW_*iCUZuM=omfYQ+N?5+1l^fC$G;-GzVv6X zNskknT+IHoH+A;&PBxE1>5?u6l?y)~K&2YC@E0f2UX-|Wn#6$F+pJ=?PW0i?+R|1- zLbqJ7zF@H^M_ZW5@<$X*_Xgjx-W5G*+&wdmv<^NHQ|YAF#T!|kI7Fvv8nyQ8-wQoo zr)RoSXPtV{D)bsGSwHgh=5;&`KoSmYBIV1cj;2o^*}pMvAc4|X$S{TR(D@~pI6bIr zJ%aCLhCV_@J=aCFWitbH$i%2aM*i+G|gxHAHg>^Gmp-83Gv0{y3im7hJ!xS(ge0UBabs;aymWtTtb zY0_&l8rk>RaH^+2<8H3sZtozsF*!Uo7PaOP7aN=Pj^}P!SKwilY3RX$hiXC9Sb340 zlhf80(tXWqL6?pD=8)eTz$LP28B?^7g?(fB+D)78U1d(!V|B1bL^fl%Wqs!D!@s&k zzKbi}lh&~q@XM`leO3~P3L%G2qcU&1KKl=c)-7Y_-cL4k3#CXNFT14Bnfp8n5!Bw}_~>+NTH<9EhT+m%>LVWnkb ztr|!A1d%zX!NARkI=F~n_R(q)!QwlKh#3=6Wns5np9950sl|6B?T}uorj7P=FnOZC z!FTti3a%D2Rt!IH;N(=;)9JeOgXMp&^7wH0G9_?5Z~d`JQW)5YmtEx|t1k}m5<4>@4*Vyn4>!z|<#hZfSQ%R=@*3+vD~Fi_mJcxp$wzSEI<;AiG>@T(<$ zX19F2l1@ZDSB`uh9cjRyu0ykHqZi z>FHVCpT&GPZ35%ub)2(D(hhljV@bHpH6hQPA zJA01gsK+-*GRb#zGq{(JXwf#*-P|f}`Zyq-q)bNCodE#2Jlf!nukX(u?5-oN!Jz=j6{bOJnZpKcQjz3!g z9)mD)XVdbui}=I0JqsUC#7sUj_xo59d8r(3<$qC_@2!+SBgo_K1FH#rU3sG z;7X&urFv+A+#36RLt-g?r7tdA2hN8I88co7b$!SJ__u3!<0IaRM(Cvlg{~!zFlxJX!{i;G*^MuWImw*&XmF5w7 z@LyX{!MW@pyVR?oMnc+zl+1duio{{W&3!QCxerIv$Eu7r0B*;N41r23v~y5+^_x}E z9ApsMk#*5sqpjbxva7MO`{C110TAzY9Z{tK9p-UE*!+^`{=a_PCT>05sz0w_Jp||b zb<~i2ZkJmhYm=_hcK29dy+d6fhO&9f%iV$7zr_BjA2LYR^*1p1wU+kkw}oFGehXgB zKeE7K@NhK4UWCs4In-jY9eO3XGI@r@tOKRTS4(Xzw%U)1OP&;ic;171AxDQDD*S5zBK zY{$}tvd^c73aCA%n%BcOXQ5tBL5gWNmFU?`ug~%9y72n}M$Yk80TB!B%hX7hX25o!(GJI6qm?h_P%pRDQx{Z?d`9;UwCoL} zIe$Ymd}e~jUyIZzZkyqMMzw$nQ5&7}ajMAb^S5$8|0*jCb@Xl}djV`*ov2vM7GhaXw!yX61rW z3^r%$nB^6eHI874gJ#)sN_o6=_)|2|((Xkficw8fJr-9_9@kN~cTemW?Tj3Qh`9?p zR#t)=H6(xkNB`aCG&T9>!%cq*&(A@TYG`P!My|Si&gay4r8*?Qe29h zLk6NMJv=?-$$9`_H=j*NZBBUKF1^g1nZZ+%X5T-Ig#I1azeK|wt&xKLOR5mPzzGvG zvssxwfU7IF-n||uX`W8>6Z38=L=syJB>#cOh-wtBf$>vn;)oS52^t%PdWSf}l=VQr zv?nzZ2LRF@2|79fOO_*{N76~P%kWvK3s1w~Thv`L$+kXhUT}p znHt5k2Y`UGE3kT#k1QEC7;y+p3UNX>t(NZXZd;t45vT&`!3j|Z;SE`G{+G4LMUbUv z%~OvwcH|9PEZwu^aA^wY(^KAogGW`XS>T5Oi3A3wIn1k|w-rv=5$pp0>b!ts--Pvs zIZcgLYY@QOeLGuqfc~xswttkFeL#Luz)Ls~Ct=<<_``Zb)^0jfl)&`7A;bg$0 yM1KQDI|IioOa4A;>8fK0o5BBwJO1YirSn_xZ=kTuq0Njsxx-ne?ul@(hB=xia diff --git a/icons/mob/species/vox/head.dmi b/icons/mob/species/vox/head.dmi index 930e24dfa86d0971bf8fce176da45ffd3c355fad..ae10eaa4b5cbbc644cac1ba85f6272bb8c51cb7e 100644 GIT binary patch literal 19413 zcmd43byQVd)Hk{*Nl7W`kd#vCI3NuoASp_T2qKMi92%5H5TykXl_<&LrQno z*>~|g?|bhTcYNdi@qO>OW5DKY&RT2FHP@W;H|JWvbKYn@RK8AdlK_IC>#8aWk01!c z|LPa-8u-uW&dO$RL*%7v_*%iz#lrce%??8aLhmuGo-2@r|Xfrnda?rLoXR_ zw#3A*jqUAuEf@>g+?4BCTL@?SUBy*j#I`QB9$A#%$}1xFB9J=N$;t1rrC<=(gVX^1 z4!V-9@ba|}1D&)t?y?fEMT@AglO?hTe`cxfZN$PqJkNIF8BW_`Pt(<-SUdMj_u_GV zcqt{^L~H`S&Ukxq>`H zHcZeD63l-2{yki*DKk@+ac#^x^md8L&FA>oZh^MGSG*gn>+441Dyuf@+)CRuWH0ZQ$H-Tg0wi7hhL5Q8S+A5Z7kl; zECT3xrAkX7AL;-xk%dS7bB;f|Jg_$^X=3CoiYDl!XAWSqD}kiW5w|h4Qn!vyl8%`o zyvmtVV|c0^IBwK*jyb!|H_A;GInyy>uUtug!Y~Lg^uYsczH=HOA!U>HxV9q90we~@ zOWdy8HBbG!addUT)b5`i(}}E<(Nokm#mAF>1rpo8`53;KzR*>gH`wN;}ZPyG47?n3KLtWU3FA1EYL(Vb?pBF&9o~G zS#sYYqAE5>dTJ&o7ZAz)QP#Mz*i7xOY))N4(M)Va3((B_1}P7zExEf{vd*?5HzeuJ z4`1dCavR{dG!R4#V@9+S#B}F)qZ84`VQ7*8&NC!wZW-LBhB1Dd3aktGSsb%1G30CV zMSkpgMytW3^sqTwT}_RBXgE9P>o3&Y{Cz=EFi6C(`^=gXsd@{2%Jnw!J2ZNfls`+y z6WoR^NQlHxDl2enKYRdt9Kqo@Evv89^z-{NwPc_jkExOa0jxs({Gz*Y!Qw7AmIQzS zRLPV+e3Xi~HE7@f%?sU*>Ba#fE-wA33-|b0gq3BaE79`y7h^2EEaBIaSp+L#0Thbz*V8awqyS^fnxvo%S%7U4~|j&@?iL z%K*V6`sfGFE&5`{CzTqmrX9`?*#gkVa$u}yh?z^od`gS|cJSM`Z`pzQ)<5MBmz?$V z^mG)Xj~`qea;0KTrQ3*Lit`~h6vNlzCwLtBj*GBbWoD6AT6*iIy*V#V7LGs|)tTS8S&(>xsdtMaEpaWSrhXY%VjfKT?3 z2P&o>I_94?swOW9?fxSYTyL=7diwu406g3o9kb2u8W*Q0uFWbT&CA0>2mYtehmNlf z2>pcRd|(g}Qs{}#O#2Z^(UbOcX|SmenPY9BDOTJ85)ak3^c_T_14L#dnXQP}-(H3^ z_;_RYRAx*#GY(evA(4IjmMExwefSo&p_Uf2g&K#J!8Y%QcyX<-{Q3E!i>$y>%Wesf zFvfWIM{>mi*K8+NHuN=Gech$^DG-UE%EzIKpkz!^Kfd6-+$OnX%F;Z5nIBrhVTqV! zk8hWFG=d-C#%85PKIiB=DeZTXWg=7kl#>z?RPyqb)pg!Ax3!0uF@r&<^0ym?7ntAs zi;K{Ox;z*B#={e9QO>>jt&@?)u_>+}4*CSI!n+$V8KM8+YC?g2hTJC~Xm+>8eASe| zs8HY7iWT4GFISi8qerZEzR%J=iy_s%6wg2kYMl$ttqacFp5jhhU1FY%O=sHkPPI3} zB1Enn+1dYl6Isls0T}BlysXZ{CHjzk^^;XYGv(n!FD)>b>jsL+XlZ?IpcL86(v6t2 z28Q^CB=qb%^#XI(a7 z1yshLL^x0EVPe7vuy66Tglk#|-tx8cd1dwtEUJf?2@&_H7TCMK+v!NBklImFQgUzR z+1b9~O(Km9#;`v_;a)o2K4^ABlbkEh4Rfx&i3(|7*ISFMz;pKJ^TC@rQdTfSOVqRG`h!{Uhzf;f=wz!jpTioTxVIU4Gh*WMd ziP)vN_xD@lz=8%$5_%<1Iow7LwXfR8AU)yIJW;~$r+LojFYX6;NAekP&d^nC@>I{s z`Ckbih7!6&pf8xD|4`598gkWdy0yH(+S_w%QhcFbKFTX9_UMyzUXwkefNB9W!E-Fk&f8O?=VxozWu-!woN8yC zY7-h##oR4Z8%#_uxpr%wzHL)Xd6=t1E-q`13h(S+fiVF1!moFcAaexR`TBNA_L`S8 z7g#ZgqivGHJ=epPv1U~4Qifv%2ueS2<$dQOoJg0}l$Vs=)?@}R3|r(^eckFd?0w1p zPab+^y3tt=0xt#4PMQ{QVGsr^le%%7aHRwUNPt$ICDQ78?+3dC`R=mC_hArnVst68 zL^zRK&Q*O)*9flyFrMHxBoY;fCLzAmgb6!Rt_<_jeGsx9y8#7!&C65KA6?gAPh*H| z+1HPGr*9WlX3qX^5`h@o_1HmIC}u!7hX%;ViUjwE+LuL8xBLF|9CmonW-ckcA34iMsfI~Kv*=KdlQ8-TaWjn zlr||4ER22!n^|$Y2hmNJ;hB})FEH*u@{Ggg`2O>+t2>(;V8fvloH-xeTHm{$TBJMP z=TmH7pKwc@++miz625Kw1DXkmj$vFSbO6r3f3%?;jdH4mk_hwiXb$R74r7_!&JPyP z)Ii!27>HSW>ji7PcQkKj)xnHH<7mix&$}xBiFh%H!wqVkRg~PLsj-{J=y}clO zQig=cnwadkMMRhveha+S`R&pZXAaaFhS(UI`^zF_JOpF_wB)TYUW&>l%6=QTx)n@O*>C&yfB-VdnG8C59d)79yT`$*P zI8--o{QMA)KQw$!@Z~wN?zir>wd=Kb0MBfHbq94WFy3P$VDEe(U)n~dpP?_2=B(#m z1Kjxk7vbR6|0*1Oel5jMEybS{pG2`-6!~s+J)h|oNNb#GtOo(^u;OxU(CyOPyhK32 z=`#4yB(HF0-Rcvgaolu`i*Z40c?61sPkK#7j11?;bY&M5(Ez04Pt5WJe1wRzo?hln zsgO}8I5v3M4vP%?(sqkSVPCM;g0qt0)7g6;%0N~vb9{#g&t*PnTw z2hC{pQ6>z;@FvBbnK{k-@g*L6R-!+{qP>DfF8{V8R?#UXh}zAGSUFRNb4~O{Xl51D z$uQIB770x&0mkzly5xi9xQq+gsvpWEuXK!aLyVozhi4l}Qu4%Z zE0>SmJ0i#^Dr#giDwGrH79_>ViNW;VyW~}~mDc5jIMweIyH@Z(<3LCD&B;x-(`C`W zErSDe6-`wGgqpd<_7B}KZ{uT?AC4ky{9V?cWUs|6jBIz0B1MhGk6s_}%v-&QQPMZE z?LU4@p0#_ztH;I5J2*wMHj8*Qa+_YvvE_i(@qDwoo0gW=+Rm;$01G$4xv&FeU(FkU z94UCLqNetJAX{0OETCi?V`~5R&C_(Nk)I*OcJX};T+~;86~_%F@0w_5z|wsMarJaY z%pETZ>>`}D?5zVPLgN+~Xnc_3`}7ybse}oeNq75Ni!K>`47XZSQ-fo_k{52m*R|^= zQLh&?%Is_!Odp3;8;lSdoxTxv>`clu+th|)atKI3cAipbha&|DYxB>7Q;0y+{G7o{7A zrAA}-qe@M`j*V5Kg3iA@3_ACSLA{#l^marIz4W{5a(G@*m2vka`HKw!T_XU zyVvEW9u*id>^(mgightsGG%!^=1Qmq=#R31CT!?@k5w3vIRxN+g}H%Hp~*tKgG#;) zZ21Gb+iqd^8TxlkKowR! z$sr7qZp=bLWI%Icq>{OVc_u)iDs> zy>oB1UxloER>yp4KwpoL_nVbr(`gT_8=B==iDsG|mcy~?$ zlGSssM(sLo4|X-BZ_^QwndL`&&8@D4P@a?PzbH6TO<$3J#8Yk+xz zpklD!>;9^;9vpS5g_%PMoT{q;ZVABZvXSM(_Hw?m*V59`pFe;4dokgYl}v8#eUcAL zxcA{h4&lV)WL#om2;%k!ayJyZ#O!TqVxqA1(~vYQT;kdOPx2O2($Cip zZj;mffdxVJJLAdc9e-lTvWfFp#jd@l`*rtN>UO2BJ{AOYz;>7|TIzku_aPxYat*Of zTZtDwYkIjXeRV(G?I5?N?C|W7*BvM`r|f3m)PBj9_^2-fntHZ$p>ww*bw6R&ba*;S z^lxgIMQ04jsSMwyfvfw%qky&3Plai^>6p$WQ2`U-S{3GI zxEJ^rE2bCgi!5m8-Q6Zk$Z{lKly&y)y>PE$MM0u!0alub{S09DFM5)3ptmX`BO~*o zoPF2pFHxyd2A<7zJ&(&@aLbTR8um)sVuWjaj2uh&McT@Jp0Uhhsl@z@07HJDrm5s?FY-)>Lq0<0>tu35I+1y2_-wJ#@B4kJV%qp%=V8k}Rop2H zwSG`mT*Vy-YZcS+Ud=_iuxTh>;>26RE3u^kOQUPuJrh5@*CdC@+erGYVbn+wSoHMX z896uTah;za&fRj+vlc8aDOA}Lma{R z)%3m==!-bnzSbhzNGTEcBWJ`qp*txQm{WXVQYws$#?fRdYHf;kTaxiV_aHfPtyoxX z6aIkcBtP&qnm{h)Jt+l?S2%X{iu(M%*^ekQGDmfU{f}JJ(?AoiKiC^-W6_NilX2@&~28}%IC`cxG+>> za-%UfBc|$p)-s7XLadra)t6?MWGO~?KWtRO=dBH(H4y+Lmzd2HM~1!Tx-kK7Y27~u zI?P5Q{1cnGVJtaj{=Wa9j$^e-9wjnAbGU%$NRyf&{ToI{wyB>D_ZA5qjd zk6VtY7NYh3WAwVRd9@>D5lHRytM*M-fyr3;59I|AaC<-A`L!*i6>y8?W-)TepD>0q zluzaR)*(vc_{ne{6PDg2l?CgD-kOVm6i(1a zYa>Zy(?+8ecA_eL@3ICu+GSG%DR`D5_%(vKM)#lO#g%Q>9G>spTIP7R?rlHzr6YUZ zkrP6_{S0CpkO99%wn&CW#7KN(-W$3P{kU%8%IUaF zVy!s5rno9(U5f+eyAo0+DWOU1Ol%7_nQ(yo*B<|F!FhI+pL;U4=_bB&vEf#4n{qS8 z<;#P;?)C`ZVeMiL6n5{gaE75OV3xS+b=pofF8wvQ>%1(jnNV!WRanVVAH3Gn0v7z9 z0>o;EFhmC9Ju1MR<6$ z*B@Yz-BF5cVEL7jp`gwMGOTBhP9n^%{``CMzw4@Wm{0zs%9i#Zi2n5SH1yJ8Pi2y1 zqqE}WAOr~u3)dZ6bid~-n_wjU=)xHsiTsY1_UC(2_0xUI33nzEK?t_r?_C_O-@JIW zOeO_i?1y5rn!`JD0jRbV3DOnciFMq<$!&7e}hO_qaB9j`p&u?!v9-Evl{(2XiWf6;>o@8O#RxoX+v$lB|#I6eUH@qDDGBi-p z_r(tT>glUv1~z!Np=D@A76S*yFxvkQxMesM8IP1 zdkEy;)ukq{&*Z<|=1@IJMoF2IaCmt5si5F@EHm>4R?F#fMvOqy2_{5T&QyT-`t_?A zP#b6#a(3ngwIrGPeSM64&u`3=;XdOD`Tzd?;Nb9ZE<&J5R!8UE+;YR~)kmk^(eZLi zOk#vYtKC7zC;=GTgL-BG^oPrSUmvW9KiX{}NN&e+1@&bKw^ z%CKyC{g=glbd*+M#oCto=NTIqXosDC2o|u?;veQPA zSXfr}$o<>~y*Zkact9u^`*wBrUiRq+y5f3bXa~pc@VE5SnTK8PL;By&q845rm2;!f z)us-Ng&)bvExW12{r<2Y92{geHJOZOWo3~fUdC@(G=n!z%ewjHHDer(*aDH7nk4-7 z8+YV=ij}Zomp*A~X=&+|wYB@6p5k5I-En@W49VlF%@@Qu(?v!6V6@pOmp(-sn{Q=j zf`L~#dXljlEeHJt+f9Tc&tz~A@`q)T@fUB?_qQLjTBW;EMf>hx+(ca7K>3|GuFSC%0--Bh+5slfYsizG|t}+nU-KV8Ufps5C zr2c;ahe5l3&s`s51a$tC|G8#Hbd1cI3ckwH(vrvVw0oSiuf$R9Q?F#@ z%Q&_?gfq5~kdWUJxTvKK+!Ge&UT*AL3S?J3nW?fXF?PoBE8QFvI$xlklu5KpdK$28 zH+fAp{=yanhp5Wa5~upwV32NH{8kqC6_@iERabWTis!FLN? zzIBA7p2VLhYB$0D=JB>n5@Fi(^oM5G{5xEnyy);8^^7FtdIf4;qNmO{JML!ak-{<8 z^+LbU36mbAMVO8H_ElI9=2jV7=J!obf@LmAGxEcp%GG@Pv|djt7LuTiBPj6 zZ_|`fcw}UxP>iaQ(zUCbefw#D;4~X~LgxEHD6%VYQpKC(?tD#3% zY8wF2s`{zt4)YhoLdf4rx7?TS;*AxxXdf;1baD7rjTf5;@b^gsB);;&Ku!v5 z$LEf1wN#nT+`?+<61M!a^qBK?rGOUh)R!+Duie~vpV-*&B%}Al?%cTpLCb0GGkMMn zYjn+5#rIkFf{KR5Vfih4OghR7wkXn*BvZb3!8`e|hz(}ui~YYnk6ym~dJm!8ac~e+ zH<^;|N4oFwJmLL&wQN;B9P%R_SpZcVqHH+VUgW*6HW@ioO&HEM=m!1TUOma6(>-o` zvi&2B$uC?lU!QhQj;m&0-_z^G%}0HgxQf`$E-rIYL;k@;`KS}TRy->lh=|HRI@@0C zOD^xR9EkFvUy5ZqKb z*r3>ik4aMZ&FaUOkU#x;OLnE6J?hT6mM>dxYI=S?-i;~Ge4lp2B9EI6m}|~Mshd0s zvV!MX>N|(ks7z*IFNI5z@9l<_e-AtB0s%A zKg}nFT8XIhaBB>;?Ti;FeM6e07Np7>kp&mlEBZEfu@#OOdBU(B78zRkTprcq_= z18eUer`Z-^JWfD@?|P@V9=Y`GQv?7%OXg`-NN=YOK9I$RNkQ_ZV(HGF_W>(4F95y ztfd*fsxJ|4>g6PgjQ5a zMIs;niXmcxRVGCxW2jBCBjG;L2D_6J_;h^o#yQ-usCb4<2)=w5dp*i`FM<1IUj8eE zSs7_QHFxEE_l|y1I+(uEi?B#68y4_1um3A8zmY#)x%5`9If@7(+;X1#u}h_Ke#iV- zS;M}&r`-DAY2xTenUF`o8{ zhK?CzQ?Uqp9Vm)#Gt+SUUr&@=`fW?Mmd{ICquFPi2`@K0=U$APR?mj=_UU(_cVjEPnC0|q3aYy&uzd6hVt2EUxQ#BfrhUi8*@!OD7MxJ49o3S9-s{nDUf5& zl0nGRD56e~bz@(Hh1=RP-T<$Mcrh9`c=IqFW=lIBP9*9tBC4bN#$0gd;Z`VnMe;no=lymT_(I>ONRyr4{(B$8Aeto?PR_ z$?7rC;oA zbmut^Gv0%sV6QX`DHn7%Xv}s(c=ZOkpU2;eq{BNDH^`>K&MpY!`oTO~?y2OB(#k!X zA-E;DetAlL|J{e``|m{BOfZN-W_bN^+&9~gj)O)WkW7Y-qbBnDP>iR8oQu~NRw>q# zV&pu=wB6O!vXW&(G}mfgXq&HYfj9>-VPjAGQG|v__LjEqf?Pr^cJED8qT5;ag7~@>Qvw7#4q6RZ%kG@I& zZT*J3O}GZ@k<4)Z(+36;HDSgbZ=oV)9age4FRP-6fBHSMl|?f_e_W_l4u>h_{m_R# z1S(^&ANnTL@^STL*ELyuw2}+~kL@ekSmi*8>-XMYAV~j;2IM|arE|v5b3e1}O1M{p zYIM}vLAV>;p4v9CesG4{v}}(&Uu(H;<|-=^DBF6vncoxYLu;RRBTPke#STt4M$z85 zFc+sj-Z+akU(G0sXHp$IuW+_~ZQ>U@OLIVD{g;$G`f7n22L(Qki%9Ljeoi8POWr9q`26^?#raVI14l)%D#=Ufv=@%2Mqnun4jmP0ffu z(_{eVoZBZ2o(<0%=GY#pn~W8C_K}|3xY^a-C)RJ8<)?l~?=VmyK*7P$Es0E`uCVt* zpNFQoTMjddORm%Fjxqvt6tybay38w>V1thiD}UC@C~~_r&O~|_o0^CF3fqu9DtB6S z=%`K%1nV86e@}*^&_3wJi*H7SS zffT1@MJIrY`y-{?&S#5ng1V^F7z#a2@09hvS8v{8(4Fabqen3XL7}%GfE8>C%!WJE zG<=x#RZm$^01N!l!r4xLO)RA<$OG^x-dPU3m=L9AmF8dczoyvS#uRz|*2Lz?KU(<{^9iJri^ds&sHP_Ue?SQ#{wnJVlmLPyk3Z3_pc=8In;NDx zeC9g@kn*`{JgKvA7Udckcfg#4<=r3IxmXr>7}d zvq4;K$G!T9D@Ec2<=G9!tlxkCDsi{*p8QccK4g%d6bPDROKkr;)mLvtx!&#rfL`KE z_fnPKXV5SWtwb)8?hLD&q`s4?L7NfAdf?TKlZ4{6K-X}PhbNJVSN?iPWAWGIv#-mi zKVdDD0gPA3bSm9YriE@_Q%>+|+}M`%U?_Wq(!tC~em}9$X( zP*VJ2kA?QVdy2XCcu~q{%^hm&Xs3zuCTEn`J&Qe-LcTK!o|A~CuZql~oO;yfkk(nN z4J3>1iQ#d5VuDtLO}E!ynD#UUjhdr=NCq@QM$I_T#d`B9#RX0PYsnJwyifdPr~`6G zyinteCGb3I)Rb}vcAs%Byy#lr=3)I5<|}8`uY>!naf2kxq}7y^3sbhQWSbVBtqGTT zuU~#?Ofgwyoi6h`x))^}&SXk=z*)Y~HmGM^AqtVu z_#Aeb(W}`C<{`HZAoUqefB)YMXPx5cgTEc?#RL+)0lqi6*{J*vD!9HD6_Jq?-zM@Z zpPNezX)7Y_2>gEoWTrP_HgAlqqkh6zvi7}Czt$bi#-c~}xtYz8o4zR+Cy!*Wq*cXv zGwZOJoymI4k6EUT*Q$Li=MX*O$LIRmE9{^-T@wTU9FewNKch&Xvhgp}n?KQvy>cHwI_Oq+9$8raBjU!z)o~Suahq8eR9g zQc(CtR-d5`&fH(`f4$kMsAO|QjsMB>M$Eq(TKf$GkPYkbRaJTTj;>ylh{wV9h=#{M_xmzDytM9U@ig_(k(vRuUjq;e?IUxLcK1Q@$Pi7pTVH|e_t`m+9ln_J<9%6OS`hA@Mlq>qN?&02PXcnmu1!z z@8;vuU*WdL4)YX~WXQKJ1$n1Dk6o+-LJvbThwV4Mz=D)2l8PSjNzbKw_+MBGd z-K@lmJYkg0+&8#U*nUPm^8?_aAGMtPQg7xrG5t^iG$e>{74o~>=b7Hf*T#iI)8)Is z1`zMt5t|ndiUUSVS#_J^Vu%#~?J4;}r3zNT69M$``p%%Yed|23xmOb#sQLA3Cn!>& zzsO})UB;LFptf|djVHgLOa2GP3Abt$?|S1LPX&%txv^_J#IBRPwEOP9H8aL;+;^^f zauEiE0Q#mkF>dOO?Q51e89g}S0Wga={GO6L?!6Wwnpkt^&;Z9z1OrtYW^`3Z;xPB0 zUODVD!Untp*$Uo36XvX^0_XDM*n(Uq#oRNQ;|~-fOO3Dt59Ks5gPJGc0M^VTUr4Q= zP$6O663LZvg}H^7Ok9|9=b3D|UCXA}jj{^0aT!QgQ_y|{O>!f^%$Mdmh*z@9xNcg$ zWGex6(=C~~G9%q+#}&#ekTSa$(26K=upt9w5VPRQ*ONY&{(3ywT}aOCCi~EO(o%As? zd{!m_jxxl+!yIJ(WMYM_O3|x@Sw4dX<<-5`G0qyz%0A?Oj1Z4<(EaBvr@!Fk(C3~K z14#bUF;V8pQoi=Uu3Z1w+h`Ik;4@?&F;?P^2}2mm{o@4VXN!&rX8%0CtF`N@2bvV; zJFXVch893KQ>6VmS^rt&*VTF7d}DOW`=Cdd{3qXzQuur%*axefw+0;q*##{~RNZBS0|JHclFo8n>u@h6pVpC96o zo+!kcyso;ZmR@zla#_5rBl{hlQ~m<--(!y)0|gcc>EGQ-{0lhO?rF_Z$ay(^^Fb4u zoHIaNn%~14@z6?s=n%W?!Ll_EiW3E`n&8Ul-}KMklz;IE`h2{{dv`L_wVDCsG=mmj zET-*niJqVf{WghT0^jR$Vi$l~YC2{4_cuqv zu67yS>V5l9k`fbXMbLoeAVCIVCgnvGX~4fRQ|e&$a_{%Y!ON~kkK#+29S91>MQZYS z?@E9hMiS+0tPEs}c^%}j$cgRB$93B)sssX7e2R5o9LH;23MxQpa0pD%ZQKv zXHO2KM>a3EL3$KiUxx{b4XQi<}4 za&&%nme9j>-g@Q&WS6z=>FH5XRh0vr>7OJU)_}ZGW?fxdOKX#&lwK~zNp^uT`@KO5 zOlGQh2CuGBdgbVd#*&}Qt=_n|?2ARm&;!fvzP`@o3}iI;H7PIkK%Xuz^&#LZZiHV| zS;49W<31Uotl5s~RkV4MiMJA9E$Vp0OSz^DRt zIuh;qc=~SxFBOj~1*byHV{E0{P(Z7xF*O&aSEjwF7WPo5*Ekb#V_-A07B*{ZFg^v? ze|$B3gakr<5Ht@gI?_xP!vK+xIMr9h8Jj*7`1dcB zCEc2j8=(falRXe-Fy=tJS zzpK{HCYgA7=Vnw2XUg5OVmF7%;k_We&~d%VN5|&(f*Ubu2*9@1x&b2Gp-KEk1vlb%DmuDR2@XvS773Y!g{&mZ7l4!4?g>RQbc@5a|p5oD+IPE3n=ze zgB0M-m`5lK((*g}fVce4X8O9AUzU6SMn)_0wIhx!9<9L+65}QAzaLN2k^SFKlKNkh zt+JH&zkm?wIZ^Ra<-r35Z*NH(8=De9S84N0@I2jH+KZ&Uo3P-}d`SgXH0Ec_{pIE5 zZhURvQ%dY+b zL!s>WU^mfvr(R40f5wB9Li&sW!)SM=dKp%9HL6;>;|I1v=dG;jd4ASZq2h8N*;o;D9;QqeD8C;gy<0zpA*c&9aaoO?Z z5cEiscku&Yc$=#8b*29n9fFT=tA1+JmIo{psv)7w>PE5^+drVaJ9T%srsC^oHzBU& z$TzAhl1BC`o)NRnR^S70wqS}tR8#aG^=UzQFD3*;Vgt{G92b9*T?`^F-+e;E-KJ>P zD?%0^$LpP8K~YgrSGf6tbqA1&et~m)74`j7(^MCr*QSfTZlN@HL(JHW41wG)U*>n_ z+E!LqA9HkBJbNbcFinC|LqntPtv?K`4Njy^Znmfti^iY;<}$ zBfX>>5qQu(h_`O9UiR5no2I{ie>C^eD*bD!w~vn$V1$Adv=2X-xU!NbcLvsr6tcXl z=V7?(I#RFfLIZntz&WG~N)Kksv*(p9rXun4OiZ zJ7HRWddb3}soiTFt-AN7WiIAA8S2Vjz`3qG;8e|cEL?Ag5htxABE9L-bXU~Ct4RQA zPAeeaCGJ&KiG(|6E0~=hZSJ`@pBqW=UkL!5*WfrDZ)G9o;gZ(mvo`-`LRQmy!SQA(I&W7N(f4PdcpQ z4R~{Q#?&dvd{{yJS$3ANZouhH6SL2hA)FtCfTjZxv-=3*rn@9|u4*5*Q=f!+Bvl#S zrgGgexPUw89Bu>D4r_llFx;e49DV~2bbrUGsRW!{3T&SqVQJ$cA#gI)vJ4kKsqU5Z zIVpKG0#>jkI2kwFU6OT!cLM!yw8yZ=lT}%$3rCtgZlVudlbxRyB<;=3sIthXK$xcj6M5Ym$GcUdS@F5(mAUg-g+7_~s&y`83+d3VyuA-vi;I6A2yqjaO z_6v`!95(Z2qg9KHWXJqYtqn(vBTE`T5wR#Kkz>q7}HY{vhZ-c9;~CsknNqqUG4N7t<8)u8AC=@On#DZA_UNFR^{NX>v4|pBC1`AyG3$ zM*#lALcnXo&%b-jt)g#T^%Vkb?zjE zIEW}^C2`5g1TF4x>(Biv00p?-4MMuLBTs9+axZ4S;RJ02^NiLDbWzBrdztcZxRu#! zE?$8SA>F|H2T;>FiBkIURfPYKZV5?ASNOsBoKv@U#+OX4=F1nQkBRGt>_b-wVJ`o` zjRI)<{XX#%=qJ>CHe8%Q$V@(ub;9qTak*hdc1j*OUhBMxvfRD#ko^ZPBq)TxU0Cx0 z9RpQXR+f1Xa9*|5zYl2rSKl>@DEya|c()|}Ffhlp+gB^s5eCQNwNm~+^pXVa z9Dgdiif*SWE@pgL-hRD-us@cT@g2T|zhX?A)uPjVABk`AA+RQkk)wj=Hdjrp*dd`e z11m4L+kX*f7GL-9&Z$~((kL~KPA0;hxZ^y9&yq_G@?wP@2lz9|rsP>aT9s+uR@<;* zfPa0URkmpISyB!=t#2i{S9hPRX(2YZYKQBS$Wo@Uq#E^X(iBP@ZdIiR&+c(pDp}nB zCSdl;ayj`~y%Y=OhXmTF4?nC`RPQ`1&mwhysjJYN0zRrs`X0JHVV%Tjsg!;BPDWw# z;Zu&PBh52G?z=|rWHt5?#?d`*1FNe@obw&#d8^fSMvhoSy2s3Fth0@y(-?3n&d!*t z)xc~Nl`RE~V7mQ^rx*>5We;pF9e%IpZ76Db7e6B@l-;mh_>lyj1`5>FIOw(R5vz^+ z{2fRblDVcuQ7P&481(K{>CcHF;FR=f)&DFDW#%?g13kq)xs|%nKZ<5P3u>NKVCX+2 z{tKAInQ)Or>1bQvx%6p8qUzo^Tzy?|Sfl>Urfv!o=Vt%sY7+P?w2ff`W8RV{n7(qowO6XW?q@^2W*SjiUnu;+3BKr`@LGJ`v7>D}w5CvxE7rUT zG{ck**Qf7YpJVOq^7ZBe!Wm_<-)doP6Mwh7k;@>eUn z1AoN7H`2RP({e|;WR=2kPn?>6<0*}^2h}sE(yiGn>r2O2zxO;L?QD&GJiAxP2h*P$ zN|GLb4-Q#GXgMr;mE=f0S|SxJRTNC|r^v~hjP8@L@6 zWxjOr`7@i?O!=^AhU%}MQEiJ(KUMQzJnS{*+JG~kw3ZK{rY=q1oiGJn$vwu$FY{_v z&d{K-(9n2qsI7fBOkDVr`oOr224)I?+?dqzScEGh0&d!FU(ok`^JJuTp z_F-#jFI_E}U3OL5y6eS88k*?oebmy@x>MU3Cu1|Hv8p?|`AUMzTia`fsm@-QMWD2_ z$uruta`7k>OO$|sZD3N2fkbR@^@oA6fVy5`bg7K{qvEl#vK75Y;vWyVkhnjLF;CzE z-)!3+m@8-@OK0i@>-K{tu9)$>i4FIihETzC4_s!v%-xXiz50a~T%luB_C5yJv-cQ) zdJQYksCVyPzmCJ)+VaPqT)yHNvv5CsYluY>E?YxI)wb+>o<@$HU{#qjx)@QQ)|akY zFaBZqrEW2`E}yoS;l0`8(vw!$2|Pk-7e8a3k@YAxqZRzyK(ka`ZWk{FJ;jV9= z9rZIIe_F}r*n7OZiRwCWDPQlx!=nh>rTM6N`LyS~i+Y~$VI12D6RrF-)zZ-h9bZhn zjC(w^?#G^k0t^HMoo5>@GcZy1nE_^PIp)LLBpeCp)D zM#(wgOw^1Cq~% zHw81MF1VDbL5xG5OS}%E$2VqcGZQWLy@E;;N7?qOeDy-i?lWl z4vqk2A@zDaE-;1f+PpIkwVx+q@%9nnGF7*%Wut1?!~W?(s)$nLg80}jfvSLt|>J$oYedgogN$BhC%~S7DpzOWWj|rdKRh*_l zv&GR4XzK11n#oS0uhnFr@m67=U*J9)S&yY5fj9$+9$j2uGxhSYw>IS|Zxsp;KsXSn&21|;p)$0W=d|M}Fj7h*Q zIgri>)5oXMARY-DXo*PxgQY`FgPEM%ZlZ2PZ0r7r&-*W)1S8`Og1Pe?SeClE#cULI zv-wKhVfO|CHRBrCcMEYl;tNXlg6SSjiNL+DC=3f=NZNs2a6``5kE~ytjt43rnNJ== zEVv&+0MSwnO@Zl*-f@;TYA$8*H8lCsP+T$>|1Yzf5)Ac{+zSx=EPZ4roFvXbe){I) z2)9l+0kZl3C+bi2f2ICOu|2E7J*%2WE=x1X&PP7}ry5Jn^;F?e!WpXhcU%I0w2;T; z45R#qP$wwQE)@B92+)x~QwAtu!pLTl(LI_@#)IHs zD3IY_n{Hd;gyaLnXI*i+Qn-BSSX?w=eBDY(@>5@ZgjuJ6#n712m=+?qf{6ls5TJEH z#yy3E64cK+SWGUuiGN8*pwKfa6)AV~xDOpPc&w^l&Di_){XfP6W!lrxjv|Ls*5&1O zszu`Ph!BD)RE*h#P48+`O_MKXpwuI3p!U|o9(n)nvABVXzz!sn`RR#?l&}U!%}oXQ zZ(KF-13MPuI~dbqbkpH{J?Y5vaA1bRi~3o=LxAMQMlJ(b0&arBGO*R`0#Kj}5*Y&@ zP!N$DV6a7~uS_IRiiq5UEy~k7cL3b*xGNYX$;->T0Boh&ny{7;GbuV8YP_+&mO-;6 zW|#D))aV*885o@%rKgai;)6SPAO}WROB2!0o`BJLm&wb<%_Og4>TMiPyhi@*mh7M+ zu%w+Erk73TeEGKegPo+l&9;10Utp5$8;d;0v2UER_ae(iH(vC7jv|GjdWg@$#%XB! z92yzRCIf?^hQ{jIqs^->824z@^&)|Tvr02wGG-xm*To+VF+lldC}0GIj}?>6HS)uE zvsd&MoqZQ-CIg$AT8`!(1oyw~qoi2i;))QpS_giUWGbPfceAv`mxnC`zy;9O=}52| z+j#xM)!(^%$3yhTm2uO+D3bKx2KWjLf|hctsNM{TWZ^3#%<_ZQ5xT$UOYUD!;bil< z6%?`bj?n|C!N=pJ{1#1*j{cwd1p15zA*SW}rscYe&h>7Ct$$F+Ar$MC9O`^o>kKZ( z&63syjT$G68jq4pBc?9us@>*^~af>lgNTo3WH{fZ%* z>Me0frB6~u8pw)@hi^tYia5G1Czt(Baafo-j_M2#>I{{QRnr?Esv4J;N+|;uVaaLu zD^OH967>m@r3XS+t)y33NL0xM?DMTapgQ8z6B_Q#Oi9VfO28Kg)xK=-aod?R|9PY) zI<@JhycCkta?m9j;c}Ym5+ZM?{^M|~{N=RPxdqp{5G~qk1$uneF^dXm!6&*8LCEBtUv18TQ11^)&s*5A*-L`yF?=^o=$5G-jy=|TC6N# zlcw+lg^N}b?2djEIewrzYwh%RJ_$eoElo|fqV3bWDFY-53&5LFDyos4yif6u4PoB# z61{*eIYLvDk}kN1rB^L;z!YlqzdJR~zB7|xYdU5o7}m}v=AVkC`lkns;fA>!cma5q z4sCE;6+G6vVNmJ+!j*#u!%39ErOv#PJnA@Z^}`5SicU~Y)na+K+JJBUz}XKd4DcDO z(M(^FM?-o32;DLB!dJ8%@0LN?uA?I0RL1_FGefa-n~c8<6hu`N6g)+{oidE{DqQQf zkC=RFne9#f2_}HvR@P^>GS1Hi8@qj)pFga+;dY8-(b@W~P+(y!YDXf0 z&yiFC!2ZomRx0jz4zG( zQmn7;d-*UL0aE0YF!8IXAW3Lwf`dSqp zTE*Sut&3_%5c2#92xiP+GdHk}w6?(gP-SK1JHWwhG`trfv4D+@4dfrV45RMUZ0Ynn zQOxCjB)X#b>h}orq7%8Is#H$xWU5|jYJRTDt$9Or0(SzTs>%Hs1dvC(TP}^Wy%in6 z9-%S6!PwDkbH@}bv(_iQ%0?oI7z9!w=s>DHHarByj=bvx;*2Z`Vl4-1FooAeV+6pK zaMiH?kU-^-*<())ecpZg?;ah)C~`swYiRsF4#IONl*~+%3&acm-(K(7FkNJ!hEEmS z)ZDK_i99b7;S4w9chW)qgs6ZBVwfPO0BgY9>$#C68x(d9|3i{r!+8!O{PKz@2&CQIs zq)c+Esw4@CiRA$|J};sMR77U;A`UADrHcA=H(r@Pg{mWZeY|%EX+BLIwsQqoG!sGe zV`Bd9%6G7z8}q6SKKl`Vi)m+Kc~b{w+kh>YuUD4eAe+j<@a)>7(FnQg?tS3KK&lTf z8zxlCFLm&7px{&TuRPU(IRv_n&}*FbJlI#h{KWj4rzbOZ`Q3#c#d3V&d$JS%lsr+% z6U|4xeSMG4L&PuCGQ@BBp6@+s#+z{)QE}1Mrq(wwDEHhq{$f~kSUbI|ypSdC&ZDWR z>2z`MN=1%k$rn-!E7xqfiA;7m5cUI*)^|Lyl`>m=hdVLQJz=zy=T|ItX}mnkxCUGnEDuN{?v;6dxi=kZ_YiV#0s$!Cr-F|>(2q)EcX`|E<601cK3;xQ=#7N|9)a~L_KE~e9 zOv?i|1P>`DCiVeLmxM{OApGO2An}X*ygUfR#l_{m)c`|l8zVm;U8bNF33vj5aC388 z+uO@)Yp2Y=W6@`$2%OH+<@V(F#iA*lj0Q_!xGW}^CFZa5>bGOn17rQZv3tLhC5NiukO`P4^rW)DQb^k)+=GE#zl2pp>hIi zM@LfqQcjUsw?u|Ix>q7pW^1jk>#7!ys_dtQpJ#}>KQ%Y2on9?`k#9C#WB*iDRRM^q z$KFh2v+w!m>gtz?Es9Oh4~fZP<0f;#!ygMpZxDXb1JAp*1svPci}_T*alF0^#L zt6q+GOwZsz0?Z$bvha6eZ_s-}4uorSzBdFE%ra3;bE<9WX!~T7K-6bvcReMCuB$3a z*ROxDLhVjp2}m;bEN+U%zWrQH8VF$9vftfpba@$d+XZ1!~=1`Tg?0) zqtIV({MLdS$88f>srz%fe>h8SBzV#-n8OvZ*6F#FI9ojE5UerC zPj8MuAoHqOZ@2awW_NHk{U->YnWdX#noPWyCMsqo*aAd|@Bxq5pgwGtpCJd^BP~#f z#or5k95z_oJ%>*l44U(OUXdHG=^1?kSU`7a3eqjAQ8x<>m73D8N1KMZW4w zKbD%Dbk9y`e7rC<{u^`F;1_#wR$LYeESmgJ~9~0IbF&oX@2{pqO^uP7+yC{oa~sd)-j-M zVxz=}c+A+7+}1>_(z{)ogP%FDtPJz0@u4bz_qQZ}SyVEk=Xw%jVVtHKPtMkpMQ+P# zAYJTY`4{&GK`Yf(t@zB}9|dtGJoip`r|Vrg*M5IAkMMuu?OlHdS|tiEXR~p1)X`Q3 zJbkCG@S{}iTDiW5ZHlt!-eK*;TbD{PkenU#kSCDYiTUuJ;2OQW!fzVF&US978}c-LyiS{^5oT4q5O?}tzkUS-nb`Yst&@$JXPb317A??=F2}hakiPYT zKF#Z8+s%4PADN_9%v}2tj%y0cYe~y}OmBB{^^DoD?^!}-f8C-=2A6OvVYv@(NeJq@ zRktD=wpYQdo!gUMTWAaH0E8$jEupuvh&%Ho(lQ0pFJcy1Xv+OXPMA>U+fVxNM*GoL zkMvkg*9W}Dtbj452S@&+~3ZzGVbOT=_z_nmqV|9gBC< z$jL)Vg?-Q@_=4CX6lCc=MNr!m??|i}ahu%dpi7%`?+}(EPsSC;xX`{s{JqCX`^*~R zUw@SsD!Qs0wU2>^K_=qWbqK)V_19>v%m51iG|$3Y=qXgswr7*5m*cgR*Px7o=CSUQ zvr2iH)!<9xcPsdjF$0%C?{^!v*;!Hk#l)_M*Z~3<2|N0%h{_7Z>(!;Mma8(IL`Uel z1;>f)^oTRV^;Uz1cXs7`9qu+SYkM{%KB8=T_h^j9@+2+D@g{GW3?rf%%^9|Ag?$t@ z70(4F1^(3IB8BH6`NwthM20J^{bsQE-%0N$bjCe9UT(J`7MM*ELx&3NwV8%`p$~Ye zAQa@QtE-x2^jZr2a_06hS~Cv^rRWiR4z_`7K$?Y3$=J4A7_7r>RAj8Ooj>Ulnl6>9 zLjQ@cTJaSAUk|f5zL_LX)H$2CGOuv)@d@p~6MLotOksDQe}F&=zJDKUW~LW$NE$l} zoJf~oeSJZBxQ}5sQ>W2#xt4b5vqX0>{E_kiIbMCCw9YDd{9EuX7TYUSTTsh<2R$sH z>DAfT4bW$j?l|T+Ok5IE05v~#{aQ8Q^0qNw{k;V_bjX{#dzj_2?b!$Y7k`AgEN!&R zx9#ribzhxstC+)d;Sd(*6KkVuwt>dV>GR{na`AQDIMl4?+@vG4?rK=k{2{gHjB~i( z(TdVj=fj_fc9r-zk0rTPTWgy)A$OD@LrnoUS0~m}#&u4wC5ZQ?uK_LWFq8 ziJ4)9mtLfSIVPCo_|m2aG_)Mhtp$^pFTW(MudmbdK+UK#v$9Ab6E*hqk~(t`$Ww{g zceVsymu^b^E01#sg76S9aaX9Z`>y;kxd^1~sGAVIR!H`@Z@uwjxC_?@)4Lwgv=3ys zC7hSAfV)ME5B(tpNp~F(yI6`6fVADeZof**%!~yOaM=~2rTzUMLl*i3T1Sgvgf#b( z2Bog;AZ>Nd%T7z3_8(YDv zRU<<@O7U@w9qo(~L^MGXdv&rneuwKtjxF7enW)x_9$fo^tK$q>&u*`DNpA{=T6$t) z;$3=SJ6d|B>DpNj0|QG-OOO%ldXt~=_DU8v9#y31JWSfNRDOvH<4zoud-?K~YNn)E zo-;a2Onx#d==cbigrO}IpECHXRh6`T>$h(N%mEiU6)#`D+;lMMhfCEwQEG+w7k*$; z6Z{lcclga#0AezvJvhU@+Mi^ohxZ*1`8d-OmbSEy^0Skzvc&1{j-g-e9L^mc840<% z^0As0?eY9>g41kyQqi| zM9KvP1=4F>BDR*C$4hC+9*qqRLtr%S7hhQ(KQ_|yr)~ccMz|VvuK|z!{N`2+vuLvY zN=xg~=cs#sngs}{`Qm#roN;3P4lr)RZm8x1uDB&pS2X&b`wEuY)X42tWS=^UGnOf4 zveHUc%A0~ywbv_P*#2UxtC2;CVrzSQ`0wAl#-AAEkAFdi{{DRn7V$J8wA8qXa8RIu z7_^R8%k12ltbCvTK{U@bV&kq;K!DU-zZfngiLPX#HO)2lA^TrSa>O9q3p1tZ$}=5x zfFq9;oqgy|nBj%mo+^-+#zLL9mdLv*=9?VQ_+~qvp#YV| zTScCYleRge64q04E-lBww4s{v^4N3U>x?U^=@GN{QZv^y;2UIHq>M6teoZFc;G$_I zq@tqI>%H$$50(;8=PhVQV;DSdk97NqyqH~6vzW$CT?kJTkxjS*GXO1R?WN3S97Mi- z`?hfC1=fla*Aw#Y9RUb~Wp_k`gt8k&uswkAGDvt3?e6Z1`d!?AJvnp{cQ&AkSk8@$ z|CI8!^F90GDU;^7evP@R`AF`A)d6~xgiXg$`eb4&X<) z*9zDX1ZTL$<;KE+*VW1toHp!8G3PQ*vl_0k*6r(;V< z+c^YLREr3ycYQBp89ne9qyA?9V%x+Ip5;qj=4&!PuXz*)#@4NK$^mx9N9nhZXQSZ; zuwKO~X-QAS^e%Py3@@S?b}5XC?>n_~w6zB6r3t_4Y4Q$`;k`1IyRx{sI!)+U#G|tS znSm1j50cJoEt9RxMn*>Q7IcvqmGj2~_>5_8OQHGS?L()SEBMU2-rb^DIG#^blM-WF zX~bRl#hJx`jyLtH@|mt@!G5N_J*}9_N+jzE`~b?LNs`I#0MX9l;NWRj|E;d}_wUu0 zyH#?t4z7w$V?|@bEw|r?>m>bw3H*;*fay;XYgodbG15&O#DM~)JqCXe+880t%mF5L%-nL2D`}5&+nKX!){BZn0VmGWO>W+M{3%;_sPkRRv!H7?M2@> zpEXsZzZ(@Xktg{1lzd3yCuwJ1bSc$vR?;>M19JEFRO;#Wc+afIw7tt%i~r9WeGG_N zf#tRSh3xEGkfn8K-4&*TY|S|6e%CHGX_flMDTYn{B~Y%7oSVdgkb>+~y2|7R*3}|) z;xLAKVHe@w=K13Mw^HIQ-|Fh>4`Qx&0a%f?(PWQRx<3es!#VXG+l^(0F$r1?oKQ9i za;p4A{K}P9O+Qc(&KnfYM!cs_Qn|7VF=;k7Om`*f)4qZt*XHMWtfn2h(Vv)Y70IiA zy2N_iss+?>XTE;D3#i3w;Nv6yX)XXyPfrgL2oeGk-)8Erx*b96jefehxfxK?sbZQN z3@;{!q5u^W$O2C16;vRjb`xb!rW)Lfgm~4uJAeB(Os9RQC#^hsZ8zKS^4;BPs;8Z5 z7~UmK?T!irC;jUDj!oIyiCnze#qq$qj?@u;JX^ZAe(ca5&KwZ2+Luay^n|OyB2&`Y z5a&-mB8?4td3ouy=P0e2GUn(PYARO&g zckL~pTP7`ab28$*@{=45YiI=r!Pr3;jfr#;>~bZs;Y=3G4V#P!&RQ0K?U%v zJyE}TYQ5JP30ga8sclD$fdHJ^=4?OiGB+z9ng)j#@%c4fp4ayNKy6j%8e^hv=o=B& zJ-zPLrPVP{2;1J>;(ZOFZFJHb@^b@nYQOyqLpqhE$*hau@+Xq#IYTN216E6sT80}TZ0&PJ5Lq4C>Jvl8Z-mLRm z%llPuvGd}~b4J7%Z^qYBDV^@6=D{L2nqX`~>YwW;Yx-djNDHUS2???zER2w*ms2%e zU5;G3)4bBO9ZDDYr#ph29dyRdzrtF`nV(vnm&%L7+ZaB}K2}sb(^*V__k|a2J7zNI+9{_KYexN($gJ+Chn@c!$j1wR#oWDDk~ z#WP%97JR#+$cjDZUu4HeLe!I(IFtRaV_b4foEDy~tgnMGv!;eR(s=%IU2jBV*Wm~9 zO2J+=mWYnLK%Oj4fi}zUNa;;`Fm?rb(YHl86pIOMT5RY-Eot&I(wo2cM5>`h<8LU7 z_l;ktj=b=*w;j&>6rm|CU;8^zE$c&^c_sXFL?9lLy|y)${rWU3DDz!}o4S>ZIB*vO z@hR_Ge~P6j6mUNf;n}4mdQU)c|0(%H$;b{_S$kiXNfoI5Vboc zLd=Y6g?Zma;lz~=e%PssgiZJJm{`{619cEvBf(^))t`XWUKk2?mgXZydn3~W*} zNG?5DK>n%kbKCD}OnbJ9ixQ&~b#yjaEa`CuKEQ*{mfO{Mg~Pc5z23O(PciHYrtZb{ zRp+#Pr2sQPOkTl}MKyg{&8_6)#y(#)&r&^GyDwopLZI8}9j*RRLU=e)%=I7LYNNU9 zUzks}-#)~MeG2)34QH2Q(FG1NKU6~4m~H+rYBUh}DA)Pu-sqSJo3G(pOSbziTHpAl zeqXFfzP8M}97AocQp?J*7#@hoUR`4RYvwsj=eVQ-P`(!k zld^5+|1`yh2Mx28ndcg{EG_jRdSiuzJ`0|5maR=KloXCW$GQz>|GB?2W!%}v@~z2D z8gnycH6GCw6Y$RqKOdMvU_TF7G(JufG*0wn_8-*$QQ`BqRnd}R8T*PuII+FZ#2 zWss*x>eipQvUX<3fI&1Mx}M0j4I;R8o!8<8F6!JcT&VIqb36WF%emF}<4Sx8V9C$1 z2yHAJ)EADTvbD+a@~YR#S$INP_T%fv%y%y^+p1GDBM0Z^3)1`_Z7sm_ax^AK+fl<- zCgZ>7atB*TJXJV~>xJFEB0C4~LJXY`Em(EfF&}LBLcqi+`rfU+xUuYgu~a{wS7{? zO!SIUx^Cn?b<$Qki+Kx~{LQ?1 zr>MTwLhR4&t@i@wEUjmPE8_uQ4Gw6y%x4-Y$UKf$nerZuE+bP`_0vw+wGP1Bl$$Ar z`dWf{4se*ZE#NFC1ju0YY)5%9a`A5=Fy^ZZjqx`uOtMLuf_i)=nem!~TTKBSl|Z+5 zPY46?_HtAm(DxCcOs}o17TT+B6?}4PaZFsgu9>UA9ns#foR4$9Z1FEWXtJ}_fL1aM z&=m6-@#5!rPySsR$Ni!v&I&awSg0{OT~1)-g*-96eP?u=Xd%+oSRFKOHz`AZanM1z z-jtpCF*{;`Y42D-PDbF`20Fr$V{C=>3;S7eTk-k237(2eyQa!iv==rRNwW^5(s4G7 ze;>Pa{)p-R^EB?aP) z?SlT2tKesIRG=M|jMJ$9P};Ngdx<1Who+aaQ6X1waJ6`x1*JI4s{8g!hvjIl*_Rwa z>`zrSUNej_sTNKA6NM>liL@(h`TB5Y-DEI7F!Y9(PzMT89sI2>3{gH1Inq#nWzZKW zNjv%`J7)zIgx89no{>TBfnVTx#UUYqx#u~sO@qjP{xtA9<2YIg)pkC!n`OM$h*3=P zQ-O?26z)?$886Tg_RKlrBy{e~asKcopq)8|yUxGoocI|kDfLF?M@dhzdG7Ji4OUNf zk91F%k~5mUn;8LgskR+PsPzX)O}F=TjE`(2_pV@ZbScP>FLm!VUk*$3mjCs>48o&I z&ymEreRvM}(O-u9jk6;S7>wRU%L&Y}#6=a^F%PjBBHwHumo4%`ksy55P(P6cSO|M4 zS)vRE%YXSwL9yUE7SZMu&%I^#X` zL$d4F^rR1gv8n>l^KjCD@4m1Kmw}`#WHDiC#_T%Ev&F8Pe?1N$;wO>V*L@$&6;F9v zuYQa6UnhW`O{d$-H@);zu}i(Ic&2htvU?ZwtkCx0);4SMiSk2=%UF{LMe@qd~-w1(~*+m{#FYeZQtoG{Ch(iw9wPO$CB64M z;Sn?8X&u}}H~109Tq$x^AT5_V=*c`L9ue| z&xm@bW~o5xmT3wBgy@sgBA9iNESa7y5x6O^4NmCGF$wogMKnxekLN9_m6rVJZ@KM$ zpw>_K#cpe%6~LC|SxQQA@S|}Yup(+*<^uq4^)z?F3}dXr#PKlN+{X>y8mt+IZI{#& zL8!=o_KLko4FKzdI89Ez@w%$KH@j1GnJ=P-kKFsqghory_{+y;^fh`vOs@hxxsx3s z#7G*=m^bOapxi{SL0cmotWyAn*f`$$=qTh*H-yZ&Y10|>b=I~)UHS7%9|de!{;$|J zY99ToG5)aMTbUWEgXKd;ix^w?oUbsu^yJ;s**dLg^_^FH?|WdxaZvb1%xhGqH1Wo? z;2Mym`V934K-0H`FH+<`{UK@%@ca{2C;4n#0L^_fMTmj@lzN?CYL3V>iae6-*UTHi zjn(<{M6`hvM5h)11K+AqU9{J7ZM76+{&>PnAr?bGsOqqB3V`FM;mMWm-`+xf5!u#4 zjT+y4Wzs)!^N?>}sN-{mk%)fQf&d=Fa`d_1YKyaV_r#69!3ih8ME@62(gDT|_s%d( zw{dwPkT4O+>`{BaMbBnEQW**}nH`2!sS0{Azd`1dgY6n%;Ef3zDnxys9VijA7pX|kP&adPL`n-LMf zUZ4yTX~9l_=gyC)&n>GQNs9%%zpEVaY`lpXefy`!v14zqn$^U0Z^Nuuzv&6hwardc zX6l1oYK{xkDy&soQ;6=e(!F{X_@2}?B{%be{vh8N_%2_g#i7NahI3sl6}Q(mN@!T* zrLWL_&kADm$Xw#ngPZ8i_|i$&0?O8p$zQ?jP$z4@*4OTwelfk<#S1O0wO%?lh z{yy09h=Zw-)MMcqe~f&Z2_!Gep?KkV&wbQ&#v>+c_kN_D2aiWBl&1PWD$#0l)w}J4 zANcHQz_)*^(XF=G^3=$`Wutn(o{zYM<;??ry5~NMd66d-tu}`^=@JdJIw+@lli4wt zVF?x-I4@%7#jQ(Q#}3kq#H85=Z*h|rP#cw{+YZ;j!PC)H`GFi;pAB>!yeca3kRQSi z7gxy(znTB7+>t4p@nl>6K*S7tXlO0V@#Y_{`z&g4-bW(h`+smsuSj(+!r(tb=$Fy(t@=Z`j`at zIl{rsYpsJUfR#6!t1a|xJ|%v^Ma1?g|8^W;So_=+cPP3?!iE8T>H~=j;z2 z$(D$Z2I|ejOt_~H2M6Qf3SR-PGwdX+MhiV_J&GP?AI@<$NzfEr>E1I3NSgNeEx|(J z!6n@LmyMx_Wwhp*rVdR&`Ie@n1 z^W+~KOhF;&#LAe7A748!Cz^wJFZ9v)*N=Fe-rKK-*IWr3;^|<+r2$|$ZzH7Z792zI zun3XRT=@mlR6g9Z+?;y4jXk;EiPu#%)wXw`N`-V4)|9!F??0xj>9j6qWzn%g^M907_x#sXBW=VC|Pn4Xw}*BJfaNh{uqg}2(dZ^FS>o%698)x;__O^;(b=i$0^LPE$_f(z^pEjw54Z;fma*xN*g`}ny z3$GlPk|3*l;&{`mDLW9v%AaIt;-K>zslweYB$+MNs|xtNkKR^u-SS6+zs3f z3}`p8Md7}a9+KMlS$K3w^F)A5!(nCJWHz;Jp|l!>DbJ$I{P`6Czzswj$u|M$WA$2k z+LO`$5qSZ;i3Twv?wJZd)Mt_g3+M4^x$zmUOzDCE@JMi6dHj)>A(>aA+F5WAr-9a0 zY)iMK3la^0U+~ZjhXwC>NT^Q+xgm1Cx)(b;{1_X(nk8r*qSf~FAte?0OvmMX#H~P< z`@|Gm?h5e_kAyhxZ|}lcg}B*c{DZHxt`WFjpU5;1;NA0b&Y<{kde#~tNYhlOnkdX} zj1elkPba-en3`L$9Fl#S%*dR564qz_5OauqpN8PEB}T}r`|U>ix7xy9aONCsZ-FKz zI?F!_6N&UNgoJ$&vGNC5sG_Vb2VcP9Z^gntPL*s`0iT9>)fSl*<8Z#CdWLhkd{zrT z_#sd0z>wc7A!x&nnA8Ls{67slI%Fa{duCEM<2iGECwd|ZZKq9tfRIVg9|KE@JdXw_ zYC`_^$Hk~qKZ2(dtxj8aAnKW+s{d=T! zlL=vQ{-RisAT=y`Wx4I2&aYBL(Ny#iXzgB|D!b}#z6pj~BIJr&oJ(KzwcaY7;oG(L zF&2wm#fH$H(-v?%e`k)4m-kPiEbJb(h|SChTv&bmvY6J<|Mm;qrTgihSa`r!2KtOt zQYwaACd|jTq)^BEb|Orq<)y$^?5RaBZ%Sy2(6 zoctw;QOb`toRnGk4j$OPB!pOIc_N zhJsUSWtRQ7!RG&PJc}Ku9eZQ7dYSC*>wB;pboC)Z`u+oG70sRIoqy7CAdf&`o9WL8 zG6|QF(z0V`*^G=li@`7mniRU#i;fMGI=LjsH*X4izk(xaQr8WZXH5QQ?!Xei>aTv~ z@uUU>1|KB7%|IS4C1N4%{rjNVMzC?BpnwB*7=j0WpH{%Z&Z322FPJ@u73#?hTwMkK z{P`1~l0toiNly&w{HS+@MMPxnM}E3euipW$PS;Tn1dF*CqkmFci#t2Vl=~aI%b~VU z?Cy0+|Y?iK#IDV`uTGf^_e@tUPr;KrIV^`Z#p(|HxZHwkFt7~eMEeG4CEp-KSH0Y1B&ARYSFDog zlWb5Dd4)J0yczK3+AIZR{U>2Xan8?6VzUAAnic7BaUGH+O@pK>KpNMSh4T2zH;;k?Kc)gG0$H;V^!7d4c;I*c}^^O)P&!LNHAG zKRxRBqb)a&#YA(rtGvSPd!FZ&g<%OXspOGX>p~V#cU&g#-m;THP@|PR%1aJ%S3$w% zE9TjdGWYGjr;D+tGB;H!3wO7o+4%WYE)5tX`uh4{fBL>Q*rTh>PgXvvz*A(fy&7ll z!74Wg8;nBGHN|r$+yRAIxjnJGr;2fmagmT1)dtXp(81>CRR-S?o%G^x##Dt+|tIxE94hbCd zpJmxVKg2g2+CabSek2_tH-r}g9tWccpGy2wbN&I!_Fqq@^``;5u?jZ7Sj5EWK$Qb1 zn(6{2EX3CuYrxq2OuVb28QXeuW>BnGdG{`iz(`k@i<5(cRZ5EK@#DuE8ynI(IyA_m z)K=@MEZfp%Z6-lWBB(u`*dFwH$^9sTkN!Rnw&>J5%5Yu{_VFCx#r8Bk02);d6VDYrw*!#X7FrJ;Wt=$ zGxC*{g996AC@7I>6M$bn>$oZhb-~_SqlLYPbH!G@?;sGI3-s>-H2Xd0f>1=&7KPx3MF_GNbwqTj*Fz!dx0yw;0m^5i8+#zQ= z{8`>bU;j2FyRwopGBOepxVC0lY*0He6!ovK931XVO;0ByA!q`8`t(VNG6=nXRW-Gq z4-d>C(qii?E3ZdKM`?ZL*e=j=z6b-zASVu637l3V4*T3 zJb5exEq~vCjx`r>ZGRapH~@iE)z-2DMnar6hFB5Tt*FKvB>Z}}b`|W>(*v?8!y(z_ z<>UZ5|31gc47hqD#>-1cM<<1fa#dAQYELx@5X(CTduC{vI5}}+5Osn8Hb=>U>Ka7D z;c`!IVWE-^x^TF@p6>AQP}y5eja05)qrI%GOg&TB{x+Hc zf2wkNm&WS#Yd^26&3xYV%nu(T0CB*N1kkdzoONxli1vvxc@bj_)%X)N*kjtaHL{ zb!PQ~DhrR{qLb`!w!$Jx^3@M4@ScV0apM;VRAttU-E7sH5p@HDq9VMA1vns5G^2zz zx1+6X2$zU5R*l^x8)^X;CJj)6;$nJg%4wku!)~fdi3T;8CbHiFC;+CPo*tc)MCFG# z?9qtxl{<$dBqWTsw^FxpLTr3}e5e@#(Ug>w!12E!H#avRJ};DlAT8PS%*=5E1FGQB zh7F9&{Qx)H00d4T2#&i=PjAH}<|4Ylb>n^ACd3h6TQ4(Q^jbnJt0*1KF7`COew_APYjGe zfUkQqc{H6M4v_t)&!21kQ3FLcf~PeG1_lx@@_tZIQj#+>JI;8=5$wZfUr6J(kX`~+ z|9Qxb?#Oy4T7KrkYjEeknJ-YYu?P1nxA^)r>=#(_qToi8?+Z!Rn^I4Lr@ws$MVE>0 zaB^Pnj-4vR192-i@8MCC@sVT#21wNtRSMVuIu>4&@ssBV`lR~ZpqWGOlOG5Q8M1#j z0GpOfe9#}t3GRyggS<{C55AbnWj%cOP-=9#rVKDBHxCY^Rvj4gZF_pfj%$;Bs-Xxz zgZW}#E#>*QbM)Vcqw=}HQ2Isi%I43!KBVboxg`|$cHmI?S>_w5oaC`tKd)t{D ziC&gG>PrtBVe1WVRus zoQ%266Jy4Azxlx>Mf7C7+gR)CLn>9iPFx7Uw*7lIOgGG!;J^-7RKAlLt5l#PM^a*< rEP7*%f(~IK{r~k@vi~_g5;nUSqB}e}CJ%l!2%;pfDpw+78vK6%eh$h% diff --git a/icons/mob/species/vox/suit.dmi b/icons/mob/species/vox/suit.dmi index 486b70d9c29f5a669db0a92fda9c7f4ddda50b7d..12be5447f34853e32cf2b7443dc5b766f7d684a2 100644 GIT binary patch delta 20360 zcmce-2UJu|*CyKJ9F!~>L_iS`6eKn%2!doqa+0LvAfSXplB5!qAQ_2Dl8l5VNf60M zj-rxt?xy=p@qXX`&wppl+_~$nHM3SP=sH~|?b@|#KhJ(@HjQ%rGiB^$$l&Ee15YIz zk0JrMVH+1TX9X=dTWVTX<_I)?)W8vI77Z@ zTF!|m?wBtZbt+TVpKIEfY^Ko{er4Qp>^%98eIxSVp$SJZ^lu$|Ltp?yi?xSOAbTRuzax*etqXbW-V8&W(~ol4b?8RtDyIOOpNWl`->1-!hHLNT+)5LXZ9BQ6A>gx53e?b6mF{fkFUJKv)3kukRIGwo)yZX*~#hl zvo0C?9YYmkdX6gb6r)ax4P*Cw%SGhlC-h}=MG<-Xfz`>OR@<*SD3=Yt@1v+PemtpM zAaMTsa#3a}HT^-Qrox*XJlD&uX2k;Ivt2o|mc)|xrEG7oq&7V^399%|Q~cXs4yM%D z_P&l3($j9EZWd5kfW;4%;^Yh1_6IffO z&i`egC>@b>=PSvs>a?6RZEs3-){SoKNrFUnqO95{6h_Yv zM4rkCle~9x#|YgM2quxt_ZHR)z|M33J`>o>(Mo;!@nd|Tvjs$wTlHjWtl`A!%e7Zl zaXhEYHlBGRY*)0Hj*njLY35+FJqP9r*w;u|G2$~j1cSI6xuU-f1J%wbdEWNid&m9p z;hpbtZ)kJ}vJ@|R-jYyVQ;9Ba3G$2`MQXnbzPTBXb_{)Tf$JK{eK|h^_RELHL%&B1 z!o6iFyRoWMjveK9pna$<*vV*5Utx(~s1B(nRD4Be^$Tl}2cDOrSB}_ChWPwAId%C3 zwXT=6nG_#pUD?)|NbUS8>1u1I4n&+?s1F#UiYcQG9I}$ zJ01qgv9o-Tm|%@avM1}0qdS=`Kbe{JM{S;m0GPm{1uHmd{GlVnmoVIy5UGwx2#E@o(Pj6aa^ZTnfb;ZQzRfPY^%V-_0@F|pI-UGFmY;MXTH{ByTIQJB0&mV z*U{Vl&zN}PBHkq>b)DRbT}8hh&1f$R@?3!@2Lciq82E7We>4SXNYQBY4rU%UgH|p% z`jtqAw`V&I^z;mUCoD0EO||Pl+@jcTCE+xvpk8?Y*zBnQJY8uQ!`D?jp6QVOEL8xb zX9~rwi@L{;a}!=EfcdCc{{|%o%rnNIfBpr$Hv0jeJGsXtYK)ao+b;nI3A57)CknjuJZ$Aop{v_!SsC9p_nu6qF zWY1_ZlPKJ%Yrr8z$No{oFsG<(TKoWJ0C!mMBPvBiucRS~I{yQ%Q6s4VhbUj};avRn z?e)a|@0emyNt?kkUs8mm%h^@uxsyl5pRkwoe+ForFe^BRPqUXe@!aPifRY8@-G8KVm`!zcO%jDD{{H>jz8@)apP`8{6^A*DmZZTc@%C15FMV_gVOSr` zYm3?#S5bsMi|WB{%l0m3mU6g*64NlJx$JC9hwa&u_LmU~E~v{g#uT^{^Eqmrqpmyi z(P|VM27QSio;j_CTOUN%L4~i%504U<@W)|>dfH?A+^adEOcnudxh4(F!ytgQCNrJRFhXr(J)moiqs_@xh- zg^NpBjRu@XVxA)|+A}|pguehOPc1K7 zlqG9Zh04B;HM$Atwc_f%&EJ=P_2TP|JSz9E_O`@Qh^P+Czr3~t9d6H-FW*m=!y^r! z9#5EI)H%{ihoR46!Q)~#CmyfXAfgZ_}?Il+hU??~59C3bcHOu zS~D;mTZFF6JqVlY;c&_nzI21gJr)9<#9BJPzTyVS5!XN?6IKdtv(21JMO z;wD}pZ1)lt5f<(&HEj@f*u?vJYFuGWrlzhQmzw(8{$|wHmUC52jnOYciCee6w6)y{ zy~B-Y$=667e%YV;;R7>bM*_-gkjuGWi(?Cz8}V;0P?IU>B zs=1jxFE39|4F->}=#+dFO)v@AFZQ=wsf5 z)56YA;pRt2JM@bU@G=J^e@yKJ`Q{5fQDC%<1Z1mj)eZ6h@F2BT4&$HTbYaaOybR#emr3G*9g#Moct#iy&Gy zz0@J$q}O;YVhGOZx(iV`$v9pU@aBoarcqBv^6?P#%0ctn<3}>-nk7yk1J7R zvC`P?QsOF2p(ZCHgqJkpXXgB=)|ffON%~M+}wPi?rrf>m)@EP58dqy9LjC! z9wH0pf(M@Pk-q+=Xqj0os<@ak@YcC6y;!hQhL`)9yuW&HP7xs{n*AH9{4rjPF06q{ z5}gn13X6&&OHAr@N6Zs#Hv46==7^S^SlQS*K9@CL?O+*^fq}DifB$|55@lA>(xRaT zCf=N`H6Dg*UFQ42Pz6bO{B2ouT>y(I>8m?!!GYFT8ENTq2o7+9zdm0t_t~{VjIAIq z@foik(ibUC4TN9piI4*6Fo>)a_neIlq=no%XR|bXy#_zKY8Cf0WkVvJ9%E_v% zq%$jHVqjp%pVSJ2PgHm=ut|G%FGLvih#{Its22va??x!`boch&Ra6XG_0nA(sJw21 z0T#XflT(`=DNjtPFm;e*!{XIo>JeBHn7Qq_N<#^4!wPLI`8XG<02HKl0O6*tVuOBc z!8SHFMq^r4I1LRA$HTRsJEwkO57h79k6aYVlD3u4r1|`~OyZq`#u)DV`)fl#f4+*2 zrrz{pVq|gE)pA+MFp@!kZJ^7z>1?mpXuh2{CPFmng9^tGj^^d* zpQH=que1#e>{D`&Dp6w{TEh%+}cqmJnkU&SFyZMf)_6-Ajt zfhPw9o~Endj+p~rzkg3k973!z1W{TWh5>tX(JE{Q5opsB0ZZD)93O8fgC+>YJ1?7f zar~CVSS%KS$Q&R+B;t0~rHF4WeR832Nu9jBo>`3Tl5nmvfx$W7Fuuoa$G=`Du9gXW z7sa+OmNNz#d@HVYsNOGeQ3nV+*6U3Hy#FBC9(y>>1-VYAj6(2X&B!c#c*!6SX@@>o zO@8qO>^U|%K%^9kfgU`BZ+y1C#0lR&HPGe3<|B)E2<<($cY?yY#EdKv#bvdxc=7uYNo=a!di zUqf!Lt_ICIt6aW#VGqh|hCSjjNJK9h1z}$T``gI&WZaz4d<>6g5_}$xXU2`;a2iY+ZNJ z8}^saWL$YmOhXC23<@dSW&>XFYSy{y1>$f(E?k(xPETb1E5q{Az^0c>qgk1kc#C5l z4lHG1TXipXyzAEoTvXq`dzV#MNSdv!I7 z-lSozb9$nGWez-l2<>+)-9Ng#g|0{AJP%+`8~9|t=LpszXqlQay3#8a+?rL>w|&eS zaBw&+)oMWtT%xANOBa79K1YGe;v_D;+RN$t@jhp#0+(p9bsyycau5B3#KQA?F^?2$ z!kJ&in_N_mK$rv9iwF8wR?A%0JKwUt>Tj!c7#9|N&+AwX;a0a`UPUZY91W{#!;+8T z&dz(C+iM>E1O~?wPbTIEvz&~AXM4k{3Mm}WcKN@rq$!eOgTe^ ztC}}zIVp*&#cm=ej})1Hv0Mc7?n(|AEf}784L}; zR2gSs=!}Md(&oQT>MC%O&E%d!EGGa0a577ag=j=jP>`FJ(BRCB5EUgQb6QxBYf)TD zgp5^#_jY32VtKjl=bpj&`54#Rj%Y$eE(8TXM2ELqc2`guCb}JM7=rPls9z^6Oi)OZ z^VP2`K!WT!ZQw2OA^fH1CRXGaH&7rwt|g>>wrJR;e{Fr8F3~BS(vRn2B|l0v4;foWd@x0jQUL9(hmg>aufyo=u>l3>6Lj4O z{`=Qf$gFXK)_#Z22eE$OEf33PczlY9^m7(7iN-=d5IZ1aoZ1Ijp}HUXc>q&9eE6~{ zjFS_)d?f_Tk_RsR>YT_Lw~zX`f&tQ7l9K9CIn4Qyk_if2fgu0dtec*ix+nCO?mmce z#>T9OM71sr^{bPyZQ@(H-&akc}JW(kue-*9Yzmn=9 zHFwa5uUS~%&Fu!5q2Xn#8FDGsc?fAD2}Xx-w^?%F24!cc3-ig7hLLQEe9174vm z5DJnw5RF^b56NXnK!R7Cn@b3J{QVKswWMfinO)Auf3ITTa9NS%5RUPJImd;vdLBM{ z#A23uV*wI+_Usum!s*IwM0>#5;WnM}UI&1>q^yB*mlj=pCJbnG5;$^$%?b4FX&$g+ z6Hu8XcX{kG9)!iXs5LK%peLk8VLEM)j%Gf^LSQ{#Y2Llp?l82o3n}?sQ9!h(A+Z>x zIN2|RncPFqbo*)qo(;c#xZ}|BrboWB{oxSu6mvH_Rzjxm(axlNg1CH6OnSo1d=U(J zV&G8x7T~^-WnH-{2kBbQ#ya$y;RD;p4m3Dk**M*7b-tenzp`ydlk{>7Qsbyk zpVS(N&jOI2K7A5{?!gb|T`DIB=jMdZq!+%{*47qOJ^A+K->I`|{sG*VDyd#lQnIqL zBI>xkvO*g`l9uGPnsj-ACL=CcwP+$Qe#3Lu@T546Jm7L_j>{ca?Bg=C5>o=d+1dv~ z$e+j4n_d6}k)x>Vw!mcsHx1l2Mq!aM95VZ&HV>o-yk{h-CGX?G1M@JuN2e^=IpdtF zKbrZ`(hG(hTN??u)gUy$by#HOQ%6T@^u;>QcNwd_JH=O#ybll11d)?W%H|}pz3u7# z!$>(3VQeP8!hc}g2+GCyPQ=B3VOsE)Q%(SJ`9A<}H|==?`gh-dwf^rnp#SlK{y#i| z`|xa_diIwuaeOY*jW7NMe@A}){04w!eiH{svd>QU@57Wq2Lp~K-jb9Ucpf`ak_&~o z?h_2qjKDPW=2~bwQUIUZ4_qK;=POuo!r^(@%eB+#TM`cVj_>EB-4;R z{p{>4$Z4u?k~%(nW`!sRz@*B|M=y_Ee{rfJ;m_^f*3w2|Mj@p!JR($Z)KCMI55QUtEBd zw8zN{t>aTD!%^l6JtCUX(cnUaE9*7=;=ozw@fwhOwTIK(t@8Jm`8$vq)7&f%66oHI zE46qCataEahYv$R*0<=yyxG+m#mR$Bhtt|#OdT1lR2`YrVb4;!y@UekH}5_mv+7#@ ziwOJ^WTCE3K@f;B-%yP1!%H*{&0Y}9)?5G+8)~qYip{%bR>#~Pd#n*rQ|6+gxhUJ= zzE{4KFN=6O3Zr(isCb^pqisHISna1*2PH&=4Ap?9Z(F;q1G?Yn@!W0tB~ewZ-3vic6#v`^NKh~Px&0LLX^|v zQ&Z$aM~9mN*RQARqP@Mn&2?Ej*%9ZI1;aJ{mgRja3JD*Do4!Ym0P`EDa05j!QD_b*;KKCZ*6*i<69DY4< zD%>9Pc72ODQQSk`U`~hr~A!hN|;x(MB@iZ1C$;Tb$2^9JgyIMA|?(x zsJK?|e_J(izjgopu;L=%D!M}NQ=x?9C5857zn7Q#^1^o=`kSFw9Aw|q6Y76ACF+B$gr=g%)uQBm&{!{kMuIXKY$qV)Km(HQ@Q#ZdeY7Q>MCzpxlY z|7I}^7#**!W~Qf?*g%JrR8)pg&i{(PkhjF1^92j9Nle(;*(XpCss@_<`rM$==LUe- z{XZ1`4Y4nx-H&5P_IU{>$S`wME`GNwatov(&4>j_4TI3jft$ zO2MguO}l#KF#oo+*y}PZ-V#(t!3BY($TsW--Pr9w^O;Ujcm%jTvzMmT+{b(wyq;y` zx}S^{J4rQG>h4j9qyR`%;uCE z0Q3jP$L6}UqKrLgZ!fQ3pw|@c`**d*qbY|85NP?(>-B(kI_IC77>ketXMF2rs0-SL zhLNTXUS##uAmwDK-JNnM%NvDqQd(}<;W>eb36Of&!19QgQ>EPian{_6AylFb%fAr( zm>NCAPeFtG`t|GJ&=8(sVs+Q!<~@}eujzo3@v?BCUa;mWfCOK^)a2<0thLV|1Np0+ zyvRHu8ZyzDHgX{wa^zPkY{MT76@-RNC_FLT&o#*2utds)XUx>|%sD`WLUCQG(ounq4~gG>eD`BFdk>pNAZ% zao;re-MocpfhRE;d}xAa3wZ+MW+t8-zD&pY8c;^))oa)2EQR?R%}kH>WFvQk^q- zd&L03s-~v4uq;^*I5u4X$-}KGNq4yAP8#tleEY|B1bS&Z z^59MsRj@{{%>zIoLY|HScr$Ek-ui zOd*6}WfDHq59IO^x5JUH38kkM7({UFQU#AKk7?|M*VGUfi5=qdmh|%9zxb-RVKC-j zRuB~$@|=42V0+Zsjs}YQZX6eaD={HlD4q8i(aa)iRH39_7>{B#)gBAilt{n?Z|ceh0{AQRDV&<}rQS#XF+O#8_U}fV&q; z0SIqDpb2lUL$7_Nl2lRh=$eu$pL8UJy2@mlaCA;x$t();TUwliYedca{W8^AAtV-H zlJ+be3KL~u_fP$dV#yHRSlL~lc)7@P^qZ-&B%i5e&lqbS3)pM{fT0BFFJAP?%V}=r zs1V|%C(i~{1o#CISZy12NkSy7l)QhBxx4~SG!R^F{I|WDDQ=)h93fFktj}9@$tVukm!9zSYaeI|7N1OSEceG^oRi==h5j@fr_@XzK?zKI23d4%}bq}ix z7IR_?2RE|OT6s9+RcI8}u&csxQlv{%eTxDIKs!9<`TFMOtp_zZT`^h<-`i4M?>^-O z3=$|jocNUVv{WJ&U77#kL>GJ>F`hN>SRl1q0F*NM=ITfMc6?W z`D~yb?y|cgnfm46oQ3Y|j9HAX_Mjyt6w`#y&LF?OQifvF27MVOz=tJ_L8FLrklCL4 z$vfrHA&f)~%+1T3mK2!^{vqN-{=D?3Q%tl``lxfg{CChYY8fWh3b^Y(V2XTfzVEf8 zaO=|B4;=Jvm~3tP3Dal*`DC^m^(Ib`i1VedBLwx^YuCwk&fm>xvS-4A*>ETnk`o+G z6@V`V72A_KiWX}oi?aOkHVMzEI9j4cc%ztG>1sP#l8}QDGGupk41dfH&IFGR;C9dhinCk_v9SK8&rQ+FBwRgqVrtN8@S9?WV^UU_0I>x% zD_a#+P~jhDMqwePLfCi?_8^Cr4d-B$P&BFtJw7%jW|(*ZusBWuDD%|7;K~{?3b<)6 z=SZ5F@=l`7=-8O18f2z>iIgx*YLYV)M}eS4!)AjuZe6!&Nhz-x-Xdu7$E8gVlGy0C zIu$%iV)^gflkIl;CEt58doaEiag$~p;{^)H}o;j~GGXiwxC)Ebdtse22Zqw6KX)ftdqj805+A2^98 zXba@N_uIR5a* zn(HoSq#NFTiaA5ZudO|MD$6IgRj`$Ca_K2`SH=BFEh6*dfkju#^{raB-6mwR^Ap*f z=Vh@-I*1BhiOMXH%AZCD_eM7i&IqEl%&eTm+nV24ccpzPQ+$A-+WE;Hx` zFiGy>cizE6v@Ktt$b1|l1O0us0!JM2dX?UV-ehYZi(=h=R);-jKE+TfS`|*y@9Swo zb0kaiNCq@A2m3W}#$hY=jf=Y&XWrKpuohqtHQ$fjEz%iWtJc( z6@ZdJfx^313VS`}A$s2}>x>Q2ZGhe1->3S|0bn^Nx@64>Vn|rg6+ce*mnlrcsYOdA zNtr8SipKb>g8$bH(|;$J2IEJp>-L#s=JQIV^30hWR(@Y=gT}b=-;B5ti1y?2+mmnX zR`o;m~xw+gdBq4_oMe!oFpqX~-fo zIF8E|om^Kv0qmSyOF8+1`W7O&Ue&(G@G79t!fOTfFerd(k|21wmD4-0zS603QkOW$ z_M^EAwJP-P43D;%6m9Qx_4;*&inBJ=oj(G?&v&7XdE!!NPSZggSG{A~ezXz)hk38LsFxY~5Yx3}8EEvfL)|qVI%n3tl{X9y z1vuSPxW+=BaY>?6c{G=Vt*P0N!sQ;Qt65frKNy52jx&)(Zy!~VJNYGWuXEuhq>9i; z5j+MWPA!QD7fO0rR8oDT6m8%{W<;m9|GiatVn$NQ<=`WpCT3as=Eo`dJ+15^j za?vw^BnD8w0X4>3LXkK0q3Ivz3H(&^R8Vp3&|(}<)5PvKK0t*q*`m&mgN9K(1t&>% zCeGNC6_K^bY1&CuPo$8gXTKv}Om(>a(~vZQ_>9IOwZ|SU(#T@CJdLMdeC&XErgCp3 za}VP|F&f`B(iLh(0{RAxbWz%*JgMnZ`X?Z3!hALmtR;-cV97d!(>Yu=yszVg5cRW) z^MNHj_TJuL>B%pw=(>F#NUQ>4#^5K}Bi+*T(Z#PMDF$#F3|PGYR4Gi+MD0#-Zxham zX{xU`{I&jN^+NjTLe1%vi!A8^%~t4sac-dmLRAVcJRlPP8goznN*-w)4&?Duw}2b~ z(s}gg{S9;hIv}+#?C8jAaU5^Fsi{dWFI`>gi0pmfMKTaNSvXxtTSPT=b4}%`Ts;*bTW!qU@3DQtmEo!D5|FowE-T9VkK*P5Jy3v@F#PWR?|AP zsndU-dGYE?P}tf?%_$?u`17X~XMI?Ji2b*UhLq=S-R~QL|H&|Rs8IY@jSb=dwgH`A zNbG;#@BdV{fA0VP{s^IIo{|f?uJtBA7G3SjLRz_IoNKL9ur8%G(Oa^FurK8nCbRa3 z^Y@w!g8??EU$Oiq{&5UVZuND2MfCbqd=MJQ7xcBYvzoTHx5MYRYd0pg4gXk)G|h*= z_4W{T&35h9SM_g4&xMaT`F+d(KJnN&X+5anKDTQ#Y_t~{no!jcZaZF~sG_NFQ!t{^D?av9#>wyPaBCAI*qMV9VVj(ZdEI3Et zsob(e>e~{-N@C2>CP5%stxX$C3l+pFQ6A|i$vQ4ME*9P%w6K&p%t0MaQ0h`z{XIfN z&9x2Qp8TI^QO-o5YEX-0fO(t#M9naOBv&URotyr_Pxlym#RH`t6LjOf>_<$?wQYsQ;D++oz8sy`_T9A}1kNN-mrTY_z>*4WdD z=KgOdUWhvtJk#U#6AlEF0E`U?H4_iNv2x;MC0#g*Mp+(hOrBs^;s=Z0jI3HWB$&H3KrnkLtpfA90)2bAJjjKw}jdyv%D)iFas z3N5jx=h81f83eas9I&U?(sFZFsTtLH4U3)y&TMx1S-Aj2HVzca@Vm9M59n#RWX%I3hMP(H*<^l5&z>u#` zc%}6|^mA3yF*>Z951cTIQ+6y6xmxU4>G} z4EG2TsCvRSxI;XHl;^5%u1~aFpJzF?`GDh}tG;|PKGj+lk~eOY1B2P>_4%fT$5**1 zP8a2%E}E}-z}F|J>J{qy$P}J;np=eAOSjFO!b}(j;w~hM1Z@ipxIQ7$g**t22&E$2 z(HzU->qmw|BzWWIX}0!Vo9qysE_va2Cg-;CS7)EQ&N% zl9b)?_$nn z7}Jh5@35TDdMv-=Tx=COLXbezl8-xQ-a-^=z-+mT__Ph{69vgGXl}t^2MmmhAwX*C}(v>0(8QCq6ppT~5&E3ib=;z49xNw6}dHt`@h zV&YMuYVb5;*7>nhvp4z4BIm!!Gg(=AR;AtcU{U_ z7UEfyS87|XvWQ7Yf*5!fJt9Ieff<$E4No*|S5XH>7xM4ftyU+lpw7cit;_|B5DNml z@}NM*4Y%)3nof{;AeB|q>{FwsxpSu^7pc9){4l7AvK9w|2L@070?5MMC(!v~GRB+; z>%;Fr3&!e7+i0N);qe1; zLI{i^;zyNC*GcXRS7ZGZb5Mr?g-5PlF~HL12tXeyy9BRY8#(IvM}Re=#(UV0jCHL` zSe(W*n039)#DtX({{VB33gicXLHz|(Ry!E1t8~do#*(KrC}p^<3~~dl03#qI9`}8n z@|5WTgC=o1T@%!9@etrvl&$7h)@Trq&7E-doMg_uGiEnyg-fhB3zu>nXlopisQYE%HA6lPZ^r9X{eyPIZ6YiHjBsgCL!EX=Esxb0J z$@g91TEw-X(5Cz+5sf%vYeR{j0cxH$nUP)wgvcYGp1d(eMKCzO(5TNuzCD=zy)s>b z_{5R+BdtWi5;#h$a1t{Ayejo^YOGe7){!f)U7KBVYlVM1$(DX8U8tJP{W3pRclXrq z-1H*ltvd6^_^cf=h9N)>mOrIMB!anCThto&lW-!7F=D?a;!YXL%%SV%(yh2iG)gk` zo&TN7CIn{g*Nh-#ox#~zD%5!e5!S~za zzGDwDMGH0%(4dW-&0Xg1t@!(&SI3%XkO3hEL6E|CdG3p)cp~*xy0GT~kX-WTq8PBd z?yK+;f!EP1H>j1peS-CT!%pL zp>Umxx}wIxzI%6B5y47oZxe(k5n;^d(ccH9ZM24r_qF=oRd5xxRHt##bJc#{&DrQo zja#yg5j@gsjrnb6Lu zs~5b_=#_`Q;{&Q!S^1UV5!0M2D_XO9=i;@#L=Nl`(0DZKT{rM)cgmm8B0`Q0eIF`r zv#oskHG<0!9_m)Y0@ZFcqWh{3t-gtgV?9p)7{28&w$L5NOE(O6Lvg$Ym9}reGr36} z0@;xQSZW`n{{DTICA^fBw)mPaICwu~4ddId`IS-&BkPUpa<8k$`q(~DVgV(%$OvM4tYW% z8~t<*^Rn_M#AQ)o<8!t@bIMuf?<95+&n8fo^_wLD-Xcr#!vkB^^neQ~We?FYjDa>e zI5x9O*WKAxjm||GdxU{*Q;2YxM=8G(Xh;h!POar9| z9Nia@a<<1)wJwS^Ylt=#n}0Ncb`j)LQvtN0#&Ly<56AcRv{Y9Kdc&>qSlTHDP5_$(Clu$U-~a_F7oH0IrDhScUHU^M)Q|<-{BhHlnTf% zPZ&fq%x9j}tADG9PVP~Lz67~z{=1rcmwX?ABo?$6P5hRAUy8-Y&DyBD1f!O;p4MXq zhB~=dr>w6O9W1NUzB!Qoxh(uXCKz{iQbI{scfI)_SODu%w@AEMKfTG}4Qt_MtT!7> zN-gKbKj4Iu)G=q)8wEVga~vmkcJ#90^=Wz<{I0%2JZK@pA?j&@n*x=BbTl7+_K>`! z;=QvBx`JQgF`XC7y7r~;oGvBq(!KK^ZuY$qRwiTb6-&qe=f&^k51jli37R2qMj*Fr zgV}_|Ws`DT(HQ;GAD5ZQWyQc|q5k6P?t5qs`TZ;2xCHe*rIJ^PXS37C4b?@b$~Nh` ztpif#?k&&;SGf4_3%?*L{N0Ta-@7fo%pGlRe*HoiJq`GwVmWEuR?j+h)G*xY#2TKi z;{001OqO)8mK(hNtGKb7OXAzR5|=qqh1G*$&@u9v-oCLMnd+y*lOML1*$)%k2=Vd2 z=Ppqa2K(Jzrn{vLBl3ufAc-{zqpRagtvZ#ENPgaIXzVWkjxIl2#mca4uV zVi-xGFWlQ`@E|3*P_?7b@NyEIP1e*P(*3M#wa(?vZ-)1;VqdV%eNagGnEoQ3i(o@QP>Q^e$vkV_*sHV#lxxYP)-CQxu;HwHcz2||OZoiF!ytwHwX$(VYu0;f z5F^ivrnw6k%@^$R@Z@S2goO%POZ1L zD*nhs&c{F5UR$#Q^-}~bC9#gFY5JJQ+&_#92?Erh2P*bsHHVA-2LaFdTgV&vT_#XS z>dljq3tWq+pLMUI<%5Juh>T7 zj94$pce(%l!;>f(%HHZb@)`QA(j95d`!||=BptkZ-C43LSz+%VE4oQx#9!Cj3t-2K ziY#;04;*-XQ1#U|G9m|v`=p%*L!1hMT{=5HvJ>T&1QxAQgLY}1m9s)oTK=j2`3r(I zB`Zu3jaYtqdIpD>?rEs4CdYh1oJi}-FTHujx#*b3!fi{no(ta9cryns$~&1aRZe!- zC&$WTPPLjs_`Eq=pU@!RjM*V$K+oXrC*HUGqHRPngVIjxKU9{@Cy67OCZS$C%4s_< zR&6eBFKO~smyqsfF-5KOs{-0wWYtt1A*ub`luc3yV2gBllV=D7Ezh}_fK5esYx@QL zF?__`$6Xuzk0!^3Q#S;uB75TNfmmU?$Qbw(J;166zZhE``1=^ z0&L*o7-xMEsAppG1_-aa{lK1~&RPQ6c!tVJ$KskA#tNZ!ASefU7Y2~|_wSPdYz{C9 z@6Btq0HuLVI~KLmcnFZWvr!YYl>dtc;6ftjp}~JcYpn=>juY9D(O?y67jf&xnp+!B z=CAuw*SdV_obJ-%DPPbTnJzD}q357<%+5IO@7j>d%mEnYK3hH`k; zriI!!RdOlPJ7&P*A2(Jo_aV{zdebfGP`=r-x)UE-#6rNYtlv{LQFsbR?9`$%TsyUw1t~_%aK#bRGhF(}wL(bP&^?*1zE= z%`{2j80NLJZ{>AG$Pg|*f|#vHFhHX7ncQ{vD_aSB&LK%w^{eUMq(6}yD;4!po%;b- z!VKnUcTAXNnh&zd9l2=E+>DzUPpBNaR#!r!=l{4z+Fu2m25)?0c}zTLTM5)sDKzdZ z?dxbi6cS>EmQ7scI97oj2j`g-9CTQ4U3+SXmPT0evMgP|??5`htT0u5SMFinVhszI&a{3~A0EiHco+Zl#aLUD~}?&}5H zHyi&dMz~^^mdzbvoEyLwMW%6cX*z<`)R1C_d;)ECG38d2%=(8_Fsr!IBUuhX4UBE* zeD7v%&<(lsP1*m6vHNUCg5?lK+V+)`Spwuh3?GG50w-dxG zzh+zvYAPcLEK+2yod*Ui6bU6cYL1@2b!)L~0H;)WYx8Hpg~Bs@qj^6XtUq41A{UY= z%^P{qQfQxcW2)?C*JRhv4w zv~OK~x*hlO$r>hpUYx9MUnD)Uh%fW2g^F(n`(E)8bFTP}Y{kG)?+XgD>m*zbMTf1N z;nRPe7M;Xd?-N@Qgc#9wS8CSR*CRafCR38p@~vo()EQxykFF3F!vao5v}o_(1C@)U zwS72)E0xuYyJ0n|c2)|=M?vTE;V0sy#+^V_)X=~RO7j%>*Z|aGS&jfe%PU)395+-O z9s()L{I-g*@pR#~gM&lJ{C2p|Yxve!lK7&iZ1HKOl)dL|Y`@wK+bJCcmsZye#5i|cwA=kE*fK`r)1i0UJ%)L<1W!zLI%F@DL*;9ssjob*IK!Uw$Ua|fk3baDWZ1TH&0^$4 z$cdRXt5v}x%*=hJSC>cBic_YC^=fvbIAN}teh$Y{pGdSlA!hu6w!oOG<68FKE)3!+M5(b0sv+>ibD*ZN| zw@R(;_P`c3v?+HUzyHpKYc#RrW-FF=(5CD@wuh`fXN*6`x;XU*Fyj1k?b{zd?BsEt z4L?XA*36KN+=fbQ4FWMI*Po@Dp*|CUg`)qaFIcXaDLxy@MUS$ozk{L`^i{7DrElcY z8?DZh+jtNnrGWDT*v4Tft#(IpC_Rhe6o!Y?i+?#_=1NXEzIu>`|LMA z5T0LaV9hOT?rmXfxbRMb^>dkUI|}jp(0$^HEw>i`UWlBPWUcuRGVk5wJw-Gf@X;iZ zkHmqX!m)c_^B@HkhcC*J3`AGm6|$=UR=?mld&^+$hLIJ&l0*5Asnr47ZE zq+q-(A~J9=*8TSJ7*n2s=+)v;cd;EC!5J;UmdT*(@h9ZV? zN{z=9bB`K|)KF6*$^G=6weGLG*IsL{{bPUY``-QT{k_lgJ`YpW*d(D~>v2vpeOW+C zEA{Atx^3wDZ8*NVpk*8Wq4!p8lJDou@frjOHK(TR2bl|?PZVKz+9OIV)dK8if5=e? zZQ6m1uQ)G^C>(D)E|7^wlj0$dN&X4VeE;4kb9yrn;6*<*k>fRHJ7_HM?s zvWw!1kflRwPJ^d<+Vk`u{s!!4dsNCURY@r&s8MW)9VyLHtuWci(;w!;Hj^TVNdqX{ z?K~z9JEb-{&Cqb&Wcl+rM4y1iT%>Ilo3G(nq>9|T*c{i^T`OMLQa27aGu#eRmlrkx z_Oq2Jc{x@3SdOm-1Xp)xjrS*KdED7V*r3H@o}TM^Gk2wrj)C4p)JczFOAK6IvG74e z+mH=VPa9-p6YQsdPh*}gg!AfVO_%B{^C{19?NQPfcK7DVu??7stey0_4O)*$$2t1q zKu%X0W{wMnz9kqyWEk8!>WC56_0s(AGfnGLJO57BOaqeSTzckTjw#<0Ax#cuJ!&iIShg z#IKG7`2YA0I?+<0Qans*^j7?s3n&CZr~%vA?5_S8$B}LqMSE<)k~QEf8Cm6obxi0& zfD=V^+|FV;1Wdd&V$ibPBYC47ZRADNQutx^lOx$p$v3&;b{wtvTx1JDyPa)1lUyxTx zPk$f9mEfLn)h!NGN*c5YM<*w%vXTYvgln+_<6igCGRInh7Ibr>m)z)5f2bNmylL>X z(B-OJ`@GUe@M)cDL4oCP4%jhXSxWNGV^u`OE-V&AGP%`Z-3Ev-2>C9o+{-x(UWFVP zJq1fCx!Sn+Br6ucm>%oPpI~VSy;Wr|Ue1#sjic@)+F~!+0!pKGPN;O`4iD?Y4n}*B z+ZoSD2q@~QBt%W)wi`)$r_MgFh^|b)_$;<-DoT(!(EGh#oFlq(-~BB}u}89n-X*=a z=9?S;;$a{ZxB?;3vm3*8zCxyz%%*(>wD3Pihf{ovv?;jS zVhJogi1cp%MOWL?uNSMwk4`;G*d;II?aP{iVk{VsE1X6@Jmd#>CA~-Td8c2$ZazVA zbWx&k%!A{Pm;vDjyW01}ZB(UniuqOXGGiAr7w8<2A$auqpi9g;T)QT~`^?I>EyA;x zZpz$Z)ug3I+eTtTA6>5rN>@GVpk6)(>WUgeCrm{1gMZ=HIl>IEa%K$mlM5|?FC3ia zX);5yQMoH-6Xt%IK67#REuCZe}*LW;GY)IRq17H^~l zDXcxgXPK2VBIxm7?^fK_bf${Jd_}b#w)c|?DZ8)mCb66k1aoAMQmG(V zW!33tt{!Oq``($NRcMFbyB6xckXXT}pV|79I*9$EDQ=M%q0m+-6c6+wYjPZE#8=cS znv;BR2rRvmAXUrxL>>)VC8|a z*Xf7dL|M+*GLbJQ^B3zJK(?b$sJ>*o4sSw)QV{7z_Y0en$1J_6ESccs7D2noT-Uc*vNfMl zzY0Mw8h4*>tGRoVmzHRy%Z*p6sn1_e;I-A#i zCTsnOg{fwEKS9CEnGqoJ8%+#cY#Vbu&mQBpv!nF5)}uua*j+9=#8FcNNL7eMghxHv30W3wjk<@#YjAAj0>z23JC~u82GzAeUy;8OH>6gkj45)*2m)+x z;^%q!H3PpFlj(Nm1{gm1FqgQkz7R_zVUPs}1(vq~zoRAgUu}y5$ID|ijDj|B^Zn0v g2d4OcZWh?wJ!(xFu%wv=7&v$=&1_7|jc>>O2hUUM9RL6T delta 18423 zcmb@tXH-;87bSejD#?I=WH11d1e745K}kvy5JW*xf=C8IGF*@cB?nQ0Bn1&f5Rn`k zl$?{~oSSIVq=xRkU-7)}nprbze$2Plw7ul^4Rx#PRGr#;pHtJ{=q6L?VlTluKKG5? zRjl1CU)Z|1+d4ZzkXLG2GRpa)^ywyhjDhgxBO#f~)cTdOBPUEJE^EZ`{IN)odlcOT zv%a`2l%W{n@X$zSDNBH%MxyF)$7z0`JyxI3tpV>-$vWCca)~xA zDC{0gSO2KxJU?(%a9Q4-$ejxRYPn%&@JVP_jVbfcNL%XHZ2!b#rlMrS_By@yBaQca z)*byGE&f^vR~_;5-q0<+%24xx;=BneOg?1p$%oR|!`xczuAjm$#`|It>PbOSUjHaa z(@~6889TfGHJFkaJR7Fa+3k9V&GI%y@h>&`isa(+)a`U%W2z+j7?px0D&S;Vvg~+u z%5$ei!-wXVWce8`+WSXrXuJrj5?L7>d(ODmq<&T|{LKo@M|Z9t%$frGW*VI`J^Ja$ z_)M$36s_XvXWv=sB)Y`tkzd>UL&KiceP7*&wGUG_ZqhM@fMv z*19pBsXdgbt%WCE#Q$jq$7A_%mUg+5^NiWP9-^DQN+Tl~v#(K58u#s;+v!xfjXga5 zNe(I(B(mo$H=p{&9x||9x}|Fw+!!!df67#YCX7fyC8#kVTGXQ^!$jt>$W!!2>>Ic$ z#P&FK^>6eWGH>p%lqgoC=P*gv_=k3c6H_nYAF3YplOcapt}5*Dy%eqIYSp>_TA$aJ zZM1lS;*)zGKeqCtEZv*0q(GNuX_}%Vy%bW!WXu@JJk~R$+{^dG$$G~v(_W4%DPL6E zzW8g$N|2bH>HA7%LU%jlWPJ(jbiO6}MPw%J7sD?23a;c7KVV9U{he*jaUB)X5c5J( ze)|E_2EU@bf)|&ou*Q6cAf_3pfW-VV9%j~(>^gVF@IQe5X zJjVOAO`eSQJ5{|)Nq99r>0T`y9p9ljsx(Grw*+#pw2Pu-OQSsxJ02-U9Z44CK3_npElyuO^=fL$jL-rT-oS$jBaLRx zO-)UQ#LCLbLkVSm=>=v<3nd@sCF1_HrxkZSBYg1t%OYIuvGHO-mK`Vd!trHB{(+6Q3r8@)M-)`yf&I@;n#UTk05^jbVW z(LWG8J~rmSO(3hMU?kPMxxv@N<;=XP_G^4iW9;2m3^MvtE4FQywl#AK?+VDcj>1_q zn@HK-JU6k|-7kv0F=DT^9rYyLwOxJ_Me1X`!T;UQwsgx(s%48STvB6)~qPrK+bTsn{$fQ^c5d zp8pxT`wc;^shgnd6TNr1^=Dq%e9EaxO#b?HyRF(a^aI8Vkyy=VUHuU#?BkN#Muafd zaXpL@M~>t7hhLqEaBQ2*>BQ1AW#R!#YBSAS64G;AF@N-xE~JJ&ZMupW`EFIpB08-` zq#N1;>G);!o$=eRkuBsXdTSNoVrA`>H{!P)=YWNO&QV}$7bAUtSdS40)Ia9sEy}KX z+%r614IiG63J6$BLKVAqD2#1#PA3KsR7r1MzfMA)O1L@0k>Xqr@hp+c0bv(-9u`G5 zo~=($=OQZ3qgAn&eW|bDwjv6kM$cqylQ`?QUU!SVjwE=tc7H0KbFZcieQv!I`J5P- z?zgNeg5x`3>5pDGb<}-3`6O1i4wt$7R>;Vc2OiF&pUCI2=&Xiop50@^Ny@bNu5=eF& zH7(wLB~KcS78{!xBG_LTU~g95^NMK;M{zx*f*@ckyWrqpu6a-FNPT_a;E2+p3~S-5 z#Lv#HOE$2fkLRoRr@%tQ7{go&P2eYWrb;DmD~l zc1B9ZGf2IpFYF-Ljb)|f7d@Wk!G3BRKGBt`A3In56{%K0-dzbl6Voy;&U{6O8EQ^y z-jg{4=ZTj5`UlUSN!#%5l+s;B@?!CWb5|r!yt^>Hkpz2MlEOkmSNvMYV?&QWt(W0$ z%+-%7|9;#_Psud?Jz6*`41xQ=$Mh8y&za*-oaPVc65sLX#YyJC|2!bt@IQ(%hR*(b zTO}o}(!Y1{B|iDTDh&RgrNyOeP^U(G_`oKDtNZfhimueyt!_)wWE9?0dTDx+jg3uh z5gz!W-HFz`hHN$y##;s^CQ>(~wC-qYM;Ynszv>XJrgK~BY)F>0ahYp8`OojC>eOT} zU%vb>y`?V9OaZM=R7!pmtEsBGNe`){{G8+(jl{FSshwz^Xy3A!eJ$HJ1|x`iIn5Kq z(-+x4B97GgA5o?G@+cgblsR0utEnmOxoNtyzn@iHd`?6}B$|$#ot?e(*RNZb&Ypzo z3(BWH{IQ%G8ObFJd~Q%Se$k{1Cl)%NzA>+0FgE+nVHvr#h8SFhT6_oG=IHerp?+tt zSFDk+?3wAU{fnnhDCsd>if_xOr;KtY;PLpsc)w7!EPa|F$;(Jbf(ZMrv8E=iRf}|4 zR!NDw+9JBR*uaPV*kNeO@bK8g#5do+i++VwXSCXo@bf}5IQ-7hdDVu7U>aVzx*|?m z7SU8a{MO1!?9}Vzw{ReF`a21QA^-9HyUw@V+#eiPtTbu`1qJ$3bgF(3sOpI~zYi@h zU%q^Tk{sd@sk>)jkmX%#cK`nUmEii@Zx}w6lnfRrD?NUkHZ(dK*4}>C|L^eF*eOHU zFx&r>V*EDBen_}8SyCNd2miCOv60VckqT?J?;iLmDj*PtFFmUpqf!q#Q$Xg$La5Mo z59#>dmILDK;4o;EZycm?Ny6@jAax^dxu*p*A)D^CiXWtL>8#i8p9i}w->WxoGBGog z2bLV%x_vu%35UODX7-(toRJHb58d8=(Lx;*6&3YJfaw?LiJb;>0j5`(0{zdFpXrmx zBCkSJ{M%@UQHh1cMGT(BHO=ckm4UCme|wWwDjrnE*&NBZPbM(sS8FB)J=x!!gaVhA zp6Om=9fW4sAnwVEGkJMqq${Qm9^{Ca*Kriv^iV^&dEw8m=fNnh6O=n;^mKGHe`kN| zPlYz6z{<*G+uPe(j9?{Ar#XS`EZdPW)_A9r2p zx|34p z3*tOcaRwSeV9wKY)TQA00bI8SA|@n60XiNGD!l{QKBQ?zldh`Vd71$lDRWG*8834j za~X#sJDW#jS?!KHzTi>zvbi1;G2WAhC|L1)yuKbX^TVnN28++npnv>0Eh{S<+A_bg zy7~*)q{wkxO8pQia~v-@FJ$zj;T4sDs3_b#T5J=iaq07UvShroz5Q>u9)%oKT>#NX z_;D3epd_9uv0!`LR4lsa>YncB(fPXed%^76DgO26EuQ~Wi1ZESq}QyzS^ z#!QSnD3G+c>+>n^DmZtB;fR1lW(w06|YCdu5$=nLF)*wzhOT4t3!>ta*kJ2RlAdFM_TMlO~sNtN$R{=?$t z5>xvs?1O?wA<@wcC8ed9mg*lr?jdJeG7AdmIXO9vOYPn}VkH+B7e7^0u!gCS`|fY5 z4i6Owh>0bhvGZe;4+PVEeX^PbTslTsZ_axBY)1%q99iUo*@OoS)_C9oWu{j{Sj>8l zxVXHO)MV@#vt0FHY&{(@&OonrCXrbX6&pNqHF$ezfOV0rKY7r~DlROrC#k zeX`w0?l@9_{+q+fWcKBfsD%~1nWm>HUCMr*#d=L#zgH5RDF8e~Xp_atXf;b-UZ%~K z8F3951?~gAYEi`cYxZvv69412xj8q)b2bbL%yK5EIrAyZ+c`u$Pnnd!Wh5WPI8Cg0 zk*3FM*|#>PqFTjZj4{d3kn=raCGnMoM<==5DJ`HT$`P}+7T+J;wgZcwyCR1)4}Uy3 zTQoU{L=_cJB2ls~SCL<-vTht5h!zInqk%2(U)M>60;hm;JQJq!cU7buVtx3EzYguw zArh*>x3aNON<7#HUOzjV3Uv3O(%>=ayYB$6eYiaUOa~m`XMI6IWJ_`n<}F4jT=EfhX$Ph4;*6%Ov8*p6 zqpL`>G3RqTwdEjEoFt zHl~g;C$G`vnwM*!JsG0Ow29M4ioGm(rq?83kz7-X&{!$n5^MNvrS zfZA(kPj`174u*?o!|J{2hAPiykkt9k)b_H+2+&=G<3a}?23kpkxyaCE^t>^ERx<+F zI2p{eYyCQyQ`t!6JJhVrQKlq&h%idpCDaVDs?K;c{^w zQhWnG;;+*!M`BE%p`jtW@Jt@An6-V?EWLr0I&1(hSIliaroo{h9U(G{J9@&*lC^E! zCgt7R%T4T-!p!WYR$UCu(%$o(G*7tR$zFDox`LY?xM2ha<&9cuiJrC>2Bav*$qLu3 z!Eb*Zr|TvyZ=CkHiHvR{mQN8+b%dMt2o2Zbou5DNZOl3RB?zr?`<&?682L0^PWtp_ zhwK{UUsi92{{HnI6BUt2Jgj%i)E#T$Day*C06)tZ!&M1h^54a7Qv{CG?pqKOM9P}k zdbqh|Af8%cm@&D~VQyOS86$j*3Lj>;{&3gJsf9sdzj^c%tpXCJ^6RI_ORNkDR-N;n zLHZ}w!zO(Tt*aYlU4P=XaQGhq#6!Inqg0Ahtvv{O2_cUO;3Z0W5-<6il!&ksfzNND zRmM(y8Ate2$s$|kW&96!K8p$W4h}BJ`X83q_Fm&$el*&CpyIIHotADTA?Wz^kNeK< zE^o5dSO6Kc1pi}5if_BbqzVUR3ao5ys`>lZzSB($+)?GJs;=JkYF=(7jN^RgpCTDa z32e9I{>e=z2- z<{nBLH{y?_{r2xLwcI4zUqs>d0HXW63(rqWnFS4cnRt*=KENM-xMTDUKJk{#kfnCO zGs!l8-Fb*N-cP4Q(-tAR#!$Mvw?4ApohGL+x4kxJpn+B3U`Uzri$qIvf;r>v?N+pd z&0?2c?LZ$f&cuqmXB_32sxk}I}ohK zx>iTSnwlN&M4jtw2d=~b$D;f-?QGaTwt}Xc2_jyWi+7ne#`!O&zn3=pt^&>+zSR<6 zds-ur`B(zyEdRZEqP(P}LIP2RRaJqD`(sX%-mE6*N>)EGlDk}2Ue2PbstTn75K&%) z3=a-|{Q9-+J)SY-)*;tBots{Nd2W3=9f(lBTM6Hw#_Yj%~3wu(kac*g2TzDiRy|6+)Z6d7CaX8>FFN< zFUKql8wcJK_y>S^TN9ng^X3cYOxEkjvL});Xs9F!a741xxa%)O#m>&|I&}Dc28#5- zNt05AlUbPW85)kA9GSm!B|fX0D(+<;h0xrM8I{eTP7^J6DOM$Yf~1rYBF==Qd=OyHG5;F8Yh$Ho_fA+1=42{Au ztm~4X&u=d>h1k_A+g@t5|iwDA>E*(N1!VSezLF{@zb2fB0-&QFBw^{xOa&9 zA0$*J$L+sNc7^c!|HM|||9^D#f3ns82i!Mo!a*9IF};5M`t#&{N6^dhQDw2Xn>TNk z08G4APD4%o!)5l?()49O+-aw3Ee8=K1+ECedxo)Z`9Hf)f{AJLfDI204o0@a1_tMF zTW34b{_?mGdsJfkMBoOksd{$iF56ZZ?ITR zaz8^3r8Fvck-Ghp|G~xHXUh$ev9Feis3+IhZs9D=-v`hg*XjOMDhPmiW6@f;rtKU9#4I z*{>|We>=8&_*$h163t}z<0DK|_ zsOq`=ol$O$c6Mk1j-zjUJVJ$U)_9^*3Q~ffKIH{;xVNv5x0Zgsc2owdW<^*)mH&M~ zBsDa;5~us;m(3#|Hbu-}wwgY&wfMtz5X2!y$;ct|k*r=iU^K+kS-hlDl{K6@{^p5P zL41bc3(iT}S{#X_37fkxDJXdW zDKaGa6&0SKWh>6r{5dfygtyQ>|6*xxV> zGpVh0MvQQ^cbb30z(oOR57P^#7w75sOO$;JL%mCpe$axfWIvMDicSjpE5P3$tOT7< z*l4v^>hZ^mK!FntgBm86x?lZ37|SgqNip7wp!9}n&*v*Aix5UIVz{`q5@mX?;ApFbFZ22bbaU3Fx3xUvWjjlGCRZ?_B00%3(f;j(_? zNv8s&fP`nxw8mXD=te%DQquDagI|3EJg!G!Kb3TFxVu&azzB4)*wusi77!%H@(jN{ zk>65pl<1};$KZmFxwWn83K+w2K)wNs76kZNFD>BKj22Dd=Z$N9O5d?GfaUJ`ncGYO z{}N-MNi?Nwjs`PQKp!&v8qX1ShIVp(4o{FdMl+^MhHt>mzml;EHcVcJzPl}@m8xG_ zKGWZlLgj`vd=WGwu=Zljp9gH8v7rvkn96%PoAJa5o2l1gb&c?PBRH^gKErMG1oikH zCT3amaa1vj`PcH>9wb$cdim4u&QFgpi1*&$^b|k+&XkfZ0ww;J{SU)QNwRh1_r?>1 zrk;c{L)7uG$a7M4$^z5u^x^v}7BZtia~NOSC5Jq=rs$#PPELD3`k;rToF+~{_YD8+ zDSH8{mHFXc_!DySt{ziOFP_uA<5JhI1^#}+sCgkYqTzp+Ptq_*!^Z@TOD^M%<(MA1 z_jf-P7H*}62ZmWKp=)bl&NmF4{oIB5`Hh-lwf|_RNP%INC270prgVKH|zb{chCsBX|ylC&x5Vfk_PGOJ#CfcP#q=y%-dP>2hs%&Dy4zB*N`*U@C z&gQJ@1HQO=TCtkI|40q*5)(U4*nF+2G0oWZoeg1$)wp!e*fZd~{7Qv+E|lS}l!EdQUW$pfRO+L-qp{fU%Gs3 zQ5HbNIb<#Q__2OZ#t6?+T)?+4R=aZ+nnB?8fZ;d-1?HEgp&{W#o8Y?HSbQlV;!f_* zpAr{lg*O!3nYl%4$ig$Va`Ts`6uLjw;Kx6BEzVnP?&J7df>lKdTn9LQHl!B=`Jrj@HcWJT z8ET?B5G#Jrdvl@^g4L*jO)065bS)FQS}dCv&}cD*nH0Cnuk~G_`X^3YFX$-r_(RF2 z?_DJZ_1wFf?iBojd}S;Ctn-&0#NA1Z{RaD`XDGl@q>T_3U`jAoniA6B#66$`fY?Nw z)|K4`bdvY!X|fp`-|8QEe)W4rvHxm8KKZvBWb5IH9f#PxeTtQ49&&S5C0l#CygWYC z^b~@y0?CqBOpFmsA?Tiw(d)fE4_j>W&+ig6*4Ea?T9OK%fRNB_^9*7ojoLCwa{t&) zldO$Z?Hs9LEyb}26S?_4AWs_p(ZlOriLcn{*VN{YZuMxXqWbGotHFTYjKpWy!E#qp z$(WXj7b27_Uv1UkbZS>lQyE`6tGtBwS-#at0wP>(D`nvSA{?mR;0jau+)W}y12~Hgw+(kxMgp~hw?IZmqaaQ`Le+O3>$pYhaU(x8k1kmc0 zRO~-kKRC)QTa1W-Q3}25Tes!8S{M;Ot1q||=WYtf!Iw8Z0GDC{6(Ig!Gsu0r1(fnR z|H|!ujcJqr?NE%S3oX@T4-D0vj$66@*nt94-1)?asib)=)*QDohziO0ejyE+cP39X z51wdvr^w^>%Jr-D=95zu1h$!j6nz{j{t&5vM-WG8GlW}fHg(tP?pfIk4v*8X4$ zS^nR&iQ7zh$I=LkDqjF!9P6&2I&h?Eo>PJw1Qc|53{~FJl9M87DIbQtK~2M_uIs9(h>vYiAaQ~JF)#ULQ;~J*I-?Ju;9mb zv%LOrI?(&xQVDkK27N;pqurc=|I?KPIZVTwPk(W#de_{yIf;8u5L>Tz=f1b2mm^=L zo;QEzL1KiiBa_-(U3O*479<-Bgd0A0gq|lJMBncR!3wCrY_#$v>4qFjmex2=) zm=bUPx6TImoBX%w=$3h4gVNH{fp)a9K3hbS8vV~{T>?MEgO%=C-46?L{a2Lw!_a&% zH_i9DNWd*T)bWp~T;zK&8?_6AI^85D-@%q9(oPcs$2|ffTyV9zd`nxIJ>R)*D7=6{ zqEK`cEK$&xWLchCUSGbrYv-c|o(c;`k@v_4=TKk@zY?b0Cw$fl(t%ECP%7e-qb~?l z>-F(+-S!*?r9-}Jz-}=%^38K)lPrO47~Rjh!aWr~>SwUi$pPK*cg0%l1J=K#17tn$ z(e-8tX&=@uFRzUyW%Lc1FIub>_DA?{k``BVQ4(+uLlnQpieqk|TYy%B<rmnzo{rU!<*fQ*?@Tc830VSD+9$1YbJ{R*`I>0+0l~E zTl?hPZX7AGjkl4|ym>5d*#c=W(y`b8pu9xCaD{`&BQmgVP+V)`TI1-#jOn4D9+*dv zeV&Gb0jz!@hK#f_(!=dHy$GI%JhOGWV(jT@59K!w=HN?055DhcJ-ed|_}p%&LVtKf zVX~2*ki|5No}1$-Tlb^2nI@KQh+nzA?i)ggD4H*P^}EG3s6f0CD<*2j@Z=Iwv2Y5) zxVZ)Gcn4~@KU#n*MX*5^-XZMU(88w*FY&VVn{iXY9Y45@$F$2@sG!uF;mTO&BIJQn zIxn(!ZrO}1ehWF=8hs)V$K@c6+WT{78C8K-c7!#4Ro;UF7X<09=w@ellA0tlkt{T0 zF#q@h|Z$b!q+kb2z2O*iDRQ! zTy&amk|6{jxlt9m>GHOke&W#%c6QsxSp9urhU!N}M)vWgryz(t66!5L70 zn$7t3^=qG1TKxHlrkx9d=;@eaHsE??oB=(}XlU3sYO4!(SiOf`xpHNwA=4BD=yL-B zff8XOkXBJnJR;~wDYjRCuIaVw!=?WSQ#3%BqUN) z%%#WVz7mcv<|Y{(Q791sl5G~dZU`*5xH(Ig8D#r8IZsU*w zb6c60*NKO^O+oX{?c))SxL`I>GDQ8y`|W$QmS@KGQrDKI2f~E58S6`g2MX|o zz&`_G-pCau5fdasvOue%r%@Z1bIys9adv#TVGq?OMAT}%mdW@50@CJF$qxw^U>y%R zN^y39wM(Y35C}dPEt9tgY|5=lL%|fS5B;(*q=%P>p9&E2o;LRee7dJW(XScPcs8|D z8lLZIlUOxaAt@5W19jNKx!GSvN90FvooFU33D=#WqN4f|p-{n#WRXZ;vkoio>h$$E zOLX0Ag*RUrA}pFp)@PREwcjDO8J<#la;6hV)C-t-I&|V!hk7luRkAp~hj1jBi*y8R z-ZC_Nk16A1AtY&l>;me~Hp-3oXUW0G?|zT}4g; zNbi2nZEeLx65lrfRu81+vc{xbM~|ywV*3sz29c@%c-PP0*_{D%`?j}tWyt}E`=uW# z)@qq=@^uGaGb5RJutQH;%&EFOJ4GOi4gH7=J;&VX*t%0sn@=KHW6wa^RD`oi_t%Ti z$E~AMM{T%BXxkaTzs&qOQJxDnSY3OfPNW9#;EQ$gxw0;`t{DG6lE9rL5K(R?b0bGq zw%DZ+3nP6ab||v$N2?1`j+onHM^o%H4D9**&DL zcLWoX|7|4k@Me<9H7DS7C;p>YN?jb4gt__3Mvkc9Tyx&U9hvRsf_!%vZ!o|d4EsfGf1xrg{AUME8pTh z?+GyVw|8_XBo{jYEzt<8Vq(>Nxp-!Y=EnTl5eH#~8=}8o+TjJWleZa@y5rxmJ?PwK zU^(i9J&x6Z=F2}ujeYD)U#|^r8{Cy#;%2Qp{IWhAl(cxhiR6y!`5(e#H=g6adgD#> zfAVSI|JMmM|34K<`2U#ev+%5%Y?+Uh&h9v3yx}Du4YC$i8E5IGhsUWqYa%HInkDOeO>`UD6bSXQU*5q^ukiP+eHa*!O&}XqnXXM|lIk zU-cK2C|qB*oa#IIaI{P@7bcGPiRKem$mMIqsvTWV;ZVP#@JPEqs$cYKYR6LP>pQQzKirp7t=N?mFwV?Bo(Nc|||(2;#XmxT1;J^8*{oBWJLlz5(8u*^T& z*aK}V`1ldh6()v~4Da0w6#LF_lNnvKc!KNUPe>@1D^TvtaC_OVvLjWXdV;W$Wycxy zXfhn?CNc+igdMboV%$k+VyjaJtL3C~IcVrc<}dH0c)tfoRjvych&^ybn3oZ#{Z1?V z)8DTTRx|4YWEiYz+1c3#JU%C^JDgn>Sg#>jII(|g%QS!?&;$=5F&EYXP9CeYfI1WH zD_Gry175zo0YWz*$~(L3Q#^#!n!$xej~<1C5XkDP-3&)`P)=o~w>~PD(LIrw-0|c< zr~2PI`VSS{f$tv1&G@sI#Bhj!%$QIV;iS?Aw|B1`OOv_Z1;q?T*tlQlrO_2IVn&P@ zge&Okd3yiQ@1*LWl3YzcH?p*_K}(M*g)5kpM0;P7k1)U8yK@4Enqc@wfVpKh541iC zkW$;xtTUqNR5fyx1D!3Pue2u^mD=-L!O=$c02^Q2iFD(`GhU+GYcaMtmK6mXj7cb1 zk+j1XGx#uBiRa@+&C=Zig<>*D+!3PTU6zeerz1seE9fn$x)u17IL3C)qA#fwZP``xLPfLi!+oPz0$ z?gg>t%Q(>{=K%bEGss5%qp|v4ET20YUAP*-jFPf7>8kcp+<;;|EjC($>%pc`E?P%$WsT4up zOuK$Q7#`;}qvmVHysK#{vr| zo{AqJ>eFwuC=jhN3@a&dJE(+DNth_f%mahpQ{5L_tp19H^3CKG7i(`E+ZNP=4JVeq zW&hgAYhxm=tO7)YGVV|?hN=y}bTx#?8~ag~WSRephZlokSec0|NU44>S`r_TElhQN z$y|QgMJ69*rmvq_-V}wWQ9Gra4B}#*mb1$$q*}8=Yee0r?UOZ9Ud(g02_%YrxQ2i= zSRz6RIGwTkfow-;1J#cL6_Q6Fi=ypa;wzmB%IgXTXiH|{7rr^3&>YqP_fQOztzu@So>QEg4^}`&P!G&gOA-NJ*3#CAUgkr6zbVIF4hs-dosnJ#1MG4$fug>tuAUNY3v-|8 z2qPRjGqB79a+{Y2pqKv-{&(-+V`2ouU*+Xp9ZyhWqX7ZIK)Lt|bm6?UDVUwHW!G_U zy%T?}?PgY2vmfnmsb6PP<(VN+!A-*_DC&Mhc-Uv_<98P_#Jf<@=i zchV_jPH@Pir{mA5&dgfYHx<9xlI*18l40cCdl=1 zi@hVET*L74B{V{$xuo1n>B9}w`nzs9CbLQILqMdoilZ`01 zGvTlhmORG}KCCp8m-E+26;Mm%JC%_gf|25o7c7LjTH&kSFFqg8>@bq)x5aOE!ew{5 zk*@SnpCH^Lr1fpf+-#0$IJDueWzNhxK z>}3Jeq+S<{*@qu91#&@V>}ArNy|eOG5rswAd#;XFFBoKgfM3Rb8zTRfyyn%>mpZrW zv-@w+@NwAzXmhc^RKDflAabt}6 z2T6mt`VVMqB#n^bGldZpA$lW2#dryZ<()dwV`Bc)-TFP4Nb(WVzkZ>yQX3l-Mw>o2 zipf|@elJS?rJ7Eca9p-jU4Z!6lO0f#!#m(I?qmcN^-FfhuOy1&tluNpQ`e-I%uj1( zS*O!fZB#ysF?LG3qefa=UA^w=G+;$tY4PNP)|F2J?Inq`Vbd(Z=(c8-KPFU&*iDz~B+o&mMA_~va*sqbi90X+Qfr|+y&)&wtg~M_MB-EsJ(%gQ}4MZX# zD121o>6Kl??E<1LPaz=cAkjvvc^!FDNaJ|Ym!>I)`U^AiF7@(5fKAuJ62IIdY`tC{ zN??6R?)BGGzntpCR5`5tyJ0%p**y)MJoWKlTDN1AHX1KY+|a}KG;ixhjQrdd6Lk<2Et#uBpHUaEyfbJG!vpDYQ_?O?m@MhkHh8r8f!9l^T%(b(h6 zcTL#wt}-^Pv5 zp78g8$u}~AJFov2uh54Dj6-EcHr;t|J*@VVs$Ij+S90*H%bIE zeS}TPf}N`xr=1*RU!iN3+VeX}Cl!ieh%R~DY8hABiJrwjnkqY}#WZGM@aFQV6#S?Y z$FF4v7D(tjPjBw#kQwyeOCGo1ZTJMUE0eaOJi5&;Y#H@((-0iE-0Tak?_bLqhG^%U z6GhNuePz>DivzGSim|Qtirm9Ra|h*XLyq63JujBu$-5d-@Qs%^bc9&b{e3)7c(G6z%ZE)D3z4)s(1vG(gIj%< z>Vki6BV7gT>YVClH0f$o&OC7l{F3@pc49el7kwQ)z(Q6u z7SrQox!C6=9&IfA+F1D6Rm#Z(cz#~OoQ7{pXG8A!jpz?rNTLD>sQD5taI^p3>v@|} zFvwPu?fPu4XA4=c9MxUGgw)?TO5}dlj5JGL#EOV&T$HQJHlV2g8duip5WI->>`lVH zahn|@z!$}5V@7pSSui|BTjoo|xjAkRF;qv%MrGVV;nN+rM9%5EevsEN<|C`DSoa+e zymRz&Jk@c%=Z{twV*mO}tHW<&VvnH3G`jPssfl~tEFi%aWQh3qeWQH~QXrbzf->S{ z#M;4w(#+&eU1)JeiScVjh+8Z_2Sdy#A`Uk#zA?zo%TqV}BaRc3t9y^DMRe^hdhxNP z2;5D(s+1P3K7TIwMb4?yIrC@wMjAg(d?jzhc&S_$)nk(T!|fRHKey6csXQb9?w zc>84umm=LpIqb>%+KxX(>G;*lp9ICo=&6Ip?r$b49rJRK_=|oWq1-a};K757OsBve z5+?BGbLI?9(oMo5BC0?-1%!5{Ui@0OjP_DM^+Alk>XB80<=9YW2H)BFJq>-N^VF;_jx zHb=7j3)XGFQjIu@`ElrSP6k?M1f24IU>;K@&9GvAe4y@`q1qAT=`v2sop^=|y64tI z9NUWVm_HXI+H|otqeU9tR^+PtN*|>9U^WUJDWgy6G+CtXJ1=%o2H&hG|7Rq089tPh z??3YPo9oLyAoe-IgA;D3h<}F_+W<&O0d&{!{(Z22?^KWy6oBT|=#jF8t^-M2394J@ zfuIw4$H@ddfdH3-y*(plC%`73g0eDZkQ`KGOlMXojdKO-**~{cw)PpG&6S ztRe&Fr}l0=UyD|Fq#Vb+zZq~reSGZi5kGPgv=C!Xr5XU$&wXRb{Mag1aGF-Q>J($i zG&!`g7WFARmkuFT-G%BG5jkG}EB87HUHAdD;~wam_U8~$wLYzB!TlUf1%raxPU#*G zKbAm{KY!f*|Lz_+1&&#Kp`Fa$wOv3;K+y4+jGW@N#L_@{d5=h`73Lmi1j4_A2+#U7 zn!E2g6Xb%)PHaD6bEh#}Eo%e~qd+dRWQ5Xq=p3yEi?N$?#W{QQj!Esv8LGComo;6s zHWSI<`XN58#;vs|-oBLj+G_J=gQ%zjVm$J>xrh*U7mFvS37RYJ6nB8V53a1RSo2Vijima ze(;3Yk(yT*(noP!@QY zBa+AXZtskYL$7UWUeo3?elPs}hhhWFnDP6uDlxSMJ!)XZxmYJaI-Eaq$>*HcO4CK3 zGcrd_E#f~`b-)SZ7aM22qB+&fojc18j2fr+-MN~7w#R$~_Q@_>Z{&vk@h^oRR^5Lz zvE@LZe8kAzd|Ql*40@j3F^iFRxVd@U7?t_tA5ea7ZZB;f*i^9D6W(%ORasRvguaVn z==Ro(M)^A)0g(T(H;l69U<=%e;rgfLb26Z~>V&iK%=b{Z~Xu zwV`;HJ0=VNeFu(QrWqcdU0^@bq6(XA(&$pyw>Q#cJMytSZpw27Kh`eCG@qJjsd5bJ zoU!}+jpg6RleEU~0eiYJ?i5#@Am`fZ(Lf6^?Dy8(*Jd@pr7ifGjYfQydd!?$`EcY_ z7w$U2$uEgpcE5+)(-W98jvaY7JnuvS6u29zdT^}P6>UivNDw=2nb5hAu%tL34vo2& z-8tPMql%T*i+eA7PI?k_orBdCLqk1~2m#Ux9OWQGLj^EUKNuGATP_X2>q28~EeSIP zw+mNI#1eG$BQuhEm%g+h549-9mW=z z+oL<87H`DR{k)~`oMGQNP1s|5* z*vh(uLG`aQ=bcM9TTBXIS!159V#eb=qc?lBD;S?hBr|E!DVcS#e>L?VKh$>gqs&uUkDc&8JmI6nxe`D9-GZenFl z$Uu!Qe63s#aP0FH<2Ayg?m;WdoQlY#PpS`sD{Jm?$0fo`WPu^S%f%F2l;nJN1fVB4 zPj2<2TD);z^;BITbNXXE+jp-lx{mo4mkO^lCH;#P_zv@7w>p=!!N12t+C3e2U0ON@ z4}WxZM$bkKl>+Gxq%;BY4a8cjDe9S`gIYHbmuNJ+)7zb1L6Ah+yAD*D|^J64Lyu`n>0N?&&3&8iDW=FW$y)Q~I}<0;%S1ep;=Uye+d zKfEia`0#I1*=qCyGAL}}Lh7G>u_oB=U>LI_ZZh_-vsr%QN~=T*^6A4AaaN`YnEj(& z^4=w>RTVPI`Vu-r;kI`V{j|SmLsr}rAnK`tp54I_BXozKH?ef7!dO)|vd$S_?>R!2s8#Bs>VeAoE*7+xEWUpG41SS7kPJ8bs;P+a@)hznDHN8XbSw zbv%N?rc?aW0#ev8D*LHLN-!0&GK?bHA+VHV}`z%`mftBb+1A-o1-R-fR9uFNVnrl(}56PHO$B ZcMI#^u{@b^Cj$_8y85}Sb4p-r0swmPI#&D$;wCB0;)T z>D|zKhfo4Z&K=$RdG~X^GsgSl{5fNsF*GY{C9HLqtIRpCE3Y-w9#T=TQa~UODy2sX zPaqHyGw@%IoD^JXGumB;K*({v+WOBGtlTZ#Y+at)Iy*ri-f7=b`=Tc$=-T?G)y=z& z3omaz^;8QOQ+YAHaaA~^hlu=o9-nUN)k?)qr{&e7%edJ0p2wwR`osiuGe?ZK%Jlgz zu4XWC%3|jCw(gtPjcUD5wZHd%7wp8(>D`#HBBQ|8gD!zG59YCD zk`U6jcM?Z^o}7MQW*j#&v$~JeXqqwf*_7-0r2AP$^0kjN>dJ_{X7s0px&aq9eqqRC zx#Woh=Fw7{tolzPbZgvuaY5sD*M|DZPp@4-f4p19qBFqpqWa_aFzO(aCx>k*5DEGD z2Wmr$H9y7AN8Vdu({)f)<(vD(O(z~%gCsa>t`s!dF1Ys6^?B-fg%2NxRqI^)rY>P(I{JR^PFY$u6({Ho0}R8|OX zQ$PLsvc5~7_0sENNAf}lk;{)!vCw*>`*l&J7GfLUP3?DP#n4+k^2xW@TW?yE{~GgW z5W6S!-B+YmTm6)_#qOB|LhJn_m$VoO$%6KW%)-b!*V%AVbT4j*DODMp+n2a)&# zB5`OE3=g4hO|hd#r~6YnTrSA9M!vS8ec)v?qJ1>=hQKpmBy_u{z_v3-g(h<6f^|mB zWA3lZgk2rc9U;G(gen5WsE&M{D}@^oxHtmp>C-{cft$Zjo zX*6pNoUF*{0V?cZm|=?C8xW8I|{NvBkZFYw%C*PR3Uo%XbDDTdQ*N0m-g}1pX}26Iwc-*IBBV2NPjWdP;}%Z=62A+0D?26-{_Xp#%G3p_=>H-xb%uY96Eetv63T zI7k1B(JiL}?55Vav&9&?l$Q!|G}gjliySrcDYuNr5-N83c5E(SDub|BWoQl5j<@Gu zHouK|Z_}F5uCMpuq_3Uu>rXGfnzIu!zRRlm6`_&lW2GMxPOog`_GMqC(C$bue5R~% zBmSx1y!_HO!)*?ze>Tnf8DpdyWps&KgmDK?wNx;VDUXR_E?J%ukBJ9g1Et0X-Bq57 zFGT}7-@J$TMBoEDk19_a6UNSVP_rZS?|60n#cSX0SqUU;x!lc-v?4S%simlM&|S@Y z?@#m*W>vh>vrhA>3a$jF{xX(KxlzX1YetOuP(%3uwm|)?dQh1!i3a=ia%j0F9 z4>|6wOyYMUQ)n_=hoXZY`ng6DohCBscS(KtOy~92hXbyyo95gY;5N()a{gC&T^a;V zC{i1EFPu`}j4{bCnOLf%sG&fN5MQU6DmU(Wn>TN)CE}I^L*6PcHXMkPB!Nm->N`J) zIImPzAoG@1?bd_ooAIS`d?9NOjG~|AOg?r=YrN#kwm^D-t#>a-%wM#_GW)Wn=W`<9 zsksO#Q-@~vFm|r$*&5crEH4Gyu)BYKkuhPM^D_;1e}QP>B2$Wljx~kiO4obk;YL!) zCFf>$M*4W7Cs=mdE)G>vETIWk@xTqmd!hk!e=!Vlw^A-{u^l0#oLCnW$cqNf<&RYS zsOwg12oToLS$ikr;u(EQ4EA3j^k1_kM1KD&gX zXcg*{m&yi#XEBUOe>MS51#9%xOeUPdb(kmJ(;xCT1-1rMj#4s9o{AM*&v>qTc}th6 zdpKA zsuDcfUpAV3tB%5<@0vlP#ey~sD_!cf?@1N=abny4lOJci8-ri%M^*4gXg(x)dt0#P zsd7PtdO`Z7!qIE2%Ben40TuSk;fRgK7by92h~0s4ZLiLg0&L^fc+K15vG@E$WHUsO zX)kDQYBNfdygvQj-}7lK;`G^khePAWm_8M@X5{B(gyP*&eUIq(@o(4OA6IF9q1s!I z+P*eJ&o!~tf30p&0`rJiszF~VvWaT{r4NLcNz~VR%1uS|SlKk8=)URe?G|ob`kTXJ ziZhiEzamjBmL1jaM{#;0SteLrl%dAd`P18QPETNi7Dt5_10trY4YB+k1lx21&iAED z?i7)<_9$qH-0J_U@0^?Uw-)8pn<*|W2fMjKN5}j2Tm7d}V$Z_nA6dNgQ##g~)IQ)H zU%gE!A{*Y%8QvrV{j{Qen6oPU=G~!7cEIYhm`Iw#*R7G+1fl^~?=?TR7CzziW_P>Z zSnvPk1-!&H_ty7_&7=~oTI~r!-5P03C(GW4)uSE_K2ec^(o}NphU?zDJu{r>$-W46 z1l-vFZ0`gMfAqF>slHF;F$8iMqNH$7+dFOJeSp9A;=3a_(G3=<^DNxVH|nnsU2D-R z;jtB8EHqJ`vp!|;QmmdhREiM&8hYO`A@L1^a)jrFYgM6kJ+h9Qy0!d)#?`S^MkL*a z&kAQKLxbo{uMwq~Hwk*&VCdU#Uyyb0`|++m{j~eq{%N4Bx%HNCx5xWa@#Sm#sq4no zpWH(@Luv1mU-{>yz(zZd{_;O(;QHHG3M&17eSut)`2Xd3s1>Qh=0_Go@IU3NbG@ij z5-0t?9?@LmB8JFaOW2WI0e&HWtIqX}e3X28}!LdhWDCBYCTwLf=QlNmP)bysG%U zHh)t9nVvn3s?qxc)aiti4z-lmR!f%`_DW&oR*Vexoa5ofxJC_b2&)lGJG{)W0Jdw9%U0jBi&ucM!gKJ};(qp=$I>@rL?_FX>iv(9zH z04=UEp8H@*U-~X^Bhg^F{-PUUEohSf2xi zpWU-$7P)|S-;Qc)1g*}jTa8&_$T%mdt{i4w1HPt?@w<=7h2K~e2pqTv-xZESF$o3z zLM3Gs6VC4n1U|_`?8@XkfkQ9@u)v0d-NDV{c#o5mLM0R= zeR=TK^IBT1SZYnfwn-D$Jq%@_$n@NJa!u-77dLXER2k*`qd*~=|MoY?TvBj{WX^ru z;^fe)+Iqhr8PlP~=@76GLtX`Xhm=2)<-sfmFKJ`wzF>uZ8`lu0+{7x4nZi2F2N*hE zK^9xuo+^g6j7e&Tzv;zUY-#?V3REH_vsNgERKe=wq^ORqvCj zRNHpMT8(=6r3ZT_@G<5Rxq_x$?KsEm+UoqLI4lNO*y@cm|5Tj|_hF22@~u!Sc+8#s zuG@7gw%xx3+hoC%o1u!+mp+GJscgjGtsz}J6r^#CcA?dfRM-LsOIjCW=&}Y#zoeCyg_buU*Nw zy^P=cD0DWR6e_9jyEQt(-TBKZOi$<2(6Q(fg&7g}(B3_NOAsVZvw zS5aJ3)BQ{Dw!O&d)#@*>_Bu7io&-KLH_t2^D;G<$G}m-&N?xgZ$79`>PBm|}Lm6Qw zWba-R=e_y?j%woxFR1h8)OId-l7}0qBHb{omon#LM|yt=DNlz1FFk4Xhxl<6eWvcZ!x>Sdv!^R<`fQkACRch|aK_ zzi?q3IvQ09YnZ+fG}Z@(46K9?iXAk7pXgR%jV4)NMq#;5j+ulO=aCyUaysqML+?Rd z_{MJZ$~?>;qT-27fxp%&i)~)DqIY zlH97aOj>KQ(P;_Q96us@1vo-db-w9Au6W#{r3gjgRg(iK@{-ibTAtlc7fAQDaQK_!YVmRL(pfTj(T-&G1J1oGMZ~~sSJvCffF8Bo#)Ao~u^RD~Vws~6Fpr}O%dU9f z%^S?kMYW^b)-deW6Y&wmn&%!Kt2)l$#!W^nr_drFP0We9?Fc8?$G+&mTaVuK3j|!i zoa4VXjbcLjKEcHnBJ52??%{(*=seE9TndCu|23${lR`u_o%~%~gb;5g_M7kk97puX z2vhhHeWY*+m(22r4WlTl%ZY26VlKcgr=A|c<6?W!ldd&Ba7`azD*HX*PusE{p5OUmzC9*YS4s_-l4`m% zivaS3?D{S~_qLHF4>0P~Ji&Dj!ogxWc}K(r?r!P=4{XOTP|X>_Jp_3Ly~pv+dDHKT zSB<)Ro#hhcTkjfq5OlyM`|`zEU$@>*shi4v?aaBJ%BuOT^zo|SLXDMb$_fDkIkE30 zXI+GPF8tCT9}!nbRsMhJ_O0YOW{!dnDJWXW>b z_~39XdJGJ6k|h=0o{1eoRJVJ!e8CPOd&h>L)WH0|$y9NPfunp>KTJPrpZ_Q`ahTwpf-u`7m5D`DrrBGvzGk-`utS{>3+r@a197;)B^&Dq@<(-J~21d zqZ2|daR%{A{sU|0uCe__q#*Xg;q3t6{_o)R&sR^I`fI*JXRdvb^$xSXL>b;(_4@69 z!O64S$$*IyYw`P;v=F)Ujj2UhD#(Rj~o6#wur2tQbzvB0PY_9+u zHtQ}xY0j5E;Ss17Ji(P@h|`yP2&(pFEh9eu6P)=Y*6st=6~G zkP)p)zzzkKFj3C7KF!I9!+q_)u^(GA#SMVT)>2txbuPS^+!PClPCokwPjdV};mIj@ zth|X%)Z(tyZ&)P*%o^Ap5k57Jz|Q&|&*mqoF$BNS42Tgc0IdQFen~rEse%|UlV}X1$6FD(0 zbvV7k*XLQAXW~J-11*^YNmx(drcgNy!9OF* zI{>&u2*c$+kVnTq&WY6Rf#1QekOsWb6hrX25DUpcQ2oXqYVh&UPgsD;7`fjckp0XD zpWp-s5lGUFf}TZveQo?I9lXY)9Q8nmMONdRe#_@LI@;@F!Ez7}pCdDKO@3>~+tqyO zU#DnZ!O4j}AZDYS{rh9&i=LETB|D)4*dsphXU(*eNZRz!JkbZ^6ep4ZJkTTBB};i? zO=?m4BnKfuPH-S`e8&J@7yX~b9fDP2?_h?JYc=9+TQOMO^2$Q1ej;aAAG@6Z^{0s2zaam> ztoDV0abF^G~=(P;8%g9ep$&aIM93|Aakrl*V;Y60_hCj2gIupHLkHE*HUy zIdyE56>+R=UPloM6YcnZbEz=~4wx|jZCbpvFvXElH4!)bvqhY$t-(GZ_Wk?!J3W8t z0N(Z?Kc5nS+gX42g4w;3CH+eY$Ogy|Yy=@r#L;1l*%X`6%7QzSO24f^PdYa4pJkY$ zC#iq~dah)Eo0t`J!Jl`*BO^BFWGoY~Zi*hdx`|G;gW^{Om(o3b z9$zSPzjB5moR#tdQY2OMm+H%#R7^+}nm?e*()o_F)rRVJ3X|gISk}tg+5iHT$6lum z6*S)eh~Cc_C=hSSfp2TT{glG6-&l6=`@}P&l?f*0e`7u44TX0)Ztx*a+pHS9XY~w1 zcNO0hb-uW+WV+GF=O2qma69T!!FE7?qq3<)2!?yWfeX7 z;0=mwZr`zLCG0VVC^+bs-F+v?*v?-L?>x_l@V*0{544Z`5TI(renwm;Er@1^hfbb^ z2MWBRxxW`Kz^f;#_VSf^)j%2hu3y;yiJkzC8bnl|RJw2VRB*3lV&74r`W$lL*76u( zHbyi}N04Yy0WT6nUkNu{VAf(g#AN}Cp&rMGEm@AT2`6v{D)7zLPuBDe{bmgRKqk+& zFCf*ymsSOqjEba%*tA$+(UwQyC9){JsX)S4I-l{WGLZBie`HD`=R=TkeQJ zN{eir!_*Z3su(;MEhG8c|3aS6TXE#nX$OV^i^jvOPVXNduuJ%RJls$jK|TxQX47If zD*9TLk2Y-iVX`$C$tm|FxZ~kgk99Wbx2W7`)jyzjP6#|MFB3bm4!umI`!)|+A8)QF z8_=rx{$bwyBzrdEb621iZs_gpQ&o(XeC>ufN}X!83^@c99ZOIbVcpz)=;`TMC0m4+ zfBWi6d+c`hUh~_o#WK-E6PcN(IdC_8mJ_~+idnwqtj>tfye#&gSDYPb{+0V=(P{c_uc$^IJOoTN;YOqaF&YE<_t%lA`uuGF< z2)Zl#XQ9A$JF{^;!rjwpr28!m#+`cwtpLG;T$*NT>s29oz3@Cij}z(~pnG-g5ptJ* z&WF4lUDv^0=~zdt<@5V}8?bmLOjLCMr^jmpDq-sTk15OEEm;YH;R1t-;a*e(3p_AG z2hL*{Fa`w5zv1d5I)&Ee6YJ_;;}cNQQ^{Xb}Hr0(i16`24rKCvrdjefy3_W+4A=0)`unmDT+| zL{|J$P&f#$80ieJRFBQK#-1K!>p1_4CH)`kT+0~G`I$k=_b&}J^yUkG@_)l?g$p8P z{}xIAzkkj|bpZVv;YMSl^YJPnDFm1et=H8NUhOZ$|vLlJrNG z9FfP&M~Yy`hKO_niOAcfSfj48M%`eR%lpZV$h`nS9mKD`)ChuNUr%6%v|R!tA(FdK zjZ%&3q;Ar<845&Eb7^vtz3+Nbp1D~5*9pv)+=GaQ-2T0>7f;doX{XOSt}sx{`j^+i z&|SzlAZo5VAMH946&a&&Uwx|K&u(7M0il){>g80K+>(H>IT5 zf@%n^rTOFoIQ$P@Ce(e&%mCo$tc%3GP#|JgIUp5ZSC8M500=H|W2W2=8-}&!h6rO6 zsXf>5lHx(5IKW@8YV-6ZWl`!hm@p2{%kAYrS(hBkK{zyk1nC){_eXEMgFdciOUL~e zmd5{PCCA!`2;^eK1J%@`<4&@HW(@ZQs;L;j={S)=L{T1T zvTZYyn=sKW8LSmO$E$UL?jw~Es8%lyLU%ycIR9JG`aQHi?gBi5vj}};*GR!+^omCz z2Y??Y+5D@r)_eg~10=siPN(UVi#o+W$cYKZYCU*8`F}b7SpV@&WI?>rc=wi`C53{| zv4)?k1}^yCZ~r>M6@GxCCpAfsM(5Wu3^AL>H|ndIJy&Ti--C0#%Y)~Y?jI-3?q+c8 zoZ&fWAAq#@wZbtEL1kDXv6#Fd#sCh;WnNxN1IE(FX+ZBwbB>mrH83zZhikWEI?J@p zX9xTEtJ7Oe{Q)aqln`@zq{xcOLG8VD0jvmV=_SrjGw4k#sKSVVI-TddGoS7l@9IHku?LM zdyM$hf3vK-9I)K`0Lh~l--Lvrk5q506ypxGzzA-ls)MxG1)g(mfI^3XAqncYN8p~K zvzvmlv8$ipJm7C2scQlgKOv8vK`n=X-d9(hv>iYD1-sJ$U6Uz?QpF~2LW z2VVerZ|Ws7i&9kkc+VLyeyd%AnLk3Cc@@H1k~-{f-2ktG;=g^a+Qjsn`oZ+82cN)A zz3@V^l}@P3(}qgJ-(mart~|(r?_CNfM8*8QOV*OFvD>=a<*~VwbprWW*mIy9A&ve0 z)x0^Pk#%^#96c~g8RK6-bszY3e%6J#XzM}!@cyauO&Zb~f?{@jVmAvsE0y?pKXa`5 zs%CE7*|$i@E+6hSK1z{R!$(V&zy#ieoc;uR1k3kq)Fabu?d zl)wV{sAH>Ih%>?c>XOMwql1c-{~y3hmV*!?TPwc!=Zq-^Oq1#8_gsfy9@M}BjdF28 zhP1Dkn67rjY|_gA0e8-g+L!lY{oHeU+xgUZEdD@ngtrO+E_T1C^(PLgV_Nm|{_rDQ z<_dI%LjQ6pu|Y#d=MO;jxb7sX;1QiFfOKLIKWf4?XE-0rS_WPxeQ5E&ze}6V!;2)6 zCEi>e@kPFL3*yOVq~N}XqGn`4?+Csc7lmHxcGJH1r#u84;+aIDrtkYMA`o$b%urX6Ja{>Hl3lbkIpNBO@j|{LY82UT7=Xvme?M0T)DrOq z;46Jg06aK>Gzq`wJQy-&|y&deI0%wW8(jHULxETS)k-Rdx&B}K@MlLe(7d7e`~VjCEjGHB3QK?q z&!sWVGzT|VjRG{j-?_9sg6n9zI^b$^$b*f4dI9dd#^-Z9X+ods11#+EznS5Gm*KBq zEY1EK6^0(L{VyWxtB5D>A^!s`m1Gu;mh5`V?nt~>a}Yo#KhMlMsY|kreMB6acyXg) zU9s!pQ@Y&{tk^~!>g02=6lV2t&pdCLbVGLaj1tPa008x-ulaS%qNXJoL zFYT&Eeo=gJPa@<3Be+K7c^d)VQz4J}T~et#GyW zO3u}W!TIk8*}S6Vn}ZoeLuni_Wyf;e5XL3@YjmsFb64kF2^D3*P<+C9_8B3beYh}7 zWMQ9_#)5pyd}QlZZ?hhQa1MC9^u)myq@Y~Q-Ogs)P91rXR-gU5j8&P7)UqFn zoB!Ae`8OR1wrM;6p@&BE9NR(l>WzYx*E~G1{w4Jl)w|jXMnt>l@8A4XGq|0%)$2m< z^)HdV@qblOag8~HXOiQZd<(+^m(N)wH}_iIt~HbX+gezn9jx!lq>niYzW9Kk!ms}e zY}N5c4U4)k(j0@c&wZP}iprP@9hxZ0CBJ$VmnkB;#{xzpqGx`6b4g5SjdV>ZZchBa znHPJL@z83~3lCB*^nGnNkG%3p2m`L&K-b#j%qc`@PDorAbv(WFtmVbA^{b0yy)3fF zlZIySP5Y}CVuXuY&%*{N%;VC323`M8;oygvXSc0O_q{^XMV{^kv!5}KuF>V!^YIeB z@!#>OrTVe8?BlOECX{XdNGJ1ZAeboFmmP_C-S2m0I234yRLyJ*#^26&btAv25X}u& zqVF5?^H=F2C_Isq**JVh%E#gv zS?A>z6SDIyJcgz&B<4Kzn)=_wY=ldtdyn5;G`pP$ZWQ6vbhoRM_BHYBg{Ay|cBK7I7e*f@`;$GMl*7Kfhb!yzeRUovf;S73d=r^5od#^92 z=MPVn_*Cg?XqeeO4@AE+sysaOJhRzAd`y?X?*nC`-q$MlCUd&)&G zC|lnYB6Db5`nySn@CI9Tigr6$&>3SGD+E+_A#wn`fOZGFe1g9K`-q<>D!Cr+dZaee z-Cgu_o@Wjgc(RD;Ro0=N3(Sjx*13a>SP1=LT)V|wXocIjKX9ZEn*`MJytB2quC0`P z%B3G1`PSddaUa=b(9zhhB`#O10?<&0*NB;MsRKkcII*$at-HT%DqP{yas%iZmB za~9L&0f)lsQY{$pzM{H%9zR{38wC#a7pE~Kn7~OITt@D#e2NS9BLxN${>M9SBViAh zUt(((|3&SB96a$W1DWxx1E>tN4ves6{y$O1>GJ`9S3eM;pq`=_LnLsCdeXXSsrcrQ z@ol}BT@cRoSYgR9GU`i@1pVTo^4}nV0%B?8_$x}W${J%HUJbTvY;u)@XB72 zRv83D`3|1X$~nyoh(cBhYOeFkZj8O_8?!o@7>~;KYf%y_x{CGN_V`d(sLIL9!_)ND z)u)747E*s?8ZMj2Ggz}8-H%3InQvPp2-=f;WL-68)x_t0NZr%@^pTj8C}(a=0483L1J^Te0>cnI$QAVT4zgxBr!kYnZdwG<4XnuO!w7Z9L%7{k#FTl2gt`vhvl z%a`^dI+}Xy6TI7>UHAs}WO=Hlg#X6I3!Ckq(Ht_Qm%qSGO*hi&HV2{ZW48Ar^qagl zS5|(a1o+ZEc8BsK@8}VA^Pcycv}Vj&|6-qH?4~quY}1=|Z~aYx?XLLvqtE`Qjwv}J zjEJUf)IymA|bpdoIxp<|Pe4HD4)-WP2YB4bOTarmsZN#@VjU3WWZG9z313Coo zk(3-P1HN_XL)EyWt^d3Kr zOYmy)PbKq6cvbeprtL>OH>zGcRl|+iO-0J0tJF7@hS4<&%?7FhTzYUiuIk++Lz^D{ z=qXs_s2dySVCd?tw$1K)Q|+zFKYb=|g_}rrv}H`EO?ywoQhi{EpAQi*X*5Wy;+KUy zC3=QAb}h`wd6Yp@7pd=qot&7^Ko2|(H#yBnO0qE|;O-``OPI;6~7T!N&xU<2Y zVzLx3lvH0|&q4aZj_VcLrV6{<8&*fvck6gSxzf;lmVsPrfcoy;7v$mc=PYMk$l2MK zl5QBW)p32FNe8!je|NFH0yApIiSw@EhY{lKuJH3`+QAW%e1gW~UD-4#rjh-)7)st- zCgLWi*hFr@Kx2+hrk>%a?%5!+ZuWDhx8xq()$kpCt{QeOW$oCF@1(TjlfSZs8c(d{ z^{$5`P5vH<2?YH7K{V%LxHRDBzffcgTT5h1alkYSI13buy_%QC4g05Ia_d#d4<(ak z)0Os2LCFNSwkT^UZY!?7NOftZDa;N1X1?#Rxm#H{9W(c3T|FHa7YMhq^1n1~x*q$bAa$xVj)pkR>WY^R{B*iD`g+cOFT4v+Yu$C0Iqt@ghQ zd#WAx7(vkbCDX_u07(8l&(}UG7F*yxV zE;EpeQLJGh^fwL!Z3-jdGmQj)B_>)lg`P_$GwaXM1h3%zO@97X0(y6SMUEs`U`@I_ z50#*~ui8qwm(FRr3S5$A%^B*snjyC{92^x>a@;htQNQ^Y5tD#Yjx6JmPF%Ntg1goa z5HrlCzSeU<-4vgFxw2&Txh;MbxTmVbWhY{f=fJBUJ`Cs3I_q{S7|?FVf$jd%mgp+G z@u6B0X)w3|_J8em)Mu>B{*P;z=2_adNY~6ypNPV#*%co?Bm-wCK}8+cwZAxTC$U+! zeLdhz>Wb3J9y*X=NM04-h~eBGT)w|}Dp%h}!+!V8?!09ZOV?6<2cYDIyoZtvfukQy zGxkw+7jNauG43MDRwBMk;$I)n6A95DcfS+I*USy=KJVlJ-ST$W@N)RZpQJo(BCD9`*_9YnHvyhN`BK z_Br^pIilloOIOYK^#F-D!K-&g<<>n-1qS6mfBh;#G6iTVGfjmi(CdB7pLsG}aq02d zix-4bHDwH5MSQJ!?Mol9tMCVyL0n{SubTgvGcE)i1004e-4B*8GBBK%Y+#u~>8Tm# z>MgMPHBpDkQt7+CM!Y+Rk2s0l{)`Ew^4CFSM%fx-V`D=kC>~V!MgXs05$}s$qUNF{ zhd@A67Wx=D!ev29ND$gQOH6;*5R%V7>1CNU?d&hh_gtdn+0aen>46u(oXj(ugOSG; za9VxG7q2_Jz))0@1qqgW-xEPDr3n()h*FVps{k-9>> zmq5F;?NqdK|045#t@~T|vXrOj2x3IN^&j&A(HoXz}|uqq)}J3+1bA#)X1l9xE^9Q@gtsD*jlCOxXy6y#JM|JDA{xG znyE&d;#F?-bOm5CPC;3Oa4)E~&c2hv2%yv1q;;s#RWbHfb)N3NiYtZ}#IpoUKgy=( z)S`^pA{>Ps9UW!zOxmNmYN#F&IRFj85Zj~0&E+1b%C z?7Ka;%eNe5H!hFM=GR`Ea)3J@dH)<&zMVH`Q-%%bso}veN&AI+ZW-$rAO7Xs_nwlQ zk2H&?;j8ly^6Ru+Tu-j6tag>9gztfVj3noyBKhm5+%aaT?kAAOPwLXIi&D2+!0{YJ zU#6U49O|Q>WGoqYsLpZkxSfUz*L?kEjnj=isPT)P7|xOE+(?YI)?CswQ&mfmm#q8J z`OfO@;k)@;8W&+d4LrhsZR_^l+p!+J72fIdiZ}%PLkG+!Q{YJf=V+{%MsXX-2fgXe z-Nj{^1U%gDi)2AJS?;M{V^%mhoUG7h+4;y_EF=IoqLdc4*57Mw1Tp9BH1_sLL;1zc z%}xD-)r`6Q1Sl!QzhSQ(-S<%)$AG_l+H3f<8j)(&OMTHYMh9{{iNt_VN4f2mN6HfaN!%eBifS~Z4z)DN&fSu&S z5of}MO@aj+lv#l>U(h4$oDop#ozARvTG}HEX$lHn;2S)voTl?qi&r0ArfnQ4G%B^< zby7BUp86Iqs;NWXa@#}A`Y=t}hmO8B|ALg16o2juhFxxz%u~B zf?egZ1X#38Qzo|MFQ-9GoKoLz5#o1lUE2*k0t!2H%CtQABEhguVzv!XsYW0AmgL`d<*_jIIl z`**#=MpTwxKkB5IC(8M7f?w;RWCO@R$3KdzGS`=+T>HfJQqI)vYnD@a`#tvGVMT#D7vSi@gcQKVfv6D0QZ$`(7-1As z{3v&KiV2v>wleSX5-*Ru%eJYvbvN^K<(F(?eIrllMQb;!As^VHA9_(?5HZ?5t}UnPFGtWcyt;urg`l{L9p{K#;90PS#nMaeLPoGk&xc zMrYXFQN?{$;GKiMdt*J)qX!jxpf#yg`8dy(F~A(%=dwc^;T!zw%keg!aq8@dIL z;ZdpC)AHcd-9@)`s_*JsojrA5bF0zPB}gsUd_jRJ4mi5SZy(P2k!F4EUDomJOMS(H z6+}v9bBsMQ;PDS61fOIKq|SUvHY(PwEtZgd?clh^SOTtfP7owlihn(v&aQCpyYwiT zX1K#WaO)k>m;J(zj3Hq26|M@!(>r4I`*c>t%=v#C^H@X} z^}}=;P{(iL4zqNWfKny!)haGE?NkGBR6)pxO3^@D%(0$DhA=k*D|Q2ct-|UDrXRy~ zTacCZdVL;QwLN-g(!1X{D8fqYM{jq{buln7%#4*l;Ko6Bd?mT-%0p?tw7 z@8Uq`v2>O}-Q^@f4@I@y6^z~IqPzzgoQ=NoB&mGW*2 zcqE^852~eys`t-5G7_ay_umPQ8|9z?$9pj&5M4p$=2-M(3=hWdEop?yqLb7md-&z) ziHoq0`&C-h^*DWhxrSm2`Fd?sP=e}1S1A2yz8k&A9eh6MSwH2K~b7l}}<>@&b|Bf+6|Hs@}Gfh+*3Pjm_F zA8s4rlfZmaVr9p~>_ZO^(T2LY^$sj*{&?$6@u%8aRMdryJ)uRdV}3MdzB0*k23&qFTnnwC z4g(pXa&wW5J@%1?xa9lq`ek-;j>`BP%o-0z_8Akdi^8~K&F*i7Ebh!U`zF|QeJj2jwD9s1 zGgF_vvvYfqNgZDd?psoM=@A*hGv0Rj(_L?Hu-v90JpR=+E;E-eXx?g1v|B}7c123# z_L}27zJpyW-yh!w`cFBBz?J@@+zbOHb2kbSNE4>|_RBOsxvXZ&d+QDEsM+Sq%5E+w8LzpRZRBWr z&xX+abp&Cgyb@LCRhGC$(G$Kxno>IPjZ~2|D#BnFb!tyd#J=WZ6w;3A9tnca< zlNLIjoRJX|w{D$B{$B2fhcN1-7Z|(u@Kbn?8#@IcPalytrR9#GE_Y>KH5R7^e&o&@ zX3PZFR{{fU1PQ%sRSkASfk@3kqY$Xu!gRyt8eMRC0pG=9a)|UaX*PH6xw`F<<%D{& z*7egjoshQ7E4Z>n4EN7f7m{I@UA?0e@utQ=2)Ab!-zrjh1`IpO3e&P=4g*~Z>QD@3+bE{Cpx|>OY zrp}lZ2}mPc6mjko%22F|$ep9^@nq>jRA7%+F)80qM~U7T=*0*2HyQHZh#DQNfo7Y| zzzd{=!5q6E`=34bD}UK+{U&a&1cb>_cRu@x?|7jQC$H+)r)Zi5oB<2? zDdGE=y@u*^`?`FStT%&4i>@9WOL>Aut%ZVCS}&Fj(|kr7D5iwB(@U%x;&*@fvDcpC zjj_5~cFU1F*Y4ii?&nV&8?HwPXgFf8Mf9iM%6ao^$rvTAfx|9-iql@(cB=t>1HQ&f zPI}judQ)z+1Ito%lK(K_Phw%c{&3Cjkp6kilrJUm@QnlTakxWCN>5GKVjIx)c)HBp z_RIB=Cgxw4k0uEq>!ZaF4GdT|o&{9~1~_EeYo6F$(o!niI{1Jw33k zsHlL9=5L17fxmJ+Y|%7M%7}S?W4Hm>Xuc#<<;g5@&~AmV*?-c<_%ep$cylYQg!ofD*7ugZGIxZKp!$!;nQs0wr~G{WeE_3dIrDs zxtW3@i|H;;w;sa@-5%?CxMBUE&~j;h#h{Iawe<;OBPChgbNW3g==cSo>_7)T(oa*??tHTeaY1(*_^;fDU_|eqb}BMA?tf|BKWTsSWO{*d ze-{ch5&kf`H5il-d)k=dSWbDNYprWj3Ad6@I70pF7JqA2IQ4by`*GdD=xkakrnJW| z1TD3m?Al#3yueFQ(nUMWH2XM;fL9M;jecRA`;6#vyIR6Id%vF|Z=73t{RhmETJPoa z=GlOP5>_K#SNd4oS35Q1!A3N*Q91WBNiX^8%&eWTC#W|$BBdKIXm-yZ^#N)2a?i+38 zk4Fj{<(CGZRlK>>I%oW#+4I9!f!?-NVVhDv1m{YTH9yc!RY$>^63@FI1wuQEUtyrU zF0iyHo1=8)R|E%qprJjrMBtJ`d$vtv>9q#A;0)~q)!Z3Uxzhk(#&3_}Aem)iHv@e=4 zbybJiw7gV$mZ@xSO+KF4jkk{{{rN*^@ZDgmAh56VqDc%I)>Kt z?&bM{Zox-9V?e~Bh358NXD_k8{X}vZuK*b8ZMau3^O%LPp}JR)!mjzn;7n@W1S<%DSxUp+(X9Q*2+1dMdO7_A=s)=k{Z(H=MWFx4HM?w;yJQ`MlgTgd26i%fl2v(EL^9SkU=j^})ITg2zr5cy48 zn7}hVcV4%;9zDoS0Rb}Fd^(OtQv^DVgiFKOo;sg9T@`qVcgLvbHUBgXkUr<3Jy`%{ ziH!j~$=_kqt?%pU3EOTYzy~y22d?dj(v`R8%2pSpTp)Iders&VV4@Z9QJ+nUs!-3N z-hu@;_&EZt-!Zg3&fa(AJkr!Va_H81Q8kkk!4qEsNs`^w+?ba8iLV&aJ| z26Q)GbJuiy9(Q1VWFl}k@%N6CA5c zZ=GKzxA;;XXvDA{o{!7OB;DfWw5cD>7h?LRC?6|edPSPplg~#Uab}vFHn)cZl`af+ zwmBTdGmMBnq^?ED!FHpT^5r5aiFCtGcskxc&kDo=7pQ_ckPQ*()23eIr_GvY%+*#DSpupf%hSEO z#BO|&WWW1W^Z!!}z5BlQWcmDq1I1DW#V^mGW*#`L3(z^&8wc=VcOKq|cd;DybLx0> zcmJ|k+dsVk$8Qdlj}#{fvIpsfeY-jj>hTpxBETysL$}@-=O4jZ=yVXEDF2~{GbSea z*6j(o4$0F=!H$rupDAuC6%RVwlu`Kyj~?OydgJZd}@Bf04A zyq}iTATr*M-knd$X(ayH9Qvp5%SEL5nup`z?-m0E+R*YkI^h9~G~+Ipg?ZuC45tQP z>+YY70n%!I6mjmeqvll<7=e1lM8KpDTp^N!%7;krCmjnAI$#?ZeXN0m0SOAQr3D< zSxq0pgk!6`aHYg+tQ?fjaDIBB622N7m4{}%bcxP zp!WM>0VMd^Gf`^ws?-R7H{9$amqB0k)Gv9y)Eeqi13(&+`}Y)-fU+mklbMJBKam zDuG+_>Xz5GUfwNa!C1LI@mH3epj*p{XgvQMv-9#3wZ^ORElX!lBdX(g>t=k~eIMLO zkTC-;wl5&1*2$J<^$$p12a`!DZ zsRb6;Xa#VLDFDfnMR2KJH6k|72$ciZY_cNLOhaZK;Fdwq{lp*VVIIQb_2X}6f_V4d zJ#|!k&O8*?r*2?~Z}zhFxuN=IhpYw!Gnv6ah)T$_wu|etOx4v}WG@-vO8#=vngJHL zAgsEWJHByx2eI;sitgSTQxH}Q>u)ZGeJ`XRv#{qOw#OTlCud7Nrfwvm~rTd4yZKwRW=OR z&=?f+F z*Ttli$3lNl`mer!ZC=1!%TBWWkY|7wJ3Op3>og*(mNjqYnK88E(qI$90>*=d-@ku9 z9E*$U7^*X{U!aKWH3Gex*Nhd)bq_p1zhch{NaWz}oa5K5Fu_9ZU%t$KM=<8FreXT| z_U5Gib90hd$A0>1Pcx5qG|v*Zek)wa?|W$}DEN$zt2N!Js;pG`OrYj4h0r);c=BND zXwKHPtxZ3F=FuOf`>R-g?h(cPH+|>Dv+%MF3l9$u0?g6cIVmEQaF$R#BhTl}JaLvp z*E0yw5^D}hAq`FGUf;h?$c5MgtG0E8gdxPvNSos|FgLh|-b zpO`)U!bb5dX8Z2F4{Rp{5U|9Cg~__a-xp)oDchI- zo3aB^MYsb4Fsyd@$?$_bZcfiViFq|pH@=Or4k@Y!aK2vX|KX#(X#Z|daX&7%`H5-D z$ws1gg2!qFJ`)B0&RD{-lA9{;YY`LtP89cgnmgbT!Xl$FcJd$c&8>X1H=2A}ddJ|7 zn9$B(=t^E^IK^)?d4b&CG~CFOkehNn<^M3xBAtvR?(OEJ)N!`nwXw6qhTM{BvO-wT zx_0?1o~LV8JyogKRkFK4Ul1=aQpX(qSFVL(M@eN+l)EpmTI<^4J(23s^5CSZw)QFL z#IL_fv{YfbH>Q5=>-1tQ#2|}L=zsrhfzT-GH=LX;Kf=H~hJ;>lj4I=M=5{lMp-}H- zmCzI(Vs)Ks2b6dy9&IyNqX)4d-wejFi&9e|9UUFWNe~D*pHyw`vp^u;d0ySaf4jg3 zJuQqoXwOr4@q*HlI6K#yQpS^k!Ctuv*m^__X?8FVy9WW8eCm3iX-LBAb>VY#LT*wX zCw<&YPJ9@U1qMx%&uc|rSu{%ZeZAo`)iyW-s)Vrh6!;16UZPcTYrZ5*KIFj)CtY(% z)A_X3g&(R_XDBE>$qCV$r(4qq9T<3cPGy>?F4vJplGy5hDkn1)zM@GhjaQH+yNQfLaP1 z^%&_j-5UGF4IOJ1y>`-$Sw#kE1ibH#6xZJyn}UrQ2~M1SbvX>1us`Z3TL4^P^ZK8u zZU;@W8vzHMKuEY12Vb%Q$l0*zGj*MBi3D~s4^ewOXe*#m1`1q&$!x;yXX67QUs)u; zvK7HBQQx}2${t{D#sUCgH8}&pkWm2vACjylaoBm}Y##=^w$ z%;NqRb|{pZ6n)OUi~37__Br`zQ@m=3RM&qbM;;Rr4sRIygr`IaqlI_S86`(sG0zhq z?nA)ba=5kE!ql(!pW?+svCIg}+vT+jKg;sB9D!L7SQ&bb1g02tslzG+B6uToGB8?( z*IZwF^=IQjF?}#Ps7o=dxb&PZNJ~F0OF>$GF-T)*Oa$t)-g~3}3x`kPL@^vMvl9~Q z_;mlsH~y+lzx9p`0%_^Bi$Gr^&aQz=0w8r^;R3lcS#6V)MGNu=$E?PGACzciaWwbF zCB|)b=^Gfl@ISiBTBn(gV4$j4d(CKw^XhVQCY;67+#B~$H zrqvIt7M*W(T4p1Av;u#xdUFY!ke3*M%RScnK3fRlxYcgwVqzZf8NOtLSvPABLtSow z{Oz}0q)7+k$%U6`Ovn(8PWM(Jt?X6Hyd8$8=!q0Ps8l zQrSms^Kj^w2Y{Lch>t)Vxm}8Y@9eCOlZ(r8I}vT#D~dZ1YhaqHXQjvUXy{-Q*#IT< zV->QULi6s$os4;5(7pnv;LRy^P4ixNiKq0ptIsQaHEC{0aSTWjwMJk8^ixwa>I`x7 zECkU+2(fotpgwAV0c}d420>i;nrPhYg-zbHuz6hrx<`UH*Y$S#M>X8^-&iWPJCdAH zIdTbp&;vLTG#CBLXe@-=%4!`wO@dNya;vC5N-*`@KPYLvUBa)r!nbBrRu!%{Os2!Q z=f4&NOP`e)cLC%<+D8owsD34)QATuNA9V151$I*+wbCLAv{4%3gS5P948AFUBV^wgg5cm}=r-toHDUglnba0I_7lRJ%<-jMO-pFW z3%4`%zVj~QWB`t4FGir%;~bKcEIb7bOwg>3Jl8tK~C zE5A$1tkV(%y)iI0FfQgqlcp=O_kp6)#&OxG*3OnlHq8_#%wn>&Io$TH8^3 z`=jZhcN02XZ_=n*gD;N`EWGbb(=B%)@(B!<+b1HnSGs27c48OXu#Z-Nq$`+eKHw@3 zeYpj#7iadVqHc>7MEacPS=6kc;JnfLK8+5w#3cwcUvV>Xn`(s=5XbTMID9KDqd*9Z zSpg4E*84{KCJ5x?Goj)F`}czm+a9tkPOAe$<=|%ZJmsH`mM#|Vj)`0R;YzpMn{}|5 zaFP5w;2|mN=VN1I-RJ;#!wtXG88Gc@XR!geP<2I6cYy-tD8T_X>d1S#{)~dZVnK;$ z+`Rb#7qk@jD(b;Iuk|k0GAH*BGp`tA6^w2GbT`2fK?;IAXWm-`-aqNr>(5UMBq^cbE;m-wS10iHrB^mj1>IF5bRbr;8tf-T z65cl$2u>k#1RnsyN}(HH>NaDJxezG>XX#Q+MDvMXCA9xL*nQJgocMrH9^$Jf9Ki@fk^ zEoQRrLq=``762_?`Oc_Q|8#Sxe#%Y_gWsU-u1>A}Eqkb9)Sr00fM?z}eu)0jdckDz zUw`7yU+W+~Ai>DL-C#yWW6IOHPUlZw9~Q)GzG&Xn!23>1!yeSns-LYE|Au0Eb6|78 zLC5XhQV%rbFgz?W#VP<4&eRa0QKUMG7tVxw1bOp~Mfq~^i`G1G&e4Q4v-prXw7=<$ z4LyCPdsB5P5AkWSgJ;eDvnBhk^Wb+Np1EiDLO<<_+8R7MFm5(r*?)R$%=Vh}%;ENOyq=wjZl-kjR1RtCt&TjEiG4=$UtPdC71CZxT{c zqlKN4ot34F1#ysl8cq!j2RX<74PkoEP5Se{K!2xK3=Y=gKX_!A0J;voF@##}NHH zF7LC&H#H3v|EL|?_t)G)!EH7mi)g8+W*Z5Eqs}xuwiQi~C4y(UE~vAKt~11$+RaW} zT)I8^AUZ5!d9_|!K|>{4A&dWs|COeak{=XtlqfX+%nSM+=r{kDYE8?`y!()ZanoTc zRrTl#amXSlA#`;W-4atISdEH8Sx!3E8>-sUKcFxN4q(&YSSFZS+q6k(H-Wj4h&LlZ zLk{)3O~fNuv9{j=qLN6s_bD?Yy-e=#vj=TA6s{KdF1wSy-1s%i&=e06;A*xaUf?s^ zjW?85KDjWW36v)MF1szY(vF9qj4_(Z5J>_(zs`LrgIxhj$CE@*DK}im1Sh-=lpkUz z&I4QAhh5MnU$8tyZxT1bt$0vXhXs^SUdFPa5H5?_)3p3T&hpIoV}@DM3yTuB*BZ=_BDiv!gi5fji*BQO=Q( z%pIl#=L}@;u+8(#=0~`q;phGQ0>Ph93m4hyO3(2gKYosbp~PA_ct_%q%3TaBVnOT( zzf`In#WGUH+%BUW%|(WfuixBHAI>z|{PEI%@UaqC(*+j-%Eg{A_geUm%(DD?b8!aV)0j9Qf_neR+AwYS89yYJwR(ObWN(vOJJD*q_(=BNJEsHjiba z-{t~muE8}9cL1|1{BStQ&dD8sZ}oBW*!K=%&wFkW*Sj9rMrX}XCG%hB9}anGU!~8i za?JsVO|FE9{h9nfCJaHcHz5{@u1qV|j^xB@cBE_S=KnyQk1tJp2AL9{SNNPT($NBFS{I!Th`B0sn$% zNNDc_(MizeC&zLg*UH`{VG-o$)u>~eZ~Fd#|E6KQXOXNJv}pB?yw^Eis(t`4(og6^}MDcn+910 zWz^-Ro8*FJgu!LP$Wn~hz{=ytUn3&aKLS#Jf>8W?d~BeK1rr1E1EUGSxVOpiYBvub z7ao61SNfCXQlLAiK~ddvXb{at^hC=X=v)GvJ4h2eYsp8lWgAS1Mpd9MUc4Wku+!-M z6Ciz<*c|!&VVuOXQim?!HP}IjVt98o(UoaZhKiu%&jvpNbjwP=SnCOvx2!>Kq1jk7aLJ&z3= z$Z?PK(9YR!5=ym?2u__(9#2o{*-ELR@O*y#qFm_=d-d+c(WfB#4~8FJg74b<`wu(X z-DSA0h@Xj-z4e{FsjR9p=?Xjul^LWYZ(eE1=A>9af2ow~6#$o(O%0A^KAd*npCcW6 zu|OW^QcpogTwToBIL#*15(RIVHN~iH?4~m1No&JU}!+6BQku`4t^ASzncR zSJ~_oP|lJ29uqUh2#&A-XJ8qx+CsxVm&pxX!`C|aGOht%SN6~P-4bGg6Th%yL!;UB zJFXFrk?Jom%DRU?nJoZoWx2lQ`yhu5L!!!C^!LWHOI2?R66tPfX{j};lLxv6Ps?>UQ3SZKHV5%IYNc^W}U>KrcJB9D5ZznMRO zJ$;nY@L5z@xlE2v3=h?l7TElAG!8bt#)y`UtGMLW-R@!8Sxv}Zu6ndnmjB-5ib_(P zD#}7fYA0ATE1Q;a5F}tdLrSyrW0fM@YUVm}R*y6LE zWDUe4H#Pp9|6W&jM(*%H%q#^izB2>v2tK|q=7H5~R@Z!q ztU{pU63YS;VIA%J*r}$wukO!4f6(SAD=kF#hT>X$Uhho^4GT54Hhvu*9*#@Kai5!; zTh$3;c6RnDhxsG0?Z-aIde;suYGSO3F#MZ^5&!w~VYB)JG#aET>&oKXzuy9W=tYwf z>&dY`*bQE#^bzKXYHMVByQ0dW*ObkY$yyTX;{$<+o@%$Nb1k&@YF0dD_kL~E8S#5) z==Gy4g+LJD=rnW_*1GaXOLQ0m2Do!wdqXu9o?64=QO zw#q!nMZ;>}fGB)kX&3y-RITTwk* zPSW6hLuV^qAt9kS8#pyJb)hZO#)l!z<4*;|6BozF=><(0#?2(gE!;icYgMlE+2DJ6 zWcI3BreqHad0{lVm`1_x0&=$GhTy_*9UWbjAuM|b=QO|v{gcl**r+S~o#mkd^6X&3 z(0Y&Na|5LO6|dSI1S?^9PX!h597`W&uW_0#ExAeV)f1wFHgQ=mV|243#Pc& zq;dGcHSQ*Rqobo^zI&qm4BfL|ryztSHJ^cPKlVo(l4xJ`$jd9rFj$Xp%~Hdu=&ZDx z7s?Z~jn3Kjw#+1`xT9Lx4_#k@)^P4TQ1V}r?BNRw=@ol@Eq=H->VLNwk4uUpD`QD&)*jgC$%nHzbj zB1!geO3en6e@waOl|4dekXJWVaycRL^B<6tlQS|-6T1f~@f1m!TTzbo3jzJ(q=Xf6 zA|iO4@gI$pZGZpm>mM9c$goz;Iu&KKLleY?^~eRO`_(>L#SL+018A5w&;_`7e% z{E00}n%|P^iW^NG$XWitU#iF?&3G6(1Mj{3F1)g8Y*`J@2>;pU_rWvPSXtfk`@prJ zs7<%K8hz$l(_dfrSjdu&Sqwi_C|kovtP{?+Lp0`YIF=jwI9-S};>l0#-0#Q)exR4N zl%mgJ`H7j@k_m{1v7G{82sCa-AHM2cFik~LT<*QWi)RT5Kb!6Q%|C>n|Iq#}CRwzU zcn=E;L){igO?|!$ms|04VAExsF>C8S!`Mo`*!*%5@2QW*-$jJ z!6LSZRwu;_Wbv2pg=K6zK{iVe7pYjjen@nxTVSv$tQTHJuybme6Lorgtyd4 zr23^p=C93fHD2nr@FMK1t+%UB$X$;?H5)~Xu~PZ+M_;X7tI=hU=-~;sbg1R=`V-Qq zl;jWFS8f?Nb<-lVqu*-f97&@N-@4g0VA1;)FhO|OuGYMI2<>3RHuG!h2pz$gPb^PGU8JJ(2qNJIdex;?V zDr#%HZ*tMs*OygYt;S|0%C2Uyy|a^-o6DLnGNbvmEZ635vgb`?|HhbbtI**$wTrj? z2x?9?dEfyuy^L=w+q1m9{7*MwZZY@GB@J1+u+hEU9!q~=P#s$*ys((2AxJBjd0i;z zy0VX^OHNL7m}9D~_cgH$ zdD;}9IUCI5n03={_xMu i&Af$)@C@C&R18qLUMkS3hz90LY^8RPq&y%<6_m-$_?7@^`}7Xc({gS_+ow36ZaO>P_;M*AoK|U0+@#V zwLv}JbvDTz=;eJKT{s_@#$&*rY*W+x77V;_aB$dPmsDW5&6oR{ybH9(9`f8XKi{1Z zmyy98(B4l2%m`1hV@bsfO~li{>niPqXmVxm?4?;# z7XtUY>?{Pg|HU~6y8AFCq*J!eFW^6}u%&Fk7W9jW!+ruYHa_)=*NhhdG}XO*dst6y z)I&9mHnn3ltA79VfP9vOC^-`VWA z;E!uYD#N5f8Ki+r<}a@C)OWo4iMskHm=@VM%caCX#q#o3e(#^91I@qZW`BGqab8t< z$Xbg+Vnqmjg}L$U&ovQlh;Z5M0?Q}my-pA0ezvG$cqwxQoUe($U(8ZpFv%39tWkex zJ$}WS_cG{XgQeeIYHk}vq16nF%d?Layk*U?Ef1`?W*QtlKCor1_lu~TwI-oF(nhv4 z2IVM4?&U9;%~lSR_1k!E<{tnSiaosCEmC~3qty#=*)tGY$g8Q5zyv)@J5UJs%hb~= zyP5^|y>V{Qi<7XQQ?tU;uUwZ_OakU!asKwao~Q+81k00X^j=9w7o{yXI|QQPj@Ph- z>FGo;t4U27UuXZbbXOIzqod=42M;oT+%w!8>)C^8YtQWR(11{b_3u4q28NyJP!&aT zT-rhnpt@Fr<^n+|((U_VvO9n1>%f?*?Qk4<^6{DF4goGI>hh9;t)deHb8~y#*gyEm zp~wzPD&!NBB0swoMS|v_pcyx&$QdJ#SyrH%)rWM2}n*E+Y^VVl(TUXng=7vT_TfQ~FJ?Kp;j4Nq(fc03BTqeS9UEZq!AvLJ zgj!sRB5jjV^l}_)PAAL4@j3MqeNPZm(D{$u5mrj+zPo3+3vj9iq7ggFKaeuEXBsrQ zC3cG@At)aj6HJ!vdl&t(L{^A0>Af(HpC#?xdTl)< z*P1F50@BTWB|!8M?sCZK!9y^=GBYd7H-bR&TJIIzwJS4~-yi;(sMuIBuvmtm`|09Z zPO`-XAf$|{DTh8vwYZa_*U}#!&0*$5&3P%KD1W& zw!|7(>P!i*H+=b;DT(*<@oRj1{NbzS#v76MxdX388c^+#Q1=_>4693{4v#j_;s;F^ zqy9G6N#YY?{aiSGVu{(Z+~8adHvtq~xI1Z8Aa9l;>2iNuxg`A0%6d~$L! zU(ztyel7heclY}=@P)|n?vTG=qm_D)X^Z=ndxgcGE06P58+rM8i4e7)bIN%H zTC;Ss5?|kGrM(h>9~#}UcpJF88j&1tH41bX`C4(^kv*Fk24V)eMIYU@m6tHhtirE| zliMQE-voO83Owbpf4(1;vxuJwN?O=OoAO<;aI94Q9@ALPbKpYUb^;^RvjSlcN*8G0 z-D>TfnNdc{^42Fk?z$)xpc`crGYH&iMknk=Ss(rL za9gbZQhB~CbaS1fp==?NgNI!M6JZ1V2DX)Mglw4V)rW~PlA8%+cY#D>4A8)VVvm6Vi> zzGx8FGJ_+vLHaXKbV+sndw^$&saRbZQSM2=%X=q5bLG)aA(C0^_2fMlti*DC8^^AE zk}n#5ki^i*o7tjrw@3QiF>7^iz6bD&Toi`O2#;qR_uwTIx6bbm*Z)5K$v~A8-8|e? zHN|vGz`$_Z%8G-$1|P8wjKL-49WI_wy?)9|;47HX7go;7#K@SNmuKYoXq=rrEiE4)=WW4y0#O^ zRN5$ClfI;lu~@h}-9xv|#?5V(JSCX#1)*nRqS?PpIXyjF8-36YK#xkc?ixs~EN{0> zIwoC}0gPKWLinGhFWLfXutv`9v`r2Qa=?lfTIWYcFS0yb=l4;5Pvk*avVZQFgvGf% z*jE#uah*PNH>L)$r2t%!II7sdeKPiqzz?Q#yLhLdHT_rd@8b4yTYB3NE?KP_A0on! zbVskTHuv*&ffH6@4g7)KnI(NajO#Gnb||(1OPv@A^ym$2{>HJn4J#m44tk$rAJ{gB zY=aIoS64bFrZAH)G2Bqm-;ylnl)U~01q|R?scmS8ii&!LQVn62)BUshlEIAY*TUcL z(#{b#N0p0PTR1IClmm*tQ2eLA3Z!ty;`G)J!wGSd4w*p=4F2xP6&|(35u^L22SggteQI{md{uINPPLe){l9-L z%FN=}qPp5u)YLwCE(on-d76%*Pq@QKXI10lm{E4?OOEp8i;5M#EdboG<@)Q{ zYS#e6PIzSO;{k-73SD4T*%8Iy%u#1y8q+!aRuFirfg)B)YV_BGy$OBwQHh= zjvU6;d&z`W%~*}3P$wmQz!kAJ7l_zL0dvlAPBjHizy#}aZUMmZHB0D7o<&=BQ*z%KrG@l&h0)DF zF);7hgC#%iT%Ud)-6OGefgOK(dyNO0 zy_9h7zN^N-jDF_#+{|Ln^1UVSz7GZk_YoMZsHpU=Ds53}B3N4f_)vcqje&t72E&au z6}D%^KHsye)=NqFR#8!54B0tzSFmOKWW>~@H|*fzB9@YX)1)1)Y7skD^kW(hx^61= zmPu1hoD1%9%1(|?Q!CV=uuI{9uj$TNg8R>3zp`#`GIbY`OnW=RyGjI=dlf~&FykJrThnhFKaP%$48EhimP|^{&04AhBO)SBzo_f!Q5hJ>o(Yc( z4@*c%DTz*iPEDdNc@AyxTO&k3>`2Xw(qYR|^k(LOn1+6#b^-c>q@i71T{)`llHL(2 z!PE@%M8By$#bui&Qb#m`Mxl%!^2d;%n)FMgwI(eQ>eal&htMEToQ^E(spDch^Jt_u zeY|&Xnm+5!oQBGLRIazv;K7DZjT)w?_%()dh|RObU?z<(f}6`-%rxYTNd)_if@7=y zItuY!LWDMY9Dv5jSX4db@+1o~;yzv)&Y+wJO4iXZ7;K;%*Mienfur>}F%)nWX`%oA!XMDm#^fIb7Yfope?iPLT@W zWkCK6bep?&`&MuF)TyBg`eUZA&C}(2Z7I2|pX$f^_jG$epp-J}hk1-2#NH@eW)Y4^ z7Hn^C=N2^FFd83w#bh&0XJ1!4-zkm_-`YGmu=er^Vg%BzQ5OrKWO`pRK}1Ftj6guw zVq&5}%a@N&OY8jNf{ugZNt2$ul+*(RfaWLAthT#E=uqn)%r_bDoLydBEp2Sv*8d(U z*Bh8`^1yg95~r-K-BW7N?uMK)o2sx&QGt(5OvIH&K5F~$;TF^QJx_JI!tlZFGu^rS zUVmr2=tpu%3Cp{8@00}Oq1TMy7R#tsyW%rWNJ#Ma_kZ;0k+7&F9x)APq2}4IN(%6; zgv9*>`rhBn<#r1~<;TNYYa7xmP#9P#HEXS~(dm583f+^dG&(-cX6<&j#x9u&)#e8H zietf`(6)Pc&#ea`AQ3F^dF};f=JWg3Gu5)gCub)sXv_#HzuT*E$*I!ZuSwO_m2`Bw z|5gnRe-f{Pdk0cMVXzxdyge4?4YN&EJK*bAgW2Xa+bwrsXR+O{B!%V67m;Ta6w?Nv zm-`BNbzJg=fV&EaZ3y^!-x&$FwPgmG#Ng_eutB3@`-aQS`*keRL(lD34+(=S9KkKn z+0~WQ*eGC8$HO1@Dkvg1TUT9M+}!*Pkx{nP#Pz>po*Q7~$?a3?tIV;RsEBHma@A9z z>2vvEOLTYCL#idP6OjVLN&s;;gE>kLWufSZG2p-Po=FELT;B{qQ}Iy+l4 z5H`iGyE#@thc+M#O>}3$_C_n7q2Y@g)XzB2^lsW;-u9L3CNSglFL3C6r4aaK(Wbk4Pl@Mi&57r@Rnnk6Ue@m))zS{|9){QUY|Ayrk?e1i74 zIEts`97^`~_ARZg80zZkoF-xR&d#EvlwfOcPDRfP^P8rGG!Hdy`V%=_MAR!Mlw9~= z-=H7^Q^em!Wp0t2d4dC`tsd%${1OH<>rTFFtSeXQRHn9|$N4Il3>|FJLLyi2`1iNe zzkmN`F6|wg@H#s?gDeVZ#8*{yb!AP>&$9P&bzq)?4S^B0n`-ey84~bZ$1mq3u51ofeRn`;ML6Xn(fuHs*sOfP&@BMZh%661Rdl6vm+#^4jmq z7tH;A5T6;{^ElsI31Mlzjea2w)_H5XoAolAf8FS?QXTgk*VVN7~-L)Dj6fSoO9v2PQ>8e-FFszD{Q-bvLq#yc_i66&8k0 zGy)lx*N9j&tQDMfF!HqD=t1TI=QlS8>fHnJxQ#Of56_F1b#-Z=b2xZ)25&)n53r2bP_Y3f*ym%Wf#faM(i5LFU}A#%5uw2* z@UTHJ%?;Pi1pfRk7S{KK1j&p2IY}w0mtf6q0s;b=3B=}6r6uyV4qVB^%HpE1t_>wg zEJ<`s%+lJL=t8rX>Ik+Q?Uo6~b0HzBUvgc)*bj`sP{&QB5&6~Cm5PeWp~Ihs{AyqY zX8;G3PfmN&F*CF>tDyU*FhVop`F;ODGPaR<0BY*V*kDYuth_w4Hd7{8gvratjy;(ea!$z~URU=FNaT+@e5ZWLv~Cq# z&JLF2+Ca~54_eJ8zgckQLZ^_ysqav z%&M+f!pjQ%jsA8ksM%q}b{svBl8nUE4s0bsIFdivnmUF*LL3|DJ$Fo=Y_ycy^Q z^$+l0Twi+c+2~#spPrt6{~^u`W-$6*0!oo_ZM(fksEt{w5!nScZF>g?gMSAvJK|tU zDk{IXMslvWwi(9kJWJf584YF|m>&?{D2=1FxL%LL_Ygxv!`m7b3^69 zl@*m<=>nCN93s~QWIjO!q&PTxDUj7qNP{o;9=YDgOCr+K+Xm5;sX*fl!ueKO*Vfjv zI*v2mE@M(@b+T!&qDOO5s`oWw9YsB-%TM(P3;+&*J#4P6D9GaH`{`~kP|ZAZ)U*g+Nb}Fs=E!kBIWe1ZEv9hXm z_tVFLk^^+f9Qb;T_;aS`*D?y(vtC`V2@LEUbCeya0+*r2UzZW?emMgBtzjCI^fsRB z^5SBAFvixs*r0>@o}W*z8u%KNy0CE#;-EQg4Gn!GBN1I)%JcK{NibEErzpQK@9LKq z2&5Mt*G)}<$k!Ca2av|`kwdEkF#fJVNhxdVQcYj~$%{AL+iGU41vE=RsVeQPE_zb+ z%Ia7{Q_}%?YLWK_nEWFVNI+fucUAjS`NPv&Ffob_@l2YA_vIgeOAmJLMsvFM6_Xa?F?dLs4N7uh(|;C>o5C8()4U%zbwi`?IZ(Lao?l8?Za| z1d(=(RmR(1CA-H@6k*}H3)3!~_RbClmtU7YhW$7L*%D>t`z>fYn~p7ISrpV#<#oF_ zuJ~Rzx74TO+n_FJLSnSgr3K0~Q1ZJRf)F8kHJ2Z+cxxx*_Kv=Q#^SBRB;y_dR%9>f z72}|#k%dL~)yYPdd2|EyR!8h_|E~ z(j-Ft!+-9~^^@V|S4IDbccbr#`_w%`!mj~4JA=ON)z^O?1Y>~aUqIR`v9wNbt}4-R zuM7Ad___dy@@3rheQP*g5Py}QmX^1pt47xeOG?AY1b%1JyVs>qYfse=1T zUUSR!9?7o$z_)@c?hs66f+|5s=Z^~1f2RrcPzDKnBMKC{glELLYFvlh4mXWR#YDmt z6dsX~kgTphwG>=mUo|u^c(0%kxjp@96-g;6>439bxBrd;4LBetDXy=ksPh*8p{x@cS5k9&qu?npwVvF_iSEL;0%|&e z+#arr)ky2gh`17N-j0rZD=QR$+y|ynK#2zcEom53eBnf&oxKC=@ZbB&gQnlePdjo= zm8H3_^?~tyYV4JkqT+j5*)YXvFHzBe=%b0)V~ErXvheh3kVXa`lT%ZYJ3W8@KIxX) z1s%xNUW79@Ip3u3-%1BCRLxjHjV)yCR8n>K6o}(EUEl&N?30S>(VKc!G+vja1sNGQ zczCL^Fk`J%+gKKE+$$DF#@lmm!SvZxSDUc4{izBE2Z!&5iXkNgS&ttd)8XLYfI#N3 z<9&NjlfSzwdJKW!INjM1$?GLgYxe%o)R0L~YC7in57=S(u{E8tCLKoz#+(AM0*vd= zb6ia}JP-Sv_67u9XM;it9)is(E(axvv0nS^6w}N28VR0XWkn%@&_8pt4hPmc zx;mK}qv?j2ukYOwm_CA!oaUYLBdn%@dn@o9@Rn-~F-wKLQ1fPAXuNz5YOHDBypiDa zA{+=6HXQE&zfnz1Dp)#R<6X$yIQbY+BQ6nx>Cq%RkOq2$zr2ek%uQ4~ZN7^Pq+A9) zB*?&k6LLk{S4lJ=%21buWllEJ!5Fo}ucr_G zyk+jBTP6u6dVD*)5MfQ};=Z!+7Fweg16$@vy_-sd#m-oIA@c8-VGzWV)X3bIF> z;O7AiU^^Hlc1D3Muf6sgMYaLUtq^~@%*P_i09*ilM>@!<@QU%+?FK6YO`RP1fPHLe zIu^H+Y`$aw-1=2 z*q1)ojhz-h3AsTpRKZPheh(>v=9N^!I@7c7APY^b%77CLbuxEx@|qelO|}OSFi^^~ z-+h1UP-VNIr>B2(H*M;-#!FBdXlQBCCkD_r$693PcuIIXJ69REX@OGT!XocaX!JjV zo@IIEo|&tB3kgrd%;C+aotW&3Gtv5n1a5Y|hE4ojhUq)$*#fcqw(F_G=Fb_px%J+Z zE&0z!q=`yu)YVDuz@}1uf0u%`dDS#BkbHI#e99Z~nh)yHFVb6A!aw>#@fuSV-? z_4V{*`>4ew{_vONn@Yc4#Th;Ql;ydsJUXLoq^R-LV|t5$+AZw#&}S$->Tu6S)Id*A zPym8)zAb=NBj8AT!IhI^gf|wp!!Lyh!glIzP<8eqWZ`}|@9oK5?4qD)((SvlIE#aV zjout~V@^(wDk)$jY?0)j0mapNwZ*upb}@o$2-T6XacM0Wx(>^$@7@yG%&+3=ZQ~{9 z>gKOCVRSW|vr-d(_gA@%KYf$=Sy7*tKlQj@bFPJKolD?t$8k`f!`SK1pTF*>xM4T7 zz2uF38WB|yRVnl{<#_QwT!4ky1WCZ{4ynBBPcg@frMRwVC8`HvH`n1MQ zMSspwY_b6q_{`3=DoIhEnSq5T+hf0M!c<=P78i5g6;cf^au(Em!1RW9uQ-2w%`(*G zBTA8+JgLW4ea2H(?`h6M9ST|}m!h%p(<+==4vuND1|<@ZbJ|zuxB*$wD%}$;ggywA z42SIQ?REF`M4gw_)WpStS}e5s8$#*Xc8S^p;Uu~*k9Vqr9ei4Ko;cS#TOo&y!1S}R zc986l3L-G2SxdHrRblFpC>pfusW4tLggo)&FIA-iktsL z`rc~c#JdwsYH%wk;Xiw}?G4G(xe!G8D6z8fNk{b$ML4Qt zr{`m6)$My&OsP=&WWaN6TkcGD>_x>EF-Yfe?p(s=`g(gE7-c(_&EJnmsXGs#04|JC z$h{TiRbx*++U4SVCj~;{Ih0;|KLK%pvWF$+4m<4y> zwycQl0Jg}Narta@Dls_1I!o00IrYXNzlqTp%o1g}eXHFyl0E4d4-SvSscUNWEcQJP zeMy{MP}L#2h&?4;*y>7zP-pklx8-z0aNo1CA6x<$rt7BGR~8Q&yk}@S($DKyN=RDL zaJR|B2E-okShc3bei?gIxLi~U?(+VzsUz`UkjWqUJD0~+FZ1g8a@joP?JE_4l)>-= z248QT)X_hijrPS)`p=B8WAe#T?|EVNo%;TUD$My{)mD~lX>mtu8JX&NBs7h+_RfX| zs)#d_aA@A|r=JJpp^oWeEWB|u*-zlaMv5E;+B4^_6BC1%{Amp6(mhV=K*q2qsdX3y zA93!~9a)?drLya?kbTZ3((cABJAv6Koxt`mqM6_srSuale;6BO;HYls&`nL&Z#RueC?- zfAE1}qA-)n^^m8wE#ReD4BNbJl_8e2yX^=poL527rTWRdS)x@x5ra?K^H%TmXUALI zD-8U94x9-cKjH2lm}F!{Ll8#Y5su%T!;kxO-g9qcd;Q+P23Q4z>t66?gRBkfr@ooN z-qJs1->p~&8`LE+Pzaa?^4zU&lxotX?8-@pqP|G(#9@RGq1 zL`|SN`kzN}Xl!*h2tEJD@i-Bq;D0oN4gcTTNq$lKh|OHScat}_nZcc_s1FYn%~%6;b{?IW&W?@1_&#@Y%k=Z9Q=VXs0q8_ z=Oa-pp$Y4;0cpk=;w+H*`isc%jSXW+J2yjWMgz2E8KfGhbY zG;$0+j70o4kjk8M{|Ss)wDb&r>i;&BK)3mcfKj(+X+ORbxI?%MKJT7i0dE=#J(Ol+ zE&u>dz{@^?F=e#rsGt3@R#c3Ykd`#_Y0Qu5uW5Vz!!C-8ETdh$o=OxC=c+HZ5mjJa zH;nvi%28S9W6LECa0T~!x$}5QPP0W<1;^#N!v2Sv8nstjdsxMHvl@DkZ&X4Bb!S$R z3D=1#Wr4;%)mylF4(F?*_0-6;&M2o0niM+i;kKXo@dn?fcwsgn10N1U(J(_}5{$N8 zh>uHwly-x!J^oo89gmq4d!51$6FhfCcAMR=Z`N)@OZN72E5Y5(O+ugh-W%1-&BV+n zq+t4IRdu-`zq;IQWhyfC3rVh2a2@^lWc^8t%PTbL4V~rbqfh){auw5Y`bW1G*Pcqb ztSOFv(haj-AM(=VsOYF8xdtAyB&Fd`U%jOmK#$7E?!_61R? zsUz9$hpS+?PpV-!yh<<+v*p+fgg^b5wJAE=BQ_7M|MX5rb-A>mojCk-s;>FhmWRmq z?&6SG#hQE*j_XR-**nd32oKCxZ8%@J zd3kl`I)J46mkSyTzt_N_sig(sY&}Fzb4_kl%)*;z!3dz0&R|G2EOf6>T(c$PT89j0 zXX4kdHu$sio2?h(kW9(C7+nBp!_Do+aJ;=e>}F`3wXSPSLCDR%um<|+(ls2%!>z?0 z=It62lQKGBf9e0-paZTfc&Rw$eo2w^cAT9sYG7ND2zPH}Czz|o;o4*Gl$e_4{Xm%` zPQa#t!qqhzqW)Y1rd!vueeu(^dt#F3iX&XwP>7N0sxa`h$`zfKE6AhCckHDN-XCl_ zt&VcN8u!`uq`frpym`3ZhhU|VT2GnnoXHiSNSG<|km41#9?1Jw@o&io)xl(fKKVE9 z`3&Wfk5d&@GI?B*S|gxA=6-iMErN&djc6 zsJ7l?jsBWwx2cnZE(ya?$#e!yaMF}AT}-bN{Q!}Jp0B$-(?Y-Y22z}&WDAMGRaq`k zmn3I0^s$&d8^QIG-=|MzQzSh`irqtx&D)tm4v9pI?K-ZSwdw4 zQ793e{c{c<7y8egJha@!S#DriyuyI{OPCChGNym`i4j@)yjU+a3 zHJJ=`V7PZwkh0O4A>3(U=*wlF$+*I`jb<1LAO8=zj@0i=h%nSU%NRvL8gL`0M_1T2 z;i_twa|w$fqe+Dp6qn8Ny4F9#8Z6#b$O&i*U4?`Lt{xo^ zuZvCM8a75^>7CVcmUJVTSIIOBqG{qUphvPRfdb8(3+U>4V_&fmJs^;V2jvrXvkHclSsRjFRn;pU5Rm ztqaI_u5^Z5E^ekGw4kZkm6DQ!2pEeLaPPp!7{6^_d<7x-vochxatZ@cPvAqZ(W9J@ z1Mau>NyH^BS#3{r@D|uO^xy$SM%JiV9nGi(NX(pmq_Jk!>bOUPRiV5PeiKg6(AW?a7j-Jo)+I>q zm%dT?3Fs1Au+d|b*-;`+n$rQ)j>N*wX(a3is;V8Cmk0XCealHYOfCe;;7iCBOF?qt=(Kawu?ecX|;YbH7{|DONi$ zFC!){J1noQH$G{C7?9CnTc%SVR9|`{zE^7QcXP1)ktolS*=gxpwj4Po#n_)LGDSY% z6O^aO-EuNdCfn9pdV70SZ-Lm!Cl(e34n#o7@6u-nVl#H;>$W-~BCmlkQw+QZaFJe2 zRHBOJaLK{VP3SId*;jSmL%$X;aQ^J)fs|FWp^3KD5HbEIzLJeYXfEWtZAVDIqg7zp zyBFp{IXdX?HSlFfsf6QjMwceV7uT2LqKH+L@OC8-dN=uVolIRLNdj}q%h}alSwxR4 z2&lXB^>}{iz``m#HyKZ{aB=Biu=)Wk8gNZjRY(HFj7rj5?_iDfu&$w@ zp@l10qYM%~AxT*90gqFCW1{q8#1D48*5#Ghq>LFuYsrtMnTMz&OZ7gUrTfY0_R%_! z##|

cthEFGN}X9ZBAvl#VK^jHa7kvOyt_#I8=Qsh>J9g=fvdEDu!;4GFiZk3WEt zO$r=UcD-6Q#tT5i6qT3v&CRJ0vsS!}cc*le0md7=j9=BKr=j^XHKoA%pQ<=#Cnq44 zAggaNE+_v6#83b!fBM?8CWF0!{7JGA1~3-Y&W%)0&rFofmy{|%acSbQL}4qC)|XFW z0hYvLY?FVlrk;1eyf_Rl2V7#F) z{K~E{TAbgcQ+l+`s==gF8{$f2BSl?L2b%}|k2=F%Z*a!s^b$Xe8}~^-N=r(K$ng7i zHeI(N?~I*Blgqfhbo_8xzH7}O|GqaSVac?nu=V_+&uj|x#G6ZWoXJK3_^Q>|iL9k6 z2s2l2GvS<#kdGU|+k;bJ{YizxfP7L8$E)ojS8l@e>@SKfk>IbFUXua*Kf4HT4mT^3 z-aIT8R=#zAnm)&1HWv6zRp$EbKYVu8EQby7#yWhL_5B_jE$aN&4@qr42mg8I{Vfa$ z$nMCNW2briVUue;1g!3FEE>9?4_z%JWHG2wbSP&v>^7#5ai{MA zwZ*Rsthd#<0@>$<0&{0iIdyi0#!x)mIQyeTkpl&Jc_c#VuIcXdS4h|2GE-)3ag=8< z(GI^`WZNfWH+PUyUhksmaLUurm+4QQfu~y=Nn9t0LUW~XE1AMfk4yM*@m1meZW&gF zyx|2H?fWP%BhVAL-`2rQES5-flEId+-o8f2{+J2$EV4vEEQ3O=Vm>jx-7$?n8&^97`-}w`ldu#4P+`qi2-i>m{Q3Y!AbhN^+UR= z*e4ilC1atvfUbavK5z1g_C!QZ?ib7{R0YGV)@&-2#*WdfrJ7@`hrR( zJ?fJ}D!^SCb8l&3L7QAH3o00^IdgyYo3X#83+k8;se7|9I>KkUVf$_ zz%#4q?OI_Xw8EFQMa+7`%&+Yn9N^KYAkQ*WF+6k?8-V3zeMCz0WfYVM{FIrvu3;r_ ze@*R^+pHd!03C%_#<}vJUotS0$3MH!g9L%&if6qF;jPEj;B+tjj2~|cg?q-mF$3< z3}hR+Pk>4$0jp@PWOlP-I1n92&=Sl7Hm0m6vdl4B;@uCUz`9wPvV zGuIWwb&~S%mVj|b(zGlFUKZ zbJ&tIMXRWw@G?*XH)=S9yu~#MzHuw)q&w%QvZ)G8S|s4ybBw(|;=_LTYnQ|4=X@^M zmunL+j=w6p8HXY6So@AtAn%IojjHI%u{GdpEHy!*(i_e%YTG^K5!tOTfu#0t%@+X$ zjqd}@I}nz5*l9UuEFR4wL%7|b54EFJ)#&Y@GGp@|y>j^NUiNJ}V zwKW`FbO7O*Y!Tp$mrzl`12{#EePQQ8LsPRP;k8AGxxWi8Uo*W7E()q1)0gogdOrd|*Rdg-Ai!2esyrckX#<2x zP)6il?t&@nC(v7rTsd8he_yV4^YW;aG<4|rrP&P0Jp@vAPe)CK*W;|_Id=^+4BTMn zwx0QJ{UU(?`(-XJJ^>2lJK*f%?e%hATh6LD9jA-n_9t|q%a^g+Yd6Gw%VgR{jE0x} zNY-WLOD&5-1%4)p=CPST`Bhg5JZ4m zWOKw-@9)0|nXnAr)ZDL}=YWa+cXt8#^r!wK^p(R%n1;3b6CUu2u?U^7V^>o?EhIWJ zo?xlqnN0VvQ`{sF)!yv}IfvZ9HrUWI`6FG|==yNnAx<}-5K~xzIgpgK*h!lbGySfQ zU51vHfn|CbxE$0fL=1EkSa+^eC_DZ>+SCSGm-$R>Vh5P=F-uK5Yi8k+SoH3<8bero zO%HN0v8+u%hvQ)+jyb(n%g8*~8Ucv#_yO39Lv!A&=suNx7a&SONAt2c#BAN&EU3@!Za$G4&j*F%C`G4*Iu zwjV4E^e>7K$d$UAxI;2smG6p94MR;yYBUKL==p z6e(+#iP~7Ta`1qViJDhaCfU%lG%-{2<~;ehWSlS21Gy0?kN%cc$8X z86`?o*3Q+axfa09w6Ubj=a5({)96(N;!_B>0I$x{8s6Q^O;=Vd`$_Kb#-eIbRRZB7f3ZcOq|r9n^fXuEz5FgAA))M{`M|W!ZL_`YZctfeyt)2{Yu5t=8~^5oSv2(w zuo3IolrW&GHQSUWD(ik=p-tzx9pBk0mg?<4*#{1z&8}3z5(huCrMqm5+6Tv52LFg@ zRW8k|dh;ZX0Pb^}G6F#FL-S&<)^A%BmA%*${tV9O3UoY(G zXu58eigywZXjz9GLc>>v(t_n2NA8G1{?+#~Y@0EgZO!Bv6T<$=E31F^NzSO{F`G2o zsdI2zNxo`f0~EURv)L&{ci+4wBfh)UmELsjQ9#1I8~~q$jN&TGANhj6o5i^jf~kXf z3+a^_Uzxv*i0h5-vg*T=W$>mr+6N_FwK%q->GOyL+~eZyvC)9hN(FVLb)&n?>wz4K ztJ$Ta4dXinDtfP^PaX^(J8po_2iTazlUk_2Q&-^)(0MfLkwr00GCD1;D}Pp7G=juV z!(z4vuJXWBqWp)Q`4iO&PNIt&=?PQL=b*?h&$_lMO1*z4uy_Y1W&){ZuD=( z`#vo*@2EY}UCgZ-m0%1I1g(;HTvG-uO-xHmrxDKRFMRJZS z%fq`8=Z93VT$Ys&Lc$vY+t__Ip*i=w)=8V-O&~@0Gmfgv)4bs!4Fk^>bxs7g-qd5; z@=&^}^jhUtEZ6VV^vVjIO>KdP%g~V%Egda6dv|on!$x6Q16o_gh#mYdm+u?-cR2fF zavkWmU@9yt_4z?wouz#_<-VgCT~`yCtFBZz#i*Q zkQU3o0`x6QSRZQTF|Y1_D(9xGEr*;GB|9l~y^Kqo+V#AQEeqxPjfo>;dN%8CK;zf5 z&u}Xnb-7LRzv`yMnt9&#N4_5`;b5V6)8~Xk?6DdGsQRut_vKLeHBzww{K46_>zGwv z=K5hRUB*7xU{9%fyj0vJAv?YAxNyNE%EDqmhKZI7w=Pr#-_cZbx@QJqzanE%mvks4 zDIEl-Zl zrrLL8)tF#4Dq_uP^Y@3)o4NY>-to3q21tm?qd#BM&@oZeGrs{$BSqBM-{C94Ku1;v zaABhcfp+QTX21F%41PeU_??0(S&(2F%3$d(RXaP1KXaAfq9twfw3YywE-#~Bsj68W zPNhspAvyU#GnkW=g*Mpn+j{?YV3X7|5Wdk7Y2?zU-EC~tF=67CZ-RNmtYhN#-tIvK zq7}nC7##N{+5iOli-M)7FhquFaR?TkWTuMrNMQ2ujP!F98I4Hty!KPQ+r8yDvY;kv z|1g)mR=bb+10!u;yc<}w`=(CJPM(Q&Z^R5kL0Lr_`dej{(*=RzBy}_d+&MTCngBlu z-r+Yc_{_Z3F$5gWAj>MBLFXUWO3zBr)TN%Z$XzJ~A8>yv?yFF-iFl+(H-es9+YO6L>bSbJw!%oG@*oP5`U$!c>?#WE!@Q5a6@8*Zcx%o5~3!%qD)&<;3NICPY@ zFpgEAPnTT#Q|p31>o+R5x`Q+7u1|Z9K(^Er96#~s1QcW(Pcy}6X=rjiPo-cVx7Cj% zc9yF(|D~G#9F9bl?m#Xo2BB-v@z9oPpsVvB{W*fxZyEb+vqh0T)sc5}bc8cb=O6(` zZrB6-J2)^H%*w_Vzmmc4X;}dZ$F$U9driAEfNz2Yq>OF~ejf|8I zNiT%jH1?a2RBijaBbXhMp;Xadl3-U^yg_i^EaxoO&Wax(owLf+QW-X<(XEX>?>D%5|k6IoMG+IhAG z5(fZuT$5ktpt+Jwk_ZcOZMkh&<>TH1Y+_SV!} z5L^8WQrEuU^`H73P5xNG@iv@@PbsJwE{)gLk{L~8yuWifo99F1a{ta^;Bz<^Gt6a0O!J~}$x5}rF$m2qE zV(S^6%5a39NB9aAohfk+QA4>I@vJT!7e7v#Oh|RSy6=zwVm7(ERhvzaH#PC%a0rUR zCEdzmvh4hESA-T{_Gz;UqH1tDMxQC&clPBqAxa{ZrJd6zk}Y0r6TrP9^mFsryX-Ez zCHPJM4|VhKAE?Yr?v*&OeC$<^Twz)<7t1Qa6;Zu$NGx7Npv6dB1jvvN3 z!7mU1>Rc4vIU`$jnSk?ItCHiHm^%bk`YnU~F{(^D5IkF?Ydfzb8on9aTaW4k<-}8sm>IdP_O#Eq!Bulg7K*l?v~VlZmllLc90(#-c29GGGj)~(WGltt;+zx zH$yeryZb#aJ+DW9qolJcO#U~r1x?)y1R4$#y*XJ!b=@exk9+JltT6!+BkMZW36O1S zJWdKEvDlqgRSqzJ(9+s<)FjMDTo;_)4|_bFQk!cb@)Xw1)05og3!a+Kv$_^kk4DU! zwj&mSpKMCztzPgpI-hkL;H@N5RTazGwCJCWi*TPPNejbn;J43_reZl^Pi1c;PN!D8 z?$A#e@!?m_^M5S9>DuG{LJD|ij$*RAAUL@`5~~KOaJ=qZMe!*L(`z98v!?Py>_5UM zh+_(HnJMn)Xr&|xPgk(RTgn+v*bu{Tjy%vfbA)KucYlc%*%bOBkj9ZNV-VpxJ}Rdz z4BjKG@~4R(AS*PID^!4NZZ`sgsZVh|AJ9L2GFSI5UoMqZ3#0aj zxvvpLvM{ABch3_AgFgkjIjwIwXfjW3s+p}u5bT#mMG*e1$xfh>&~4zf2Hvs(nzMzZ z*TR_(5N!QxTe$zai0gZz^TS<824(^jZkMv}MbyD`m_z@J@0p0T1m5PZ<~^5`!Itq3 zwWi0{;>j1v_d8f_Yiu`Z`v`S2ScSCfcT^}5IcZPe%$48P6czpaxQYELNbKxB_44fW zZx4=8K1BOsk}6POcQ6t%KQq3jg2%5^i~W<==&}bqvE3UCl}>#0Dn=^1e~z&zO?Xb& zFpOU=+3<#bLB>cLw~ZcE=Ly8l^}x|TYq9i}l1&@zTbR^!C)Gbwl->YXDPjJn%;Ps}IxYqybEz1Z zx%yR;KnOOqzw%1P3o!HV2jfuNdCmBOfY2;4mCuzXYn4Roj%D;%zaHasLH=`0>#6CD zoS;2hmFuZ)!m2lygF6BP5!--RovGWh2Zpwi$CwKKria1MV5uDAWC$e%7{^-Sc3v|9 z65p|>od9oDezN~Hlm7Lg+OGv-cMtEC8)xzmLlWD@;D+E667qJlSP01Om}*gSBL>_q zFhR9#%YYB+l%-h$Q5|c3lsg6h@)kGKolYGo^i!W3XSw=Rp$Wp}ZUd%J2Q--{n3YEA ztn`X7mu27Ag{M2Mh+p%MS5FS5EtV0T#rOBw=k`kJ^g?^ei% zeF~_`G@-2P0_jPQQE}KR%GSMO^&R->+96rR+m#8kAU~j@{{uBwX5zj;zVV;EJ$!T1 zmpu(pl@it31mx5UWj1xJc;nTt3E$AP-QlEoSdqCIwaI(50}pCAK*GdpHLF6(9>qi$ zWYkYpk;n+COuiA*v7XtQ$Tygz$xTZp{E31yyyf5nSFm6%#bI2b?%GXbjG-<1y`%7M z!7vb;hMAw9$N`OIqiC3D3e>18vyYF(j~h8Uq4+P9e;_h4%Bml<$`&22_oTKoG3&1) zrPnW*M?I4P#)*=|aD&e3mHxkvb4;%KWsmOLUb3|=%sf5@KGl&52VqV%evl`&*!YjE z_qmO(j{|}~@I)(uPRJVoLYqU>*n$#Kv!tqp5hdKtv4f3bJ=)|>9(_b#MxLV?=;BgJ zLW(UVIc(a{oDsWiD06 z=IM0&rD!zEj+xAO|FeNj@X6Zs((WQz9y@G+McgL75LN9nDPw!m1h#E`u_fa4FFIYQ zt{T8B0mEs(%-uyrVOl}A-6K-0Ytw8o@voa49N8Azu2F1l$N8pCC}aeF3Y-tvRaZ5o zou0(k=x5v+HT~P)?mJ8Ee#7p6F>qsJoHlIYb32#vuhYf4%^c-yYcIP;d_vq5l4);j zvS0IPdVu;55rQ0YQXxBR#E~3lpXerZn>vc$x}0%_Bjh>1U^GG_zV)|S@P7HM_7GZ& zN{%x^hx%{Dn-HlH8qi^k!<|c$EHu!tx%02<-L0I;LZ&Gx9Rev&+;B$={i2r9CtYn(&=k2TwJDPb^*!c%;Bw)R>L9_xrGNi4L*S*fErF2bL9>sBh^n=?4Iy%Mzq zRl5UBfcB%xs!um8wM5?To0Eeey2_PYnMl7?on=y@2kRfc?cI8GMC*k3czu;ZWzFyJ zqd~Pxm-#w8p9%gmSNlHqedb&qOmAI4mQPK6^ujae^}W5k7}&POk-lpa+ghXDPpNoF z8eOv__<5f?0~^s#h=|39xY(ZM@xHS@jXQk^BD5f0DMlh1a=fY&KVZqsV;UAWWp4OW zbKaOApiUN`t~qSDf$7t{jx%Wj0BX3O$jSU`Za$Hys;%+g=H}`LL{-kB#3#@9WMt!j zU!Yj?=8q=Y>(?fu9zJODpjRVlV}n!dNL98@mNsn&#+}PDSMHPw+`CI+PT-QHZcLpw zgMwaTrg={~(dc4J|E%cQl%;H}7Hb~=Tn}EM3-wOIF~!L3rpS1M%5-dOFbTv+HF>9| zyE?wV@k3SNP}ZR-%&JqIA#CGYKI@kO)`K`DBeS~Eo(0qgBNTLIu5XzT3h#N(gNd)b ztA6jsjN~t`VI@*n|NgT*rk|fz$U)k?g~6Q9H^_}>B;BVgc^8Q8eaYxIN~wdsI*a6~ zqVvgw%T0CJH61H%P!0Bm1Nm`RX$lXi*KaKz&PWKwrS#mJsD55 z%4tjsqh7C*HoWW4maEUV8U>#*K}=?W8@RF>7TA~-5m6M!HgnV|bK>vc{)OmeT6nE2zOjBh>SS+-;@qY?U$ z1i64HAg%FDt<6Be=}`82EgJeSy-Zm+h=CiXs;H`{wnrO@)SO|s$4AFWoHo1_WXIxy z8GpJ2b7|>lr(RwKah>uV-!;+s!>wL!c_S0o8c)Ld>wP!NKAP%=f&`L>TS{6=6&0DK zUQ#T&Iiq-VIi3|f`BAkIquJTaQNpR&S4fuuh0j0DRmvrav-J4Ij4{G4B>J! zEln2)`UOP84Zq>7jT$t2_Tz=K?{>!x|3EB$u%wHudD)QBhs$a$=+wt2$nwvJ2}=Dy zY)k4e_+1naPg7^!a+Oi1^AK>h(^8ob3To!HQ1<-yiMXLcsB{kkyH5XF4lH7uo9p<7 zUj5=LxLNNdQCveT-B+#F>$BAScML7iN3L=q@%%c?7ji|&Ei z4GgBnTdS9=`&_DS4o(@b>ZB*}JyQWo8%+52P~SZ-&|?%XSy^@rkDhjDa;KS2+;*DU z|2=#2(qZSEYZK5+qjQH+j5~+X-V*mkRk#|S{gc#t_ z!?1w)B^jU$@1Srh+X$${DFi}mlXBjAq6mlh}n$ylAmjK%)R@c2`Z z@|X`tzUQfIUOo{ZIKT84rda^E_662#V__<(8WWKUSG)Au_dc2_3PW$_-YzZHnRd9G zu1PpUQZSK`BB_aM+yP$ zyYT541z_Hj@k5n#luF}7Cqo`DtbM-TA+F%~AjnIiTg%-AZ(uxs^J#9_O{1RxX&ipD z@{YpaK3wMr`<-O~r>sju!E?`UV;%MMVWxj5dS_=wSvM-I3TSgWB@QGG1#$EPKN&4- z+i|b6YiSgX3{{gVZERG3{E;gTKpf;N&_El3am3Fy5yD~Y*8c@$O?Nim!HB-4_RD=0 zHXF)7&zyk66iwjAkO6LHija3>nLoh5Li$+1`6mv>z>Xf#|9yGjXE2z*G-^7|fR`+= zxLr?wIUD9Iw~*}Q`Hx->tpvNSS;4P)%}rSd3^OG$aqFq*SX~m1tIdA_^MZA*-o5&- z>Oin*Ud#qp$SSLUN|`LUKaS_{rSUC0=f`c?hCStejV;-XtRm(}S!d|Y?s;4NDiPOh z11=suj=p)}(kFG+-5<;#`i-97Sgyc3#>K;{w)A&FmD8xP>^1B5XNU}e5Bv~T%pq*E zEYyr;jdT31Q=T=PdT?Y68F6QKZ+mT?91L1XkuQKYA~!(50Sp_^TIGQhuKCwoLNrDY-s5Rd$0(5|2?M!b{A{PWq94Z7WHp3Lb2}n z&l|S)Y`9!kBcUm|o>jgCe0qTHsEiM;`3(5+*0I7SsgQWKFC7{!0<>@EW@bcUYmmdw zMS6KRyJ8d!eSBy~p4%&yM$KNxSj#cHBrpNv#x%0>b;w9P6IfnbH`qm_!#dLT&*6VW zAp7?s5X%G3C7j!4@Uz$5+8elwQUu`q!@6b%`OoJyQue7^7v3>Jf`~$ADP(|-mumR& zf4Us6y6bC$5YV&JI_2}@L?+)+v&08CZb)W*jGLkCe3u?w*jzv<65x*Z4*?NG=wla z!H`^NK8ojQyLeWEBNaRytx?M`o-YlBCv+70Nd@&@QLVkJpD^Fu`2o$Y-{#?*iGI*XTM%(O!!6^iiBQ$6N?3`% z`R1^aHN)h!4|`5FTA z(rVQ$-SZz0v?*KQfm+5Fv4XAZmLvE^BKZ~Zk2lxxXp{0AhQNzm<)Dwv(0Rf$QbrA1 zq9$3RN~Eg7^9__2nOP|RQ?PuUVk0pjUQz1Zs-eVhMnHh{Iy^_L)#r1e@!zAZoVu^L zZuVwwg4#MO7p)^7$F4l@yR5>XPE}pR0;3NfeT1wr$x!j>jW&P58Qlyo8M#LdHDvD|DK^_w3wmj^gPh^ z7vTer@F>t}aJ}|~_nRTN`9($&UT(f0v_X@l<;P~iBPoEo8G~KMVqqb=+hI{qnnr|5 zbFEHP-0@sdE=IyB%D!HKm#|Q}YH2qnW57%Hb8l$?m<|@Wh6;&c*`>ucmJ0HkZ}OMT zk~#aSZ;!AFK!k=fuPe(G~^(kfRD0cj|ZqU{s#6i zL9Mz{KaD)t*jP{9=>MH4 z|GNj{{aAln4-H`24KU6wwgD4(kEr|kwT((L0OFFisI;>zzM@#*XHXDM`d3f7*G{?o)T~?lL$9Xve?Mq}^?!u@AL`CE>h?tpUsw`b9qURm1QIg*AnbR4x>_*#;` zO3{KjY*)=!Acd!|;4f7C_fws5L;N4aX+2%a(OnwgZ7dm(Une$hN=+zSm|kLm}@%r+|KUa<SM21|9q7V2o?W&c=mI_>vI@x zZH*&y+TxF-*5>=BXHRmL4lGtb(ZBmM86pNSh0YDgl~@qyBOgk~BHQ<+`2kNnIFjwU z8D#E*EsEim0j}~Es+X0vjvXFey|pBDqlZa#+o}puHS!1;0`7e{2vwvtQhZ#Te4RRp z_q~s?@n-;5>w5Y5`DnRb%DpV0Bj;N3_rHS!i}{4;=PO)L)x8xvu3+_=iRH97w36%RJ_{w2uBE@jWss9{<5*eIUlmC zWg-E>AuS0kNr#%DVlt|H_+t(2T1)%fd zBW9I5^YVn3YzwP>lih;$7-lj*YZ#y!Sy=!Oh4y24?Kh8}!|Uj$FJx&zQg@ z7+n|CfzJzOlK}FJK4&oo>R>Yb-2FQTiYZEf2g!6csD#x->WKK8LS_2w%Rda{%+>!g z_PIHjL1toN;RChY!Ae#9p~ z!!8W74EG!zGIgh54Ey)F;_;a832KuE+UTHvkY2OWt08vT;U8RNGlEOHRz^Wi*L3CJfePg2@!I55x#zX9|m@dF_zwTKgZE|Efz^#`!9SU>3SB8 zkB{%(2Ey4dUWqg431Yp1 zL~qTdRMp%!3$(m0USbrM`C@GNX?2+;`6XZwLBbWmVKvX3CB}(^^Ra})t6A0fUeh&$ zP-}3@NG&nmLWcbB4gH&nnRM@dGweeqk~d)jvK!hro?`Ck6@?#Tz>iB zA@sQeD*`~r$-E(a^h(BmifS_4;VS9VFX?2leH9cQ6EWKVi-Pcd$7{jxE0c9~E`&jY zGxSa4YoadKphhfMbtK`QZfE3t;E@O2)5)~iDIXqok@gGEa}~t&?Xa;p zg>w6Ui`Y@DN^_jw8Lr{Uyss1hNHbvoYi#Uh?gzl!V&vX&z`D8H003F14@vOEud3g& zIps2o-M?iGz1A_WAjrD9x@iL5DL_YMpzhOBzM+Z&6!GtL0Ui@`NL?Ecbp3*S!E<`v zGSKpSL(FB`JqkdPqy|`Z_}mf_Nh~1E!f&!;V+qlE$Kr+}r7E>laB-b-$mFrj@gmR) zj1hOFjYgi;YaX>IMcE%^|88vwYuZQ5xhQR`$S`tUUQ4o>FztF3ESOpP3?GMXcxSGh z5N4NjjBdGZn2kHKkq}nS8!F~v;wQLt*_xqRu9eu|2v!(p2(WVE5BA5Jp#3voBKj%j z!N$UZ-!dn!x;3_!?la4)$|ffA#I&%CD8E+Au@gx9pyFAt+F+xqun{xA>vD9oH70v2 z-yx2qHlXCi!I^qex%R<_4~Ax-MbUTnTPLLh)4xwRggjDE=yt&tt20e+w1>o7J&_a+ z=}$Sz=~YZ<#c#Lpgb9X?>AGbR!Jq(UD`GKJMQ}F z>1k+ia8mfx@b2Nkh@BV@Q4#eL=juGMS$6;y5U1AXez}KDNJzu+*x>8B?wK0Ib-D$K zj^^V!bw@yhNBQG8F}5Ax%Cv#fM*k$3i+u!X^bGYYfU=V7-2F&nHt;jNxqQ4777^*{ z_7GCG!kM4-lF{K#G^3JLZa7}94~=y3`6#gDa6vg>ClYEGPRcV)f9be07~R|7&*?m< zVr1EYK$_gH7KJXaW!jn2KT~Ta_wL=hQA5QU|KrE8&($h646@AwJW(_7>SBMgSmYCJ zlF}1sOg83B{^A{L48ZgL{Y+X2)E$j)XzNgA%6aoWa3&65m6p>2_&E z_Gf3fM65q!oNi9D&mPqYhoD}}Mp?eo=&9St-mEVTUJU~I5KtkZfvdXi2FQO0rmt8C z-ViG3jpEOa^0Li=oz0%uNBjH1haax5;Q>e(+FNdz#>RQddl>BK;CHMY>8oqq5PSj& zjSRTiA1V}?93`y0+lY5{0ae&lca8Ts#7bKX*WTWc4c6{u)l~k9;UZO?jkuJQ`!oRt z6KG(4J9%cq^~zft^KN`mr+4t(%j--Wvp)b{lngsd`ogPpGl4y@&L+z8@b>M+`PrFq zm(=C`#DyH(9U%Yu!r~e|-P~AjGFYUSnDJPx1>xcSI6u_G2YV{7zVD$Jj%^14$b)X2vIL9nAW zoo2n`x#h!#gkGzh_kcv3B3wjTU4uItlAvyFM`l}yk8%$E%GOc0{Yz|Gd7_2G ze#tKB+(fL#*4|{VY?GASFT)PzSl%GmgXH%7bSNF+`pAnS)O$*LOS!`K&Hhk zH@ul6mi`!J+i}aLGj#!Z3O)kUk*MbbN_dE>^Lp(*sNIs+S0uf)b*}`L5J;+)2{aw+ zik>?xI$?Gb_&!M(wbZ<&CHpYR-;01OySThOzq(>ih1vvL`vbyGsvanJjsxXRxk)^b zgp2a=^K%qSd?AT;pf4^i9!r4-6i^9KQ6!-Bk1$+RW>n7m5z6#6ihFqQ z`uh65LLzc=tBte&O6x)3OO6B=m60J^D4U-2)s>N{Eq5K#$>D8fo(&o=^0eSpDkR4R*_nmb}o>(2V=Th|tLRl7gK@kAU7EcBUsRTq%74PTJbt z&40A8=@?eWcV}c`qGpm~6{eShHxDk0PfQeZcW++etVdNq4$F|WkwJegzyp*n(#$|~ z_?M@7so$t!4g~<3sTfel2sF*k&tfrqv>ZZjTwFpLy5#g1|5&2=_`Unpo}PXPWfjZ( zN)zYloW1>i#%^39r$I&fSI3~N)NCE2`HM7LvIs_pwl}Dtjq^x2wHXob>gsSqSHF)L zR`EW6%|GbYG~#&<1(u0>!t*YUcP5%!H&>lqP z0Z108*RPMf5G|(_pDy>uZS<2Z49nt*LSEZ$nDb9_##=U*i z)KZnk5)UwBAb$cSpXo)_tUdKb-Gb2$^8z`8@#()ZAIOq)2~v>;mjXm{6<8Jmy`5W8 zn2$NEcZ;7^T>^X6Vh*LB0< zu~=AH-vKHi8qzOA6i$-}U3BQ(f+K$fSYQ7`4$TFyN^mT|Do#%9h>D*lWIDzM2mhwK zuEYP)XZ{d!=p2+UkaeefQ4WNi2bU@V)N$eQz;tf=9OG`k0%wC=$3n)mk=|gO;IJ@b zpm30s&ux;vVPv!BeJrp9;fUoz3`OnjTL8wkZ()G|0JjDrI~)sugHZWuJcGYp9li- zW~rg^HIc@rH?1({m5RXU{9eR8Zv#5|hxc{Orc%Tt;Ksth8vPY{lUCKiy#~H#$AXl| z&V;?jdTYxif1C01Mtawe3%e>p12%n1pKQFcZJ6^;KUnC^B$G)zG<<_%Sim?trq90| z#wJQCYPL8Z*EtPJsi6u9U1`*$Y8A<$6|5&t`tqErC$%l(|@4vfNa_}C^nK}F2c(&?p%PvC`DQ#y6+sDCA_OhBKOgkQ= z1kRr?k&!{8QVe^z4CcoZ!#_ktW1SyalM7^M@;8Bsjpo_zbXdg1V}sF03mJ*{TsFD+ z2o==F&%R9@&Y+6Dd!2MoMtyQk&|7t`PxUrmiV6K3%RUyXyA$&N62qMbBeFOcV&c@} zb#g;D^Z(FmLZe7^_0i{~?}9Mytp18DUkajU`?k$${SsRG$ftBe$AnP-`|pT##^O?j zKOI74%QE3Y+9xBGOlzw9*NIRzIgSquIH$(0F;5Ng3VWk9ZBDv zOMNCGe{tiT`*Vfmf8Y&gTt)2%GctT*;T-FQaWJa&cGPeRy1#%GS#pLiBBlYr*O7cW zTb-|+KJLzy9C?~P`jD~y~Lsz6`3S_=A*9#oP@RQvU8>uZ>fBIKq_MIH8ld?Iyo!NVRNo%z+(A6lkoy zh+_IuKF6kRQ+3(!Mk>66E_n4ie{pr2v}s@JRQr6|QI_>o$U7#qwLd;B{!U`!@_xEQ zdWg>{OH4s#ytg(11`1Fa7!lK`c;kb~f%=v8GMD_g;``~YXim#(wSuu|m{3J~FV1rd zKRc^0yOQLj1?e+CW{gTX2t*=?f;|T!9vn{=JFQmh?OT@G7f`Fg#r6oLWs-|b$wj4@ zYXyI@xEr`IG`_>lH;r9BqRk$;qgSg`D3bD9)rwXk{u5+tXG; zp}g__{N_DiLi`4YbJ3Qr4{YLygz&7Soa&XJsVV?l%#Hrh{&P>ci{dSXYKZK{SU1Km zA02li-WJm79d7A^M#p1Kq&sekZ*rj1eIr@*VJ$YINbYK$Kc^|oZ#-4o0M_c+>S6Y} zh2<_0kx^)Ho?xl?Ka+Fnkt9ywXHuSqW_t?HOxjKr?*f>EMq|3I%)f_0@l z!9(HlL)vqrfc9btu`@^N?Kg*I%^K=NZit#KK#AB3qYs$VB8LB7On+5op%>^DkKwE} zZa&GYeS)a3Cw2kuE1XvzNX9P~9T_-$5s`>v0A!u{NA1I~nM zV0o!#6~;)W+w%*z6@?1n_00PjkNf*${zhwJY?}AZdl^inO5l`T;q(A>(&0k|d7R

7?iZW9 zVu3&Xd7WW|F>jd+xYy@kdJWuk&JW=8mqPDbBYY5gmfh1nD(vIhvne)_XnvQxXPfsg zMNnEX_8E=(~_jp8!qP#E6vRD_4>ZP(jR1wGL<#Q3Pu<-Ype+Y?(1++an4;;KLFrY!ohq< ziFS=l<->JqKuC>`H?x3Ljk*)YH2+m=Rd_+cu=Is|Oh(17Fn-BGKGD|C(XGVaWnoFX ze0X5WU9h#Tj^X233j#zGw)BcH{`G`A;mEafE!+yJI*Ud!Sx2?lKj#y}6srH}w)MBv z*CTDtf-EAYYi&vj(+S>qGv~mSq_9*O<^@Z2F)2>e*=qP^Uzq7gWF0`tPA8e5fBat)pV`u@+I@`LXUx zVP=>FS5RwLF1VIqSTlY|;_K*HWj6>btW}m7lf$bCMeKxP(^TpGXXP~Y{Oy{?2`gks zldZ=Rj2844lD>i9tg=|db;?WieL8dLGUeA%_u$)ae@|O4>jnsBoI-SEDUl*h(*T(H z5hmv69357ll+WaVjl$r|`${EE%}~Hm`g$ypyd7XE-1gu_)vYW~@bN!?`^LCCQ9mj6 zzI8ZVNGCi5rN#B>jl?*BW^VKTbw%@K{AwO(k$JpV-(w?Y*erPvv2}Qe!Dc@LgiKEU z9--LVpS)p=3hCxMy%nIUW7q_4qp@FJvDYm3d;zbRn7pmA=$9FxqT(8EX4lfFEMDxB z7IdaD#Mrox6d=xd7K$qqT`FZQr6reoe#mL6%`_H~dPa<&dsiXODlC#Z$4Z+w8m>y{ zICf!lf?zgMXKL0eLglh}H-du-p{1jv5fr45mX>zgUu;oe@(FL6AB&%KM@cg*dN{6T zS6mZ*)eHTa;QY~ANuGaKxv$?_bax)E7qvbK#dT~b_x4fjZ@cv==e~pre6za8eaat% z^x>L1=xrSH^)>AKxUz|R$_L;I5|Sez5Lu@r5%iw{&E6FJlMTn&RDQRWal+jrGiXct z>3=T%itG6Vg4vF;e~8FsmI>PkQrj!POz^5ZY4f)U^S{{J`(5MjkW`Z1{#WtUf@!eY~%=tZL7KAs!?9-in%x%29~RN=vnUTpg|K{q?az zS1H$HeuXr%+44B#TWgB9XEI> zJw7)pcPx@kx6?2ACIO9T9{WeJ;5hNwv$p!>ybLpLlk@}U=xpCRw@q22&KpD(`f!sU z0quh*8Suxa-`OF0}nk4W$P-a()5Tptaqg0P@Sg>PDB zhJY2(i6{({Z)`ezR$V_o=l+?fXZja(2q%u&`BUjIB7aL`_uEY-8e=wHwc;|ntztnU zJr{J*Xvp`$MNGoye0-!RC@60g6na$6w(s_)f62FeiN6*Dekn-7_v~y!as4Rw=Gz|h z?rh>4EX-1no0F5bdx8*O?3`A2v#r?JD9vwuhDPjsW;pLe^@Zl*?eMM-Q%{!Oo1prQcM9SnCHJ(``{=xR;x?r9PX6 zzk_o=Hn3k2E43U>SGqby<8sqdsK_O-?qcSF?EYxR{yBxkW$<*j=#eJh^en**%0d6_ z*OVy0kWr_zoIc~Oo?$)4toebfWE>WaMe+*5hI>=I$PSFdnx-69`son*>xH{L(Ng_Y zy7Bdh2k*p@uE`Sl8_CEg$ITASC_ba@Hh%_w;{VeBRyg~uX}rAH`M!M$L_4mo*p>zM z;#(c8=6=*opc-#4bvNU7%eb;?pC`Rux$yQk+f2xpBIyWZ9X&dJ>>kbICEK7*?A+G#1fCR53H(dZ1}NfRgqx1Frp? zi3wvw=rXki@q)+ttqdn8Cy*e11SE*v;%Hn6&n_TkI>r^KuM&dq-eHx}^2? zX@0jn%BUu&{CapsYPE=mhgYF_6R3Swi0*D@eV0{JxmIFN?I8U~)&VLO%6Orr~*& zC?!jjo)xxr?Zw{IKp|R*HYX2{ENn5LtjJ%Dyx{}`LLVocOdt~#Rb_o{_vLPf0NPIi8rBg10>*iZ08k5shydOnB@nk$0o~B6Ip0OU zI&bFgA7%qYc`$!oR4^WoY$#+O;-TAJkW)LpzWg5PBEQ)fDC(`}{ZeZF`~?A0&%{9h z-6TXpk1sORs-gPc>+3PXiWnMS1|EDkDCbZZb%o@8IF*1Gi%rVnx@yDgkSqdKgf zY&AnaKuj16px9eB~PG%eDgvepQRl~Eb7Is>% z)fhw{g_#>POI3F09TMl&rePT8yw9NTjfZA$`{}at-?o)uj#Y#C?j&2{1uc5kAw5w@ z<(w?(ch!Hf05vV;MwxzmpV$s84qPwiEbcLtF6|AjWDe#lMCWSh_skGH8d|<2 z4qdUEb$CGf$d_um$y%TM(q)Pm;yM(9y6^a6(|lR2yMVARhrzdZmUtc)-idI2AHbkV z*pIhI_N96KHNK-aq$T8!GU#=us?s?z&t}ecIp3|wRbxJjk3MCy!8>JetVdAr~1BP zQunKGLPC;}w7CZ2eLE8F3MkdAZtp)=GxYTOAfr~%tC((71a;bY+qAw6I)gbU@v@^< zcaHU=w8B6wO?5^Mry@x5tsY5Q?QJ4^Nf9-LqtnF9;z@hL)@=x z{bFa!)pjW>{0ovQ`a~L?$q`E>Bk{17f`ey{X|B=c@Auyu{iNgo{lRdl(J9zhph=14 z`?6W~hII-fYo91(=a;&c z%)Yj;PrP5|+n-X+)Xa8mN6c>1aG(Qdcw1t8Jy*A3ra)THv77hLuHwL}LTc`Xe zjb4%s7`fP@-_;;^`YjRm=xg(p&CBjnE%y9#kDU)HrPu}}zdo^Hb)5*VmG&5z3xnRo zS)V?W-F!9qTN!9lvwSdE+P1;lt z%1Z;r=Cg6x4K}~)i0WZej^Dm8FwE5h`gx%1M<3T$Ms}5(sNVtbs9pylMmQl8>~l8b zbdpHtzga4+>g*Pqnbu$ggo7FP0vcKRY-H&tV1;;jbgX@-!t+%ZK&EU7%tV4N+ zZ(wBk)E9g`~2t1lz&|MwJ1xa7-^G zB7aq@2#R(mpN0oV@E4<9HGpjKhjg0@L=?w=UoA4Qr(M7opb9?ie8JjC{+TsV?R%J_ zFn{Om;{Y1(qjaR9!9U@_PU~?O+w)mD%$FLd}kj+mjg1G2B>IX(%NqhwwT$lc9vfUQz zAzCr5Mu)g=i7_i^t2=U#ExrQL_@naWY)gqH(3207%>KEfvvxoUIY_Xl@FNEZ`l|5J za;VJDsCE0ev!lC1j#OseF0mp#a1-R^*ED!^3p%v9hs4ZX0Z3@76MMs^W@d%f-oi(1 zN=n7ctRbDdTEC+BtylQedlC1Nqsuhe^W{Qgh>D>IIw(8geB2Y&LcHlfsPT}?p$Umo zT}owfv2oz%m^X?)?hNIw=J!O|=+2Sa>8i-*QWTgP>zR+HFB@}fbt`NF+5rp$D-)Hm z<*toom)QquK-CnMk4k#>82JKDi2e~`EskXTa*`5>?sS<6iRdx5(uk~ln$V!x`iDYk z!qa#$hVOgfk2L$kUT2ZYvKVf*=(A0R^{}u6y4);qh!VHwl@}>jgr9&$#=IS8Ix}xh zzo{x(>p(j=Jq{~PSX*G>WHvtcw-un;7Jl`4(nI;mDtJkVp z_RG0_G?InnQ#x05^{RV=ko`S*4hlgL?loUT_0B?U_wqnzkUQaRb@@-a1B6tAH%KoB_FeFeM;Z` zflFEaBthY$>z@%bF{N-zZZkGQhMgj#$v`HfDqak&j;#v~^#be&5;Q2WLbZ0OsudHD z@zacnA|){B3+5-hG}4mGAq&YBGAXftNs?1ia<`+^Dp*;JpSo_~`}LVPQLy0%OqTiP z{$U32nQYq9q*$2?S2Iz+7Rw%G^+CKSmFcbByv26Y1jP5>Y^T)m2hIaid%h%>C-9kl zEI#bto0rpsEjYCdd6>R$ttFaI$b2{bDCuDt`YjwQ$fi%;{n_8-=YF~zNJeHOdi>s}0jDh~8RA@C6`%*+DR z;A&DnAC6VH&Nf}@iYAVTaQ{K@P|n$u6&ZEx`MRdND8D$Zsp;2}aSkb4?)Parlq1$D*>O@U0`6%O@L!xpY)iRMhS| zPU_)et5K7e2V82&-UE1XeWn(ze=+JGFhz1`{Xs0zz4s>0=09r{9)Iw9IE0fRq z2y@NM)y{QSt+6Jz00gPM@3q}=!7J9ke!o#|qs|c^Ci>|pkhlNE^j%ObH}#o4L>GPk z)G&N?Kj$U5!~|ccwLD=qj6XsszOIgeKssMxOk$ykzfl$DOWc|eM#P*bFFr5CI4IbD zpVZ@3)4igp*SL8!^s)H7#3463p*Ho%*u^c8mlvGep+jk7oop!mtRe!`KHP3GZ;`KF zs82*wZdl@czA7U*E^sL2SuLW6_6t!K1MQlBuwO<)C0bQVN=p9W;g1N2i95gO(gW8{ z%gIRqu=o#XQ*ANT8n?jtfK~SQr*ewK zJ<Z!@%KJWwX9rkG5C`n;hUGUZ1H;5^!vo4pko19|*|;p7q=JVlL5yx=sC8ltYTI`|-pB>^YSM z6Mz{2Dd=ac`W?%8xCASfbdl(gMtcncCMXOhnCGnXA=wVkr`4LgguD{6NVqK?4jTzOM4# z12LBQ*_$_S4&{{TK5Mk{?+wgUje{z%AW@AAg3e3G<@!$lm?Hd3F1c6^I=SaRRQaM`T?dih$!!j7V_zuvJ-zy5zg$^XICkywWpg)IbuyeL{^ zXyynJxaz0D40FO|Wc5+b5R{hDb98{( z?w-bIWHr3(%eF3xhnp+p|9t}?4C`oRe3#3tz%*{+-O4!*gCQ>LQ5zr7YNR_aytXd0 z+BrLUl6B(>(Uw~Z^O@O&esJH9--?cklU8bL-I-^2 ztZfIewtl(dZAQpE3_xqAZK@Jb?;Wo3A7tALWZ-42YFGpWPc4K|1>r&h@YHmvzZgh- zF4e@`3$8^&m(w3d(7t@0;d;(gB3F571eo-~LpDzY#M~ppz&5D$OMZNqBok1&p41=3 zrc}u64ixJ*#aZ>Qx}YJ;I%zezPt%d2Lo~mnK`pCm{~z?)Gq9{c=G(P5ReaK<@2q+a zIXm9E>;qYG1xSp+@>}m?$mqiEjGVm*vCV@ebv*uCr-$*jZQGS0?P}y+98$lKN1)pI zE~L!Qe9ujemQJp>oq$v_+|R0~I^>Lm#~pFv)DHKkCkO?+^vhR{C(yh1`EkSY@N~)l z`%*;(!5r)RkR^8i-RoL3catnyciU7s2sJoAyarmqtv-l{k@?FOFX&x-M8_N(OjD$UDEe06u;{l@{tjDytIf_-_c;-M#$tYZ`Hr>44WB-$DJW3tdng9; zjGqvk#x^4{JV?GOU^K;6fDlew3Rme03Eva=t9wMvVYTpo7<=omID&6&aIg>p1Pc&? zCJ-dJJ0y_c?(P!YU4{e#!QCxEgS*QR2=4Cgu7eCPv(4}B{r0>2{ju8*Om$aP*VA2n zs!pA%Q}6rUc4`s95q{2HbG~&$Q43?(Jfl zyqgJJG45?zrjC(-D8!MX+3L=zQ}5=@y4bWf9SRo}+iOrpJwp*C5e3HOyt8zOSRKUM zlvGtU;mw$u!+ucRuVB{)OYl4E)GD>X>6FT_^#ZUW^%uiTi7UTZ07#FI2&O0OnpxmY15uWbEMwJj0H57Sy|_3G5>Gc#wBb<-Pyd{a-VM-Q{HwZA_j z!jM6E@OwMo>n{Q)O`H^l!w8i|(@it6WJ|;eK#J75q?Z67q(pBbmiM*(wEqT!_n6tJ^&3LKt9{jI~O8o*TYC4TyW>Y>bmY{L;{gEK*h*wwR{Z|H)w5FYu|5KRA6Co z>vcqUjt4C(Ck9;Bth|C1Fu&ckY%7w17ij=l%)Hm!0b$pElS`Sl(edHs_}(Gr;F6`@ z>tA5%4lhEix$?WBeVW~-5Q#=Y z3861nj7_hABMFqkY~O^n3)orytR73;{MtUD1!5!d0X0ICbU`3LR{zjBCp!(ydG4*PZJjFa6PsoX_4Ti7=|E8>UjRIp9bdU@gD9!!s^ z&mXnJ7>O3JVG22D4d8EyJF7C}1R3>!DSylc7^i>@Im=1)0@`nhpMtv^?k<}SwxQe8 z+&KeL%0R_D(~)wTQi0W`Q|i$|MX}D^QKQXRjJ|g_Mw|5pbB$%hzot=wjq5`+Snck& zI=gN+w&-bm;aFLU*?ArGbC)hDXr#3cMiSS8b3kJ$i?;uJrkUG6BiZoFVF7>V?liqV zsE^x2?frjp{PIH)4bff@`AAneMeTB_D%6hdnhkN_9oeW3d9zc(I_+o~ zP(4-XU0!R>e*2*;6?YjY5sG|GR^E}-Mfiu_CIO2VmSJB~N}N%QlQ>o=@rHX*N7sT~ zT$p>6HVFM!wLv8*&PTG4vV0HrVQ}+~9S%SVLU}phjYQCiA|Mp2{>3dnZP7zq*a6jBf#9-7)K-XsvlcU<@CSmDgF_z{&=%0$(o6IZdM;+LE=e)@iHvlGx( zHwBgH$19(e_*emL18qvhl~Aj)sP(vKwrfYvrR^$_=ZbAA)o1As|8WG&PX-!{$2O-{ zereLiq7a(1Utaqg$X|OREulAloBXzn#OX(>_+ggo8*ycO4T4i^L6_`<4;b;BRStdc zZ-{sHmI|A#C*VM2@$1NUld5}vvXS1mXH`9NPkQ8??(pun+{uGR3dozbl2zLH)7?=k zqh)1xM5fj8X)R@8hAFu^*ATWhUkVDxltsnG5t43^;{Zti>J9ho>HV94(jiRp6@+#w zG3dUr*5qL%B=4_y2#-#-CzS1^*^lOTrueH%_2DT|;XzSN7E2&~VH$nYLxkqhW!t#` zzON1HHnVvFy#{Wo*Igy)d@dB1Ht@~wJ|Oto5$$*TN!Z;pN267dsJw!UtrAQxSD0GT zqo)#QSpkglP4I0vPgWMUu^92G9sVM|=KU<#ILg}Vkyyesws`3~ z8+kV;mmZ=*rd6fk5WK@E+wW`6018owcDsclln&TCL|EF+A`ZmsJaA3@b^cEIn5()U zwADr2S)om@eDailBKtq#G&*3? zYRb!Q5B1x63I6U>a%wtx70JY3GJ5kehVwhG{OZ@jeexEJQJFhL&eEnlkayo2RaZjT z=!LIG)YfffgtPn|_h5ph{1#=N!7T6DGC%$u`Zl!L24b*ZS^D~SIh!GxwXo#mJbTae zuaR393n76w4xOlKiZAkh`0I`>{B#zoXUivF6jyxL+$(73f)_orl{}a5_PR5uO$~v0 z2@Nb_DA*aANt&2xF4IY?kSD)!-UnM&S$)gAOU24<_U#N=p#Dn z?R9OW$IH3C{#GMmK#GY(R)B4y%R1L9uGuC>c8~NG%1MWPb~SlzEg~C(k%I|0SIZBy zJ`T-_oR4SftZ~Wd;@VE-nHVLsth^y*l-sdD#BDJ#_oSu^be5D~;F{f;(km3mIl);k z8tNzRI^66Q{PhxNH6t9X#J65zKywqD%m-vEhkNH1=wx?et3N|3g!Nz@ZUM7C5ps$- z4O#iOp5DuLR>J(*E%I%Z!_RWa%AYKs;Hy7uG6HTd1JoSDTLKT~_z? zc6pfs<_*k{UrHqIFJs&fUU`gU;(WYv$Q+8{piEJXtNd9EMiP4n$Umw@l@sl^F?C)SPP=0FhcXc zU(klLS#J))koI7C*G6%h?&7nv`*r+tY~3!t+lodS@h}9&*}JZVg)X% zR)P9Yx=NOR1vr^R!CRI6<3H6&D@KCbOQL7-#b;7awkHr#y>2rU-Wzj>kp;aHmuP)q zZD-E=4?Bg5yJ)ruTP}u>5Rmf@BLED94vKjxqz74bmr|hJ?IQ%5U8ufrll+aLB@BQX z;N+TuyaJk?x;YNj_F1lXAK!Z*kc!Jd%J48rYr|NSNoxy49f^vGgLSKzF>K3u^Nh^} zxorXAmn0P+@*oKf)0x)R*_i`SBq_qe&#}%n6BRk3ajKr%lXA!?4{Sc(bKSqtbFKo| z$XagVMfHkn6p&89wn#Uk^#L_jlCLvqU-2eYJ5aJVD|p;xu%qp-LKTs zn}G%yT_QmIfrRay>@49`#BoJ!Q%z&7SONuZaPA)1ZHA%aXYA%{c4sm`U;MAaZp0m| zmEA3G{7>{Cr#9`B-tjC2e-@@5ne1`5&5806Uy{lhe;&Na{ZCn+Gu1uWb=#j6o;<#c z3CX0CmakhBxm@^EdVk3H^q;mDZaUoR9+P8eRz=^F46B}JieluD*WNQm{<;g zk*2MsCZ~4Fcx;m5bxZ|^?^@2)LOCrAO27!gO)2Yxih6|p_~~%>FHJ=F1WKpltJ(iN zxo!pGM}q+Z6Hpoq7QcwP*1Os6%ST84??*RluTB82CjL_o)2cl{gDKVf&!abfIG4#E z&g{-d6YM;EeL4ApC_8mH>P+ClWTvn8=4H-;;7{gw4Nj`|Bp_fs1Of4t)U8qIBALUj zafC$T952CuIJ-K^jJO_X|q5y zQ2@nq?)vjz3Uo46^Ib9}?(y$`daJbFZx?i_YDF0+27zKDv_&%u#c7^Y5K*AmNBW?i zzEScYjPim-J=sSZV$6G{`le_;AZ)3!I9_qIVO>1+6ZFlY~A_9foD;^{k>Kt z-y}_Nx6QXcU;WD43C@u$L{k!4IH&xu`G9qQV&>{vVsti&k@JzE>+B(YH3uu#0pdMQ z;oSec)lMG4o6J!1{*u;zkO1=(b#1?;{-Aso&$q=gdU8lI_U;3%rHUnTL8d@=gU>aW zcQg^q%PW%3XlQV-hVy&fl!Joozc}}Uh(YUbGhS$8qU_364tQO$Q)-2FlLi@3gq`Ud zxvaOm%b#pd4Z;|3AnkAu?y5GQD$~JdEw8T*z%e0Bf(D3FvfHZVE#2==k8h&YO7wGR zc1918KA12a$0!K-t5|e_@XK37UWV%R+cnwSHdzG6A?fe9X*-Y8NaLeNWf*lmvkNvYy5m1)Dr7Ztf{76^Ffat@U3BQ| zr(wPgc*yi7bMk;rw+U0-i@i(6{2`&F(}^LUTzrd3&-AzTx)z zYPrfn*K~$#vZN@vjBr6KFu5Ei$$2M85dK15=9#VAj5Mf_q!I*7#3f>Bov#3i4bouQ z@z*^pZL!JjD|wSVHQ9YKDLN^|CJj8#&A^ z({o7s+D6tf>HUI%U+g?XH5qGN>5q2K40G+~iRX4Q6~gls2eulqXeIC8-K&>v{$U;R zv(&D%I|f6Yrg|NsL%puVtaMk41$BCMHjkx;0yaSdNqwr zw{gW%gL14EO;($t)1S%78S@Lw=YGxVkm%%OI*Kd{=NiR+yO@N})(4wcdo2o_@{-nlu0?id*JK2cbGdl6PXZkM;us$|~Xbku57@}+ruhE4dhfZ^u!>x-ddPM14m4!?-gJsFh#df!M=DIhSsGHgVUZIyF zwd&(i&AfmAbEEL>n8yFOk(Q0EQdx*s7!fd~OzY~E>c=#~5w|!9gB~Kyv0d0r9&Lh^ z7t~Ue9tjAJ<(jamS9u~=3zoMeN3MR%7x1hH;pNx0Q|I*T1;;w1gEVTsAU6qrF7?jk zAx-`VF?vVQQ!%@nky(cTj76g@@t?EHIk}-fBeqQ3ub&in|5gZvDKMChXg*|FzDMYJ z6Jer1=r{E+`MTt&PO4`*H9K~!%IjbwJf<`!6Yfg#+tVn| zKZH@OOL#4_wlHMX>Tw2s*lrXIn(ZfW%AAijJbLqCvZJP*sN`$>pH3+TMg{=Mgy{pn zN;C6pTYDSnkml)}ytBJ=#oOCyp@M&Z1mVkO)NJ%G!!TLeAQGtUf|8wG6~C`OeWafv z!o58qlUC%cwmR5-i?OGjjeUfS>@8+x6<8nj$Hs$)n@0ca@6@YFhgoc;@|I(gmlZRb z>9%ElGie1;71K0|WufaT>~+Disd0lnCl2F?nfz;;a=mXg&=J_Qlb`B6zfHL8Ber2! zJ3A6to07~|x<@)a2ZrC7Lr+($ua6I$C{wQ;R5w;Dl5!4-)(8&8)y)YBSCl_{C&nK% zy%E|zKk1shI4` zEMQTdQ!`4&CI6P4vlhii;}cLTj-&GXXp)hokNnW*&HX?GkI7hxQ9~<*`)z*^alhkq zKk{~N%;3-8^H<{x5@bD-MSD0;3=+v4hzx@YiXhtUyjH@Om=g zyy(V{LKD+{rEZGr`aYTaeq;WBj|bYqwCf~1?Y@zNYK!gjY#%?o}%Rq2S-+_q9{#X9L*p1oGCqB)p9o)CKkgoxx^kn=k-K@(AU$ zt-QAP5}bvOex+o;b|;DuRVdGt^bT9vnWXC@G1$o9eJs@j)bh(` z<+Omb0fEJev6oh>?y0~nh6VlKzd(Yz$MqJc%4o(_IhrvDHk=ync|ck6M@8MWZWC#~@*TB(l5xFzfz(;|*&I6$&>n_pt(W*_r~& zdxS>5+|ExpV0yBjVjT`He(pTCBj}I9ZUGLDgVBnRn zQR5Z=^2l|jISC1B>yip!oREJKU+HS9mz|o59_#WP-Hr2;(P0{+1k0zpMkagND}iI4ZA`Y(Wi#988FGn5pO z`>z`Cztx9+vJbpJiKo+%k(al76 zdp%D5I@WXv^cN7{b8<{tj#M?LbP2f

N2@^7e5bX4d8?$|qb23m#m;?gSjxte+WR z9E!MGe)MH#=v^k z{@t7`L{MuuY$_zIq_VJi#?DU!IqL=44H`4dmrY%ycQ(njHPp8c&nj&wi+-}3kse}q zF7;06Q9Xcot1UX5IR>UtE!QX|3e*7B5P^zWrUoIyqT9&#I^>tVH!(JNEpKo*r}!RW zM>IVM1+tpg)2ShyuBxmh4ZPfMRec=YeI?1`qnJ;(k2S^19vW8E3JQg=9>F>HiSC5Q zCvymS=5Wh47=%C9@CNP>9Bk`m7pOEO=iv1=u~*r`S4JWDA8eP;b36QGiNf1J^ilR# zh`(xUy&#d?*iFx=BdeZ*`A5{m84eNFNaNTZo$TH2H6kT($B&@c`u(XDzJMiL{$Ns+ zi3Q&!4U$S=uSB7yD~-sCftJi55@74oYgbxM)KoDw&FvVmbOU4MqbTt7p{8{G4{p?F zw@z1E{PPb}^8o-zZnqi7c!MGiQ~owEZICDK@{$4J6vb{G$;LljC#fG=0-Z`A+~sgy zWRf=fTRcd{rTO8LEZHC<7hyDDdaLUDOeHqzC`NXh7>_M_$iBnW(BJvhq=KQdp=I#9 z$g|esLBZ>1%^yxL8tz2At`HX>_}M3A;&Zdp(e4+qdKZ%?`79?_q_1nl^l+H3%7E4H zuh`(?1m`!L{;ttsT^cBjRJmBKpMe1YX<08dX=f_;j;D=l`WVtyjHy^$U*>g+lF!sp zQH8+as|{JPML6>Y$le=L$tk!UD{F383v&Y_R!`bT>Hqoge35jYNy|#}Y*p2q^K#Tv zd7|z>qW#>;9NIKX6ij&`=57F4wyd&JqXtDA7Jw&gOn?qQ04A+ zW5rq+2S0x+`bzvzt?LE$xthN1F8$46N9JE;^UDHzY>c8VL=dSm*AY8tw(h<)^DWFo z@^|RPK#{Eh&Pk$kKRQIqOH9t>>(5xtG!d5gFv*kjX!GvyFy!084gNT_Vv(B(bk(4x( z32QN0W2Pec*`2IU=@;lxTpqr$48E5>9{U2)8T6NHDbq#vxj6#|v@3pABEZDfev~@O zdnjjZI|3<#d{^b?rD}4GBiG_LiN}-1>}FdDSyRZXgU$L{nm|S^9(Rb<&d%F7qQ?qa zKyerRgBUU+sd-AqdgMTsuls`P%n%%rz{XP0g~Amb)64cg2Tus&6`IarNtN~>2q48V zOXeuF}@UbH2`bR{4OYc^DV(0JWs73w67Bq$MRbs(LP)Z5MeVZeeNOcp{ z-UWOeVf!yrqTD{-eEJo<-)gAy?D33cu=K?Oi%R1V3{PoDnqOq-Y%%(5RJ4;!C@zy+p6*<-1T ziu8s?3Upn$fGOAJeH;pbtGGqz$amCvPZut|dpg9Y_5hlEOV_ZJ-%i`#_3J?0z6yRoA>yUVd&`-M zKTNj`J8njb6N+fvK5a6c{>U(=J7KoxphGVLLZZ2p zpQphmNRB_a<4YhPpSraT6_J*v(KyUy-PzEELNL2U3Z|Ylpx#7I4b6~XxC9Nnsl6FNpwZL&mi_35ke=A2LS3E zat|(PNG7o{CtQBl`82{SBi4A>0~lEQ}fYZik%6*5QXDMm+WPy{1E~rA7C=~zP^%JMvR!ixPi~^ z$p6pi?69k?8Wk9}2iV?*%E{>$m7pk60-vzg`IeE%u=IO1GVt38T+I7IufC}~$~8Xq zLUt=JKT_PKx%SZ=2ZXRu2_V3|%sg(#DF7rn2 zhEn2@sMQ65CcAB^&RKgZ(y$Se#thov2~5k~B9Cm3ge2-5MCN)mynYhx?6&)7+F zs~R;c+9eQzN&EJM>QNZyge_B0AW`AO+%u$?amU64>TCjQm$mxqb?wKGKN#oZ+VWB> zX~}fqW?M=IbA({>MjyW<8O2fLO1rgdbAQXArzux;{&FpfsCVqd^)ZU$lOJH&UR&P= zo)X~&OOGN`K>@Z0!QAQb2p%>zwlPd&-%v~T`&MrWZ(*lI1z8iNUX`s*SeG@kWmTh0 z3w5L3JtVg=!-V~Ib!%a|LF#D%f(6*wsF{Ro`H1$l?>eFe{@uqMWAq0i^(I7GuLVXV zA5R5iC8bh+J1eqfTWwPP;r%n2%WWu#@XG~UfFQmqa<^i>@4kyB>t*a&vYw^?t*ixb z>IqKycR6cILu;BoSW8$Owq-jAgO#v!GtL>TGR}1)O(mOP?P0tU*Jfd{3n_l59dD9& zw{($Op)2DbiXGd(XRAVMNnlrWGu!zGf2Y8^x@?BYMqbt1#HYWb(5(g6^#&$Ka(y`9 z@@zNWnR^=HO*K-*aM@I3=iNO%<*o^ZPy<`0E#(IKjLN9>pXy3ZM*!1k`DyR8fG>|Sswo)JdYS!J_ z4a<(lh?RG9yo#n15tan(PD0{JDKm1o1?GXKzqT;qRW<5Baz`3+O};9W^qH{3ASjJw zCTzE>yJzgLJ>Ls~hb3gfWuM_D3Yz;V>yjnfH}jR zE<~nr>P2(tL`^lV8@Z7PDVJnnSGcRo-zy<^)#sdT`R1rPEr@*Fo}7g%+YyjQJ%sVj z@DR-HMOVOG+_g|yCJLOz>TmD5-Xp$?1dzI!>9#$O)))6Ydb1Q$B1V=veo;Dk{jPTD zkLpHWy*EQuZLo%)$M~pOOm~!5pZujmRrV$aQr95PY-ia={(e)I6rX8z!DSfU*3$`=?M!S@S;G+HHSZYpHIo%f$;y0g^)Yp9rVNl@0 z#jL>JusuBRkUp|4abixlAB%kCK(XZv3_i>$DWI0LC`f^yI_PUXS`l-IhcKSMLT_pP z{0j+$#KLZfR;>|mB9L6XxzDty+y?fkc{?qUmRmJ5Vb08-s=J(LAh~vwp}1qsi4>n! zFf>&F(`39ItbZLk_z~TZtbd2(z{>ge8mAEeotEKo4r0ddnz-|NFe7vZ~i{%PT0hJm;R#=|34fFQGiOJ>~q9d+cyU8Bwt|5$gb|(XH zUbf2V)*QLUZK*O3I$Q3FJvtT{T)lTFfXb8v)<={Nmob2)M7@|&;IG+6;GOHT_j@2x zx~RWIR6R0eQIoL$5KIUg+1UGest-*Q$hyyusJ*s_yo$2W^hsU}-@Ma%X^~-yrIVgL zye`9R+1UIj2=mqbZor;(r<~=;#&q%==`Cyo>d1dk!k)g}&-(b#jJ&q9{=gZV^;{k= z@Mlq7?FVztO%n$8>NWjjd3purd&kkzx7Vwb@!A;C~a5WBk2($pt+y?1qs%~X76}H z<~OyACsF7XJ=Dqam2?g&4@xif5p+<}UZ9PY4xY*;F^r}muVzy3yPfEe@Y@M1NFE-# zk!hZ-zB&YBBINCgHA|8HqVQd+l6!sB$_PXxl!C9VBo8rL9|T+qVAA*{g{oSlKl+EE z;5W3q1l;Q8L5-HN2Tf@P{@`81{S}{} z*uhGhAP9ihr=g<*qLgQe@X~-QfT7~zFFNI3`94$dD*U=3FFzkxjjpH-VKfCa!+#yO zt7c=Qv$CMSfBynR&;X$CFaRGZeXknEU}2Dv5EBCcz|(1zB<8&1XFOXYShcykB z+Y)%up5X4s#bFnCN>Y>UtWFApiVO9mxyrb2z2SbDo;lf7(BVmx0}UxP%d_4#d3na4 zxKq>6F}?>W2sh79`E1WgY_7EV37%h`&RDrq9(?uVZqtlPL>9bRSDS_oG}|Yp|CWG* z9IwU|UE2`X`usW~hS9hjt-U<|wxPmF-{aj0;_HF{rwakVy91~RMW7~uVK7bGaNn2` z|9b&u=E%G}8j59JUFRQoj1jZI1ps`VpasyRRTP#2{ri88zZF5Gt0eE`n+~}^k{rEG z8~-pK9v?#^5<-x!j~GTf0T!jtdU|A#rjvk+_GQT8%E^CK!%4Gp&f@v27HCLx|Ff^r zY2sL|6YX*H0iL0{v!7+W(_&XoJgC_|iug7>Z#?YLsXyjn2kJLlEaYU6*5#YOQ8OMAiPK^Z*{A2sf>;5Tr>k)pcw&l^EU|n>^;r>6GDW7rrCX+(&*m>%tj0ELi9Q z#()2H{9=}h`+1mLJBFZ^WKB~j8 zzR3*kJwNAhy4A|8#&X<{D=A3&%ALO*x6Ju57!y6)Zqe>L&yc6B(bF-eLL;3sTX&an zH}3xvvT&v5vQsGFt$&XeCjr55uWjf2z~~%ntFDIsBP3Zgk8TnrhUQPvjQfTtH}^D; z&;gBiW&C&74(g<|Vvfo!74=CTl=|-X&w-BO|2%X;+C|k#U;m%SLl`@j)_*?1|LZ4{ z?f)Zwc<<6W$H|cWznkBGLM3ClPV@h~-2eRfMIccS_updozlRF1pZza!{Qn>S_x;@h zofr)G*Ky_%bFTO6*Y>)f6&YzjG#rxl4f(w7Y_$BJ?^+wDA>T>JcaMhAQN6`lFk?Fz z7Bz#YBLI4wu+UJXwZ0=i8NnMv4z-K(^S{=03uUuuC#>DFApK@n~;2ErfL|Sbn%4fLKb=pP}eo>HtbJv2+LUW@AH@5Xr24x ztt#A$HC#(+aY=cv_lpGiq%?L<{X$50^A&Xt1|}Pb_Q$L9pLl%s_WRG8-Xay&&?BxXT^azOfYBdDzH}G8*gqi?xg8d%dbDn&HY0wvl&PyqZ8yfp#$^88p<6w|nmihJSI$Oxg(Zgn~>m;pzjbg#<# zqBm#)#_XL9$(rCVhd1}yjDK$taDN>4koek=uT`VM#|fC5 zxF?lJO%<~0= zN>4i zvt=7pdt&PGk}}YZvgPT@br%wsN4m1NTMhXJ1a!-H6*T?87qfzQ(Nz=uDld3uU3^@x zt|1NZ;USOR)cu{fa|`4ejuVF1$LOxkK9dC)P1MwN`s#IVhXgcWtDr*5@Q7{Xd`(Cg?3mkBVT$AO6PE9(^=A;-i4h5KRoD31x+{f!f}+6v>kw8BeFUz#L63s6p)4s|66kN{fjhpQiFkqvJ=*P|vKe)b&u= zvp&fS#_`QidR|ZvYQEyt80Ld#6qgw;)|+`WMogyys&1WthSciaVs^Xn}|RF=u<6Rw|Wb$bD6s z3l3iw-DjW@DHwFz*OXT-8p`@*|3SKy*Xl+P3i07fPtbAc6^ z7{p<w$9!|VsQL7L2L=WJp40VW^I2&Rdonuxx+4MU)6>lF zPhG3^a!d>^kik`Wmt>Gy#|@EPrMKwwd(5L1;cl822bD+k2`BQ)C^0#NECt}`;KSifptX~Di%>S>dsdPUz@}1VZSBx`Ta6iFLc+I0vj9GadAb2_ zmq-Pz3>9ey04WnzKSx`CD4nfI@ZJp!P^D9wsPz7M&)Yh#_yY5ycXbvspqEm>vO&0_ z5eo!1WbOR^FuoAsI(6gfK~3MG>E+qnvR_;gWx5z8HSi)wn*SC0%*xS2F=M+y*6p3= zde{Z}Q&AU}=bf{I@tKBhXf_TiFT0gBaEI&3W1BPX&uX^o0Jcg{id@WTrEo=0aAC+p zb8T(Hy5%4@_orzXrsfWEjIy$VK_)3bH`V&c1304>AWkFp`!v+b$H2yh8vwQ|&0C@i z!m>f5F!%&&)%8z4d1U1hYW?0+P-axv>Xm z-V*FcNJs__0fsI2(-nDNUm+khE%lrABc=cCHwM*$v;Cx-R1WhOz_t|kLD7e^z#TxK zuMVcettJbQa49KqIu0u!00fzj=V+_+4IB*oHp5|ugm&jbb_-kpI#2$c7rMWYq)Fe` za)s}$HC-egmvZL1yomLI!&R(w>6Q6)y-ZXrlCo5c;u*xK`w=Yt6ZLTtqK14JN^Yu6 z<|=B5sG|5YTMVWUmVt{E)B)Bu!MnWi+@m_A5xA*vc;LzGLu)S3XIvbRg|7xBF15J| zvF>u2ktr%<{cbf-YYA&fj_P&jlxY>{wYKBAb*EN_df2FrDfmzBOF)x z{7btD9`a+*&<`28c}_UwM|#2`7>MNLR4QY|eH3n#446P5mjQ1=vP2zF#M*|^AT*q%=$9Ij|C=>KDb=6k$eqW*Y!dGg@O+YgL-`}(A4NEIa{UBPzq!1e+|ICMijI-+C{({ej4#)50^$a!{McB& zHU!{A^IEnC`^?$z9empr0ro;MTl)3r6>T7-{05&NH30m0Xc#sMscYFJyJ~x45F8h^}GMbBfYTHv9_sBmjJd!2n$}2wue!U6=m0Ehi|#nqWpI zog&U%i_y+ZEnTXD-uT#p|5*T#tL1t&%(yF<-LwbG*~JCWOGs1#0%?1DU$>hXf!_Ts zFK;plrv;ns9Gm_X4yDMDLyz3f*?Jeqeb9TaWPh>{hgu?nN=PW9vs0|a4i676?U4J2 zX$vtC5k3XQ$WJ`#y~)Dp0v$@x+N=f9)zKeVKP!{p7mzlBl>_ceD3LF&F-er}ckl0R ze?y!1cxMqnq1po0!kZ^aqxUA|kM$|`X@lI-qq*32FP)j#myMQ|og;Mcr@%tL72#4| z8YC;{aM0~%><&P^`YXfT@4b8PRkPG3_Toi>Osy=iVJL(GW^Mf)VtNN>0kpXE_Blt3 zok6B4_pHr}UiS(igJ7UJr$mqD)7}co*Og~qAgjV*q03OiG3Eu4*)MwF!Ure;5dD1z z1|e&aGAQ4wMO-?+_vd$4ep3AoK0)m`EP!KMem=HE5Zh<{Z#pHlT#`-j8$U;WAoa6q z8K9Qp;^Hc`m;KK*J{tcocr2P#T49>~T z#lXT+!;eDU2=Nl;7e<0~w5y7pgMB?BV5x!``iMB#U$9<=-yR1ok&1o!@+B9-%KlCpfMi$v@&)bf zO|awrW`j-6s*9PT*a`OUygXDeV&@bAhr<&R5^$Xzo(oG}PklC&?;FF#$H(8BDk3m9 z2k_{6>%TIjVG$DUl+ct-Y&bI0NJAa5lV$z1n=&)A8&=r;6K{awS@D|JzcLQBT|2gpMfoV2Q4`I2$9=c3cS0DFisMI6og{yw0xdxnRxad2?V zAY&{8UTpT7eyi`~swLb8`b34|1SO z`)Dcvx&qSt79$grS~+jj&*RP%EDQ{*N!HHf2@e++)8%Hjyu3UR;6B>f>~`qr;xefR z?2vjG>hD)R`9zgILH^0!zC12*?dwo|a^1}H{bKmV;St$gAiT*nB=hA-&|^0JV$Gp& z=+Cp6X*-)Df0gXi#$+5zi!&OK#WTguHeWtzKMU*fQ>^oCI$?2m_3YcJ2L3+wJj=P> z0>VcKLeFH*1Y~=c7%3;oZPLPQ2*}Zy-cC}gP4r~Nh zqGZ~-+hiPZnU%(vb&7N+%IKlZU{0%wjL;GT z`1BG&ea{QA>TzVr;H?MYpBf{5E7U-?HYjt`uW~zp<}!TRTD@8?+F$8UN+mF58QOM` zGFPH7se)?l2d$_8@P?=?Aq%!V0D?1n`tZ-@KgZ)9{{Y&?ana?qeSJJ`WBpH#j%+|P z{%9KCl$ZC9MYXZb_n6@A543)WcjoX1r5WDjeTHjH%nOH`7~kKgr-$8uM){8Ho4zax z3?)?`X8^^sUyY?@+;RyM=WDIvGyJXwSqF%Pd;N)KH#0KG{O`7jff>uuSwrwJkVQX-HK}gK zqX(D(<^|?}AxK;U-;bYv#ySA@BhFk)U-{mMvzT?j1FJc`G?hsU+crKGyV5_1&6?r{$JZ|D+Rs)m@$I51h1I zWf~95yuI|Ae}!-1Ao(7kjcd=~Lb56n2Z0$NKpy%y~Z-5#jrO*lM- z*CC=+1s9TIHvfRnEbriH%4+5f*;*pEHOU3A5iPFGmqf#j;xqEe2~2Yn6J#6{P(^UeAT)rwy|}#W9~iJscwdkR*EIBdDsx6> zmE?(C=?U&7Z2nN@vu+7=n%$~@WxDc)A>sbC2h#E5OXa#heb(~XoFk;wf79^I351xa z|8!OdY*~Nl=V4(}aT96CX`Qoq zUzLlO1j%Hh04ZrA!bcM4Gm|b8(e>%7qMox5gI9<)kVF0|_vT+rYHHD5wx|OnTdQ7+ z3FtKO+vp?+{3QM3op=q&U>RuH!@WrklUuNfVClvT>h#L;l%Nv+tLz}zNX9y{@s>8U zje>@o*k#&)GGcRa7NcbwvedRw8ab_4Bpa9; zeE>#tEkG$FBR8@sWt{OqNh>P$+VZq41#qVi=M@&l z$HxZ(7G`w;|4`&&+d^ZoG^HlC&b$c91Q!SkGK~|*!k*5~v4bQfHhB(X6Lvhz= zucu}D*#Cb~_ZDtZchSG-ASIH5fV2wIozj8=Qi3QgEuGRefFPZMw6p?BcQbSdNOyO4 z56sNnyuW*%`#k5If8f54FW;HH_ji9|)?Rz9&nma;Pby+Ymnf!w2^TWvmlqu*xv2(q zqo(kv+#Fi?J%F6t=|Rn_R0mc6b9>FJDoZ}68n<)&v;kqKyCvLuGy__idZ@td9gvmQ z10h*uLK@(O;c!_96Y9v~eXSRov+M=F@By`lGuH{EXWcXqvztV=;gxBz_ur~Wnj-E{ z#>yVNhVRY)O(uSZX=-W;YCAt9A;~Fpav>`exltz~AqmLH$lwg(EbUHDDT zN3gGCL}dN96_7DkG3CWglPMZd;RJ%l@#6jcUpePo;5_Z zc{1uR|1WAcV3tq1tVC2QCjLG9ap^1(94!UhB`2c(+Pqi#ch<+6f@&b1ts1fq+f47* zh)Q#uOAGsBWts{o7n4+dT!9+cb;>Lwdp~6t7Dgm_e2y(C;Q~AJ>Rg=@pxAf1x{Aum z_~e`)p8(PSZJNk1;@68_1_5stD{Gc}-Ip%D^2OVKikz2}-T8`~rA zcCVMKZ|?pVo~@}kA=-V77(RoG6z&(v?I>kb(ye#5rr}4!U37MZj8ROEX;pABKf3g| z+10)8H@};j_$0r&PG}6`fJ5%Z#lIhE&uZ$p14`b;TDOFbVCbll+|mH`V#*?$j~Fve z81u)ip0lw0o)?f$9YJm9W%yx%X~6y$0TejX6SkPa`Eka=PUAA`Q=p^kDLl~=*DKCr zJ%DMd1SjRK%k|Px(Hf`aOQz@>1Xnekze(FhCDBV}wz`wHYu9ZQrxk0Bfr}hH;+16IU>opsv_j05)CVleDBC7B)8ABFnh*$(3>O(S2bY(Z zyC#>?CN9Wy0ZR_!=n^@Dkz)#$(5IX~liLCe3-1;wJa>dh;|dtjoT8ea-v>cQML=@H zDD)yw^#6fFb=dHl$EX4Jhzo~aH9WNT>ou$Dq<7V{jk}lEdu?sYL`=4YJQtjM<{^#{ znlB48)^esPxweO_0|%D&#&*+WfA^SDd=`}_!gF1^8x-~hB*)=58<|Rl>Uz57Lf0BD zwy!Q0n}uOXrT%1K>%RQl^jp_p_2!@Na~5BdL@RP})r{53=&FGWQtkMLiFrBgz(_Az z1R=;Z2l*lDMj#&>!+-FqM9e;4Y1D1K3V*J2I>-HB?!{a9UbAxj87hsc zTOLS8v>LwPEC^5u`32GntW|?%2aTgDoj@!PMQiMTX+75~nQAQMb>D07+ThHjp6$MSWL>_t+LxMOWzHJR3z4BI;a--^ZIDEO0Lo}q;xR?=6qHUUYXi+b+!}VuS!#28^ z{!Y)YLuSmBh55MMuB0@4q3J`UZDxI|IFB6|DnF7vzr54q@$Nj5vc$M3JPWb=%!y1d? zix2nEIDpK_Ol|=vg=Emu=ooWg`(d1o$lqjaXM4RTyu#Ce^L7XJl z+i{(>&i2JA_Z=F|t)jB3s}lfDz#y*{H1Fl^&ddW&ey^d?)!lcvTvJi=PEDuyonjBr zo0>g0^}V4C`A!S{J|HZC#g0&!PPc7RZl%EOz;rDDHLS!XAfV2}a|(hr=IZ#so#4?) zd`!kbH$2@KQ2O!W8^}HXjGjK8A_OG%%%X`40GJ;!1%ij*o zt0SYGogFYq#XNF<+>HUe9s{52z;JS|*rcQ$5TvMNBT}@xqFy(m} zE-tRTlG2)rFPsFt+%Pn1a&l||WtuD(u_`BGv2rE-7qxM1e$e z7y&EXBaMCkr#RdeKW~xhM?+2fV|2Va|8}T(b%wF0PL*DvnCOZ#^7B{?CQ24jzti?d z-8wi7DQ*b=eZ5UP>ftT+qPS?}4cPm!j89^SM=`(0Gt(I}>}LZv+k6SC+yqHBNFU?` zh)&b7cIT_3U^QzV@aKOg>-LO=4w?}1(yv~5FuHTjZ!$m}4Sx6{$eXp!SQ_Tsjt4Ga z#1tR$8d1aMGsx##P0t5Mg}Yw2VupeuJu(?g7H23zw-{e9iA5V!LAkHjIgR!U546EX z$;2#|_}7dIx3`11jdjb4UB1Up04}fk{Xv?^*^T>z{MtS61At-5b~lq$*xuZ@6Buh-9w9w z>`qyL*AK(2%~p{mSYo%Qp)Z=XreRHBaqs$0F9_frJZwoQ`XzQ*Qu0Pw`MHEdI*9Th zd3c55AOApdcRs4GgD{~AaA=R~OCccnLMXf@k8laCJP}+R9O_E_fWXZLQe-SFm*gw{)vUGmXnQ6WN!#iyRO)93jQwPE%_zzIP1Pc^N?OKPd z|K3Zoq_4!?6!G!#7#J812Xn&B*Bey1Z`1xL`Tx??^Ev;_#>%QyV@D%2=YS5>nhzQp zYFb)7x7VivyIy_)hb`sSYm=fC%ZY!;xjayG^N8oN6TV8x*91rIH)nEgi4`JpZuUdi zwf2E4}QVjdhb< zqDTn|%%=q$QESv=7f96LSPkjuG5PjmpHLrAfca!x(_lLCLL4AAP877+?y;*t*u)h ztXBQr(`+g?hI)H{Uw(qNt8d-oXBt}GL_eIf<|l=&GMHda`?2zqc8={Rt+%SryLpQ^ zvxp`)>ZS&{GUIW{-zpIpYcnN$wAbi)|ID|U7VvCd8mL)4WHqIi2(^DCDRY@1u(9}4l>qy7yuBUDP6cprq><*>) z%f?D+dOl+{*Yl5qsXV-aI<;$Uef=RBnJnN%0Pt71P6Wg{i{GiDto$o8({FFjrmd~5 zr?1a?C#Hyzhvyq`V~~+#VCX2mRRZ)G7#JAlV{DwA3->2sdV42#+_AY;^G{QQZQs+1 zpcFB=Q5=;r?9WIN*!Ulb*S;70aOo@ElYh=|{*6!hf>8*s6WxJ}?rjM9(Kv&LZ?{O% z{_;1|Qmfo-x@np8<4HvLJuCY|B_ZEy++O5}C&KfUn)Qx?`Ck$*d?{fcU=jRO;JZ1E z!g;-zUsvt8H%m#@a7~EK$Wqo1gpFT0X8wcj0}K`6^C5VDa+dr%vbm6N^K{qgG{e+R z_k&iVQ7cjkuIryWF++QvTthPlx>tNci6!&0w^Cm<9rxMwT(FkJ2e0BHK;JN?8L0$_n)QsKMTwHp8aWk z#3htnNUfJypk^!grjYLgcFSa15uB&YB&V2&{Xm&|44y6Tk9 z-xRAMs~;%czx|~52C72^Lj!-KL{x@OeF14jL_}n26qEsDo#1ZVZI65su+%FkD1bJj zPoKV~P%gt4=jNyZBvaV@`!|cV`#t68H4>+M1?7Nmz%lPb3mLp7y zsOW&C?&G?bnrzmDeMwHH=j#?3-j}6B22-UHt(6RB>ZdwUzbDUF9w;d)3e+hIN>8W7!^cO1z~S&h;j0aQIv$r^ z?c2)L$bU4$D9diDv^-AXa3ON;97`d7{+6L3A|Tjs^YecN=Z#qjSXo~eqsBVTk7j97`S}hNbHBDvsGf$VW^hmtR*1R}1R{o8t%{G2-zZY+lwcqY zMGtISQBXo2Nmn#)-QQdkQSM!LWME|U7t>I&t5;M|a5&vio@?|VnY+I0e9p)y&6${! z6TMRNbCAaGq2b?=kgSqO;64JHUvVa`hI2I=nmj#s=wy{_u}u{vS|>N~Ztcn`5|ff+ z_By3{P`2qe1j#jX3{L7Tn)>h6H$9BbZZsZG*kergp)PlCh z^!yjpJH8K0OnQ4wuzH9KZXqo;vx+jEJ(g$Q)HHtZjFgq9=Z1kRo(=@+KVH$Ze7omS zn4VPpXH20-#Z1bF7kBP@GQcVS=W9mms{d|#u{Rx+Z_DJx_wKCfn0e@7r!aq*lf{_r z<){DezAaqJgHH;e{z`)D$Rd+W>1(F$C#He=d5Q|ftQ*VFCRP3Zdw5vx zSa-yJ|CZ}#vmhfUg6ol~74zRQt?C=&ic^@@I(DtC(;%wP)!@_WG64Z2#xGQF9{AZ< zSy^Aw7BJ-&sQvB;z$QFeYDIV0Ohhte{K?Pv(ZYrUb-;^D8`C#F$URBXIj3AbUN0r&YG6g?ZOv+25Jh#r^RzVW@3#;ke~ z#DgmeXZBHq7eP_Dze^%zM3burP0=N9(H1U!7wK0lh+Vlps6wOtE)l49I_2a0;xDG^ zRNktBl}r6k65~WmoJWt1jqUT{g7{oR_xF3xP6wfm{vtno?}HJQo9}Kfwwx5dLHxib z#0;NtxO9>$6e9y&5qd8YA_K?1*p_U(|J84i;$2_d@P~~fG~p?FGjqIxAe+V>o|f8V z71-Vo!J85(S-9wxz_tSVR2oV<-AL5UM!##o5D{x$f@GHM6(xBfTg|Rq0aIYWSaYQH}KUtPauiMV841A}N#ljkudWqEYrdZ9eYt?y7r2L@PBN!Pss06LoR-na;z z0+VKDWqp~~Ps!yujaz&Y*ZXp`a%t1hHYmHGfUN|XY{tR=RQZjq?PqM%vzfV6$1DV3}~K)T}q z%u{=7eKRcXb+Kj(Q~UiIsN-L$F|?_CIhy5#i}vN5N{;8|=BD-xc+RRQ!t~Q${!7SJ z(kwAmK}N*D*KSY=)Q`J(=sSlt0op>o|GMH3^@F433TGv`1S8<-gPjSc>dJ`s+M9iJ zPiHP+g0H@P$|B~sCd9S$wz3Wvy&@mpNGUgd4AKHStl6Y9)sPTYajY##=g$3v7XZ8YdHI`j9AAOgLVlV9x<)7VYyOSo$&kYSGHS5S0kF29ouN=gW;bOt7Vj+1uSs27Y6 zO-=@X`}Pp%u2XxO#05!nwV%;14;Q;5sf0QbM*cuoyYO9KKGN$t`lWb39@x%PHC0tJ z<5KPI@KWdlcK<@2*zEGsgxthm7nuChGt^HxbdmB4^$&|&9qb!G|Lb|R!-%oX3~ zd!qe4wPb=>Bt86OR|Xsk*yPh)hmSwztFcXA)=NupM6$x#xa_n4z2E8ZUhm5Mw`yP= zZq!^Icf2bzFXAl(&XYDSRGQx7s zs6ruIGqbKPDdVMy*7YtH{zNW=AcbGjpw>JuAK$}U!0z%=#HWx(aWF$<^U0ZRJC?x48Drdkv85gkm!X8~$CaMNUcnn*gfR+?*GG!yk$`j2pS#J8_r4t4Wb%vce&#j9 z@)rrSA3p!4pRaHZdA^uOf_UqRlkYS2(|%?iSDmSIat%8VM4|X*mRaE- zDjVh5`ZY2OTD6&u)mKh;d^Jcv#P!oi+brTaC(hW07i}dHos?Ent(2Yb-jfC4kS#*) z>~FeLKNoXSA4H?Xp4CeTMU_kX`V~?I%0)u6aPmG}r=+9=)WRHQT)`u+eYY>Y06Y%&xS(-##)qHB9V~r-T6deJj_^kUWprzM`&h|P zT>L?lHGD)m;c0$Bfk}ljOPDm!6?7fH;JuXHX$g}7(*mc6=@E2KPfr_mAn$@>{_o$G zX5Vo;lXy&kNhuhpkTL9;z(=iRe4G>kKL=!fOrmoID;kV6xjI_jnkb^OTWAagW~Qyz zntWJPR8)7h$(Y&M$K=VTs*jDd_yzH5>LF!%kR>V`DmpB#L2f*%dwcyx8wk`NFvo~{ zE^>Do>q$+xowI<+)-q90ugRAm$QEImj+e9ZGI_tfGT*Y_n@_@2n4J$qT40Lc-=fQS zu&7upqpBr@2;zQ65BDMozi0H{o6l@ug4Obj%`D0#{`Q4j$LEhokvSx<&u-oN(>?nA zo4G*VXmk3~QD)Nzp_<^efx~gTII-EqvlO_zHCIFxYrpVXTe&q(l0h1;E6sLjGcYle zll}DwU(f4=D{~$j&Y^2)%P|2rd$DDD4%3jweeS&m6zsh2GaeP8vn%8idCK1>Td_t? zXvye99%4BLneFU`p^T3n$OKDpQIrzzXForEuenjsQIREJqM|fbVniAns?IX53Q_;`{BQ$P1Mx*&Emq18zD*hSloqV#!<;?S%0 zkXX6r%-<3r^vNEauAE!L;|~*wxzL{JKajMB+EKgIxfGf$wOnS@bM*Sf$Hc@~U=PmR zpZFzFlWPTqiUZ=$0(&DA3I#=9OSO}LZk1nDMA}Hk)>}G0Icbg}Zm$9InSi-`5G#w! z6K4*sa=lNP9I?l&alP)-CB_6DGFVH`f+|2*w>>v^=6Xt_^id(7YDN{H%vdyQu+>XS zNr~9Bf!EpR$MIKD3edY>@TzmR z@)o~~N?i4Kw3~ij!#>Bs%v0QYNtBzgNlTw zqjP0rAay^53o9kS(BkbbD;6(h4QEZ-OMZZEyVN7hb!&(0Et?-RKhVvXz&!EK9Zqto z+sDXGj_dBoW?N&bm=Q3*`|vxy=hJKxh}GJ291ZRt*f&G`d;W8aYO(!kS*aj7=IxbKQ#S!&f0_qX?wnXbIg>I1E1hG_Vajc z<0gY%&P=;?FD0G?VB;zHf|9J?qx{&Gw@qDZ8ify?3r@sh0&5hQCm6&k)=B$(($9wJs5>o1J#op%l}KVB}ye7;FTaep4N>^OQ0o4H0fEe>*G3Opk8((HTymfzxG;M0;y ztT0}I0s~8yR|5i!xt2t78GVSpto+930Riz3Srx4vU`mlG>AKsdt8p&nsG5%sIjH_W zenr3Ve67!dwX_hk=@UR+1JV?rr&B1p84+bl?)1#52C6zw5f#VfE=hy{alK=}1^jt2 z0LHS^e#dpFjS94**YYnWAgp zZSCs9n(DFUW3Kcb$ImS`d0YN%i@%Mo=cRPu5~791MzQFf{}Lt_n^^P52UKQnte?f}Y@TmGs8oGS*Ws8u)kyNi7t^Fq>q7^+UY3DE`Z_u z|2H!;W2VCzAEuZ4fi+7_uPtSKdS2LfdEef=e3NDJqij6 z%1+Ao2nBV|l2TH#!NM6IAGe`ilm5tlIt~aQ6c&^QtEH-Vw8~l&M4jNey1Kd}#vVz{ z+h;G5bqv`@7V9;%0pya9R;(rOaw4p_PryKThFrQmDI+pywUK5a#`#>O6+rSW7 zAaC2y0LWa`0ij_zXV#H!67lX^S$|~qLob3omlWEBi7!_4VZb9l^ql*p(W*s%p8u1|^jcXvjL0@{ZIK zXq#EHm<*_8ozMC|h8IayUk?^Ou&G;OtmmBcwzV|4A2|-&w@g+F0**WaH^XU$0EY!1 zr5NK{cNQ=FFVKhWagDcXf`B3h!ivFb!|WD-%8ak4lyK~0^E}zuw04a=e_K`Bo~kX; z3m(q`5vZ?WtK*iH7{B!2Oy+MvBVQ!2ona&D^U1Vj-@sX~>1 z{P>Y_-aX&ow!E={74jouWn&`VxZk*=epo!apD9)IMjxM@k&}EaoVCj}iW9dN82>ay^i9e!d1D+MfSFX#J4kqEz zB}2W(hmsS@Ig&~4bMs!I%_zx?;qdX1F>+kFMYq&6dupmdp{VA=HrX|&Z#jnz93WwJ z+4R=dZAp>j!9o)*m7Ck}C2XLh%AwIqGj9_GU?8${9bLwsK8iOP1tkTCs5+-jt9diG zZl)~jb1cm~6ZOctLO0)ei}hnfb=#a_TOnH&R`Xg6E-@e~US$2#V(EmQyA)!u1IRDOVXlHbfIlq2ca;Pu{jPQ^T` zHB8N|-_Bh3!?eac0qqk|-~NC9?^s2ORqFrN@sv0gjqQIQefRzUH|!I>-%&VImuf6z?`{k2F5(9>`ko3!feaCZ&U!aR;XpHF#-UW}zWsjFgB z(D!E7g3Zo255=O?DRwPSM;H+aND9`Xj^W7&OusD=TN(1>9}CH^&|hu`PeLGHJduSH z%|SW*5H08~IwYyQ=iSi@4SRwd?35_O^D3kBB0}PV5|jOt~xU9?$jrilyh zzE9h&z1wHIfC7)u1?`g0exQFa?w zjIy18{o6(P$DICO#;n3T*ik=MCB0=-^ie8vNizS(?R9U@mNg;=kw?Vi38u!|HL_l3 z8La4n02XUvH4$%8tjo}kFG~ljNmRiu(QtmaWS07q*Veh0z30|Y)?+buZsxEy;1gwZ z{0%?tN?ODg9Gl#aja4570-?tQjJX>twfY1Od@E!@&<++MZ3Nh&_X=lwQuQ0%%b4LG z8@F1|X4u$xoVQeeHYUmFdVhMA2aYwHxY;?>Ba-q?Rlx)_VO5$MZQ-=+3V0*|WFy7J z#YY)dn1g5n;1KwMN)sMdPnTx3s^GNQP+xCsJS2U0NxnP@Y%s(fie&ljoDz{LCztti z^wX_1^0zG1`rTQbclnN&$mcw2Fx!h~qRMoAyNY?vPQOBN{@~tG();?lk?s@th}@?< zOJFi)IQYIAr@k0Y+}>Z+$`3gc)@4J=HD|v6CwQc#ozG@5rGk5*>ztYKb~tz zCDD86W!>JP=44}*eZ!MHnc1r7t)Vr~Z+b@XOcu3w` zmXv7$K}t-gHkgqCTZ5@WgmE{#B5^mePmEt-*n2KCdSrt|CtWQ7Bdviz5Fd7|O^GTR#uo^YRAGknC=0Hw%!Cwtnyukt*Yu7$x1=fo?t zV%`8@r`T60p4mtgyhzShvc{`BV_eIDxScMj{N=^%V?d3)9{8fCQ2c28u&qn#jAK54 zXU2b+!nU=eHLcp2kW9vaFClZe-}Pdu$=?ULrw%Vz{C^+A46(~Ud{E|v$x(6fa_H#A zaJ5&f#H{N)iff9=hWfR^DH678uUNT&!YvwH_x{d7LsGxydw`T=bjJB72kxvpdTK~q zofYJEWmBlJ`I4s)7%bI)4wH%D*e_Aba_%F$>+$^a;e}6!?9hu43CQcgbo@L6UzxML z=@7co5Fz}RfTZGlG)B}B@ms&umhECVY#)A7T*NQ`HETlT_Wg)d+_KnJCH?{EPdckm z`~J9DcOkCY;q$BQVT_MQDleN>(5NL2U+Lo2{4(G`1Rn62;Ba0sWu95wWB)jJH1BA1 zIRkUEU%%60G~mC_~8aZ3b)8}p+FO6g+BdS)gj?ag$euI!H< zV45-1;pL)`%w)XYmLL3yDvA^vS zf8$v>&-*o%Y%fJ#=!C*FflQ&U4A zxTu4`KcV=5A-y|8_?pMli{}QT7bqj`*tleB?B+3qj6$zLkbI~~cT_8I<`s(TD~C=WQuv)ohqiI~Ea1!Vgr9{bmNLZa36OmiY9%KbbEiH1rE#HxR?6mM;#U zKR+D5TJKs~S@8$8i0(l^gb4_I2ml3pLyX(f`zwCQMPPV)dvhNT;Jk1!5e7*9x8&r| zrI_4HY&-Vu4k4x%5SB_WE6q(3QQ&)f^%=tsP)<(ng^0*A z;N1p2+}a8O&4B}FMDH#nhd0v?m9dXtsLr9uh;`{Mp{u_Kf;PFqE%t-TuCx1ld(N&1 zdvo*d9r%77PU`m4yKc@;-ty-o(IaS^}MRHoGpIZ&IKg@G4#F0!N8Ax z6+O@PdJ)y(AW%lv9d4w#(~xa*=?|?w>sYXuM4&nri25#k>X z=lFu@gIGr}7ZmK+TW~F>8B~d3LKOZCo|_I|hJ-=AOM9RXKT?qvLX((irO?CY$g`%p zvD?w`>MAt3`C>^U>G}iAvKLm2rhB)DLg2t29owj#XUoBbu5|3tWWYn5k zTv+%uFc9;jp5F1?&}MpWFWI%v!NZ@J>-0=a*wxk5ji#fxvZuMWwzl6ua8hNax3}bF z2s8Zn_&Dh(ND_oCp!o@L1W6>0m)Ny@XL-N0wRJyGx>a`r{Q6JCQDhP<)KZ?vMlK16 zD)S=;XXg$urW8Jo@4s`-M{}=a2a-h75cd5OCN1g66ixcqtZ}E~-5C|0N>5JLV5a4F zPa{EJf0SOJrV9j~Oz`ldq=0smTp&Lqd|+)KCGW#Wb$)8(vq#zZXS0;?cg&fx-9oM7GDMcn53_l4xfs{xoj z0|Tb`lV5V_xrdxF?u=QwlU-d{b#--9SB7Z0T3nB0U{$LIcu>w9Nve=yFM}??rXD?d zbd+$;b4>KHgPjB&a0??#%h0PU_o7V{_^YL(1EM>rKzjR^N=gw=;3;K9 z|FN9=`1q!Y4_|#Ccc{Aa%H_dnnl~S1Tx!;T0T{}i0*;N1{X$f<9Y{z71O!^;?l=jL zIlcg93e4dkBrx>GbNNN8pcD~;IZ*OoH*j@EAoomZ2eZpYxd~D<3gDP_Xp_Thmai}} z(bTTTLm-?E@Y|Q5=-KRDXq}dE;4W8M zQxgoh3yy8CUvoKL_)*Ct*v#;T`!=}4yayJteu7XgE-rSV2QQ~eQTHHiK?w4`$a|n* z!}Ho^!Jb|&z`KNnh4;Ki=#1ODs&{$9*AJ6Pw1EeQeX`rt8+PH(L<`IG z9;dyYT)u}9Q4$G@u|8ocT#q??NFew*ojz}lEk&kd&#`Q`=Zv7rBY#%83q3ilT+@Pv zKMLDVmpaiuEVYk|an!+?s=;ahcYHHvQA{n+@YY1@{NqpcZk${fPjdqC6=`!wf1)>t zVg!*-mBoq)aky~{*dJ`>r}9kCH%dY24qDnbgxu13C|)7oG^8lrHk$0w(UCYYnMq|n@&M3QC2V+i-C84vipMR#itc19!np6|AUY~EjQXGC0) z)*>g14Yu*i;U-Ej^p`%iG$#+}j*UqkAGA-cD8)>$}2p zPW{FZkoE`opB!1WOBDG4y8#FoDm5FRyo=Zv%9OhQ;6Yo~t6&HOD8|yNszdS{e!`s6=Lh}`dfROa60y}F(I6w)pA;4%(1R_K4q#)*3 zEmgzjj%gUGK}s4{U}{u zQ76V6ukpYlY69<73kN+2yTmCj!AGZ(8zWtNiD1U|%~)vt$Aow)I46Pa2U9upgTEu# zdEjVhNWXUu8-Pz*8rR=bsy2P4Cv2YvSkjXXu{bovavrpoX8Xg%^+g=pyQ#e0zR>em zV{GBvf)TwE=RP!zFd!4jG?m{!AMZadv7c#bhtE7o&Vy*ZPofH*ioo|GXPe|h6jPuJ z2|l&hN5Vcm4eZqXvTCo|xL#k2aueMMNM?zg^koTOcJ1FxUPQ$qiKy%{th=59arP=K z{p>XIP!ZyuJ?z}1z!y*&k(~t7w5*jKKC<~p2&vD6y6DdSfdLUnb}YK(*`-XT58;|J zZcz!ovAqT*6?&w0{u3y#0`_wwxpxs{at$L>N#v=jFQB3c)l_^m5Y_l^Atw=^##q=q zc7JG<;llX&4R6?dm?ouwAl5ZxsKb~$}di(To22s7y7|J<3wQb$!DaAx@{l? zD8(pux}U3(@?H9NO;p>C9G0T#YHQ=Te52eQENTA*<206D=!g>REx-7y(C9it1-L^k z^hVGtb8~HNDR&a8b(2yt{reMgf3^l}GZE85h*B`}-C1~v=II3esPwLN&Y^~vbFvKq zWUrSNGD~Ot3jX7z@fPp&5A*&9Qg$70=N7mFdVQ4Tr9Kjy1pQ=SD~0Mn$dsu4_DAo< z#P;8gc0Z?h`usVjS$FZuMG!?#Q`hi_?y zI(gx4%d_tu0%=CZ#)jSN_PNGsg;B`EWFWdtO=*D~B};jhzAMhh#RS`VY$P*3RdNN+ zN8@n@X7-pv$0v^y=Di^n7i?D*ejP^%^S5S*k#}z!&RX*XFM3Lf+DTpFhA#_bYv7%H zN{ug53Fbq5Rue)-c$KM{&ZnsVR!rjlrk2uuAqmneM4ar(jI~L4k8)+cdSi7 zvV&TeT{1{!eLWn zffW^e)rUlaH*cttlas+Da<$MGsewvKNs{k|Y!^g!sGlJu%qqm|Ca-hRWm~-cxRkIX zmIjz8lE3-Tne65}0iecgHP$lgT!4peDLh2t)x(h^GS=8^_es=G$&R2iVJYCT{EX$n zQ+)fU*@LQ5Cif|6gBAG*fza{Iyg1h8{XHHTw632;ERCU{^@)XhcPv^h{QPe=*?HaQ zC-J9eRXmf%lp8uqB#rYIrLf!A6&}VNq$KqiLWwUdn^3-XZ2p0nup8{ie}!iTg6f6e{_Q*%J%tSULQC&JQ%z(^YNXJGgB zmNQ);kk;0V4fJ&Wfn>@c#}1AXZ%Z!jmt3_2hDA&rd>%D5C1JBUgl=1fV;jo8alz}TnHbs_|8C8Njrs>(Xq|91$2p-<+VhKK9aMH2m(<0 za$OlFi$&l~SNxqyZEHwC!Jg zWKy*0mFYUEE3MlNAe76%&cV=JIjx@{RF9joXmZ7R`?5t1Dk&NB8{pDsCLS+9S+P*;pSC9nCZLx7K8D zIVK0#KLlSseBd9fZf-KdDjz%``N;S5DH_1-8<9+AbV9g~AotF1e1)a7Ee>YjMulZ?itVm^R?&%d>- zjUrnn&IAUuc+PNOXKr!;YbX^E4@}FeL)3pQXc7>|1o?^Dxe)W1lN7>^4CR`6C($t3 zQT5S?0sSMBnzqscDAFP7-ji-bi|Lrv*` z#rJO)Cv)U+jN|>eWj^>|^K#)oVDEy*9W01sdklO%KE%bS*ee?-9gzLo?>PL zKL6P(exZ_$i64z#gT+4NedB_onL6f2+U{((jRcPG#Lh0L|DmG(8&olj>O3iz|t;kUSp1F>2!m zq4|INRE=o;aw$tK#s;nWUz5fac1ifj;%kv^JpFT0&YbH6cFJ5ZLArqwKu{SC>9RU>hA*=FO1HB&a z11_mgK02yC!Moq8e;Ryixs7{x8m|Pla{136FmsiX+sK-+l5EL$A1+Pw^!6^F-vC^Z z+w||FM{?@-bB9gZp4DRS2j^y8=f?&p+nSCPBl}xopG92r;Cu2msR?D(qTvku zjxKBvwCfw!uVxGZSr|9g)(nC6PE#xgXMh?vTbb2A_*Eib&x_{ci7SiP_&g zLn0Ie+v>x-JUm(l2UUg&7g;E_f!^I?mQIYcxQ&c{?3a?9dAFt2{v>+OE8_a}_HH_4 z)^Tc%Dtt!EMKUtcWkNL*h{Sq)^jbD2*1PVAgQX=u^-Ix<@Crr{uY3Rg{g%7zm8ZRg z)E$tq+g1~h(F!!a{PgK3Gkh&OJgFpw+(>%cy4=NjGzZ3z3;d_UY^* zXiVEWaPHR-ZVrt0`>js|tP|VOMd6T$YDAAo&d@DCTrRDwT;qE3EBMe#Nyr%J??)jH zS8}+z*sju780>`l|0H%wlF<}t2T4inGMsMa0m29JOq)p8ItUmB6u)h&-OY2adW%*n zOMk5|A(H*2rV(sHtHl{R4&oyTXYtzoy$MMrpL8ss%EfZ%<;Az%-s_IS#uINJe#qnK zC`=pKYgU{Xe>j;FIQrz=KtOoXy>33`n)x-2mKsWZ@n<-wx6zzFT6;SwwEav6G@>Vj z^P-IJUKamNI#@`=Ky$51DYUIa{XfjTg;!Kz`z}0ylz@ncfV2oG2uOD$pnxDL-QC>` zlF|s$N=tW2cXyXCbT_s6`?hs*?dSOVpzVauXo9^`%G zCN5qYc^>E86svB))b#6tcUW&-HuSh9z{MpV?ZMx zo1J$WopWmNa_Q3zd9%cG>7S49HV6Itu9eU@7=h-~DwZHdTg4mUWw+UUDl5l(vnTjV z?M@HGOm<16-}#-W%q1E1*D?Me z6HS+2nzw2Gu*Q2I|0Gz9?K72G-hPi$@a6fu4G7U6ar`#W@kYgeEB4EI+b`Wi;L*55sVFgag`4&3fnX!6wjT*HL9LJtH#^<5qpP)`TZ7 zF5A)IcFLP2BEEZP6^u&e8{ZL%>N%rUxuO_W`^ zL{27{_sytd|FFM~9cDFmQf4hPT9P?Mz!0Wa*9gND#zv%40JQm1q{E&@{v8G-bZavA|99lxbJxVOO<4f}g{Q0a9X z_SNUnadTiu8z``u@!nh<;`%>nb!k_4zimP@IOv0#WFBG9rrWN1meouWhwT4EPY@<@ z*C=LsrfAiEOwGy8g%XFwg>rt0M^cw+PICSvov*N@_ohbk3-VHK8A}sMobPh@{2*DF z<=F72(Q~01tFg`YOjA#;cc|b+_+^YJQ~nH;#_}|TME_exYo9L$z%C`D*PLuRWT2`x z%|K4+v@5yAmT53M^LZ5}vNIK#CUd7)An0bc!=Q)|2g^(B_rK}PD=j9lnfaJ=N48E> zRrKd7%`iY|V)oo2N|dg>st0GXq5$%3h)+ktD`HbD;m0tD?J_|Tt*opp&Fm#8_#02p zml>cxl>7l{DhLSMK@IKn3ZA;!7;oY%1)G~D?fgP80F$_jWiD(7$fOxKNPpvzko51w zz?;K%5}IhAe^@@>pPx~y!5a>mS<>0n=^XB75@w38KrQVoMCrHE0Iq*^^$QzI;>b-g z%hJu1*`1_jrQqJln>g`sq!lhi5sN+x4 z$qnI)&$6kh2inSS3kwUs-Yp7O+#xPZTS{{=RN|S+cCmgZ z>ee`s6hC78u!beJY-$~W3IX>xXs)b8cNx|g6~zBlO--QecTQ(t-{T&m@;#7}d*5(I z0w`RUK@CKTfnjNQ9^f2gOYfjZOCkVKfTYXH6wjm;QeMsq0`eAE^V@oW(ai*X5NL5s zT8{|{39(6guJF?Su3m#6nTXq#vg!WXf|TF&>3p@7MKuCsNWW)fyz)HhrQ5qEo16ww zGiqF1++XMYm-9^^dL8z62K7Oun9$HrtYo|7A3u;xOiUh#ukmc;CVa!WEbyCf*^!sZDqwUylTG`A5gcBF4tF(J?VBwKk8U@6jY0aL-7FJ&j=@ z!9MNdPy_?8jvZ38r?wqEw0A$v(8Q{pajoxhFmNt`5vUtf>H&A@r9mOMJiJtB9 zV&J5N4$t zPdB^<+$fi=Nd=RMgW_FW+r|WlXv4)m|6Ew`hY@z`El}x3)0qh8!^a`~cgI}78q>P5 zZfv}klYnLFkm{hk#y^KVJMgU$T;a_w={3c|xr3vZQavj5++66YDhoh}y%F13O{RunXkW`}>>WL!qvYMVXE5 zjz!t)#?3v`t}vjbis5=um~P6~-LSi$+~e#9+Lwxu%T?KU>KgZX$~* z`I#H!aNHwg&%w`5QaUkXj2cG^d6?gmu3p><*#?%_&`y;Mi=A7PqytRGG9<&eDd1#B z=aG`tEAtJF7G=mUL0n8bVWppJr7jqr?Vp#6YF<6!L*!WBVVs{2e7rwi?Y^89LRu`L zYw3genG|PJ%twr6VuE5zL)m;F84&|`E3^#G+ZAK&74D1c%_^{+qV5kpFp zmad+X0FncCS%dx9*s$LD8NpFn5D-C_v6vPnICBP`Z=*cx2c94*bNx|i2#XSh5~P{z zU3(Bx9EOmN5BY);(RM%frFeF;z*n?Q36yiaSX-8`%7ehI6;W~WY&_nM$Hp7gQXk_C z7N#SQXX$>A4o{ND#@g@kXa=TacZE^CwIx%B0K)Y4Ndvy)kZ>OR*iVMa1y8-i1K#i) zU9oOt#V9i_8equG4+tB=$lv*ukVPrutkHu`f7QtSN5=1vHT}nB3Y#K84K%7)ro}Y$ z8z@2ugDfJj%Wjb?Y|Wy154;h#AV=KR*{PjHYCi8X$XwO1LAbGk|tOaolb7^L~-bh2bX z8thYB%kxQE`peBa?^!&t@Dp16h?^O^{TWsHf?}~eX^Mp8xlN%Ta3&XaYuf`b`xFGEcCkXYnN)9{ek1wj#gKFsJNx7>G%s(_+}N4+ml~OJ)E)@oDL!N70HXDt2FD@iWRGC}oEn(E-u8B%#_Y*i&fpbJ{ z$n*1?yB4#SCVbiJBA_B?#I_rHEX6H5ZYh)Za?U^Nam%1We-J8V9`cgPrL&`>I6cv6 z>={?^mpA%DY+Uu5D?UB;a+96XKDwSxbO3dv%LCUE+g+8&>8Sw0)WP_f0gH^*1J6ypPHf{ z>urK?mn$lR+&~z5gO1zDF@<-knob3$h2#v&0@ZUa-BupBlD#aJ8zrbd%g%;3rV3@9v4>qHTi~u z;*5ne@UZl`IF1|E44*jB9j*`Vc@snjCer{79fdxTovnfB;-o#2@lt~2%7`zcW|O-o zyr+6v7{`bbC<{5~B+#fiKNfK|2=*s|s093OtL5^aq`3_I-4<_JcTjeIj3i;i>eYCG z(o)FM72c+W0PzbEs9Q*YzK|{oxX%Y{hdWhJ9<>Z?>MPy^P>!D_uQQvjkpNud-(GKJ zgszQE^2HS4QfvRkTgcu=RS?htSQxj*`MbZT6b+uKbu~>8;MeY%_)l%7 zcp`0xzYc8T^j3321uNe~j&8l9Y_>i(|EKcn}|V!c$W1{4{bU z$n^684~SI#Kp5-oek-fEWG{<=PwjJ>Q(R_c`RV6jdeVZYm84hPp?!tL;*NGyPncsB zA+~!33YWvOt=ApwX zJ*Gb@Cwn@1xp31N*WJU&-UW|}uyU}_#Qh>)8_;#BkL6$=9F4*}&(S&FnLFxF@V#_0 zITu8@z)XqG?8rWcOgS>Xc_SSAxk*zj^i;C@JnZgF^Yycbdb`(tOf~u z>dSu~mfL>7;k100MP5vl^k|H8bZ0aZ{d4a{>9H+3I==7xX^8@`ECXBR-~;6AI0ryv z6f3DLf1){+#!7^G+$+))3ZaHl~yzO`Oh~#u=5B&%qXq91B35A)v{^ zj+teZVPs?KV_O#&ZsJm0%JGJdFftub0@`j25X&%;iy`^^){3d`U=$JFkOPaqc^uFH zl5Ed}Hvxh6$Kv?7fMhVz~bT)fPKCV`R{sB^LfQk&c>p`%vWpc>3XgG*AvGZR};Q2~fF zq^5Nuc1LAys+*R9bNB%Axbah}Xl;A6w#9JsrZ_G#64%nJeb#jh9*^~(-P0%^-JE=! zMi{2jC}UJ0Vjk>90c;MAc-a4;|9imA0p&x>l0$CJPS!$%rhlZgawtKdG-r!k&)-?; zp(9_qPsZ?Wcp6Lu)%tScR!bCGV>|GjA2%5r9IY#xXcv;v z9ELjP*VVlQ-FrPZuYM!9Bo%{7iIh+^*>*Qkd+NY2SlKr`ED5a14RJcWwyR{L;e4lt z0p*3Rgd6U6ZD9xITb*CV=$eflRs z|0A4<)1328@;`pVjotJ2zP`vnSM-(qu+G`tq1~pNxla3+#p7o9Ineg~3XY68q@)i! z&BUT~DT)3d5@&SerYZ^%B zWUR;`t8=0upnRIIQcm0=+MPBi-{5+zUtxA|k^Uc6lD@tKikqHH35csi?pIn<&@<5o zS|*YVQ=iHHQF!}(`QHm#Fp-B=Sc}&9m&@EvjX6=cJ)H8>SWMY|0&e7X<0fQNPRKOE z;BcTlGj~kj)>)<8MwmW{7dr+eOVqo#YSrT%vsJJC9u7hcO&_Se)9Jdjr=6F9j_GcXkMo}Z=K(tT=JoJ zzYlZGL}&Tpl%OhkCG193tgTa#mjmz34wb$geJyZUtg;}4K+R9fH>QQMoqhEb`jkM) z`a^M<2KkAgYO&_Sf)mQj;@8E!d!5}~XvGb*sJPh?0YkV1Ba|)>nL0Ald-t%EV7Cgh zbMu#}=MhFW$IO4;76cqW&OkEPxuum`8@--NYb!5x6EI*Yk z)TQ~9{Ml4eDsAfg9lvJr2_cc2$6U5wB~MkE;md@Cq?wx=6+R@qgq?x(?vVM7?z}~M z8+GUeoU%|qmm-u6&LVXT2|GEG=RotI&HfqS&Nuu;QK!#UIfLEEMiLQ08|rNb>qgra z`|kf@V>kReP|O2b2C>aZ4zI_!Y^q^xJiZBYn1R%i5nro}3=O&0233juth~e|?@*$o z81X7J6(>`-J;bnu-SaM`7{6629526F(HZ8@EP0MIJn`yyP@w2}ljp~J8$qk9lRuh% zjzf7L7}?o$Y&xo~=D7jIAqe^F-Ar&QYpmu2XD#EPF3%Nz(-KFJ3z$#F{rIu`^i-MH zZ+{o|1+BEBcz_{GNu`|Ov~Q5lBCV0(^s&hu${LKUvp~8W$0NTm^qp3%`ykau0c#+G zYKdBvnO@W4cN`MV(uc>=Qr<0Pn$dQ>kDyqyR@BX{_O?D#3VK>dB_ssPFKTG`2fo+w zw_!BUKKU7+dP0dTRif8e`;S%Jp2V6lF;-!+)@!^};=SJ$afv18`tsHmMoo(tclXWT z5FJ1*ssaC`ee_Kg8JXV|{5P71d&GMko2)+pSMJnj(@+$|PzhoR6?Ki^xh+~DxzN0& z$z+WY(j+RXQh`#)uJx{T*Jh)zwg}QUN+I_Nq1V*xC22k$c!OW7%H@+oL|DB&-mHwW zqG^OM|LMV%%$%^c#;*B|WI-Th#{y`h2YEWISfIn2oDwCJ%&o8Fjt~DLngh~aQuzMj z=V|Vi87Re^+nt`-f*rPZWiqf&t9BiW48E$JvRaI!c{18K&*JJFOshY~o*zlkecR7` zyC2LLh~DHbvo%t~jMwPlU|QvlMb7>QW--TZ9!aqouj9Sk?|#?hb@Obpo=cK_D*kBa zne1?rKI3P}ow=^399A!#x;vAUnr}}+Hpg$-;A>5?uOCXZ<3DQr$!jR2a6_)9KcgVS5P349+Vz9)z2A53 z(t7WAq_T5fPNWpBiC-F{N`f+ZNNx(K482_jtxu9(y?-AC{7yBY_wPqWsd_Y<3dceu zU2+%73?zfL!*{EHm*HCGIFNNrha?8-=&)e=9WH#nKz|W)lZgVyr9V6LJHWM^*3=;m zavU;g_On|c&9op9+vF`GPcwAPow1-krt}?6x=xb7^ZZ z!)1x7tVg#RDJh$3-t<;!@KAE_G9nF)m|k)l)_s?=@|FjlDdu?SjNR@PSz&OD|N6kc zW~!}=&;duT$>!Oj>kjv*f#Bvc9eb>ex)54MH-CC<6YG=hU-&L<8ru=0R?pk-HZ8mu zP7})Ac*NIrpCV4@y8CP8j_dl-r~&865ij}u7en`~&Kaj_XQ``Zd4%qwyElV@W^!F&m3%JvbxVZqq}YG# zx{pA#z

tjH+?%WZ!i-<=1C{OV#-wM*}lmE0mstB0A9`fP_IXlt%33R+Fzwy2$u zZ-Ft`uyRD?cwh0IkL$%a?(p&Wu+R^CrU1YI*P0{>sq}!X-QG`5~ekPEFk|rTOceWsl(?{O!4NUqy3H{-yuF7tQH}f;>QQGKscQE zXF4Yhdhz_N(pdTZW+Yq@ap?H+c411j>pyQhS-c=tl-O$+je~3Br#i0CRuzhH1BjIE z_6Nj1v%X+?kbeC0+Wp`T+b}2U+NF#WWZNer%?2pvTm;SQ71XJ$ZT!*r)6qS{y+Jnz zXQnlQR%n*MG7iAl2!l*o7HPoDQ#jwg;xMjjvVOf`((R2>&Ek%_Ntkpct+A>F*j45Z zB+&La0=&PcAbF^=>gF_Yd>rU-v_;!n7z201DAn6qyPK_RdKq=ls0icI6yq?NP(dHN z)`GZHAvu#x_b?93&9^9=-UNl35!@HO-x|u(BN7V+_*w1_j9PZSucN!4?`_*IfC{_) z^_f|a`J8dfCo2~klyjynhE;j<&svW;fVP2CTW>#9vf@&->4vGC-ORd+Aa&E1QdM`O>cj3+q-_dA6@pjHQPed35{ zHgAyb#QmKo&UMiMCvb*y+4qAX5txQfq2ww; zm8g-!jKaIrIHcrJakRp9Af7}%^R=~WarA>oaWX$6 zS?J4$6n+9Ki(PP009fwK{-v9$D2rf8V{vrDG+*DGJ6d4`_5b&a3gdvLUwu=MUH=Am z-q1<_|8BaAK)Dp?=z>(6YKl)NjE)k^bTIsuU#_Q^yYt zH6w0sHbC1WV{AjUT~U7qiI-;jqOkloHY$nUb-zb+2EaPF{y9GaFwPV6FqeX-Jl|1U z9PCNC(C_W>q2{tx1+t2v-aPIs?`b|e2_o>4AoDdg%|*_PfD`-Sd*JIprU*GgzybEY?!Wz0p|7SaoH<9SjTl|7>)qbs3S}JLFl4Bx~%;hdQ-)*NyJ+~T5 ze%6`~IkeNa^6Ab(E((L$3jzYYvah7sH@$SJ|5WNfqinh zmW9`PyLR%_j5#uCana;I&#Lfc+oG-N`G}yYIYQ1kE}mrbY2^72HKa`#s#AWn%PA_l zmY7sjQ7KP0c3Y}uT}XQdxBfO)P*xUq(ZNVubZR7MAoQUHZ)z3#ZVMa&`rDcE?}I3} zp{161v7O34$xD918$IgrJ+9n}bJi@fOAPN*YB72zE3t9c+&>8h3KU}$6$DJAY(H_s z3;g{A5Bo+7PhIsCxK1pA1;t5mlrye>l8=lFg&+cLvZS|PJjW5M?CYkhYq zme9{|yP2q2Emy&=)bw_lUmtsEs3&oJHVtmgtezY2mI}q=BrXKx@S4`YJfkq^u#3{K zH4hX}UI_SM9ibNBE~o60KJPb#&2rtpS;QeX2vy!%84Z8hYDkPDG<%`J6JBENo&P-1E!J{%ZhUuslCr&JT(-zW(HV z7N(mTgbrF=eiF?qXloB`{Ei8*=_+*SfkQnv4VTRs@X1^CNR>N|@&l9XMC$#?_?#ht zez+I(5L4kULJ?kFkrZ43178w@ynujM5=w$U?|K@dyp065HeUNnq zis^=fpx(B^J}I4hQ#e314KvG+Kk7-8eA$^s6LbEV00R1=&0tN9vD>pvjS23FfR8b& zQ855cEvV>4`r7L)+8=LM*T2d_jA#2ShCNS(`49bmM?SvL+S`1(@bGDmVAuo5F+X9^ zn=eYGRr09ms#g}Y)@};_1W}45P;}pa>>z!Cp%$Z3AowKuK4Y~%m!2V;75=yIkbEk6 zvqqCvi17oP7mWj=I%vlx1``{HPKXh8dQ3pc!-lXpLSrjx7sh+w)LL~$zv4PE(QT_d z{_Ig#fWae3O`5iArPoN`*_r7LCFRTXhn1(he99E)A9X@R@(y22^yjC(xIULpahd*$ z(spGhMwT(pao{sqW$TZ5b8A9N)k20XB7ZRZ_fd-z)~|lQO$MFkf+}IG5VwqdUVrsKLuEg;$P+F`O)Tm?3qGz*|r}BI2#4jQ3Jzq%isRq)Xna% z9_&i=9|`+UO*;OAsZCy$l3lpG@I7d*3TsZg@lu*@#v9`yDXx3w%q#A&P&!WKyPR*@ zRE_O2uro|j;)t(a#W_O#Pdw5#WzKvSCbi@;{T=)T*JXsVH0@$^lOvLppBI zAo(HtwaDp0$%(Ky>4&U|(K~gj#MB=te!*v?mNk);C80oKBngq9ze>3cd#t_%`z|%y zdUjl!YCt1&vay0D%WnQZSOA=)UHZZ4?BamAGaU{k0IW-M+MT+*oPkoDA0MZK&p^vy z1Uf0N3?@M{LFGs@9++4_*Vq=mqf8FtQFB=6cKQ6GSi6z_<+7|MR#h<89E}t$Ko(^^ zoCP4v!6U4cp0tZPvq5D%vk^Bmd=0wg8czBcxMksEn$r)HrH`Sc2VBX7N|$^<6ENg3 zEYJ<~$}zC8D&{C&yyya-T@PwEF>rBfSfwW?{(BHW#heOA=gJ9QiL*;^Z0K%gw$Y_} zzDh2M5M~uZ5o@3AJ$xJ>fDfAgGznh(E2+B=j~bc< z4}Q_A_Vj&|qFxhPAka0+s3jtd!29RxzD#(WZ^=8iGI}m@`%1f$F*iO|EkFCdC@tVV z{0PhmYmvq`yjO&?M3d3QcIf^YG0-1_s*;q6seXLI(sDOm>h2*oDE~U|&3A>yuBNU9 z$JD&;NT_~0i2N}PGcU?v*FkrYM_kTpV-X0F*#?%UtUH!`ZOuwyFcfoC7)~jzi@c*N zKA=7*5$Xafx3tTA!4Oa0B^hc(c&aj@THf@Dt#g-(BCGM?*-`YBIUjlSm3#ZK{Ew(e z@~57B0pshvghmyUFANYr9NkVnfHfM4f6RAak828`^Tee<2yShyH%44sd}*HmwWSm5 z<1c=<=wkuvlQq7zn(UnK-@jARf0_W?;44|%hV6o?or0pjfk$!#7Fs@Q^r?KCv}VE2v5Lv#8oPtYN+qr8eC!`Fl@8=T`2m=T}qCw{L@;=@!<#jPQcicXi^{LjHKC zCS5oG{uc>2M(V_s)y>`*Fi6`I=pc57^7Cz^BXeX_R;jwEtIfRb_y(;;$|t8oKqD2W zH=+dETstbr0S68IG78Zvcd&@2O6UTw6%2unO{9DAi|qIw0mLl8$Z6eySfJ9bsH7wg z6bEA$|B`2}dsUZ(?XsvldHDdaSpBsEUs_!gBcKJ?0IlCDt3dFfm7%1eEt(vQeH_(w zJysQ5V$&=kw-dt=Q!L(7+?6moVMaqB(&b#a~Ziq3$=AB z2C;u|sG?c$zN^%+WAXeGQ$CVE4hz&_yMbC>MSq!X7;M4 zy(~Jt%y$kiS5=<5gs?mW^xj{#A{XduBqP(kS!nlPNL2BWTP%l{L9jT+Q7@10hYcAS zyETLDN8hS3Yn2_|)9rO+6yHZMM^5X&vI&=;T~N66=<9}e889~3A@EJ_u3`2F{D#;F za0o|DE-x3TUzwI%QXE?Gzdfuk{!6%B+}im4qH)|*$c=R&CfbyOpc9_;x;HB?)Va)784s!*6JpR{3e7#hG&U=6T-mqGu^S4>XKP3bx6N9pe&AuE1a zuQS>*rLHN1V-!E1VA$IBJ%22i+l=t8TfXNPq;I(Q-b1PT&EMNAj+SMXJAb%g)yS_IE4E#%%TDXf`c2aEmJtbJPaA!lLxkjUY+o*n4KHQO4v_CYNXO zJ(9Q>kZtH~t1aEIDv4yrDp$WDNA8Dydz_kbIfgru^nj+uua#4^%A|P1ywf&?T~N^I z5vVbn6MG*%A_~)fr@s4-UcK8uZBBAVU9o+6cN%Gnn5bu>md>bXcrp0t=gm!&_i0Ab zpxIqj))guSz*-Mjzy1POICU{C>p zbdg;NAUEHPr@l2G`oZG2M(3B~LZ^H6CN!2Rd~7a@=}$MtrUZUg|2g-FkWH+d!0DxN zr;uqV{yxI`8nNAB?WIn>*%|4r_gC$vIr$z+e_;jvm|IYUlor};WNxv0IWGq5U*%t~ zM@Ka=p=0{#@~EYEHo(syzQCF6pt_0CZ&mv#WTo5dNba~M+lha6c2*qWlrYj>k8bj5 zn0>Y+$OSh8MnwDXbVT5(yG1wWbH@J0B3;3790JH91q(R@ygtHYt_3Jkx7Xi`0d@xT zN3hS!L^qKgo`$#(=7R<77K#@+dF1UmW$A4iDF@FFm|oe@DK)GjwcH)AJKh`?Lkhii z_(u&|pg$>WzS1j)i;Z!;40kLR9F8biTBg(e9EUDF7u!Eis8z4enXEir6OOvXDCYtR zlb{|~U`x=_T7EA!WfS)i5CpZGvV$Q=uI&n#rVe+Rs<`-|U9B6u#E?wKvvDAxF?AD^ z;2~>kYYX8V_$l>2O3)WSbwP9YS-~;HQBBG_A4(wr;SBPa$2A< zmS|-3YiL+iS*PugCMIgUiR?;EZOz?18X%JNKVpsw3To0bSQvh?2sU(eIXQ_o_+FgX zYFPGkrkKpC*zilGX5&Rh!0h4U@f^7v#T-V<#eYAJS3M>VXR*H{(79{`TQ85}YaO>) zREpF)cdc|rg<&m~W(d0GMGE&Vs-~L*J~t2e4q|eNe5uHHrSde|hBcy*F57LU zM#t%1`ZN>X#o6ZY+$sqs4r}{i?oZy_#GK{SH2J*O3-)X@5oky<;>+%x4=mX%-7zPe zgvT1Xuwx#h>+QTES}RMEO4U2N^CH|}rqDC`Wbtu$Hpc%6zev{b`)KL&7I9$@_@6LB2zZcN_M?UhBeEtT5I((kgxX1gr>f_e5`h=jT zvZY4stNV$S29KtB)i><$F7|txK6;BcTIU)N=YxMAL2?)}YN2?1cGl5gMs;7?&2!hs zoZm^c%^X793DmgPcN>fH`6B=Rj;*17^~%+1-x{1P_O0Vzc}-23^gJ#P!2|{v7U+*1 zS(VQfD@G)KGxJq&S;IP9O7$Ss(b0KwrmCl?Ty$F0BZuholZ{3RaMBFjCv|w6RaZp+bCy8A7kLd zKmCzSGi>^o{u27X(DudfH}M+reB5}A0AidmU2U+{obEDh6Lh`HSx`1sgZ zZdi%_f$H$l5Pqtnb1IiMy7ao$MXNRFy$3EKbKKU8V#vuAvW)cLgY{v(_xwD*OL4nt zy#gR!zqf>yr<6s?>H`TF;5PQp109uz2a(ls=KaRdZ)u5F{bu^YYZn9<1u(4m~7lwrj3d-EV@bkmlCrT&??>*mWbLt>vSeSp+QS0@IV_e@` zGLo)fZ@jNCuEB?>IYigjEA!Ka1_r-x_yR(E_cboZYM(~0< zIgg^!;BMpEOT+H}WunBT7i&=F$GYM0NLUad9q&G3Ul5-?jkwM<63zK+lEAhJk&ffX zZAm`c)N6piyR=qz8EEy6yh`~ukkLcp$L8UviXFYTXQw-z&3@fD2d#f9r~!h)hZ@JDqxM@X}Er~-U}5N4EoeNZ z0Q`oQ_V@4CgZLjmM22BQ9o)xG|EBq6?d;0vX>*J2UHUhArf;^}4?J1Y6c)Wrr=C5$ z|J<(D{yutX zgX+E_kDj@6usu0sOw|1{%P#x1(*11Pyv`ysT)E$;YBC6o`o+sIRmQVe>vW)7Ft&NYL^Y^$PkY}4{NAx+V5wwWL)~ zFYJh337CTR2Nfg6)U05|l6vR;Pr$@UWc~n#D?hxx1Mr8;*1IsPsi^_z4l76`KJ=3U zQYhEW-!4SJ6j4ir=}zQ+0UM)%jRNExY5;LFi0hsFz+NPi%oz@h(<=~26SEluvh0qT zZdw+rId+iVRGL<0HR!^AFjC-00X~@O&71E>N46lX85|yNG?>JZZ!uR6@VEe>Y_tFj zF;L<*oh~K=x{yWyij%+7Xl~AsT(FqgZObc^Iu`wGkuz~k(px2N@*dc+26OX*koz2M z!Sbse0e9>~I1T#!y$_bnofke7D$Gs+iU>w`ubG(z;U`}{=&T%K9(Rz0YdX1XDyR|1 z_w{|9Ea2*;(ksWiuI_yu|7HZae@w7#o)$mm-vW>49WU5axHG8{v6)}bcPv2-mHVzL z>i|4G$l0b?mK#mcRUkjIUYtj{O)B+PGFO1Q^@t$uE5*3m@UQ{6Hp@N$+OsZ zYSA(yf4m?AbP}WY{P9e1%93&0Ne(N#?uH=!0TO-8y2?lz>1gH2Lq(mE zw?9{#G7WiA+gKhp*%|Sk#&c<9EPr-=C&Mnp_Nn#tXU`1Pf;a9}A?2({BL7mq(4Rx! z$^6e=&&=K?m9#EKX;?RwXr$F$EO50s|8wZ?tcC>!v*dpSzDMk^_qTPWcEnErgBhzX zx7w-J(+_MT6}k>3KD@*IeERRUH^-908AhmrXd2U$ml7-wi4J%H}rz z5p5^m=y{?M%@^=l*2}aM{yKuVCa>m2YKL+NAFTx$M53@$uthsgm zN%a1O8sBBVxnDpEfx7sJW!BigSx$&kaOU}G8wQs8>`XuIP2~i<-R#11szTA~>loN2 z=w+q`kG@vl+*7bhaVXs4XKY^e{r3=Ue{HNN3Tk?HvwY@G2+l_K8C!W;4Xu04GdaU= zm+Cd)AB$Ykpf_QVj6^k6#eh%^to%M{yNk1Bdn^CR;rtT?&423hs)`?!-SQ?+C&%KC zo`tZ~zUakePG1fc=71OJ=W*$rGLinN&i|RTL%(Bgky}*!s(-z?$8NWuV;ISv2f|21 zdf{t3=m6od_Ug62Vm9A300t)me4znL(#|V}0E@q3$S1v%`ywB!LJk}N3;RQ+LPEF3iT)ch{i-{F`$bqrgA}iGwSwc}zCQi_ zI7XGSyw1YeegD#Xlvxby9TM5kdPssT7e(rL%JM$F`c%{7Fv44yu#j$x}_z^GX8}M@y%F8j7u3pYWr^a@E$i$;(a4XOH9xnV9@vZV0cWM4Q z!J8`=OUAS*4kQP@sj+>#Yk5LhED5h@1(LWi8{-Mr-6m+nLR-~XV_fKHxnUlNR;=z5?3wo}cl5vk)g^P09?)w#s zm?P8NOOJ>@W!t&pwL&u*?9$DbbFbM=)SCqE1U-!H%{JpNsf`7$4zVe%OnANi8Rr+< z;P&1Qyu%yRHme5)hr`G^F-(Ewg^{KCsP!Ft>t@Q$`aZJ`G!DoM6$s9z4rc&6GQ;on zw6>Pa&AZb#qS3F=a?p#N~u`7UO};nFsQi!|*|JRyw)b+JN!uj>Kb4=4S9S3fP3;nvz7LNcZr(S+Cf%kquE1ZeAFA2^e>GP?CPr~jlt4rEP_J^?+hpK+6 z5PYkMFFd4qzN)V51Nsx0n3#ZSgRnA^wzYgfjAfXDMqrJ@KH2Vk`*3@}lRI=p%`ej4 zYB-;Vn7HfzzM7Z>|4!zE4pt{-L(QdTX)+{D4z?H7$X!eb?P#6B4}a6{o0*Uk^hd*2 zxpsqZ&QrGSr!vDeWqYr}ANs6&bEBKzrrM$%#~9u5q3PR+67WbAJ9Z$x{ul_38;Z94`+L zeCev22kvw?lD$4v4t`wLL;*O#)d1iavk>mIuqZ<2znQ7pDM+6eDm{)*YTa ze*B7+wfu{wIZN*XSt@l9FfCHtE@=Ly=U&yi#b?LZo39g?U@K}IJag!XbbD8R=_$D-J#W4{znVzViT*wNXh9-Ggg9RP z@}GlH$^~{@g#a6C$4!4*n`nV|@M&jKDM+l@OJr{f_Aw5361BhT_k_}Z)??KHH)Jwge(J;cYd+uZMGYB45t}SaB}vL{f%BB> z3VxbLt--nXe%n(;Lg^yKQlYw&lT)^GHSe45mQ5Bt-=g`&uw6JllrmqgeKNIxW?bV+ zJhh(JkAZ8Tq2kTW!9F$rmAIAJTv-t{GNNIEuTN(=|MBimOXHiWk^JI@Gg*bq^m)p= zxOK@tCI$=aDbp#+8R}8whx|83gXr^TCL-*q&Gi+-v^tfv+=gK6U_N1bW=f;R7n9GI z4|n9;YyYCPRAu5dSf;#7F1asWiI0j??`Je=T~tBa+cn#aGH+2xHOn9Hbz)aIXZW62 zCbSpnSLu+y`<#H_OXa)irJRH*s>GB&Y?-w5)OvSC`=qhM&9#3$VUwad`d|{Ty)6Ae zV2|_eE!NcN&-nO$mWK81&-x!YOm%q?*SjSv$ck7`Gcq$-5@mc6>=I*RQNI)CkBKUw zGm|RAyEXv^*%M50Y!c2eAX6RJ(IF0!C;`2O(QI;LKalEy+rfjv$-p2jcnAv7Wgx~7 zygd@5mGjV49#nE*@-XQlktig6_mfCgT!+7V`_?m;%K%Kt=$YDNWg(6t=5@RFFxvN< zoP9o%3KSjKU%5Np=;*w{dhA-$^hj8L(^^Kzj&w(MrnRcdl!KT>h#|CnXsGHwrr%71 z{Qt1^6<|?yZM(Dqii$LXil8*ok|F{sAV_zIbT`AGASf-;-QC?oBb`HccMT0Qa~ALW zeb@E>=N#sOVXw7k&)zGaxS!{a<{G&*8-kgrKK5J&~I4|$!R~qN|8(ThA99gt#8zHUQ^*G|@ za1hys*UbI4LH+jWF-z9cVZDhBEvNGEc#Btr{ukp|V?)Eg_`ly!OqUeZW_s%XRVi}F zsvm5rkk^SUteN@>o9vO|LG@~Dd!Q`L-6W6K+?u(otM_%ZVGKOX?xD*sLq@sZJ!Ft zy~?8u?%)FBXpb&^UM5UHv3@+JaaAzVT%e1*B9^s(_iuJjntb-cts<%~FkuPF5^yCo zwn@>_u(`-6gJ%oX^c0Scc%}Y~U)RUWlZqFRY%ym`P~IAmvgEMZS^>_tal>bhIX;Yl zd9itRR;$;mz?v<)WXvqsQ(=Wf>X(=QG6jL$e%D@*NcXkv>!8FeJon`g4iB4oHx_du zzM_0}qCQ}H*s1h$@v+G~CU|DjVkA~sTpQZ5^{x&Xw^S+hK#<*nssly4nuF5EGkXC{ zhuKlqj`p7rh3ZBN6jvcDm~9j#X0PjNzrz9B(gi|!w-e`^FrK$XBV)j!)Q12kWD5DE z{XNJ0`*%86So#VZ4I8P6^7pG|XJ%H!>tfTa361Wl{sKGmr7D$z@7rMzIz;h{C(gB1 zJ|`Ba@SH%Hm4MKjiU5Gr%P8F&U(0`7Eq3%?lNQEDlp%i-6Z?Tpp?#fu8M0`#JuQ}t z83(pwkbdDcMbOcwYH+^Emnhe*yHii$UbwHXnk{(BK$do(ihFk%>Z4J}TvM&%!<0V( z_~`*_Q()_i|13)fIVN*Mg}sU^+JvMXPFDPRxm~6}JEE|;vf3_ANO;Mk01dCJ%SZc_ zKKguh_VjY;4bOAqjMLrG7_h;9*dO!$9mV$dGR*^0v#~bD450(s|GFBf2_AfOVXW}U z%3AmGLtZz6<@-B7n%+(g2<51~-Z%xmN}>5*4^q3ke^T09+A+y8r#f=OiOPRgjRmMkwS zSrwtkfnmuh3N~gnYI{tPtTp&zLk#G)4w`b$MD@$cHX5IYtQxP~T*K7lt((T4_?BYk znk3B;*vGV+&Co)8^_VH&UN>t?e=Q1@NQyjY5jtpQ*gmztSl=L-km0$xG^bP>e}3hF zf`$%<&cJFCw)iS(1=t?pUJ(SUn=`VSQmKC`;U@WiUsX__VHULis18Gnj=XwvLTgpf zW+Ce)L|3K3Od=>GWQ0A)LsXu#&i(TKs%`hk=Y@w;Qan06BcCz6^Dl4RiyOAka<`qJ zR^fM^&etvI`uq1Q*Pd0u_pWI)uTsYh_5Q%NSdW*ovgJ5_Vb{%{<_Kw-ay0odOcOJU zpEp>Pd^|DD&s9B+yvd^m%kE0(_Gps1UMppjuMweL!ve)eQaC&+vs{wo*m$L-UDKm* zb7_l~l+}1(yToF*R;A)ca`SwotT0m97YVJ_pw(36Axoe*~|r& zODpel1Tf$J4l;UV7YsNGI2JB8DqJ>HX2#Y|QN$;h|9zF+uKVD@*Ezc4to?O)nUZI> z84=k9gxMWJw?)?Nj?A=_;8o)6)r(785|$Az%L*zQv?gn{6$j-Mqy>DAtP$Wcxr`LD zFk2@?W@fEF{kG36efN*@@X6w^#k;BzFE$ou#kAwMmAS2YytK%s?&&P-lt#7re!fRj z%S?j5_x8$F%ZCY{_3P1+wMbFG1Dk!-rrK*!%RQrhR`*|C?wzIV<#A@21|awM8y)M$ z%gM*wBJ{VNf>d(mFA(bmBssN2Ak(;YwlyL5iDitI);F3xJL#vf10asaPEdU`A)>gT zD~}5OubZP27&767&`+Q4ii(P2^co}Z)~n+n9Ztb824Gd1Wpe_h*5^%8liSwM@MkNg#v_xxxfE0i^@7O%P31X z@uIKu?F;;}`3l$83Mhos7{>Hd0WGqIu#Sr&cc6s~IlzI3ZRo*$kjoMKts!L0+yFT~ z-3XqQv@`ke&BygR!;kDzkuUO$`AOkg>HGV2gQVw|{vW-3O@AET+Ldiag98@?ofoTx zOOY!bhE?XjeFO8rdBWG*3QLmE(d|2WNzsltA^yXj(!hg8x4%}M%|`Y`onmRJmU(a^ zqC#|Aiv zLcTY3avIa;HD>k;ze84*3BfhKF0y=XK$~q-WB5WZii`JQ&e;^L2W&JX2X~h93fyfF z2bn*rD2X$ED6jKh`>FPAJ$TtzF@MmjgL*}SZnQNXvwX)Yki6q8(AmI(eOmYNB^ijx z04wU@+1bmh_1(w&EYA$79g-@j5Wj_D3w=%9caCu>51%ZGf!IX`X6E#T_1zt}jQ89^ z8NW<<;x0Uu9}XG#vmcZ8simbR+2A~KZUJV%73OvXPfVF}>i+urOAzyk%zvJpv_dYF znWD4w`JCF8qRqR9;*wWoK2i+o`wdDGV#!6Zia4cF(usmwSe1W>iJgco`cX$&_(L)4 zY%mEvGF@)^=c_)J$v~nJSOtK`{l*cms2CpqjnR^6I%A#9ZMmQG9k1n-q2r7zf+9FW zlb{c{L|{x;H(%n4SStamNh9)9gZ^{;E0d;AufZiA5@*cnQvpQbjdvnE+%QAHcIo}i zId3|;tg{uqF92gd@E@?>{>#9u>v>hFKNb*0>X(~0DW}v9jQtwGNx8BpY7;{3qclF$ zA%anRvM^kj&^J7(@8H!d{ppg>FcgaM+RNmsQkvg6SW-*#T*0bPGff%)MXLq{ z;$*hAWT-Plbk;4@fa`GYx0rq)<6*D$b&Rl9@AJoHGO(;?2!w(7!1}kLw>;i>GEv)) zc>CiUAV^Vfyx*arP06C(hR7QGobf*sN@#^q>y4yAX2_L=O8hcoB=hTMu|rFK-r&?6 zZLGKN1hbeYgzc%oD+pVFy+_maDy_?e3Gwff zkDUUaG7WO-B%UY{G|JXIRjO@hor^>*Tv2dnM_i`({~9y(_?EGUt){bu*5*91EE&~W zo{Y+3=(nXXk1A>fc1RtR8|K8o!j)VDj#t~lm97lLxUOc8z2D^lV%RW~HLUbo*5Q`> z7O~C+LsfHIFQfPMkhNXDk(7jXLKprS*YVZD<74e>q6_!a!Nci`a)g zvT60vVOF|`+Y4p1$)B(=zK*X)MLJo_RfttoAH1r4Gbe&-miQ{V* z*aU|@rC*VMt$K=}Q!uWX3A$~#ON>nad-`Lo<_TV$@dR^gHE_DVUJ&FonmipFm4M{sPx&mCOLVF;hdk zVo$|w_E^Aq4^+(vz=~<>p)v6MYYg6t*|>H_*UZLpXfKSrr0v9J9H*6C#5s|(9G)J ziOK=rE|k|7R*aJ4R2WH_1a#TS*!kYjj>7FqO0j3_BVyY0!j$&kAlCH8?d{cX ztvsg)`+@s{S7APKyu0V3TsRXrJuo^F-n1@Wd+^uQAu7AtlD0U%mA~cCQMh}TPgAX{ zx|W~k^1Q3$g`dx%dW@S+lc-n$+{XtenT4HX$Y&N)Fn?ncubl4Lvt}#Hu{Cy(l@lPs zG6o4--MXQ?@5Sr{07=AMF?mS(j|PfhHq!vWD4VT})kJbg@rqNo4ztFN*?#T)n8{|Y zpQ1T8>ZyxBMH;qjXqU>1sGXO?SXs}ZTL=e~1Fa}Se3e=-WYmABXD4opF&tho3A@UQ`S z8V+9y`mu{_IDP{X-&25aGZ+k(t8fJNRVgPY9w5Qeva!h~5@!IvbBOtPA&5XT6qC2a zY0nqfJO@BO<(MXQC`#cuJW(kzZ?LWREqAE2_ zvCH_{qN#~i3V^G><|z#Ih9#Kf%HGUxGqdbGb4~N~3VY1RZs>QosP*sZ!a+))cYx+2 z3HY&B7HP1!wZ<^VDb2?-wVqX%^dlUz8{46rqGB6RKYnMzrFb>u z>%xr~tJr$D0bEO4n@vyHiTRlDj+8qrCD2fbPIzs{D?rIwVOL!cGwcu%5+Gv?p*$f`g+Lxg6_sG9JsR z_kd%xFTsC4ym8nA*Y-6l2(BstU{A0teE9U~Iq2PBaSEb>ZbB~?t6>*!mpQO)*a^zJ zVpU8CaL$FA_0uiRke~Jk@_tw|2h+VKF;UQEmjb+jxn>Jc3}9f~)V_!ppk@1+k%&V00N2VqGDPR87=X@lL>03cj^Q&A3+m-A9yy@e6U z(#HYN%f*eQkM@TQKJ3f{0lUSD%b0d!cJ3SiZoUQ+ve*pHNCDa})12Z!51E#NJgF=q z1JhU>7!_`wue{N+0d6A$o(`xRU_Re`1fZ_`RpkvK72I?b!7T8(dnR3B>%@oI8g_c` zt~AB2MTf4#|G6YU9$>diy^&+?caEBRSw6t+aT;s*o@XDbr*K&rpiSN&$URim8M~VI zOXL+bItr#8YVdn&(M-wnt*gbyo{iNmHfY1s&N5@ylKu}Q<_Ze0$2 zEPmAvhbb25Y4i$(XE$+Q%i8C5>reAeLwUN^mdCq?W^9KOQBn)jU+$HBII*c<6iF7W zOefx9>3G_1P$Vd7UtPNJy;;8`G$DZndb%Me(h9bQZbGB02wYME01;DVjx>gnl)|Gp z%s~X|{08R2{(ezzqY%(MSfF!^tgMkTgFw0qrh1clu?_=yME+JddwY8`fQsdksF)cl z<@!?*nY}t8|-lk2qOp>szcKynG zb+?V8sBdy!QzGMsz3aw0nKyxpwQFo@LmIm^wNZtRBqgBHW+x+ftcauQQ1G;^4y)*h z>Rmk(d#$pZ+(WNs-KMUOv*JY-CmMY4#Z|MWfmY)2Sov!~%|kol>59>)^S)ExAG)3G zGLK(iSAvCU-(T7z&t9(X8l$NZJ*Rh2(BEA5{13?CJL&a=l=n-pBzYW#v`jPu4cldq zo^ofSbvzPB(nw?#0c?gGx+Caw?`Ht6?E}mMOYj`M+^F)WDwj0S!TQs`UAH31|A~1s zL{uTeYr?fYWuD9XZ@r%2d@SIwp{oQP9nTy~jipa-F!)Gb^a%n|%|zT$2UGefTu&*{ z-q;uzF+Kr|Wd8zh&x;Ru>|C0JEYc?KzNz65hTrCYPO>uZnC^r8t!kx(kNt+j;oUe1 zn#gKBttH+Tzz3h-F9L)s05oE+xwP#Ai4)3^zBh1#?)-q26~i~!s=H+2^lK6{A}##R z20#Sg9#M!{*#vv`C)c~z685YLmWgSZH<%$G$DNi8TEC_qsl6LhLKq7BVl=+zeZ)z` z4U*AU20bnXyn0{3POJ}hV&g;W`CA)Tr$*o_=d0K##|Erku6&p}8K=!E_Btzzc2W0$knUfQUhQ4pR_yS0Z{UUHoox8d}aEL&5Z4P zLMF10#+Y@ql728%lHTt8n}6j$A~kOAiG=A~W~Z$0eEeQDNd7=({mFh((=~c0!Btbq z5rs~Q5;u}`dfmo?DgOSR=yPHgrro&RxJi!K5q%yw7o=cRXK00sC6ebe_mraNlLCf5 z`huLt+?t^?w;wt`6fNAT>$dZRQVILnvn{ywx9=c41oxKbt}dwdwjsjS)uh_>16L#I z${3VS#58>MHSLLWpSGQ%7ky(xEgK>|5o{0r=EAvqa3C9n?|M3u@*t`w>pH4g%Jaew zQ5P`uJ+h3B2bt!Q2mJ?;cXiVY9{4V8izC8+{=EI}-8*$Hq;Z8hSfQQ)lF{+Ae$Mh+ zW|G^}WzPHBp683VESHt!poFt^RlC|5#>GJ7iqj7OPTyb}Kv6=#NpsFi*IqL^#&fW* zMN=MI#2}C#6GE-!eh5oLeXpy-M`11+?xRk&tA0$)=~63qA7Mgw&`CiY2MmmJ+-oGxQt1eBpL+HXc4$gzsd zlNZQ;&hV)vR~fJ^vPC+xEv#5JkBEPhIA3U9|4VfZy+7+A6_V!O#P2pzWY5jh$E7PE zPm^3y@-U#ir2t(cTcXMgc>MArn)=q*-zr78Ml~raDJ`z9W^8hE=VT%*=cN@Ni;K<# zzAL9O3$Qm8waF|ZjgP{_XQ5~I%0gH0EU#awlllweHE|&-gw$EjteYDd;nF^f41;mM zjcKJ-o1SIvPwHbxbLtGVspvq&U0nD;0KUl#8DLrV0ua4Qi%G0(O2ao;dM$HyJuFkI zR#t^#y()2JcCcdCEbdm1ikI|f>?_o3=f#UIDa!G7TaPJuLPg)HhrC($8w8Gzj3NFnTE5~Lx@O+<{LZP-@MY< z!0s5kvtuvug3VLnY)E4xEdJAKTZvy@Q-%!frtbQje4e3p98EZMCrr0bM%_)KCN= z0?p77ag3^hT=_eOpk-j5m^;%d(sN%92ya(i)asNqCOVr4wzE{B?tCzsZ`6M~yK;y$ z5gFF6O*xYsH0)nrtm8~fMSIPguHW0L$-MTwhrG;*8-{Qn7iDe+^c=X81etQL|LiL| zzU)tHT$ilU($wJn3D@$ZFPo?E+o&QX`m@GYersoZH@+ywd|_q9=U>DJfW%n>I92z? zR7IXz7)3%}-WN0T623Qjwsxtf$EF9z={#&9{R#Yfre^O<%~I_tqgE-Kot+DcXAUk3 z0REo{u%5@>VGJCfno`fr%{|{-+?UZnCsCv3?D|AH&F20LDnI^_nMuF3y=`h{wp3TA zO!i1jRP-CfGH6i;I)}&nR=<_in11KE-i&-@zVBoEsn793cv)R90=-#2hc0P@ z|B)86x6)l8dGyoX&PkP^%((BlfPlud%l1L9g;Y`aE#i{Hu~MTRf@zE`j}wqfQD%I+ zv&7@VF0QYGD#e^e%&AiS&a1K39kL~CtkJ&AN-KKdr*FBhQ5+vW&ey6J_-bRJJU(!BTA;wKioD^#&@@%6@sYY!Sdm7&iZ!6pYMG$Lg)*K4z%v>{Zt zWIIc*H$)sX(qgibRIKx8##w@)PdIhJr9iDWmO%vw&bN~6T=>g4AoT^7n)*G0NhJ~4 z)bq-B@t4?Sy(y)V()KrDuYwEH5L9)K=sb0U)9GHw-#Hm3h0%vMBmUG1e!eTR;5-$b z#wRW$iPggwVKV4TM4Aj^TfiB22yMgxfUgXr8PY0&LN+V47_%mI=7r6!ErG`Jnajfy z|BUj-0jX~lh@z|ST!L}<)v*z%6F~nM=~MaEaK~Kd&@BAoZZW%UqtV#!H=lq9BCqBl zQ9d&WuN#+{JWhWE7>`=oE=&MVDZzvct9P}#6!d#sp%Hr6mGqpEw39wcbfy}o&>}Y2 zaXUn@)-VYfz#8T%bK)_cMyi|_;qT8cAKNKxYyXmuFB)=n`rD3tdwY4%91CPL3elU} zbhB)IT|#XP!qbZm+K6O}EvI=Zj>@Sm4e~*J@GuMtZRPQ*eSC6aI|J5JhyA$(>&A-? zz1q{)0F-1uBE$PTDXB;qH;zio&Gz*s7iCI&`^<5u1o0sJ1JZuN#$!& z50S#hVnSoY;7-l{r1BBfL%(JI?eA(KZP-9lA19&Is!?nK{YiCpqn( zZF8Y3%ia32=Y}|fk9XR_>#OdZ+L%CA<0fuq{fHoX3I;&>Z(BiO`hgiU_Fd zplg%(poP-W?BA$`+=}g1Ki#C^i`|RS2kv7(WuO+Xerh!!6FPmRQy|A=Nn^%X?oluB z{$bR~O$q#1lRBf* zIf0pG|NfWDldC^9Eqy=z2Rv)cw2wTx&-rJrw??GI(N(>q%OvLJ`Ml4g0@Wtgs(;5H z9UGpAp)E5;26Kp{vMj;044DX&UwDO3O6Jw;TZ>5KWIp!sv9@$?O3cA+t|2S>9#H7@ z1V*L|!Hb||TZv$eFQuy^gYxFrn%em(HTl2xQ)zMvZ4|!Wux6gXKeF*)l_a;$<)~#- zp#4eEd%6-HFwnDEsU4L*+|AI%fZYI9vGsmlH}V zs^0XR-~un?^gPNJZnm1}zGth7o6jyXZ^omQ(jEvR(jSV{^$i6|aJnTVh?-zz2?&Vk zrL;2YawCYS?B*;}R$C@xqRh>o=wnT*fSc>gu!LEIElzSdU>`NDz|+76Woc;`LX1jP{LcwG5XxnvBQP7 zI+w)}n!~9%FZWoYF(Z*9P{OJKzRkXpcY!*=$8k~;XCCp0kUx&qytOWisJQWxvH8}! zoW4&ZW369(y8b$U^_?H0{LHjFJ5ANO8NhRgUwvMfL=S7bZ}w(*&=j%HA6M|Ew_i+# z#HG!BcbXImHWjkT*-T=fmK@Z+!sJwgbVfy1CRXw8y+WdA&S?BLl0F(7bUME&yjvY( z7QiMldsrhwb-zHOl6HnAUI^~qf3?lph&5(J-P#z_AF@`}T&y?28^C3$hB;kATs(iW zA?}Oqa6+*8FxONd7waG4B40VL4>3>C8A3Cz{=k9j@?MQ6zTou4L@w4Ti%BOE_r>u@ zKmdb-bLUKh$#mA>?32$4!(&Yr{IysWX<+>+S8U3Ct;AQ2RVkZ9a`Qd5#Kn2J)T`^_ z`-t($we2leuCK667A9SRLafSis=YdWA^77&B>ugXMy9>-@+V&~@eii3$B$P2*rsRk zmN@3&bLASC;hIq)1hfKTB5pq^C<+l%Z0g@n?@+u5zDR<(-4~?HGNlos=QRo9K@R#pamVg3)~yMtR{hb-~Vm2|K{Qk1_Uzk$0$_3XE~$ zehrLl(UE|ZEnp#;j!tau%aj%u#}$_Kdqr#?1S5F25kPi)DO}spW4u}Q1699_5`Nd^ zV&N_30RC&CCkW*hJdGi9zc?wI#_}Mo=)!Z_U$B2VhTBmAx467?2T@!Ao zj^1i|>tdPAvHC-YK<8G;BuP`4Le|1)P9zCV-|}XAdpf$Lj^nJ)Ljm#hm|I3S>*M+? z3BC?x_Kp>;Z=Uq1N5ujQNCNc>C_DA__39NE*||s0c*mn|WHRl$kg)^D2bV)bb=kQT zZEP?;(@X4I_uG2RN!8RoW^Qh~?$wahH}w1pE_}(v^sBr3)0z@mEN1WGr`VB5(Iri{ z{lJ^W-Gospu{RMBYbc^qgu%0J!X8WuwlkG!to&!|(`(B-KChg$^sd*721Dvg8c1-q zGR}=Rw}+~Pbb3XmwqGTfpO1OZ+vMsOXMo5e&lr?N<2mUeu#e;*6E|(#*#3`-`RnBpjan%8HNdhQ4lB)W9UdJ$=jW#YCE6@5J>Wt&qw@9Z!}wqsX=yG^ zwDeDV68ii}H$*NvMNwJ#`O)I-8-YLDILXZ%|8*4CJE1uOq?g|?rT);<^;*C(CEdS_ST{CMiM^w{k2D(`!H55l_Je}d$Vu+ z)J~79<@$JgGU+q*oF(;0S1Tpx%bYWUR4^`l3&qap6o`v9zN|ass~o>-JsI%fGa26^ z!YT0Ra?onH*cvZ`P1-&B_5S(q=oWG77Tm9Kx_u6@1oUU$W7oN2!ttg?c>`=4bl1Fz zUj!=TeXh#)4VQJWKij3%qbgVn9Mw5d!_`n0YpI45oWvO@tTT~8t4b~{+egOSdg}+S zm2r}0s$}72FKLWzI-fYR+bq2Gxl?Pu{&}x@`MxD9BV)I5q4j*D@3w3#*Dnys3cA@m zEhR*ztposp#ZGo>)?&@o3p&|g*Y6Y+A9F=B%7C|fAQk^sT)R9QjT^4tV4sSm1Ejt_ zuvPg4!pd1ss?=v+Q(MD;w`Jmc*24MRKlg}(=gP@a1(sVMs5xI~xF>{`de-kpj466d z@!*{m!p*`oI7`LmXA0d$GER*mwDNjUmm^zqKQ+#QL4g4egXeRxS?}`MLG8$8Os9&4!w+^^&l-L(2LuhN=V) zTo)H(hI`L&t0cHLCcL3N@q;0RCuOV$=QnGVFQ49NaphJ09V=A*9cqDyekXfwJSYinNJ6)zQxck+AM#LR zea*E@1YP%{N;@Q0$1?@d^eq#La!%w+Vuf7~XEv&-o@NfeWF~;&oph%S56kBwj>>Ba zD{dW_qa=05hvkoA*8@lQ)!n^>0l(E#Klub-BWuRyzDtPLa6w%8L~o0yP}`fcJNTSR zq{#!nWMU&58o|K%@B&7{Ol<#TUgX2g!9RoPzi*!Snhy9_H^b|{CI8l!2XX1r{jW1Y zdE1M0Os4W8II17UotB)UdL$_2L4lQVUKqE1};1{MZi!MPE$JsZW zjA>MKGAZX5zj5l1DD&iocR%VX`c*uM46lzmtGK){vz{S9o~}`)(4g$nmsVGeI3rJ_ zCH(5=-@~4ml#wVYDXsMPzvd>1f&TMC+dttIgEhRlIVd|ZLjC(X`Fq`S9ak_-BC#?r z|GMfR|5hJAhvbFl&{^yu;{nC0IJ}lIu4JZGGu1kfC!aT;9hzm~Cf{|*lcz*Le2+MM zJW623=cd`tYcH3Umkc-yMbK3}=t9BetLSI8LP>-kBYX?n5tBsWSshtKw{B9Cn?QP#4?Hl@$8y=Z?N?B%+&8VuTZ zZhibDElp5X=&~2a?xyqR)Hf_9rVHqPaU=tyuFrTxc4$7cmB;tQt6dfm+QX?uU=?#~ zs+`BW1~pZrFVG=1{Og~#pzp#n{Q88f51UCJKYni@hAogZm1^4F7?%tptZbIr?li>{ zzH2}M%1z6ufycnr2gphlPH-35B+cgiUSr>SMD?g8l0}0G^^6MX6dx8E>Qzx3+NEXye1%sv>t!keh~8==kHv;hYBonn-K2AQ;U*m{%Qxj`Cb2GN9<|0}6wP?= zZrXW-^F6n=tg_)?`^(^$oveda`UFooo(F@PvTqL*jt)Oesb=I=Mcl9igEqDU&3?CO zC1`{y5}M)&4!W5-=i~rZbaTsc^>=wmX4_MO&T+pQv#MUp!*0+IpVlf}j1IFS58d4> zc%=FU=hYO8W_!oR|CGLZe+S`JPLzAdP%cjrlQpSKkeq08(<9|X57zXw3G~XY7{Jfl zD@awl%coD>=6QS=k8q&nfb)+!n$CA{rW#kVUIlf<Te+K@|@MjZ5uNyWQ zL*m5SAP+HOhxnY1RO8%V?{Rkr?2|&EqRr*vqN13|6m`O^!irpqa?`5#O^I7VKpk3K zURq`+Qr5YkSS4==-c@iSjsas5hM&} z(B_u|MjQ+bBQ`|J(McuW3VD_f3vp+rr5f0>Ey+XfagE_rj1yX-bb45FtO%|Le_f4D zQd^fdQtR0?lB{=|+ZG1mJHrD9(x1XZxz$G!N732pEw`yj_j23QLWW+o7@sLnd!FkJ z4-aD;oSt?}w*Q!LCVFgZ?_}FNJx%FVUe0w>-71W;dxE^azF}|xtc#Yyyg;*$1XN+b zvHyyVt#fiR#K6gj)uWY+}(Nbc=orm3A0c1TekXCoK2kjFe*FE!$}o*gj|PqZ|&TZ`(iW& z=1cV4!5B9FhuJ9(&(i1Kv_Hu7y;vFUehKr-DT0IQ(SogN=&(~Gsx}ttSrCkd*y8D+ zvtq4y`F@x2iUnku+6R*!bwb7|XlF|7s8=46k1Nh`8(v%CIHqz807gAwIK zp^tG!@T!mANeJcH!z)}_J_ogbAgWZz`pm3W>H`Q5EO%@|Q~&nv9*Nb6F~;cD2n$0FiQeE=j%7Yw73=sxW4<%&H1v6{w7B3qDaC}?6sGg( zJ<5oCOy1m2khL33x+3n2%K?Cb>g~Sg=Hn#6sE?#cd<9d-zb zlBaYWA3ry^Y!(jVQFe8er%z~+7@2PH7clW98srYC`7;7&3HvtdD?Cb9p$u#vxeL%c zVCQ?RgEpj=J`Yg-eSMtj;@{J9?)<4x=0588F;cuenO6kg3@)6P`bdeaFwb78j3_x- znOh`^T3G|vr#25kIu%zggw*i-{`q9#yMXP!1&>QUL3(ll_Xj5l84S; zIhg@d?9p{M?}_}mVmEsgMI2aFUAqVFN&Lv?rrxfOj$|m}Y+ztLvaaYw!@O$a{QR$P zJ!|sA4FVVdW|Mi`I<%d1r|h^@Cs=W6yC@Akc!EUsq`L-k(xE?c=S3V58k-MH3k-0! zyQOT5quYKF^}3{n&n+%eeInHDkMgUK@-jq0X)pFCW9AI<-i+q>zuCX&y5>d1b)kte z(*5R}&o+^^7e_)dXk$;#izpE^Psy)NSj08&%qb2XQvYxsCWX32;~_+rD-(~MQbzOM%7Q$>Cc*O=ZKf2lWa6h5saN_)8JO-CorOE9;|Gz6GRSD(mG2(}$RATCI!up0w>Nzd=5yeQ>)#0cDYR1OdFQkS;`^0x`4Duww!uImXqX;FU+vQJAx~Y>b72pnM~^n(Wm%iC4Q{6|0I%^^ zR7Ts1rz95g5_^Rpo6F8smozo zBwPcpW+D&>mpycU(67(LW=;qK1Ix*yE_kD)=+MsEtNolGud3-Te)d)O!fG@bFK7fS zsSEd8*~VuqIav|btWlp(yT32cj%(4BgWAr*GmM`)KjOQ8aqkM4gEC0p6=@rHoU-tIcJvg2R`=b*k77x;xke6nr4? zoD8o+xT&^bE910iUZq=Sk7aS~FP0T7jR^xoD&CWdN_u@6P@jt}m^(SxfV*Jz@b=z0>X(dJ8!aR{=TsBXyPK7YC z26WJqp-Y6yLIO-j0v<-(NO}{D&t0LXh*tL6x+r}Jlw*xJGlB-BLmm(NJXV}`3dLa z`+v7Yde(8G_wQTPvBU^i!xGAME)V;8q0L=g(NMvk{=*r5aH)$Z>OzylSK~Z+Qev}u z!?l+@urWD^W)~zUap(>_-pcEXnBF)KZ=p+7vkgS3#YU-5R)zZ4*QJKp6Ln$>NjbT^ z%BLZH6oyt0c_g?PxzWR(M4=lR&m*R8m;!X?jL+a(7iHNP*?vXC-(sG zBU%bObKUHlH~Z*&ny13i_XYwv#q+McC&SZD(GRDBFA1yPuAqYmQ8aNgGpY(IFA-?U zUNk3-SDXfkBL^DRb={K$B?g)wdR`v|KZEjaZD|^zpaBk>zsuM$l}o^<~)ApN?Q2gpGq z^F+_?D_Yg<@Nh_CE7ozDQJ?kT7@d1w| z&Zfes>8^r$^r*x$p0)2Jt%xSQjcJd`vmaK~j;w+}Yj*`o<5(1riM20J7VLOFTc&C! zrrtJoDSgMhq6XgETEq|%lxQ--Hr^{!jY3KPaoU6G2qc7SvrT*z0uqpE>9N5Od|%6f zfFa;r`1q2hX+FxOp+!+HhDQN|{A^?yQG6Y7IVMT2dGA@`>pJFotiH3=!lY*JSMJl(C*eFMeF)D-2X)%6o}6Qz2RJ?_=at)JTC6dMf$K>weY>`lU1L|JUj9D7D{&)D-P33BVx@p0&&NLBcNUua_ z<0esI!UJy=(i2Bnj0oG-D9#PkVvq$oXSLkaBTdl zsQhLQ4#gF>c)+XP7h8YPeS!XPIrqH0?!0a24*}dqD?j)S0{)lec1v44Kim78=l4DV zUWQfFNa1~x;abhzi-v}UhM*eXQ!Ps=oe)$F`Q`T&G(&khN-{`Pal+pTCzW4`%A~v! zLXc;_ZELSAvp&%@woBgYFM1vIdVdwd(+8WTgv}hEOz7OjTGR1-&h^jkLzuk5Vn!7_ zxVLe#{}m#1W7#@2xcO_m-Tgn*a-hc1o}6g1UWk|zs+OcEw)7gdkHe$%2nh`KVW&%b zJD)8L3Y=(cb#OF9Wf%(ixuK6+4H`6L@Z(&F4oxF@Tu^oI2KE&&Wf_5v zz}P*HN4UK2+I+n1m?74MvN*8gc1Um5RGW75^xeACKdH1el=qRW8c)hk`l zES0V^bI{#YfAb<;)eUyBJRQuN#rszZ2v(2l42sq@I^;-G904x0Z+`(+Sma3xy>(AFQpH=RGt2T1#iI zQO{wjB@`f8u@|DBDV%M*3~YV(;e-gU?b;N}S~}q8`{R_FF>an+M=?U!`Gm&rfBFo< zq>{=gijyglQ?bT6+p}hugOM(Q`IpQJjB+Q$#k-6Dhq12=iX&>*#0dcc!7UI2g1dVl z5P}C8e30PoE(rv;;O;)SyGwBQ;O=e%%xrU4>V8}MW2>m4`<&A~J>C7fJb#H$0B8A8 z(TX_mtWQQyp11CrY}?8oR$?zB6+EL3rApre+O~cQ$Nk)_2N&{Ho4!n=GcQ3yM85U1 zYfc`bErVOUcx?_}T7A5{eokZl+;=_e%O_L&8{=_0%bG<$Zrf}+w%AzoXbl2|9r~b! zWO-vHLEJHzc)DmFU9y#uhQ>h6y%u`Iq|eX^*f@%vFj8uzRx1% z`Gx>1dD~Uqd!*y8KI5Wt%}}WMEZy<~^|ddTl>9RosNS#wN!S0$K)go>e64Vv0#w?+ z06Noxax1#&exL=BHT9T1KTbrZHE$ef+Q3&=KwBHFov1##HlHL@|7T&s19Gp&93Ig; zyKajM)5^(#XClT-{jY5vrb@;#EL9rts>IGal7m0;ee$#yFRi!0bIkUMi1m;8)bS7A zsU;HNKi{-1@uxewTczw?Srtx(i{$5$_o8aq75bTgFrk4KJ24usP%1^Cf| zCG63N@Ujv7f7gaN9lz{m$7Iqn{2W_V6@T6$cEAgODxQ*sJA_;qbsuYzKsfe>Im){7#&3}ANyY6$iO}p!nhf#u5gwotRvqYBb zzN;&u7>gYh0^1r%I0N$ii+WMH?mskuft2`6|5suFAw0NTwO)&?S~S_wOdHM zp^I~z_&4WVe+IdD5;)Ah54peit~|qL*75DX$G9qYs}7#O&^k80xG%e-TbxTkNKmt{ z=W=>_NTHp{++5{D!$@OH_|AU1Wp2J?X+zw9gz)%4KTu2l`=k4xQEPu?DfGAhojd;5 zk_3iH-~T-Pc}YwZ+W+ee|No)LcR9D7Z?cX*E#EXuZ`h##E@^G^^RJ^gGQI!0A|k{t7~Weti%G9O-*uiG+r^pqQ-E9Ju6_CDhp__&j06+643vX zl1rz)l(%Q|?2Hn?RyacJ7#ZoFzP`P>0;(tbBn|&Qz78QlcbFC1S>=9pKCg67Jgh}h zDw`2Kb8x*x{v0H1jF@aES-xb~lWLoL-{!3uYU;5mIW+-oH}Xt>rGx;zIhOff!Lw3_ zqh^ed>QGGdR}=`D24&~%sg5;m>2xeQMF`q6jhG@C{1_cwpj&~fhq4a_>a(eS9*gR$ z93!NqB2HZ>FJ4(ERcPMZZhsq|C3Zbc%6qXqs6^$s_Yi*Dw8~(>M4zL}#ua~fsXM!3 z0w?EQvahqNzDk?oFbj*E=(`>pnT9i6&PM!s*)b|8askwzq_s$E?M{T^#hv`@>rN3!eiLLuiid=0uDsYluI@CCv zL@KV8nCDeTGCbQ#u#xyQRvwF0-iw99WNd6OG^Re7|7URL7s5s{&G|)lJ+A~j9b;he zt}3pGqU=Oc9VV2&4?lVEh>h%HuJ(0r!}iEPd)sZn206W(T+iU!Y-?CX;_OwGL+YS5 zD2vDUDv_*$ImSkhq#cjm?ylyO`Xb0gTq`4}ZEFvlN>NPqiOi3uod0=1OmzL-_=V(9 zL8|tF^2bi2%MUE^ok+ztWXbdrc+?zS5 zJ#|GJ;IgeaBkk_tlr`iF;ca{{Ilhnn$3AtH)$94@UX~EyeL8icQO9r6%3aHjmoW}b zgVKE?N0WmHgqwO180O_RkwAA`yBGeme{Zu10cZvH(whyo=;t80!mlQ~o+V6Qx4hm` ztnqzsM1-r7l8sLMezq#I=Zs8QxBYL_{N}i$qoa?I;vkU>Ym_x`KPH87mpm}D-DaJI z@Iyc#>ke&Ve*Wuhx=wy?#nC>lk-6Sm1S%pzHsI~0m-5m(*S+=F?v7)a7)#Rsb#RUN ziQe3;gq%kPOce-gWc3^27CAm&;gFdiA494h)k(})5h}~vS%r{NYL<*xF~8{89JN!S z6hcch{Iz)K@sCeF1s`~;>m$V#zOQH^kSlk|e&;Tt(bJsYQ*$s*eb5q+q<2~NB7bl$ zH8PRsqb2i*syxi(rs65Y5gU~X4!_D<&7AOrE!d08DYn8g;Hnb;GKGH}@y{Q?dLNMF zCWymyV++HmHj2|sv<~(2Uo(V(M1#qv`?JB9JL<8jONUI7{ZVYJGC-*x7T{Vm`5X1l za>@!?7>OFhfKyK70L%n@lZIrUAvrcU@WGp+9E;Q$*-nS(tTSMxbjL?z z1DBMR%H(18^lq*eB0JFSB@zKTP_RPIv`_`7G_sc?zk-CcI;aLs#tZve>}Ca|x34_9 z4^@X6H=v=Q*j~?os_ix<0V=IMH-RXSng80q250pm)M#pXVxIr&?he(^3&Eh>$mAnZ z94Y%-_@c_?w6nW=D2p%($cek6!u>Lu-kN+LKQCyr)wom+2dGk7My9|Aj;M)h?tEh% z9lh~PvuD@s)0Zr=^AUgBTkp*!VPae&n`llZn^V`8%%z4G4TsMJ7QYn_0QxcLplSDJ z&xo-88w-c*Hbqx5tSaKyFg-0PSCfETQfI7}@7VbkRlGV|eousqBP?o1UUKP=K{O3S zC(ICZ>(i&h+W(w>VJO#9SR79I?fO(1_>IJ)(7*o`5yy=pM#LoX?mxBbW2l)1kq5_g z3CSWmc!}c&3z5F}ft|D6`cv%BkOscy`8qt<$3k)-^iPT>C3Se{CSsHcz{QJrLB83F zXoLdcUj(U^)~{hf~!JN#5_pIwJF~JumFP%p|WGTLll@PKGdu2>e0{N z)ivB;9q}Zz>sjnI{pfy)pUEa1@L=68)*O7G%(faYZIN{Bfq3p>oCUa>URQUI{zcr`nfxp?V7Lg zRWO?!GUw%W$4}(NM5XzZ^0>G-AT7~;rbBpf6UdMqueSjM*#Kij-)}rgTR$mzjJy*M znEwZ)=B2S2_K`3xFn3|uFc3Ychl?g=Ac#Yu?1D9kW-+I`eTUIW-1puAfkYg+LgH$g&*_h z9=t%y8Efe|#}6q2!G~48JhTZHuIBz(Y>bO}YMw8j9&9LnaQMK({W!fkY`t1XyXzk# z%2d6ABk2+Kfb+<U)+ zj2TOyw)|O0YW7+H&UT<11b~mpYQOarpv9yKPfr~kxs+CZ7D=j1xbLTu+0OtaJ&VZP zTvuQRilfMa!Sj7J{f`q@SP5hzjM?{S*<)|j2f+{hmPfmsNdol;9ESXNrB#YtVY=5O zH~tA)ke7!~LGc+NN+364V01+e5Qb)E`@WTjtMP5DS~1ZZwJB}yXD99fVJyH1cgJ50 zd-OBsPlxdaZC0o5XG8&TV9O#?MjfiMlrCv%zh91vybA_q_@3;>NwrY5gS;0^&aZ9` zviBn)0;9GfJbg27=B_*d0eV#JDh^Z{AON(U18hf(+0X9uxNE-va$F)jSu`6DO;ML2 z#e1{mWblInwSLD#(1>pn{|UdQeglSSxlclN+oPCF=z?W_TM(jVn7my(|8_2&`!3$t z0l|!GUF5)DSAM61o)6p9+=dFS50gbE4bC22OE)+xQiC#k(?wH8SuD6a2kGJqo=!(3 z*KSe`BJEKV3MKVdB`PwL_#fWOvWcRe7GSC1eRz*hJLz(Tf5ZQm@=abEf z{YH28`>EM z-a1;$Ue0$}kst0;n4mI=1=I+i?HeoE6i*+>QruE~QZ|lxuTp1}oQbE9z9{dnYBNHt zg9r&bVuH?V$}^YEARbh0)0Kx7I-<$jYVzr1y~RdxBfRa`b+fHt_EN0qpv>v zDdXz8G^Eg(Fh4_R`LuP;xUHmQc>EDLc|cP`1EXUa{dDV46+a1@=`LOK)G~1oA9Jxm zW<4F_(5N=X2IO`<-zp$?S%Kz9%EREFg%Wj=5}9KI0QAxG{3T2f-hBVWq(Qwi#BpWoKC-hJOA6*msx#S2$ADht>=X(s+2$8CbD1CyUer$JaV zm{?ffM_58X19|1mE~hlKwCIqTkc+EFAqUK;6O^)#zj*&4hx4*DKR=|f z@ROk6^hQkS{=umyC8aLV=S)dC2lj?Lr%dv2!VKkEM4FuZT# zIRV*S*;o@HJ+wpiu6!RehHyTul&t28-)EkXu#2ZTVy3fQnbeDS9N&NfYze z7l;qS=)asgrcv{bmzUKoS%|*7n~YdbqcP92`l8j;XuZ>*&pRt3frnFZWn8ZiV=*4a zovBcb;gOJSo7yQVg$kE5%i@jkmXLx#?DxiT+LMxLy#|q@l`JstNo9yBO zxZ^rkV{x0IRwriZJpE{vBdmJ!(?wVgQRzYgN(}nf&?01S>s?cz<`c^zLcc&-^Jd3n zq#ab<_}160AmGgIY-G`DrRbd{^NVN2dVN|)bP%(kK>qT;r&W>@4JZn6$f!VtyG-7~$O@LWa-B7uSz}Ztc!YuxQ4XxxMrhkMm zWmfH_-eLN*G3(kH*75nM->jNlkOTL@6TA=AFD{Qfo3EumZH&8^=176O&hF0E8?vN8 zuEKFt9WF<)vN<}5J@KzW@9c{gtS%3JS&Gm3fne=y-BZnGWU8(2>yv}gF%DJLO(4$w zE{H0r?0T$Rc=GCKU(m2hpWk4rG&>vL|0?YL+qb>|IRcV67(iXx(tmZ*PBtOF|;?BNp0LPwT+~=*Y40YMcA} zVrFJQ^CZ=yffY>AA1Ww6e~JPAkM#iZa*h`I%G_KD4q`7)PlPj^y<$>>h|Jtv6u560 zHya8X8Y!6{>zgkyfktOEJvdDJ@lg;U);Vi$@ARY9a+uZ1Ky7tAJd_RTciZ3gj@8xn zk;jLJ2aEooM{+ZXmy3h#BrXK*Ow|`S#Yua_#jxMai>2f#GKcEN`MTkPZvUJXOH19_ z$MuPIeizS)0Hi6dN^9jl;_Q+4=g*kRGexfhVQ)4`pz!i;lXiu%P3ri8S#}*5loiZM z?ts?vQfZHRe|=ySRQJ5`la)~Ea{jmsRdtw~P)6`v>E30OBJb9bVo0t%{5kt%JJOMN zZ~q`K)P1jI)F?MoZdsifE2+F+81@&Br7XO>GB5l5 zbheMXZQveV2f<<0NAkSOaxXvhb0?YR#z5Q4;21gV3@r7b<3?@f;=!C)iWRIKvoQ3; z8r@I&xLs=W)dc+ff_?>q>vrR+Nu5^OL>Tp}v1bbA2O$Dg=O=ckViQWKe;38KCk(Mr zyRT7yf62SrpV0AI-bv&xK!3Yp1}LuGeF}|Ljl`KrVahiheL}b)#$B_yCea^9`3Rs_ zd-D29`$^zE3RjE%uhiVKUY0iIFT2^sS5va1zoi)V^eNgLlN4#2vdp?+<}h80KczTA zU+V2s2GwDJ{=Qg~acc9>V--k&zvB74njZC<)!UCjk$z)h$DoNPDhVt-#(>1dG0*6~ zpEj2#7TQgEoti=rgzaS1`$BJ~*TM*E_ zG*5vXB^Ga=C8V^=6jq1jadYo3XT!YwfQp@-&`Gsi6| zFmNF5)7@r?g7nYZRWqkigg8P0+l|4{S$Dwj4QXicxfHwhlE3nK!~QAR#^QP%kuikX?b^1O$y*7KJ2;0Zj=Pz>0pbMKHZ_U()?{LmZCE(M%tly*I%Gq`=r ztKB`7bM!B`q24g>>6Sajz>s9U!R|#iVE3^`KZOp8RNq*BrYz59^w5N>JDu>)3w=)& zN?Mi{h-7=pM6GuLU!!bjrj=>`K9UdS_U>C3I?-g*c_4Hc`3K63VN3inU|AL`=hC3UZn3TRGIS-Cgr z{sTd^`_GV-4EL9jM-v8Y-TwIZ#53tLGh9cj88S{z*y-t%&uhPLWLXUw)lwFem2_0R zRR7~sUzTNC^?67{&#)=vajG{k`~Bt>s>z_p+S#LrI}oZI8EoHkaeumYVSQEO4UzdJ zU-gmrl>{@bwW15V^LDp6OFT;2kBwmKFo?jbj_bKqv5*Y%OCm`I;wrv4U8;I(MfZQk zu&aKtSn3`JcNsFp0xK-EV$v4qdt0+Qy#JjGaD7boz({%bv$S3tLOKFDG_9p95pJIo zDj-7H#>U?AaQkx#l#aj}O%ZW3y$^y6C2EV6QdOyH-~7~oni!1Qf{ZQ8Of0=xyE*%3 z=Qs=kXY(ZI@LgWlFC7N4 z&LY%G!52SQ1KL+}clRB)F@iu}#KZ>YuOj6F^POFJ6^H5{~Zg z-JiBuGnn$u%d7T)ypk@S_oQvfreSaBVrgF`;d%JQlP7j;>b$h9f{xxh1AXrj%h2xn@+&W{h|AWK@lh$Jh^(n#8 zc%v(ykY(F;Zn+-u6L9o;?i~73u}apdmis>qs(PgtOizbUmqA+YlGqA89-!wy0BZAV za>A1OS-fesk z{{xw2L<+ECB$ews{NUu?ay70OeA^=RIC*<_n11^L<7#t>>bo6e$*QnT6b@t2<*8F( z1)P0u1`^01moXmMLv0d(SwWh2F9DAqz|k!N8q^^>>SGo@ksNlekph^}w=kcZQ6c7H zemH#WoajZicECD&Pzaf;SkHJ%-p<_2bZMA%nGRz$xORK7b+%-=WSNOUYsg#%GE#DE zptj06qS|e-qIlNzA{*;1D;9E4$6EO1!{!-ZDygXQDCzQP`tBxMr2c49(%ggRN-FYY zGT>BVlM6YOfc`YSumW8y6YIDgjJ>%(2`$@ND*N~(${DjEa6XzSo}Z)frZ(Dm3pXJf zNAZNdfBh3}=f42TP?7hYj8w*rGTf=ZVSnE(`p|87U%3VJ2XZY4)3xCP2mi5Y{_Y@W z1Du@ReFZBLM_H4zCjLr_JNf9wv-eT+d}&M;K{;Rc9TQVH&{YfQX)CLyMr3AYCTn&F zcj&bd;lP+0wjOKW>-C+aS}?6zsEU0#e2d1ys$sAhXSR!uGyiqZff^m>ug~Sp5nm8B zclz_BYSYr1W4uANky#aq67&NA-)2I$ke)p`05$6GrN!uMQqrl#o>gb&he+GVBIBdIYmZ&!Ax&NqsfK2Cp7sV+Jj*$+$^ ziRIUVIm^j-AuGslFC<~4(ujSCa8&IX|-Of znKg^I=#s#j)iWR>BSR;BG~|@DNFsLH4i~;%wME_u!@AkoRthP8IkSG&Qji5DAo*8H zjz!Y(aN0h0jL8gJak=y->iDk*6Y~b8I!%I zFU@(Mj)t%KR87Pvm?Wzx%^O^7B}Xr7Ru~2~C&V)I+~J^JS4opKjt+o+csW~bn>~tL$sC*FF#c3wOW3aQZ>(Y^q#~4 zeXq8Q`)3@C5?lF{yjZpsD0|RdLVNKO?R3|5UHDr_O55sh z#j4lE2e&*BoOHs9&p!KCgx5gpu0*Hhv?JN2 zrBth9N`uKf$=_J4yn4&V7U9P|hFVY5CI~9(;|@fd$O_jcY`B6FCYxhYw!@hbBPnSxh)lx_oucu~uRt!OX`)`nWKNzj;!;{^ZICg%0Dtdu3CC;gOy_J2< zBFdhFD%Su8^Y`J4z~Q(${BNk1q6idHY)> z15*4`&zf>Y-4z#)o>-^`BeK`0GZdE+b2P`_Kj0J1(fqoJO8FeniUpE?VX2_DxCI}G zd06C}v3TXOgjGj@JNJ|>`lre!RId4@`oyobHAM26nG2Ivpd3oAL_MqKL&bt6<x)mO+NC!^(y^L}1v!(CEYPK4b5yNajpGlO{rgHgho~k^^7}y^n*T=vnlbRZI}~kZ;{G@H z2o!t`_@=}4qG@nnUwI0bt$NK>f%wav_VpnbA&<^tuB*{@QQ3R+*y6F^20r`jh;_`x z>TRXQGuyIe%sUtT_yZ@+%vp2-@%d&XHI=<$Z~?WsgOh2HNGvf2v4(;Ws;&vmKP)FzRRR=LCEGXt&V1dK)h2v;Cz*}+3(*)1SKVfX(KFI;PdgzkwZIbx zg%&!@t)Vh+VV>l%nP0w-g5ZD+W#_b#oSK^0W|`C=VaVyoA&Zk~p+qYI(+h;Ep`kd} z#5pjOc2RYGr7g2Z1(lV|8l9V)(Q+GQn3VJ)hMir|y_>!q(VFTBNACI-a^0B&RmFMQ zafLUZ;#y%BZ;@=_@EZtv{`>|pzY>w%;9Z?_U9Z#t<@$X{bJW|bL(hF{k*ke(Xw((* za=!TSbAYvnXz~kL7f&3JX$h4BlUR3YR9lKhmYAX^)@Q%F*NyBh)qPNNexD1voN}MU zKxc{{vxKWL5!$FJ3p3vkqK@v;ue#&HSnjH8Xm(I_$_6$uVT|FTDjo74@p)6gFHjGY zPVUkJFJjzIpn>=2F$(%?6_>5c<)5#JTdVa#VhNPxzk3qv!eqJsO$TgV*2-n$m-#y3i}Rtr;u*{EOwOHbN2&lZsGAdQ8 z4y~1`4!!tg#qnfB!r+&E_*uG$ENz(l`avg>%*GFaM;x%ZP)B*3S>dhKxIEk=9@F zb(Lh4$5OVpN479QGJ9{IY6%k3{X1}tpFHzWgy>x2@bSn#dljX{_~>L`2?4c&&&!+o z{0GXXNN#h+I9eRhhC*F9?7yvlf>$GxSgas+R1Lq($HwU^ z4-7rpFbL?U9VDy>t(mZoa%7CO3kiZA7^1RuC#xs-*1j%MVaSB(-@M>Pq_d&$kQoh+ zI1ZX7J9tD#LvyVWAAb+8K3THCvqC_iVI-%Ob0i)LC?v0oYhG}6$zkIkYmc_tw!U}6 zUW#8}XqexJ?@qJ03=vi!*G;`^BUstXP0ZHZ_rSm3(2z7r)mtD>-zj7DZ|&clv+oqr z6L01uv+0*l%RWSvsf&;)5;-{bp4`^efb1IRq56z+_qL2{A-QJNOdGCZ=H(GQ@@dUg zDjn9>fEAwFZjdNl>7*uH^-hGRyvDAh>yQYB07!^XJ&e}do$CaE6^WZN--MXVIkY-j zg)zEU@?Tz%2i!8@NNT6(=N4~TBbK8C24QC!j8Qoh|6A}BGM6Cp*^US!baCkFQ9rBGE&TeFh# zojV;D(Q`IQf)d&{3yw7Tc7hVEI*K5OdWojPF94!Jlro{G+a8r!9FH7|5YP7OnzbU5 z0)j?ZaUfg(D)@LlG}^jb>Pt8lgFQa0idw!9ozr9I^etMt6bCyl9oypA^^l>`qMq{g z>$#2B5*agDE zR$M=|W^kv+>k91Z_--02hI6X+cAWCZ%{4v-y}88$Hz@piLIpJ5W+S?+rO*SlV)^bo~i+H?L=s9lpb^R#MI*WPbQL-iiJy(FPzA2eB? zA36Jj?bxyY0plnYyM){~->z}Sdr%1Oc~ZK!E3I6|cKUSwiRVb0R!Zmrrb3F(T;nCq z9V5JJ&x)B6yao0e&fd@-di2vi|JJCj!Ji4XQ9DK-G{RRAB82}9=Fej(hPpu>Kg5No zGhG+-qE#PZSM=3UkE}?0Tb7S&gIN#Tp7Q5TPH0OnPO)LGJ)E5N-$_G_ZeB*@g*9c~ zw!KAmhIw4K@ExQ0{~lmMP!Uqsi38Bri8>^Xi8EUnufEh;I6OEjoY`GN#=|Vy7QZXR zsN2L`+RuQ<)7p)jbyLUIW;oJq$?|WJu}BbzLLVEl-d`4u()(ATk4QV+` z-0Lk~MfpfNVfD4(sqK)&`~`-uRHQ1luE9cqsuzDWF{6p$J}oNK?Us}I)& z{3<8K-pr;3sAwVw64w-c{jt{tak%9%>5(vKO0_q2H3_j1sa6WaAnHdKG>L!pd0>cl zp^p9IMaj3-tx_r>hc&nB+K=u#qKc%E2C_Fq63DMo%jh-01~J3m*PsVY$PrHyR)jAJC-cO5>{!P@^u)cC5f674JB1t=?o3w{BfY-i zsE5<*Jv|}Y#`2On9Gh~Nz)4d^BsDZhfmqAnFD>8`sB4$FZ-kZfBw9#qezK#F3oU(@ z75NVYQX%`ixgm4l5tt*NWJEh7DtL#?#ELs>x2Fk(5!6)+zz8Z_>hrCn5pvIRx7RD@(;rWfA~ z$}8Zo=VuW^Zk<~jrlDwP@R6gxLowl_VOWjCW|ESd+*AhwsyyI>B^APaF`sr#GQh_5 zYj%nu?)qNZQA|#R`D_Y*=Gi+1F`UnHT8mX!?Rn%!Q~pueCVrnkGv_(;$R26%keo;? zt9t)C_A2Pd()g|BwL(YZRsG4L%sz~K^y8}LpHSVE?7M+^uw=VtsJzLwXmn-(O392h19YF$z83(4mXgPXH|S)r{bIe0MAv z>u=z8%6w1#Z9>(M*4}o@vJGYF)Bmx+)b#Xf%ge+XGP|fo&<9?9ARZI86_B5Z!o1v9D_jMLTdf-caH)@25$&^ z|8QJ0Qh0rJ8#x5R+*oJOH45cQNUQ;ft{i8S?H=gxkJF5Etbdy&G=EB(^N6)(LT`GJ zJRAA>!;MGZnL}T)@$H)fj$i&_i*jx@!Tw@_ywfHU)eqjI>V8k@Y$GSlBt4(Mnu*w` zV5I?Bgm_d`jN>op$Q80YYiMa)tw zX~pAnJwtdU72Mxi3wjTXyb`MJ|50sJxshVS1@R{6C&V?U9$v&xVZzj!eRp;!3s}6* z1~N%D`RTn<{Ux}i9#Zn_^@qTLsk0}3!y$hEk@zo(wFT^GntMgWU3jOYxZ_0{$SO4` zyjR1NF>0847*C-C?P{2|7%i88;!A%Is^>rZ0;JgOc&Ejo_ScNU56mp&x*k&rVZWqF zA^{P&pmt)M)cU!|lW@u8ce`Fl1eS?t`$|cAU7f03O|A%M4>(vq&L?*gPt?NeRDGwZ znRNodqV;Y~;SMU|sg8N>?})$&&lk=|c&3=lqt!E}KEdGS(v8G;;Vg8GXwAm-$3H(Akb%Q*;&);W zPg+WIKH6-8!UEIL&T0W0ZrPBLg2@)w%KEWtJ#p&iJkSbyU`UQ?ZS=I@tHC;T7KWmZ za({%ze$y@-$41v|ah4`in6;x^8f(HBlP-_X%6PdRoM4kvuEQ?t23ES)P*TdOp+WGB zhl5r;Gv?>jkDLV*#(=C88aRR=T$JZYOHJ}?+9Mf5nEZ6y#?u`{8v1ye6VbUnqbuk%?E2Y2 zp|XHkac&cx4;}fbn6BPM?;cHogO?LUCsG8k$a1;CsM%z*#?^nWbG_#}ws5=|lw49r zALR(bufJxI78pn;Gd95v!0jrts zb5In#`Q5fB#&80)UwKHZY^Rqmd$^%imFi1k*On^1l!r&&R(^Y zrB|K?)%>_2+kyPl{R=taPr0JvnyO%pU%-;L0#UW6UZMJF1#Lc^woMtWv)F{wagvQ6 z7_MerR$@*$X(_443@X&VgA~B(vRUtiiT~>K>Xsk7U&e8EbF#U_ecX6`H|R;Id07|n zeK^YMi~iAwQ-yh^_YOlx?$(Vc-%PF8;KAuz1&MrR>;TeSxHR;mWI{Iyrd=GOfE)b7;BPc|d64KE=S9nxP=; z!FK@1P??T<+!14!-(?aw>4q)L{ji2V=>x~}-%iwK6>#n}QF9DrYmdsxMzF*8#hW88M)XIfarxGqn z2uI*JCc4K{C%y_a+P^>@-uJTjNy3jV5vA;v3VwBzWdmjap-CX1Z#@mTe;QK%@KjiS zD*H$L1e?-mfBW2FSFe>^bbvo<%9aHm&jVnktC`LBm}lk>II{JgRPUA@pGcszoPCO0 zXJOJT(|wS3@Y|E71Dd7lE*&NR1&UESDPf(*CU#d*1qy0;zzd0ih1IdoI4Oh{6<#(! zU#9+km_ksm`?yU1I?}=`8@mG9U)!+EHQn%XZ;6LeDj2_6D8pCuiO82|>jaM4k<;q8 zq?2PghkyFmugTw?w3)yNM_>jaTDycBA2WMnJA1T6!z%*dh*z`V26gN9qQs1wK4HeL zM}o1bZWNt{h73-_4c_-EfwRzO;xCFS!N414JdVp_Kz)1dV?1#@euix@)a7A^H{OH#CKng?j1(&swKGYKBu zP_!&QZ&#M*l|MdAyY!&eB>-Nrf9^|iVN@%jot4(_nf~nhWT62Kt|A|eKmfnxG&D2}4iBGktlb970BU14OP{z+H2T#hVAm3CDrx)lW^21M zi&9_3Y%q@K!hz4GL&$6Q1K|c?38Yvy5P7G2Qn@+oeu00sY_(&xeDQ~7vo|vQ(K2l% zn({@?`68KsVVQ3Pb}YOMv5WUT@b&IK5zuUdky?; zyY^J;bmap;I}IFWZWhh7zj;F3`As&|tb;(19OG)}Pjn%MRHHx;o8BBuTC z?T*zU>$_q%`|YB6?+K+x^!<8&mhiQqUPo?L*1J=2ZhoVwvAMq8)9{O|9Y zr!nT)ui!+wrZl%lpC5f8Uik|Ybz$HjDqF5I%%;-ENvzGl+h0uf+e+VM8z1MTj%ro8 z6HB*4ya9*n&7x;D0@+{4IQUhfN@&!Iz)jegBk-V;xJ)RI{4^YPfYw}x99ETg@tPt4 z&_QPATY7r>(Mxly2JMUTz67?SaCtC!M%8*_r#RS>xK-&|lA@aW-x0^ij%_S|rGJVS zH%!&YiiC~km2Y;2eeAI`@|IN!55<&@$VZL&pGyBb7ocQ&^|F{ng&U&NJkbz|K-R6CuV#G2_5@nH=kEF;eiwY184GspgL*f zzk{hqubZq;D7meYPo@8YThZ{COzEn&;CmwQTBtK78rrTQy8YP1n*@GbK#_dSM7-6%iZyBFMU2Dxkb}^Pmy!44@eSr;89E?IK{lINeA>(j{cI4!$&{AVP*Nixk*NtawJ&E@j=U3N( zRxKFQ3)D-eO;{jU7i#5x=wWfQzZx0b-ss4oM*{<}2%)zY?3C_N*FTzynwlipM7v9b z5M#dt1JNDe);k^|CO=c}9v7MMv9xG&3<64xfOKLlt&-i7*Q8%{ep7@Wy5)S;E4uuY z^!{ZE4TWQFjOr1<4IJ+j1k6mU%xB|Bft%m-;2f&s=xmmfSSJd@E*mF^wMv8xk)^pyK(!AK@Ta&WcBX08!^U#%dtQm~P zMu<0L_x+EyJ^0HCz8y`#ds#Hd;!onX1lX6B0e#2(haf^CaZVJC4}?#}T?T6UYIXY~ zz?`7+d!I{fCw2`|OmNj;Y{yQ_9~7=0JLj+2C&|F$HhdMwfSbmAj|^uk@Ke4v&?1b) znHIuwo_|W2xg}ib*Vb`B^L*s~(q!?<n_x7$5w2)U^ZF=>r5(v)i-g$zY_4qaiGn=YCus6VI_Kvy0v^2Qn`IS5S$nBV39 z4MbY_G^re;^VZQt@BIm|OdFYky!__wG^UTrN zZfy52aqJn8z=<6zJBRmm76Xk~x|Ir7#xvxl5x3dc>J5VQ3M_eTWcn{2z6}xcqoE;9 ztlN~EFCAlU6@j|^<&e5kTE2@s?WE_J(0;C6IBK0wV9jxgwITEC*jMT6C1xYhcK0;m z_Skgf(%H*xw1R`KS@QDNPOEXG0j=L};MT5?xSfBF8@x~D!0%bS`kf--CAj|&aKCeT zF$?Z78vaa4i~RBLHBqeql>b*}^#M{ zl}U-#mM~PZ$q%y`A8zug>^*v*F~@%IuXc)sdh15pERe$?8w4rb`3~7-u^u${@}QC8 z47I5Ng>ra9%KLnuP_r>}OMsO=T_1~^1xF3N0%ECngJg~&h^E1;55rgvvAjY=>la+s zF4)Wop~Bdqw)eke(tLaYpZwadVLQ@7*?;#33OZxGJTyJMJaR--`zAa>pvOQ-Ca z?6dU8Foaulwav?EE>-9oEc3p5HsBC0I$tqF1NI1XQcW)a!Av5H&8E@50H-EdAORaSYq1F!LcX~PfMBzYlG?UcjLO3e6$0~;3)UN7r}?ylzv@Vil*K2j~+OWZC+Wyl%;t&i#L zFDBolIX>*dPioL}0fbs*Rn^|B{i*-K+gpZ3^@VSvguss$kS-Mj=@5_x>F$yak&+gW z97K@@r9)b}k*)!xq`O1985)L|c^CidyyslkdC%uFA7=Jmv-W0&S@(MSxxH6|$qkx5 zvY>#La+|^Arsg;2yMVBd2ZHc3IhF7_GR~Xo@LKWTt}+v?TR0p{7ty~GWjASxCt{HM zo{_;hsGqqbwQlg=8NZlVIv9HiA61@cK)iM%Ags++a;IOC!?Gs%D&_9s~WM?$IIB zjDzZlYZV95etto{of2pkZQZ@hkLfeB;7aF~H;toJ*0iUyTsKvin3yjoMr$XX2`&Va zhgQWWbYp@?rx!w%K>~>4#-&>y#2vGe>kQ^OW9$i^`HchqJ^bT+T&8P4+=^3*M(HAc zw49m?pi}^U5muza!w>`W9>tuwoP8O6>$OmR!p%wlm$}HypZ$fsYAD=$RU{9`Y=rM$ zl}*O%bdT7TSIE)a)@Vs=etNxhxhT6&MOq0y6ecFe+DGA(Gk!^t2Uns*`BM8g69K0T z_~QyLcq)&6w>wPL>h1ZEa8})Fei`Cb#H;IY56Yof=I7=z;80K^5Kr+_ zd?%PA+IzXhJ3K>Jyp?EO)UxZp!S}BK_4(frI*J*HI%1(5>D?Wy^7D?VBp`WdEkKjV zw|v`#oq11*QfO!K22Jc767@cVkZBqha2WfQeyVtYn>$F^c-; zp4|DG7pbqd&t+`kS~I@ve%Zd_swdYo8w$AhiQK0Zgz_+vPP-^b?9GTGeaWkwX zZQubpw~p6)jsh#E+-aNSk~WSPX9G(rT|+lPHoMEMBKt7{dl9`POU}QC@NM{~_0QTF z)GHA?nz9aOvy?99FXelOvu6vvyLbxGdr|vC74v>;`*!q z`JT4;nfmGur``LL?bbajqUitEm-IAi9g8R4Z*v zVcWZTgi(OdX{zKzz~W*Yi#u&dMo!MuQ?4MC84%mAt*t53Mt}a?fqbT=zx+&yhCpDY zd75wSkL&oB?~Fj>QP?4aI1Te#cCtkE8=c<{xrRu;ktu1Y5dJ^??sZ&0%8~7czrQ)=|ny=cJ#a!{v3Am z_Uh2N#QHlISt~24ev?a*j!UsBHK>Vu_JY2UX%NUl`KiX-i9&WgAE`_I?>X7;IlQca zD(5g`PE@};I3XY~ifUD#e-iZzexjw+uaU2wj@N#?rn7X>I%c#YLh#0YJ^MAphrj>4 zjHS@je-K~cPlUDy9PMa}c}oF>7E9!>$CIkfAN29-w20|$uR z|8tX7+?HPBtc$9cYnPuNXH2{_4Gj9iN!fN58(#t9J9fIu#2ojPX?aG#Re7@Bo5E|2 z0}2V%#o;m}(v?E~$9&Yms6`=duZ!4V-+N-{N1|y(Kq}w$?d@;Ry{mjvh-$oB#?bj+ zSl}qt75pN0;gCsOJfq_a7U0OFGKsRW2ynXD%#!c6Q(m|jhdnm8tA^=BNqhNw(5!7M zJA!KM#4xi0rSfnssV{%T5WTi`&C{aS1Fy7h+Bg`m=+$}<>HU|e_gaq^R$6bIo3uXHZ?~CWz;t$`@s#C$Q-XNmR z%zFBe5HCb`@}JE(h*{Suga=9fu06bX#;&TvcyjqZlTb1GSILjol$89mGw*EZ`nr`{z0zQZ~8j zjE99!@awRJUe0Zg<h@Nl zdqyXbt`)zuQS7Hq?dGu>_@kwx6Cbkr*3?w3H<~tKdvbc3n3#CYB9x4jwCdgULRqx* zPK9Y}YFC#`IdaQrTAA27uAD(cByG9Xm!$4gzMMbh8j(-^cW_V#&yeGMO65*iH#{=( zS9y6f=sf+LfdLgj2h3lvVfxVDJfqO+d(|^CLKwKVW*PM53+ULB+t6Te7V$5!Z*zR~ zq-bN_Q_Fs2dmR$cHypXx^9i$y=l;kSJLXWy*bir6ntf*Sk?#IVtPe8_`r2&DkA)3H z$)>W$7&+rmOcGh^NwwS0p{S4yxl(RZR2FN=pNe8zfR-H!`4FwRPvI0`8GY{3WhUrj z`P%n+Jqg6oH?a(^H<$S&Dah)crN@{*MLgkzUHC3FU+&+K`rr>Hj9+M#f(PDf?3x?G z;R@l(fR$G*c1_DRjefX&?HNjG>D%%MY>~UNzgoZiQ3&Plf@3%SG)zRlrX*~Qnq75P zO+?9$f)XvPx@?9Cdo?1{iQr;;p79J|S9sQu#a&lHW(E)$%ksEn%8ON_uQMm>aAx-KsYZ z_*r)P=>NOvKX09^!ZQ-p+Z)frt(rES#dS|TAYWi(W1I6?5gxMA*pDDITE6nx!_CQz zi7U_igp2Z42+L(gH+B&sxKeSWb0m&;r z#KAbe4)|^D`d-IhJW5_1n{E~+T3Y+P$s*d^ z-e}9cNu#;A*xcJ34PPy{Uq#x^*5|XDfC3;|Q9dN~Cuso%@4F}Zglau26|~?+Wr{SN zcZ;pQ^_J!D-@gYiLu1o--7lW1bV~?>V*w{Z` zdp)PL+TPyBqq+uuKSAT*(s%9hYo*(Kbn2Y)5{c#G_Q&+fc$@maT#% zC#(&JV-v5X;Gy^0PF_nMNp6R=3x`igNkOM(vpim1Tz?DC>8YtIKu}ZOdTF>>2M%N< zI5<>a`8%_dMTEfT0Uvh0TDp?1E-7f@Z>W?W2Z%@jTtIOZE1+7_j&7{1d>oNy=V9wW zwB>+>`mV|#p71TeRhOafYVk|m0I~%RGTc98F;jfsEFyZ9 zrjK~&=n<*SF}0VLlF%nZ7Z_tBy^83>aW7rBthfd>#r+m=-79-!ymc6MyT234DNQH8 zJO~y7LN2cb;Ki^XCL1G%&FZv4tIyZ90ZpgY0|j%;As(@#gz&&b?o zN+9W%0uHK09$r*t&dkywuIQq4$k*E|c}Pub0*tWT?drPkOnz{HV9KtHvZey$0b>D5$ z^yqLQZz9zqvs{)IJ}BM3p2ND*e!DfUqFzI)QBQ-?cQh5pmFH9KdvQMNRBMnn_K12Mm z8qF22L;C`=%0a?et|0JWX8x~CT#2-jo~;K zTSdNkH)prsl(N}l*Iz-o7zE;oJFMvU@4h=MD5~Zyp554fmM-d2O{K3eLd0$LD(B2! z*?vY3OkF1hV%Lq2;S02-DHL4xJX*)r?VfyM@%6zCYGBJ+F5T_b*3tPVzsd;wK>X%_ zr^Cck_6*0yH|2Z0n@o>y0i5&OUE>Qg^f1W?HH*zqAH-@=*Oa05&}_Y&Le8GP&f-zn zVzkI%gC!2RV06Yl2PcI^TXBg<+AB#^pab#&x)UJ%^lm!+boG;f=E3s%^DGyhB8O&L zhd^4?Pn%b&U#Ih>lUbu^ zMdZdDILXSw0>ss*M!ACjbJyp+gz2aV29Ex7*|gD@Wud(FBDOf{4-8;Q^?&^2CL5LL z-NA~Yb>3a}>*@IjFw3&6RpChDC*a|ZE? zbL9mb%3-Ryhom&aCh8*%4lFEx+cw}_EPwND7Hh#6Y%K8&TNk|ET;aSz7)g#7Hhq6* zX1FlKfK+y9hM(U-e_JhEdm&clc+|AK;A-$W}^!f0S=5nh3T!rpqXnQ_P1 zcRs&#zh|@%{*;R==9SIx=x-Z!-ifQRIuqY;wc5PBG_OXVNriF9ytJ)33bb@lrWW$3 zK&@{3AccxJ?pE97AlaCd*yH4ehlhuzniljNxKAFgTOE8$(t3OOtnhcrIw|Qp8ym3O zKTrSirAYXQ@m3Pk+M2Y~3I)5~L|sb5HxbM4 znaRuB|(8$bO<2JMf-t_Um$gD6Br*_!~#pYiw*>+Eq+S z4?&<$=t|(8sV9H#ch3iL9dR)9#p&iLbq2@{I`&+*`W~e(c8)5m99EEhRXoZYf?4&7 zfn4)N2|1AE$;BMM;P0e&PIQLHlougjrr`ZFa+&~P(bPNI>Z^Zg?O1^LK%Lhl z?7u<=tj7dGD_}P*FqpiLF**myZ(*Mm9 zzLtr*^TONd1~9gpsLQy%?r7SrkAKKtJl~rNi6w@g^^8bB`gg{>9#8UI#%@7@EDk`x zwM%(48#RKi;{t z5?%UpYL)Jt78HpC3DXEp-kW_(^SAqN`m)#L$*%jIMMd*o;5sU-614WW=O(#FS zzC7Gu^812)&DRnwbi{eLL;ts+UZOvm8i^Gc&h?E?wAo`3_>4i{)D4&a@%of)hv19A zea?tX1GbHpKY0mpLC-kMoW(l{sXg6pK8O{lXM+Ahz3Ug`5%VbJMMc?G=FFEck-j}$ zw!cGlV=Ua?7e7#!=$E}iwte}CcOavxiZAASxiOgXDpeg94+kg5|Mv23y*1|gtYwDs zENwsDe}(=2C#(FNkZBpdZZvP(+ndJIPlL|o>mz5T+w?Gh89=NHi15Z$N*Wqwt(u_R zv}~-bPbPHFrTNo_s#oVEDT#rioZ6+SuOBjH{{on>*d$Ec?955q1arUAOa6B*06prz z#y|2DiE#s8u}S&{2fOTR1$e&JN>QZkU3m$oCl9>`c54yst5mKRL+>H4SCxx0=6P~K zzlEL;0=^Vw&zU%eW;lKfq!I2-n9sPt;taq9YY0lm!+WXCN3y0V%Mz10k!_w<{e zFOWqz#H=$H6D~0|ieor4pp*PLWJT8vXOYa5b zdI0HzlMbJfR|ceaLX<=Be%v0+A9`-)FP8@(K$lF;CMxY6bn-l|Iy+tbCirq~K48S# zyq87leh!s&M%VKn3@R>WwT=Wm;y&)8;^KcRXjUnz({Vyr^oxrTQT3PgfTsC3QV{!p zym13<(UuG30O48M2GE|9;~C^4`G2k2N4&zp7usvCbG7`L@_u}PiJAK=0$aLrdmHs- zLgJcq()DAex`nf|#}$+(W69ICPwn2AIkuq!ZMr-nz#Y6ScioX(wG{_yJJdZ%B8$BL zQ2c~wENyny0o;OU@?=BkjDGTj@$yd8(yHRw^PJaK5)LN(pOkMNQY!Da3d>m-xg|63 z4K&-#co_WBA=z&=IqPq5@hY`UCTd=2Iy4xMAoFUML^JAZ>e5^h`z{FI7*G()?A_G+ z7UjAaBHX#bZuMS%#z!Y)FSsNper~Kbyu48A zLKd-lDu@j6r&v2_v7rBET!RRvtR#Li;uzu4cyP3pUTBp8d2w;d>GSb4PIZ2v&TMo+ zpf~>FN&%OQy&ZZ_I;pGsdw1C*-_xTY6c;6R0% z`zju~Q`hy-APihGZtMGQbqqb~_954;NxR|6smF9wQo6eQ3A!FNcIYX)x1y#Mq!8GB z4ht)5c=R)#kKso{1uOSm`LxZu%N*Z`eNp8J_~{E0X@ugX!&(E6mMmv$tX^jZT#=;b z_)hRJegh5=#PY4|5CRpT?%mZM5V1_b!NH-sFd$QvHtjq;>$FJco4uTIaB+e6iLqH< zeQ2oN5C1R=+^aR?c)!@;Tc2d!Q zBv7@42aR1&ycU~n?bL~M%&>`&0;L@*SAthHQ#hp{!y7EkmO&VOnl!L=fisC9V)@hm z3@!5`9N+eCp(wBw6x0&k;1q+F7G`N}d1b;* zL$;$@P*{{zT#C2{uSsXFXpfA#4916~hNjtVSx%LX7M;SNma(C?tlCa|YCmz)DwE;0rQZ}c~$6&{P zzCEWBS140fSlF<`YLHDh3hDTVI}U@IS3asyT1k6Q1HSfT$ucm0FL7&KAESm@k@4Ue z@<|b|GgwZgO24I~>F+=0rVS=~dAS>AC|&a$#V?=myT)mw;^O4O)Kr6yTXD}=m#q^E zQ(2$5r!=I6ws{g3$e1z^z$AiyUmDEt*@#kG}M9Wy(E%qMSeD?Oy~<(Xj=ck$su zvwX0n@#w*M4OhuUCS*8xl$=c>g6CKl z9btB1K|pi;x|#6EN+T07=!=luL-W-#;nGJ=O?zc|NkIbUnkaw0BF~esz852QP$L;# z#bGT`67rYJIXb6QG9f*$l+)DrN1LyER;bKe%&Pv_8hc&Af+%00)`F~Fg%k-L@6c`|bFL7`;o%KOJFxUZn&UZR~ zFv!RE4z-ro7M7^W%9fe!slI#vo)<{>GD*ulRbV=L>n!f+Vu*l|y-5}&eis*)%8)ng zWE>M;fEu8oqw`DW#`9p7=zG*Z;Oa(8s(5NzLh=j+ zt2lr&JViRemu2o#E-@Rkp$+Dt@5hiLWKf5ejLg?+$MIi^e(=pC&>{9^551(fw-8{2 zTJ+g3ql5iOPakTN_cESbd7e%9)KX)=9*PHuy?mf zsfj+LV&KHg{@#6+?M!#<><8$m0;jt|^R+gQeIQfKGcL*mB z>6KrF14l51>{rYIHjWaa_0472{{&>>^0ps*MhQ9NCbVHjXeb;5 zBDG}xT^I2%%0 zoPq`W_k;-268V7CwqdB3y0KZ7>31BzI7ml!@4{-atte8O9yub0e0chyy*}~|Hm&rKW-3ivd)a|gA3rw#iHD`_-xk**%u;D8@W8N$haBT`m$Z(xq6hsqJ9- z@A#b?fwT1xbjGsQFpsM@pmZQ4&}c?A2?zPM?;1%dUy(r;upBEVDIccG27T(ND!ec} zxwaypp*_UQC?&NK>#Pa41MV+`58&2RvM!t@2N9*QrmWhJ0AM9kN){H`5av{eEj>mml?$tfO-&PRF`rbDFq#;cmN2e>j^#-LXzNLv8$ zY#JfAufmK#(9gmD$qfY{m8gA+0|p7l&x_(7LPbUXZgDsU-oE0mB%t!CK**YLnDuiM zxmok6&vP2oZ$z0Z1y&?-vh_s`wZJH(CYOS)`fJYEIBWA^5dnddlgkvhR>v*=he zL67cU()4k}O!>476bN)h)S``VVlYiqhd1ScQ(7z3+m|qk+B2~x$3+I}PO%PGmCiMK zbi}_)uG6;|A8a)!$h`34d;htRzr_8*gH+#uJ2T^Fsqe>7QWc!zzN!QElu9aJ7(g3{ zJV*f$$1$l|c88OGSg4Caux;2+xnDT6KK`0rG+j|#e99eoc6xezcBXwEyvvGb%+cp9 zFu`X#_MhECoggSkSyFkySi(5ec(wRZIAA8%K zVF0TAzPHjYdUbg#7gT9?!Rmgfq->Z&1=XFj@aEM&nH5Egn>jrb4@GUK6G{%`^t*R7 zYxQ;xL)&y$&ySf0kvGZ=$jm9Z>PiUtvT%{jDu!r9t8xE2ba&E@OSV+lImN3AS&<6y z-KIs1*5R(cU`*MAN zEy+ZO_kgl}#@HR7Deixk6D3_Zw4N=mEan!UvV(ud82zOc%7T^IJiREW0=+wiyD3GC zQ$7)itg(`1H$KPiK>ZA8+2hi3hwXo%Gzu|?h8`%nx$#Qe8%NfgJ#rm;<99WuROhtV zF;%}b*i7$_^JUn-{H(*4kNEW_6AI{O$W0aHiLa*oMJKuTNZVaCN~sKy z!XHmY)1u2UJj|#Yxz1aHJmO$eqo?!wer0Gxm|2FVN8>eeIFo)v=u1=<*zF#S+VZch zNewnv5_mu9r?1m4E_(D7c0aEky;S|Yen}K90`qp&Ze^5cZ*X*4DLG73YOTfg1uazXmNMMld`Jk$%NC}E%b zVu2wh!g<926ejI%Gv*{rNvz-)%#8atZYRtbA zFq<;CRz4ocHS&1v=M$r2_%^7wh@`=T#bT;Vd1EHkYcO<#TVIyd9JORmb0B<@R>X63 zcGlL~5ADg5Cw(KDosT{!uPiJq*f&Az>t9DjMd{ttjp(C+SYopyX4gJ!srj|`^b$*1 z#(5(v>@&;$QM}L9kt*2MOYOo6!*wGDFu$#?9sPkpXrz*(*Xrc21XEeZXGzb0@|D_t zwzv9cpjV!7w7X!;Nlk&-JE`@}9L8F?>%>U*JmQGp0k7h$RP89fF&@?98|{r&IymGu zHcA5#8%0SudvYpYKDxI3;}7PdF!HCTrw=(_cEFX_X`Nf^3s+VaUGyJLg%EnthwK|| znK}CVhSG#4(|q0u-rc!Frt~05OoF&+6}G}S#p4anr9AkO#;?iY^;hCt99%a8+t7g) zy4bSDE1LmmD@DTE2p{4;6Q}c?QqMLEz0v@eIFekaX!6CNvBinClhB;*#lg#xTxHwG zv5)pe2e(F$-pK~rbj7|OdOmwXu+~3i6r!j73ASWBz>_e%2|4W>;Lo z479*?p%5_E-rM~}O;uGVA?4Z1@$MruAUw(ZEb02z*dHNBIfZ(eTDA9kS(kIySX)bg}*HCkCZcy&tNP+*@w5QHT5+N zO`lQ!vL_;%OIZ9#5}&B=GFQkZ`1a?>2(*CvDo_343UDDeDL-p5CE5G(V-WO5&&tm3 zIC8aY7E}{eXX%QEC`b1gh_Kh;erDjj1M(lYY$QjLANNSn$$IgT440-c}#sEhZ$E|G}yt(23KJ3DUpa{62s8?Mc1f7dE; z`61(cJdz8h+u{K+|$LT4#t z;vovk6!~g(0d}8j(Nu_lh)>-HwNtq#h5uW#oMw50B>~-EtK&ih(gmgNKX=zIP}!D1 z{uJ?&Sdc?SbMWUsOl#B`Pw5LVePia34M%%+2;+b`$qQc;9QoI^?XUR$|JaIys7(rN^Zws&&bJ(@6R`aq;=OPQp&a>u@cG%|9i`@J#ic}s6okL zwA_Yd8KUI!v0;)MqV{CP6<(hnpQXeo0p7)j$cEw)RigU_NGt! zeswEtQanNmyDbPanTmy@R*5y%ab`lM;0n}78t+LLRVNSy%E^3T2RI}}-f~VNTaM)MHxLLk3e^&#l_7MsGv^hei(^ZFx zxYVW)Cyy<<%%#0OMb)K0Ar-B|2UsNDh@!c0z}PM*Dk6Ke-@5NH?Bk3lj^KNpZrORw zb9di^Z7kkGxB|JQw6CQ{x%RnpTe?~a=-K>pdwfOB%x!T;k(#DvaeUJI7B*CIRX#(T zk)D$raQemQBelSX@8E|rJ}+u(%K(`GjWfjt-<8-qYc2kK^HdKeze!9e1=%_02Xop- zU+m!qF6SU~^t|Ik+vV=WLtE~?Zv_U&tlZqA{ol(0O*udRMWh|8QYB(*s%dgkr)0Sf zA0HpI(e6L_Px>0rlz`;yf+eN{c`NZT?6V2xedVRo1PRxHc)Qa83rw^{UTdlWeZ*Jw z=_Fx`pm2;v&Tm{9qVwa4ZGiLOrlR$2P4O%@RJFdE|yuZ$b z%II4brwi^qRp20-{(b9?sqc{b!uEa$>2E%By0lyW|DIkMEiJ;Nb zBBEzVcMp$ENIkMJwe5v|S<9R17A}>y^6c#|Dkp2AKNgOxX9q4O@y@CME*HL+9$>>ognS?ZfDYk%xVDQ z){#@}%zl1;+$kzgp3oTjXNzRk!Il$K`EdTq18}`E34}YXT@TJ&Wsdx3|f+C7E zigSNTZm-OD4uYUDAyjU9*SDX{2Z#SnZEugwqKrMW_-Q}=!`(Q28VeBfULQWe9&FV+ zJ3BkMxJVdk2l;B=zUJmxIgn8Hi*8HpPCq~i&LAL=h)*rhw~#PNf77uU3);)sqPe{& zPfMdVUkaC`n6!U7%;B?yBO_`F9kXQ=5YP+2Kjg{5syi4TGn|b7+47~ZyaNDge)kd$ z?C#)%kr@`q^Dpiq&*@(`PDV(8+bKcg=I2AtybF#wk=xKC#L7{^k+%m{Wm;i5^IvgI z1u&u5VNd8XDCm&j;8+S)pJ!)QzIN7CaD2*lHN(!*_x$#2Bd^oWDAC8c3$rPuEMDBR z9V!~x_Z9+TL4Rh`QdDC8ahDw0Tb4LGH>ZB^J!k$O73~2&s9nt}&wq0h_T|>KQGL?T z_3wb`mW($0zIoQwj3?DK!5|n(TF*Lx93vaMeAja+ze!i&>grleDQI<@8@uUhzqhbZ zQP=kL`E#kGdMYBK&w1FXX=x=s7^NX0@K@hPBSS-hAB(NLq0=ei(TgHZp-^B5mD8c} zO+V>>Z>ud!mHj4LGNJe;ia)r)=g~jX(Gi*m`9PYaP+7bn<7vFPHQ`@7Wn+sStIPjJZ>YoK%R8Cfu z{k7!?=&PKopu0SUl{sfsPY$(Pkh++bOyl&Q4CAJs15ZMhB@sd% zGcq0zo@Aa8svD-3OvTno{XKznsFDaLBq^qpT~)lG$DY-EZyLH~<{>`*jq-1CR1lzJ z@bmZQp}_kYYq&!+P0Gy7jE9Nd*4DN~h{UPysNoBAzE%&~*oUcWstTol{5Of0{xeH9 z2;~bQrz}P|RlDODn=sCb23L-+tXp@2zNX%0hbkOfSg*JYubj=_!%XES1twLm81PLv zR^UFyYFDVCv3LO@T`@CJpiX~!dis)+vu9`sztvRT(UAj$F#!WR=nOLgI?L)#WCDf( zZ|^OMk2y0RKqe>&lgd9JYCvN78>0JcdSlMCp+M2@mFlaqPxpZ>PZP&+&F7wzp^+FS z;zGidjES^C3+1Duqpt4mzZC_oRoD|3!59^%Ky&-MfPUZV?W4D!qfb5tyRbZui&MXn z{1`8uToQ!Ebd|`?uPW=UVjnR1ti%~20F_J?;Og3ixo6sw;Rd!={?iRtX3LA|@f#20 z*|Q7TB6vEsX-DQWV$V-Ev{e9%n=tD$Z>}r+i!P&!3YL`4)FW8m4GLlz)!6;m^z6AY z>+iMc7foMfXB5Gh2G%R3t>5MEYjdXRwk<~vRzAL#xc|xb*B!@K%4-eg=!B7-2sbn^ zP_VFg2Es!R{vpbr0v5q=pN&2u5UL$xZA0Ezpc?XyX+7&w@mBsXZ=y1tTA%)t+| zZMJF@OiH~mce)?}$sAf*#6U3VRTbqC_HC8qt-dvJdkka?%}D>VStC`Cck5GZS(#J* z@{j4>BL<(Tm<`-U@xNaegBD`y?4hTb=}5~MZ2#_gOt*#AuNowXej>Ddv) zl3V`aH-7@v2GuLU#5mmcs-MO=3=A}vvUeMIDoYQ#HSlmyQBn2rzpvzStSC0~JM12{ zUf%8YTwGjy$!0S_$X9kFNLS54C#@|41#Vx`YuFzT+3^NHVUISdJQ%^$@Lw#;CZ z($*YzmkZmpu}B`PBN>>Tz#p0v$Y>9g0txEU{s2qJ6+OG-WS#zdg+y|}7ZG0M1D<=J z3}dIr87d^XW1^gIBe&I>?jq4@MAt4|rM=tTCju|^<~Rsq{cS%E?px0(-=^wLDFi&m zrqOpkokk)fx45mo0#y;Fk{;K^qHoh*Y%jQJAHcqwesalQSj@FERzNsO2-muurQ9+Q6#cVJBxm z|GmqKKzZB4x`y>Th23v5_kIwtp8DvRIsA&g**^!#{_(H|T}HoV6H?;Ll! zyZ?vpIf&+h68D=fSKftUf$m;$2JGj5-^PG1$IBPq*R-m4^TXp$7+#c{0p1$_)hXqU zhKbR0>D-;oR~o}1hVMkv@^J|Wwm`CX4k+*fi}{hoWp@h=Gc8!wAno2ARALa((3Cb{ zvz+%vQDaGh^$HA;U*avgGk}v5oT04uL}|;e2qZqNZ{P+wwKNY43#-O1PAt!B0~S3v z0eKw%4iBRM`@jh-N^8l_v6M~d&%<*ETb7vvM(MWDu*=D$J~bsz1GNP59N!f6-nR7B zl~i5XSKT<2*0MhhF&lf`fo=oVcwrIy_Ra)L zQ)<7PTNLHiAu9y&I-@T)I~z6b@4Gx;b=cb4x)_jZ9i7ksXRfQeyGSm54g*h$%4w2w zZH3s+VTk9nUdeuDdhOIRIQh(yDT3AmpMAZs?C(<%hZ1SN!yoCj3G=CVA=_ru$fV0_ z*v=g}8JXcOc(R8>zn)fXTtoj=ch_esB+)@ik|wJ5^0#7Ukc8L`uR4>6beRyk1xKvk ze=PYPpFv)q9(p;rxVd7q|Lsm-&hW!gS66@De5Ij_jBkGR0w2GIPvmn6$(8s$H#DFv zHgStgiHb^avmC+t0mZrHgz?PGw7uw?T)=!~F!9x6r`{^2gDtV!YpXwG=fhE7z0Rzc zf2#-KAmR!$9zB%L03(v`^=tILiKDc%w9SmlLmtTyIlx$uF5;DFgc@pEie`~&*yH!? zTjA#ZlM3aZE2pAsf(u3E(Z-R=Edc`*Ur`;n^xBJgOIsbWb1?D#(FOW7Y+vq&QgQ#Y zRQGr@=)WTn?iNGxWGu?p392?t7``K?dE~k!{xNNjv=T+=E!OA#N%AI?Wp5<^wX{jp zU8w)vZ#$|-k~`(7E+yU;rFleWS=cV^Fm56E+~e>Tl!S(%zxws}fiLoft;vOT(B!*n z9A-HC2L_4?3%`>GK2&^UWd#CF4p1}Y6$hA_W+Vtm0tMgP^gorsXpJeKc=f6#Ns`hau)jh0p{O++eKKqu!gk8f~RLo~r+G`**+Y8(qhpD@nj@Rj&q z7U4gw(H+n;%JRf0ZD>n8q?e&V#{oPskH^r31<}-hrf@&2%5|q*HKM~ z5J~XxXxO>L_x1dmS&g<*3qPb_Su(F*=c1<%Z zYuyCCO#64Mv6%5)}A%N7P6_}}WhmZS$h6*M5(R~v<RfEy!QC z`HQ-o+1l!v=rR3n3dVAxmrv zynA(~zQS$k^4k83sAe-(X<<<7Ws^~9B;byI_SkUh1y-4ghW?28OQC;(bd|bpFn!53 z%;-<|nwm?;0?APY#u14QosoMRld8J+$K@8)iDLKf6JY|cKhOs&97NuG7cI*w`rMiQGFHok((4+TlXnZzo9-MOh=M}rRN3{eK zm^*BP(`^z&w*$}UU+c>5q_*aVd|XZB2T! z7bdRVq$r>oQd>ayRfg)sg_)qr^6S0z5=Q<(g>0^xTP_-=&vT!aBpi}xz8Kyl{x=~6 zC=bU{E&7{8@}}a%y+W}?te4WqK|u)!gs}kytA@90s%!ic>3?UWrEGjt?Q>HR+EG)H z6pK;!&5&osMxnaw(URpiwL8IVWNQzxqAVwj4*{CYJ@U!;W||jl^$eA7AFJ36*Y+jO zN4N;>4kH*Q8ZRAcVw&ckXBBk&--5L;?ZM(P~p-N{NJX7ivnq? z0D{Z0=FV*Xj`R$oiTS~S8covDcOT6-`g#L)m{*{!O!6Yn+Q2YIi|Cp^rQ#kaLh$X z{>>Y4`H6|5QY>e$O`n*#SEt_sTpD$Zj0VJ@j;s2LIlrbZVJWVWC?6w561z`%lGwHq)V;*TU*5g`XQ@v z@8Jg?OS;G_mRYiAx9I$a)i}T-I37y6&H@$5>hU9j9yOh4nYfFIZBHE(h-U;E`TM1st>G=X@(T>s*Wi?tY^fPhvQ8>bdJ z=Z%|b$+dzH5Jm(%$cICzZE0C+bXEMas!89VaNIZHI5V48ob|k-F+DQwPXw2nBmm3# zjPgpt`&)^eo!aCU&*CR^bkRVc1iec2cnq8}!N^9aCyGyN#=2F7xzOY2YF%Kv?O-J- z170O|=hm${+@PY43kRo!Y2+!1d4>;Ug#?KuX%Znq553@OBs{nXt5jeoEG5`AeFQ1Z(DCW-WrHXSE4fqu2fipAQEabty#HE_9>fFay5>-=&UtI}s zNs(yGWHy5~HL5GIWLJiCuoI$%7^h!JBa%0i^1?Fu-+@!pE}Jv#%jX5f*N4{cMoPRz zv>Pu$n=;$6=Rp3J-8kYt1guB?(})0kvwaabhFZYG3G|%3o6EkTp@an@!EjIv4(9BB zuR{+K$6)h-&WN)jJH?vZe!yEzu|uStlGtOkm66=j!j|ynl^CO*ylC-2o(dHKUyc%0 zT9aTlzQb2uk){{U)x}iT`ssuf zVjtsemSJI3Bo^dg*`O4clwjlITW|2s#I;$)wLrjuwwa-VcYwH$v`x3FMm9Z(NZ@=i zP7C^d^6!7vcv`sbWGyQGcF*oH3FVx3*y$_ku=lqngX)(lTbF|YA6@a%MT=fm8}_YX zw|uOx0)?rmPhnBkbWuwGdk^0gHQ-|nkBWK$3P}L+LEN`A|2hKaWfcS@db`{+gzw$L z;iwvVdhf52tE+jtc%u0%fRccX`|5uY_a0tNMc=kCsEBkG5u_@DNC)X%rHM2V=}0I7 zQX{<+6zS4?7o@k)I|QUjm)?XZz4sOf$=mted&ju%dw;+ehn}2sl7QKJ?Y-7qbIqlL zFZS~*)oSstASv0GR%H;U;%YEc#*_MzU6BHK=<3zS=N;ahwLYf@HbqI%Q}6~Y&!dT% zKhCi;A7-0T2AmxZN2|~kpG+S#?bNWw6zP@KpyD6rv8%%^RTVTLv{l@|Wj+%1y3S(I zjT?6+43Ss!)jx_>E0wSRit^y|mZ%;&Y#J-~o zEUf;rs^}C=a0#7SM30&W!X2&Orpon8!w8v>HCR`EwXP6BU~8I#oS^^E!~vgUOla7r zAYM#5dLl|J+aRy1SIn57OGW@DV1nv%#NwB775aQSp0F8Xrp zZr0jIpBd+x7u;hf-Y&DD%2xJg7cc7$BPCe;MiSE(Fqce0@8G^Q)IoNnrkOt$fB*O6 z92-qi;unv{V9=@})xBoLD_zzZ|C_z1VmG6t@LrhcM`1$fPi7&K zH>Cwnxqi-7(fKc3R5)CTr%AXyLS)|*FaBW(qJ&UQuP}#P5c<#U?C88jlwKv&SyM7H z+D{O-*D~waZMPT+dF|h)rtZIKX>9xuZ%VZ_^H|KQ!T#{-aMAK-u$C-r)@S(FZ0$sb zSp!`{r)d!=*Oq&)&Yr zbgq&Y#rB(HRiC zho{~Hsl}NMI-L9d@N>yi->Bw_#aIKVz`3=JS)VDJZRi~hflZpdAiM6$8} z8M*&;tp7SfstdrP|K}0^`~RowpLW;r1pl9hcxcyNcuWMn#Lc$Kt~YuH-zBD;nok~$ z9?KnFEsTt?NH?FP4Wp_y=gcNcZW9^*`{~rP_-Z`3|IQRdr=tA%=Ql$C>mxCqDtfTU zYR|<(f!25PH6D4@rrUQX5OHeY>OI=Kx1LAt&i4-VU3-Z5PUGcJSSr)M)=qxK-1__Y zGfP>!(vN5%k&<^pjNI5nSBwx3*;iDpEq@LVKUCTL2^AFrK)(YqC`9jGRq|2ytAqCZ z^*iH}+XAEWzho=ldtTY>^L+bF=P3n` zm;8x$unjpZ11-UPpBrmYeE_opNgf6)96`^9YHWNaB=+D+M_jM?bT8(3<#$$`i14$^ z8NmtD^^ZQF{&1Zw{AyVWuWXQMEDMDdI~E}_K5C&jnpGy$3S;#)`t|`eEh;1HCVd$< zxi?qG8w7+=fCQ(GGE(?{jS$bh8nf4bP+xEGefsnvo)Z$divq^hcF zW3rS^S&=73$if!(PTUtQ3iRWPHXwbt(UWYImAy91*YuS=9`c4uMo~#XWxX!V`g?5E zoQISmnSg!Yg;!33CYknJqAwHqCiic@hJWpcw^7HcznC9#viW-u$he-2IZ9GaJ8}C#fR-9SF==9h_&K zC%4^w6>uKs{z|pwqwMdDR=$%PFCh<81BllRn2W>{xdZcb1~T~#S1k;Z%j3z*f=}#A z-9a0p2M+0$UDgI^+*k_yJ*SI{upa7IEQzpj)4>iPZ3jS&SpgA-`KQ^kT|@Ub0mf97CxFEye?Y@^5-?-xRh-xQ zy%a6+^SnYXNrNF8YiQQ};IivfSqM9OKGluTPdWW`d``W(*7-@@dlDU(m`Kg7Y~!46 z;r@DJVj}5Dq)AJKf)M3+Mr+%hi!UDVPNj}{NxYAILjNk3Rl)T5aS0|zuZBg*?+fsx z(0(Mra*BuT{5vwu387?rYhVC6!V1;Y)Ktz8S!jZGa7!yI0Y-33KyV37 z`JQkgFE5`a>VPZ$c_}N~J3QQD%!g~;`Q^)(cO!Mw{TC-&!_#X|H76(cZ{FrFyd%3f z#Fj%LgN_1XM7U!AR?LMBGcz;56Way{!~gs-v~M}l1`Xj}0M)x>F{dX?;qHnRqFg7I zgDG7w>?Op$apMWDGcG6RQqx}RQi@HP$-kcg$2)V0gpBUbg(y$Ukau&{Wv=3yb{k0m z)`AC09)O6#?ctj;|Dwj!aEM$ePR6R z7Iv;2->>cO?F3TDdK7y2kC-wCk01=%V*T?*C<)0g$pj)lx3!^WiE|hEL3J-w-MIUQ zGh3y8EJOfnEDSL-HT~r1n5_dha`*5!_~SI}uoNzG*g+vvZrpwi_-{(;>iG=~$=|+_ z%BxN%!z6h?!Sj8P%*xKr{^aC@`z~V7kj`VOU`>rmPgiwv5=a$+TJ)Mji(|qX6d`e7 zJn(`;Lz!7w0|=xrg{iL_?>SoRFEm4}r-c<$;N^saqY8!;PJ-2FSXr#RyG9y7$t00sNCm~^%y+4>s| z`OR$je)S~kW+z#v&!h>!oDUQC49#wW1+}CodfXH&rnvyU0mwAXADPdMo|FyUq<<_K zEC6iNIIxxFPKsjy2J#-os0trYlzYvb3ko$rQORu{pHNx&A% z(V2E=ND*pp{Qz!(fxyJnHn(=$f$iY|W<)_*nL-j=Nl6J$h4d^3-b4u2>imzSwHJB4 zX5ijUwN$wECdpTn_|t*(7bd%glT*)UeIoar)}f;SNqwaAqbMX-8(jIM2l1yL{v<-N z+LFC(Q)k(FlYoH#!>`-j-yU>;BD`C~#Feu$4vTV4PqOY_06YiumJqNQpgBA`0{xUo zfwWV7LqlOUQkx4;Hjp$L?ysL>*Y&XM3cMBXo!30jFsU>r0rO&Y3y!dut+oObsKf25 z;kyqW^j2GqonLIhXPP|(3~FsndSh4}yNX6}KLZF09nQNUE1WmpwqEW^SlieDyg&9t z2E8xabZmOo)zxwXh49J zRxsFMsr!-AUGQajUu@({R(jPg@*jtX6SS$qEz$92y}VB?z+nZpSdnT3b!mU(348wtUW`8oGj)xiW`M>Xj=o2AH2a@vnt>_zuACy|fI=mn#S zpQuC)ia`BEz$>#AohdlY4B59=kk2xJSo%xZYb&mJV6R~?Z@qTBF%jF(i=cmgf+jhl zdgwC6BPl5fM(qi+WEx---MPc4239~uMn+P4(c64Fy`iBqr_YWedvXD4oBiVl5PtdD z)dd7t?mkgXVZm~;v$uoO3@NX>3=FDCs#U;^_dMAQKp+^!3{HZx)U zRSc`eC5{nj8Rzc%Jm(jXD16RoU&w>p6?wev1w?r8J`G^7w7E0ynX0+Hpiy7uuZMjx zB)SPmh@GdGeeXuLp233z0eRqr`xwn%WECmju_Do8G)it2N;Hn?suu`Dm!Vx zr!?Qc4^K=?oG3Md*NLlSrF}kHS(!`}X&L&QOo)n!>2(#{z!^r@$)1@TGV40w^4x(=M9r*- z+enaiv#nASSugw6UbM7P?bn7d=^Ih1wYBAcn5Gbs9DxOV*9596U(LaE7kJ8o9+!{5 zo`WR~lyGH0YQL~$Bz1YQUs8=(abj!dLc^3xRECxLu@Ni+oMC-MuZw%Em$9GUSLGxn z(E!CPPNZG@DU)R48$1upoZCLNpJUVQPddYO}=U3%WtHsGH0 z0NNVaz)}6<_U!3m5&!Y3u}$iiuyzd;;^B4SW}75**PJ^u1q}JngSccGF8oqfrRn61 zEG9g2^pLsBEI4$t8`B|ySk$30N*GYFX@g72`6(3fAt$lpNbbmA+@ZF+q2EGF`0-I;k z8T2t%PI1Q})JAy1c4y`h3URLo=DDWsC-9#GPXoGRga2t+*yG#!5j4OFIc@#LVX1C( zr58CDt20ckw_=%;i$!eBnZbM5f$_YX5~I%0;@&CZ;iDl9-3lvWGHIM$INh93cJMI(oQ{~7mmfc_Ke$?>SMu}}2k~)EPELV^ zWL=&u<%$ntYxB!t9V5@Q77!62BxSx`e z@@_)yY~+cDnd2bzy7Osxm4?{wtSuu!(-oW818l{p^U#Sen>2T z+~r{pvt;iIAP}rRV1yQw=GK?voJ9Su()%cauFjLa$2~u^Cvv5}YRlSjJ6v7v4`=#n zsTP-_4erv=JVY85q1;$Lf5zXQuS(?k_YbdV8J2vUyS%rj4xC&-rR(bN57W>wY=3{Y zplr2&%f9(Q0T1`jYkx()dDyjBwl$Db`wWNkf=Zw+utk`UCQ_SU8&rb5I6OI70cP?< zKp+-${LTRT$b)Mb*hM^1?{hvR3@b%QPXFCzs_YzSFS1<`XpxQpM;nE8 zAWDP`jTdT8L{;>IgVM(^?6L0R-Y2cBv`1##{z|cf^9Z-J6$Mk0XEKh&ECg{_aBs>fN6;*e7 zXr}7D7MW5&9W;<`lH?9=`2(Dk*CUH!jzH#Em`W+32iVof+DZFPBc}EO_+l?&as<99 z^b_l`p4b5%8z2Wkf$i|w{}G)~Ss)3w`cv-!&iCh_2zJ`BD+$I}z;6Rk{`mO#8%<4r zHA}2Oi&}oihi4j~_CQbX!A<|qmu`}iWm}o`M?}3~!o4_!M1px0hE|9M0z5ssL0DuHGUi&&$olt<9|FLnPp!udk20R#+G! zA9f%2!q~+8ZOhyJML!o8@1k0h?0M|FFhN1bYw?Oqf5G23a*(vGe~+%ruL5WFXU;2| zp%0J^MXd2{qsvcYg(wubJ&buy%E^qARTg+E`Ozip)lq z02R{ehXEcOP#pr3yV4uwc)C4vy$#E-rRuUNf;JVz{yqvD(emA1v&1mAg4-au14uNF z`WN>)0zd;&wW+fA__|dVWaj3p*~N-w;VbW)1h~1mMI|JTCe<(9k9wpe9ZOM)Apocb z(iXwt;km$$;t~__jA>Crp`^%uW{#sY$6~`25?K$w{T(BE{^+ta)n&Cl)@p zj6HE(#%Al^4sP`~UD=Cfy2N>Lz^Z_2XT03wdwzMd7jm(~{VnI7VwIzqn2cr}j_%(4 zg%aHPw?`-U%2)*D3ru4Y*{tsds^@k;CR8GRZOb&r#vTc{NbF(XC+d9qa-5%5dYUh@ zq5@v&x`1uk#WCQ(Zbdaw*CmWK<*0tFEr$dkm^lB{>WB`r@nw&Id7%KjA&yeF5<2Ppsm$7=AxVx;7OI@YQ4m| z4n}_SO>PESUb89i*IRR=KnDwl3OhPh&QldIr~>`L-rinE!`GDb^uXa0m%-S@?*ct2 zP-Ff3&mS(>BV?5&#o*u|I0wb)oslquTxE52Hc?Sshby2L3<8FkYAed*`u7zjSTFoo_(Pjmq|@9=ZYxt z+ZkzT@@|nQtsNVU|7nD=3)j`a=iEcwINE!~1+UXb@p5xZEjfT-XWk7%0zWrM5}ytm zjk(qxB(g{aBbg{fR-+_Yt!!;OXL>`_(g!k~GV1N|)ED@I>wIU~m?#0dp2+il|L`y- zQuCSvkMfVB^^qSRno?9Zs1dW~=D{4{y&o34;I10!7i2SKEn=R>&W}Qam6E4Y`<^|# z6lTy^8jPf_J$?DURx|^?urF!XNDJ~ibQxR*^pTbm(USy;Z$oIIzL?6%BlcW~+4`VP z9aDw%i~Wh6eCnmQ3Rsl^&BG-n!)LKwVTpMAZ<-r;i+&V?lrKb{G>n?}kwdS_VhGf2 zF5sva!S@~lwZ!nQ&s$4Iv%#zFLJD3ve;`OJC9-;!Ol_v|EO2{!2{-W{E4t#Zh6-vp zu;wv_831ptVR8Fc^n2Vb@QTp&up=CVz%oGI&+**kRdB#3+syoXb}PtQw!FvX6V7rN zg6wOEzQWa zLsyeK2*6_ul>e`wa+H&0VDEKi97U>tGfXJpNW6$08$> zxoUBASy)jKotO9IiF(FB0=L0*tsNZ>H#l7G6%-O0nf_ST4WNT3GBOYYY2 z{&n%}xvMW#64q+JbwyK^*J|~AT6K9FT6+i$u~XyeLQC9LeqVFA2RtwZg_{aL?od!r z;Q5~aBYa}yMJ4ZrG&{3_Qd0iw?aP#2-1I{xx$kJ9_d6)?+}+)c1!?(d!+{hwq#6UX zf5bcvSz_7L6TBczjg6zs={yBqAW(r`Ra2}@GEQe?WQ4BIF?-tP=j22I57?o?qoNAv zCKYKS+Bq@zEs)UyeZlNsKK4fEhzbVN_C| z4wT+Re1C#Y@gaXaxKhbJJ$V%W8@qY>SOszoGH;JbvqS0f`$z;A9t(s7$yIec(9!OW zIL*Aso*ALNju#R(STTaBC0R?wo>{>#yyt9NpeUxc$nkETUjx$*Ppyw%@ExwNOtdNY zhYb}pZpP&OSrlMfv(!&-+8Ez3ax$H8=?ZEgzSV zDvFWVh+o)TVGPpqNcAq0cN7$HmC%LaWHG^^GiI2~9qQtLVH5u`1TK61M^`&g*wWFk zjO9qSeCU??s%@fd;ULr_M0L(4B zU}74~#004SmoKlBl>T!En1;N$d2TbJuz*4?lF^Q%9G32m$wfV-HX1=jY8dy&xA8kH80DI}0CzM=56i`1r%w z?)*1KDSctT_+2F%KAI$;&W`Q#RchR>>~}xtqD~gFxes!mEG#ThadDjn(3Y;B0VEz6 z)EY|XRCyFMj=>4|d8@{aG69UiX>EuAv|bAZHEkdgJ~%zKX!FCzp$OU+K#6!~vW`Vi z@E+iE{?3y108X37W?}wETiXvHF0q|1#|QX1Cb{PMh1=QMyI!nJ)%{mSMnoLRQp z&#SMO0}-KI4=y>-v`#eqp3GcDB=D+h)XM`vbWz&iiijx z8NAX~#Dgm;c5Icah<9)CkK87!iexae+KM{|=mRN{#m{5b#>t{r=Eo4M5Ur?!wGHp| zJ12e)i3C5kzV*5;wY&Thq2=GYREF*0V>8kT*OaTO^tw&o@?WN{(#!=tK0@w_$wm}- zR>^y#T&ruts;VS+CKCVxVMxzMP+Z;oi@rniMUqPIx#Wth6{^-rMgt$<>5pbo_+Yi@ zxiAfOIZT&Vn;}usBXxh*j~E}tis27Gdo1rYG5q$b;>OsbbYf*D&iDM#kkBQpoEo_Z z(pv!d$GF}#fBQJ$wnx+83mpM|N*MyGb|3Dk3UgL^>A0wAV(S}=Xa{C8B@fGGds#VSJVrGT`wk?>zREOg*qES_CaO{9S6WzDQRG=#R;Jy2DDd#19{_QmnRSyg z!q5%?623)B8ix$R{X)=I)DwUQC#gJH@V&IFwVinhsvZakPN{bqbguwbkpVJWl`dP_ z%`Gh(NQ4ZiNvW@|=d&Jv3RVH#CfCvuNRBaqWD@5m5SRZF7?zX;^9`6ZZmYwE@re-M zWQo0IN)z1zT-4v>wzmovyR{k1OfV?}+S;DuWq7PUxX-2gy#SwA<;jcwiuBu}M0`5l zr+{<=@>RlS1`#`7+byNlm9ErAI*3Tg@dxZE!0_|3$d`b{S$#hAEoD54FS5*W=>j_`uQy{87|m z7%$$fdFNn;64TC)N0u3BYnegCgJEyx9eNl*L6U}cwu(#nZzS0B@%&X|#qL~^BfU|y zW@U|u2G=b#A6$~BCLon$|L&}s-K5Y~f!wC29{@s7C7#VsSXjydL46v-Q#BHeJ!4$f zI{yua$h?p#oFVJS9-icKNz zp8+2TEIeZMinV7QEMwoydZuX^ z$a*5!i=e$f0|*+w4YMij_yP!I*#%3zU%;e+6g^To3=0i5NAaLPr z&htHZ#AKb~Fr(D+CBklo83_RkT&l1gGjPg=^$`V6do3Z}FMNHa!8KEW{<@l#e^Vur z>ni-OgzdKn0t&lVM86bRlDs}gJP-&x*_r}76%gOFK8rgCDO}vTNK9-Ba=SF7Hvvoy zGyq@1rwo$e@$vEC$|M}34&C0Drj&8 zz)EJ3QVQPQl1{4w?Z$k6{|mqd#cJR~RtJ(n=P1cYsZ$y-(ZxWn*172fL^WJnGFQiA z&bxn-LE1ScD$1|j_@R&xm4EwlFz}RYYSmuNF#sL>F}5+?;KY_L?gCPu*IJB*LF|Pe z#R9T0#PUMipsL}yb-J&F$Ki)#Pbn%YDxm2f0%|h=V7Tl`X8mT}rEzwmmeAJtQ}Bdu z&GF6&;@;T=pfR2&hn0rBR+)QkEF_ki07N9ROSd>39og5A(bK1YYUDQ1Q{xlS2?oowW<50gW8Ma4>vku) z4n8CngT&E5ZNdZ0)O41<{LGA7LtGYM1_x>V90psESXI(SNSaA&US1vtb=Y+P#<3ch zNjDi?*v;xQv@O?YvR2$4*}a;hue{ZNk*c#52ouz&1*um6E90uSCJnKA*dlsr>&K5EcdkgTU)wWB ze*OTe``Ed-J^L-$a^5e{eo^w(RIcFm^JfX^woh1YRNi?)qDLf# zkWm}z9r*Aw!Rg7XjA55Sq2#r+(+dQSrAVOai0?~{glB&Usj6O6r!c){s-nA zaNiTo!kU`+GkZgedY^ei_9ssQL4>t`Jf`jhL?M6v{CR%Z&kMqu5`(%3?lXHnNlYhY zOmQ(METuZzz{vy-1Fh&cfSrLUii`IYnS46I87TJx@_ZUPIz32xgWOGo)T)cB6F&g& zL273P0h0mEECK^>;&w<=GqZ-1NrMM~hoKxKm2ZGaB=;KHf7h{>gSon_0(=aR_<9X| zPQ3<4RvsRncRD)7645r{m7RM0X>olzTg196l2RPEcTTc?+#UBc_)h$#Vysf%*-r#6YB@Q(SdLVpL7nVFViV*}G zI@f)YNXf%nc-<#kPaimmfWF0Io4X+gfAPKVOZGheo{|f@oI^IYppp7a#sf4S9V7hw zj&RsYQ;?(AKoWnNq(=-`ZB#*zCSG2`Hq(lNn>HX-vD6c3IsG$$RKMa&qrtA3B;S-{ z(<&S>^&^2s_#7I&*&S*5TLj6s-8)qv;T#Mi9PRKP(+cO#*+DGHxEGzCo~7|McH1Mh z?qZ%)`BzDIA4;pu7!tLqNJb?*G*JtPcez>X!6y6ut{1=aF~P)h*icLlP4)40*ZeR1 z&+a-kc(+IZ+1$^X%8X`5qZEQ8ZeNK&qb@FH63y522O;GJJ}5-%oU}wlmmD#tQk=*w z<$<5J5gj=iTtj_Wb09*Mh%u&VUKY0+lG%;M!?m{=z}CbZ$;{gOI`Y3(OJi=6iA=)U ztehYDXe{>jOBC5)`)iMUL@~|OvO!<3JMJk0k)c5Hkj3+(uIluu+O^pLntOK@!1n@@ z7A`4yzhF$>M^OK^Pu&r;ihAb!W{Tn0+eEO!eZw|Q*WGl!-Uy_;OH+3Gh#<|hO{@<# z_AC7!L-Oon6qL3hwiQ(;CWU<@n_UjWCW`T6KbN&os?5s;kfr&@K4i)0&mT)nI5Ppr2>?JMd>Zf)tO1^SUp2hNllIX>hesd=icMD zyp-?wpHux15EP69;bKPVvMq?pl{3Cnxi2lV~K}`EahKKOqHZvlIysk8;lw>%o&!J%_8* zKnRn&_AD@|hr^1%OxT}3{o78+#A5z)u5k_KvCSDs$mIRzaDV>|_LM=~`4*mth={f! zHqV~_Yv7F{<<=ce>g*iSZEPH|xH3m}dwG zfZtL*Dd{HRk1YmtK{Y5?7B=@bb{F?%BE76vXYCH=Uy6Fg$3BWlv+%*riprKlt)-W9$_gWKoFP?~uMMw|-e$@PN;q=}idSO(m3{I1ZU&fMJNM?P}!Eg3?=wX(B#Y zWwZlxSYQ7*aSlqEb2JBZwrCV0=!t#>R^JU<;0NM3L7+~QoJo41+@wRd{?j9%2D`NX zuLDpUM)M>0UB!y*o6;7KRpEZ^9l-r-MU+|Y)B`&Q%yTLsQd=W$fylz zO9>_?A}6oZOT9jy-WwX-k8D>BJ7p-VQl`vX{R#4w0?%T$(caoMnN`FMS8YSTUL|mcu}Eu3_}Ik6_LCk|>tv+d zeI;N%@|xL8DJNbo|IDvuQcb|zM1NM%PU}sywE3UP&a?DX~TUlez|u^yyuPM;ysYq0B@RG2TYi;KYzBX zIRvAz8G|qvmzr>2@Xs$8Zy&-P+b=4CokW+m{Tv%+5JZ=Lzr@;M`8T|@wf<>YHuc+T z8!%loxxP;>7P@*ruc4w#0B;nQblLQ>2?vooSbo!_yb{dRVNg-8(-QGjQcr!z3w|Gf z$%wh_rfJsT16r@5l~tkU;2OZ6(N|Zv!rtcQG&s|Feik@_@)U5<%G%m7v=#8IR_v`! z9sh?5u(IOqd*&$%G&C_745%L1EQ8}HB=YhEU^3E6dA@s3yQP97+l~BCEG#O*MHtl7 zJHiW1w?hwd4GnmMTyIKMEH@R?l$cpf7E)9_E~%mKTIAZv_-j1~Q~&o(H?EcgH<|40 zO08R4J?F!2uJf4ya)T$JC`^}|_~(`C8Zn)uWVN119#LaN0Gig>*$EW9md}Kvxc%1|HCg zPnO?A#O}|p2x#jg2?;s?=go@0!Ts0erl9mMYxm!?u$g``X_PMzudR&@aTMX(m? zI12O-fY5W}gMqdozNEp1A~c4x*=QwVRBMiDB?HC zarY$gmQm(ppt`w-UjEXMTu9f2RR~&w$+GJW=(G&zkRXxE3SiNqQ`o7t zmew6ADtSOZ0i4OK?Ch6`($jW!cA%yuqQz^4JP}mXkG%(*t|IxIF)j>`}Zzm+H*XDL&N)Esd<{0V%1`hdMY?AU4IiJI?s0ZQ$3h zH{yz3!5eLXjw@ekdz>+|&_s#-ubdiR{gZBL}iDyzI1dh?p-BLn*g{0z_IuxC6DCPcztA(yKLzRSa1N_5D_d*( z=cA4Fc#zk$y8rLrxqH8-ymql~Jk3S@*R3KM7Tc(zl~>qi!B;vy1ko_?2OHrKja`U_ zedflBt)zuE6+a4mq@0~2=Clf`Qrc#!EGNR@7iW9J08a&}^Y*c^Sa6#~D&gl@b*t3t z6B~7t_g9;wM>_|5nF$L%XYWr=lLajC>Vd=Wv0c$4KIFAXq!h{f10i;v7MGCF4TW7A zVD^J#rq{8jbqKAVrKKg-QW2!1+^0``WI&)R`I&s;dpK`5Xp4<&ObS*UK!FqAsrd-8 zTKkr}b~+nT#Fws>tf%KOYc+i4=n(io$3TbkOs{6{%ynS>PUBV>8bTwrhVxh^igg5h zE}Q`+;K!*u82~nbnDy}UF^B2Ufp9|-`h4P>La>{<}xq=NPonCl7CoeqHFnzGQXj;GjY&eX8 z+L;23Sokjlo_MP7kTA2CKGwOzs+QW#dqzy+>2%>mk%jq#x%6=_>NkVx&xO2SD=R;c zbT1e8<=)~PpO^qNJ6UIEK^&I9&^%++&HKwjuq{o@sQ?ZK)nE%2k9nj%0p&I@({V-s zi2DCFH;W>GcxWP67ME66^CGsg5CEhD-2R@j_f59P4B=bhH5-2>ClwYKfM5X7(y2ca z0ovoS=M!+>6+T9(bLSxlX(S9=os%RPAD>@=nYoaZI@vjiV3f9{^f$Vgd^$Yu*-@CD zJTymWFf!^j#%Z&C1Rb1ufGnWXIO#@9a1s&|QZW38w1N0OeflZI)%bfFGRwrIQwGiF z)q1JMfZbql!>fEyoR%--f3vrX3K+1QqGErYO%vl(Y;CPDEiGNLr~@;oN+YG=dk%R) z_%sDTN;z2-(cq@4S2-JNz^jKkK2N}Ew@4|QQyn*tm!otW`b&G*ZZP?4v7Yq(%;^#T z@eBUykwi{TgG=>mAEbaGkFq?}GPoi!d6o=ftt3s=5|)T%*X!E6QUsShk!;cOg?fH~ z5Sz1M4^%g?R6hE#mpf!z$5jFw>kS_nf?AzV4C7Z2o;|l)Iz9IF|8DxoGXMwqRYj5e`6Uv|gZ-}g z$gp=*(%%$4V`hihFn@Vk?F(Jo;fK>@cw#)PfL8?!>9C6$vOn-x9e2b5tF=(%5ZHW1 ziZ7gTfyCM*cRcX4W?Fr`*nB|xXR_3w=WtplEe2*Y_Fx%CE=nTbKYQEl=8&OK-Iki7iGBv3Xh561cGtnp)}xJxKtrAH+uDgt;LKp9^!hv$GJ^U2MP z4J^Iz)(hf`t-D`d1G5K^WV^PB8~nanhP$lq`|Iq&T?56sCqP2)P%DgGif;`kOrCe&*_E608N z){SfJLchv$ALoE=<@=A7j(=U3q(2sD*-*Y;;KF@3MVBi_L3F$>5vXbzwAk>FmAww=yUWsE&#A96?HbjIiHYA1 zX70?@73ZxFiXch-0KXSF$hOTk>8t$5)vZFO3ZDRXTu)C=O#l|e6%un#)#i8{_F)YU zwmZSrt5XAzO8E8b*WcteHZrJoSyY~SrW&Abfx<{iPzF$vaiKW4v~J~NvruCAsG+{T zz~^I2bMtf^lxfSN#Pv01?{f1Fjyd-9isBMjF<5Iop6vG)|9p7&){QB0m=pHhH84(= z#|0YOs9g!rh}8Y(mWFI!14VAD&*d`*ASuNltpbJ>kD~g|kD0yfT-JV;C@;TEF{eP_ zlmX<}qY}$Y$~lBlA|@s6?C9{vzkahEl>6W%kb3ARA_In3Te$)P108`PQlS~h7-@Me zwhC=(y@wICw7 zYR;U#+5qC?i-)+8enCB;>z3%;&s_&9sd4o$VDA=I_y{;KU{V6vsz3Ad$rZai8^xEx zR;MrCjUYk0(!@1TZ$u67j_z=}{DxMk(1UEyXFeDJW&kE9g|TXn_J3u-ye=6B_I2(0 zbt^l&n!?7aNG0WaN0jCK8B`@bpc?0VChwAkTlIIwq?;V@4)f=RKFWSif}irQ&wTld z+e!i549^3V9vMji5WQ<3mSE`fgYn6}E$Ok*QNg|Ib7L2$fW-O84M&A z_gXK@G-q!=-670yUnIhL$_U@9^I;gKV=WU_mS6Jx;d%hNa0NaJlR3X-SyUvdVK{)f zPKdW`t;{P5xD0@Rv@P?=Z;P4v772yr^XGUl{TBU;fJ>O$rQ5&0JQ-yQ$$h+@NG8JX zg-Z4!E+8ux91RDp+9wX!HS_pvr}?xoTf?KwkwGq~_lCgL0_>*xgKj$fBndYjkX0}P zp*j~B;G9IFrt^K0w<;>6pw(awppt;{3A|P;#%ls^mz-fWb%*D))*>ZY%MV~%vvAOM zMSuw9YZW0KnDmgl%X{SYw3@=>=UX;9IeCY68Vgp9Lql5-ev4QUSR%!#k8sU4;4ykeL&g|P(rv2YE`c0!9E(; z)U*!cxqYiTx2Q3tZo#wPLIovN{O0XjX1F9r<(4A6-Pf?Rv=rCDL)fg(nlk{PPdM&? z3lRn+%NlvT@d4`+1W8<2%o#%BY5`tcJf>O)8hC>}t=4v9y(-sMq0pOghsTk?Y-&(0 zJUW`@@goTtARPyuav9v5LCr&7(ju)MwCtF<79z+hHHB=y%n}Su`uAtX+FOZtp$h3I6wm|J-K#iqCobmapJf#J$HS&ZH6b`b&+I_4;cl>+mi8CF}IHVxcmd@M4z? z_+)*VP}!tMtNs#L!ocTzI(Yqjj{$lm1-#;ML*o!^vDNKPq)L=B&>e=D(?3@@oLV_KAof`#lM7t1`p_RWm%B(o} z+5!<^h&^Md&#zTi_5c0_O2N+<#Kxx-^j*nePUM@hCnI%=%h}4&M&gT)|3UiV#Jp#0 z>|zo(q=U%t*+C8uO%3lIv-3G(L}$Ecmgji<}S;~z-CO=DJ*0AR$*IHSQfyd zT!yffoub3e5Us)Jt$e5|bO0Mre^ll177#Q&CD_?RU>JmYnlOb_78c%)O~3;T$>0mu zSCPx!+g8e%*RNmAHHv4rX@31i#fvPPn$VKr_@J5*VAnOqW@iX8To)((7nK zysW>FW`|hu2x`rQn6Sq{?J{ASil62)uuQU;vsxzgozDQdhU>2(va`QnjEwM_tBx4( zw7tB!uADnsMmxt1Y#F^wH@QdEMgDM>o}TMgN+ahx{5Ok=?6*=?^7==0hV~*_g+Q!o za#gGx}*M`BFEj5fQHA~dqYE)OZsB>6HRmIkg3e!o;GRAV3h((p55Xs zDDeaD-l&cE1tVm}>LkGSFjpXxu~*v)F39BJzT4AabQoIVF<@mi70SKk;36R=9uK?X zZvh^Kyv~SYLf*@1@;PfHIy23-KixB%doM4h_D><(Y+S?du)+2@mK9T})}kFKdC$qX zj35uB#hEJ6NHX=Zvbr7Cucc|#+ztynw%zS->@jOT_=#labw&38g+@ag!+OG!UODfy z+RX-3(&LRNubpPsm5wVzi%-rs;Cq>V?KmD<|wTt^i)@$+oeGV2Eznjpfi8n-={GbItaY#iA)<%E$QZ#52*6M znFf0SZlJzn4`o&kKqy*l&FKKDR>Z%Zy}pCm`!2EyiD8Mxx_X*nx-Jpdaj|*8LJZ7n z7j2sn7Z(SLHE#muar5PF(|;=>32HGzfR36p zYMBz0&8O9FV>8dtvW?)CKF@{I5Eq-A9Ws~$3Rxg*V{)+A6$r}HbV6j0TC{`-p|MZY zQaU@8V#nwDPQL$s6KCd`{C)BQ5FA$I94b5?2s;<-UJ&EFH_%B+Ls$3LO)U2)i3}Q^ z^KGlphUt16?l~Ccuy;Vy_05~8U4B8^-Gu|2kmBC$mK4)F==$|a0-ziiJYLbs^y}H@ z85Qqr!-G1BJKFe>*J9tk>ETa)I8<_9wJhgSxiWqsB@9pV@-5UU8$BIXG88syym6Kr zWocf*&OhBlFz>Yxu__}yR6<)8F|FKmr>Gr`)jfntF_EOjVNbMC$T@k#-z{qlm#ZhE zP>i3zQiosSqNN5}Jj0UcA`nADUM zJm+B{mmfUmc5`w-0(+P7`_hc{c?gpS^+;nGs;%jA-3Q55;ULt+$^3O0I5K7K3<;Go=-7hwL{OqOIdHl_e}Yw?jug|53ai&EVl9z33v&QI8; zWne%B)Ze?WX9dwndy4{Ibpi&3l^z)fYv(Xv8{+>3ZBHAV*7z*VO+v#op`1OZ+Y5tf zhXz8ago+pD`D%qdvNy>_wE(0G0Xa}t7u)^>Zcy@m2Xq_*LSG(_FU}f$3B85S%&kDb zD3CA!8uLi@1dwl?H|1NPVSbN%0$X~Iz&dG}wV${t<6T~EvtD{#wO*%y5=RqDHTt5% z7^YHQVQ;e|nYSK5Nu!UwcPDji^m@LF*g*r7jC>FGGP)JXi&Cz%Bct&)i@A^Wyt8#` zr8QQ&J&lgPBRBbD5{~|?Fojm%n{n41sGE1#SvBy24!g~AG9eHC4`*)y6=m1%4-*Oo zh>EBvp^^duihxL|NJ>eEFm!h}hysElC0#1r-7%K) z!?JQEsIxauo7L`fFo|=?h|kT>U4}>T3F9sJpJ(e7s@t)!n+8(Ha4_@rJ#51_kpQr2 zCm6+jmhX(d*o5ER=521C)8%O0gN(BG;w$=ah#dli=>T&BhDpmb)|(Vl@g*$m+f;XF zr-Mt`*hxo^UVb2!2))C7F*JvIR?)DeD~J7dXu-hMxoz=C z{tTn%zArtFXB`5<0K7m{n8%Xeozh{P(rNyUsobAxrg^BVT5j%4F;cKvOgR>OK|*{t zIqHt1>5~mh;Y%iuu&}ltzCT}c!*h4@?*y==b)rwt_)4$A9tn)8WhkJXeFn2@n8e|V_@9kYfiRVl7abd52 zJZmG15fl`x>GXyKUf8-`yM7&aMS=4m8uzZ+d#AMe7&A z@9#NYs@pJ$g2n}i7sbWKSmtWjQ<@352`<8D4Fj}GJE@iuuvHq^wnLy+I4EGpJ}u7A zXANa)tQM#h`GRx&z`$syn|~9hVV-hbq=tv#NlD$1Wa-dXVZ6802fCWRVaCk>o_QwW znbt76YBLRcK*!Qg=9utG%gSDZu?Va+j(uhi-bd;0^u%f&Wb3Pox(Du&g%t-K^lO;7 z*UsNuiMfvMinXb~wjvxoLG=>dA*SyV>p{Itdym^9DkPaBvS&mJ$=V(5yVq$eu;^g2 zZ26OAA?N!%pZMn)k1Xw=ayE`A%?V~B{rSI_hc1^2<=+tE9t#gaWc@wQA9gZIknQ0lE~}uQ;jidOtkHNtA);@WCfEv9dA( zhKUVPp8ydx^5mZ4*N|WIaa{PwNHjE!`Lnp#a!R=!{{046onF2A_$%nz12ulZE*x|O zeK61`8$BPQVRd{0qaNrVsO`*(_qOzQlOrPD0geMwiIqq8Ft0{ny-v}u<>j9#DP4o9 zb8mG-ZVq{49#M;Rcg8eLW6k-o7o5F#9(K739SMUaPGtcw4Z#$C&HS?sojSX=un3B>LM&--{bkI~|TZDS4$(0ZxH1o&n z5A^=dwV4Uv6lY9K;#z+4T3VzHFfJ+i?C5!a+Yo}WXHY}I5R!O)+x#NUPI4rHTqy-s z-7@-V1taE5_qhgZNoDvgLhd)`z8JWa>3Tazq@6_L!N;D8FO(Mq=RR&)H#EudXix}- zTGt%C-L!tjry632@}n{IU)!8-*~lJxUh)}9Q0-A0R4`vAt519EP`*i( zm_fO@`3|`e9XyIPkP=GH=osN1yXrm3LA!~MA=jxHXG|%Qu_rxlDIKX*sLu4^jv%_$ z&C7YhgK`3z?FY!M+^p$VH#^GJed{qouD^5GYw9-BVrMGa4&}_fYd7w31oDQ(#6gpH z7QBzr)VE*om0TFEMk@#2WnhSG96Tc(Q(d=)c>!~+p5Cb)$B@J1f~5i6=~s}x)r}3| zz;@^QmgRd5(P6=I0n;q44^-bFcph#o;zT}{6Xo0B;J$jxjS1%4JCFBdwLSNh%Pl9w zL`2@XCD|bXnpIR)&4~2^;Vm9u$ao2SbcdqQwfVdCbbZ_s;+)}f%b|>+L{Iy*9voR zkSV@NK-&YmM-dqbQ35#>h3S<~$}Xr>B}c&sOzM<|q|LT$ih0oM z&a{)m`cy`l{J*sTS6PxXUg5PWC+{b}YjH6_UlK?!Lxe=P?B~0cExxf5cVurJaXa|> zV2_zg&79k~{o#{$RWSPZq*G^oQg9>!=Z-HCHIXuibg` zCSfQ!kCfDsd%Y|jHM8EYtzaha3ca4PxsOjypN<#!3GnsFN$(|ABi_p+82m4d*RF;p zn|a)$XL6o>%fX4QA@7nV7_PAPDD!gVp>Ho@PS>eeM9g8sdmmsM0IfDPF)5_vhwTb% zcxdn-&Q&^ghaPTXx{NxFO1e6liWHQaAQtHYvB=@Z$wwr1#0vAArz-NJZAQmFQNQ#49k8xVqUE&D0Z}z+;Z;0;<-YvQ@3YR zH!sb}NYc73-5pJ-62K!9+zah$&H&5795CMr!rn=sae8JY_uUX{Ztmet7w-iFXJoP% zwe0BJvR)tYcGEG8sKK!^FX^;w)uzF&FQAX4!o>B`@9*;y-J^K9y(yiXwU1vuMLdWv z2rB2=f+aMm=9rcZy+&hoRyHB}gB{nFw>FW=)G65(You9@h+{lqa-2mL<`-M-_2wT) zuZGnH=A#iZ&ef+Y!ks^v^n8?7%^i}?^XuKwZdltfmY_XKw*qxn=MC9g<@Hb12x2_Z zlw%&$4+}Lzmba$4%Sa9Vk6t#gJ^!A1u)UYvVKl~5MHW|8cOz4sUChAQOdQdB^zzPY zf)bDEaU#p9o9>d0pDgUs!hY)e`R#-s(&$lasp;M|P0h4jPm7n4tJ*q|BZv|eE4EOl zH@(WHdA+T;Rf6%`BmhTdP_dEN8c{#~_gAXSGCLwY~o3Y649?gbCgoXWpp)__h zW{mq*0mr}@Y|L2ZX*j`3H+{O{3_4_4&sx^LL&(N}a8xlYEH$~>b+@q7`~qx($~7eub(tt3Z}2ao_=a4BUa; zK(et^vKQKvX;#VnG$ffnO&jab8ehFMu?zLZc;gqS(K1SPxPD)_qhNen2ivOT%(iWtv+La&DL`o^a5Uu4SceH00+>dNmZ8~!h zla8#X!>!L&eZ^PYw5PFkqdJ!L*8`TU(F8{~SLy5TzyE-r`$@B_Je|jCf9V(8s5IyK zf56|8`R0+NO|su)u1mE~Yt)v$dLS_5v9EEHSY#h1ZlF3iB{QAnM-+A$I%MYD`;@wb*?VT~E>BOwI*6TF%7o90rY9Z7RI##WS3 zk%^rB!P%U&&F*h0)Od-V6{3t0Mnz8&ux#XVi;G+!-z4GW7EaFC-M!mk;Eo_&K+GXm z)e^$6|HNu6ny1`11;Ner#4|m}wBq;AWiDl~^=3vsya1v+t(v(sUDcpIlSY%$bzT9x zISF_rq|48N+?~fWhHA2+stOgfzkc8AeoLYKqO2EYH<=J8DS{0(j)(!fOP}=Oi%x*G zLDp`!)O(kkR~U=x8LP6-NI#u^HaAW456KNqb^||^2fIj%u}5C04n#Oy6tJG+S1lTV z5(ySmn391c2Az`fE~oo}1ps+R^Bmr7#fBXYeH<(-#kgPnqSG`bW4{fhoqyXB!+Ta@ zXrP*lhwb%7?XK)T3NE~L0|SFX$n3x=ZcOU0j0DcMoWFRH@M*SAq}rFH+zaj75Ya44 zC7fSX|NX}0nKVP#G}=i+1z2(efw(LHRwc zfM0VHOnFaw+$o8{*X}d z=fxGW&Z_(>8rX4Z#6t;C7lJ#sT{T`xjp=3sRDAqiYw9C26l)wU-?+4S#oHEEb62To zHXk*!SK9mvcQQ65xKGbkrA`2XH)91~4=q5Gt4RN$6ehU8;#qbNXyixnU8C_f+kt!$_Hhzur`YuYM%Moh zwkZ;NNa1N65qp(yWd&b4PFFbk=dO}^_hlZJbKq*g9a~utn=?;I)2ea0LQX9s?eG|6 z5!HIQgcX?AD22T|m`=fVpUq|rb<=vPFtldfuh+ovKG`YjyV^=y3t5(UI9mSCGgr!I zK+X#6Nzp<2^`N zUpbbSmmxm_*798TI+f0SaDnBtK!%g$Mus0|yv*Ek&)m$+1w&K*FMx7Ls`f*-?JA-L4PIwc;nc- z2M5b|cn{c4JkXfhyD(?IYPeO8?5n>pq=Dok2fU^O#!zpeIuGLTa4g44J}sc$x8-rm z?6BpzgtvNL{NHnK*1QWTlKmUJOif5f^rDi3wGM+fQ(xZkXF4W78>C36Jtest-b0$Ds6kk0c&pS^^_LgYKTavSOE=t8P?NlO z{(c}BGD^mB)!9BTcwf0{dOqBuygBynl@DCxw8o4Np6gu+H`?Xc@!nS3>lAK?Kw`Kd zEb$?j+3DU*b<`6)wBAj30V%8xB zbPJdOttbqD`{JNJ0papyRJ|ZX+f>%nL`+*9)YQ~)L57f&loU=C0{O0SR!6!rT3Xa_ zcWt5~1PFPYyus^y2V}ZJJbU_coAt8}Y*2c>LQ^0`g4+1rx1lr_AKX zpTZJZ?6j`2uP2CE|D`!}%w|$qqe)Q}B-AU32>ju-HW5&93r}WmUA@NX0j=lWmG<3| z5icS7wy#U8Z|NmHA54tHKFhAV>mVtw`@Iz(K&_fZkpjutIPirh0AR^YQV0q7_a8 zOO6TVmW!ZSpe|@CprKYM`Uf%YYXJ|Ly?x289spu2^oD|{SpiC6R;^-bPIkOVFn@qj zaHV6*%aN}TtcZ@Q;NQE=BeD=xS9#PnLK@G%XFe6xGeUSnc;dpqS7d+$yVv><61{;O zxqnG?;I%;9?ryNW5?y>k(Dulb`_O{Z4@#6kuuN}0iB5rz_abEjjLk~=JbBs)22;P6 zl^px?*ZF9elp8e6p9U@3aSqZ)JGye}wsnQ8Cf5EsMbF!L_e=)v*zIP41#Z@IZp3kH zWnFT;2Fc;l{=p78m^Q(UGK>N0GEG;@mRVIOZrr*ee5urMN$PBB*})kD#qKkW?-+|5 z;;@ZpI#YF|eEye3LgM`wrLKQ3p5CiLL7}0S!DkC?5aw?nkIs6d2a*Rl=-b!96#%f@ zeb!YMxkX{`rJ&i$7z}Lx_-y|8SfLMq5=m($2TV>8sHRz3PZtt24q z@xMgf{-$HSx}FH<&I$?&YVGb`$jV6i3sDFblhqWG;f0?!-)*HIYou8W6` z^ELn;?2iJU5W{16>o)R;%4agfBQFcHG`Fqbjj(1{##+cErr)+!BgZIwdJHWa9Zl!q z)vY}}OowBHvK`(yHmtQ(!tv4|La!w4*UZdTb;eAypDaT&ZbH`XG#IDX z$(fm%yRe;gKeWOF_#zc1C%2g>ugRAWpQ+}m=?)xo!;Hn0?9p#ZWFfbVHNtW!D8Bk= zR*puaceYz-^&j7AYj6LXqKTdRGSYxkVSp?sEHSaG4l?=x{s_9iIu4grnqf{5%6H z^~t0M;h4cIIzLf~%o>^dMW)gkQRh4F$0&Bi$S`)Mj&~yeDc3hzhb=sktGg4MI#eM! zU|kg))~v?kwapi$;Yx@%Pl!w_j|)b4bW7;7!ILtl#pw(Wg1Zv(vTD9!#^Ro8+$x)J zNMVKQpAy(bz#!Gkawvhi;~Jiv|3cFMHw>h-LR7CTxp7u58o@Z&=4x^O{a_;SVPW@KqX3)w)6`V>U%Hz)^7Lk@b{7#u971ocgL}2!90dhWzWUn&cD| z4EVp@H|wP19=9!{p&Tw>uFGC*)>n(Nr%6mS|~&)5(F<^;)e zx{q&-mDP2}kT`^c!l6aQiDm`ROS^Ef^eumtL>(b)11(Bk!WHbnJoj;ZAkb%zD<8(7*$ZxVLBW9h?aomp}L5ES#a6J8SJVBchqBGWu2X7W%kjD%0A~8YuyVLr2{@H4gCS>jb@i1uEiIT4GEY^e zYiwhokBCVmSbS_@Nj950R=#uj&BU9X@IaW^B_tT`vQj8K^%?;oZJ-?Ymc#+VMC;@R zN+9uJL=Yc0z9KUx_g~1?+YY+AFr-P*&#KxL(CB?=Dj#)SbT^UwR`^Lq3nc~Z$r7&%G?_{03bBKw^ zW}eU4!TQ6)X>VcpABlF)WCD;&brx0~iEzcBt+OEgeGyG$0SblGy((#0cCJRIdmLpv z@upqNYEDq<$;6$>=XaW|)~}GkzFuwVy&54og=tMNyO;Db;Nj}q)7h4Y4}8j>ML$c@ zJ}|^Y^2tWXv&!T1(XLnZnL#DaKidgy9fXBxkq!7Dc^>~%QC|M{#*=50)JGaa6~nC1 zEf^L_+}Fsa{PrSypQO<|t zHokf>>5ZC99zTaCL^boSNxWJXz{1PNZ+`6! z3z6NmKD-&7#<64lj%$}=>DFpu= z&z0MC_pd%vQ@i#mr(NjsfpDk`C_KE|-R z8Vnk6ysoYte_F_vd5L_eLf|k-s@}J?wN=;$Z06v;NM$SX!96VXE<#C(9tWgyOo5K+ z9(KeDgRjl{DoUk5TLvyP00IDFdZvA81E6|P7eFOkdmvf7=OGckVE=W=81|u?n*|5j ziNOEBbMRUakLSmO<~%OhV<#}lF7e4xd|kh}VOwWBZwROifgS_|2^nCP?kbsI7=wUn(T6Sw9oV4X&%$R@U(7PmU{o(*Oit~}< zKFRqxLn8=Dw<*9#xMT`sXeyJAMPOL{q$R zh*C-E4w#C!xgVKP#mASx%x;8zOL(bg!ut>2i0I49*J)%Oq)Aps@&+2ul#Lu79Bl0T z1{ln$W}Qc7pZfLxAAL69L3^Rsz$Cz#h_NJ}Hs!cG5iYK8K;JCUYPEUzB{4Y!w#J4N zcld{%yQVfj(IjK{maR^U97Sz&q^5PZJZkOU#CUvw6(bhDjd1!X4n+QxlcQr=adH2` zyHL9cw7>%(DZc(wFb9R(AP4oGO}97d>RB|_rlx&ml&2tlR+%!z0NogoLBfOh6;)B>*Hh1L z0sq)XB3ypZ6n>^VY}|0%dW=kVhHyJFjB zeHrin_*9#Ho1SPgDbP!rM=i&G|7yZK*(IHwF}kHKZC2YVb&`84Ry zk9}SRwNO6cN-CTdf5oKTy`DNSR7r!@qPF+P^hO7VS5#DVje^g{ZO)N%CC`?}9%m5k z+bk&v8cBV2r}Bw^++6W1A-+AobLYSA4f)Di?_8uFxF9Y7~*tUK;zpqm;q%7@bBWGB@XR2es6rA5&!0jo@+B-t+(;jy{A|Zwf9gD8ryDC{9qD6s>D4-fvBs3d`oo{mpZ4Ve6IVL|DHyr_y{MW;r_1L>ke5eYO7#RLBhZQ(C zA0e^KG7Ks2?*?#e4eA3-`4@2P5D;I9Ab7I9&09Xv$k<4nb3a(Ktv=5WXRIGIYxg-= zXa9T?0pldm+Hbk}!%^?gU+`=^+8!z!kM>`=+CWMdfLAy}vp(%Cm}gBJkaSDccgmJQ zkb88Y#Cc~Y!v7UtIt9|*@Jq0m!?f2*PgPei&tm;f&9CYO#^tOZ{c~^M#T;53PVYwl z_Wh&KS|!@v zQcm6s2#4neiwlB~#=;D*ukUI;w{jljM;<{tJ243R&b{~RLZFBrAA63*Wx=V+s^ zyQ<=KU~FoG{lR?0Jhw#^9!&0h6R3b^V=q4nlhNc#Wg18d!&7NQn#y|(lbi4E<3vg7Ygh_sBtj6z!S{(@81ReJnyOB#T&SVPO^&aO{F}q zr#Wu$;YLsR)v+@yplv?do{hmgQNG1var1RSNZ+aBm3{P0Q?Re&jy{E+UvSyufgqXF ze3)(M({MQMyT&!E@Cn{F4Ss}y+`l)4Qpy)kf&If}s_uiAJ2R(V5E^CZz|JutKl`5f zw9qr2Z~KF#Vtwu76(Ix4%D74c%z{hlyoUpn{e^|{{(gRTzgq8tiIdA>`J7}G+_8tp z%!|xMf6BgFQ@12m$o=V_U}}9>b{pBNOTbU)u60~lI{eDbtnivMM!!U%>lyeei()^7>a=O>;GB|LwZ7`miC@UxVtb0ZAZcaQZ2 z^d-w9o+O1S?$i~$iatrC>{{#-h-;gJSU|435zFNyEdA@%t4u8lF_A4rQ#6=qxrL5H z!PJ|-7PDPdh}I;e6TuKTDf4xEI-V_uC<3j}A|k`ve~s%MM;)jZ=Qvmpeu}PCD_w& zfj;#YC+50+_gL&%)zwNr%(;ri6>d+=SRQIBEht^J{&_1c=c;wR%7W5P`ElM|eXekW zUk@XRQm03_zb|Lq8Dg~Xm|yj49(R18P&^isy)rS-#2IyS|1`SRC0GE$n_%4sqcZUw zs!Ju1kOS@OQtNPq?-MGbuh7a8+=oVx(PYNOsg2CemKuP#9DY@VXW79xxUkX@%F1c+ zUXQkoY#_$l(9kefqwGR*kGPgrVv<5eT7LeeRe(LiS18^f?6`3q39KcKC&c9oIK1XD>}k_kP=3cRKzW{Tkg?1lLBPLEF{p z>S}NWzdS}WbFdDS2TsMcWlq%8=6*6k&>EG*=I67+9`6Oj;uF|1ti=APt+up0G#8`X-%weBw(4=O(_`vS8EpW$ zk&+&D$t%Xju=gZB44bRmJK4xaReSV_vLPIQ- zdCX#G@5rsId`gKjRa%IRSr&T!+MbYCwslZjw2QRUA^A_bjv&|00LjC*LuwaFcGUio zlvLjf*k0D&>14F>*j1@Am`bqk7f8|P`cm~p;DJ}}tru>w3fU;0tDksg^onAP>a)^S zS!A9lzZwb=OKH@5C{iZND>LV9At8$4-hE|w?%k?IRG$pif^+=+MJLwgX#HCTMz=Iv zpIjpx`WnQuPRsI;GL2y;S;7v}5_D}&7~~AybFZ|;ILKAF5#qjmj27>v^I{9g6B*7k zT4aA1@tQcjPU_{{UTPd=SX{iGnOkoZ6+9zkLn9v((cM`ry%Ch~_=ML+buLw)ge~G{ zLP^yvM$Vw!ruW?A9x7cUP#X_wt_3`LhHthxO$R)dDPyiSIvaJ%`=hs_V#I;M>%|=Z z)TGAvAAmf5KY&T0W%e7iJW$S2v7PojECM;FiWNFs7a15CUr*m+4*1y2wo7K6cZdT} z!6KiGbB5YMhG1f0Asyp2c7hsbO@c`hx8e_F_niGcvlk#@?MYF#|4dc&298RF_YaPY zlx$8>_Xm3I)}^Kz$Rkt)V^MP+RjDueZajUh+EVZCECC4>(CuNXkzB49mcGk5G;8D2 z&oV~jGDdpxPf6LdYhxgnH3F7^{_*i_WgW7z+$(4h4B&rR+3oS%u=m)oPu7P8AXmMl z`SR(}lY@Tvl)3bq>iTFp8ZwHis=4-^OqpJn)7TAi7+Adv zT@J}#e`_Uk$|UATd)cvNqn^SD-Aq2Wxg8(rYU+T)E@6YA-Q898~vD>hLEt%wql|G%R=a5+UQoyi@K*#=xP{eK$HS z1ND+J*X`M(d4(nk(!btHGLggGG|lY}!TwLH4n}2B9E$7%oiXMi>t9m7bw3QuIB3W$dLU54VG#Q~OgL+e+pC6;ls0#I0S zDj?k!N|yWBWL1%@OG>vmdicdFh$}gPqbGrHx3mK`ALJDid7cZiUuor7Xm+?2{DUOr z2(RDiU6nY}+Jsn#QNs{khgEIA#9X9N*Dav+$r_+$BySd5%Avm@|HG#!M6v8-b)FPqvZd*MUfk`4lH0g=o;PE8Iq&P3Na6-2 zUMqpc{e1_*4gba+D*pfACz}-rdXpDWIt^L^y0hT35l|;7jV!Oc@T>7c69#o^G-;A^nRuDlJfL7tv5S{_U;I5?MD8`EMuWTu;fjX! zm*TOyRX)4PX5}ZnHi4UUC&@c!7SEKI4dV4K342lmJwvr`>k4+*z1q?vG(x!Xquk4Uq+}xbQ~u>ZIZq4;|CycupR>Uy@bj8KIfDpTm*C z8voe+b6@|vqsID*xwW5mmL7{A5s%++Y17pdCdjS1uj-%1-~L>-s*x&pes_p73RbpS zo0%7RJIdV3H`w2tV_rx`2PM-WPaxU5r|OpC5OKF8A~9W+dnu}*mH`A7rmKf24|uEE zCmx+yWJwSVl5*J2M_Q55<{Y&#?0li^`jUZhiAr#aT3_$)G)jm20`uZr^FhgP9%Wk! z52M@IT(@tzE=25>slp;x97a)Kd{2mIKh1d}xSE#g3t$}IwWM7^1Av+#^KOMbu<+cD zc0n{C8T115ujEc4vft};6=4srh=`63n6!de{vOU#7jRLHmLZ?JXL%gW1PEYHcHKG> zxwju?`EQwQOI(dOKK(Lso3L|v8tW9-^~rnZA>4eCg$+FZLQL1%d6M}ss$lYd7I4c#Shw#4PUPE zuRf~&hK|2vXhS(ftgN-UO!9r~7iewPfbCebJq16}MPCHG&6XBc5_HW4Aqy zf?B<^B{9@D6R@;-nEEp$?m0D2wY0jKPpR|x{Syjgd8H6(KQJ!f` zWpg8S#sL;~sn`uvV|AJ64x%T52ai^~R+}R+F;QdQbp6zwzN{x*gCeJ1Nu+n)?zKCX zMl$c^`r4YnB8!?btFpQMB-_whB^qd&R|BksLZh>WKS>7(~H=Jv-u z&Y2J|2zcvxSTj9eK4C?ub12B&4>=FAH75YJjC#ripTR|QZ%=M|@us0cT`-_591FPd zbq?)L$eVBdWG<*YmHbZWY5}x0X@etbwJs0AJYQ{|Wwa36Dd<=~wP0N9B`!|V(J@3m)WROoog`zu-mTJl8?+Yn9l06gKT*yoqk)p-2Svup z*8WZJTbDakE|5(LKm6nDdHI6<>1@c>>R~p@11);Q5%=)B<7X|x4sUtAqMKd9PuaP# zOO=C1Tdz&ox+-DGnEfTrz@1bS#4tv3^2EM=PWUECIx{vS%dK{A!~Qsd2JLye`OC|& zZZG28@ZY*q$u{@nh;Zlm5eDB$DUyfR==x2BJPe<4j0WS5antC3`cX3aSp;*5{p(4{ zS=##W@RQ`M73IyIL~FE2-eGKk5R2gMka(K42j^FLmr+&Qw)&FsSwt1>- zA`LD-lUeoE>#fkZRtIOC6QF_Kc%{)Tv%2soSFMO(=;TaO=tPavF<&gfHm*7EyS-V- zVbF@*D#OTEzF}9%Rr>)efNj;AxS8y76Q4$*GPjg`{`xKvkbc1M0P9{cw9Q-BRdU;c zmKPDo;%pS#lt zYZ8-=!zU?Jw4(8i2A-O6#q6rpsme9kaP7B5=2JOYnlftb5jV{$Z4{0tM)n-oe0Xep zNj4&odV^;QKEevQW7kY^O=tSGVDWyE)k2jD`HHfiOZ9%H(SUqp= z=)Kx?j0F;=18GiOQB1Hg^MK~&Npex#)-U5figKS$?A?|Q_iiI*eh|gL+eGp;gYPO+ z6pDBl%j*s7mLHc)eWn$P(D|utgQC6Yf0VbJh_%mS9Ll-in7iNOG)am-?^LR!(vTgu zePXhI$Ury2o;g&&(w45j<3Xohv!OK%>&8c2Hn#>0r#!P@OkcL;Cc(Mf^L{kj^O8JdLKD zg8I0tgqekfp-}uPbsas~<9XXt7QNE9xpAtt#DweaCqP3MfUMIbs9fsf)AyQbnXyTw zPr@w{?HK)Pk7^dR6suFYVX`v>YuJj!xX(`~B~EAbG)ldys4n;^Fq~(8ApYXpWv80N z5HxH3{=zo#!K;hjwvi`R;2UXYu2QRF)8N^XBZe#v%j zrz0yf-)Obebgg`Bic10pD)L^EGj;-y{D2BxscAdur}GDMZw@Dbw9(pd)+c!#O)0E#dirHG zJ?Mz|87c4dQh>auNMflIi`ZtK@XjFMzJJR|82N32AC*l=dv?5?solMR;a^rVEqs_1an7zr)Mx+{#0^ za##S@=zKayTS37QhlpLV-9Ypl(E1vhn%rG3e_3t!)8~F%pwxi?0pmB_9|Dwv%Y;I8 z>ItYY2Ue2n_?n6-dx@$!3c)(lb^NKZa^2BGK@+%}h*?R$^X}CsF;k{h4h`fRkW~$9 zJa?(n{rVIW4F}`8!@(3+3{4PJVX&@+<*Jyg)XJoxA(AwE&+VoJdbJAiN=W_l)k{@%l@X|mrsWWOli5%BkdAb zLurlc%glF!hlST4r*x_M_Z)|AF9pY8=b9I2g$V6cDH(I@rWS?$NDlcqpC-*%*~>Mp zZ!XepQxs(Z9OtMgs=9jq;I*u3PQN#6jm-z-#q?Y0*g#L~Hq!$tvk)qp#~fWrznBi{ z7_gQL-2Rr)--eNf6Et_Yr)h~6ePTxv9*Wi7Tn*|e8m0{@`e4fTcql**>OElA2$(B= zLbptu)$9qC(O9t|u7Fc72zW-C1_m)Xh{yEp8-*t!Llt!D{>vhN3G0;xo$$;A#Dw3o zGBFv4GKR{ZH&?^+ISvp{4JT%uGcTx9i9d)&o`}XoQj6g2%t(CW$VD};*A{kZs zw!#RhrdOr)>L^#IGW64g6HsqT7N{+&$I*=vAebth-Lx4h0IAXE11H}ZPKIaubyqp0 z-QFI{(Y$|e8#;pTEJApRdc#9vIGLc-*-_rpy4k0mL2~+b!%BO4%H-Drd)t@yt~?!| zxR393oJYbV?eW$X8gq)f@r^kj^yu9T!_SH1_dASkV~mjGYJ`P7FJv&ypydg|3Lkkn zu*dtvA-*fBxc0+I2=&y^D!orG;y1%PJpxnjX_SZ5&iCd!5`t~0k<8k=hOSpow3>`h zm`M01O~?<#bC4X9r#~wUeS%wf?Plk0mpMDuf5U(CCw0vJOMq--7fsA4*13y@7fzYT ze(+<}9%W%TY2U}Bnts(+PW=6Jucq)#$MdeFA53Wdy5KXk!ngt+C@M)fQ$Iz@2fb3V zAM&k-jX^lPMKPu}nIjC&P8o_OB%ng2PB+F&V5AnUu5M{-)0LAPIg51nkQRf|iAqk2 z;PN^4XZ~C~il!Gva$OfoHQbtu*Snq5{E(GWM3vvmqdL%Eh^;@dGW$eq#W6MCu#*`- zDy|pG%rk^3a(r>WpO|Pld8zCB@4qs=)4!h0=V-4JAZc$eCCv>fKBpE7^2ho z;?G)T`G(wax8G^xE>1(~CBuRl7e-x5lyBdRXWfaPQ>Q!%o)X&vIlR9`*w-5? zd8chd>Az&KmCG$$O5C|&>%@P#jfD6RDy&wzCQP`bh7wb|Pk7Mf}o9x@bJ;lQflMB=6tt2RY<6o?u?r#`|^Zw5W$+;NQ8$Bo*+RIbMCD%KPJI@ea|H3kg zl&)IyZEq@TacY-UE$8v7)5-oe?QJ;my6R4cl&&oLY*pRaEb+QLEzedZu!kUP|7P@; ziW_xgquc;*()n}UqmJebcLD}N8cR_S&d?-*tGQX;?Ca{#gb*k97-w453Nd?H4<(gC z=|_e!{1`=+QW|}-L;k2C3v;26ZW<+#4g1MQ4V4(L51RD{6(M=`?VU`E9k7~CO=;f? zJLmJQ;*`v9e09jI4D8Y$Uf%PMFXXNF3MP?Pd6eXMQG2*_*b4Drq$(bNw6Z^@-TudD z(ck^}Ioq@Ck@MC{%C?QOx*21+T}Xf=gMPnB(klP7#yh1mNgmuEG-4gjn|G4Pj`TA) z<>e&RSSV?9aT=pf!kro&Vg0h?XlWdsvW_q>j(*M1@R?)`(q||jyhFoBQeJtq~V+hMe*lRk-lu^KTC%z19T#zKfN*) zfL%P_LdEZ=T4Uo*ud@|{8MNu9jwsH3!XbVNy1I9v$5?uCaX47iOvUDK-!~2ogaZ&a zs;H)xS#v&X1u`3k@RT4~Ht^-qA4IuCn8bT%uY!l`*DbOap^rm$>>&U4fU^+S=qI|v zuo9KMQuBr#=iBJ=fXqO{sh;SYX7vP0+8z%PnkD{euc8^H5!DX&aSz%*a_}f5_3zkq zdB`j%x$~#ZH&^()2C+1*|K1z#(|vF-d$b0rrNjVK=nBcxxMR{u0i;-cpIBa7Yh2woBlA(9Z5$dKYlB0iL(sfds@MN5@ieZX^WdOC zW<7u*`jAABS#iqy__0YIzQWr{tBh~o-Wqm90YsA4r1v=B5>@Y1p33}-gdsDTm~M*Z z<&k808i6P5!pZrVApM*nsq&7dtOF-YFP5$2Q!2si-{Asz$VEdI+oy@(>9*TjdVS(0 z92=Wu`HKA9nbJd&S7zKjj~_&4D*wpJKcT)j8A<*qQ+WBd-ISrHC!ibKZjO$=4|8tR zF$Q`v%v1e#CuolD?aL7G(ef0oJUr9MlHst4pX9mZqdP%wCaK?lu&&k_^ztzW@%OFq zx``f1#sA{zeFwhBdHeA#!}LmDdiTkU&{;*XVZzl}pXvt+qIRpqZyQX?J?0-s)}7Yn z=1Oy&KyV{)8Tzm*^Rcb?lY{1ofAGUX30pp9F)mX5sW&78UX@dw2T9k3g_l!k(A?KF z>vy6`=bFq7$|hgHa^`#A@>*A3-eacyN>aZU?_Yd-J`mg=;vF&~mt^%A@-=X}e~9NV z2AS;&t-zP!lg%3E044MZf)dlaSkJRg#J86$X5+ zbq^a18)QpjKPI%F&G?w$c$;XB&-3}5Uck)&8zGD?D$%IgRelY^uH7l2^1ofpR=r<+X%gmiAV~M!h_isG^h8C z+dhu8!p2%3$}JdQCSt|_xuil&;GpX(?b_zh2_I!oxnRw#y*Ghn&blO+MW2vaFbFh7jvm z+j&g|53H&WOq)@IuJ=hzK0%V5zP9UaIhMb%IttPw8*EHB_|~O4W99fK&z+9FT!}BM(DmPcoSL}G*6}sHMx%%BG zq(7RQVj8>en-$2%%&GDEj=Wl-4nE{BL*x$qo)1nN28w4~TQv8ZQCGk%R005{QJ&_V zfM4z2Zog(YONJkW0#+$uYg_aU&0@AW0v(dU)(GOAUK&i~1=wofbUekyS8FEo_kCr~ z-Ud4P@p_{3lw{xm>ML3A=U+Q1O%>9$Y25<$hecOwMLx(LnIg zPxalRm4DI$LzTcP%BzAgM=88PZ4Mjv|2uQ=PicZ2<0|TMhgzeJkcagTzZN-fwBk?r zCqXBg$D2c{2+=$#?jYDzf4^0*{r;COXr4$$XoH~o$fJIqZDMIT53iAtoOtW<+0%OZ z>uk6DfKWb~MPIk_QWNTGi(jXj@@cxlVGEgT82;0r4R6BHm$?aGoNK26#Esgp@%hOdR{V00&cIAy1 zaf#+LElel5t`7brg_wzB@l@9TOa4QDd3si9{cKJ#{3Cw37c?J!Rc5swa$R{sbtxm2 zc#RlaEb9AqJ@i7Ci&9-t|BZ8JZV;`~#xY_wb+1p(oMWQ%v>-hUH-A(#G10Z(a8PcQ zKKI1*b5rF{qZuw0uGmYgxEB|=W;zYFFerOh$Sv>wwtCG1VS4Yz-TmnToIZa18IvqG zn%CJ@zM3w4tt(6jgYb;`_$X543|1pXEIlOz>;9-SPTaVa?xC(9F4Xbgaw1>dK;9Dt zQw(WZ{7I5j^Y{^!xhE)2w;BCAUuAfVKOxOrMV=z&)iRQOrHLng)me}o`pO}B@Y>M5 zf#R}jX!()x%%#H+=dzmvM9=3ldHscZUgq&iX~(^E#9LY-Jn!3A&*ddV(^iw;6vO<# z5+?r;v^*ZhzcjaX_upE8|N6uJt=am~Lh+w8RnPyEri$c0X{vNC|ECnpcmF*i|69a$ z^ZkF2e>L2B|9^gA|N6U#{*(NR^TT67l^v|tBgEABRAV*MEe641-fNK|U6Hdb0T|C{ z2cF%%zu_4-7)-#9XyQ#w@bmd>fPS%ku}RGyzZ=hw0&3-^*MCd(4B8z z4n92kre(kE1bP~F?)A^E#mBGQete#(J~h96Jm+ID|M4g^)meS-M6gP?j}FZ||7%-_ zupSJs-1JYSUsu$0m1P^!nL|^SJF$I+$=W?`J3}p3u;GF$%5{8tmYUs7>c{c1CW^h` zhwUp$?whV_Z_wh~_S zuES1atq_$zvhoDkuMIyaFe9_(Fl%@zs(mV+Za4p$Yvm@7K)Z`8hViijscw^sFpsJO ze^O&(K-l;uJu@?2;kYaxMHc8--zt2)^k^tx#Jau?K%C+m-R|$K8QJizVnrVFNw+$Nh>PS)A?Mi0xp%$N4be?Q z&KOQtpM3-r{+i+_xT7VUH9Pg?42j4>#pE^=;zP~HR!LM@=*N~A@0-()kt{`B{Q6|L ze0?RkY;7>C^jC&QHQUhw+L2kph;;Le8}Ss)gEc%dT-vBFi9+?kDV3C-JADeT>rcN_ zu60&D!pGobT)uJtD$=`55jOzcDVl!8k=ZR9MfzA^kK#7i1vV$wWI+Ro+lG<1CFAgd zx?8@%5(idQ-3k)5;lVmdVfAXkdKa@_6ZY$RfAdP@9v*Rt^7iJ<%B_=-bAzKjBv*~=a;7+NnC9M1lO0-CP5%SD?l^zyX> zUzGdrg|db1_0`6PotP{zi)RQ!J~Z_t;UY5#!7tg@)lIiffOY>a&b{-w(|q=bwdEU? z!rg%4z2HlKnSwS&ryuQJPqTQSq*2Hb55u*-)Mu7*-Lz@0vR+qA_q{7ieP^E zq`ASt)C=j9$3e3e0N!H4h!jQ=sK<16bTqE#4w&8remU5fH|V4vKMa~<{Pb_sF}JKi z%D=;yYDmuLFC(14t|5qBH)_UN`47sKeN+@$-*@W@6;zQwG(&dZpdL<)+6&SjE^gL7kI z1CEJ_b1FTPD~ZO&++}w@grvGHVxy`R227q&fTLl^Gp$!>&~<1!nm{IU_wvc@ql5So z>!KG+Xg+HzYXw;_qBZ(}x0FMp-1A(51&0CPV3zQa)TSXNXNKQvB(Ax0r3 zwf@^5Vc1yYl9hI1+XB(Wy?n6`dcS_S;h?eJ(L^fT3w&dFja|WGB&L@m;C&OI?^A@c z<)pW*Z+LGxeR?`S;dbudwdK=T!6{VO#lo+hqzW$t-mQdn^V4+;%-mwon^RQbYpTbc z)y`rIiDp_`pk!y*uDv<}g1qatOK?SrpI}J}M z&5uj`vj06VR5bs#L^?GG2_0$v4ci+YlhOYL&D>r!yLj+%6PEJB4qqWVGC5Rl;(%e} z=d1U3D{7^W>?oQy?3CW~`;DOpj4fee9-eK4;M+|1SQt@_|L*;<3wZd)z32r*h|SXWD8`xd*nl8Mv4uxr3bl z`F6b^`p5Ydq{U^%i)HA4zB@vvzQWnW(wGq;M#Ym5lENq_5u>Hro2uKCe2-U>J_j_GQy4X9OZ*c~9yyQZvInYD7Xa|K~ zmlwPHE9|=|s}ETo<4%sD$FTV~1oBhne6hMF=#CQ#t@-k4hhf=NMV037y4>TmB|fQ8 zX-p@mX$l`}s=Q>m#^C_HUlT^SWEhpf-;o@(q2Ya8?~Kf6sbKaq)yB9+WSIWIjN3zu zgkA}d$_E&X75CE}(qf|Iy!p}5H$dhW*giCSv~3;(CG#RRmh>?gaH^sFQAq=UUf+_F z3o2WR0Qrykk%%YAY^0~Z&b>c?_YD${Pl(0zZPcgB!B+PO>5O#5&_hD*7lu!y;UY1! zjn*mlBah8ai94Yq#Ufo_pJ}b`(}rCN9_U`b=<4%zSF-qog!9Wavm3@{%44M#V;zM) z^qa8b_md*%XkA`nC|0i5RGK{ZykRA#`rRghE|(6jrU>ywnAO}CRD<*iywiwx=6S!! z*zU0|q?i$HNJl51@(OiVJM1}nK#S86jJ`D6p4;sLdjhopuDw;w ztQ#OwP;)}g^Jt#@FyX+Z>3IosHym{e^bUY%0hCAOJ zD>N!*QMSF<{$tmar*3@#v8Invw^$+s_Dr1y6*Y`5z*#emL#(OzPVMkW(=M8skvdZ+xL;_+|z( zG%pw}9IdP+GR~-0UGI6)jKC;pjE_^ys7VSWv5W-Nhi3muL`i+a6$V+=(hGxrsuQl_ z0wHX{-lNGo5&-D*antmj#si97R!qr3GT~HeD#@G4+DtdV&1jsTOAl)hQw^biiD!_@ zCC>$isWlLciC8+|`k8o{8&nO@Ti`D-&2yEITKUI zJKZ>Cw^f2r&kY!oHCw$W{`_OZE?p)UFCQGR?s?-OMz&6_Bky>$4a&dISGhsQg-3vru>UMe!a6X8QtY|XO+M?Rdx z(BE6mQ1h(i^WkpJ)B+9l{?mHF0|>#m*-(dPxZArn6oivdkn+CX!%1xeSD?@N1V#JP zGen!)H(`~81Krs^VWNUB-p-F}(R!VQ>-?)w_$WjdfbPJ^ot{g1atS2wK+MJzcV?Dw;GGPk*O%{L(jfKv$I{J zy!PZEA!7D|+^g3x9oX-Fa?O1~*Us~CW(S0_rNQB9&1Bt0+JlvbiW4PMv)$J1`bU)) zceIWqBM?GIenu$^(0L4WHX$MV2a)ne=nvTskEr2Q=+9CA!9n-Z`6FAfLm4{;Os*Q| zZhsI*gJJy$E1BSW(viHF^&n9z8J4Gz%Q}JXvpq87dg5Q?KVy?6&*48?M%?lVX=Nn~ zM@j96_04q1H716uUBxe;7YJ7S0zK}@$Hu|c;2=8Dg??zOmPPzx(Czv8e=ft;cKh~) z1n!eyk%mf`2Mq$S=j6nNU8rk&oEwOAB4*RWlup*uAJ(4Hc#*(I-oQRV4GTCZ;3;fM z7f=ts3jA}Amu?5*Unf|M(fG4d6HU9d>w#N2V}o9XzzoL*W!;(!3j;x!0{`l&(bZK8 z9^1iNr;zMb`ON0e6_tbp=00mkcI-bp#*Os5fRy5^5_&bsCwh(e`jja9unMedsz$e0 zcX|`5j8AVJ!Zo_<%FAc|I@tPNP#hvNU}=||Daf9oRYPIhOTO`)x!&0X-qNzF^UF?z zEtjL^Tu*t8<6+!VyZV$M>av|iG%rpD-VS<2t5rqpCo|R&J~;k0Dkhl&$N$I&oJ;&d#2;unDLYCG*Pc8o zs)w=v)8Gg8WI;dQh=}vs(*QQ|s$!6EpP7L{PBx@Hcup z-@1`IBDJf+f{|)zQ;)2wzKBI+HQg)3oD|ILYr$*pUe=Mwh2miYe ztMy$g^&4CDPWOV6&%;XukeOx+kF}13tozjuC8J`SIrl098M!&H9(-s-vB&>jo1P*) z)qYtCL*JqnJj~$Py&~$uC+ksAeV%$(7l;sV&DA9U%{W_7-w@SH50FS#%f}-A1#HJn z%LxO-6%L=dhof@k`1x`0?Ep&gdQBjg`{j3v!-tkz;1Ti_5OxRc&-MJRi5H)fA4fh; zf2aB5oEqlA1xDGCo#HMi2JkfLFVP=%8Aja@S6h2^bacdo^X9EzWM8HTSrLZQy-dug z(jG|Z&-0W5DAUgaF^J%P+-lv^GA5fSv$9G5XF_(-mssd15(wAS#z683Ll>u&>(1Yx z-h}p21VUREEvbG(fP&;N8s6bV5rIX-FeEUvk>b7X907^7MUH=yBoJ!JAQiQnfGn$S zc6I6e#&p_#Igv+!(f1sxoWWGpx@m9UB};IHuJK44WCDkiuTl9tx=^EX(Tb1o6f`a1 zo2#HR*yqOyRBmrCPEXuApw-@lYb$P{;j9PKWzt&^PSGn1Xnv#tLbA6bJZULqMr$Vj zw0nY6f&12MH?#xGku;I_d^gPG3?<^Oc3kzS_F`=uOxgENXIZ`5B!-bXg=EW_{@nz$*}#M`3e){a{$ARY=|{XT>22GN@eVC_ zjs_}fq!Y&6etElE)F3Mnr;Z9q2b>-=bj?TY2@HdK9na>dP91luwms0U{f#FodP=(7 zq35w|y1TfpaWKmVj0%*L+&uC1bHY7wgah*~jl|97k?WgdX`a&pRsT>9AlAS zi^a3lB{00*ei|+Dr$~R`;2rrandmCK+CP2A>k1wu&2xhNr;xX{zvZ<49?}_qszIUK zD7jg=PL!NHgdL;R+E1wUdy!9db+6goJTJOb+e0a*)G`4itG-^i=^7jZinVVo zoRtbaash>6JBF!rQchI#_mAVqcjMIfez*OarzV#6|Li-JMRFW>l|4AS@&IGGYyQXy zU?0=6vfe9HoxG8+l1n^o{GB`J@sF(9S{#s_GGjJMf?nC;WBFakci9R&l^Q#Bic;<_ z?QEbzb!r-)7ZxOo+rJzci8?L3*gA!p{no6`IIyN6iXKmW_flsa2x8*F8lFR6?tVBd zyxVJ7%J$D@NaHwcp|=XJ=EQdWL!nZ*--pm;LcKT~G15{@EL=^Gdn2YFty)DNLdWqGn5M zUU;{I=tQkP*n<4`&L`=-tdE6Y2XLjPF|@%EXZkh|9(KH!`ooyM^l~&77+L)pbsO@=S(Ds-9!b@<0O4XzlD+fk3vsv`Z zO^QQsvPY#e@PA>-#Kyh_Vvu+=Uo<$$U(H~ZnJG*SPZ&P=B$VXV*-CW(hlMzwcZGAOL>|2X-o2wgjVa5zw z`^nzbCJeT>arA?6~4b|T$H80agQm>5ah?E$fwF< zL+(1bsl5j8z$887!vW(eQAq3h?c@va1bSM|Lv}E=>ftK`W4$(q2N$9YRr(wK9iYX$XRbiQV?v;psFxdQTeLZr`7!Tbm|rXaqfp8 zd+ueG!ZrPu0|)n1PMf+LyI<}-Bes2FdHW6GlAq;E8q9-I5jtBz_ZRGFDeh%&=3LzO z#~6n6Mo@^qyL(HI+vZiW1%?;!Xa``M#MpSra0V>5wE;G&nG;gS4@`=_GeTy>AweWo zx@ZcXuztpo2Q=ZYP(*umW|gwPb;8{*P5|60Z5C6%SZ&?9T=`wE=fx*^|X*Z9DKM(I?w78mmD zb&N`P{47{`$+&^#s?8Q z3dDi8?G(Bbg`vgT)f(cxyVWw4m{W&eU&{5V9yCEMG$uzr)wij*BiGpV+%hmFhxssw zXSn^=puPKKgx(US+?W5)M?psvc!$f}>h{@`pQV6jd z(KM%RTA9>n+at@8VlI)8D0;FY%FzGzK*(9*)nqJgac3YFF`krDsI!UCh(ZRl#5V6K zau|d*?ycj>RDWXbXRNp=_~4f;9{{Z(5Q|w45ntbbBi-)RoEVTJdCqG&R7N;6_E}%< zt)>`l7(_-iWUW#8!X$nXigRJ%>xs))N@*v_|$WE}R zVp@UVHrv)tZcta>IZybMKiln9OOIh5!(3%_O7C`jWl}q++__}dw|&kG&X(kbK%Vw& zL}5AAo@A8u<>j|^Wcdw&oDA&J?$$^Wl9H3^_Bd3L&0ar1OvYGGn7@Ct^38IzkRYU0 z_xFO;ADb$SU-s|tg0eJUOD5P{bg%f1vc%imi!6y|9$|~c^J`8`3g5^qTT~#Hufl>S zx>DARhqjWEn1@HbMWt>o>UsZ4L;ut!m845<hJz=?Rz>x+Z3G@iMkxbk!5`=`gJAccUar3g9V=UG&0 zI|4NSMU{>nOAvgQU&7hxg>vbTG#9z!r6QNc_xNZ9Fb7e$sRphK1=KvJ&BFh_F_({v zVtIvxBS+liqGW8R)p4`VJTLiXW7}W#GmE;|a)(wrM62#ThM%N zK~z$5&E&Xl_g81xD-+A{!s8YzfQ)^UOz=G3hQ-wMKPUKY7?gEat)zgo!Ih+skiPxzuL?RmW8SSZWX#hCcYFzt zSb;_1d2_lyT%7xBbK$6xifeCgGkQ@drC zwR|=|I4ALBGOT%_(V{XE$o1{-ZoWUEYTw`8jV&oHEuP*61r(q# z+S%QWHL&=u((m!6F~A0cmT4J2`tTq7WfCF#4#WRq0nTy1L1)GPR8*mMM##0kO8)Q0 zMrwApUrIiyMzYdm>@bv)gMW&9TTf$-?n{O4NdMOPYQ?+HeopT8SNkqDdA8yI?Bcg@ z8&_983Xsz^Ww87-$z5`X{V5|Ou9^0OrNF?+8i$&l^Lg-}yWj^YmMfIxU}nP1o!0etxv2?rCi0|fDtzJDcIh650I?csD$uf-yBRhv ztBeo3jRFds`#vZnKlNQ46HCi+xw*hsksS@3VL(*&8$7u$AbrD{cY(NY8Rv@b1J63{QYUI0_5x)tYksj5fG zI=$njddJ7*mXC|tb4uONgZ_KIOHqL%^X7^a{hi*KLr+Kg*NdUtO{H<_LdTyTMZz33 zSEW2UH%=73`_$M`&{JaY$p!HAH4_QB{ zw?qEeWSF2La(();^txOd>bt*v?bHW$X{`n)dR>YB&unQHtiC5FQ{}A$SsC=V4IMD_ zdf8D7J~>&RRE38;bS=9l$t`93gi^LU;a7=~9xGg2QITN5N-e10U~E^^iUjUv{pH(( zOZUe^B|IRXv`#PPsD}$)e`!!m2eqEJ!9;aGIX_&@C2QNTILCXmadX{sRrvOzH*aH2 z?SLaQ&TdrI+U2lF@#QC^DF7f4-tql@WdR>t#^K=g2N838llYZ*j9({`Q8p5JX> zI|P0|I#L^zKX+}a{9AQ_Tjaptps2Dk5$N=QXaz_xOkHO21Gx4fDZwJ9RdOg zpacpcl2IYC5u~V(T|nlmTH9Xs`d*hAG=5k(9yGtZ2Bde?@>Twoux-=lT(IM}uft?M zD17q2X*K`X;{fq=844lyVAeVx%3cl%%9E=o6FDEXt9VJY!*^Tc*AiXQ=iav-FJEcZ z97RxOz*y(SJS?%I;355WemhHu-=?+$?w9OmGp;F@rUvz*wT|uZ%po^Cwo>ZpUoxD` zv7aJJ_Nm?Ch_>DB97puRD)!s%HN0ejENAvKI;lRV*Q6(dMP~%{!O~p}r8Z<0*3rLu zJY)`8uRq8>Xd#ms8Ld+55h+OP{&Z>6=$%ukxUv>rGHqA=&MU%kK!y${Nbc0$ z&C2gdW$%}3rqvET-f6e}1tOJ^UF$sW(>Y?J%P14POKwi0*ql`aYoHE#J7d6U_ ztw^V0*&v<@by+t*2D7{#mi?s`fdLj*tY(FIk2^6Z9w(`4vUik4)=D~0tx(dL0M>n; zcYt2gd;kak1Bz}Vj4&(}8Cj{zpJpbIsV2WR6vbH;#$(f{C}@XB3f&Yw?xW;w+K^$O?_8#^*5?dhfmrI5>b7BZe;jel@BD8 zJQ|R%p?cY$ZsrAfp`TJrO6C}8NMJ7%*;rZWiGv1bXRn}A$JPDMQI2Rtn1y-_>wF~z zW7{h!bD~>x)?%2xL*6w-H7pNZMDeyO|c)z`4_i3YKy68TWPmCB} zM7WiJ;}&22!}$Z&&9R={u>D~A_S>%vDLf433S;31f)T5SJ#H`42aW3cPd}NP2XD_$ zGK>foso7L%{+hLrV;};SEiEfH8xBtrQQcg0k)0W1vjEfwfSh?MxrST?9uIAIgyjQU zbwSTyKkN>F)+YkHWiu2OA#muU1XP!Z4V$wVqZ9 z9=z(0-q1JaYeDbs5Gzzc@1@motfbhq`WkGhe#8W>uDqTQw{i+D9=u;;aVhe>!69|o zMnJmT&g*qcgPHjFAv6OYmx=i$&+5uSK}N^Vpx8HR)qP?T0ByONWjG0j_8QO+vmyQ3 z+S>dz(zdQ*U9?bEef@Vbx!QIMM^-!9HidZY@G6BhnVxlHxZ1?L3rDu=b&s1)g-ugG zkMg)AyCuHhjWh8ABe!6acuY{6>4Q;o(`2}Xx9mKO=W3}-6+L{a?}<$ zuel#+XhZo#XNs+!!R*=9+Y|3((tXKM?nPwazX6o}PxM4X*MY>lXxW1JxCr;C{%B;+ z8A`!^b0vHDk@be2hYU@DI5nk^Fh<&fPM4l!7=daU0YXrIoaH?cjn-2E*BY9w?LZx| zzUpMQ!w3so7ui>tScV%R2nZyV zsHVyBbvA9dBIa_;h<`qbU$?I)5;$V3dA&>HU*gN9wQ5!p^CW)6nQFL)XsZ&0^AeDs8^YjqRHd57JlU5T1^D+*b- z^NQz+$VQGN@by+`+pF@%uAO8)yA4%D76A8vC!FJ*N}H!KwRwVtxPY8=a^j%LMgp98 ziF{)tW1`oN>Ap!lx%H)bRv}xN)kAm|AcXAaaWQWY2KZQfl(;ky&e?}nd9lhW#<=uw z$|{@sJeFrAORQ3n!wR$p^P2(Im)&kQVUQ(|(dh~%;~J6l1Qbf1%qz?!1q}G*A_;iL zHfjxg1V(&Il&~92+uDVy?%IlggMp!R((K2$fL#PI^a=voWl`>hjBWeuhtfjmkh5+# z-6eRre{#j?=$5Kuh34*Pl2(f`LI8w_(C6LU?TUd3jsnkHtXFSqJ#Jv~Yt_OCh(1@V5Z+QAQZ8(+@F7XQjf7}+{B95{(r?Dgn< z7R$A3(^a}|NkLchJfvdW&9r7LqhC&M7bT%-yE0X{!8JT`;w|7}-TSiC(LH^tfaIyf zee-Z0t|XnqTTOC*CU9Svec>Q7CYDZ!6D@M~xldbdvf^sHPkod-Sy&LfZ$1&s-S*Y{ z7iZGJAsK25Vf59z4@--WYy0lGq?IAx$jMXaR-arAun(@$ZfRlqayyYsL5x-ubd)rr zSC$^~zVx$V=5&Evv>^jh;opD2Vf8%J$rC)^u0Co!sT?O3aSxk8w^Rf;-*9rk zf(yCTP@%*3VUC%K}FdL2RM-so}C5d#4Q`_hcP~RZlOgEx{ z{7zOP?Jju*_b~JVu(6i9AC!{qe6*i%s5^@0)Jv5{MNS{5eVXMTl4rodK4-YV7>JdU zyV#$<=wf!;n=&({7K;!UdH87`t9qTR9ZGdSr=x_jQEtKXgdD;bm1b6Z{@c|Xr=8La z1zujX6`OBF6$v&Ni2C-oTX)+t)AybEWN>jhlsT=g&;d(uMspLY84RVnW)2T3xceVW z9}h?lcCsi8B7bTrn)9ePuS6iW6IjTq%@iaC-=lO&o&6>J?1p9g$@|@cMHH(3bK*9* z;*?-jV2f8J5>s-oaI(zZxfHX-uD9s6Cfp|2$TD&aMHI@EZ2V-QF3?hRH~Omg&zUaf zU;bFyXI(mJ&bwLgitLT@hWF?vTH>*O&*Qm+FNx>aBVQ6RilM!2m%sh6U=N#%L7N$z zyxU&rUoF0I#9RJu-|w#r&P7wwgHjpj#X-ThE1aZqI%LwkZNZA;$M8)xI>J;?E?Zdm zB>wI_I}h!*TMjjppr~tT$S^yLnh&+%qX16^z%pg`l=jwejC%piEzDxIU|=7JEvjQ@ z_kJ92FDpxC>x6J|A0y)7>xbT^HJwpkpQsh94F!nv+YMS8Gtsc-2TEn&`bSCy=WH96 z;uYyslH9+`^Ea({&*7{ zbz@@uG4Dvg%FGOxY7C{+8Cr{S6qjTE#Ethe_qX|1Z`@P_(!&MUq)mPO32`VbJ*Xh~ zOj$T2Jm|qx@$;=0buaPyNGtyf4_Nt0hKmO{iNBv_bs+j8-T2KUJ6Gc(KqrDMg`lQ6 zu=n##X`1!0CwEZzR|$clsbLFhFq0~W``BseFKCvUi|rP;kf}d2d_$w4Lzw&!M690CE2?cIIuiQZl@^I+epen#FY@J2~PyNyLRt?i9{8NOE22Ig|h%3n&s$~`=k`F<)p;L9+c1Sl<9HeWf)bhA8sH+ zEF34nV;zk&;cKmC>MNWif5|1MK+Xr)UVp5lRI!Nv$ih*C+uPg0!NCI{eOiIEZX>%k z!a8=D{AHcaHU$>BZOFnG^DF0QDDa2p=I|3!Lp^NyC|IzGohvD|3UwJHAe?%|6B1Kc@%PLSo~h?4`~c0WM;hqF#` z*_FUFw*d1qRO;JX(hC3A3uo8>DGLlVgd|^L;R| z*ARfkK2=sOo?h68AVft8s1$vg#8$fdWMsSll(jeH^+>$&#SQmsaddRd&GH%RXrI5k z<=`rFX^DC+c>MnO={`j1LIH6(9gogLok4pHPOEXs5sQ`psCL-!c$4vPHQ~+H#MAyS zc|ZiBX@)oJ;tVPJ<_)NkcWs+q+IM*7g9BcEO6}U?(Xqe#@&h4WNIQZqR4aQ47At1+ zx=K9bRvI1Q8)0-1Q!~RPhcv_1Qvvk%`gR15vlBLf@5a);qpeaOi%#SiGcXb(y;c?K{kd zK}}*OQv^Z~uj&W+?qh0t`n#*ER5n-R{CZzqE-OQ+A(v#x6&T_<3Hr2!A(%OwI2Yk6 zU$fJ6FaIjeZ#JAOYBJtvp}o;VETAjaVjjuWE60GB`ppCIS-k31X!M$U5R3dK?e$Aef&-lO!sXjG4npKE|`JNGy;7$jXjU!Ey;GiB=S$|j-)S_vC>ECmbA zE+0{{Oh)x2kvcqhJh;}z*jTlT6sm`4)rMJGmS`NZ6TR5gZc0?Q6{*P`?NI9XP_JtC z#qcDfvkWgp2dRZg#bu<_#B#{|V#3J=SvcJ|r1a^!s&>tCVPui&Pf9hD!&z)q7+fJU zn5_0kh8yNrTZURoh3mI`IZlJJe{6dhUU@)B)PP9|L=^C;BL2af2SEli)tsVyq#)n( zg8%*#!cd#Pud}6V8dA07&ELQTiA4#&?Yc2UhKFN&?Wy^waTkDi#};jTrH#ki8!53i z$M$pVy(~sZuEY9c#GCd-Ze>Bov>91raTv7g1wD(xa2Xf*dM^!A|GTH6z1~H$FSlO3vNZ`5Bz~g6YSjh}kN05@|2wR|9*xcacbpGtFEv=r z^3q%OW4hurO0^Lo&5NqVo<%6SMZNHKS~oqe?+Cx7CdhKy#2S3^bhcVNBt;6 z6dX((g+0UK`7ZV3oTjp6zSXYA;~HAr?Sc)P4H5b5=q zq+*nMElo7ExZV?-`9-daRcd@5XS~TzimeiT^j8`W^G!AE)P&JX{L$3mbOAdtRQBo| zopC=pu_eDuBsoanVg{#uX4uhp_f+Gyrw+Rtrt3HraJK^))EMqD3GC=ZzKd(pQQXoi zR!>1Jy3zf0LX!~P2D>AHwU$I^?xfW2gfR&H3qRJkMRmkf!Bh3ifEISOh?S z^fr&lVKzy!9*6><^D8+_;Aol!i{qmH__XdYgx5|3+D|b;GPJ{B!dl>qbDGPM#x(y zd-yzzjX`sg^25+0_I`tDRf({!`-%85muO9seLah0^pUoFh+=r9<7~&R`Mf;Azh_WI zP5?6(CwCAO>F$21zcG{^3Q=0twZ3$Au5N|0X=yJl=4!(}TsG7j5mcI$^=Io2PLEhgLsHNmf76+iWHNQ(_q zPw(&23CiWz{o{t>j_kp~^6^-HP7Fpx-c;(Q(V`VU^(ZV~?QAo12p2jSd%6jd4P%MW zNUKuAykf~%6P!KT#>V!1`a{2B_x`WFaanrLjfuJRPy83k?vOfRW9V)@D@Bex`|5n9 z6yck1LY1|JroA<%cAfg1#hb3X3ezXeN9MbO99r(x7FQo{|Jj$d6ck^Q>IY^NbVnml zM(N)e!VPLF_wVGYP!wv{T=~>?8!ITYJlAqf5nku@^3-9y0#cn-q8Yu~%D%jKO<-%! z@uLEI!5V_NXuD^AKDb@|mwCokwfy~l-L8_7T4TiTe&k61^jIEAX6O#p$DJCahUM_- zRI`6W@W0v3@&M?CQR5uSD)s$}r+agwt?y7m-Cp`;jjskZThtMU2*J3YtHnC8$H|4* z#+F+Z`-f1Fy0K$OC|pA#gfS2o)AMSjhWBz+@^yjwG{&?3<3cv09q-Rkv+wDX{GVog zFD$+w<{;fG1@^@lAT+OoYrJaK=42)9O%Sk{#LYtX8?MIVJXd86FXLXgj%I-G$!U1j zw%9(ya^6*?MDs1>2@IJ$r%f1uy^F9dEkJq=BWmP;)$h-&NpnLGhJP&s->IodO;R#e z^hd^-*HeAI1Q@K&>Z~lHogm%%Cy}hm|HT5#RaiZ}0S&f8tLKN#Hsfs1q1VVWn6`T7 zIPA=mz5#M-fi_)F_RgAoAL3xfx4}Pw=*$Gc2?`QGkPXxtM(u9?`1unIbM!dl?!Wo= z#;iZ4jQdlpkVF0QzSDhdFYu59N_{|HRT+uoGQtN53NJ4}w$+`~Ta$H(D`G~T_&!+FAJNR2qO~LPcJ&V`c&j4J@bI| z$Q9aTP&Ihfw?X?keL~-`fr#Rm3=cdzmq0d#B^8A(&5)v_L0ZPLE&(IOVGUwWW9}}X zJO17F)FgsV`qr05aA}>^k{s>ERf7AR1p79!kqXCGM$(MaKKbF_wZQJ%a{&Z=h zLvM&gMzeN?ev{qWXLJoM^;n=<|0oKA#Ky+&(GY67jt2~1S-<=oCb&F)}98r zN75eOdsbf(#n19yiR^TLP~E85{q5iI9Ni%+rY-a@dYyJE00VX(m$fs@2Pu(EEL8n3X__6N(V(Y_4k8;#4KvPZQ zqJUK~Zpei|yXnvf>`WRVTbK3$Y0g26%()ctj`2kac`3qMD%VUs(t_WCz8&1+nKYH~Yvsl%8s=K;h7Fr){r zKTsSsiMXBny%6A9Fw|HMgi4(R3+g3Il&3B(F2Lao2@*N15Fw*6fRXGdaNu+ie@Dm5 zOHw-7Q{69|x_J(D#TG<^TiBz4IP$KLxfr6Tle4 zLcPe|>?i#j+V*Wa+F>AttJUT4c0ji#dr{x0k?rzW=^3-YMfk~YuN$*mB8-+x%RR#z z6S#g{aDs8k{2UON8^K(CI@1-O!I2jO0Ty6+*a5)&N+n9iX$LT3DZoj&yu6Is_1vDW zEQPn<4ex9-9PKyDa6Vie92wzejjL3C0oA`z0wQj}QYUpEmxw;KjOSC~b%dL*nBrh* zeV1dn}@?#raP#KSi|hFnkJAccYt zBooio4dOQyce?3~AkxxFAG+VAg@r1}1U4?7NxQm5jHM)R-P@KK|h-KyM=9~WSH?1$lmdLmQ6&{f2LZ)S2~v;AYPWgI@k;~*$nl%?jB5S|A1NQ z$#Ml+ET^BE6Ks&g;|hSzlWD?}00<4{(-rbB=kXUXeAvET1=z)pcq95^fgA- zqUxWykA4ZWy~HD*4nEr?gF>z4YE zgyl*5cFWq~w!Bz_IvC#&rG3=hM|?1v~c-KWreiS98T|PBz|m4|{d$D?wR7 zIl=ON!#NfW9QWMc{SVUK!Y!((djlOpLIos55CN5zl09`f|#0``W&`kgKS7O zAcdT@=fW8B5=h;FJS$LMNmA9B9MX64Ys%BR(VlzCWbNT`>W%~X1>A7}FIZN;1iGzoRaONE+UR6T{A`mk3cU6`pB z>FRv3gq!3tby2mk)FSMI<>{Ny+8Y;JJRwg+8T;t;VsUO3AqrQ~{ie9Prt2H3OBgw6 zHfQ<_)m4IuxDG)esHS%@FW(=O*E}(FX~-9}D2k~%%w4cVt0fq`_)uJG)Sm!KkF=zk z9nu0?8)J@PfdP(E=i+1#5CU&W{{~M?y1g00jk+kkKKR&OnsM@whpRwiD(a{|@m-P1Z zBm*2!DB32p+))r*J_ zGt@m8UCdt3Vqueq8QSdt+GTn=8aN8dxr5xdyB2jmFJ4KJ0gn}oF#KoyX+iJrW8*(d z147nx1KqyEQFm*XM^9J^V9RtqdwZbTa6XoqR928n9P103(Tqgc^z`)Q%&a!5Rj&PB zFK&{*k^w^VMSpZ}XTR=rqYL)5Y(m64XjHWbpkd7md6YPvXp9KgCMNv=?X=|Sb&`_2 ztlC1YsXNh~*SDso$V_Fmb9AB`kfqJ>b+_zxo{x%=+i307rtmW{(GPF@;bEj>|ttlejn|piaz${s7 zW6cY4{AUFP)?db8&*}L&PzXzru%1`i-wFO5LmEYkt3m?$h4r};2<1f4=B`1W;bR|p zzESf9H|sF5HjLS6dHeDcW5{;Dw)i6%TB5qS8>K9Vzd_w*D`yve(sA%)WF$Vz&n>yn zq?n)5OQ`}o>%30BECRbhj(-jq6ws^wE*U39{9x+hmq)AWu8XG_Re_YhR$?zLE?Jt$ zMIZQI_M3vCvDvhRy=@cPCCy^>2i{J&zSi4RU}0>BCo~2%M}Q45K(*AsKvxOF+CUY^ z4X5I>3A<_cl>G+U?QVSy*KAbQ@US7Mes1o1#)>Fh{%PrX!o+Z%wG0J zRsLJIG4+?1wD)_;XTWk8M`x2u%~!WbL4Gi6t+GEme$ms*03M6DJngr)8KBhb%8}<( zm0i*m!f}{A^v7&?G(6;YQeb9MAGobkUyGozrYw*9+ zujH_-?&*X9S?w3mlP(P)jqmvQ_=AlN4N*`@4omjQd!lyY9ipXxDVG` z^MY?PJ&yj1Wu^Uohb@R^u=+gvCWnx7O`Ue`oJIt4k1DNqGoxPFeq43qwO@F5n}T&EEwQ^$E730~;xQc+!=f(| z|IX%OfD)XXvpCv(X8=G`fEgQ=!W}}VbRY;eHz#jwy!>KNVSI8`ocs#PJ<*> zDR0v21bN0TUqB?cugY~T~L zYX$l}>@}!6F@{>){;IoP<#e#%j8%n<4E*)r zyJf7jq{P5Iy^)LO6Bz8HzRNlb+sSoGA0I_@MUuKjF1yo=xta9;WULzs;L&}PvqRgq zC#5s?Ct=yGJrp-orsVYb`FHfsf3RDeFY~Dj+1`O-3R^onYFy7_mzA5yUsi<*mgtYQ z6e!*v1om&c=6q}-|DBkeW+rwH6j<^lq*R5eEF-5R1BJc_mPXT2;x^4i8p%q31{)7O zutM9ng5f+VX?dlThQ@5_;d@#UKb+D%ZUzr_|JBI^==z8*#J`pxE~Gi?3?rXgIdRgb zZABy}*LA>LU0r+DK5&1O`B|*`O<2l&z>3S*-EOw{Cp}d(35VH`^(kF}NJjSjqxF2_#Q| zC_aslkS>q0Z)*XzY`rpUgtcy z^IO4SQ9$T{2MtU~ofY+W5%2S7=Q^N3R>(9wXPlPoGe_y7q2JCVSl$5A*GCDxN0?_W zrANt?{!yiQ{cdUVqAFLL;TP0Wk1#7SKShxK$*bz|L=p{4h;VU#NQb(_CP zaL|qOSq!A|+w$g@4$t^}9SbWKvYex5#KII?OU0hLIN3nE+*@QbUi8>s(lkc6^>{0C zKTsIP#ve|7g;7)vr#43?V?8C9O#Sz;CO=Ts@MMW#G4-ndDTmj*CSJNlGpkbo;bWZnD*hkRl3nG^Go}ku8R@@QwRQZb3Y63?Tf=Q3oVL!33v)Ld5X9G|Ev)qg zuQxh?@zh@iV4x`2A;xm-HHX9DOZ3Lolwz_7;wDdO*QBvYi~yR*RVpI8N*!|YNVPBq zLp|LP)AreUOmg&83LCE&t=Rx3Gv1`}i&q{wN+j?_P+H8z^Y(0Vyb2Vjw_x2|X;!Q~ zx9s3H%lHZzF|1H-mPw&ol8`C4Q z>iy|{3OdrWGsv=xR@|kfHfx1tO^L^~)u5w_5$AAp%x8||BhAg;!PK9&w67!6*t;(w zuE8+i7=zN-whIl~w`iH|Zb098n}Fko>G;@KrYNYV1|%2C>rz(J)6)C_L&emThBS0- zNPgStBo?(F2$SnaFVkY-=H<=X8U73+KcicjKsCuujWZl5%kvELYv5A}e_K3YAi1A= z>nxbeL_B8osdr74ODI-;Y>inXZ!kY0Tdl#s#@9bQsoHtJjE<>S`eP%hnb}7z9nG#( z)bYEJKokEfpS_0>VH}*or-U|wepL>|3^b!{0A+|8&$Z70ms8jX6?LHkfX#%Yp#YZ2 zYcH(hPc7m`Ca#~=yN;QESVNd4!ehI(IQ$t-THpN+|-U}>(^LiMZlSme5*j+uB&7Fk3o4%WFrfoIC zr~a{A0$-y4lmP&ps$mZ1_1PzZ-=i8yZopcwyk=o|0*wD{5u|uOw|?Zw;Jcj2^W??xaiYh8LZMaq+nC01qtUk#5>w`?u% z-CVz$IvoowD4gq_r*vGGV9xYtItt8sVr(f|@uu!ChRuT%b2VS$Ud>i`BmRMqHRCI` zNK5Jq%6}{SzTftVCueK7DVM{7G~U&EA;P{t1dcFHPvUAxt|1n*iPAR zjh%4!!{l##8yhadCnId2yO;a3t-FR}?*Q}dApt>e)|-6dov=qo=kL{6CoC{RzirAf zJjKgxE32!oA3ipzsn%2!D9R}?aWx}@IS|YXg}x`A;1(6OKWDf8a|iJ~MFHCx3ygVJ zcusttHb1|Ny&oF5qfX+}anTe;AqX<|d)Xw}C7F*rvM6B1sTWO6vgMZt-ELfi(09dj<3IKYB@2!)@$OOmPTvZLrja)B z*3OR-q5i#@{UX?b`r12*dk154gUZ3+6PM}~5}z?dZ|l7xPq+`hAt+A;0DJ+*B?!A- z(|*l)Td1L@4*x~>pd6?;4CY1vRd#M}G7jQRwmR(OB2>_>lTfj077P97i};6gj;t9O zh5ojXxR{tb$*{Y&(fl$|nNO3zI04vax%b6Blfu;C%@*etJL<3?>j>4C$|i^SnjK#Z z9LiB8XtE4#YyCl!93#odZkN%zXR>C;;arpc0H@-~zcR4A9H0E-<-A3GwtP~V-5|;} zni1*;l-feJbO0hgnBC~ddFMbbC%Qe6dE&b+jJ%1{e1D>r8>*{qfc_V&l8SMszh{7+ zStu#13SWJ8;{+{dJwJumkqJl#+&@0q8s7AA;bz2gq$N^uC`jnHsH6>Bz&Z>Q+IUw8 zUGSdro#n>Eavc4H!9*;sxSnz4`SR_{NT-ahkmopgNA{&!fR_ZG-+YgF#axrLvi#Kg zx&`p&(c)j5Vu7;XjO2MAiN=xAA950Bt(D7b6Td_ z&n7%z+671yrABsx`{+A_3RNzl#Dgff2U=70`XQgtBH1Lt*Ecn8Ps1#DB^0G_Qw4YE z4ScV~f2N-E2t1fzs!yFPG-MX>+X}Bsfvq~p_6siPp%~qG3}0}uraEfPV)`%oAZ+wB ze{{;H?G938GIw?|4sx=E?j_KA#QwI|-al{2? zE>FTz*fq~E*Z(p3E5lJL6eVBTE^miyM@H%U;J@aC`EimGNjZ)O7fnZDi$VQP{>~25 zgcGhlG2Xo;lD@XqiGQqH6l)1qYks+>JQ!I2sQJaBZurAP4=MUL&&3#N7u_BS5m1`s z#+Tt+J_YFpiTeJZZ0&a!;i(_ELn>)jONt+SH8cIY=T3bwv_S(_abgDPK4{wmf8TN> zbW?;7`tl@Ci*XaaAbF^&qLNq zN}!>ba25{xFgLUhmd7CGv%DW2)MRO9_9HGXTbtB^g)}2GGoaC~p54i;9Yhd8p5-yj?`EfFlKGNAL=E_RA-!wpX}JmmVnw;R#vr_=^Dd9J zSO_d-`&-p}h(1{HQ-A+=vi;AcfU3I&$Go*b&PXIViqiPG$0<8%>y=~4Yvhw zGoyUTLOaF^B+O-MRKH6q0YcTr2?#9#NDRR3KtY~9I{5bbVkc|%@b=?!OnqK9x6VEB zA={Y#Qlsiw!hl>QJD{+?3%3iR-)OWn(8X(Bjay*UtM)5A&DX83HHnpRItn111+^`> z2((lUvcK{+U-9`xl`ULrP|7nwpNG5zMPpfcGAog0DSmF1SE#$@Web|x;;w44bmQcFA{Z#9sLgio4622puV{+xsz&QDG?99XE zAgElydwN#N&3vZ#g({lh6Cv#KvI7QC)E|T>CEFVm)pyitlS!CV#_9ESJX$=L`!SI8 zan7}480M&OyZ-J`8T6-cUb>P&Ce({zhuSwr_r5#&(7}P+YvVIemf;cpy;2?4u-zx0 zUIPi_Lea&cA;|R$k+wJdv=mOfN$yYn^bj<@ec1v?JwTKAl#UXoyVs&z`^gC_h#P@; zyOHP1?7HH5H6CAxTPp1!Y4Kyg^2{q89pW%9N$R&ChF+G z5-V_OnZXJo{2m6Wq(JC9z_OUTyf{0{rK61D#0Zk`nvX22`2M)VNB#V4XectsivSH{w$#&W$tx-{_$tA zRxaWYCJDQ~tYX$Ky8q7I7DzGiR94o>2e|duJ;($&2Z+Zi15m#x`S{`hK#M?@1FYIW zmDe+u>;m1_sj(CTt9OL&1gl+j24ksN8uL3Q8dZ3XS@&!Sjlb4EHw`1 z2f;9=JUZ%FbMH)1>rb3Fx>2-(LPBaYXMk;;-??(P!00Ks=(hW4bpZON^4ZB#t7D{k zV3$pT+m#BVj@o!*;gwf-W-LNbo!$}*`5Jznmdu)(c$s#O_6w^&4wX7;Ql5x#%_i}w;b2fLbI2L==;P&1u8_i__;l1i^Lj-76SN!E$RJxR7PI#VL( z7UNp14V)=nXx9B={C9-ymR}osnKA1G+tEFobFuF4S~&`v2{4!e%se`qIAFmTmlILH3i=$<9k9jB1oxHN7wYYI-cu zU+8HNmZ)G&%I-5BnkCO(0@@6{_d>}75`h!1&K9ExF~$3vMxDtnTNlSD{@YpfySA$&C^ozv!M#|XV}P=MvTf)~;$vT{MI!y2>F1ATfquAs zwcZ!=RUUS0(jdS!O5Zo5d%*h)AIK#rn4AC6L$?s7xJ-C}%8|Qahb>#SkK%phX4ZBym2m=fidm-ZDG{Cpg|Sx;N!cD6lj z^c?=nHK^N)^J)ychrTUJMNSp9v+y(a4_P`ySHlWGt6BEpzrJSsAW25~KmgWM_?kyZ zh(hzDVAIjyifarF$E6v^$)Zwh%t5_bv;$bn(#b{vUEJN;wOggRjXhvz>BJua@y^|= zh59;s)Xg=iY>!!l4tb$;uiMV#yI!U1ry!-DhZ5L)uWfro=jQsAv>VU!JJ3u==hnRP zAHYot^gQgY4hiSa*rAp@ac1W@kcf&7TJc9(Zic~EiILaduHmxIoqO!?oi^*r<3B`R z(l=feVjr)@#}oIzxHM_fqBXc1#yJk^kB@*j(jMxN#}9SNwQW-bUvaiZp5o}X;oCRb z1^u|85;=vN_pAde40h48+Z3jT{f5;mHQ`>4av}sz?r`ptL6Pj8!&NhDYAqIhpKdyz zt7#}C^Hh2oTgQt0D7E>&?8KQ)R1V(MT^wX&C0@9+FEz-51_%9ubYHE1l1^e!HD+s_ zd|8-Ew@D*T%*Py*?O7XPcEyV*8|N}^T^JF;mW`_UOJmt-SI#zCaGu^;)-@0}Gc%(a zsH>1dC_)shY+x|3UVNi)vR8aNP9#er>2|IU5ZoO6>R8%f;OUKSjj^g_-!Qn)b{vAJ zU4yW|i6=;yM&dk!awXykAN~bYGIv4 zMQkA<|8SQ{)Eq~%6dJr&lj=5~kdXX{j?Q>GG+XVU8Qu(#R2U2@At6!cgM2=IhiOJd z5dkiW7vP9Mrf)`iebj4izUI?)Yzm$9aambg|IWyu=?IvtL-IGWGV=`u848-fi; z)*OL=J;NYOAr;q?GPR6AgM+=M+X&K(9uPB}K}Anb zm=(*`(vo2i`7Q;Al`0~ij-2xsVBoDM*X?~#ua1%Fc{EvJQ@nhk1Z_Lh)KfeRWvZtNj)fkM{=4ZV-aU z%*zX{zIuiu&AdCDp!MjS&pj~`CU)iw4rnUC?Is$*Tn`+^`zI%0Cq{DMZ>A?+N1nfc zo)2)@elr3oYn-odw)GEDu?x^=q0v)0Ge$5}{HnGkW2Ms6q zAe;?4)tOWP)qgS526OX@h{=zXROHKZ=5jTgTpLaR^LZE%m;B)ZaR}^|S)p|yG!~Hv z3??X=tXpN)#N%mJ1GbFE&yj80iDjWOI$}cQLRtY|6xQ>&oMwu71^%( zysSy{QUH2%cWDsoSJgIn6WA3!k_`;1j&A2Q0BaQNSiwc+&d<+AM6Thm5&DOm92}P@ zYVk+P@1Xv|Po=wMlJP+V+@hSke7YbJ<30iyL^=XiZ)f-@glf+eGxN;b&#+ zN^|zG{F8fT{8>p@mV=bxvOU^5$>0n-dju{>MoSh7h=BY6#G!cBeXDG(q8NvWDu|s6 zTKV;C{@Un&Bzc`qRD99XJ7c2tY@zRJlN0&FmmE%36V|cZ&wXWQ#xGw7s1&|`9pgWo z&fcBEj>Wc0FdbJaT6cF!-Kp_3O={GLy$x-R3A?{-1^Qk-MZmwcrI5zV`H8<}(xQL1 z2pZL3UV$XxQr&}t(owW;Ro*_r96uzIB$SQ%J2(hxNIP${4-VZ1S%74}M&VC8#|C!+ja~t>~j$#4q++=L^LF{9PP`ib)z z7HaHNY<|(hR(fr0$4g;Q%=gDZ#~J+8*)aynoUc}Y%UEOuU0y~sgYXm+am?1IGGrWY zgN%)fOOFdc9scy~s4I;8^P|T5PZt?P9>@U;L>e8eFXVC8ON>~W(^Pey=QezbdaSFb z`c5hfyS(F_zJBuhx(jDdrkO=(Y?wSj2i+egbHb==etr%yBNj0m7p{8u{dN=1$bIMB z*<4L(yoV2wekxKgm==A5-)yeB+9f;%hTc}B!Qd)>| z>wl9X2HBJ=M>Ta&KpAqcZ<9QZ5H63wy8pXIjl3-dYAtxK@ri3eaTNYKzsv272jSKlo7 z-FVcz&yeVD#+?44Jfk0XLFCos+2i)%E9bDXm7E|pqsheQtzLBb_2z+>?{ov&2EG+w zTVlJPSia^#w$VuFnT_xvBRo7@qIWV@QJx-rhODgPmF(|s4B1|NE@HEeqF+f=tV-%{ z(0k9#dPGf0sW83KW5%D6kzq~#`2%-eFXjgh6_YpO31?bfm;yqAUfKjefNX8;7%vDM zwa}Y{0ZqJQ6p$rX=Rb?HlmXf{;j#t>RCacDiQ9LBHwuIy0eQH}ZuZ^F7piKy`H6*K z-U0Lh#$uJ3N~(S29Sx}Ic3XXT^@sR9MHiv!Ag}cjiP|?fX(y zb#a_j6ur9~uRg;aX$Zt`2&^VeSBi7N^hT+{JpCMNIzYXOhU2I8*aEMk>vbm}%`erR z+58EOTU0zS5&|wN6HOYR&;-Bz9QyN?VzLnBAsg}H@D8rguX5&TYoP)?ArX-X>I;0A zsr$D}?J|EQ)@ zW;H)UP%Ab}5&hO;30bqraFMa%z4#|nnab%byLbU|vB1kZb3X%)z)ST#HHHY*c`r3x zyG;sDU!%-+7%l*>_>LUO(1ePZ_NOFAOCq<Na%2;w%+&~vD)-w z-4;2M|7Kc2T~?EfxZE!yEbQ+Yc4|!WW)nlpMYJYQBV@++#Jlw~bqdpC60^}!uCsyf z9VW-C5B}^nAt-%!IKq=6Ab(h2M*cJbx*rP_xAF6L=jXzOC0MwHh((vG{%zON_1GV=1r2*AJ zMoMBg<5AF7FjNer9~U9WZ9#+ zRUjvji<>)Ur05BNf+{L2hXL!JgN#;0M8w>rY76{Lu3q>U3Sjk0b{(fXClT~37JA~s z{(f4b--4%x;#aTP3w8{LZf$rkO$jjLA}@& zqr~Nha2dLK^=@>QQ4%*t>Pd||c(d&8WH51*}d#-+GfpDAKe}0aOw-wJVf6v$D zIP17Z*Se|D5%|`uqDq0JjLQ411r!f$ro@{%TuhyxKOQw>zQi=g{rjDe^6XWcn~9XN z52f}qJ#=SE*VD5VMnN)1J*_SeWyd#xp-X8VZv(`|e)>O(7t;(rWd@b{ce&_ z;l{fxr`zKXHfJ8ccG}LOnpfh!Hr0`fxJD9icyffMPY%fe9j8Zmvg=rdoQq?=QqAm0 z41a}NwB{_MlWR#;UENTBe+VWv_Uc@%i^1@ign9%(j5M>`KDJ;+Av`*q^Vd@Ol0kSS z3w>tPJ!3gs9R`DiqwQGLGkQixBlr5xF)*!EAAb7uDUiGbb+i%r?qDI^_I?usNU0_y zd$d&9qof4NW~`w7TiYnVKi9Z;F!8>~Aip?>jxk4;-d1huaMPVQp~Q?AsM!AY_`sN# zmp>n-Lil5AUWhx!>Zr3?&sGjhq-nn1<35>9#r{_)Ww6Epp+sdhnkt5^N*gxcyqiqP z8b~vRe%kg9$hG)z#2np?3AmWgTh_Uh0KPU&owQY7JZ&4e$@cI)np+{VE(?8o2HRmZ zQK??H4BdVa#)^LR(Re!-8$4yxKI%BnMs&q>!~eWe?QA5Gx~Fi9#U@`Tu*U!0)I_CQ zZGUEslKxD(;`J|5dTDj_3#d4HpU(*Q?#T?(&zyb$eiXMUh}<~}CfjKsI-^rl*?oY0 zO+e{#p+J>h^VqDL+C}$SJ5cDkM5hpl^$`8mH#Ce8^}Sl^iDky)^Db(t*2sU{)YP;& zRZ0V55MMV>0s;ckK-(I>TR{*nX*}l24zj;#ZEG7Y(iZ|nV4t3M5hy*5xmw5?S6BZF zgjVHI7xXEo2dEB=%jF>IfW#jSxN>`s7z3OAAu450b5JZD&0XuU5L%*cR%zeHR?-$# zk~8=ho5`Y3Lqu+e)D!kxuHmv3`t&jzk6)M^W}8Me7TsQ&)CNNg z|Jj>E#t;(n`d@_HVUROJs$dM2Oey)P82YrEf2TZ|uyU!)8%>V8;1l$0j9V|O1iRfk?Id4*oThza?1nU2qo z_T0L3Inl$2<228}|ot;onJo$G)!Na?goLv_P0>j&y zFZNXd4|}N8RGN1@=wWegNlu(89#(EF)^D52P0U0Fd!QP$r4j5 zjQ1eU27`|hVI#OWIASQ|?esawVKNSV-F;JE^Y{eTbxe3a?Hqb`av}k^w-hemv4L#R z)~+sWAnuxzlhaJuE6s@FEWvC4J5Ef(i2xoS=<9_E=-T@F;gErwr?nqHJAXL0f8kZ* zx+%$^yCW{_;R zD21k(kd-(@T*1mR(u1zhQ{zYo7e8%zJH#y+0S6}UW7|TPCJgly3=Ka@!KLy+(KhsN z!yCh?O?4$dhruP0HEwEiGQGo=2V$;9A9N&SOMJ}$ZU zN34gyjciKI_jbiBEgH_QaZu3q`;1pI2Dko0qXPLHMZC!LlUU82!{TR^2Wz0GC=G~s4qoZ>ymtV)uE8S#_ zuW}qV*2f@kuUA((LKF8SC5yfmpXNJw>`W-+;9}-AVjIF=Jswp4OkxA<$MZOqO*g%Vg`Qx_=FY-6O(vyJsq9x%I(>u zC8O}80u&`KPwB1o?YJm z!(z-|Ypl+i371SZ0X85G-tSG!c&STTFm)O17HT3X12&AtsCECnEc zRr}uZuthXv-gqo(e%(eco;WaF6HvB>9~*OXqW1qgS?5>KqgXkO21y~B^3BtnX*Q4& zb_&S0zq?rMMk;|sPTswuY77lz`FFeeF%Dv__ZMiADkV0PZ09q;KG4z8ZI0y<&q@`S zmz6zC{j8^{8Kjo2SZkL-^$koCjIUmeoEnp;<4PTl$3c;o8Op3mps-_?jSjf|oHYXK zdHCFWzRA}+CN?(RRC+Rm;8c*Eeeh7UA>{XSF0PZnt|4?=vo|5!G-z(6T%2j3a>9B9 z8c8V5hsq7puJ5IG3)WC^DQfXRLq|srE^5hhsGW^3)xy$v*Ba~QFT^Aez%d~)6GLyF zyk0!_>>H3sVK5x=)-^>QUFpJ62c(VFbXN^*5TBz#zQk+7*30V!zNFifiFHuqTX}S* z+oZIF2M4S?finP9{YEfv4apuo@*f*}-_PqusC8xPU!H}Po12?Bt^D%C?l1P(;8c`P zZb6@^Xb!ppCMQbA3~3HtAOR)Ur}lPT8VI=rgHSYJ!2a(~=Cmj5jOBk@|97lb@&{JI z|84!R0nVGJCI8p*|Bm8VHNX4+F8KfMex8ZO{J&=Zce~I3e=q7YBM9k+Kao(~SA#5h z-tc8b<})w`Ssd^l&Cc)&27fR^I@ta9A06~@rzJdX2o5JeMQg&&XH@G8OKE3FZmW*h z+>67-b$3wjO+elR_&Uc2!QkmMc4IR%jj7dM7xEnisoNZ0#xmPpZ%_)YT)0>)2Wc9% z9bd5Fpoq#`yN&34kfEC(IYz~tpkga71tS@*!8R2d*|_V=qUYLrs3ldDl7;{aw)1@{ zoF)xX!Q=*zBIHjt#0%Nd;4p^W zUoRI07&4qS65-%|TlIDwzIQeomHGzBM^DOF{<@(56!BUsoW|4EtC)0)uNM6rW{phc zEVP6)vA)8BgmKo}SBOeW|6+XAS&@QvnVN{ozR6xh5%Q81Z?LHR_~B2C=d`Q)S}b9b zjf`5Ky(7N8+(5RqX^l;UHU6@ji z@2^GqV~g_IVN=~ahk?>I+wxYgEAC$!Tm=?f&os*GL^z2Yr#^8c8DFKCpf#_cLHUN{o;t>XGS;X+F{Gdu!IR zE%9H6Xg-R6%a1h z_D%L6FX=l@X`&m>+SS4ca91&06jcbfdRyty37gNVjMq7QG&(b4lf-#4Yzb-^xg|~f zrY(-Ldw{!#*_*LIfnsf}VuF;IZd613AN;8`7|(vaNnU^?WV1hRoC3{SH{NER|FV=? zng3+SSs14zQc$4d{nrMOdSS-$?w202Ke^$m9yMMeO#<<}7|(_H-+X>qygf>Gy6;8- zSz4>ES^~#ns!ghTb`~Gl%Cjg##xHm4%PSO$Q76$~wB=b}8z;R-s|UlzJZ3r=L-7o2 z_2fI{{41j^9!iGaPh*OG?)m$oDrGWIUR~d1yqD94Xxnd?G+wYGf8k~f>ch&V)unFm zs9-1I&oo8D3;dn0ZvrXovPaXWJ2l0F3;a2yr8w=f)o*K0HO^wCB085(tzOIk+g=Lc zMBTk^UUQ9fhz7!clAkzQ`9y@oev{-M%?My|???iQ4MW0-Wl zDaqPh({PbJV)NGTVBC3`Y|=u+B-QEINS~BDbZoVuK*7VPb;-yFF~*dRb@`pAx%OF_$2aTN{Z9(r>}Xd( zXint~rp?}*Mh>Z2!1YpawDwmBPP(_Nm65{U5$&OUgTT-^i5*BVnJ&e8WYwxeWY;s2 zY0mFyL`@X}r&fDF#c8)ysWAQXn4tap(=T5itb5a;QXa-9M2KRD-CRabSJ;p0WYvPc zQlp&sz#(3_0YSuvFn}19Zic@moHPy7HqRCl-wmy|i=ndaPgOM`HCJ(F7w1mkxoAn3s!D5` zsRb=fD4q5&sXQd@*ymS-k{Tm6$Q|paMdY2hZwC*-s^M4d{5)JkI@K$Y}KjidV4@0=eyQQoT zv@qtl-1+5If=X8&Pc~UDV#S0lU)moS8`EbRq~$;KAi|?Pq}!;aS*>LhJ&tJ<*=SH zh%>pds+Cyr(BJyzM-!hsStH_&shCBK492f8c&!rjyUOqm_5Zj4;;Sib0k|r*i~IBB z{Iwer1vmd(?miK0A-dFd5%gV>qQNdgYA6o4SQNOJRwLpaxR~p^9$Dj=kE<%M+v-kC z+u$bT)sw>Fh>Vw3gG$?11Uek}Vkd*QS*$o8UAI2l6f>B_kYBoQt8K>odgzLoA9%0X zK$D(!X@M2iQaMR1E|nX3x;gSSq4_HX-!jC?)s^yODebk`*X0qa^w)=rHMqV|?Ju>4 zQcH0Wk16tuZ|OVTObNza1Jsj`W%!fv-A{yCkfP7r$1@$LMsy0P&-;D*-b3E&GwkBk z6@}1qSK&-hxJ@%6*ved!C_lhzaM@J>(SOw|USw!^k)ubmI))L2<x#HL+-0s`x{``D3 zQknBT@lTk-t`~lH(i|T@#(`9Lt%HW`i@?MHuDx*d2m$ z&$lf}-~DxtB*!&R6G5MqmqB{9t@$XDUIj{iFd*LHEqp9W86OrG)$mR}>6~N2PABx+ zH=O?XZ=d@tI5YShkWn2p_ZM6-$3m3ynldNf`rJH!f!M&CjP@37PjecyG9U&f`tbt3 zf7m3EC7l6k?-``|iyFO^3DLcTe#AY=`0LYEt(&7)q!EmsCtPgVT<&JIhA2Y9H7=JWIvrrRF-KxVw21BVSoKWO*)#~<7~4c_jih&jOE0s z85z0+Qz{k=__PeGvjJGqRm-F(*lbH%%|A%t@ zr;z|7i-!GguWk34Lxk|uN-8t~#%iBs3Oa1Yu@V$^eC3dIW5~)R0agW9lBaD01*;s` z*ssfD`JMqATce{I=tp>~tfHQ~|G?qQ$`qK{QS9c2Qc8gglxkq_Yni0B%iSk)q@GLR zdRM!*kG((>EYyzyaFLd0&jQjoDj8!Q7S4?l$lX=req6Pf7sJgJA6A12yjPtn5ZIcMAUB_vV~EI;%>N<{fLeI3c7ez zazynXL^iT$%mCsz2!-AzxPsn3(oaU(g80Q^QTKzFnt&h`)}tw>L(<+w;LL?s7aMY4mi&>_Sv7>X>+iN?)z(nbws?$}G z)}&%EDvSq>xj%y4=%Ws~xZdSEFy268tCaH#!ovga+r=UOKOv(Sid>{YtekWPNEv~l zKXMt5OTNajn|e*X995;w7cs>v`h4~t?fTPbFk4HJsYb)GDb0bs$km{tBV;hC|84@v z_=pA3MVf31@VSp};g(O|cM0oX4NoJyTK_8pF?y^~Pgz6?x!{q<%X-DMu{Fv%lIpxE z*#X=qTb_KrN_Xr6US=sj0k!lbN5P3o#!#Ch;#45_T%LhDM&gYgteqXK zY$U=Gjnm;sM2Kbr%=B1E*_HzqtPbGd_{eFt;OQnD~@bRX`{5qdC484#2 zBR1H6zP?%u=5zkwzWPN}!hOhUL|vX$b&8q-0jD9Frur+9(3c+9;{7&YB-kF6-a?ck zyTUe(rr8deac8hbBgF_Ul$#EFd;^5J8k&8HsN5gEtL{hboh$P zFjwRY&rnb$4oBkaF9ii7aok+T#Wfw6HLrrQzvF+($V*Y*_^wBq&fOKDfLFrA=%i2% z_1@+k$@tyk6~YaVLYzY1L?YhBruz2=&|OZBQKi$-bDVkH8*`!L zPzI6@7Wj)F{Y{AUzxGJz+)WHM+CeRv*u-XfgURVn$BX<*`+IwT8qAXXtIe9WFgIU* zW5w2qml{yvbU|Y=2#qHcQ!|aDXXUb0VdON-J$~SrP=bl7bI`*4NzZB%i7S7rkCwL` z+PvOxShr>fJ>!4*5}gb`GrS)D)pFW(q;o#P${UFW0dbYqKIwzA4}p9(9054EP>u|U&IQ>a3CLRI{@-^@nR)%lOb?En6}Ys%W-BtO_41kqey3{W z`(WUJm`azNUomh`LIZj9P{|K#k<3x&5an5$U(^c$JJf`8m8cyHtIGAO!TSTpH|gjA zWYyrot3f(^Xg#J7BPF^tC{Zu;VLmi2HyA0)moFB0OdC_&J%p2X3t#DEge%HCfBQwcFA z>J@b3#=8!=W%*{^aBbrk>`I@#7KGnPAS99~uiL0%O>%W#%hKwe4Ys({ z=>S*Pr$BhiiQRohDDV`LfOku7))5u+49qFb;15d(f$8;MSK7^*QN(z>py0zT0d-cP zVfyVIt8meTV%H2FF!YWGi8b$5Nk21lvI?$hUnII?+bN)^kelO`%NOs{2!OBKey%`C z`I+@vZU`O(6=Da#hE);n_3mt5y4N+gT|L?Y<~_ajopOh^45lff^#RATUp$hO6BQIg z5?v}vGa(L%MH1`G;cDCFNoD2fBd62VmFk7*df^WYzwX!#qzLYk5)i1bpA)zw$C>}U zyL7!{iw}!}PGC*8E;m2J++LgrB4*1&avf2irFlwx5A2mORdsDDhMN%yJ97~bu>ecgA}OjcG~@w|J+EP5P1T248Ly$;;uwO^4(Vj!Lp={aA-A zFPkfF(?wii3r7SGdyahQKU>_FGNBeZqc~MSaMj(c%E|wNC8>HMIP-l(mblBY8&l#_ zBZ5yH)b5Vmog?~jo3BtnlkbMlzIA~>RBSN@y1IGe<;e;s0=}{b zBPB?qbP3WSNJ>gcGc*Fy-7qjS@1EcDJomo$e%}Ay4}9j-KKmS)wf0);yUL#}=67aT z3n#1_+#G=JR>}Em79H`Pl~<+oO;y@N*Nbmfbt-=cIrxAXV!qR=rI+a;`kp}y>~`S# zY|lIt*&z{ORP~kePc+!H9Ky;vqs`-D$#_=%F8!i13*S*-CfFv1N=LHNPRNIZWN^U| z;eXBbX)HTKP3eO3uT(cmEO^@5?ugkc^D9cZ20Imp-wtf@Wh|GF?ObNO29Uc2_nl(iQfI@lvkg6xdh-14CR8oG9z;t#IZB0wf!c{@z z*Q{~y{>le69ER`sWlU}zuW>^hJbC8F0belaoa*0UUORk?VHhfu9U)NO1Vg#a0Bks( zlMN$<0R?Tff0w?t%+2 zcWUe42>eloP|l3g7IQ&HZv4na!_FPyrNaWj0>^*Pn^Lzcefg#_!nxdql_%oKYhYhb zRUR8!wUb#wj^yvAGK+cmN4j=!(EbA>@?&N`S|d!A`e$Z=+CTTS6l^#^@6RP)Ro&do z#H1t=X)%(Vd%UBQ7T^hja$@&uK3UDUVjhuc;`h%Z_QqmY=Jg8s|MTkapkF=!tK3N+ z<@KKz@BC-_Q{4ewt?&j4AZiFX&V8pgtQiNzXFqH4Cv?~FMmz~I5DZQcvz;MHc=SE} z;_Q}iU@Iz!Dr$_!O->8FNej_kxfw_m)yP&3lNO`O`6CqdkBm5q+H>fhcW&LSE7xk$Ow%q@|pIjXRQXcah{{2pxJwrYS<515m=B@U7F0Atdh<4b>Z}aOpN0f zcJ$LacZKR^*5lYr7>W~)*p}+4Q(a@0LSK*VdrP8EV1Wazu9wVlh~TPLmROYrHO9kK z+vi&pw^IH63OcLsv*_YjHI19qzGsL<0i%K@4)Hv)B{){WPj-p>ReFgUyMxjxRxLu< z?4)^vdV~}}m+xlPCfa~77`Z%?O!Is$ow*2hl;K*lK|oi_g+7k6wdg{8z>yDzZKN~-K^pUqT<#P@H2$!ZH^9Z2E6Ye zpXqwtlHq70A+3{@L)E$@l}z+}v`M2?msP|^QRrRJo{z$kyVnIDIYIPyrVpGOEnx|i zPTNf?ip z20!a?Tgv8V{gX!2rFEQO!Nlk`y5Po6gF)>j8pY4y?|CZZD|X5WvFqAiBb@k#eKz}5 z?H?BsiobBpPaZ7YRfftInXrtm6#RYxhlqu!d*0xPL57ItNMMKQ2KYpIm*9^;U)3D! z6&BFE00DnD_AW`+=Hx3eq`XyNTO|G*=JPi0hPY1X!_BI;&hPvwe*1#%8daZJ+!~KP zCSi%nO8`n7d30P{AQz;8Sz=oUO1`xxxgnp4R-fU3)%Wq03H<1UIx?~{uOIvSvE81m z(ev;w>bJ}rT~P|&KU_=`MI2baTCq}Ku(HCy#UH9hX^nE^YD3_;~=(~Z>ARiwWoll z8}m5I%+8%x=N)$0tqFm2!@_+|G;8s0K~uk7{^s9CI$U&Dm+g}#Vw&Ux_M3URhZq+X9d8YqM)So zLRr}@w?N*&K$L}rrAZfynw)&Z=F||7r@47fTvAdD80HkYSHp!i`tLU*d&|)TVDUN# zHAFWXu~(vHm=E60xywOlmHN(-&DyKEX=mx&g0Kf~bfK-jKH+&0%%>q(YcAEbu2S$L{ZmlDR^k z-v?fv+h?E0cGiFu%IG4>kcI47Y30+-gofWRd%}=bHIldZg3`2rQO zDy2P&oMtvsW33e{6$TtQ2tSMqr)`J>jq!E<+PRjzR%7Rv#;Rz^6&FN)F`yg{)CGcB zM(3;iCIDo{wA0p{q;C3Wk|V^&{jXVZZ0;{uH-FlMs&ASY}NU z;w6vgL{0Jp$fun+PtprX&wC6_Eqz08zVp!$_&6Y`wl83iS?px1@t7QeTTT$bYlBy0 z_4tbvt#$0jY?GT0^_06AT$^UIc;>Bls6Dr~f{ z*wEmPLa^jddu$h88yt6?H=;0U<2Ya4Mkrw~I&B-Kdk8X-nDdp4@y-x)%ls z_CP*YqYAmDE*T&x(;WQhJT;x~H4jp5`US#q+rX<}5E3yM(JeBZZQ*G96xA#^M;{$oMW++G{MWqCN-jsXLw?9>XE zqXCj){v@;#&f9=;Ho&?XdM(G!ulW^!XGO2f)TGhWccGFMLy_R{Pr%qfvDD=`O)rKj z(;sQG78r|Nv)m6p&Du@)92IeSDc>*D*Lm&hrl@L#XuU}wqul5*<(q9#bh+gwYAl?l z8a9J7Jbj>d@t7V&PJH9zo1xbYI@w$^(DIW5t81Ns*^ov_VAP}(01oZ(9KJk}VshZY zZQrg}xpE9wp(w}tm)95*OuCZP+X_>#{_bChftg<*NW-dYuw~4?S7NrYC(JP%p?2KT zz)#FucB45?GV9@UIZ{aI_Aw7wGi$)Ir)8zfz8$6%Y7JCW8NWAQUkA1bmyjFra#}c2 zDwG(W@1^OpzaWwUqaxu7$S^ejM`JC)RsY48_~|73n<68K6SC6QrAjvnosReh+G#Ne zq~bMkJ3@;Y3gr#=R?}a+dVOL6*bPW z+tj}o`JVPGX^}iTW}cTw7qI#bWik!5I3^T}4Yd$QQ|bKF4kOr=d8gdT?T4dJm&IXDO+vysW=}?{oDgZ7Stg?xiimL9d*K9A&Q^TT!mlhsyrLQ!E=i>^p%*;R z`tKj~kQnHsC<;8mcuQMPiof~hp)t0dR}4imh547OvT-9;U>m1`J=1DXs!9#cOsli6P$;+TpE* zoFlbFM?$_#otzQHm4!ff4&@9dl}6$_#5E2uS2Cm!CwCIcj0Jq^bDBpgp3_8G zt)q|X9lzetqAz*why4DQ&Jq7Ew#oMC;%^znzPH~_12qatn7(hrs>8OKkNLzju1}@t zhfL?q&H>z-@gAfKB8AV7(_Xg$S3}ep@CM`g@ZEy?5nC@dnkoYSuQ_a6<)p^_#nPCH z(L!b79g~)Cd_LS1x0`bMwSbQor?)pPrHL5!Y|9aZlf?AEEa>9jWG*-FH4?8kA^Bq0 zccSSJy9MO|0gyYkY{Xr{S&sK5EHNQDK4FHu=<5?dgYYeLS3Y3;70a8dKPVZ%Z5!yB zRK02iKz^|ORbqU%CDBjd7TD1*zPWn3>38x}J{vk7xvBg2JycK`*WojL4a8=^#Gjm> z6~yPBRnY+u##ASRZPk6?I%#oLQ3k&FW=zI=Ig zll&6+R#mH8{n8pyse^WlW90X`H-)=D=ot~hN{wJNZ>{UOTr&L(ztQ&F$I))vUPnty zp~g_h$&fZDgwhdLC4OTCz*_2J$>Pw!LA5h=$-B(H7zzBe{74W$5X30fs#7vHLtD5= zqx31MG6eR-8FhQCKw{twL}}n;jj#w<0dH*umk8@ftdx#HJb}UTH_J7SUDn{gi?1Sp zUD#&;IY8{Uh*G`~7@{j)q&Ykcnxf%Bc~W8=S#^)tRvWq(tZp_@rB-HiFW&rnx}Tak zcDlH8YYKQ=+b0j4XRHhlNy=PjpO57#Q3nsf$R!-NlK-?yNDz8D$LZBX0M~vyGV>c2 z#HfNAr+0c8aS z3^#Lmyz^R!hh0*a_2j}ePqClT-sr~tW-IN+)}aS}(z{nbmJ>VZkd);`v+q!z^&{uB zc&BE@haW_l>=+!iumDE4HI><~VR0$mQ$RBhOJeSs(y*8kpe2J;0AD+t{?^>0bpnuX zvK{ny1MI>#s0(fKOb6 zQ6RJ*PZ09^0*cJ))Y+nGUb?x=%u?Zw!Uj;%Q?uw;=3uh7g`pxd1=vs6R_|k+JHUY{ zJMiW4_8-fx4OI0J0)F(i5oM@@r8GN}gH6@H@Zt$rIzu|HyyTLtmk#{(-FI+Bg|vTu zC<}1U%dfPJy_RLw#(NzTb?3+JI#yodx)d6Baw;opN3nKNRRE!zL`8B7o1#zV&d6)}#Y0yZ95bsAHMw2h~;x3c_`DvXv zk^-QUF07>NXqkDLU#dJQ!Hk=vx}~s2B;kRdeivA6l4@(~n4dL| zO?g60f&a4{msfu6Wn)h9Z6wS1ezyEMjIF3WQTQna^5A+bC&0yZGp5+v?Z~-sq!6B) z6PUthFNiUaQ~(`({#`zq@&$yVO?j#-%VGyyDGnm|q`p8Mi!O^_l#1YOzg0XupiE(v z6>pg!Tl=j(ORU_YR3dfxu$FmejmySwEQp0F5O;YgjafaseS zYm3j6=l*NR$IEjvig!&9kOfT6c`Y1H`PUQ#xf2u6M^w}n)-O}-ZYC8W)fh!hReTV#q7;*6F@ItTJb>1 zZ%JFo)Ac@MZL~A_bXg>P@3e<@Fz4bi&&%Es?WIwgaDLdS`ouN}1JlK8yn4<_)fIM6 zqEIpAArwmqDc_$wtMV1AEL}GIWh=c~u3^iZQ&q=W?Gq8jZkLoC68qwS+KGzg>|#BB ze@-g4XAV*`Vaxm0Lp8sYFfg1h0e&0TpXVLxFv2=7UNrEy4h!>OV?_9b^Fmo@Zm}@G z|AQnDRwH|*aYR`$?p)*BFpoj2O`M-~tuKPYxaYp%AZlhz8_T}Ltm~Ohx#hJc4>ApySh?;t(J@UG<35Xx6r{J_023YJ-bBZ%mE zCT^bZFOkkXEJl2ay(h|}ZqdF)jlNCXdN*~!m(mMWCRblWC^@pMA24-2c7h&$7{EJ} zZ$Vni>6NUbrKx?&!Q3%NYXI~gK*P;X0CYB#d4vgAIw)}%!`#HD{}x%UsH`mbFkua} zh9%kys;O}^Bh)zL192Y}-ND(`&TG(em9@xU$A#C&H+Zs)8I=Cg42X)nYN%d>V9fr_ za}a+SW0et7w528)3i#=TMf+&A@Nqeu{aEMkW&bvM{T)(xI)E4?OhBanl_b)>;R3-V&rhnBZb3vCwvtsrn#us|Q0||M5rT^>^V+H%baJSO#-z)kvB?DTPADe-XKBnOTMOfI8fwH@_AJo`rm#<=DeeUJdwHs(>< zlNlQv4@9>O9t7AdOGU*!edUCL!t|I><@5I@|DcA-Ad;=QWx;HKxNs-sLOCXf5pT`p@|BrVv zU3u6SkOXgil7!J?@~Ch@ic3NS1;=vd;Y!ih(o;`NX@MWO_!b8r?_u&@!k?HilHmV% zw;%KCmx9~IFxG4fiZ1zui6*LXzeLs@y?^;V0U1VOw%i#}R9f1#IaUa2RSYQW|2w!p z7xSfDsm9q!hBlrVV*L0wbha(JrxPx1b_%dSxK1r6f_NA zS_ryXd-GUGl!pxRr>GcMqCg@ISIVEVINBo%Y_JYKJd~npS{v-n7n*wJ*cb5L&WD_z zfqtd2Im~rP|8%Olf>S=FLfdsl+fUSE)!VgM9qZ2yC%mD|vrFv9wLWA{Kl3)+y%#&d1_G z3SiYuHK97mYh0wN8t%Vb9HM}c83VqKvKHqnBM>N-#HEV$`0aN-eP(?~wImgsFtKLC zNa=H;$;fICwtm-%^OJ|AGA8JZ%LXH~3co21HulG~wBl*2O8u$ooFaigpM``JR8-`o z1E%n>{yP<;UQX&^Vj{r=TXcK7ET|-2-GnEwnCPxH`Z4(mVBin7lLpKLN~673;WKN_@+v*{ zA0#0lzWqV{Uk6VQM~Z2m#4tE0Wyw3_#IG_I)9Qa%NLhY>RMQa{E;@vXcRKOQ*`5wL zcu1)xv~YN!6owwIXj$&-Fq!nwr?ILMJ$c1$-;+r-w*=k3Vx|*9RnH)2ED6T8>~)Qu z?}Bh}*%Jwk_`5Dz{z)=T4AsaYw9UUN$NlWoK7+_(dUD#hkc zF6Ao1lNV=lyr@#qxvADdLy+Jzlhq~nrfkk~*gJn!IIPEh1{2yBX@2Say|34>P8k@wzJpb=v zklZ>IcPnC|{PBr?UPK)uy|=;T>>?_Z4G9&V-)NTa#-zKFFp6f?)q$G1r;Y{4eke*) zfNJ6I)bLmzHPm-$!u8{2Ywa7}n64;uHnL#R>>1u1^yeeX*|j(N8mZs}q`;1AKyF--T3 zm?2axPZc&-wU1k1DTY zefK4NMVvmvk6`Ewi4A6ke6{R4$5E4i#HwF~!WrZr1HF_(z{}ap7o5Dc`*3;+O1iVAo8qs8)z=OE zSf+ ztTcu>TAUk1(qSZwA2Tu@cH*-7K@`-~&VNWU)hQuKb@ z)ynx@f%^TBAV>4|_)G5=YaW4&t2rU2TIVS0+e&lrM-N(IE`$qZkxn;kvUHFV zd5hM0{ucpa>TfDjHp%juk2@X(r{!2me_DvN&Ek^=z!GRI_@8>XB!aLt3|#TpCiJi%jj&H#_mlp#@@V+7 z6ktQPs_XvDFG@sMfAC3}^mwFg;=itSaP>UJrAcy=46(cL7>j^ENG?6o8*|ZfC6&y5 zPpbABZi$XW&OW*(Ion^`5-!321`?P$!*I;W$z>U^fLtE)fxHv1bOreU-7PAT1R0!7>mA0OWXF2#<|1R}WMpnS6r!kQ*WjQYLFK`qOlbGdZ7~LtScG1g5qW`HCm>X#hBtTw`LFBW ztlk1e&MLqA2tP+$-pj5T82n5@`ApW9mIZlTfjRr)MNsU^=R{z&bh`YGee>3>z}h7m zNi;VR>gnH8PPDh5BwBu(A_3h+OUr}Kl#?@~2>`n${pjT=BBCI>7EKf(x`) zmi{$`^DyYt>T-W>`a{Knguc+Xo1zGM^i^rY2Co3u+#WUM3%D*OD_+4x)RQ#>JeQNFJic|$dpQDo(FYkEz1|J=XWtxKp_@Fr+ zFZ1ZrK}5=yl_uTSAtrJyW72ux>bMkvw9Qm9jxAI;387vKjV+_DdXxWn1NJ1ux$~fAm_Q&@DNzE!xOnZHerG8Q$-_oJ*Kx%@f3wlLP z)VA&Mhx%6uj~0~lN=!BnO@92Cr)S^r*({#^3@uHou z|NgZETymF{6^DR;U?BW7l%PZy`ceuU18xGtsMw-azldg6Ro%u^IePdo6vLo^c=dtk zc6H?gl{7R!8DKDkU?es&@)=M*z^O`$9ui$F4HFa4GSA~KSok$GG{PezDRM~b)5{?) z2Y+NB%PQ(>h&*0R*iw2>0u)wBn;JU=0hT36XIGb5=|muSuWz*mWYp9>QI!Kd)_>qo zhbIHL6WfNRy0Hk*B_mu?W^H!tH(iv{ba>$xAs`K2xVZ^V8t^_SDiP4!3%xTwfthAw z!zQn=(B7PXCfG2}MoWHofw(`I0Ah3rYgszqJ0^xRtS<7KVT1FIDIl?-@Om3C)IZF0 z{^l)tm5=a3|KRIOm?YP&RQV6{!OD;!;goVrZReDz-%`&0lM|CaQY)G+4fG7{>j_HW z>ni%*z_bo-;dl_rtyj)cWX~+DWpMvG1wJvk+&59eQy|tS;B+!cH6rX+E6cwAN9L!n zM8?2K%Vr5NZ6x?i9Z^Wk$m@{8F+B_cEc4h;qKDVmb#9ar^3m@MDlC-${F9$@mX$^SGx9>)J7dO(Uc+HF3L1Wi`t8cL)}NGM-g{qC}I6#jr&@0&)_5k_g8=bBF+ zCg~7NG?P>J7k~8mYNX|Lt{!o(a@JAYqEeAxF>zZilYHj{Ey9{b0F zvw&ru`At$`h8E8udc5{x)M{GT7;KubC*7k+S zDl0Tg0zX!fU!NXmY{2h-T=M>VSV{M>bjiyiEXAheGP|y@l9|hiGSBBS-OPMe12lkB zeliJCG6#@RXqKz7^GJZ=*1=lvH zQ20l?a?-o5_ECy_*-Do382lYeeH`x;4oH);8pavGfx5Ff}Gq|sWPMH4|#d_f%IX?Luki3hmkyJ z`WQxS#bIMk=H5cyP?%Eroj1R;v`=Vnn>yjyV!kQ7oZ4dL!y=CQU|aZ{R_G>7?=3MK zb)?2>eG#9Tm*PVz3qwT$uvuwLvk%=owmhW`zqgv~5)1Y51tXVm_Syh*$(A@tkSEw^ zX=WOSM05McO4|!#uAX1i_Ix~2`n4r6tj@drzWhHAKmA=x%9&b7va->xGF5FM0GS}F zVY=vhjMT~wdNoVF5WM=ejH{4IO8NJ^By%g^DusVeN?&UH?@~>vWQ2^ zFK$O>kV~z-W#p&FjM{&dW(`r_`aE#+R9+m7OxG|O8(XP=!#EkUt8U>+YoS5#ju5^o zWXCfCI1s-lal74JB3l@WX0(mRD%o$iRYaK#90g?Mjf;hS>bY5chQJqOm#?v_)uNET z)iIzqqgq)z9^i$sAl5jZbj5FYZ^ZVNdqnp{&AaOZ2`1nHw~aE@7?)fv85!^C=*YzR zqNgNyDxrsUm!16v1^e@R?CkQ@U$~w{2XZ+_u)Y|lZv{jVMJo`RT3++T+};+|1M|-0 zM~z)MrJ#XX@Pz3_48zX~vyKXXq<1tq4~B%kL0g#scUr6u{MQ4#I^r_VR71J5RAI}5 z(yaGBC1%l_3_%1XUKwIbS!EnC18r_m~*;EkAdY9t;R8FBD#Q21& zf;S8pIKx1bLe+@UG9tScPPDeM_!*c#=y5w=7HdH~cc!K8q8elQjxs#0ZqV^DW)w`5 za<-1=ZT*%U*~Q46XMK+d_~g8_gjvq-gnDqkru?X#zfEk@#O!lM%Cy3N%T7W%l(jbN zPl+m)snMKZl<_6~3BAbY)c5krVTHD5eyY2Un(o$_8)v^5MX10LrTK@Wg0j;#y`nNM z>&rqeV`u3ViHA;UJ@rw62Bb|Azk>Btxp>fDKwqk!(pPmfC2u7==Tc*r55Hc}|#)0IlRHoX_W!O@Vy(^$bt?Ceql);!5%tG>oRNUohG!u<9@y%xl9`JB%D zS??sPCnC-aBX$azX+zcOe(WKUePhHWfqzd2^=jUJE>NKj5tft)wbhchtxGSr^v=JP z6xQ8gxY1*D=lVkI(HF;2pU=s^Z}ql5K&I1GR76Rm*bNZSyiuCGLo27JLn?I zwELF%Cz5!5%e61tR3nO1v#NIAp4YOaCAm!3w?$%3&!P?_sVZI--O_O;62{xwS0r?p zkX&sj#n$;;U|CX1J@es|!Z$8{w*fmT%AUV?vnkEKJ>C`+b_;E5lXjS{!UHX|F#SIm zNTdcpXFPBO3KtV%zMr%!1CcZ|`*;-+R{*hHtu+oGN`3VkBU#>-0# zibg6ZD#`-Y?}b1zm+IK)=wpYe$901svKesM$E2jSO3b50Nkz-o);0OIuUGQsF|CE8Gju+VXh4yyp?(rM!AcFE=D z*m`zGHJ-cs)B@*6$HK#d8%>jEs_(xcvAV44nF3g)KOMpHmOM2O!u_o`{g{574&YW4 z$J&cp8m_{0G9|wu-%lJb@pgZIhL4MD@Mks~$8avh8Ap0-|MJ6F?vR7PAtsP6t545Q z?sFVM_(Nov`Nn8&E13k79agrKbKJ!DX=`-I@kq7Gtft~r-J(>zT=fN&tE6{bL_rrl zmQG7XY=+-hI&$vBUW8d<)-6}@6)Wx3Dr*z6s{|6z14{6e!FBJL{OY*em@WW=9A=MR z^$0~eldtDmr`s4bk*lxTzdeFsZu4UGCtYj4B80TH<($u%Ay1s80)#UdJ`B#1LITK;-JaVcca<}r(t|rC zV#0*8_}&>c#B2&!uav$B3f?$aTi1E9L>!xsv%>e6iXyyq3nk^V&a|MNxQE^^AXZ7wqn@dG z`RGnX!VNO-Pgo6WU$K*WFZ_nkZ1(nC=nK#86<8QiDs;X#jcGgvN;12-6O zpQq#wg!4zm=#$;~Xfi%3OE{i1YB)10m>g;{)hguy-}~)k;5}`hJaX!lAucxUV+~uZ z)s26$*tBhYaWbaXoUv#e&i4}WH7l!an+2+w`^wH+u^%!lYk-2-2nY4@HP9+AKLV8~ zXW1OLqYs+jVHNE7kR~3lEr(eDegk@C40zn94eN|5DK8J3cIYM?`n<}uKG>DuxBv5e z0ng8_e7~7+xWY3o%-_YOqMk+zv=7_b-i}L74g+PyNRgpkk%(`LjPkKe(Zj>)pqyoH z#BzhKT*}XO%OU+r$?Ykr5ktujyGEn>oTAaAQHp!Vb?e3^KWc^$ zg}P-Y!>uD16i6*@y|Y)XV%HygGHGayk-z@(9#@MEZAbb$dXdYrhDEYR`XZV&5%bY6 z9Bt0L^sWzc-I~q^>^;5rKo7 zKqf(lSmiltLKv!FYrm1GyGF-m(VJ{*+j%cP z0nBwF7qzbl1C{ec{IBb6+P%45?+QU*s?20;P#hd4o z+_2afiGkTNhe}#74n9endF7u|S6aqy=J^ZP7)y`eBrh5O2q$|=A^tiCib?x+qfPLXwuT>^_CBY@&$dI zm>&^Adzv9;uI$y*M9j>m{vl=MF4uH!Bp^*GF>93=8)%PT(DvDE{oy2_2?N&whnH zZcut*1)0DPU!HJFwEAo%_2#3N9ir6;s%X7d9*@xch4vZsERbO3xjn@!!kF=|dlsP& zdosJ7$c0cRTiE3V+Y=?b)%++y55hvXODu>m4_}r%0e05B@A&rh9~Tp?Qj%iddu8e5 zY!=@@KY=Atial)hxsZ>>v!2qwo=EsbJ=vf*jGPl*# z@;q@IM}@EWPxBsKw?;2f6X{3_z>_q3B|NmVrBbFSOF*R6Mk2zCx&jskKzZPoVYPa`7>ay_-Ogdknlmf z9MmFQh21vP?@&`muE+Ou9^7A#+q`P#GmAj=e&T4}`UJgle3Gt*TwVt8rWGwIZ4hy) zxp=F3#cH!&FTpsI%#A)JHHDS??B6t%%Zj_He?4<^t4X<3sC)hTb&8RkFb+QC=qQ-< z3Kqo_Qq}B3F5!KLtFKR8SMG>{-1+-J>?RyHQ532A0E+$NA^Ld8KNL)M*fr!|fVk+7ohMo$g}i)9z%Y1d z?HS+7A4z|8bb(68o}j`hwSQ;jJL`>47xU|<^TeMr;?fZ6E4W}T2CjM z%5GZ%VoR@s#hI@>5;B?aEfXH~h+5hIB6_3xTy?F)e&^-^^G)-BA9U$tOjd0>OX%y0auI{;{_<*#M=J;tHwEXyZgCfllKiKsyaz1rQW$eM^kB5H@ zhHVli>s`;UUmT2}gn!~ihi3AUM&GPI#Je;64!_eYrOdLG4)KN7H($tjh(s@bG|kE- zErtN!z10Ae682F-EYA81^*}k1Oq9`|9-cfWlCr(=?R!X8!hLzTNxF_5(6$aVO z{S^gFZB<)u;J%IEX<`!!c$wq?-Ky}WN5gwwy8yh_MTEf|Y3RH&Q%eXiN+v%U!klVQ z0<*j);@+N%2pI*%N*wamiSKnp#0w$~>0chvF)=e;}-S?_x_68^~IriFJ3&a65-})MA@7Tn``{pyUDVJ zjjM%5$oYgZrja*jTP|J)_H|zOp=)f%TtM+>^IcHHdDhnP)yJ9(hou)r($YOr6`)g0 zM+hOc%ThaD)7gx@wgn^rZsMademuDb3Tyk;9k6o2!XG{|{y^;b`tjeD*6b|lL{7BB z^_BB=txVkGV3N=$4{m2`P>DC%a?9rOFkRWoy7^vr3@=kWSO8non~YKKv-`#w_lcb0 z9J`Y@>#78&b^l*LHs>!E=2-O-icew;#+|Su8r5^BZ4{v z8J+Al-eHJsFHM$<4f2-li&k5E;MA?L;-Jr1)s(q1~pscfhdLvD~*tQBo1a zAG6hr8DoKKriiAQjQdEhTUv3rf@ z7&m$H{r>!v^&wHg^D|rP`|Ru=M5!X>jDjO;k`qiojRtayWN2>Tikfm$7A5<_u1Dn9 z?&?}WmpS=%Tl{gNeu{Fj8ox2@tU5Crl$Z8sWV{iC1*AVlSME~QXFJXB7Uz?W;3TYp z|A|kM%?gpveP44Oc*j=R(gBfn$z8bG>{rzE4$FUSI}((4Hb2{$z5pHThR4T)`;w?? zn!b~IhMMq-f1iyWfnA9~{E~XZZ&zw_eAEU?%9oGxm6~JF z>thA?)+Y4c6a83e-M~0bQIA?~elv>5su3J;6ho1I*q4z01@U(eiGa?WwRnSV=8b@< zENFiIJuTC$UnCU-O+_QasPcXn)tnWj6_s*yX+Wbh z{jS9_EPpEYGq~w+$-Ml#N{JaWn)(8g^*7LPUdB;^6C?4D3);-#|mjCAc4iB&%qZn?O8YNkazw8(oM?fION+I{l#~_dWZ>wgCKit#8 z$zdA|yzj0*VLH_!b(l;g-i6h6Q7-v6;!xP<`u?2V8=M4Ka^u9`?i{qQHjme1R0-+j zCyKpg1qZ>}XE%O`cOzJ*>%)eT2)In^%3%idI25eL1JYIXTGp{*J|@lw9$(g-$HL|F zzV|3@;q1y6xE*q70-vEeyscHxqVaZ)$&?vtNFFPaqplrr}&t3oHnj%&JXF3wM`fD+J=)U=(UHyk<9Nt* zDQgO_9wv4{UImqf@bI%J=G%n4E0i|E^oJ0YY;0o?}_MJcC7lO^nT! zrEISlHblr@`Yl6zSuTxoCOiVIvJRkDeqShisCU=dcQc0UZ;%9A{b?hKG#eQ|uY(f% zwT*2goZ~w>I{TG{9^N`ZpIoJ@w6-p9Dkpo0BPEb1tFirZPtmb_#@Nxdswq7|wHH)XgkBYijWyzPK{HVT9YQlto@1nJ0nPpx zO&$Q6V>K%BO3t7Qib~v#+bTw}x6rU(SFI(-<211RlSUn!x?HRgp0qN{#&Vh|_><;W zwm1Ps`wicfo7DGfUkMubo^^>soKr8XnKVr@rK1L^^-?@F_uA4gl_?qyo6GB8@ib@U z9ddQ0W66PUW^iy&PW|EhA#CU5R>rswTLJfU-R?S+Ia$W>I-;`S-M-0!d1ZL0jrA(T z=I(?6SXke@eJf+G(dUULDtwqn2qkZNZJB{Yrb>1#t7N8pSvVo+gzT31>+!{P{Z!2m z=j`SK)D`R9AXt+xI$|P@Px-?C&*qVx2tZO8>Om~egf0$nV^BOoi+-Z_9puub@}I4 zK={K6=yHQ>TH-Bm*{E9MwxJ%k#&$wD&j;&wf^AyX3a&onlO>GqN8vr2rAEbDx9xEk z*mo<|hSOe|GkqDwKSH(cOPW>j^2vZ^9{B)1Wez)eQT@m!LvVL9$cOn#mBvDS6fbiO`B^2J&!7~%c8i|P0CTh7ROxV6OplI zSkjrSQQnQRnmN#wV0$dkdY)~d2cI~eNYJ)!v+X?&`PxcQmDP_-m?lLXXym>)sFyVl z(WUrW;NJ$(nPJ8=`%EzE09s1pv)qF0_Uiv%qi*U@e6@N!ZY!0Fcr@tGHv30L{wJA( zL(^f1|6RAF=n@YiyVodw8loFPKTRJaRKF{deY~=a%gBAky6p(p@vZd!FZg*Z2R{|8u$K%$#%P z%y8!3b?s~KJp$IbV}4LYRL42n+VaR}0Z+A%B<$={t0zz1%fEoWs#tv=3V7RsjfK^^ z<0exy+P357KA|G38|O=V`}Rug`>FYloh`vccOG`VSU!PmBCbfNsW(ov!JGl^Ss3H~ zsbPHLj{k_w>uHZ21+6IA9-lpZr~&z;x#H?W0!KYPl326k*+vA9T1-~crz@+am#A}4 zzGsb=;ZBm9h=`DD>Slo)c7D-!QVW~Eywgu#>XCg&;ryAad4Yz`*Vx$EVZ{5-O{}Ti z)Wk(cPuWuLQ;Eym;KE46t{)QYDP8Xr4fTs80#Ckkyu?UFhI3C&eJ^$rNHxPwZ73-a z-*z?RgYeim-;YqU=CXvXpC2sW;Wx4@^Efb}7j=+McjD2vL9GOa$xOlII%hVO+-vgZ zHyQz{%RB>KK#z33{v%-gvrP;7Gc)ryHtdB}>(I)|&rbj|p{#ypSO*`wtDU_U5fPC& zYQ^Vw?Eyv_WY%bV9Feo=L>=7M@i)SefA*}!tUT=dpHLKT2&RO#?GY%7Zc3syHRe_s z>y{}Wo6fkUqe}PJtrl9|;}8&Zu(gxzuFj{P2M1$2iq+XiIN?jXMa*-{%E(~oaZ>^9 zB0n2ADG1EJ8N)g7>01eIV5LKem`v2LrXL4Mw9#*`!9|mjxMhQ?59SvhA-EpKz*>U| zw_=b(rw7&FvZ^;yZrh(=g>B{sUrfxOFxn?l<5`R3{$^5xzv;Hq!21H#+@ic z8j>jvmu`$@vF56nnA{EhY2KT^lDnJ!GeZ4O_p485(qf31&jy)O=gr4Misv_bu$Zge zdKJO1V9tX^e=zHtQm~RuDF1?)Oa}l)dsQrNT|I5gOAS@L^i85}d;5f2=Xt+@{iXEP zu}|v9&c;w&m0v`dSXi$FU^yQN^u7{SBpH2qgWj4}dvE?M{hROuTVH8jgwdCrDN+;6 zkf5NG2+4&>Djp=II0VKps0zU+&+$oE&U0yyggeWnRTq8#F1jaaYjG->j2mQ(=4qGV_{! z->_DD6on;$VlW>KQ&M^pF;L%Kd!fK_MPX5Dzg0Y!pNw_M#N}#y*=SI@cX-}T%$=PJ zJ8o^CL5X)Qu412-P&cyaYWK*hY3P?<0uOpZ{a=nj2!#gb)j|oc4F&J8VvC1GB>xZu zcFo_deinfFlu;94499mBi#TvHx8pYE;4#}OQ}%bhjZC>jQx(v>Wb#iDIvwmEeMU{- zibF&VwFG%-d2e$4m=fnRmOw(G;d?1P zE24z6yT?-ges_>_8}7aST#}Ui7&~n9O(rT?u7=-@e(fp@Gd1tbWUBwVO&7|li}fKW zo@pae-;$Qo?r~BsX)U-@V6iQ1mQKH%z>?V+UPr8qHl6% ztXsKsA%WL856ICc>$#q{@ni3EY=ap@9Uy>CK!HO9RvQXe=ul5hzHyTRp_KhcuY3SV zi$`(3woEMYDMbFsl#wNmOO*V>hhGE!HF9>3;Wp^7asKpA7<W0E)qrd~v339b>Zzd)LRw)7 zd=o+P__1^HqjC-ln(sFS|NE<)x%B$K`_~fuf4-vJK&BR7GBB|Jv9tf#_^t3_B>w;Q zK4>M-{?F?DpUoFc0VA6K`8ogdCbGW&kB`cE1ge~e>W!8W@~?UB6fK2=wYY$7aD*;POj^7@{AZt$6pm1Qg+7e@IQ zsK5OH9y;^1sAHmS1+g()Ia;2 z_nULA8L@VkA(a$IJ(*Fs$$F;>w-?-}EOIZ?fQQCSr+I$Ym(v&fe~d$ENQt4I%R^p& znAA}mbt!xG04Ag-X&AaSrPydEzmPuf;qym?-Y07NH($<2t7k7CjV_)im`Y_94%9pf zH4sS$^J+05&{K+;l@$v@aXfwy%G%7(5CmP+!Z6|04{>ygDIwL0wP~Wg^2M~SQ22l& zUEzLA*Tc@ah?`=b`)0o4QkMh5dfHTjmf}{@Q}orDc%DT84i}S8A39zS;E}^gsV8<2 z$d|4{89n*0ITOJOB`=rEFdY2jKi<~82J44?o-6AsVK=tgIgi(o5shi z_GxXOZlF8ls#bzqCt`uY!6tv0B(}EbK^YiDrRC-)YFaw1&w-fu(3kA&__~s6(Vm-$ ziB`zpc^wae5C}2ZQOM*Lqn^OC1}XF5vze&V;UUB1(TT+l33i0wabp*YZ7E)= zfhi<@^;whNiCl2PXv@eZ&UtGmLG_nUV=Ur0rMJ^Lntm>zY3oxQ*04EucNol8-eZFo z+PCVMvsop~KJXAQK>Jd6O2&rhCZm7UfVDD{v4vTz-F*vd2Ll2#tFw$1DX4111Bi); zC7B?Pb~6E^q|R24~B7#(K+>p26Y^W#usc!#)u!?nG0 zAQcR1{F{Nu&2QZ3Vev6D%k|(UWQpIPBfv(nXQiYVS>&T{S10ip2G82%2KpZ+YRaD#t)9FA0 z#`N6}uH^AM8ALE7wDS3e5=;iPu(f=$yQduPn|^-iG1om#MMy|UEn!7KOQ-MfTRea# zVCzbp=)Y@jCCn=D&gWUM=9uiA`$uB-Z;*i;2-X?C=7eVNISGkfB+?sM`e*NK)0y)> z??Htzoe>NT1zoW5-OpeWdw2}2Q;Q9ul~a9IgGBP5D<+ zvg=1d^DCw8slw!A76eq4A;d9Yw6CNqxv=N-ZAo^^d*R^<&uoh-X(4G74()`T=LBj; zuFoq-1>}T`mg_aYHO_Ascf@sD?};pZDt~|8q$E0ahrFsA``f_|1w(Gq$v6%Dq{{BF zT;b>&aRq0GeiA=pO%@}pANb|3%53hg*<5Bkt}(+ALlaZ}FBiam(hL3P!B78JyiYBu z-`^T1Sfr|(6%n_O(Nr8IkpL$*^H!5G@z9Z%-H%mHvriNaZKbl}$AEM`i^tuc<6sz& zJYeu~39zw!hXuXse^HA&P2~1YsHlR!QIV@7uw|@VGhLh{6a{0ibvragZ)qx@H zeb1xfe2}FCgQtEGUm8tF(ALb_ZMcZt7EdYmkm|5!=)F2WhaeqY-Ni&7N}RQAGH9BV z^uYag2_m=-mjFkOm(R}=K`3aGndB;qqsP!%--IK(lCBAnl%qqc*6zo3i`U=Yl!FxH zf`h2TS|1IVdA4|caYW5$f(a(1#-^s?H5$YKr=MQT<@qaeL9bbdIU`;spi@UjN54*5 z38w*WICJU`Kz!}_MJCB;(SZGev)rt|EmI~0f&i^S{1kNkzreb#8lQrpmFAO3+P_c| zRGN@i;aWF@-MFr-uP+ysHno8Painx~5vcKt0|Ufh-dC~|Op;A0**}&=-sEQ-tA}%& zX6Mq!ty1mp=*a7JDL(gIJpx)m99LJ@^Mwz@4&8U$QT$sV#vP_H5_0{4zD!52{J>m7 zkA?TQI?gis&1BTn$i|*=YQ4J_(Xd@~c5))QeH&ByoZbs0Huk|KmOfXA+>TgeipIQ#hcI_^vf>D9XtRue?XSZ}+I>OUVlf9Huc5{OO0?aPeb=Ev` zJp(ZTv597s3Ig{hj3)o$!ko`?Naf?FPcg3kU)l2Y<|oY{Ese@6x0Ub8=Bj#z4Bc6_ zGC`c(~7_`c0&?i$^Dbr2ej|nR~#lk-an5 zr==DEauKPdq4q_Q)a1q|6XtkF+p)NhzubR9GjGs(WqJKYsOx=%_ieqIEb8N=m)B{e zs|`RTXTbK3mHLCI*Vcawg%9o#74s4K(KZtWeUapl3%` zk(iBhCGV)6oH55NpiX-8O^)f)S;Ilfol~wptJiw-EYU&u?*ps+o-g}j65&&EV^T(E zNuJ)t?{=lVRa_NQ?^|V2g5DxhdnI1wZ`2eGUZ0CDZQje6@%l;ue4hIvKT78e!cu>5 zgqCM}_(qTT?69-aIoGm;R4?=_a@DAQMEOHCV@pr_9PkURc`|`H;)e6w?jJAPcmVlJ za;oxXRo|qmWO(p&*=4-A5#n__Qj+vsYGhg~lH~lul6#%b)9HjUTA4&5FcV`om!JhaQycgzI}z$Kxf!EH1k?#2HZeu@Ef$0DdK#VFRq zFV^HpEsc$JZ#B6`?WqRhkyep zNdPrVBU4;L^kElx(E0#e9xV6Ya4BL))On2nR5XK{)xbC9W}a{R9%jPh;sQW-4=^^d z)vlTa@Cqp?C_syt z$p0}3a z;L)I8_>*PT;VFZZBl_k%EN1z>vPV>qcuXQ9ste?XGdhOnmsPU*-=_MiT*1Zn=JlKJ zqeOMs!Wq_#1VjJ+`^q$n+z{PlZ2e$4kA&3tsUPCaZHfdYDI_N_ouYnv5AdsVcYOFY z3@v?4s+3cY$q(52Lp5{^e~rl9|NWVxh0b=3gX!&jH2oty9T*`eZo6Y~!3#(Iw#r;K zZL(mQ?b6ns*sN#dUN5uA?c?K@W@^!uG``Gs_}n40?TCAPEtXsg8Q~qZpS{yeZoBUA zwfDW7E@Ju`BXMRign3YoS_VUcawBe-1tZacYa?&J+!q_sM)xNOYpJ0B@qyX1N66z` zDlg|+h6AwON4*|d`wR{TH1A_y+rSrf{-_jegsrV-?S-?MJF&$CMcMs57&kG_qWh^v zemv+-A@roPZ~PTmdF;%`F~|7_MEJ9IR&qch2M2Ks8Zh3wvgW7qrCr`~7>%6tG1A8^ zn^2@z*;Unx8F}64Q6O<7$SH?86IH(ylwYs&UQ`j!1Vk+5eu&2(b=@Pi zP3n~4we%};$1*R?1_QDDjXu0+KqKiNSN-&6WbegeMd3B46}b{abvLYW9lZxWr;5LK z3rVMy9YzF00aYqAw;yN>={_y_mscTo!}@m%pDdOeI)PL3+3W9~#x_LFwjMs^FCE`r z1a;qIW11b^=53xf*#4|Q3`x_SFd-6B()VEh`T6++t2Tv~DuA%IdvP}L8HOESsOPRm3cNRF65BFNYSqatn1pE+4q5htvWr>fuJ)*!2DUe zO7yWP--Cpu2%aYY_C*L93?v2G zk=jC{E*m6$X65K;r@*FaSB3*BG6amX_CcN)S~BGgV<}VPVk{h)cc? zh9iSHlq9IZ=oB|VNKKB``oY|0z*hQWRS6!!^N9ve0d9ka=dy678#D`0k2XL8CF2O}3MAt98d+6WGb|eQvaqhyd3fnmp~F?TMO?X2IFKW7_fkP?8L9UAHUVT1 z9&WOXWTA(hBJ5*AqNM1Mj7#VDK}19swWvM3@oa@FYtdy2WdV(FMvRBD;R^+uj~HS; z0~ghvhRZD2OP8}K?-Cc6a`3NK7L#e4jlgYL78J)q8BjP_E{{owjS37TrUy`+tR0-d|r%gilxMsjM$*j@N zN2|w4C>Yyh=cdhlCTdTI?_OQw?bfL)tn!m$l|X*1j?g<~vnTFL1~g^RLY0C46Z5AW zN`Hbomw~8xdlxVqp+qaVGmCZAc zVAi_CDa&{q6w>Loo3a^WGqgs<(6t#a?p0@-uKbhSw8t(2Esok^anGJ4s-Z}$mz44j z>s*Ne*Da>xM7wHzA7#s*R7)?dI=t$eMm!QERZ3L&^PcD3ey2i z8Zek8-)>d;wX%`|%yz|sBJVt=EG{kvbI7SByad4s=xP1A8{2Uk^?KY6^tYnqF!DZK ztM3NNWubLDI@IcYl_Ui7gmEAoBBCyEDU@vle?nGmZA!R-mY|5p^5w~PXn1%VIQC@A z;S+U2hYgwE#L>yY6IWNEt*tGwnZlx?#p%;pmEU=pu#3ZYz@a~=+yxG}TfHNAX?3aJ z$+AOSshTyA<6*tGSE~2^P78Q6{*M5dFAsDfLmngc&JhVQQFjPH*p$mmNic$w5-lss z$}1a~S@QcmF*lOT)s-muZW|~%Lx-sI4?b9iVrg2t!Xu?kyfPkZL0R7=%0&bPZ!72B z0Vi&ph>eUsT5y>HRN;pirh>uCz?R5HK5y%Jh5H1Pn=BOrJ5h2!u!#&O>$%O z0T*Ck6%{y!Ub;G|q~s+sK`X5;^CLPwVYGithwJ{BZP#FY!q1v+{_&on2Q~6rJPd5G%+}wCuQL zff>?C-1==`Coo%_TiY&ToxLRSNlE|o9I3LM2HB}dFw#k{+3yZ*l-!FHyUalg2QX#& z*|TRLD@Ze4W!wG%Oe8-%bm|lgAM@!Q9eeZYl_!?0b<=7(Hx(F04+gu>E+&5b2-Ua0 z|0*=^M3JDSs%yS;wDo817|p{6_r75h+Jln4sFKU}?r|;4TB7swORwYF;nhQn@;DbE z1epHZ8RF=eEav(U7=y+0@-rzqm@qP2IoX{%oNzW11!o#2eeT-dy!9;kN8FD&e+wBC7# z{jixw`e}fyUT9HOl_n{Rrd1QI42CfQVPIty8lxHR+O{qnXR_GdcgP=z$Wl9J<{ZZ( zDhm-HCt7>dQq$%ZLV>MzrGacrL=a$iL%&k;ZE_Hhk2Jp$Q4xV0~~rAX<0;?I(*RU_@6{iha7J1fBjR z-K9gzK0nh3`jR+%=f15Lh9^OGGkb@0-#Cy2fLH*xizsiuD_-UO*`Om%Fz&m~pil-{ zp547Zmjssnp?moDFBFMLe5}uakjRDl(f@!1RUr|Xf8dJAU2l%5XD(V5rh?&2{yNl{-YJaAt!qd~~mC{8?!6#VQ+RAEcQ~&t!V}Ed_ z*~z^LCL;CjS3DifbHT zyNcUfPo9?_m@gw`=#YQAV;p}@=k7;EDI2HOPh)@n?Vp_;+w=1$h%Zg1$By`Bga-v( zMbjG%2p(P?n5M4|u!}>&ii7Q- zvc05`S}a)FPxDp%r@uCgJ+{fQs20&7cjwlz zOTNn&QT)(B8~CeYPg7<~lgu!%S>zYq{Bab|LkTHQd#k6HvEpUxyudJ{w?%SkOUy$I zO8;a}9sAN}&!6A(acT1oOD@gE^pA;_dHy^*+4n`pxc-qwbOV9EAjascVW!lNLhrQ1 zm5gfrRAOnHJA4x0EK#yeIEl2+snCun$ur-Ya=T|TDSpG49*$h_?QbzVaQJ?Jb{;}on0xVplxJd5gb0C^bj-ERZOR^H~X5wI2`qqy@J91poaG%K$or3-?U&85Ksl%Zs0 z&A}lg4D$Rv{~dhLc5m;;>t7v`mAY1`yH~5mL{KXBIkVt1UieF6Ki**M@Cb*X;J_?P ze|Y!B8_%RVLBsb3Z(FSNS07xt273$|Um>y$4&-^XS-(Hq)9H8rygw}ffbO~SBLk1* z=2zG@A?ptckViNS5%s(@FI&d8HK@@wRGamck~{TY=$0(wwq=zXJ-cmJS`v~-$xw<^Pnj(lXw4#aw8(wN&`#EuO^=ok{z}XSM`dhC3-2^LAjs>Xm zP!vklo5pj2|;QmxNS;McET4%4>PiwRl=t$Q$}x1f;FVw!zZ>tcHdAPXJLCkY?I z=&KTcog>e3q8bcJyTJi8Xt^s&1~kDi@Y-Z;IA4l5zuYeE9KTP9^4Veu(t@!E4n^`* z;9Z@Sp0AN-aa)Ep3n}Mcg8j4(dagcDDkmx0T!9vp1!mqqjhE*=|FIlJXedX_D!O@8 zhY*H5)hPnbmcCus3yVt4+RtMU_)o9Z&q4${uLi+H$2UKc=-grZh>g68-G9vJMYYHupCuZLf94 z;w7fKB!KK*Nvqgp2v=8xo{2PBciNiTw|2SnJf(ZP>oAk}YO;9zU5tQHFQvWa$;&zN z{O++t&szB++4q|GJG+#(KiX&s{g7UzDLbU=l+DK>bo!8Fa%!2^Q||CM;w4&z4hD9& zvfOp(8_56T$LA=yzznV^?xK=1p#%pgUk?4IoUJ20l+Df^(A#xP2U>LV-03D`NMnuT z$=v-Rgepb>+T7<;1p(uPyP~V1-IUUKDFq6oq>lGTx7|b9M(15F>%Qm*K-%chx&a>E z-G{XLougDeE=Z7hfk*`O|Ls?~<=Sjes%2yRuzWHSRFnsX;3M~6YiY4CF-Z#=hAF#N z^4_q4z9b;y_&PEl0JeO?E@R)`luhp}nNFpIsFmo|-rbtoaqCMJQuO&&aX?Q=8GL^3 zVKY&N23i^JpPhvaT6B=Bh@(LsOJVno1Zfxd_F^tCy-+6{930@_tFy7_7Q&V~aFx=8 z32CFS!3WixjOmh6Q{zO*eXtzPUF--W58qa_w6b~%Xjq!XI#>`dZ4~epTIUg`BB<66 z^S){eFmR!Muc;li=&PG=2!S2qr47gagJho4Njf)C(mM$p6s zPfAKE=B8rP{)VnoCJkZd3_F9tw&x!(OdY$YUDYG6bdhoge{!3rXXbC_=RsX~h_F@V zBjAtFzkzx;D!Y8Z05gh@k3X%$3`n1v(s^EP6gH^16npwXEmiFYqg2<=t8{7p z=oj#)8(01oj%Jdou5qeLt)RU(hq5(RrJ6Fs5oCJdoNYO-`qJemHDpO!l>KANH)@v) zH{yhIrGwJ-^;lE0T*)G(vJFVTDD1uULH)?38~9$w6>@$0VrTtv!IrnI3Bt;~dglCE z^6TvElI61^X#n6n5QpKMoGJ{S$D6f~u~dM}M%z({s?K51xt_YwvzV9Ko;3cVisAXh z(tXDbsvlPmCer*=1j81m?>vV?8NvCQ)-4nL0u%#s^dK*(qNG`{IQ{7~&WXrZKRt3W ztbI}S9Ud9`$rsH@j5tSH5)yxq+itZHW&wbVzmdn*iPzxyy(@sg1cLP$7!q>!h;A5U z61cgEKps%k<+(?xkf2~F$ASVt8T~N$q76mEi zeE^T(+UhD2LGkgoId!WD04~%D`n6qsW4wL)-d3qzEg49PBnw$nqTJ>Wt^OeA0fJwY zTMjamhh9x_0GSF{7EKp(#RKgL0cBT4S{fA24x>Th1Mb@2RA1N#(|H)2ZzzNARNx4B zg>th&==pwGG-eVK3=0cu1qFPhj!h=rpM* z9l(`WSKA~2TuJq-`(trH%?IVkec=|=5xgZMBeS?yy6wuPwt0j?Af=GsEDqz6vvs9; zLynFHypk&wr2ACzhPk)4Pcl+U<|1F^Y%0l=j)(aIxTYYb1tPHwf8y)g*nL+INO7p( z$*$1PN&bdXyIsQNX%3GMzXKKVGnOEuYb{1EYMSLPl{QT~5)CaI8pCe5P5^ZpOmlw{9?xN+)D4{lKfJ`J3Qx&} zcRlltL^gPGSxgKyj%?47)y#A>Bb(NF2&L-vy3n5D21t0HJ{Y@YDl)JV#{7a{3?TC} zWGh!W1I%YfhvoGe#F_@!{xeBi+wJH8zX|;hP~&AGPA^1gaMJw7w?^0ZiA&C8sajSX z{U<}Xw9WN9X%`lDT&9Ajgf_nR7`6yMxlSE?w z2uH3 zXkUOEAm0TaF=YMN4X_${O5eU0@T_dflmL}qches^V;2+@m`J=nyi`}4*X8Wk5O-dS zOtz$BWJG1E9+qr!1%pU1{KNp%Ba1Jg#oL}8+K=yZadCODUSQd+Azb`G@G0uPOAqq$ zD4-C(a*HbvTRxG;%SZYw{CAGt;r|2)J(&oa?p3 zRetkvh&^q)cdz)}gFn$Z9G`!iWYNf*f4^2enLPLI8hpbk_1ae$k>Th<*-NZ}>=s76 zJtzp!c%yfi=Il{p8ya;d5@=rFXNOP6#i>ct1^$&MavEBHP|V10LGmlSX~)6fc%QFE zM=P(UDSky{eP2u;vicRcBL72_W;3R+P$AuLwqD4-t~a#*g*e~m7jQ5m?G_X$+uge9 z!h99`A-r3fa`o=V&RSGf3?TOszZ+l8YOy!+8|BnsEI~ML%1+s+zD2-u#Go$yZO`@= zh*+P!f?(oY*%9dYQ9!dHSzNr`I2z-M@DtX|CmtDX>ZD0K{|CiY1DcywaE`)=S5E-)R+}E z3QNJqS!1rv7?Hk*T{hyv+Vxd@cef&8BW{}{6pg?mwPj9q%4H|=H^0p)wxBcjscj)X=?5AqxPs>``OwytL7fES`EeoX!7|A(id0xgqxCBpVaxv?d6 znHnd^R(Cjnwq^bx7Yr1w3nLc>14*B}+V<cqAS{cmo(YfeyiXw_kwbzZ z`oM(O<&r7hkX`oeh>_?WVdKmaVT|NNNhZ#o9DG|I``qzcnT0F#KnZi`9Dd>O{YpWa z28Cq#b|sWo1*9TSoJxB-j@OAdmuV4DAU`HZr``*A5p&YvzoUVR9&$nDaH}JX?E&a3 zToJonhq1K4dsZ?g7sKQ#FW_n9o%WrjSUz>qHYVG>r*cI^XsgUkGvqWVWYJ*ch?ZKS zv$3bTmpcBLT`tJOWP%uLD(_uqzyS&HFoE|8axr(5bftU#&`a=N1n1zayn|NE9zrpk zubnbR9R5aKC{%=Q(%JAb|Bky$TMR&L0KzE>a{u(~@F=O)Dl}_CZ>#Z$c;6wnbTXDW zms~1>0e}S3$L^5d)u}$UTMTyl-Y7a0JYUpV<}G->GwsgowhJ)}B#{9I!UL}Xt~n>S z5hinaLZQYIrl}#1>@{945Z!oyv<*XyCCezwS{_KhyaZ)k%D~KmB>~n4K;4W+@?RCE zl->(|l_i(?^(*?2wnaCuQ40iC!^-NaanDEQf7Zv_9un}f)vD5@1(JOz=2~E=uOGFw zWko>E3xVE5)VxLzKnehAfg2TUhkFn5@ce650ssTRJi@`p{{XtB)H<)f7BECxh=SWJ z{{H;<7VwYD%6LJ)*Uaqfz?9N|7szc^i=eWJ^Uj7(7B(&*Xn)-xBrN90x0l`RDR@j* znh0!atEL9t%Lu~nq)+}-;H(t^X4~?plhvhKdL;$Uur*2Uc*`5_H=qLvlke`gM$Ryq z3)zs>KI&0_KGLUEMZ!Ii)smJZR137^#+{L`Bn(59C+!LPAASqW3zjo~-q*Ck%3fA8 zJMn3Q_^(<4+vdwM9IZSy2N+kI>?3Rw&R>LbwKVLkfU?r`BNGo&J@Fw*N`lX_yxhEf z;pNSWN_xMwY7}h$lpOiN^!_~W+^#fb(OovSNmQ<`Cn`Nn{JA{qx}P;7|J`sfqDbmcRH8QApt>X2GT+|J~6*i$Y7u z`dK^R&NG2@5~y?hr!-tcgW{=-3@I5IdUe|FcFaadVBnX+LOd9<(_0U9?CDbwUleSU z`}p{PR6rEa@PG+s3fc%2ZYY3mK&Upv-%uwGu{M7jbns!J^#!+mE>K|w*n>dPEI zXGR^a;_<*|4wAE2#Fqkm>A%ixAb@1@l}=OnjlDGe(0Fiss%TUcg)qK}-=2QRBKc_g zD5z&Mj}!6nqj?Rb8AdM~Uf2AR@R5D4l!R|Vv^_9RvR zg{YH9MECL_%codi2hAFy8B+ef;;H1Y`c>kh{XjtnTbfq>XO|wgo9$h=?^0uiNH%$$ zwJHN3zYfYQ1NpC;70wAO&juMS_YD|&ztZ?ZJWGBlRn_XP(VIiybc6$Am#tuo$SXwFlpl1G!C8G2gNq#Cero%zaODgSFBkI+?ia9#y{3-KF6yg@DN zClzVT(Ezx6S~?EmM<8cUxlVxr2ML^(RVUPViPt9pT@K&hcc=hkOa7dloM^nGFp+*B zf%;9QwIfS_JeTF)$(6OH4>8dpToh)SYIpKC1G( zEOZi%V2*85wk7#C<|In5d?0H3oDpOmLE?p%wq4>Cyy zoiUvUtYg_v@t|EVIt#DYTYjbYfF(>f>c3-01J$CX16hgT#}s7lDr+FVBqxg)sX#E_ z?H6nSxrUhHYf-}B*(_2j`cL+w9cfJfq6(gsf#Fq6+EC`*V372peH1H`a`6R80IH~Y z1h0S2l-1i71n|AC>s+_@K?J?!*+qVwDV-i0`#k{|MDF8%=rngx?>zBC^7>!JTjRE48{4HYXKyZUmQ44S?LAIfA z8>n4ytIv&1L6y@ljuL>|hNr-d2cOdPm2HToKi2Z+qL~Ix?<)gGtSW+cRClXEs~|A2 zC%n?E{p)f^P#$e*A`7P&5z0COmkP8c%dcrdg}2~`_`0buRZRJo6AE<%IbXH$1hW=~ zx+`DhIt?L=v4K;X60DosO;x891-`0bW-kXYHuzGd&%clrTfk3e$OQ5Hss=W!75R2BRl$6w9MtZJ2Z^EJ^(+O-beGn=lG7X26Eu&JFRW98+rdXx zJZ)GW+|qL7hK7a!2?w}04S+U2*FXut{|4=pgLLg1DL`s;Mnwh*KoJ10bOT`%KW^N~ z>jwl?wz+1%8!-ln%5*Jf(h}ehEdU6lcpPOn|0&?aV@H#woGUCY4yshrzHZF@iw>Y? zK92bG(rny^qdc|ece2&@Ul9DB!sC<7Imvk|WeBkkb4mVH z1miXkmJSz+IgRnhu5Ac_&%gUs0%+MR%-PCl*Ld#v&W24s>k6ctQZ z0luSW2JNlmHDAx<4(IswXYE83kPaECl6*JMa|=fHKka6{dv;pgL|;D}4Ir&oy2WDO zFh8_HfHwsaSsFiJ)sd4O#XgsolAN3bs4SVsK2yf!2|vBK2MGviP^jA^*RA)Dc9zN1gQZ3jdfVh(s3EvQN6)^w)x5VWM2LBCQ z$vequR}by_W^vk6(-x%#dh)=#tCJXQZVqRG1(B(!EL65xDbL zdtRpQ(aAcvfz#z?I6S_bQp$?cGR;Mt)e_$MU3{oQii~GSWkR+o-!E0s@u z``U@aPE?X82Jc+Wco-BGW8M&+Sp@kHjo&z5Z$tjk;$N=MBx0D)h64gi{maX=YCRqF zvHD4y;eEr@$g+940|E2jfjY$~8t7+iKj128S6GmK(=7VSoc|ggs4@h(0pcm-4-jSb zL3eCiLr@RL>%69#SjF|pcCL*bMy9r0hRO*t_Mq< zz)t`{yd0PbfUv%BLcq+LIj$zowhJY{h`uL9HNd37lgIv_$1F|;M?JZT4U-tTdMI}T0P3%HaH*ori}9SgAL$mN-4f7$6}h=k5I%b<>9P zRF)%nybNPI|CJj@4pC((>8GmQM6c8O9~zKJIc39bjI&?Q^Bv#&c$NLROtAe=Vxrl1 z^5nn)g$*$}e0NTW?fx$%>Mo<}G?@U&?q1|o{mr~STzc)R>qz;VgtS{@W?aGWfnQ9EF92x8dH2e;B1!?g4*>r}3B!3U&S#hqX5~J>6-W zjW5U~Jy*LwTf7%qT`d9{+q1c~xVgFA6%|b`%#8;D%3=)cnnk?+e)H+!VL)|twaMkb zy4dd=)DC6kZ+IV6l@n=0ZZVk!dw82|+6vMY@gt2XR7g7qLYmRtlK20s1`nmh{XTls z)IzhW>w52IBu;m4Tf9S7l%s^naBb{?A2CL!CscA{qPK{`1+vS2Tn3 zw|-CaDPB9cyIhFONLTm%RFN|5nYN)*j2cqLx);0E?utOF~;2*@9Uh)dB7;rYub&e zLMEFd{&i9QT?>PBCCpiuxx}f}rj*Dfeu~1d>kR0x=mSi{s#LkHOgPJtTi;SxRRtw2bGpklBd%0Sqr(>8 zoa6O;a_y(98WUy})9Vyu*w{l;1i8J&Q;niUdqo$JN8;`F&BhPsxeNbI$5e^ z2F~g7JUL|xe=wfZ)t2R)S^1M3wZ-;&#Mh01nVNa!mG(B*o|gj*WK!ENQhxfp3!>37 zXcD})^(tV!1R3Kocb4}GDP(h+#@uqv*wikSxl2u3i7tI z?+DfxZm3auN7WHK&BLv}xKIlvKMb;U3UNR!h8GK!9Mc%RpoF}R9|Zp?k897GhGRSq ziPS^%>L6)@qagK|1Bhwo+~u2WiLaY5;z-`F^^T>dzdJq5sX2Xl&(7EUq^1`Z5Qlio zvb%GS0h05$3_Wvo!OL`C_d&Rps?^=po=bwoK`lQW=$4;S_ho{ zt<OCj|#&ZpE7f*-WnV35Z` z1ajf(5boB^g`1o6{06!7zFB?P@Ys^pP~BYi`NyeUV&anBq%?~8lI5eQN6$lrzAXHG zaez242xB_4zZ%>gkqV6^cYy4qK;wejl93M`(IsDB54;>$Giwwv^kMWlS|R0T7f3Nj z44=UJ4rr-pBD+pAmR0?=?&I}Zp+WeOu_IQZ^txT2#+#F!KEqbWtq;=1g^kt59{hH! ze_S><-cfXRp+2hhw4Fi?nIojVXT6kgh^#b}B!DImG3`tUsS_9_1o_>Z&gXAov^|n` z)*2W%A^Q~NBHxFrFi$p=-ejDfTlvJ zvqNw64&JIuE4tmsSo;nCAKu{Y7phuENDUmHV9MeKE1=KR%75?s&D>Dn+IAFb1Hh9njg5C!_*Nb{jjI{zeyFMv-WMmfx3|w1 zVz#if3=T=U1*mfn1R}{~P((kaqx){y*4nlcG=2rO3}_H=paQ@-Iy$MDV}YTIfXz*} zWo`X-nAM^?h{Z_hqendtvb%5u^xezLRk@DwbQY7kh_dwQOB?oFl7cWJapUw2e^C)% zf8Oqeu{x|u_3tNO8sL7%hMsQ7Ar$wLuuYw|lQa^Un8*BmOo^8A*uH*hHl}Jy)JRkv zz8`tD^9+HIRg5LEZh1a0eeWIH5l54LcMRCwNy$WeHXU{yZa;nibjmgAa0jge@@vkQ zHy^T){`&&bOE?B_0WKynu*Z#DqS1f+w2 zl+Y1DK#<;h?;Vny`{w)Ro4LQaGxv`>_YXNFIXS_TefQmc_St7uQcTvXm&|h*+N2T| z@dCc8{Gf{VfXB6{vgK2U2y{mqPsTc#+0@)e+U#F#*@F##uYP%S;v7yL7!+@X0)bpn z{=y=X_YRWZzwWiOGd7NQYS?)MYdP5(144rwP6eIIV+BXRZ)2kuAYn-b8cacjEjurd z06h8c1P>LGIku%`Rkctw^5Mgw8%*YT0A82EX4a^kmZ=v3mX9f>{BG4;?9BM4_rapV z=R}iW!-CE_C8^|1W*7_%mZ$@L1YNH}Ov@C55QA!_ugz00E=Wo*RR~}a$)zansp2x7 zU!wt=-{uk_kz>{*^sIlg0F>tW?YBbPs+hkSW+0y-&`yL&K3pN|dnNuS3#|z9NLjTs zT~zvX*P=F9= zu^?W-{OJyMw>7AvxEr(B`#tMH9CCSc1LKtUE)8iGlF(o3=B z%1q+QwZlX3MrSrm<4ZD%y{UH~{TZLhFWLK*`(0~#VO$vF;>cJwR>*$ssU63NICc}* zHJb#jfUVX)vVh4xO1b8~+E;O9XlO_pKM@Y7RYjMNk1{}2CA39ZSy{6%G!sfNE9;zu zJGOmE%aF5!YPV4=4p2Es8R`umOeRkoba}j2fl0mk_yt~NLuu->t@ZWU9n_r%!%kPu z!VfHjllI%JVix<-rD7$bn5v%kA`VB5&O3*=U_pRm%YpyE1QcySJ2?exo?bO^KE8G~ z&LkuDVzJEiyo@ay1UG(XyI}y7NuO(+C{<_rsh!I-;5F zoj;}S*I;CCXviFhZj5^*`3TJf_-WdHuo8vYk+L*!tjI`=5*;}?w61G$S`<}V9Dn=t z)!Qg?JgFXRGZWRuPeecjEmopX%CEF>KEQTCaHe#Qvs;iMupCn@*@D-0zSaKbZ8s+$ zRO`_h~qp=Z^>TN!ZPxKq@oWyXfFi?mi6szd3W~*APL46fA2ld zZ|U{JfA|`eDpg|Ti*1j>!X**qklNCTPN3vNy$5~=RSBz+D}LKn~zL}_(_a3 zigAn$qRd6ho$gv?&#^(+XA*X8V3sYus2GM2@!txoK1|8J{kM4b&{OY5suW2H4=z|LFUj6U1V&`g5!h&CH=7bS z-D=OKqRxG4ZE%Cy@*3!>r!U}&eLfd{ZKm&kTmZ(^O;T5u!;fN?*Ai%78OGfLKV6}t zk8ST2)zWCei#%`S{zB8oj_R8Tr#FwfQ3XrL8%^qAk@v=YsWCWIAuZsyLhsB?PoD1v zN2)H+HSFP=&S`DJZV=bQP6a|vu+4lTTMt8o{vuEYn~l7&b$RxcL)Ap)SYi2|QZ$43 zmoHyFJehCi6a(8=`NVqYygc*@Gdz?y`sCN2Kb{Q`*re1Q;v=!a3~1DMT_5Ct$p8`a zE|mu zHzh)41Oc7#PCNl4YT+F}wy^|Ke>z7_neNMyBKE3Nk{BhS%2*h ziaUn+doySIAB2sEmj{-WhV7cUb?cT3aN~flw6r}@1x9ztTwVK#b9dlqk!!uPvlBE# z$|x(7U^$rp^vEnOj!gE#x@l```LZiz`r9xehMf00az$zpQBj$rVfRj;HZq$!&@q{P zoaa96a$uH6vEvD89)V-R2z0Q-X^xVn2c{>R^H-+enqspM(aQubV5!-_)n9b6tXD4# z+KSv2^`q|Ea~BHq-#hzleu6dWoWBvRG#qnZ@c^d|MDUecsw8A%?^}&P627u%5)*fWbxwdhsM4a)N6f+Y(;z5W3$o=r92D*g!Jk;f7wA)&+Xpi1abgl z?N`EJQ`!F$uPC|-Z(@4(D#hgddF9hyRlK`g;^uO4o<4(@RI+lOz{+YGN<4_R2b$j` zKTdjW>v$$Fr*q@*#$X@bAQf#`mzT!ZzDKC-;sVQT>?c&RaLccbFL3z zcp1ICy86MS9*A$`>z3@hxN^!6`HpqIK@GTgZ1c^;8{yzdKwzJ*Z0FeLqSat zDYlayCO3y5wH0B4Nd;$&*ef_X-UpOeODn6+Xie&;aoxj%dt`=}+W+hyiZFd-@Q)je z_gLk@`Fl$mxNh*SiU+>zb&g5#;bnhJ(m`0(uJ=4l$`{9SJTHK0{J=|t{bjLT=-yY& zfB#-Ato^+guIpAQrAmCcn_ z`Ge~yCe+5gPSKRl=01`e78A-gKPwj7H^Anbsn5qOV{?fETVIsGiU4|edEvr<_x@i4 zR$kspK9ZfNWNw5&Lqh{g{sHrPuq~2+^b7h}1l^XEiY7}P;{4}k!&X=C+;&WF?`>ju zj8BVPlcAIOI^W(!QLjZ zW54-*(5}663OGk#(sy|uFM#;HbBztL2+bUdif(pmsD;-5Y;(G)4YMT9*H!pcv`3z8 z^5TF529k?rA;k&`rA)9VzQ860G?2c3Lp1l<_5U6(`_l!8+ItW-v7NQ&_h@2?%)365*h-c?TPJ|& z>b~+XCDbGku{Nj^auAWMzvf?Hz$&AmpWow%N3muZj>{VR0QQ-+pP=uNg19s*qY8$Z zyy{cDJB!Mt1|4HmPg*}E7X)wI5|A|!R(~S%lP!it?AELeAa=j}eFFsyyU!2hiakC{ z5+(q*nw~8_KAzL-3B{{V*}zd_Nm5Gk zly{6Cz!qSP!0i<9#QN#_7^!hOKKwZDTCRmk_b1k~ynZ{I1AnN=;Zq3q0xa$NZ^61y zY@>7mxLym$b1m7Gy5>G%pTJ{9*j#Eu@1+mSiuUSAk4o0hIvZK5&V40b9Y|0-`Y;zy zqs@iJ0u-quvd>f2e1VB)gKdZNX%wv6b$xU5E!fBO_33@moiO(U&>+PXB0fDh2rein zC@$!Es`l}SpcL5gU!6G^r2wT6dwdm{ki`*;>E)!_$u&S)W7GWTCb&^!a1(aN>FaMi zST~7tF-h5MKVHkZe!eDj!6^tO93ktf$pLEBkyOmvQHl&Tz?+<$?AVig`%h3`fBtuG zV%_49@QV{=MJ|%mUyT`|mA|P&@e4mW_g$BGWG8#*;+pK?JgYRvZQU=0LS9(&X?7C=zE~QeA_BM+Ks%G37vj%4Y z!KXYwnS?fePuIWXJQh!&iqgv8E_a!@>gQvo-8sL1Ibv4|$IzoUMQAA_np*{#$03PM#O`U-*ug_AEKwjx2bJVS5SM3X^R9q{EO7SVD)Ir~ zON8Qi;*muNkavZMC2NFJ zjKE8aIjN~ehBu1fm(~X*;FSYErpwaJ3Gm8?vNT}s(eJclg}Af!0F<-c+!^2{M$r0q zWzNOdCXAB)wob#sLP#w8!}O+Fx%Hq_PWEll*f-GLkeq*Yiz%?a&j)9Tb!xa#wInH=$2oh;L z^Usx`_xW*{?v4)ZG*LhkzRSm_07B_f)20uA1dXk%H{i>Xl1!?os$Rc&lOnz+6xcA( zV|gFUeht9te*l~6-@nnEb(AlQls|*#$qBG|S!?UiUYRJuz(5R$KxBaVZ*Fe69`9S+ zNQ1{DPrey<)cZ9PpbV7xpB!%;_yYp|9i-65n1~3OWj4!m@Uil*qn6%9LfX?i$Q$)& zq<=jNh&;4(tmj_H=dJ77h*-R}{3#PNAW`dx@7;U@9I6{K9swm~L55e6iL=}wD>eUG zVnD_BQuJJ4Col@|vjKTLbHu(ga{xrVAjHUjmSlN$VRqTr%6{z#%!S3aID`;U;=*>( z{* zbMqlX?3d&ZAb+g*0{S+KhHr{ygYFAovyV?XO*cz7v_dReuBO+Dq@s70c34?`ZWl5J zQB~_AuEi!b-&D5mk|27s%AN{8By++X;*1Olgu91R5KO8R) z+1L?tkD)RGnkfEylAEpk^A5KfPyC$J7tcQ)%YJDRao{@KQBhV{b(&0JZk**Gsd2Ib zVbMbnhI_%u9{Z&mUt;43)w8LJsS#GpTE2~Ybk^N#i%a>z+t0M7A#4v)%tc+{I^YG_FNJ36Es0@z8(HC=;p6m!wT#?#(+3lev3@FbAN zlo-zOo_`reY+O8k@h{>#Z12--zz{uiWZ%k$CBy2uWc~5dtU5KK47ilcMnB9Ipbi1v zR-J!(DwY#|hK!kLI{o_4aF#PbOa*gJ2gr7|za{~1>up>dwd*vqaFN*kjfwPQ#M&WX zmsi@JtRO%4_4Qfoz+s@*#n(0NRdL-K}(zvK+?=l}qNFh8JEQhpg&bS-y-v$0DvP z0dL_xTqR~PJCd$Y7Y95@*>$|iqc6vxDpxg|GH~Sv+S&Nw8Q$-pw6rv=j|AmtpY(U{ z-VupLw}V(07;f10&*(K#3edL-iZeM+KT>nco$c>aQL2b&ZB^fG@aWn2aiFDDXRLiI z&@)xQQ*gNqlbnLO^qAFZ*ZrvHUNihUB%-;HYow}K)BrPTV4+vq;NHKB3VYD`Bf3ER9?tl~$ z>>7tK5@cTQiBv+%@Tr@{k1}4JOHLQo84ype?DAZOzxsH4-`{cMjgZIfC-eDpC3&+S zm4S2+4S!Px(D4Do13Itlw)Bnf%Rk%oNJnwVGCiGpJO?w05I!0N(?%E5`qC`-)gk~i zUq;5L{0GX;z6I!+EkL)g&hO@^pV>r^VF(UrqrJ<+lg+vP7VOXss>60mj*z9LWf0`w zXfqXOO8F@vm1W^~%vZ>N+DY0_7L2N{5vn+Xi!y*W8h{Z7AX$4?3k|(ix!7B@mlH#K zKSJ=3u(Kk?4+9VND0en%Iq zM9f)~&#?vMzBkU&d)v#s6Guef<{Y?tP%Y6Ii4^;`i6gsxxsy3;#STzBU;{^jDSs9l zQ$_SMiGq5{G}fe~q!wCz--b}trAhhG(eoPz5v`GE#9YU={~HrLcXL^KDuKc^HnUgf z^yf4-@J{AjDCR}sqFk4rHcStB2|^}U8j{%?2(z-1PzYovl48yP!Q}|FzXbrM`5s@n zf@=juydy;B1p-ZGcDqW?sJFC8vlXfnEKjfC|FLI{exp<(FA(whX!JAJZ%nWx6(`VP zj|aY3&+}O0=E5%`jkHIpZ(x$UwM`AG?~(bb4RsB`Ed(u&Md` znGog(P6%lp4KFf1`BhkRap2sktnll602I=>EpiHn?hw8m+UZY6L|!hY;zpP4ts}_- zCf0594)B_m&~H6;ukBf!QkdQW!U-55h!++Xw$CW`;X`xc8F8q6 zHx3p5$xZk@rX0L3b4!mXpPt&MtfT_Y;;kN-&9Zvlmv=-)9!H#YzM5_|Yt$i!!x6?c z_r}7!M_z?xWWf1Nd7e6Uv1YG3~OezfWZU1N$hV%B;`Dz1J*V8`&ls zqPWREiKRq-CbY&puOyxXsqXs|C5N0&Y|c9;=^Gk<31JZ$JJxEf^Me~TMh@Gxf5Pr+ zSW}Y*k2%xoL>PB5l-{d5Upu=&i3wYSgR08Xy{>#9fXZ~fvCX(@JnX*$GV4FcSe2;^ zz<#Vh>zk1;sh-QW@*y(PqH1DaeN{b5mjLT3$|oGbnO*OXbNBG^HY_&EmbIxS;k`s6bpte@Z7 z;`Lho)Q#5UNKC~GdexN99sCufzxSEd{-J9fMO?MjK+(w{rutF61%`}VA0p8!9&y6C ze>kGceV;Gjp30`G#Iv5WA=k{0IbW*Y5Vi%0o6{_De~6?2SYSK)!5ccRIHw!}v6eX6 zweELh?pi+HHCS2zYA=N78xjXPYsH&xb;sG?rEY6JSYWESY4=gYSSLv- zD2@WhKs=_=p_`(Mg7aHS{`~n9jFrM)5>VG<#*0*_s}?tZMpZib-ODU*%Ffkd#;#xB zHaUqAIV#HA<_I)Qx7WEY3A%l*HBeRE^0dF?D;euVvx@y@mPd3oR9%Gf5zY$SjxvOa zb|FL}Ag(R49TEOUmvBx@%mJI4+)bGnWI_6mjCb#+y$T?eoN5R*I5Od0cPFb@#6Q8Q z;JqI0U#Ybs!LuSgTGu1)o|c3}0aq@rwTks&5!dUtg`vW@VVu~`OeOByg$23Gjkgjr z%g()6A+xOsO0DKgIZ*og%wr!f2k!X$uEZZ%!!s?H`re_kV#2S?wA_7kX=~@Qv>kWx6L-26@8jaHC|T~U_b=|D>(ZvAZFjXPx+%;8;YKx z6r;)!Y5J-3`JwIxg~1SxO0&Lf#xuAefS=*upTG=a!;8y4);|7?Q(ibu4eyM5gUiN+ zGOXE3wqnVg*1tP6yC#d&m5I69D&U)dyeF0c1<(c`T_sqliE}W|Z5SXJH43>GSQ0Hf zezm*2N_$)yd}?N%x1`Y(?5}GHYK@fS&JZs~vkyn+d@uXr+t+l0Ae9gO@26}RSEO)* zad3dUz=c&XR}?nm6jii-b9T%%!95&4bE{zV-ZwQh72QWjS7jj1oGA}RH+hOKajf3D z99#I!09$DW_SmKCx8XZD686hwEG^v74VEiP`^0Rfq*~mJwNNOL9Z*QXHR^z1hSPK% zj*J0p=gMs5-l4?&kHWeIH-nEO4=p50BScUpvrX_T87yEnqG6WSw8( ze!)IS>d(4g=CcdQVJ?4l!j&(T&d&!kAZ9Arx)*zY)*dol1Mr5X-ix23@WtX80`Q$>Vtz z@*yfGQO)DxVdK6OsiO*>FkUDDRqv9o;Ku^QtlrG%>*)O3s&uf4x#GCa$oRgpQn=v? z#2q)9SQ=|;MhfrzxzJ34aN9=^uyIpuT#vGvgSb|9ue9c(!DE{LRGSU?_uQBnJ?KP`4)+NAvWNiKr4SdpFWp2=iVZv2`KSfIh z$wrcf(FJ|i)QH4xV($-VTx(95x(H*iS<;6-^u{kNZL7SOP&-ok83DD@(9q{-WI01( zC6+B@?sKK_?OaZX{@|*o@%Yi}KUEGIZe(73t9*21qLe{vzQ#Tab5Oc67$9UMa55jE{wor1{bD@av`H(WqQ z-xugCZD#u7Jve{1eF=9=28aO_I6|AL#F1Ed%Qh7*g?xb5MLB> zR$pU9p8@jX)0`*ZQ=JeFcM!W1&vg)YrY0u^?S^iHeyD}X8i(`E@iCE=HwQ~>5CdpD zeF|zGSaHV@gzSrYlAxP1B+1NM9qivgl>!jxXQno^URco4&&6$yjm11MH_x;*iLizz zn4^s zx+}Eu)Qr4#a3U@C!V@%T0a=uP#F$R(<%5=J7G@!0~(#c+))(fm!y5OAi zdAEe)ld$T8dWnLBIZlhty-@$L(pnhR>Pjla9$<3Mx>>8+(DoK9qHCF!#ar2oh z4XmTdViftgxL?_1+(w5-DYGq!4+D%>u(B5Rg+H)nQb##7yBFoi6Xia*HffO~@+{z@ z=frF34Vq;gr!Ni}o`E?oz-nVQHa5aU&yYWU(819g8WnzLP8VeB`P<$K{oR)o_Hj++ zSBzh?Q~9%+o0|uwRO}ma2;YJ^o~VEF3T+xTvGqO)vP@oar30?Wv|rubYBYF0V0OpQ z*cZZROTlNp1eW)1`*_wuyW~NPa%|6Y$M7m3{J)R@5`xi#}q!oeJqGHnuW zWG|Q{0o%d+Y|6!d6IQ+EwG}^@V7ry&$WWxOx%FzDBdVvwrI)pQxvcCeaeEaTQSgr7 zkiael6UK4uitRd{-}`NhxwBGugUxY#q=7D3soU($1w7NA=)1%*N&5(tC4(tSH9d;? zSxgr$92<18qPyky+I6 zTdKhT`pP~gCeSiH6ov@Giy?gKA5Q9O1h>i5UxNeYLPO|tUWrC?B4Nv&o`C94_P8x% z_7Amb2NMq88h(U8ayxjTch)qAbDv}?xk2(%iW4H~E3w$e;e%yRe*oF|@5-r??pZcZ=2!GCR5i5|nTU<5Ga>_{px{lri$@3e`ihYvl2mt$V=n{*jnR+ANyJL@9LfkP0>54E{__a00)MKp z+|!z800I2JQLO*NJC-9w=cW8VhOJnA{eNR$lYUv_`5zbH|KxL1|9@g)|8G)CYbO5x zfAsGEUbHKg%XNxncIKfVLr5?|`TzO9kK#~X{2_*F3nQbwWwgBGpcqBL-K?pt2Z-vcRh1Q?ec6k1OI0qyM2cU~FsMH==^hX>oW zpS9ORYexCrilUGk=!1X)!7l$h@tDB4p{;Z1@6dOSg-)3TCgGy1la|m$`U%^Oj1d0`&>hV%_XppRizt|TvNUT?Mq?SLU&hj=0lJ> z?Lb|`W%c5gmdzxa)pws=?;{L9XM@Yo;?tp#*59PCZ z=2^{zrz=HztH=P>(1m#ji?jh!C{_UC!K*&d@kB%gbbt0&)pgE&vq5zNNa^3GU0Yds z(ogkyoqkU&f{`zs!S^gpbl4EvVb#&uX_4&AZb*?PGy6+j9%!L&Uk-`Gz>K+I{1*JY zb^|+@y1iDR4vc-O8Gflus_|CMZhhnaw#N^XOMfvyXi#gng~N>?||i$0!1YE7-!k1_nDJfy~wLe78tRcW` zm!YAdjyI2-rtgk&)~;r0^JSdEE>9txh5v*5$V~r*opUb8L|^-pAmiOxy+vuLHi6wj zxO_{6NBHnsYeIE2)g{uX$fx=XywIG%wc?|oYI=zli zCOL*ZD#%~t3c(o?)N_hs#`W!9LLT#qVeUM}*JdPA4AAce)CzpK8o5VUaYGCgFLXLV zrZg>HplS!v)b?*MU2PMb+uh-uJro8ffP0dazp;HTfWDN2V`#!J4>IWbqoJX)?Q^L8 zzZSOlOgThc7&iv)&qlq(Z3!&QCsV>dG9#j!t(kK37x8pb+$e8u+;eEThejzXgBa#z z2HJ_9sAb5UCasG`6HTZ`&LInz^3g)!P%7EF2aCI>b*RZlx5eLx!;A~4{RH9L&l3n5 zjR5=xFb41wbnDA`BtCvs?Q`pAFSCV(h1Zl#-`C(3v104OkpI{ok?gI5qE7msG0iRG z#Xxh@b&eLh>XOFmu2VV&}NWwh>IKk8|du? zQ_e*|>-o!JpX2x&KnZvLuZFhIVNUff(|nER0GnlM(*sP=dgO=>PhA<&uI_7eCX!m0^!KwQdPD+BuI zOdud1E1D84bV(Y|t=vk=%30L@ zV#2^>VP`Ou5@g8u30{jQO>DIlX#*!igZ?~Mfp<}&8L_cJy@>*68_-H`;-}bH_ABMV zzLFlVOBj{0;fL(qGT8R9-9>D-E0B%DE)#8SZ5JR31BSQYP<6@PgL>+)=6<-+YbnLZ z$hb&SIGx;3n!D(B{qhv4B+3};$HH>*-b+R0g8`lz_*)q-2oKQE^k1Fa*J`v|TGLQT zq0g>u(K%+|*JI5>i`7x-JwX{eeRcB_Wpgfi6B6by^z zp~8fTRBcQ=e*vIEN~TOML8^prFcK0N8kQJH1jY92AR`+x!Ffm5Vp%oL3Q5qTLO`Lg zp8%TA?M6iYc^f2029kQW#OdVHXee~S4J81${wAz|M}qMN53=@&?t(>tD}ia~L4-v^ zz(#fS%{n^1%EMYlCLMgdhY4XV4JnW2?MtY_pG7Ild!8r=k!KeQT${7q!jmn3C~b@f z+b1Khyn0h}ntY2j76~OJ5d}RMp!bap@cI_U%vRc34e$E(hTLTZ0cyXiNI5AH4h(mf z#xiJ5z#21fgolTR9Zti*F+O7zVtO9EV&Q3lm(SAM{_lFu&JW;5fwP>?lp6##?E_|W zfL$^3UjrEdhGkY!thxQ6PBh)Cf$uC*xN{3k;2Bbs*ylIi3&1G@q5aD6@?5f7AWIIi z0w5Hr0AvzCQ=6u~K2d^7SjTJk^Pq=k+E=_jEy;dX)L={hFZe5u2K|2LKn@nX5%_m1 z2~VQln$=fA9*v{Z_ruc{7Oq>a-}V1U)vnpS_N#;v*4o{D@%iAu2 zV5LZRAZ}wPdI0(L@FDa{KF&6kU#qWzY-T+j;X~ci1emo7M;G&Dl-R=WY zHnnO6!wVkDBw&aQ1&6iPNqOstPK;l;M4PZKKN4fiJi&06vHh2S`12-oZ(U+> z8=Y|yN!^JaxKwy=xrY$O40yf!Sjuj}&Ik2uH5`J9EN4H;n_lH=&j*z#{45$u?X-7& zgVJZR0d@(5Q7Q>>0$3rO@+D--9JDKm0W#1Tvk63{nw#g8u+d64SW8}Z{9*v&w@>$O zv4@1Oq#C-oW(?+B!_fTqA5p04w1B?Be(T)ng4+`ue%ds7_W)KfB`S;oBUM zGeK}~q|TTFHEZYetsPve&R8>OY}TJXk@vpRv&QE?tYj`LxPA07W+hFlL(s96#xG%t z(&MsGQ@Ku?0^>`8MCm6+hGPW~HyQtgXZUcC2Xn^#y3l6S*q70sMP%s#p`-@GLHt22 z$Nl@y8s}K%KcX+G9G{AvZpoQb?9XL1ar`C+)^Cl@(#?72i{G>dH8^7+OBGt>)!#2en^CCDz2F-{b4~(9gsR(V z^|wFo?m3(lL z5aYNzGwSUSsD+BTxvi}uJ*0)f>_Jtu2B1*|+!R!Vo?}?Tz?uO6(*^nC0j&>Ld*t3t z*k|+3+03;uEGwgD@C!x>z+&NKeF88p?*$5|=V0zHwBV0g^X)8^rdjX}RBD7I9u(Ct zxS+U`A&PE9y{i{0u^E~;fPY9%=lv{+VJ;e~>m?v4|B^t4qZ3AeH4?awfJQSk?|fy> z$J@Q~7I$K8{_`dtRXaCsy_)LW^~y49Ntg^RHOOsD;zYE<@aJdLm_x;%oq7%ig+@nX zVy@l1W`pT9iPT|>Jx3CF)!J>S)+kB!qd;5c`=5}$L)pwU#8;XzXNC*DRCgma=24SP znO|qL#Ll}nY5{&@dE8exUPjrvp7i|hmd|yxM6bVM^cu^oNkTz)C$dQ4=}{ufVvr1)@EDGiX-|aJXkB(>ZRFNUQtm7 zPDx2~9==ZGDdOJfpugIB^=r_Begtc9QarBtggQww2c0%F181=WL5OWp4;y_li+Q8J zZRogotwa6w*3c*Y$H3!(ZiCKve%PW}M^$B|^~fG2ke>y5uei1DkJK0?BIp>&3`Lm{ zc4xsr?kHa^B}liJYHOb4H3Vd7J;c-MpbjFjlPf&21ugNQ;SCS3D-AsTrHq7xmunAY zY*0`dihEMzp|XC=Ut68!wf>3o_<(pX2C)X`x{ETA-NOtP2qCQ9&Yf!V5mlIiV{X6# zUF;&3{aOMr0>*VzLG#G!JBLjy$DSy}!BDZJFJK|f!4bHia`zGm~FNXXp2dR=a=W9Oh?Te%F`GpSD6C(x1Ht`Pmf63e9 zY)0pz~@)itu+yCt?~y^t>K=UC>KOO0dq@|46skZwzZMZlE+E16;J zAn02&^QCI}(Yhh>%Kydji5Z)$#BWz2YZe~yNv#(K#BLXUnwnH9O$}5tlRTzx%?u18 zfQVES<3h-vyWQ{ko$vRaSK7ulkjoe>^MK471K<0KH=}4aPa;460P>Rjw;Xn+MRAlv zIbSvxz;|V7a2w@6vKW~-7?CVwrTIR+W#T_gvRU`;68p~1j;H$FEWYmAsFjZ<#1{aI zD)P@=Mbn`hB88}|q9dvr9F7~54Wq$S?wqDI=eV-OQLUo~XIy36={+YQH}M})S0h4n`dxG%$_M5V8ats-JF!h7$~fKxm6Yk-L_ zoxHI|c#=O<&vO&<^+I{~9?Yd-s+JIx zyW$vUgNwLZ7T=fH{OxW+IOhKTlKk{H*xh%pjMdkjOj#Lm93}$3{?PkMa|FVPJ*P?7 z0>+I2Y!58ks~In@Zc)?h$%Dw@ysv(b@;vnXH|sr<_b`%+a{)H!cgVVc+EzgJRk0_p z1=uu3*T(!77p}yWXWTdgW{B3f*){n@avB@#@BrK}Er&oxZmv)zo%#37nD`R0eH&dk zc<1@8Hu>P`r;?+(h16%2JIRhJvgX&hf3)wkd`WKulXs0U8WKy@~ z0nJ)nVn~Sf)DLTkZJ$ zB#`bIlAD34_c*ZJ2Q`2K0owaO$@(c*5XmLg=SO4Y%@I!6h3HoH zUN$7IS5|-aqsLQs?%f5+YLO0)E6-a16x_h8Ge1CHYjK2ChPS}V*LsZAncApr!^*Uk zzS;kZSX%qjOp~Z~$92l5>84^#MkaNmit997?kNkRe|$JV()q`}Uv1_*`K4+G&i&S< zeQkDeW|@I^=^&)eY`9Dnqr8VIGxsfPOH&T7Y6T(QwO)`+{B?odBv0 zYI~VkU^@WvP#Msfto(KKkX(fBWADYqa%f-0%61@^OKqT8&0SBiN}c%CKmcrojq|qo zUF{~EzOnvG=C;UH(mrvt{12G~xot=kE2arF&VjOWQ(%9ip=~8HvJwKlxmj)`)Jp<>A4LZuH$({q; z-p40kukGb}{A-+aGw9Tu36s#6km5TodK)#MG3utl@@xt5ts83KeMPyBMtFBRmfl$q z*M;wve*IJOxRgF1)?pzMQx0n55>P|8q8B>L4aK&;2Q_f(xNES`213K)7-U9cf)Rp! zqW>N65J88Ak|1Y)P_^y3r(U``^y3tT0e?|m;&FT_GM-yw-1CRJ5p#R|;DF#`HECC( z%gt^7qmvR?P|O&ecNVEJh1YXm_@l8g3$PMz(r@*2haA!Tlwfa_P>*4MJVY@*5VQPz z1ed+vopk(aZyaZ<5Bjzj)Y=!#a>A;~S3lE>P$v5R4`SK=QEWt~hjWg4h2fpT;l0eb zA4NMTWm+t_j+Gdh$;GNJz&iFvT#Y^9tK9UMFUP?s`0@?#VROmo!cp;{asj?1(0Keg|dH* z^5ukyiJO^d4gY()T^7x8QChzkkb9(a4}>)w;c3f18ot@tU(YxFc2`l(ij#?Xljs;F zjb{+kt}1lz5#64u^nR?E8JhCXyB9gZ(8h)Br)f%J?gb5Nfu)a6b9@%Pc!WMHdC#UY zNCWe_GQ%-$_D>oZ7*KrrlyKMd)}9ALL24re4E#{wxUXUK3N2v9zVHosw7}x}gbH>( z+=y7LKr(&8f{4yGh&oBo(3}epw+4&98(DIqo#9mh|pE2=Mj-_F8)6ylRXnx#W z4q6H$A?>Vr$?tSlqxOCd0-Xh7#IGa5&xyKr(fJ2gpmyhl-43t_-{Y+yH7I4jPQz=j zW2m}2lzV`+?ooXoDt<-+YzJ$*==suqvoc6biD%AvNHAhcAxg?r+eC$!K7mV|(}|0{ zBD~RAhc!rU(L?euqZf4Ra0=h=S_ zz(yyCZtAlMv+fnR;;MV(8kUL+*!sib1LqU6JV^cNTJ*zTd3zBf_B)>1cT1G-rJ@@@(e$5;p6I;Qc>C|{geV&( z3W;T2U^Fh=Z~U|Gd3ztRTPUXgOhMQZOI7qkoPdm6 zN;(^)yN#3D>deKJ8542r>*^XJpkZ>nW|MMJ76omioe@ZY3J)3D4$UpWuZ0&uatr5s zbtdXVF;cDY2YW2D=oFWRG75vkI`Hk6+4TQ2vVF!mz=bm(4%r|0)UvUb5A;dA^NyL7 zc4-Z~wbORv^u()yVtkIz0f!JtT<^X^kLz;g=RNM(636t*Ct$xeKoqW@PSt$YOgeWq zf>ZnrDu(&r_1{{D7n+PlZ|k-Y!FPJ0Yx`A=Pe!1%Ifo}^806u+O6uIJEH{cl{a@d# zVPZP5gaf-W8}o^pKt&QrO*TxaTwjC_6$VB?N}cvDw{6roY{1sqbB5>Zgv@7;T^tYo z_Sbe>{Lq%OX*m%!lID?F=b&I;DHujgCZt?5?K&aFh|tEn_>BSzL=a*eGi*9&&3>7C z)Tev5^mcnEqNS-Du?h_y%&{V&B&ZK@D0O7U2q~WzjcMR+1mWvh8XA(9k&*Y&=yTMguL3vo82Fy0`WsaZ4LEMRM@skgam(|JR2Ng}ntU-&*W z0OTas2jERC!>ARVodx4|?QwfA7)%--7lU1Mm!DpL6G`e|dX~55RJc?pVEhpY*hk%&X;t5=QH@5Jl9xm>IQU(BM^Ru$ZL)Wc> zFsWgerDE7ki&E{^`B@FsTk1>gui#GPG4x{^8u0!mG#>{}axb+{VDA-_1yln9T?(Kf znrODmJ@62634}m7`5kl{MS6dxGr(n=1Ow^=mh&%*H?W-MUPS|CG(CuM*!(>Q zxhwESkm1PT{wgBYnb5j1UGzg-+ktGP-}{Rb$kRQGbd5@eM}G`&`hueveMICV>gloGX@rM*Uq~C)K7;7k)4^YyUdp9n{qsU?AtG;;q>L*fSAqE z=Q1%iBs|upAbnGtYaVHK*KtQFL(fPXeKtEm{L_Rdz=*+tzsg}LL0X#AWz!9} z8AKR9$IxzP4&+_d`T3fgrjFL^TACAIq*|I zR+g6y`g)3VByP}tCMlKHLM%1)Md%}cq~npV`$UxLM66BW-d|&{{z~)w>GyX}YEojJ z<8+|SO?)%uA-q0B(8U01&jb_c+t;{GV-hP*@+W;2>8bD~4rAmnWgnj^_#abVg&!eb zUqL@1i#?BV3hW%7lK+ z^e5@l5C-kRkqMP3&hU%52K1hjlg><$$BBb;et~W#Mz1~(_9$CZ zz(d?5_V>sL?PV-wSU?9aovNCAR=TZw2Cb9P06`Jug{EErDf*UDOhchK8v#xJ-OF3# zq9|Thk8AjYt6|e-FlfuyU>`0dq_vLtDM)KxZ&|@|3HqekUOPaE_g~y9mJYkrh>-v} zq5y?S?l)-9WLyT!=E14<7RO2|HlPTVSR9gs=eKq`N4%{tRw>prLrcdyO;e(8k(vl zTE`3^@}iRhFtyHBAfN$%C3A zn`OjsuUn)i9a=OI!IK!lyMmPX=!!A!m!;*Tc3a2JFUM$y#nDFVt!H7>-P4TVE$ash zAH6?EgofhZpr2<_KxfaCn&K)f)2Aee#8g34B-&sY^VXh~Wz5OlIo$dku^Esy9!8+^x58~j1%{%`>g#*fSxrMt4aAo? zLNlF_=tn@O;C_e_K}1A^rcT*|&rYhZaQb-JkH(S+e%o>P;oQQtCH`%uh(E}#Ep`j{ z^T-x?-jp`3G%W1mr~H$hd-Lt4Og{s)b@17gns+;{9cUSpJ@CIVy0w!5v2;z1hXeVBnK0K8rlxenn{HDDR9{BzL z;_a=&qKe*j;Z1i-h`+NrRLijWi6>ij;tW(x`MPDKVs=AYIZO(hUR5 ze2e#Y-uImEy3Y6S_m6w_-fM4%HP2d4-Ov3jsHd6e1RBGkCVg}~^ z%{>n8bqNKSQn`TfZ+*7Ta<n1<&@#CMbpwWc46!nu z4paPYJorev#%R2M6iS09NXTY*c_i}pmH&H;Rp2U8pBXYSE9seh#v-%B^4s zeWLSc=LoU#J2?dNVE>hBqZ5XTg4-3pW}~)gk>=j>KWM%+ywT;Wa)XBky}#wq?3iR< zf(c5ODGb^EelYf0NNK#@FJE)4pq#{KQ#6FfNR6CMgN_@ey(_umTDM0qM+Dy7LlI!E zYiYmnO6~GNp9N({B2fsD-P^eXHIsNXU z<;L>h^God;85q7~^RQfd8v*+2C!T1&BbJewEKH4(KId8>-pfWz`4-kLhGYeSq3d+9eHSbVnY0mt_B<-I7A`{c!x$X}*!}A-0i|S%(FR}mv9N@=Se^_BLD;)& z5CDqqM{Ye>C8aHeKYmPFaXL$FIA86IRD};=S$Ll!yf?k`zw-Z=?NxEiF=zGZTR1fH z+nLeFYe|@o_J`-!uFKtK@pQw2t+&WtjJRJ2X6tfS-Y*X*cmiTJ7@6`5LWd?(=c`-Q znp!1s&t9O-+f^fa-V=(AnuEN47UFbK$#jR)3lL_+^KlD!w_hed18#Bq!GuXcqZ?P@GS z6r?c4n$nya?A_jtzM8_?>$=$QLKvu|C|!g&;Ix=}%V`js{r=!|1NRUaGrJDJe(@|` zZ6g00pQjv*FaPM(osKT}n=j>v;H>7QHCFUS!yiKwiXbWuK@IK&T<*^aUo`l>*N^N& zJF`4H-Emj^6k(opbx}*=WC+fF9haViN9ej5z_)w59u(^$IY}=Xke7LRG-La>4Ze!x zZ2ANEI@u^nu>Vi8RO}`BdQHL)fCvQ221%j<1tux?+fa+WC~=$=Y9#0vHd~S482(*8 z*3v1~FU?}i%-@YlKU5PRcw9za>@@5em5RL0;LCgQ9UHzXqjVBVv z!}_1I|B#@zT6F*4Ab`qu456O?9`QdIMv>P4>stZe=Kr3>|GYoq;s1>c);a{Q!qlSo z>;2CSQ=shc|NW4kKwv`y7E1SF_8p4IX962Xv&dTE}6MwjS zXnz`)(ji8>B{rvN@qZAys_n8`DPOep^s3gT_+Hs!Pk@Epy+h#bD!O;WAZuufD^sd_ z@M?L8V6tr-w18@n4olXAL14zGr>Ff)2JTM*WfuaF4Li=UTbCPCH@CG~5Pu%+P?=o{ ze%r}=L3d@kEk?TAi+ZrWOWOcrD_iT~XE|&e_UAkd{g;yQhX7jkyQrCpjBwB7z~&sU z{i3|FGq3&TLzBMW~C+d-%`E~ z7(2(p+FGRcb8(GXL946RppSu@+w1R#3L|6UxuDH9iqptl24xbMi~hh!{fR*dVtsYL zEIjHJH>VA&n4>@Tn|JS2KtPL~gQF6V=#$%EYV{qnMtPnf`Z6Q>gWRPgfA1p3zxByTP}=n%BwI;2=M{H+hQ zTpgNkj#0+qC(I#Eq#^RbVOU%7Celd`H6kw~b(D%}n!?~Y%4+gnC5Zb5?$;9Tk@%;!34m#I^M%wC_fK7J(D78I0}ks(=d z1au?6`?6{$@{3V5lS(=L6nl#K$5MZ3OK;^YpKBLyQp@_7d+Ul4(MIHF=rMR+5(44t z%Ba2r1%&7Nm}fiE`s!vyI6!+w<_3@gs=YmUJP6M$E2Mxw;CN+oycpQZn?H(N$Vxky z{Od`(m}P}e+;4j6in5JQ(Lax%=z8O^W=*m1)hSh>Kp)6EwJcM34U_jCF01LWo%ZS6 zF1!=?jDm;ecQBpSrx^+(@`3y3bl7f$T;y{sh}6)^W$Csu%{cQ@Uv&@7lZy< zfE7{5Q8&5-702ZB5is|>^F{`D!B(?o4c(c&&@KuaZ==BWq=IM;wr|3&`;cppbFx72 zB(OPrUSmb4VASDYbUE(!6?@QFi&q_^905S$WOAz8$aooFWr0mp zeX8veGk1(|8nYJJ&G8vYS<9iOqGMwkplhz@piz#%dpdJiRt@QM6CIfP}Ry;#u&Q6rJt+-Y_{h4!*~e!Meu&*8@Ah^vk@TT zcD=dGimME^$*7nZ)#pzWT@$bwgKVv>2^So|uA82b@%r;jYOOy-eAN_tz@I;VRKdnQ zJu@Q=Kdu+xf6qy7jwQc7txhP=a_~Yh*aF4|C@}CLKt-oc9VlEyTnl=LoSdAvdUz=R z2l{6rk_LWl+GjUj0!^+`st;BU5ejf+RMgh011?6O62c$MlnqUcgn`6X^!S*9y1I{_ zACV#}Vw*E8XDlwk2o|h*COt5ifROumn(}1s2mj(){@Qd_bB3Y`zEn0?`8hc`O5sIJ z+<|DWvch>;b=TfrEhdmEU7 z9$y74V&@MuEUfL^nU;_^mqv>?im%?O)x(_EH?;B`IWN=D-#_YnI3@HtDdSJqM30U5 zE^=TZOt?Mr`D6sqw{z|GT9TNWD`v2AZ0rs>9hJ3DF=j~0RU~2IRsO&p31qA7&{~;P z+D5;(mU2bg^`yq?kDM#7N^1LlZ2htZHz`9t+^j@b)51@=kW+rCt4#0Rqz3O;{O7{T`-L@|%$2 z%K=1kw#csfu}j3KOq>t+X4k;#;M562(wmFc!la*O4ZP5e*2?i4RoGnGnN<^J>u~I; zw|%(-2wWwVsYtS05rcW^92^|V1(e%G^3XdbDQbZIQkdSI+`S<|LJ!@bqcaL?d9ogz z14Ac)ej-bt?<;6E3=pUcz@X1Ww1!?j&ydBu4n*Toh=}ZX19cc;i$Pz>I4x}-l-K`K zdSzp8n7TKK9X#0D%FQPui2FJ(G?d>A0fq5kIiJ4LI2IfmXA>1A9XFnu)h>uV-pn*J zFDX{m(h|p~aC^Tjo9(oJbUt@ zVGe>3u7DtHi||Gxq|VQ>vP9YIwWibUG6Ju6qoNxC9qy*9aQ3i!Luvb(H$h z3wldQ$31hwDkcPmGId2dAFo{cdKrw)RZ_}e?M)$PYG{7FP$eXDrG{7ayi8AxtM|DH zSriBlom5$;NKHA>$IgUNF+Q@>9=3_7Kj_E&L%HNUDb%qOu?+k9H&&C+fr!lY+r1G6 ztk`?C^}+r*t*mL{K>eKe=Lj~+23m;fw+EitC(*C8jd#(6;>)zn!5OQoV?Z5z#H=e; zwb*C@cX`L&PrdiT5nc*+GAJ{lDvHAj zlE!wk(J(k0pSIpPom%QXg<-HkH}bSPox{!A}sY5iHk!-n;>+}Wp!>qZ3+)vitlbY(#O8PNsRwTBvh7t0 z?@`qlLCNJQiK3pnKZa&p1CEQ7Kv5_#IHRxZ%9qgREe{BncaabAN1^cshxu#<^O=0zVO*IQ&5~-w zUvuG$*2sm;O_Gt>vwG*0$q4C7n{&r&A`fjD^cxU7e=#WN$x@M}?UeHJ%vAdX(>{^1 z|MK5l8b$;~0fFZ2U}e#B|suYQz1P2X!mt*{3dgUK;gwbeo09~Lem%K z-DKO|qxwr@}uVuX+<0AAvT0$7p(k6p0v$w$NYrBDK^hf6gZ89Kx zTOWrRWwEYn_Dy>d`f&tSPtvM!V4AA7sbymS+JjQ+jobYlkYsgr+r=ET@nwc} z7#XzakEX?Y#bAPo6Ew^pqUygBZa8x3di%u^F0ajq&dr(9#(R!*5c`Y}$oB+IcK;f7Z-ff0Fg)H!m}fDa*wFfWW7h|L4LBP~Qn zP|H185LEaJZk1B-Z#Pj8(e^a1hX0}GT^qhwOUINVN|_<^g|yeEe_K$eCsuAJa;e+( z&~Cs@p894n&wb9{AQ(Usu{eybL!e0umnRo;#w@y0U^#8w1Z2@E$dKb*=A&wK7RI$ zr$h{E&m;IjDdL{tY2@^PlzL&AF30Rk%VNw6gql;jMgeBg$uSd5D z00l8ZjLlD$Hb`256C@aQaNyp8z-4{Rd8fsoWr(+*g!N1qjm0WK5C1tAx5_Ld%n*RL zmHH?#YMSkC6F<3vpy`h=@Jza)0nZcx8ab}#e!cWWm%m2qKu*am?gF?cOEg`QZiJc% zd;zq|=1aiovj)o?w6vhwIXvEP1xm`=9O^-xS6!bOTa719P%Vkx}3Z7&zo}R>ayT3 zQ?F}WUv~Ws_@y*au)qOD@v`=>;;iBoLY|s3*So0#{Ai7tN)+82?1=#w| zn2hpcoZz`IOjW6=4RD6`NMQTLJ;-J!vK(3p@{_CA_;wW1p^n@oLdhaYUxFmbKIn4Ley2hA{UuV8s;D;31j(M zYoM;+^~gO9X@4^H%!f<1PTH(Tr(cgRu6y=8_|kSAlLj6j8(X`eg<1(x$ogXJIAh^o z?yBpV==(l1t`p^e?I(TWweL%1THONhK6_CIU$qFnP-Xp0=-*Gq`R6!)`{RXZZ3L;r z;%Sd2-G5^NGAE!il=yL{4)dg-5xrP2djn8?xfK_m>Y=?yy~YdNPIW?aBO6#27&@13TslF-(vJs0b1OdTvl^9LIL{`E`E?LN`(-+iG+ z9>H~t+T>cY9`SkfKVl-v7cbUHa=v%nR|Me)UOqm{EXp_&5AO6&pGYpke025ob04(5 zorKoWv+o}BNnO8wnS@#VuD`sxTG=TH& z8L@_W4BhqhpJoEz4J+;w5A|m_)jn!ueOjqFx3H-3#L5)wh2vvxW2Yulzi$}$hC3}t zC+fY>J~l5Ro_IRdtTw7{=h|dJ1fk*R6yxoMf&6D@ZNByA#E6Dbvx2ZXvkF{2SVn81 zleuP*HlG0T<~=w5E&7*!E`nv@S0QbvhtaGLc>^8G= ziem4<{nq!X+brwQb8Y)(g7FRqZ!&k`Lp|4)S(b1M1;OG{f^duWgxXpYlldSv=mM}$ z%TKwwzP0T3WYgGud7ySQ6RfidT3DP&mYb3>NZkrID}56)ckTwkIa~q)k}lKLd*ls^ zOO^cM`a{pZUY%7+1;l{mGf<@Kh}j5)_V&LKYdyfg>B5m9Op$F_e#U-c4lq*N8;{UW zM+8E#_C{mwB>q~xfH!G3B5%819&Tryx+oPpdi)CoPLdKLJ}dEFzWntn2?s>nW8dzn zJPF(z4fDj}7QQqoIH{WsP)$Iz4W43vS!&|kj2*{zBF-0zxX+(df=z9KK2^hP+<<@< z88C?hLhbU;ZDGMX7w83W$xPNDxX|vmi=$}Y$i0>2>fi1Kqh$pWdrx`)X=N!qeToBR zgRIH5eFhE?;BA9uUZ7!z#}S9XMhoX5lpe0%AU0%lElkhIargT9cZgV3nak}s|JA_w z-@qrE4fXZapVpG~yB^40qHQPhtj`=ufPNGKA3oULqB;58%Sv-`hu(Pfi$k1!x^D2 zK1JIF*CcP|Mw`0AslEdCc|fv#=QCaWNLB|Q(1P%HkJbTaI=F+=)j3T*}4VXO{ zg5nyvVh*#g?30b?W@EzO3m~e0nZ(Hy!v|Tz6j&T$I#ULkvEI1)`^cd_m=Kh~K0M6A zH_hK8QfrGW4-WJo(UJ;cze^|#@=P~ju8P!wjwt-wR!JZRvBr;kQtHew;P)(*f(*Le zSsP%}Y&{o8CENSB!2{!cq3N!LadMuM@aG5Z3Ulu_2bimHT#>i^{-Y?KSS}!wP-92p z7@kGT=|#4MMJXx3x)*-VHB8U4$Rbmv^NlvA^jM7ft`~bsv*9NPowz)J2VkyNckXzK z-8-47&~aGt;C1Q3g~SpZ3J`YVh#;AP`^vTc?o&{5RHQ|;3*UV^#jGJV3+)!a2iRX8OP}FQ zw)KPZZcAgp+PPTXwL@y^e+xus=YeAi!b!TLX_QZl-l3o7lhDQ+oP5cCkQWX%%>JOO z^M$`6|8QC|FCs1Cga}@S>R|Ci%3GB21_l!UgH@VX{BvE@z$VbXee=k^PFBO+)Nwta z*zF4S9PF(R4WHN#X0jb4xqSFF-%DBW$c?Y&L5rap2A+}W9RZU zXEo8`LUnuvu;4pe@TZY(RF-W)>i53?Io&t^(Qii5wr1Q1RVW+2^F-yee}qIAzO{2h z3Rw~`Ea=_Q>Ff5Dr%3`+{Sd` z2=a{LlYZ?!hj)zYhE6i*ok znHrv42tH(Xg;DNlN#-Pf#Sb+jR4OgUY8I(3EX2a&`zFaG!fHRx6q5bUc&vO(09&EsS|1T@e7V1*Ritn1fZ~@`~Zyq*ijV6kaT<-Wu8jiW4=Pmxp@&W|`_epnpR7|xm_Wu0~V z4wY~=ez{xZDcXv%YpVu{@b{lFrN=NtYWtcoVdf_cSGtTjmU1-}qk&k2zwi8a3jM|X zNU8Y}Pt=%7SnSWxKyj}LuERA9QMf9ny9UmD@m)H(eLK>#c|gjJxLftYfAgn);Zey2 za{I*EY8&ZeUVn+;T!l_;C#{DPFrJv516XhccN){cS~Fik7CU+>L_d27FMhqc)gs<$ z#n%|+c_v{>WX2O{3^cg$UBWL(A4;WkRyw2u0=5Q}4mvwx-Ugo1Zw?nyN)xLlFCzvK z#yL-b1=;J*%`!ENp!|xw$9RtSZB_0Dg#}k|jZht5dfD=peDuZWV$)rLT-d6-D9)Vo z%o`W&sz0wTEObd$vQXdZ$NW6h9xP@gBliaB51vujthY++2Drd zil5X`;R!+36$u>U4HxmyT3o~Ibb)hC`%n`UgyfdvmD5N z;kEeO$<>d=AdJ}jk!cfIkF{8 zA&SbYFiHRZIV`WNut`b%T{J4(OZ*r8_=&lRr3QxXG<4d~@vlRi$$+of2B)B4`Hc9N zBNy8S6Q>GvgT&c2^dOCDGtSBQJbu_(CU2Gx*W(TlUFAlyvPM z5^4WNUqn?Cdz?IDDz9gM^5GP*iZGVxK%CNHNc64Us`c#LRvhl3PBud$e)=s8)tbXh z>L=e#7JcV7Oz30|*s}XIrBlHk-QZsRYydXDZsGQ5w;_3t7OF$3T*aJPK`ms(#>r(t zHbQnc*Q3l}q8Wj(!^}PZOmx1|6-I2W-)&S{QTigRm>9Nl#^dBW8%18#N*<8syWmSwF0;SjPjOHWw9+SP0 zBh6$%zE4hF45}!*)GH#3V>Z&T$MEUlO$}exmUZh5Asn5Io!-Ci^#A$(Z{kdRhI!=D z7jj9LMq&VuNc@E>c+AYO8F&*o!4t2ti8t+7QcB2R`c185-x^wMY+0PrACed|=_rC1;9XG^o2_NO@_%%o;0Kh)6Wcmc?HHUk?2K%;$4kQ*^^*GHIw$|s zAqJ$c0}SFH%#872m&c7@3|jG@yi*_1eh=g8SB$X=m?dNn3UZ3R0<17ejecsC(~lkm zUZd0AvGiY?#^1i58_L__eh{UoU?7$QuG{TN^Y;M@9L6Xjme@TH@Aj%Y=V2uSI8 z4t*5x(r=X)%y>J<=la+VGuQF)QbN{bIR)rO;Y)k^A_{0qE3CUrn<~=v2B#;FXc!I@ zi?gb>Vl}QPbMT-S>zTT)@PGX|Bx62=aQmKspF|#&ejk`UN>#*rehb z)-aksz^YTYR1?lGxJ(XpeuN1Y&)ZYlH<@Z(WiBG$cR5AJHpXkZ>}OVnWaj@=BwVmR z)3>d=yTxY%5kQXL?|9fm^pxs0v@E|vMW^6hv4t{IW*5;;vQ{_8oKWuX^XBl_1`Q?2 zhi(Z}N7ec|Fm(^Po?ipY=(aarp^cXg)#CU3bVLG@jj|po0zjXitW9os4Bcp^vI#t> zv#T!Xs^5Om(w%Z#UoRl-eYoBQSMC`CI^RZf4`NHgS2-0czFfz#riZ?XfG zq@4bPtb`cM2SaYs^6!CY&rx`!WdHlT)W?G%z*Ch7s=)R6z!Yxx>oJ>aNm&_P4Ua0w zGRSJi@_O}V2+wYTvkWW0d%Q*!7BP{ON+)U<`jUNCxz1~lRn#=PJj*xza75B#!yHW* zZ2kh>op>Sn{EsTsGK9RO%48&X7Ez` z&i|@huvV_$NqvelOef=WuOk%9p}oTa#V7ebA_{!0siFB~wfe*I2)oTIRoD3oc98nK zpEho!5XCNty$aWkJIrze6v6-vd*t)GZCcVgfaTp!?g@4E2U7T)S90L96%F-hAvHcpEubAIf3CN)5ZjjsQJSAP6T zb*P%}n;>@QrAr>jdO_dSs#~l@EQjwI@YlG2r3xCL*~Yv-_0Q&a+7#y|8r>>*t6qmXTnNt|3Pdh^NDTv3N>o+RmYt$F}F8j4Rh^3e78ht@l}k^03drfjP`ysORnl-EuqJ&2jBkj`;nbmyRI6jq@g%FrFSag+2!nve zigh|b1Z-gtAe-I7yJwKMwuj0M&;K3pb3a;`C)=eoEhU9uWSs9S-<{{du>S@27sBw1 z`6pr)@q#`?9F7COiRU104Xmw6eIE*!sj{Tz)WE~xyY8R9EHH2LP^|v$uUXR9K<43P zCK;X;a-CD`Jrx>2`bT3h(G{w7|AR4Bi&JTwlx``nb9S7<6a}eogO+sagTGBwLm^D9 za(6tN^4%I9w=L3D01UUd6#W0dPZQkz555_6i2QH-^8e5H>HjyODmY`K`M*)XrmauS zkp1^pyhd8*aS6L=GD#h|QjgDUXFr^#R$rf6^!oKztEh0yKHN#hE@13ADh&KpL7ElB zhX2RkCj@nH^>fkGb|jq62KBHXRdsgoyIC)OkfhF%%^K+PQvLLAaE*2@HaZ%oDXMnZ z%S&(SV{rB0ZNRGP5JUGokG(QrpZ#6T+pPoP2Z{j)0ZM{1Gj!nnbk>*_pG~aHDIe7%&kp$NiXz#0c!)rg=80{iOLIP+C*q$$Z%X$>XKuu0hPcJD$q2lDk;o#tqZJx{N{tu^V3RDwZPgB#a zEQt_}U&VHHvCe!syK8G)(_g7#n^2GmX)1TJ7T(WAw!twHs@&J^>79&Px~Xg-65rrNo-Jng$J&*S7nK*Q~v4Bz^CALoVPC`99C>p;O^ zp4-3W`x)5ch`J)DZ;n@;|tX#V-vio&idFiiTr6Gga37n*PiWH@&>JxJl zvb*ZAsN=YNyZMZQm^PRBrHz~M#^$8kn7X<;XNtKlHC6Cq-KXLYKBo}Ed^y5=#hJj- ztm@zqp{7d60qlj{{cs$RMh6*l02l*67ya9pZ^872Mb5p+&3yubUn3(UE%qf5pBm_b zf`Y&Uk`*db(o&BFf2CA{7g<+k!E||Phwh0~%opYh?X43j>J8o!~xsUKA1i8`KU=x6ar% zjL3R;;{EE?R8?`k>#mhaSrZw{g7YJAxX#-eaqr0ImE_IU4RT2GWI4zAikhX#mmMqk z;M)V;MmMdo8lO^fR>(Ezm7+{W-%g?t3`$Q=58HnA>eV&q@YKui_c>zgm$FH3{&3j1 z(j<+4{rVpoA{orz^Zq`>#?5akj>5myK!fuDWzvn8S$;%F|Gz^LX%91YIKBj_ODlh{ zfAiqWzZ%xQwHQ__ku-b%IyTKJ{^K`(GKH^FF*UFJqA+w$iT~=Z=Uz~Pp2pno=6d@= z%YvxxEy4LE_=lxr^R}>}0f!|#u#^`6_v$ZqjKXD zG4#=Eic34H6)c^`I(OO;Mt(Dsdg45_IJyu6#u2T64I3uE(_MyJw12+@LBUVCw22V} zkzs_0Vlg8o$#ncYML{O`Hhtk*PDUMPtmoJ`*m24)sUswIfBnStr15;IqO5qBNf~-N z?$UD58BK|7ElC6y)g59>Jh0!KAX5&&mC}O;;aE zy8c|&z9cy`m&UkAe|G*8uk`J=!Q134DOc#Sdk9_AK9WcYtCM7V(7Ua6{Az ze7?RUv<{g30KIcK7%Z8P@cO$nGcYxSyMWENr(D?nxt2Gktqe*aQNF9| z#Ebj?Tsv3I4}id3pHhR%ZWZ22V9?GdF?#o!R>xP+p#3C*jV^D{{;m?W)X~P5vNEl@ zsM?+{ps=y2yU>G=d+^TYA#8pQXMOHLCT8#x7xg|s&;lf7k3X6K7uWNLwt_+n=JFi& zO@4B<{_FC^YksHlQLNk6fmO>+4Bu2VK~Gd6?;R7BkLnCqm)>lCSP&cz2jwMJJJa=G z2Xv&5x?frj{DJ87YpDDyfG`F?bINA6h_gm26?@KH6L9QEdu7xv(NP6}KHy1EU$Ak{ z`b~}MgGZ}~iyF@q3Oa+swM64S!#&7w>kFeGgyU5ysNJyv%<%0eByc z@;VC>xpKzr*~$pNTr?5OhXsO-&nMsZdCJ9doPa>x#S9WB*fjvIulH&~@QFuWvstqb z734ARG@vOiu?=3@A>9!K^h+apXt-^qGr9Qg4(t}K?{LsuS$p~aP$UcZ7L0pZD07V5W`qo zlEthC6uCkNeKP8;vpKL3>?^mGf1{rQe;cp<9xWy$K8kEohEMyham%0e_IAKHIH;I! zzUh5Ox;3^z$zMdiL41UqUee{2{DfQwvkQ8GFCJ|?1%28&H-_^80~FQGU!Rsso>->) znr~v>&k2B`y`N<0LA(ag1qv}7r3$eb0aMKH^XJbBHnT429SeL;$}Wdl)L^}U{*v=@ zy|6DUs(UP}6uXw_0%1K8#PBv_jM@R^Z6MLsspa|EI4!Hyr$UIZSQZXr!X+TI)Qr@C z>0I_fPqZs&JWm)D>HC9Z)ZYDCfUkE>Mm1CCGUXS(R7XD#3CV~OIm7DH_LAAv36)o@$4uIKb7(4vH)(S8f)FC`z)U()`F;I$OW(V?2TcB%HRf!N0uu(%iOeuXWwkTS~_@u*Br?9@(yNN-QK^$DG8fV zvQU?Iy%#e*y5Xrrc&C|e4v6w?qR@h7t$fG)^5G2tG!<{ka!wQpqp1!52UXZd`xrJd zot>XQCez9vcGK-IazSY@2LU8m1jdT2l42}ycyviVGxK%hw8<8glgz7w+t=nzV^>zv ze`5hwqUkNsaAhojAkxQz+ME~(hyGfD{hF96z^cgr+jjxntgz`eXGc>*!=UdT43P3>&Jods@=~DrGvyzWdqq3H}v~{+f!zaz3+z`T44NeWg_R8)f(tALd56286yve+(-_52W?@SuQ4PEZ7=t(-y%s8WxOLs9R%VVkW?XzJ1fe zfxxF$w|*(zBm;JE`+Ah@-6!wmv$r9?EKIPJCxaZmQ8hhK_X;tEMs@wFz@9XHUZmFd zi)NsxiBj6{owXt~>g_hdzP3y>GP<7=2}HiGz+?fe53r{f6c^Kc<&1waN0*Ee$$^O+ zJ_#33O40kx$)jVY&%=bUHRFYvclnNOzO6rtEU&>H`}8-T4<&I6t+PyOi8|dCymS&` zuqKgn!6geNi>PrRahv*_3xJzlnX(;k`Z3S7Sr#YG1?SEM7pb;)7Ow^ zfo0j*EsK{1Rwx{|vwzFWVId*dpPUjyP%3iyKp_I<_U;`iXx!bKAyaEg$Tcf4TU*?o zQz#EDNC7rzk>00|-;}@5(5Sti;}RozL<8d@V_LDD%X&}Pa$295__V<*b?VOF&CGL` z``#BIF19FsxqEOp{B}qb!fdxcyG)gLl_cw-7gVa=#~yk}1qAiKlsP?pWOwCK0{;A* zn3#@ZRonDC$k|T=ofDZT$yhLS&eBO+MnImg*hn}|Zypr>I8WX9F7?+j`~5ljbV@BR zQM-TJ3TqvBlS+n@@Wr46MmKZh>51`~>GYOYU=wgzavTha*8{!-iy}@=-kcD*vo9I7 z`aNL9>F}?=TU?hS8?OJ>{<)H#yFu~3^su*!FI`actgDN!zIdSHJA64{$2=gM!7?XnDBQeX@72Rr_K^G)Vs%%UpEUP~Y6nSeYM#g<7( zXEYu6KTP0hU&m0%@%2T`?_y6M+C0{7y=ZOS^#t z^-!TsaeDuSTK%f|pG16fvst%{2dNa7wnE-ui|OW@-bUS|5A-=dbz^|tV!isM&2*Cp zpiR;fx#GQ783F>EZjVzi%K_s{jgW;q&9`vCUX+koPR%_~xLtN8eEv&g3AF&Pf#m~S zKjgFyne=u@H1Gj~93GB-14%8Rc~Fs&vE#Awn>JcO=K(P>aacV|r-wXfz&kqn442wn zF>d(RulpYc4sAC8n8=>cpTosD<*h`YTTLGVqGS7fd@eW|@OkkNzWt^t9kjGMT747N zcl_hUw2TS(sFF9x3T`mTU{+p)o?UJdO7$Z%J<+#F@!0~BzaKPmbR?gNh9xfr8ptkx z#D561W2$`M51khU!y7_@C{LgtA^Tgz0ycP`j|aRNecqIpMz(31V%=|-MO{K+h_>hp z@mPa;I|66R#+YaE!g_Dr^Zd@G+W6BC!fyYq zvgy_X)v?Efyzyh2&0gML(6e57UMh%Zr@{NHkXQ#80kqY=hw7{?;aCE|>!G0AqX2LO z+J`rSRlB`IQ>*R_*amw2U67o2Nk{cE`YsXkdh#y=uBJugDFa@;$wdoZSv7^DhXluP z*5xssS8NiC^0jJ27_9k3yOf3LSQrGYd0hr;XRgFuc%iNx$&ViyEeE;sDj8qDRvbu4 zr`mC84u~;ldTY|qsodnNK|%nER{0D*hB=|$-yg^-O$JguDEQ~k zI{?jW%G&^I&%l!FsW4Jxn zesTo>rZU8gzTbEX0*5rsb+YES=-bLxSvhi8jr z0!>t&p9M1`spr?Sl9cD@fWDwZi3R`;B}!i=EH}AK(413x=uX$ znM@TwOJXSCHCcJ6>y!0!Oz$8q?mYc!?i%Kvx&dVo;;ixttbqpn(wFpEh+v!W!a60r z0QCLGco<_T%nQn*8=?Vv#L|tvx+)NMTLj6l+@L0C7Xdy#*HsA?VlooAa`RTj0%d~4 z5a8W?5Ap;?HXA#eZ*7O7Ks^^5L((lqanQOXJ5980W_&dF5p=t}ZKn|3FK&)=Z~-?y z@}@YQ%Pp-91$H@*i103!KwJo>@HPj)ZVf5+^Dp2h>m1h$U`h_H_Ks1`h>)hEALQDu zLqvqkFS_~4lB&mGVtz;bC&8SNELw}eA5g?$_`&d@*w4P<-#l1S?*p&|CL@4jSy6Dr zEaq1=KpsqCUub9Q)ZTY9%gs|`KX3J)#BbJGLN?DMAl0GMle|GO_;M_P0nI|z=U()9 zxhN1~s=Ifa6ogqGvyj_&|9$=x$!159D|^P=wY z??FEvI?hvQaA^I;yP->n7yN0MIoH-Q>DaJ;FJd2cyv)z~DP@45c@61){B8M>NYNRx z-fMFC!))pqzA*agtkZYq8JfsIGY03FN$BkOf_q{|F!X^38F&^-9dm2x$Yd0~ShXsu zQ24HDYC^+1Z6xPsYQs_E`WV;jEE2lj-L1-fMB4XZaI1yeX<5@j)S%k4bqqYvMVwr4 zr`3eFz0q=A^k13)-!ik%^7t1vMc;=Y6{^touGwrRLDl{jHr+73H{+M$26U% zRaZU8!gAtlI?1g3;_s%K(2UR5B%nXf#Pzy74x0^&4fx!$(Xse#gNKG{5jdDyBFtERr}9WOXL_tSEVX4yEmHa90+J!fiq zbp=jVrpEs4J-r+1ggQC|W@+VA>m8VC&ylI&6I2_O;bagHA&8^ zOpu!%+tVzm_>jEaW2a+>y>NE@Yr5=6O~@IYw2Xla#m9V*i*@V6ttYcy0V*^sE!)pK zem;Yxjkss%Rh%?@OHA;eM`88e;F$Hg@$T-sL`r)_;B?<5zx#QyVK;=-r2RcpH5~GW zZ_Lu~#H17LHuw}hx6l!V-t(-nzc^GGxy6%NZzg? z88^Ls;GW`!YS_5sLm&P-xZr3`SQy7+M8$z>nl8S_NNU!Flp6ni@p!Tt%4-@&P*{hg z$<{?yPA=ou_Kki}@;o{k3)to>^(EI9c6PPrq9c1^BvtP_1%QG7{7KxD!1w-@mMb=> z79Es&!5FIROf2P0`!c*fPi~J%Mv%GP*Mu+I+pC=oXu?(2qZHQ;n%Z*f@pyZkHJ^s`KK;5)UP}{XK;%9eXx0W@QCS>GZl&a z>6K9IyXUxz**-z%x%8)^Xo$nrIl%*tzd-hP=5CW+i31wM|DyFv1~2E0y6hfE`aCCt zt@tcoljP!?sLhV+b*pKm{hFR!33(b87)$2R%_9k$Y@m!tW<(u@hi0v_As?7yI!a7f7Z|)Rfz1U zR5bnEMM@#d-WDgKADuM!oi)sdM{RiXivHR-#pS4uPaK7~T)Lv?w;052P`h;jNo`cOcC3?%yM z=i6JNf1aGY|1@156e5C_gY+Hl<(G7|#lr;>i#7h*(zUOCo7?+?Wz?QAeHCq=Jw9~# zKvOdLEO^WEKohnC&)U;Z3EQ zvA$-j3*+3@G^<+Je;5MPnuo0;PsDeh7BeyxAG=eb4gOt$O}- ztE07@5&g96sVW?o`qb^|Ef%4NG^h5m$tc3*IkP`QUY;3yw|Hw^ciD_=xlVVuHhJm9 zzC|Dr*SpRib&b9fWaF)M|HqcCXI`dB9&(N2U!}r>1BDKG&g4)V?ojt_*84Sy2hApG z9<5FY>(K~}x40hbU%g)c1ZtjY{aZOjBhZPvXONoDJ!8Hyfx+qHfsFhb5iNmA zcT%y$99#wE6BQFRHE-X*cRSUs(Cw*hcpUXLtM%+NK8IBETNnh?ANV+9*D_I(QDUwA zK88s=JS@z_mLM8B9ox^e!r%D=Wd%v5MQ<2+297lvbQ8a{5DAP@$WG^z@Ca-6qBW z?anu6;S&w7z=B=dnz35GwcC&OfJ#1$iO~~Bktc7#tTqNNFYYR!yo!Fgo^&7^FHzp# zhwrca4qDJ&TGE>vnYr3k?wVUeyUoD@lan75EI%cz|BfETuPrPLuk$f5pym7Sk&1Rw z=RBKRdIX{5Wg`WvBF4A`X+3+-ZM6L4i_}{l9B0x0B6-faSr>2c`+^~2{D7N9DZ;&f zn+hD?<`u!PpokOlp)==5k9*gfpt6+}>WVnMa(@m=?wzs_vvI zs!iG}+dK#k3D(*B>uBQ416E6J)Ad)UqMJlYBSvG-5m1lEzpl=2@kojkEr~-rziL^{ z@vYfmR?lZl=?tRO2?L?AouP<3hkLwRo$}#d!dm8IUMkR26M9vUCRN$Am9s|uwHC7f zi+O!9_=?!jGP<*TLq(uaAJnZwmx|uc?CAOGX|{G2HoRnZURo6%XLxyoMMXDRu{+eT7#$e z=u5nLV})fzmYr(;c;hR)l5kN7>RMKnvVjH3!b<3oQ`E3z8$Tr{N(kV`duvbm*z~P; z&Uw~h#zsz0>3Z=*bDksXXM;LdFXhI#q!LzE9L!q%ID|8AWxgX49T_mUB~@lr<{1aK zzj3@1vZ;%os4BZd<)W+%rXZK0|vX z4k&tSHXW`SKSSqU`)QFC*OO1H8}n1Yjj_}TxIBt29lpEIU$_2YG*xpp>5VPSgN%7b zTOI9ftf-=LGSQBMEEy8s7n=n)#)&8=q1H& zg0oP2SYKPe0q*uee$h3N)LQiU;*W=7^t55vP;7}OkbQ3#exDt)MpKukhNbtV*2>`? zp@)}NcS&hFddJ(8VizmoP#f=>husGs8d%BT2~!OeAx^onI3r|jLGZ)6L~1oW^V|#a zJtil1ac^kdsd>evG+355*L|JK%Ss&8fKoV3G*c^B%i_u&S}|?Em!KT>G`qt+N7HXT zEPg`RW_IyUI#0HhjHuS8QXct3^!K2v{8TiNQ)o`I$&6w5-`4 zfETbCRixR)sK{OO2lx3lR|$^Bf57fO}dr(9F3SxMBb;C7LjnQ4Rd1Y)CGnRqe# zm0qarMeU8YE}RvFy1IJZgCgB)c{ni=dWY(ZyhRk+G2f=Pv!m=MFpCax-5-hr>WQvu zF~1->P|yQ|&{v!}nyj=z+K&I8#uvpWD#pC<{B6N8ws}DS<(}?+h%yySDp~AeiO1sD z6H@y8(Ywu|BEfkM2QvRHO5{x3ciixTC4`ltDT&RZt+l;G7G~(RVivG2bN2^HTRP6% z;-H^>I?1h1JsYM)F^{SgOh6GKI~%*Ww!fpJLaVc_290&qPNiWJ=lyu#q}N)W(Nyp1 z4{ujT^f{fzl0&UrM7~AY9g_xm*97uieJC&G6?{B1kcM?>R&BK6EQ=>8ggJ1+mO*B&}31l810_9*R0 zhrmN@E`NWZG5dlaSCRd?M;vVerR8e7dPL{QgHznNPNU_=Z@ey0todDPj3j2>vgzv( zc2kQ@jQ!HvPjTlKiP7I2$s`&_#1U2A$3(fAnV(L6j{U&C;}Fr3^A7#7)QKG%2Pfgc z<+?FjQEQ8FSJRFp3ReLQjT}P=~qOGo19-&xaSU;*yGQ zBorNsalsr>b?KEf_~hGvy7rDn@1Nr*4jVYEseX5oX1cg~oDB?x1wIgA099>m7G~w; zjVus@I!^zV2mxh)oUXSCAT?;ZY<5nObRt5+&97(JF&*l9dik4cYVe50#*>xvXXsYU zP;efmp4BSwCMeqkvkzLjMiS(C6T2jqA8s5%JWW3jmuvItTS|_G`+C-Ov-eqGaR>Xc zIi20t)iA(?wO7_edS8?bALCAwnV7cbiI9mLB@9K@Q|p9#hxVG6$#G53@|sNP=XTqf z;E^V%nRfEmCdWJP>6=5kpxJ+nrBI`BCi+6E-Jq`A*d}67^@8!@l@@DGW!639UfMJe zPzLw$sx>rvq3Gc7t)9C`ZTQtdk1y^t5wC~dJD>Tbw{NVh*d!W0s-f|Xn`xMH%gaZ% zB)y;|xwmN97uZvjUZb7*B@>>48w!C`=8@8!b%icus^M{1z9CT@UbAh&wj(uf-OtB@ z0GJ#ULgfqY+A00HR@p}5eHq0!cs80W6VV!+CU^9GI=PyD(Uj@`o7%If7qND;;}P<@ zhQ5p{qG(ofM^wlWv?&6(Ymwe1j7VGu-XHD;-U!NLR=hOp%-qTLwHo97ERr0(gDn;9 zW%OY;e0GcZ3pv1EQ}@0euYo8jnso4j);kw19QK*E^k1 znD-rK)h}9;3}_(9^IBLk9%KpKYF8+;OX|BI>S3q%I6-MVU%PKP()@~M?r&NilDT7U zY0n<^d>J}(AZd?N`3z4Y=1|?J?m;#D#APHb`urE!d@IFt&Fg|vQjHg&#cZrPH-N5a8`w=5-#tR1l3*XA7U9E z4eU&85J^H#&7g)~6t2}Qf3sKg1yN0{Dw;YC-}kof3{xGMfX=8q~(f-E{yk%tPJ`IS${qfipsbKA%kx-7p|V@Jw#@48S)(Bw`jGUZb?t zHOVm9T_sWhJ#VEiSN_^yXYmP(;Z)vmC~>pSM$}pzWLlG8W2fiHy!4{(?X8KaqxrX8&f-Ud#{c zY-EYkLv^{w(4@)vH0s46do8|P{O+ds@g|C`4iqThFbna*G8);=eNGOk`joTWneP-5 z5qufggg^=P9>m>*?|%SJ8 z1A0yhoWsnOh_N{o@44p>L&l5kXE^opVM*7ib9Rg)E~BR9Srerth&8dtl?6L zc2Dxfa6y;nf6iPKnX2azwEz6pY%?+|Fr1l~vrrOf*4vG^jMX;ssw&TQUQoW_Qx~fQ z!^Obykhm*XVfw_caHMgA#~vmEe9s{M0Bfh|*);tZ)XiPqOQup}`-FSH1TRB@i;D5SPmY7O(r>xMz<{pIqVGCr z*Kit^Mkk0L;&wj~tYD1l0yPY+DjvR|-#qXRlDH3wv@u5!gpl`Y!ydbDK2x|n$=cib zP#^Rq%p}Iw=}0Anbsg!J@Bv)#nHyR0ABwQ2EaN8R$UW+aPB=?LS7RPoG4}7w-WcuM zQtt6ynOmi#-={23w%9L-=krpdlbg!xH{9e2^iK%#s&Ra;W#@deu&uj*OJxEd5-N@9 zz_+6NIDgm*r7(I4;Ek*tb*)V!awg#(1fVB=OX;t`KIH`VYk7J+lwAE1`rhY%{Y1cC ztq;m&O(0-(9ZSPeT7AbXDo#}fLvPAx9%T%<5B1?KeF3)iGUMA8>b*@8dx85Q0mMi% z#q{FaT`E!6pcTE)i)hCRZ=}$`X{mq5f41Z3NkkF|C~Zzp{pAh2XF`9 zp5(7K>nUOoj9vR?%`m_ryhmS@$vqzcP-0zF-)qMBLq!PjE2(5>`XcbQcaLFF7UG`A zKpz0PKZaIbC|ZfCDUcW&FBKnrzh%S7yr~d;Pr~ydIt2jII5a%~&tMXivGY^tVFF(gQp?G9erVKLlMaJ-i!f8(<#O;jY-ug6Zd z@O7f6lB(L{zhA%pq$}6ZajGjP{(wwV*ubE}fF8m@9@63J*{hcd#_Aadxl-KH>J0j5 zovH0jW10_a!GXKte_8-Yg#J1>x*T?S$|qJqmPj`xi>l~q)R##i3Taz>C!enpGxPcP z*jf4t-yWH&2IJUa0>Q`py(Qkqu5D3j#j=gdA*xt*q_MqkYec$mHUs5Xw=n)eb%noE ziL*AAq1Q&Ljo1@G!`>RVr(itp{2(zCDJ-3u7~K;&>tA8rbAuVLYzq7ryw-Pb z+fbf^tg^L2vD<#W^c@kYQr*6V6mLZb8c7XO)JYvtZV&t6ezDt^V|Fv0CmET;OlAgI zzBp1F-*``Jm0r(Ln7*{i^s@Mk;2UocKOmHo9ivLP+ifuQZ#RQle1{KH*Z7qG9V2W0gg7L z$zIN;E%~zFuJQG?Fr-)uU*zx0?P*QlN&m)0zdbyNJ@#ix6tglIZyxwM4g-NC?XmWD zYpUZwa-BH&(&Fzd8tCbIRqiiec6RY#8GJ+=SOe`es{#Cx$x_eg`7(EP%2=JOs^aqH zs;;;8H+$G{yPF`yH;}QN=s#fX-?%mVlHK$Ss-g?gJvBJ4LP!e41d$Ek>Mrda4a{Aj zMm7Eo(bokNe(E|622e<~Hrp>Q*2y5CEA>KgInmeagC{2&16JCi*Hl6=YM1LdsBvo0 z{t^ElxMDwej~a<1`Bn~m^0qCKU_2w86)2WVzbmWvUXkzwH$>*MD?(Kzr>zOc9vl2T zo^Z`(8FX-I#5ZyhvHexZpC7&~+R?Dk=CVY3Zy{gJRjaPA=`sh>clXt=$U4|8*|-|1 zbsi}a+m)I8aug%ujOjgumtI<;j-+?_bpAk&5z9eV{ zf_}C1PaD>mN}V14{T0bJC|mg#sG0vxMj~uKDTX^YZ(#fR3NejG#1a$mfb}?|y!?Kd zdEcSC&!1m!pKx-@{$zacIe;=$zi8K(`zJ}79t@&?+>kD|T8v7Uhe`zG+g%(oit^6Y z_5@A_UAeW7VUYk|%@Tn3Rq&ah(-q!^p#aCuk zeso8F?jzlp4vP#?A3o%lZ_WJY_k&@$qND^iejhMZ2eV9cQ(IbpUG5SsiAmUyP{n*< z)-KCaFTE}(YK=2*v1A#SNZaTMT!$nRY|#@!mwwBP|C=d~QQeY*mQ7YM=-&6gSxT?n_7yW875QgPVNA4sTqV-UD`qBZGuj5e#m*RIU~SNJrUTi{-O#lP zz6!ZIbG`b6#s2Ts{Pzz1dq}>+iMd<<-?zZMBgI(u|NXY=O&qQN_qYA;Q(;D8o&W1> zDTes~ZX?|PKNoeJ#oGpuE^}qf`Z2N+{LRE*L&R)`Am%2o%dz)`JSK;V>TZTyU2?^K z!bh)bc8s4YsX+ga|8KtIjC{8vd@9WUf^ONLt&$=?%`MyU51+BT1K& zlQ%>D19j`?lZAo_>`pLp-3M>=(-b70;1wMAe~LZOzl?Z2tlju`O15L%wSuRRdY2Ck z#)ZENzb!3hwq}qw1>FvRI-}tMqxc@NBoSp-8Mao~$YT>Sa5Z2R|KqjPy1Z!f&a#3_5P-0@k3{^4Ur^24>N-E;jh;j4l@ zc5=u>@rH~|?Sa|%*q36KeG`J(iQ*=rQ>c@1sI$O3b+q6MY~Nu?GPfalFXNm?3X$V$ zqkmFGKd?ncMoyf9l1|>oLvk23d1ZN!*KI8=w9LbqwU-=cTapWbr;-ncbU1=hx5jl! z$5%^8Bo&uBrZ8rbn;Em(c2DVaQjAsfO@yuF+@$PBC198RL5Qcg;na1Z;9xoe>P94Nqd z%3YTQ;-7cWT}m$PhPbaFCwQo}tlm5E-mnm0y9+@Q!i z1oHaz>l`5Vfq*hxKQc2FNJ%5Z&%h}V6rXXI`xslSHJV3}I{r@BUiUVgd8*@>gXJql z4n$E7o*L<&YOCt|_eM$HT`)j=8QF-#6Y(HYAM>fg`U(=`zq-`V#r(xO9|(H9q?xbd zdaG2Plts1mPk|l}>YOsm*`n9c5_FTqV4`-P_sdxrTjKXTwrFi_P0Pz81OfLaTwL!X z-1cS*zOdF}KC~QuWHX1L^+kv3@EWp`KgF{FE;qo@SP;H>3_y_&GB5h8@ft%unm1wj z{OZF{TEv^ik0Jg`eX!%qC-}b<>(Y?<0WoVuJSoGNvL7U4k!9P7QG} z-Yy^$H1#=Qt~xl&l=Nt({3T57-?kApaj`M(Gl2HPB85OcjH6SmQA`r>m)O1wED~dn z(5AwF#>TK9mAmH;+8J@arHJ_3)(LuX$BI|bMX?x?KzbQ8nQp_kyh3mxBU$kn?sR=l z$l@??;zNi`?UA<9!~wR{ix)Q_KFpxL;%9jR0s@F{a4=zSk`PJA4|s;&+iMcbnc5FQ z5fOo^*)p=SxD=#Xg(MJAT=?rF0+5da%*N&!7tBA@+<3CwQeIhk+0KXUEjUZTPE1|7 zKKwgKW1G;K*l{%lw%6F5bvf27oXgGh(RR=IQ@~8)WTq$aPtfZ76NoLD^M7L{r=<;x zjJyZAQkJS&$Q?Zn#KLzE$4@^!7;((b&dxv}=xA-963-oRY894lkaLDcN%VC3{x*_w zcNgZnF&64~+-0Oe9dWE<7k)^IgG8;IDL~noB)}T>h#tq@F_*RnW9pzpKr66gAPbP+ zo+!adg4aq5?R@+@-1>#|?2QD^z6@XA+{zqf zA9>|@MTz$)dwzn4J)Gm|pjlyO%4qdwlVMmViFJIL^$+9rI}?(F5beJ@Tz3QJS5p+MQ!J=wiPGef*92AmY`R`J*Tl*H=!= z6rq*O_EBJsW*25rATlRUmfgL-ccSL`fUE5VPaZ)+>dDE8g^f+?Xs&vR&$VZAZOKdB zDmz-x*8VeCAo=8LGLo~PH`$|a`@=cBL)eHS(9fZu!kr1GGI5j z1C-(5fK$IEa4q2vCSm5{L25HPExp>*AANlxjt##loy_0*D|`dds)n{pwTNg$~Yl-RHL z06pISXg*)f2RXc8x+o|RJh+Vy8Y`8SmKyO>Yl{2uUP8`fQ$QQbV}ik@va$|v6E_~d z^7O2=;^{nTX=!=KO&R}}uxZKB-MxDA!pS0eWMt$oY*^cC8YbNs=+f(?uKV_TKDjd@ zo@L|26O;jA5)uM!+P00>yZ~|Tx;^0sDu{x&Ws1hjScj~(gaiZ_Sy=ElHZ}}=oSd9M zEv!~qC|ySY0qH9}y^t@YEXEz-v=b#J`1#FAr@w7>kt|_AX_qDGxcCCZ>W!NN2=v1Z z65#ehSI}DIoP=XF)fT}o$o?wAO>VnGTMgdi*(k`( z3vc;Zm8Ix5i@pP45EOl&Q1T7TwxD-ZUnryRh5Ve5Z+%&ZKAZDE%j9j5wrjRz;;(W& z_kcnF&+i0>KPlP^neJ+w|AFjEV;ZKA1*$SeQgas4%5kdlUG0%)0M`X-b_T7l8-4uj!IgsAfYv z^^i={Wj<+<*W5i4sW@;nsM#)crT`!Qsc@cEO)N`ByGAQh^&eOZFegumV>R%wa!RKh zKDcwgDN^=>oe5Fqk@$lL`37EG?LhntFr~%M`geXQYI?l;@n3dtRWC@QTuH3{HJx*i zM0A1!hVi>r7;Bn3r>ErhODJ+%Hs>adC6*TG_&1~9jfb{EJF=?7)Dj5tKcKq2GY{r( zg^45-iygt&3g;97W%d5$+!sasP#L_%PaP@#TSsUUNiMO|`>4Y}C>BIjL)78Nu%9f^ z>QcW!=l9uE zV}1*pGJtEu6V$yM2^`!y$=mGe8%MxqIP0P!Blp{B?B{E@3R`IG>-}0^oQ;i3z%Fv^ z{IgKDLHFtDBLMt@NX;Q&3AeA0H%9Pb7sptTLgrtpYlv!jbwf5bHq7L2ZGF+3B2I(* z@yrp8ug~qC%I|e*^XTzoMg|55SZH(d@}4Uz6Njj&EU&Ud0s;cKk5)SW+5*^QqsuTa zs5r(yANrEXOF7HL$%z+ohR@6UoWRgLzRg%#Uj8PZFIE-n_{2m`<*10Ijm>e6XJ~l% zOYi|;c{X+L-n|RbeT#KCdQEYC3EQkW$caFbaEJBisHErd6VR+u`ZLG3l$3B#;?P_% zuRtxdN_W9Q*x`8nwR!VBkU}`Eq9aPNOhLaw_WO1q&Qbw_z4hr0-bTDz)UDxeU_0pS z>oe2*qMoJvu7sGHUtW_`xo~c9(6_jl`xu11d(?DvD5mgAqMcOyaT5GJ3cNJvcV5ghbZu_oawiSlP8_z|S9`Js0lR z&C}eu)0D@Rl$dk?KI$Bp`;?wvq-}N;C@J*1yN4#^eX0jJNVW_L4t{Q-bK?RRkB{^T zKL<7#M+d>tg}?7pWDRF^h~ah*tFG2o!pzRVh70(qmP*d?B`DW&#)wJbQyXZSB!5Cs{p!9lxpJYq^;U~B+jaX`I=FbA!s zUZt`vVLWq|9OXnxf&wl9DJdw8!+uXjcel|Oiz7v9JPf9NM0$;t~}Vjqj?m78@^mNU*=}`4NJ_mpL~U|%5=`XzckXkJ9kkOQ_UeyRU7Ah@hIQSULN=skGfAa%7x%pLFd%M$+t&NRoJ9|Q^>FE%s=5K0ZJiE_N zHn5BwU+DwQQd%WM%;RV~exzi$1jooEojjksU16y}ONWD8_`&TLva-L8OSnmo%gSK# zU}H|GY+3MaGyd(KUolSh8*^w?>X@3UD)?of3xzoGIauj=ufaqHr%xC9OO&i{3qNX_ zv08M^kI`%peQ^7gY@U|;NLDq_m+bEz- z=4GHDlr-HyZYESiBjEJZ6%0*UMvK8+nX{>>sn;4BKWh<@K(Yk!?K9u{@ms0v8D`U- zun~-y82zKZI;Thc5FKZZn$p$7%v4Nm1(<>ODTUf|A8G!}Ug;|E)j37^axj=U;%^zg zZ9zd^+x|A+0EVBas2Fn)tmcyVhEx=$*)(z!9-N#E1~Xerz}CJ*?6S8kr`&_Q*5*?3 z*&)#nSbYdrj37;jlCAF4cxvuH>?-hN;(}aP zcj{eHp`2~QWtoAI#v@nAi30iApq^D!`P|SsOcFK<#>j0%)!DfH2ri#7J>>_sb2=ia- zYW1sBJ#*cg?OPOudQ%rC*?GUMayp>~cv@fJ$_i)_J5`BaT3OsIwWEwEPuOjHKWwfl z_vhBqH)?AC?H6uj+nOy!pMhu=plppD9M-){g_yu@_i`zpUX3pxBGQrdBOfaa4G?#{ zbLGW-h-+{6J~vI*ooSw)>yc8`B-A$FBeifJdnJzBUu|o zV6{=a(H{2!OsICE2=Py??l>1IPfW%pz8v7y?@y>hradsxt1X56EFUH3sMQN6ysWHu z(-Zp3rZj+<^lN8gKwwtP~`{0X6-@uCKM#p#%xgLoOeu@;u*TytbcN1ncZ*1e+1oH~6eY0({eL z(?#?z@z1a%>Vvl^?g&C12xxGD3jvnevf=WOlQUyn{V;dW8tf2t`y*W3lm!I^7UI_X z!`D83zai5U{-CwTx9I5B0>a9%keaK7Sl9YvYV-gau}`jUpYD_W;g(8Ht}`4p5VZ3V z>zYOkd@;krQE?QQZlePH?{r=o7iBN2&yC0aagCmup`du~f03S90ZQ)=Uw>t&VpLME*qw;~pz4PRzJTItY1$^5?|U@Q*7C@^^?!3*n35tZCXvu-7B>w;;EX23k)Y!4v&+@jY8SZXCXwxR=o zxKYg}1r59`tgU50r>)7UDRG1YPz?sG6j@tXG}U_?c^0UxvhT#PL0xwyKc%9t);b3U z@O__NsAiXqUm!rPnP`@Bfp?pX}YTJwXxwd@`x+rN1BUZ$FbDHQb5C3G<{tb)NSim z=CoI`JJFeO=s$n71ZPe|T|V1tYc+MJN;TOC)OtJ36@xsE~1>@$*^2(*&zXLJvO;fpI$chiw2IM2b`I`0JmNs^>MvVvy zOItb2gUznz^z3Xl9>9jhnr<_&BV*x1+rY(PMx z&L*iU5=Ke%M%`N_r4TDPQSO+pP!6@0r9_IDM5pQ+IYW{#T0u;h5bQ&}FxwKyZ4x7<+b7a?~(T@n; z_b2;-;RSwHdjx&Nhpj&+ig3VpR--Pq-on*uBrLaFM759#1NoUnFCrf)e-|a&`cu#% zM-L0gRnIQ%)~Cjwm5&4kC6bbOK5S~(%+^z3J_i#;v&g?@>zmEa?>DLVI$y1ZX2#h5G7+KMp7`<{x567D()bHh;f0QY&j zR^BTU3VGLc()H>mT~V~NeMA?>P66T`@BB&@JFJU^NrSyMM4A&PB~3AIH;v11?GiyW z7MEl{u$-p51E-*?t)ylg--2zyR;wjsSdNXz(WPBZ$$?TqTWMZNdCg^IN z3L}OTd-P~cQ&IpSw((F<^@C!O9Xn08s7l^Dk;VA~0g7CB9dl^~5y?*ZZ&b zd2GZF1gK?XG-=>aBu4q}_i^!Hyo9xP|LW-Jd{5Cu#_P3Fz!e|3@1J;`uc9|Q#M%Lx z!m3Kh=0Em9UX4I}PqB8bMka>Fi+A$JuSk`mP`%{rIFREXLRZL5QmYMis`$juVS6@G zj$QAFl~rUM=Gf!yY$K;`c6oi@L!vESJ`{~4rkli3A1OX<({@;&_t6*lwI%tBXk}vf z;h7_`n`FPcQ}rW-d%)>=rK5AR$+o@AtEKb|q9cCQWw;TC%AIH^y8Hb?>V47Qt1EAi zy$>ihH&_JW#q9ZdMuZqYZ78%) z6iMe?#%JV8pYjhyHKd9C-olW-Z=TJ@0Y;z)c*wZ1wYm^22bw03;zJiA+qc9CmUFqw zkl^6v_wVyx=a%~B`K&Z()859Hc&5jy7@}#ALnVKq@m8rMATZF2)_PL4-4+IG$Ro?W zPn3XISXkIbh^1^-c-$*u(=qc=(DSLs`zT#O`QyirV*5D>*G7StQk5VqGdi9$wS}Co!PsYne~daeTPfV(XVgRq44J=j?&_(a}Re z6himT;6sIn=qnKM!n(d#Xzk)XJy+Jlw>eb=?Bm9;f0KEUY0)zS?U0cV0GVboQqs}w z?uzH?kyQk+b5^&3y)-xnWj%T|w2A<`4(y1U5U86ol^aEkG>i1^Os_7rK zhHl;$8`)sYnRQ7svy+dA1rn4e)YnnX3ai7V*?*RTU0F~kk#)SgTxw!rFXKp`W=Cl% zM=E4711TBbY3DK^`QNdk=$f=3^Kbm*TU*=T9g$aIG62Xy#@79eM8NnX54uejcu=#) z9kIJjv>`LA-Ly4S6Q>vKPe_sP0V^Mdo`GJgUa0pEeES;juO71tM}h6^r-tZPN_!*C zbvO9QvoCU}flLxeHXE(`V*X0rW{-%AgCvj?og1`UWf_I!CwQSk^!qwhln*9$ zooawWg7F1Ckl38%TZyt;T3Y%U7GWGVX0?>i0==r|MdMz|Jxc^Iq?Nt>nT~r%;qc*0 zJ4E+_z{*fuY!$pb6VCQ0*Rt7@&oO75ZALq>Xw4IDf1(hVHP=J&`;A^>Hc!{(pp~?i z7WtNQeyED=NJ8%zpu;LB$TYpW^+*O~{Xp3E^qo!^*Kc6cK|w(P=4~LRA+a6#SrX~| z0e=088c3ca8(HZNn!9%w(r>wFdFQ^xx}5y5C3eaO0$OhX>EosRSqI#+iSE|!vz%P` z(&tn~z)bw2;9*p_2cRKXhkxWDBGb|s#1alH)=+%Da)?W!XLIHH0ULSwh1d`d`tn{r zxwg#{@sn7%2XS|NeS@3|>>J$n2wFbx907X|;#l|Y%}~robKW#IHh%56`3Qu!UfEu` z%^dkqz#zf~o}V--1Np;5^o9~}0=(u0hHh$Kf4MUOImPXTM1dH+ZIlQpXTc_9)#5Q;vUK%Y~{ zT|P#`E^8&x>>YJgFt?T7Uv+Qs|Nc6?9-33o*il>)Cu_NZhxY@74oMM>S``PWW87^f z(9w~T^`Q(2F83#M8O*e_w3N;kH>S{(p-to3J7-ELQc}_xo(I(FE$RI`G%czr+F~=* z#bArDvDyK;ztB6doGDY`simV@8uQ;EJ7ruka_T2vf-ubj$Y~h>nkxoiJf*`K zy*Jg%uwN_0%;5F>)zkIP1-d}6<9HEr=2^Q5p)dp)%;L%T!Jg_|ycen4_3mQr^dVaQ z_@gL0;#;T1466KcF%W6bJ}5k4KwDvi!WnF|ALJ}DWY7JM-aS@<>k>ocLxtv{;}ZG6 zvvmXl5XYHYW&5Z3YD*X*`;Cmu*SWh*;%H=vV^b0R%iOZNjn|j-`(<8q?Z2kXox2(% z*$b=vE0}#}*pDZQZJ)<~AhQlS6_=lm_r z?1_6-0CM@vLZtrgxB}L?giWVn^0o_pLZJq((pZu1Q~$?-%7~+e!)Y4TREdJOZMJ}> z2BichqTTYaW6r#ywf!Sm<;hAK9zT4D>7#0T8JQIBgcHA*F@CU#l@%J+jswxVPn3aN z|AtgC7fR^U@M~_~Ib3yadrah+!#-jpDz{p0x(XYMX+1cB5GvOdg*Y~Fh z6DM6uh3^iXDr^l%DVC3FtLIPIf5WgeLMA8rUqW$VIbOek@HSxF(1R)(qj(gzuB;AY z1&*KiCvr^+rib@P7vELr{>xf1!lW(ac35BV%%{X+RAU&uu8kny4%p@)5K~jrCN@2+ z>Z*Sd$i1*00kj*!G2{MVmYj1wk@U5%0!bZ(JWf9hh!rm)MG-~kd zvl!aG@q+)}J$2AU6pgiaeMTddaa9%i;N#q^%Pq{?7^``IR!y<|<{5gHA!@|9L@Ij( zQ+-{1DXQFCMS59fRb5+24z*u!8`6$AL_exwRMCFy5ec>lR`o1yQuA$gwA$o{qRTvQ zaG*2##tZEfPI98s0 z`JsV_0<)t3#}y*Dy9m5^Sef3myP^7vH%vH9|sK6D4PGHO{c(yTEJdPA(s z(JZ?J8jHWy*6z@i9vvIAJiO#e-K_+YBp0h9e)!XJo0G*bOZwheLA1-q@ZFJ9u*?p+ zrr4l1@MbWA01X0>TPX+og7c@_e@9k?E3U-vAkXYk?5f|lOACH&3u~*0xc;3Ju9NW^ z5dduC~VghlmV|Ln$Iq&tO zM8rHwx8`IGf$-$}j3kxoFki~i3+<}B_bhuk6-z(Y#>E1GFQ+5$NK;DiKZ!7*K=uS3 zfZz0@pYGZb`dw|8%nwAgm?i0C`e(OX%4$e5klOtk$n}1g1B}Vnj4svW?CktfFST0# z2)_B*D)niWY*up9Z1M8gl%TNm#g z{QMa&b>w(#^i0#QO)1qlE#>_US}(v;V0Kl2AlELQ70)-_+h{~z7X=n30}{fnBeg+L zjh8wMNFoAf?A&OIsi=B=D|9&YZ$06qBQV>-nq_{XA|1z6)HK%Yn<>0r9Yg=zgDT>u zlKC89z~7=Q2@&MTY@h6I@*BXs%uotZ%I`Rjxa_4F_P%xUq5muP^QV{8K36@_b_=Q$vr%1h*)pCudkH354My%{7mx<0ULvUIx-$&;W%>Lj9%TcyjA4m zHL_hqA|sD}QiuecC7`rEK2k8q(u<;^At!G?VS7SVtO)b$wO%pt59b6O~){sVQjo(**1n3+oRS2(5|UAaezb$ zk#S5=Gd-mvG6yu>n<*SKj{nIdrQMD@K_V55;v_wNJNv&(K!U?@i}T$FKQKBc9pJZP z6x>dwNKQoBBM@yNQp=)pqVl zj^pTjc|O)}n3uOGl-pFSl3$3CyR+fYGOR_MR*47(G3Xs{AGxA{z8ZF~1?4h&NEIR( z6e2q`NH>v8d)FD7^b8QgKEo8e;=_sZc&DXXHHEwsVkTBLHZMT6S4Bm|ueKFGEMAF% z6)HM98q=LCEG%rgoXgx@+lP%6xFKs1xz$cf&h=x#$`Ig-lQ2cI9H!*|lwHmDKHxNb za?70;=3(f*k7q#4D3f?+tmuE%iNk#h28FiDre6S6>=|Sv;)`g_avhfF#&oTKVG#Rk{Tr#HLejgxD+rTH?istJKMRwZP@$9B&;vrLrRie1sJ$r&8?i&ALGNsHO>xck`e?VPcIP0mR6E2N?9G9CP3IY zvp~WWskJov2AaFXwUl6dAc!Zn1fmx23h;Tc%CS3dfKh0+tFkU7EH6T+>7IQ&e1F2e zP(T>V0s_SnDq5Q%-8922d|EX#^yem6H{o2OjQ>^Ro;wa_WG4Ts)&Uau{*xdPLd^0n zK>}n;l#U+}QPGJD0rE2#Ab+4sUh~ON#6bL|XEYPfl}DrQCzJbUwSDauKovC{^2W7A zyg-Q$iK4rM2Vz&5#rCHp)8}VxC#vk}wZ_Ix7CyQ$bl>?3pKoE8}FbUnK;@V z&&!`P;Ly0v(?n|zm#%s<38WNaUEpwX?pC{N|L(peuMj!!R5Lg`+keqy_3rr_vZrlJ z1%z?gl@Dq*aw`aS)Q;kWmsn;(2twNaAKu-q40de<5_d!PH<``G)a-*If; zDN$~ZwXmr?^%?@#em=CkB*8lLIr*{3HSy|oUNIN8Skk01wStb(Gc>u`r_ zzbO7dkRfQALg3xmt@;O#N*-&8R;i{PcZ4%@BmTyhKAaC0M!mC~)1NBcY@2kg3gq+< zbQ&!X7>MBqn`^nw)Xp53W#zz}nxxFC!$k$0l(tqMzUJ4~UTb~Rw;@1s0b%CAsc^bv zUkQxm*Txu-h+`!5QFQ5_KVMD~nV+s0YDzrd{K6_Baqr!`cl1-P`sLLcupWuaioUyI z5p5u%6zJ{X2S$+Uo5i|Gkc>u@vx52$j3Doiz6QYMwQA?lud++CY`f;%1x`sjQLO8; zAIsm{U21s_rn#<*>LGDXV6`(AEdYmFF=KI}O{@uT{Wl2unyzkX*6WUlxMsZm^&&Rr zZlp*4i%%2n*xof~V@OxWL3dZXhcLuD>fP}ae ziar`eHJ|cIGW$_2V6GlgjE#)AN%Ivr)FsGJjKZjEw7U1DtC8VS+=M7-{3?s{5i9X} z5CsV0y&huF9ncd^)ET^N!LS>X3`LMaBF|qIn?$Z~gD4yDk}v_5XXJzX}l8 z|J3G3X6So|7c`X^+}tu_DmFT@Y3#CZQ`K_sO;0 zQn%LuHgyw3?=`VLu*{&NW!Oey=GvTnq~_^#XPzV?j7ac%LojY`Z>X?WyDFyyFP6B+ zM&*ydy6?OP{^4iHK=uQ-aXZLEjAN>XqVaJ+;O2s3l|*RWYs>s-bMg8%oEW+=kZIw$ zoE+1WClrE$%5OC^_^tJj6f$bj+GhLn91tn334-0K*~K51AcY155=0yef%y8JOfQ~4 zs??N!c}@_x8@^M7`8D92{c90#Utr-S0&LH#Rx&WJ?0M-NDu0*%?I)vk`4T+Od*|>V zc5iOXxgn!vsKp`ukqrEb!_+DE9zwTN>WNDdK#hkVciqoi*!mue1~-5trenuKl<%J{ zDf5y_v`R~&4^fwsToonfkBsvuQu(Nx_4LVh8v3Mq7<-OzJ-z-!q zM5EY{@AtT*6+^MOG_VbgmO!%CMkS5j>++c7^ls*q5;<4j9vK~SA||5ONTWyj@JKQm(G=iCe)G&Jz->kI6UB0uvE&O5vf zA3vBq6Y;ol!v1FEa?XoQ`P9b|I(ESNMRtmL>XbB&mn*BwA<Eoc6643$XDK)E7 zMZr-Vcim(LiM zQr+AIc$=B@P&vnak4KV?;H1kKAI^cS>a{){BgW{RGaD$Y=V38%{OD~Pm00?^Guh@$ zB3$|NEf<$A8Q6!bN#%B;K8}}VMNQ{$TDk}fRgwCaBT_YwPJNFzzr9}k@xTa!gf_hx zGxQ+|_~tvNo=;F-6AlpXQUsCF6obc4pO&8i59+QGd80P+5ia4V7m@IzEqF82m`9Hw z?!g5N)rWcd#~bD66z|x@Sw6qHz=Q>vqaP3Q!y_(Q3%X6WdN6&thbZ_%lQoRzZ31_T znZa}wwM}@^BRe$*hlY5;LbJq68Xx43o_}ziv+v>*aouMOr+?bHQeiVGA_FWdP40WO zL8MHwj=T%)SCa@h6rgW|f!E-j63?J;Vh`hezlLk58nD>|5L;n|B1`lp@=(MaaZT{3 z!+F7T?OYlN2?a&^hr6agc!A8TIFsv9pWa@!%l6zBK$jN4LpG;XQ!gU8Y#$!x=Txqx zDvm>gRu&6x-vm%1v#HWf%pCe6^4NBm`s(6b-Qy2*HTFuyHe;bcL%DTG5VoX3EYZe{ zu|GPpg8;G&0O@;{{^SG}-Wmp3tazQb&9|pq@FQ-t2TbL@YYKh48NKj|g#&V`SwO6& z3!}m7ZM{*^(+iTS4UHDv_}(i0v2HcRQ*Xxz&l`Ws`NNXG>uJN%7a4Ni$KAiDt_ix* z0&hxkYe;_BMDdO1y@$C|8BAldKEIaEG25PQt`zSkQQ42A3{Nw}lLI(Nilith?^C|g z^sOiq@&5eqODOcY!8ECpgJ!_KS!fab#=>C5NEY7Ln+HzWGk2u&(G-}O)Z7n zyiUSM`Gu#7$$=$ltTcY={a)jwA$|#k#9#;M1rl&a+uuA zaC}nj4#)Wd74|SC#EZ947NPk=2Hb%+TyH{<*9+Bma!_~M%6>>tVU^k%|!V~78 zBw|>nD>U*@aVyA;Sz)Rr@R!Y9YdmeS=u_uEXs^GgbH*RADX+>FD<+QDHo1N{cgiRl zp6411Fi^vxf(z>CE%$Brc}r!hy3G)W*WWI0(uazqyAq{-3tdffq-Wz3V3J?Mg7lmF z>hlq#Nw%Lplqp`ky1r_ouz5Q=JL=F}K$<5AMSxtqxBf86vXS&iiAR@w-s=LkV|ck@ zmHlg{u+&w6Ax3`$zBOA6mI{#rYNYAxx98;=s~$e_Upu!D*Vi)~+At{;V(Y>?|$k18w5i^Gxa!k*7jFAH-Au&nkC;3yD zzB#Oxixw2->b_Jiw7-u*gqO2x0X^q*d;G`!%Zr&1L9!$A!h}M@qjy)6%_b~wm7Qw% z%_A5f025sD-nx26{;NoG7|Eb8uXTLn&P?In>Uf)zTI?jak++<#UURecU*(=qsO%Nr})YObMJRxd#mSU zq`pv}h+P!Hj~y__@pfM8YV`NCYq3Iytyk~AU(hp_6D}Eo{_Uq*K5?P+Y*vID*7Y8T zwfGJ%Xu2LrmPaMf>CM zOxzG>a*=hSj7jcJ#-8}6<43-JP9Xf^P0XA+2V_4jh&5cAM}KN^GK&Uatld^wI6AzU zTgyX22xkxXoADuO90!ke1Lv=)ef85V$i9hAm~lnK`P{;W8yc*pmFIU?5W@!F!y4Bc zCJY{kq_(?YHZ`WYG4w0{M#fs)KDmR2)eU>Oo9yVEb6S6Ykv4y()kHm5@TGmg=|?&@ zaR_5Ub11qED!aQM^i>zXWwJg6&9yd^v6@4EyvF4D6=wJ`6K>@%Ua=^~f+TNOnooQN z50{zRX@qe~p*3?(7@8<8EZy&9FLnOBrXf0Ie& zy5&M%{SiQnUvcUkKtEHj21b!{e!iL#g47$%h-Jpx8Xj54OPlX4BDxD(OV$g%&<&g( z!IV*@<-(7yW^d6R!E2W*T=DV=8CVmYqKi|F5_FSaJ+F5uc8*v zi`%MulWTl!tN+FV=t6!}5Xheg|9zQ4PIC0xDynFniZ03jENA-pv|tUfBdMJ-??UdX zHvK6*!vAuynE9ZP=U4CsJ|qks&CHTJ?s4*mw2mo8=tj%$waL_nz#)vyEigDnw{Q~< zR-Ub>_0J}K9F7eM{Vi|Rr?9Dx%4|vg*4(r>O)Ri}-u!UkBHo>E`xFz6P{M;4%RL@D zqc}P{!gEG8e#F4#@7w+iBt^7Lhb3FA^kQD}!26Wj*X=QV8EI60&f9C`OQr^keB^w6 zNxuV$A?AL*0Jw%@t;#cFDnOfk5l=0wV5sSQ(-2MP^X96|@Igdym*RM(1M4#<1N@Ny z0{~(NfOPrlHw5y&#y3>r`2r5XIwR33+-_`cvp5JYkxtSh03Nyvz!k?|6B2IasdsgI zFkd}78fk08+uhwA_Bc5>@BvE;o7OqufWegDlbDcTQ7oDFrowYcL=rrCz32sPn5|2B z>g{xaS*>Hx%Np89GdW=%ei&8`T2fN-rIJ$1XqCryNBi|A{rB(2wzjqnWOVn~?l9)Z z+6#3@2w0vXL<5*1Nqi>R-c0;{1?fV22Ji7)wOzDap_+_#hTojZ5)%^>2}7#)`8iIg#YZwCJ&Y>k*<=6B z&DO1ZFGM4&$|3U$3}3+OcslKS4-N=EhlUo4zSh!^5@Wb(Czaa6ic49uxxb5D!asNZ zl_`>%b30Q6z9Fh8e)6PlU%H}?ij$}kS`^K|Ge;i#i zn>J}ahUols?ASgd_bq)Lwhy>?^me4X^FO!8U~>~&h5;c^@*v7f2%O`Kl>VtZ2N}IRcu|&eLi8fcl#0I^|^qRVvikAxK zmPbBSA-)sx{4mZ{%b6E|C)s)Ne*X>S)@9(M$>OZ%^Xq3Z2o0LYhR`_Ib@MP}agrFW zGs?;hd_|XaYpf!%i@MFSFD7-7(N=Hm^7J$QzWG=;MycNs>CU{T#dmu1g(#FfK9yF9 zq{h-kD=4u^j3YU&037~uqzA038;z00oXHuHm>z1`whI!7D3#zFE0N3mmp;X)}$JR zr)yl3u3k7e&dLXSnu91?w+S5hh4}7+PRHC8pSq8_@>#YSvOdKGU(kwACBMROJC})b z4MQ@Z^`;oaFxM@cwm*4bOb%v1eFYmQ!TSg zZiKLbAd-3sO_%GQ<((m5g4Qm@4(nUVP8?U@e`7IgPVwWqml&BRv+&!nXok9m!ENSB$ zos?xaZV^eHmu;C2fYkFz+&4%@8Gt~BfBSAI?`Z#4z-f4xEnXv%kXO_8XF3gRgTAaR z7^I0!olfG)_WL%Sv@3y9=$r5wh`Q(`yT8$wtdKcbc;h0}Zf$U96QO%n_$x_)e>P*n z>DlRrTu>*AR%FYK(wl6e1HPXPK58Z$#tl>SvnF0i4(TkpZOm`0=H`^|FWk zQ9$e(@!0wH<)I8exn3ilcS5ppb!;rFHMz_ydU7vbB4)Re+S(ckFrI1|g1dM>my6#r z^pZR?xOwGKleNIn>v3{)(5OA7olVer;{`5%6teB1(6C(5Q=wtJS16;`#;UtXI}L1u zh-S9+0x-IAP-fXexl)owzmKMVl&-@JOHztOgqWp~aBfnHY5u7mtp+ILD|q@xG-R zU1(_E0tC-_3`pAmSu$6YogUjGd*QzQ=d;x5ofBX5L-FoVe0 z@Oz@q#yXmzkn3TDo$4D)+8 zxo1@#djbB_nR= zY@O0C0)9AwnFx#kSvxzBocE8aj*c%O)t7;BHsfsdx9i}Z*BsdDX#*guN@Ek0A|+)O zAAkQ>L9o&o7(lL{J~e@pEYYudy?p=td17IkpeWni##*mxoNV_4OhJGxeW9x}jGQb; z&%>%$jqy8oZP@?bw!yaEPuGR$UJHT5q{#HQP*fyQp%0uzQ^S9RJeJxJP2w&>i{~{X z`j6*q6qM8qg;tc@$=UicB5FP~dhU6A<)Klt@-M>pj)fulgY376n$pQfp`A$jCLfCF z1%KKfBkyE2jAU==vhqg8iR??c<&zZq6=p&i*CiLre^#jQOS=}6pOoXNBfAU~;8N}W z=bIrBVu}{FIC%W0)%I(HA8rfS5iK&{%KH%2uCc(M5LuTS$M=eht7T!`nh&cvh;wmf z=}`{TIo7a^hTa4SV{$>!W=uP`x>vnLW0c%-a-(x2IQ+6tKHTFLCNuLQC)Uq1L3Td;tdjG!c*axETaozIyLnPK9_bUCkJ|cP(8`o|oWP$NeKYh()hbeXRkpTU^D<8HnoN z4ziDix)@%F?=>0!X$F@p8lQX(K*r}D*MkGd4;Bu$xK9KfRMkfhvtQ*JQ*L*aC(m2a zB!6ufouk8ypWodz{}gp`0#mhcM0G8eZ-@m;eI#Q$s)C8TtOKUPGzBAjDi2eRo=qPpjhV(^G@u}QvG*w zk#GkVx{8or81--47?;f^`!t$w@@D$ZquUg8QSxajI~3~<-R5FFt1uzve#a^r;%s{@s5_{kCz26bpj3$oY}Vu?oj=SvK78 zr|<|IXj&c?7Jr&p*cK2#_DflpFPbMOtmXY_03jm`SXeW@j4Wkx<9iGHKz_Q*op}gi zQDS6rMjitFiTn7zA7E9P8{DhI7NsSgpf(iZYicU@SHFZPWL>yf>~i%E4bl1Gp2!&) zMfYT6W(q6!%(RdWl~h!uca^?WdFm9`)zkBnrXq87chQ$=>B9t;p#WL&!STiset2kG zc4f6lluu$}V%kg2;p<`*S(w^o03!X^+4*>Y?RPk`PEOo+{etsq$i|T;Q@uxG!}=W95A*lR1u(6R3Aun(m`jjnn>H zre~?!Kkr_J{^qr|uIVR`5SzSdjUs+&WU)lS3lmSnBr?P^(-12UAg~LE;dTpjT=gd> zh&}X#wfz1>E$Gj~)cOaLM}3J#x*c`HaVO$4)P$(KyvhQZMQ(%86S= zWx?|?_pb&UGO|6L>6Hf)#t5L^ncqp4xu})6nZN2?y&*Gy`s=Far$hg|@GJX!a?(Uf z1u;~w_t;BbNll~TJTbatM@LqT(x%8%C6RV0O=0?N3F7E%vf@1iA(q{lg5jbYn_=B< zwaNWd$1y_zq)Omf{fju74x2mrPYcEJnQUbhO^Yj&4_JjB zXqnYVEzEjH-o5~qkyoQ>=T2seSt^uo-n@xR_=)pAj}qu@BAd}INrc|UnyAlzc!Ce) z79Rx8gT2Jd$1N(yBU>jx=A^OtaA#g~-XtNIeKhrjDCBTWM*fQ+_6|_na;wg<|H!(E zDq;SR>S;P104Zb)tXG4S`%K2j3;}|oe!k4~l%JTBQLwu^$=o>Gu(wkQjx4f3ms{ALk;vlMUW{+UUgm+*U1qR=?dJ#;)n=mmS6;Mx3lAL8;31$B zz6R_YI4Z%qjP*l9iKE^oT7>G|3mY3CG7-O|wDf011rEqtJ4}7LzwdZn)4{`ZV4Jp6 zrPUrnJo64!ittz|t z??#sEZwg{f>7q5Ye&`4_zp}|9GaLvpq=mmH&F@`@W2m?G15sUF18FeZBym9!M3 zqle78cf3$t)*A&cDrbv03Iab)fAB(vw%uQS*wodsg3I>2seUMyvXqXJYqlUqrf5Y_ zmYGpdszXNNLG~gOhC++RHyA!6&K0cBXfHP5(O)iw zJOtx-<*Ci!x>)y%z}S$k+a!@3FWt8muiHWV5g)zJ!P(UE+2QdsBQ+*Z5;gVS>xRH? zt^~~~#`aW(+w9Al-ZMn_8wrGMM zNmywEFQG>ubIML&VwaI4g`1n(u<_G%H_{5WVP8SIyd5}4A$=jWuTdiMp?DP*xcr5B zaan}vPor%=8+AB%kSDR{nZz%5p8<1<^U}_Pt_SGp=svHqGOSjPvS@?gi!fmI9C%+b zrd=Sz+@rw@_?U!*!~g;VNrJ-fP;pVDWoI|+7Qr!CjPb>bWLV*c*iyEIckbTB1wl4% zqEK$f>#vYvG$}wX#>$ps@AG{M*Q1WoefKT^=y|_O^;_-%iB$xSz9;dtc41{Dcv{C& z)E^8T3aVI<=68B}!6WQ>Os`t|#uZZAfTg{=6`PnL)5$mHimgcpxBv&n*c}{5Vy@sCGzimn(17(-}Yw$GA8?y^t4M zm4K2!>h12$YL(KgAmtxDTjS9%JH{;H&7*luGdJgG3j1L&J%ZkVEj^S5XY-Luv>^Q} zjn)N~K0-L|my@+A*GHn~G;I8%51FPQ^^n-_>KykNKMlOuBPZe09}-qjs$k&bPV4D` zKwhfg{Mev{^3Hj+*I2Ev2Ifq=Mju4bm<$x+}Y#X5ChZ81OC;aF`(z|C$85%!_8g4gq6%WIP_;|HnYrbD$S{S z8CGSnxA7Uh)den!Jjyn;eTls7kHGBA@$Frb z`|f+e&ywaImGHOiG=9kl;b2K#TATWcezY{AYCvI9|Gvxc?=XU2|0e>B@Oy0&!|?Y> zF^S*MmO^{a_G~Rt58RPQ5_|iiIVjAj{s5-jvcB`R=*gX39KH+tCKHR2l&9{atCwOu zvo}9qv`i)4)L!KZ?ofAU3kw&i8%|o#`=i@vg^$B4-DAox2=Vmr$U12Hg!{?<>Vc)) z;UY&f5LH*FPo;WOOYkfsgHw|XkYhk{<>I`}oNNZDiEb3Rr= zXy{!3i7NQ&MRs3x&-q%Jzt z^m=QzJ%o)4POcQHdn4X3k~WmcFs)L#)LR|K-kO$os)Klo$A&kPVV@;4r^pdQH^^K( z4A`Mdn1MSVY+sh-82a-)mu)#^>@#ATZt(m|YGgApZnT!3#|iO{_O3HvB(|xYF><6# z9)KlbUAm89*1yiYBz(^_03YYhnO+R%zUt9JvK})G5{h`>T-p0f|H6Fj zG~{VxOY6Ht7rm1hM!38rR<8t`d`eSzA?}?5iEPcs zu&&0QVI~j6voWa%redeX;$7Wcj1#hntVE_=>Z$uF2e9c=$4TH5Lyz%sS%{xyafQCPYyLdhpXnAkKI*xWnVOFwTVISl`m`^aU+gqHv z;RX(k0Z$jOpSt1(syXoR@I;#Ci+uqc2k^6S+VDp#2V^AO3rA~x4?x-=s-@Fma8Ap)YTPTCJme};L;bGz8#X$)C64|yS8$O0V=+KVwqc%d4*ea zg#!Hncf-v_`SOQSZ?)(Swy9wKr&GtT^y0bD&lkw?uh446*@GWl0!^&B>yKFnV1{+* z-jg+*`mPhG-4r3G{p@Fa6NG#7zU?0Kj&{%qo*;}f&h#87i7@V@VQqTj0iX6wj{AHx z4!g(tFDAk226XV9vdh|z3M8IzZ zqnka#c+tBjeXiyz)s~&#(MIKp`ls6d_Y#4Xzq@j%DIZ;C`0mzgG2-D4`8&fS!Vl%w z?x9vt`CHazx6KZBQ!kR2(R(W^1QvCo1a*>nY<&3T_qbKK#iU~kR4(5@IQn&wQ&qpc zTwRH|*H%P$s?j!;FFu8lq8Olc-tJfDH$HCWV-}^?dr47Pe?}}ennuMet>&RW z8FtBo<0W{#fY9Q+I~}}&(lc|$;@UeCD|c8^PVk}nL)aADtVkOnBBXxq)bKi-T57rB z(>kJ7q`gTismwGMpeY>V>MH0t*-5bZxVig&FPO2n<}X%nh*xZ{K?e`em6 ze(jsyu2gaMa0IcAlDG?Syn3&FAfi*l44f|M=DcqZU2rxZNK~#LQ9`=li48)lBRR`s zBS!Pl0`#ow+``pWO;_7o!*@bfSNar`OUCDXNb${f3eCOR{JYEUlk-i{pZm#eIXSE0 zyxp7h@V|Mgdcukvdjj3_=KKt`F+`nt4lh!mR!kF%yM;xYP4JQesCsMKyHXRWyQSby zNtCq@3T0!I&y$D7hw<}RKIdbE>($+(X)6{vbSTZu3+dPeI5un_ioJ+mwD-X;}lWr4qrju1-;olr`-%fh4Z*LYCu5? zu!-!ZY&-1igRO2p{FT5ivLR9P2`_Zs<7dvAz&WBuP8~UF#Jt6E@zM12)M94a9UhyY zRC@9HnL4|BHbRNXgS*Ym_kf%ZwVo6h_DBk*LWVc|F&a%M02U`~9h@r$8n)pdy6HMP z_UN6d@}`*?-8T-gM760x)(MMOhV9U^MSF<%(Fv;waq~&!H?-ns1$=?Am^7P39txO* zLa}0p|J$FQ(YCyo&#OISmVwRw@R|Q94Mc?-76apw25GnwXtz|=^zbV#pY(FK0y9*_ zwf-u-@GD-!PexTIDFn=PtM_^8Exf6yVi`sF=)=OC_KztRKl~Xi?($%+u!=v>HZw}( zx4n=!4D5SWm(k1_50Ov#)^%gbshDTykn()7W;sZ?OwH?59ysRf8B40UW0{(pj>hxd zslAt&@wcC)!<`@a|I`TF9b)iSJBB|!G?6TocF{$}zNl^7mh11Dbj!n|{jM3N_Y1+6 z0#spO*3v(e@%YeMt(h?3<-Yt2F}T*JWYWN~bXLsU*=6V@8o;0(a5{4^c4w}SY*A=! z|1mK{LJwD?o8QvU897Edf1t(<`Q?9%aYhmM8pe7$+m6!Dy0obWpWaA6D75ke{*BE| z?R8rRsdjHpzAIBW>rIgF1c#ej#iDL7gB+>nZ#Mh)f-J0Mg(@ik-2BwcO@iaWXcaK0 z1H)>umCZK~7ES4VgljdwzBW7u%LSBgdWPxSot_li8~5lOyN_IpuAEJ?vT`7UZ@J0F`J%jnt>^=5M)-|)}%WmU=Qr4i>RoPawsl6 zYU;dtbd`?&Q_(F2{1>1w13sGgL+twbvmsYV4C2opdA`@wme?`-(eFzhU4B=rYWV_( z?K#wVm<}IgV2ij~BpwSK4_E{6VGgHI^< z$4}o8dPE$P^QIp#yQ_QQWe6I>ahEPJJ&EF4pj0dsbgyk&YeY@aBWjry(1*Wt{ADL# zEGwZVpHSBZIT$xCrL}Ew3EX9W57^-Fe&q2Zi^bpy_mYuBd>^n&F@5P6xC}FXvsP^L zHai=e`57&HPf#R zZz0}#1#MrMVhwV8%!)aCOvL? z;|W++gd6IQ;0h~Tx(LHvN>Du{P3P=KqLmXj>mRQsKJ_w-hf`K;hUDSK=9#?d)y(&r z4*}kbe`?_eI#S;bv$uM>r;I+(SUp|bE>#j z6B;YU}B$3uik<-?6k$M_k{drFvC584DL#T{jxZyp|@uj@N3+ z^i9N16fBCoq_hG(8CTKm-xd}AhoLk_?j zA)$Z{H#|Hzu=|5Wh_6*>OeSQO#0@++vSuGY-m#}dbu#Bt1E>irq|nr_sQuZsC6R%K z#%FPn40K;Z6Z9<`L7@TJoQ~QZ(65nWTC_hOg##xa#2a|hWz(GGPdTv$d~LBu-;nh3 z_`J(f{rN25*4-y>uXkF)mI9~W^KG4n)%~W(ckvj#vIjgajJbf@`AH_Vf*x#|bE5nS zTAbIQ(cd{bKbX}dk;mYM8oHuFBuGz#7Jy=u*C?))-Rr%DPOW2hkmK?>KlIi8w|tM^ zfssy2mpDEG^W5Z-v*^JMX!}w5`<}OItPq<7F5pK=rcz{S6UJn_!W?~5l%FXf=J%RO z)c;rYKs|+7#gehaXJWeBx+#8(TZ+vPd4|&fE1K<)QisP&UvUXM0)7KZtGtHT1pY4= z>Ya~XcK7ThA&R0qEg%i|WOKY-*7=^aTr~VE(cAA6an}|w7ssou+TI&3aM5or&Zm|x zw$a@xQVAPR`a(@id^`E|u~fYv%3vunf1ShIOvt0?*P__V60b(HD_C-h`=_U$UtnWnCl8+ftB?NOS--Z{ORy}t ziwCu6VrP2hbUjXOiPfA@XBt(AJKR>^-p=>X1f4LDj_A_ssY#`yDK@3?~Hr_GFSqo90zzK7#{ z-byS?H8uWxIPynb1Jl!wKH!DPZc*q-O;Y+#8S^s@~T8&%uA~=;Mrdzx!{h`gi&NKR$F0HLKs<@(f3O-2rbuN6kB6dV~rb+^4{Z zJh+s;NT*C3tE~OkHT^lxEvqxkj+F)&qI-B3M(oylYo}$P`xejq=B7}oKqjzVhfK(@ zpC2B|`v>Cwtf`6m$N&@bb`TH|Jw1_ZBd0$&*s<0)xNKZQCtkGgdr^CV{E)N^D#&1N zu4-?v%#+D)=mOYDfh~)<54&z7o|2+N-)N8hD=)PoXdC5=( z8cVqDZ%1gq?#J$9)~hfj({b&hMJl>bLuGC21;t2bR$kIVb3D7tkO&)_>MwItr!z(2 z#KC}{^o~2zUUSN=5C>j#r-vz$+{@FBYnxN+AOx=eS=72TfM0qtx%qkhulvnA+>&*m z9lT)e4B8!+7p^jwdwM$pLg<4hFzq?-aX;zncbA^rE-W{0;TEE9Nh+IcjAz_YHhic* zaA)z9ieYZn`7VMx>kN)1+=apbw;2^AZxe;svfbJYzkJwx@biK1#;b0X1AB(v1Np?C zi%Se51xtBT#p}*7PdeCM08i(vE#pl!xyo{P>$V8f^;VMyK;Sqcu6H+cx*ErrJzcZ+ zWNwWW8FT%<1>aA7>?+n#FMw-UG*il%SdhpYVSn*ayRYDEF90;V)NOZk_;-%;DLTYW z^(KA-k5^h)ro-I;JUw*_!L>|hx8Q?IZeI%GCAgek3$Kg=i2DwVlp|Hyv& z@fZ?^ADZ29TQ6l7@;>g!rNp>lZuY#^LQsOic8xAE|Dj`Sj@k)#>TsvK+i4L^bZn-0 zCu_W0Mvv;j!5FK+;1)(&g&R~r72{2Z(NbrMYMO#!%sOcg^uNTa5giCOZeEzZ!G2^t zH-p5WUJB|}Z#N0x4tD5ON(5onGj7IMo*tH7$rL!?2Z!R>kN@+2Zp?xi8!2l36~u^$Oh6)eTp6@s!r$+zQ_dlB{%O^W zrReRTLR$x4H7^nsS0hr)>1cJXHJp4MbJ$%wel&UOH!n%_&ekY5EOkrFl3=3lr&HHf z+UA~bYJ{-Dr|RE1t{pe*m&%o`T+yT+x}Mlb(FxZYp0cR3Qu1hU%VC@P;lC(>AwP2r z4oiiAuh+j?dWSZAAxLJ3EOF<|oF_x#;)%47%-xM`B34>w`f#~BiZSkGR_s);?L@(Q ztC+9gs|-JN%JUUgFlGDFC+NNB+X$2U1u|zd7`d8A??O;&`z@nT<9%^20i&dH`@m@cLZ7`-#T7Kr?agH3 zrETZJnM7)rSHly+O9WQJ>YIX`Bt(VX+qrp};CONS3XA)A$O~-N-zE$8!f}O$sHSIr zJc{Yi9Ea2xXe8Wxy?EF^@oeGUa8F#@Kcou(MKy!o=nx#go0#oN6n%(ySZDC`waW#q zN7JVpkgF#5U%$6$A^kf}u?3HNp^xE=41&Xif+k~Z5pY)(iDCDfU*x$N`6ODiS&~LP z*rnd?d7YOyzOEhzB>QCYPT6sgihwE%-)wV_VRmTO{Uu%DeEHqBo-9xySgQUiYfHsz z@{bzQgsUqR4yR?s^JAaRy#Fo;o7cKSAdYpl`dQVtAdc1GOv}X>Yuv@MEjRUM{u}ya z8*U=}We!|T?#u*R_3OZZzIO*ZhT>|YS?1#7gYhNh{3l}i4Jr9RV!_;U8cXuDppuH5C+~KvSXE{K8LsnTlAtT;Cl;|`Ngt-=kdJL zhwVQ2V0l3x)>4qrkwzEzJ15RwdQn?yNX#mfx3QkJ`Pk=g745fog6)zCcGQsFWTB^d z`E^)z%0fVHm#sj|qE`$cFYm>tP*SWDgF@_YaT$#BCL11Dna|jp58rnQdnl$Mhza}w zfxcBAd)S{Aq={iztLmlAqbT@{pp;rYmIGd()2<#mFB~4*{4EY>#sxt*@z~LX9KRQi zw|k}%gH!Z6h6(a0T#-TW$`wBv=$6wF40VU1$fuatZ>bB=qX+L?=o z(zcIW^t$?sh0U`#Eqd(ibQAKtqVi|@i}NN#N$K5Xr;H02C<0Nd!5vdl@&lZz)zu|k zSjC;m+?%7A!vqGUSWr!=XcPd#vPZ?%mEQ+$a*&z5aWFGe^aUo3fS})8zKkc_E!!!JC-#+(%`m6k+l%KvB3p`O-X|4=Sv(r5W zK(?e?+%>5;;RrpjePhI zMNCuBH>k^;^_JUQVam8}S-9zR9{kz)0}i1%=h!?y8%>q-kJ<(1ME)?Vy02@8)*R

ISmapwAA*2hu+ z>i6m@Zh(RKTJ8N~AX%H%i7CJ@F1|W_M`HV4d@9}o!}G@?FUin`@l84YU6vMnKjG%p zsg7HB-tWGMH|O^q`?#HG0?M#uCc?ky;|Xs1G>6;aVXYjul zoimF8181|btFl)Pq-W2gv-(4p;#3aenrbDeyc)tkm!!YqFDQ#ohNs$!#K3y_!H!jSQArFZv()w^-XkH%tjn-&=MTJvWjUJvB~_Tjwa zMHB?D(RR(}fkN&{q8>Tl_aYBcffAg*4@3;>Hi8=ow1P4$U+XwyfdL@@dh#Yf`{y|3 z)z@C~{!l(Q^tEC5kbCO~6KZ9Zy=B#AcUDTfnP6iWn+4B|kp@h|rN|{jK z{Kp*!FHWQ4Y$13-CZK3WwX)(!ZJPG~lM)SC4dO-tmY5ua#lNZvobPZxR{p`|GD zfILdDz3?dd?vE=&>^C1A(-G4i%)9`}cG3ay_)d4jC~d#$FX=glFiwsNu46H}+22H% zCSLVclSQ4F4E*m#`o>*O-hbLb%8gvHTSZazZwK34>!d$Rf zhIC-^o@cR3b=f+bcuCIsOEAFX4fV633nW|Iqv_Shtk6a+W!WMX!@9`Uz z1ViAFYsBveVKw1jf2t_=NhX_P4@f*9j7_}@3ju#N-%rji9{{>#>l{;t6RQLhD4d+_ z`wKC8=b@uBIk6y0QV>C1rIC?-O~vy8aK^3-{cWVwyL!amM3hFWZrsD^?0E+HG3%;^ zeFGj?A<4uu%)7)>tU_8Jc@PVQj`~g+Q(7jkC~Fw{U90SI4>uk!jKJoDCHr-F zVCFQ&>FdEU8gU4lQ}Y_6G~|E(xcvlfwxkEDa(um|#a2LJNu>>_4viS|4djmJuLBCt z)#Hv!1!O$E(e~$4%hL6YXr_w}y$#sqWm&>b;uX-lH|KlU7ZYjgh zMN$AG-k==TK}g9T#hiaT%5*M;n~d+{wX6CcF#a?1Ed4qFEZ*6KTSpd6%zf~aBvH() zQeYFCz{l*T{DX*JW8fmf$jva?xH*R(-(hx`k!Ux_v({~iZs;#BH_9X(4NepE|gCMMr^F6$p4e)TP{ zCbP;1&svLbqrTzt*4WeDkse}y&$ocR5o-DAg#th~WYwsLx)umnNUR9l`_oW7$^i`;`Bbkc&4EUE~zXu7q` zUuI&b9fV{L{z~W>3(9&1WUyrl9bX|vDZT~rJS z^?#^)>!>Kdu77wCBqSA;6i@_IIwT|pP(ncvl#=dl=@>!;X;E4UDV0<@hwhM;?i^}> zA%=sPjZH#m5opD6Z@#Y6p#@mNwn z*~RCKU_eLT{bfw13L@n{ZI_b5nGdU|t{jANvOyAc0(1Te-Ow^Rr%Vfi5KRpm+tM5% z3JP_uUcYW}gk!ya{mFprO+_}gPYm~-s^xR;0G;Laz~rjMr>ZKUB@Tbc-Kjjwq+cYt z&vh5@lpH?CEVS3JzcnW$&Qg6dxa>w@d8G>An*fm%1m09XhHXB7g-cx|Hd_dJJjFA` zR@C)wZu`nK-msNdg2O(QeW4F!_BJTGysqlmaPwY|%m7#l)V~n8xW-#r`&qq(wM96WAQcb-ijX!>3*0 z#!~wU^tH;i&mhe$(by8~d06rLuef3Z7>C@pq1u)7_lEVXj~#1Gf{JDT`IFO&W}M;1-b0OW}1R*cQrz`L+(uSLQ9=u z>IPJ<5ysg5Ci%t-f5$G&oEhJffrA`?_eX?y2z^fbWv@26z@odQ&X!VFg(3+u1hdOe zZNx8p%iJ@KX9vi4afW@D)T$z9nv-zNQVM6vC)rYcV=qYPnO+M}JN?o69U>W`g6v(o z&J%+s^HC;%q=juNKY!+WvXc5s(N5HI(>$IEk$H>3_x91OE{xK;x9FpYM6de6v?c2v z<=D|{*6g|W!wM4wi{(6)_9fGgUmj^q&RvFAIt@g{x3h^6C#L*U;j+T4%RNiY5Mve? zUj3d7Jz6*#HL;Y%^Iw4v5TKtCr9~Nz(BzA7K(eyFwW5+A4NVLk-pQ);M@^3y-**uI zzQS6|3Yl-_U_aOoh--dRNt4b>@}Lw+kH5xKDO(Dmp(y*1vmndL>%tU7$+fV!LAC3P zk2>hu4r;Ux>J5lv1B;&J#*z3L@02F~d2Y%elZeYyPrDxX$TqdO28KwN7B6x({EWb_ zoW%_*+0U^!6S>8a&2qC2n7;P=l$ABMS!YSMkhXY(0zzYkPH9qmqiOa}h(yR9*?bEm zgy6a+;TQvYhL9Ue)?IrQNbR6T=aWu`xq7|}R_4O%c|?CB3>pv3-3n_c9k!@>Uc7aF zj7VZtTJSTT-t-IJJvDfeckifTdR9JpmRHI|uo<#A&K^h5yi95A%&@C0JwaKlZ}iV( zxSvTIR6x=Y+P?jUi1_R_5C%S%6^;X31vP+@BvP( zT@xhHcS@kB=mb-8e`U1Z$-y5UzK8Zl&)BXlY|I* z{zCC8mgH4jUVaX5_c3eb5`s7UQ;CwKTekC;Jm!!mFi226S1blo*e4SGA|YW}RV|~? zIw)Ujp7;(H0kq5`t;jeF)&z&40cl^hs$bX0lbgbUwLdx&$_mpvX8^v%1duM@lOrq*LOQBSk{sBsN9@nzpu#f3XkDfVCudWl%X5qv>5u{63gk%njv;m(It!Rh6#55&yzBbH!ujmrEx*At)CZoN1=4pf9@Hh8l?LPl%oj ze%LJTOvu&#kzlT-h>yC5>*5QtyZI*z7YF7<_ACx1{vHHEB&>)>c7!?CK;o-B@Pq== zN%sYz`}Hu-^lScA0-{(dJLE>PLFFc#H8DWgwbLB>;39*#+1z#M7t>%-(h9K5VvO^P zJK7J)Q5D{M6<&?jJ2+Wq&5Hn|~Hu+v7 zjC?8VC+;Y`F^bIe2(XjaLxRTQ_FT`5|e&EkDnfbl1#ah~vM4xNgb-AZ=E`7{GI?o|K?r2rxPw}SI< zt2mf6cERvOsvPmJU-YbE`3eOQW!m-FSUek>H`zyaH@*s{eWDxTH3dV>rHe99u{ ziS!oI_nN8shgh4>>s%L0MV9AnM@ND4`pmBd8{9MYl8MR1oaCD>a!C#^A8j?otf2XPL!TUoAo1Egu3?2f5c{#$^ z-vKNN{O3&Gw@lBgWBh*HSua$88SA4z-o`5h%5dB#FnJ6!CPA^@n}oCf`3=j`L_3qq zESn84=zN7yt0g3+qr-25rd@q2jzAe3QZBH3Hh?W~;iPZOR484q#j9i8q+64rF*7p8 z;T(N@F6}myR}x|mIS{}sqx);;lGn@zf~E;$tBQ4NY+JxD^<^p^B%PL7OkLi4qf5V5 zC*;W!5Kpfb9%c%RLk8f~--~-(nH7u-8n_{|C+CmeHu6^VlzC;eNvdSXTUv4iu=ZWx zvt_u>>Ex3P2!lW(riSv>`xJf~5}>DLMV#BI;30h;YVRe zzr`ya!?Vfr42T5Jwd3+!(iK5LMDs_j6)!x(*Pg?uVag|RT`U~9m-teChv~p-TZ%u zm>}JG9`c0kpI{00wu`0g?4jvZuD=lzPNcL(zu=nQmebG|VCk#Tcrl#UuoEPu&7q;m zx%QyZUn3&BD5&!|`C{Th>o^0J-T5eC%$&od7;55oO;iG&fG!QNH?2nSLq&(-6+3rg z*4Do7o6pUV|0h<1bal!T|Ew>8r{luIL%FJ<^BcVzp>7jjsm71%EUG8+<{ug6lTsR_ z=Z4=XFs6g|-sW?S_fUw+=horgF_p z?eRShPBb+OjR)-}KeJ?YrC3I-)`A*7pHmn-dYObe!Yw6=f}fUJ>~5JD*|lJAcnMVx z6##@*Q#wS?d*Zzh5J1WDbLV&4?MuqR4%&$b9Wt{rIfsCrc^fA*x5ckG)^?}N5Jw4`r<(ze$%vi?hSf!Y8ZBWFvGmQ z4Se1m#HU~DY+u06dN&*nNiJW`{`D(CX7!!G62}F1FsO3-C;ka9#3??Ed}IMuwTFKR z*DWR02|tCY+;o5kV(+4K$#fCay3b8OG|mD8*7+MzOIjkiAP%>`>3f*?rr#$J&}^@W zH@-440rX%h%*r20=z^!;%GHJ3{a5J2)me@} zv!)WG^N_cA-@lhj{X6Wz4NToFwJv~tsx@k8D1Szbx7(pBfE_shPZYh5*x2W^mr5v! zZp+M|`!&>#K5~>wV8&2fPd02;VhvQAWKBWd3s6G@L{4;Ye)fh>sY?Yd)ikPL+Wjv! z+lKB#1r63Z(}5A4mijmLZ{$K=GXEX0{!MB`6VKfg*O)%10p9+iurmg${<6Rm&%|Pd z@o;&Pw=3d2fkzLco{Ei_f>0&?Pr)|Mt-t=u)&JpM#@r8l7oxhwBg-Q|XX??bfO`}Q zw1|CYC;4m4OvF=vEIQ50IY&_YPZn%*=egt*s9R{JjhEtlf-K-M`krkYo!q<1stsLM z&vP-kotyewBc62Wt#Jcs5#a3T---(7bIZpJF}&;?c8n{XX7`B`*Um%YSu!G=6;AOV zZ#3hZ*xFlNnPnDSo86j9sN6ji@jHFbAyPS}Zt?y6$oT%!K4e#!? zmxAbue@A~DLB+bz?5)H5@*$C$*|_PidE7kuO>+1{sLDKhtd?y<{T9>g?MEl`aK%Oc zZ#3lp4w-;zGeZ{!H`RM(#b4qFgTnrLzPKmi<})k{Y$V3Lf`KqfO%r= z^lz`qFZ{fqw}5y2(ea~x0&s@sd+=_W@lbPF#?I2Z=+5{9kO2&tGO`m-rgG*88bSdyvb7Ftp%*7bW zjo&+LYx7H?c%15Cl7uMvF?Q1z=XngTTw|Jy4nMgUh>i0cK7<_f7yHsP1-AWFAjh^a z7chB{6mmMc|CsJ5s@#auL+48;KNM#}$BPFYe(=-JQi2QfL(60h>(=Rse<5`Z30H%r z9|qh-&qQhfyB-%xPbZTi>!Uf=2nGH0YW>&o?4mXj`8V8P#Tq{%D)8xXh?ii+yfn@4 zA}-YQ2uYNDPbkcV2qO2YXiK95kXHdcnI5mBjfG?|(dUDYjoz zokB0k<3$HB;A%?|(Ao!{BYSw}0CJo%8N_i46SPk1;<|=)?D%$l6-|5V^Azsw!W6my z_NaxUVJG9?)rh(WFNm?Z3be_B5E&C+ycgEPn_L3shfWTI^#PsF>}@c~+xG>)%qqB( z5-SN{xQ`wXRYX?gc?WUP&$?+_%<>9<-Emdlm|k2JXZx|7S_=n-Wd6!cL*E%o1=cl~ z-_@oY0Y*-L@1z~Pr7v0^dA=(6;QdM)sue}I7~Z@6`Vm254GwXza=U-pxSxN}--8&R zT$jVQG#sGc(ZzbyL$v3Nz)dMukX|`xTcMuqIz}5GOiS{vV%)FrE%lHTD3{>D)BN?8 z6ehRceTak+I~yiHFo69FCj%Jul9OR_@Bgi}15m2mamVUhH6T@gb#ELDQTIv)xO9Q2 zzq26>`z+`=HJF34!-YnO%LP>FRP|}3{rUOiQSsaIytQhURQ1fP%O>Czz2$bHE%+M4 zuP~5$<)QJ@i%j&9`afMo*!b2GJX<6zL)!3e>q+^r=F!6m)^503jCS4`k}zoMYYen(1H?6)N>M(Y$*9>4yV*A7b$351BEsZmXt*DL z51k(r#wKiA>*K#Bm;7#7m`~?H??DqCHQzN=CkU|JHZMhS$4?}y3W>%IiaO7g^b^UR zob?brS*FlU2)J*t_G``A%RkdbN@z*r`WFX_UP{P?b>O7pas(rqOlBU^`0> zJD=I@&%h=1GshM^FyNu?g)B2}@*fuGY^?d$1h!S_8z-vQh?Z0J`vli)w@}Xi8t*Bk zTc)ii3*|WGF63bqc4nKn>} z?1R8CHH4?Rd$`pGg7CEDgltE!(r{Yc>8@TCC|iXs9<}go<@C+m!hg6}kS*H7mwW9Y zpO2s7VP8b^IO2`2@ySg;BeyVk%dZthIAs!X{mGi-@OSsoEf=-?y)G~J^yJ%RwGvYk zJ`DAnpOYOQgdBC!Jo!Y4$bDcKTvhd3{-ur0Q{SiQ70=U-E>@1+-P{r?Z2e@oZuvl2 z{3Bl=RexF>|*{5at9XqAlHX6te5Tj4NV=TR_+_? z_oo`HD1@YzLgf2(EG75P2-iA7l^4G62Lu%8nxDL@D6T)1A)u03z>6*TICmpl*Hu4# zZ^8$6*V?scQIWVMd^GhEm!EE)4tJqLXSXZ43%gOuA)@DkBCY*3c4l;LAkxx5%#4Ik z*X3~^5XIs{oX-}8^gT$hUAiG8Y3>>e62xmV3cxt@%{hHCPHsrk_`+?)gqxs?q^s~uzK zQZu-=Yn4!o_Fs+^P;OF(@n%=fUT<)ip1W{Ks}J7h_WOi+bTuLuI-Sc;xK_a|WgzlHKc!7Um7E1@d{*(fDi5881E~XK{0qf)9qJ2 zKX|vbYlG>nZ_EQ`AWYT3(!?krk;xUrZ`sv#Y!N?IP%W(nhfR)zYrIG~SbPokvn*J4( zfi8Uh+a~{>^O*b4w%kCX;a6V?7N4?|4~I*X!g5oTHN3DfWhoN%Zt!n9n2nx8ubrmBLbo5wqM*gMVVl0!I}z*mF?%7n95S!tJrC$zrpBU$#Pj3pkaSh( z@@aTYBVWIbo#Z&X@uk7^s+ZE;Da@bUMJmu5nP)ntMrAPe<8UJ%<)8JBkB0B_=~Jy| z8{@fA)ICw`7fn?!8-Dm2)!<~if5P|e{rR8-L3B~Li9WX%C$*0<1B_SP$*!}dsy_c= zHk40=TmLA8BYGL>AiHH5cz*?NnyYDFx=iC4ENlLwO1`F#df4% zUr#j;*XxL;S9-c0J-y63bZ z#Gj1TCsoA!8NIjJx$V+}ra23p7OIC|?Cm3k(Q7%;+^8_4521pIXraWo9Q2L&L15EPq4IO)2RoKZm`?`&r=#<m%|B0B zNLEtqVvA!wp|6hImR#XGEu#HeY0n_}8e=mgwUQ}wd(KsS`sj0So4!2-Fn?{r+Hot%mw{A)%ifH_a!IH!`%$BPO3!fQa zajaw4iJbKeo4mgun!YBJpkZrTpL*AStZ}B!6L2(z#PErg~E$@$|3f%6W?!zEG z*tKT0ri$2G`?xr3%vy%W9kbtXq{R&x=fV|H+!0sCts5#-ivl>ui%v4T9FicX^_RJ4 zzG=pg1am=S_3M?OLR^urKXNuCJ)jsP0T-^!;gQkKpuwI{psTCu1s`-YJ7Sm;J}Px2 z5CXFZ;tv7jzF;8UJv|PI8H3S7a@!A1p$dS(M%)XICov>Yp&^p{?^`=@H9qO;|17)v z$fEh$|15F|q0kLsBmM82TKxZhSPPku3E6+YB!o>|j+p0vypM*6t2>C}e>^B;k%*z} zf4+|9GaF&j|9o8t?f<8hqClzzvEkDHn9n}=JEqJWx&Bqhh$SJ^68RI486-*UZ|5PR z;A3?MWqkX)W2hI+bmT4M;1c{D80E{kN7g24Ya?Z$*n|E6vz49)AalPirt_m##7RFl zj%7vL=Qp>x;x@UoDR$7!>|m3`63<=DTKt90J03swql|xXdd6$SHJL3Qhh*Qloo=)6 z>ej^M@U%~RT$NhfSugW(q!^9w`eQU#70x|!BPx87l_H9^*w8*-#y>dap59Pcd6X}U5o%fS8&=AkCl|H2aQ zj2jJl+v6Bjui1bFQOqK3#z+^XQ5lH)}hc*fxvczd+nDL#o4}UyqIPi~K)N z^IoZb9;AD(6ih$|z)Ib?;!t(wb{`2zr*A6p4en%lO6*V!)E~8(i%i~r*y7ej9rz=z1PZUtW zbVf6Tg7of&%Zhzryc_H5U(3sBwF_@3#j&g<^(ha-K>A!$1V|H4u$j}Au%Q!ahebtF zzO|z!Lc#FshO-0JAF`mbE18|Jdm^~=IQ)g3XcSlxek&{t9dU@6U?C3`H4$@6;ak7U z#Xe~ggeq0fLRxSX)uPh``u$zUbWBIig_ml!oW?G&Wh9rpBSxtO@_K%VnC4U-ML3IE zx2)L(Pkp`&F)1bJ-sRJYT1S>%bm?^1jvg+#Rd&1fuk*|v!;@o3v3T@!y=m<&N$o;g z=#!CDRCNYgc$d8e9i)U&_KALi_1X2qy)0}We)q~BIg@@cv;ZZ7{Hfn%;JN5^yuE*f zuCJw+3tD$~cMW4>>O3;Btzdswkc8OA#s;E4)JD|n)6EIu@M;W7zU`YLeA0vZ z4|)d&i2?r=zXugWewjPj2L;{AtU(JOwb+Q5b;aHS#588%@jvGuTxw2xXupW`u3>=i z$Up$e?4MmvA49+mTBOYlae2s=Bn8*Ba3v=vU-GOUo|=09IGifG_)m5r!AEfO&Fj}q z`cnh}57j+h-pg#L%W<@>dAQ2TO7S%q_^->+oUu%^4PO9@WTJ5P$ zc9|f7P+CZax0PfS+)u;_?F>7;_xC7hv8i0D@@^W=?nsLtJATn+bTkIlWMS8Uv0Tj8 z{L&I#xYQ_pwp=Yn009IpfBck~G>1X)D6_8ryRH?v9({h(b1zm!un$Xdm0A`~A^R41 zeGWwm?wVbGU>b0BcQ{i*Y&PW?HuYrNJm`2sMe3Me-}weSAtP3nEof)Q;j@H0anP%C zQV5sYXIW2A(M!RQCUEjs(?_A=6+%rEyC2}n0qNP#A42$$3}C3Ym*y6%c-^?+Hhx=p z;g2ti>$pUj)({&u6yejZwb7h}8Zq`c9H19-GUz^fe@oIt zgi#PMB9~pc#k)L|E=H}Ga}{i0@JdKX9Jbk2_9E5?(hGe2-vL@F&~I+?8&QCai0^5+ zTJ0*of-b=DIkr~0jMk-aJo0ZL=zqxNj_#fwGQs=``C_PWeaeY;p_UGIDsN+MZX}Wa z`}gmFXNeD{y`7nvS&9(M8k2!Sp{jW0BXcS`M*KAqoGpfH`3z9zMt}bNIez2mN6r=t zA=9PSu$odU_kIbA-k{5D>7}SZ=uTr}+3CshaDi73XFp3U_zOEf+#Ic6JwpY;1jICE z4xWuZb!;Ud6Sdrawi@kVuTU;mjo_F7N;1fvH<-ubuw=iFbnhAQGbDdKVd zzxDB-!yT5%r>5>bRqvv9K3)0f$R+5y{6zJ$_*KZNW$9!T$lCS^v~Jjr!$AMNo3PRr zNN5WLzCaDO(n)T3cqIb`@ysF}+5GW8?bY>`e=za$OFS|@-om*uaQEaIKRN;hSVPR=sh{`|006p0B^lNV^mZ`U< z)H%bXab2O{7zhnM&LBomA?(Fz+fu}W^b;WTPxcpBg>F`GCgALL(>-@bv|zGAhACGG z*__bHNlEYMKl=XV<$V2`kq)cpza|_5!)5~!kXem89e2112)=*+`EyUbmPl6AJaNdW znhB8a-FxsLa_a4^3WC0VHHgjTZbxvcuwWp@8*@Mh3(mm_Po=E3p{Cu4k6){arEcM-FeQwT@2p?V+_=LtI z6JcATIQ&^J96fGqU((=nYu-1Iy8-9)Y1jYemV^%^m)01fJk;~pSB(XfHlQ#QWwvA$ z(L;Z{&tK7Nj+7w}zq>J&o;@o$+urp?oEQI{GR~vKq`9aqB{O#?<0r0YTwlWx=khN% z&SbRc4>@<-FmC*!(yt6=A8a6W3r2<5KfTaM$l$|w&zuad#-oZD-HtbhA-Syi99vt5 z$n490l*DKLG9nKj_P7V;=jO6;a9ozjq=uLX(ElDABgz~KZw%O9l6&g==-J392&rVQ zQkxU=1s`}e@*WaymA*TkWX(Vmj`TQ!)YZ&XN)cpjAc=M}7v$3A%VjgWR~LktXPv}$ zJS73ET$%-gH2r^k0X%m@fY=)?F+5ypkG*9xU8#~5`p1b{LSr>}64B8TO7a1yWEjlB z#nnxPz(5%{H#e7qMY$5LCG3_l2=u>iKe1VY2U5tztcyyd38g)I3~~kBcK@&)15}P- zo9IGZP}550TJr;z)bni@aT|=g+1(hJ2NjSauA@+mPWa5OqK}URBNG#HczfIwp;P=i zEKa*r(cGLJs2e2Xc%V51XAP%*`OG|m1G3=&#uO->>)6>k0fm3Yv>9VKp1esSq(0J; z*#GgX_qYeT-~4ih8Uo3f4uq)Ve3W!Oe%#cG=-uuz@3ONjf1g^mBk1wtjnMSS$b-@%OeQlOn$5sNv)he+RE+RoYBS74EFIc0>vvzcW6jWIw%*~{}#;XX4=?3 zdeXLk+J_y`^vjub79$G&=_HEqU+-%0eciKC<0!;VK!F2oP z&6{Qf$_xmL!|RtHhYeh89i6YTdIZ9aMd#>cGSzVe+n)7HN9QJ@>9tyNRh5+r4)BZY zGp)8KeYWE5Kj7C!pfU%)GqqTMHd%|+n;s3_Pc3uHYnWehvC#}`U-t6!>{TRZ(=rgu zFVZ8FeROW!scLOqz^C=%83<5AUCGlgvOyCrb;;h@cK)d=Pa!V-Mx(QPXlTO@5;KNm zrDViU3u$)2L~Jnj!=ZZ;#JatwWBf9rwQnIy(G`E9JUjVRXIJNrX}O@o|-(R$DvqyA*U*HuD|`MuQ`c@9GmJ zdT;mrSJHq}FIY6q5@Y`wEF=f0FF(8fo zdVwP`Ad5SD)-KE6F1wkR@34US5%j8aho8SVA{XvUr8|P39cP8a&cSpyx3=We)v1HB zwtD%LobBx&gM+{2kgO@#D&-G5MIc!~`qFa`zy%pWz`X1Jy5;2K)$i9d`9J;i^YyJs zaiPfP4l0uXV{kqf9=Mr}2dumrT3Q?nv+UCx)kWAdLM5X5xss{8+MRcjU@dq3&jOl^ zTSw6!q#|!$0@1+p;SnLC0|M_Qdh2}U$yA4aQKnV>8fs}15Z1Kd$$^j zmwBR5w~A}HFD##tD3Vds%FGkvQ64IP3!#d&7Ux&5BfJ0ViR1@*N;$gyD;`WrrmrCw6v>^1x6f}Gt6-IO&ZtLWyhH?Pw~n3(+v69ENhQvA z!Qh;C9O^C&XmTd>YlC)iH!)@o0bPt^ACBQkDn75nJbJSbV4A2W1&9N^_kx|nk3)Yk z9$}L+6E9@RzoKADO5vY}7DVSMgN~tGs5p~c)bVk5e)7ntwcxrRy2SwVh_b0d{!kq3 z?v78MqD)bYVeA+i`~eaQUI_ay_1SdNC1*WE8cgtA(R#89+WJZ`vJ1$|1rRmz_W7tM_FsDGaY?^=0! zDac|x5tl?~)cnH(A#XJKO@>>ik4m;5p2n!I4eTSTk6^@sWys;C39&`$=qom<_R@rd{sS`yl6* ze=%kjtuL5s@QE|ymwKYuYt65*aNNY^`rHc%b3BhKe)g!~T|;;Q4vsrwsxkPvyL%D) z6=zX{`)vX*6OVGSFR@sIfUQFliKipxoK4|IeZ;>vI@yCloR^-z2=6E=EK8 zHbwP=krJA@^vtdzmeuxR+^gx<>GBDWimIIOGq1EyPfT_UPzns78)rnBfm)^wDE#Y@*gs z(5tO>J|7FM7ayi|E5}?U8gM3mJTC<#H~mr>BKUqsQxBP|<^Qm#_1RSZhUMThFu#Ls z(jPqvowjHDc?{oe_G%v)(PUZr+FHTS!_$5twjUXVLo(uj%B~nQDK4MIT?R7w;16Ev z+ArSfnV8{7%e8X1RIR>F`F=PJ3^}G&QBkoxS}#N6X~>_-WbA92_pBFpnAK1-ZEen^1raG)n_BBHG(F0Z zB9pmjV&(c0ozJ;ct}^SumU!s_$B|m9Qm$l^QZ(Rm+NfNPE5(qP8n_k|LD>dgK5~5B z#0<4qc-XnX-HnelIr{ppy$~XbUAd1u8QwlhwdX6=4cO8`Vw$4)~_FT;`3or9Cfd!-$~=xk$DfR-(ohLyIywa`i$N>w2$i| z%wuSmY+{^8CeM2_**PyTjCh`VEW{@-c;mcg&4j^XF0zDr-eS94QvT@uryT8j7cg)) zBv)m53RnU%_0cn8TH*f5=h#3CONFMEuRRtCg?Gj?nI3GjjyR|d<>&uh`qj?;_WH=l zYp#^De3ALq0X99f-o8e}^H3{|NiQHFcden|!*QIVx_Vqg#_>iR3tH*1;oRz*M;>qn zvh;m*1XB}5*zBwU-woyA18=DmL33h28R-%AeHFwa9tsH)UekizG%hul{T|S8^5q|s z46P3S2@`&_+M%V(!=rnyoFv`~-`*8|6^R8-PQ^P|$d(}tP1t9Cah&Lw&D{VzYnz?bgOL$Mxc(e&-o9wR3VG^!lwu zhpu}$e*1K^Bz&ZBk8q&n2c0h?ELswWy@jOC#1}Uw>9P2>{R0Ie1&oxgV7G=Y#9ze1 z@^D4VXR$Dt(rRiO(~!)4{?iAziN*@l@M5~SQA~C;>y1I3(0<&}!{uRp;~NmR{c7&^ z>mBfe<2oY4r}NG_5grR4jx(_vAn6g%BTi3F5^w>Z5okiv)QfWD(reQiuR2zq=aH}w zU~DpUE8zsD+3p`aiR16)<}gl}{C5M=)5bClFSduoU6+aW%Y<@a{-`*SYL0FHKhLs!*`Dgyqj!97)`5ZY7I{q->*66Boc0A{z20c z$=wxt$=bxW9h6)e`gNMqmRNmVP=n4jP=cgOit;muRtz+ z9Lx+J<;scwI0${M@&pR^R>hezfak3ll%v1h-jg4zr4e;GI1BuNSF%E ztR80=>8o-{jat;5U;i{Myy8pTOAurV#OS)jx94RNi7H`j!l&;W2C8k4C?P!Bj2c*b zd-LQk8vH)~y|MOYWx#ynQ?7cQOS1bAG#CGA(Wq3o_X(_FW%TUdu)sgy06k-9T1e3U zf+-@tzL>+h> zyLCQ64i1ID-J^4t=ZI$`P&qa%ZF;oz9@)jkg6GUiE-b{v2Q@5!{W6IOI##CvLq#qH z*TpI>kLDuHh0584{?^{1A0ydA9~%Jzu-fi{0R^yxtgEYgVQd_Cc<5%R*1BIf#Vm9N zlL>fiK+-gSKC4r%7k!=mb^S!UK8&qmNGSp5yPB|x9z9cczy`Oo;2HGcx2uZ%M0wOI zJXw&G6M8hlgW)Mcj3Gnh*}Hc!u~#;);>Y_9zfK}9Lx2>Wm9}y;K*7Eq*$z915<(Q? zSO(@IRNr6;7E8aEMmBek;`8_HZ7@f%r9!Y3N6hvY^{)u(w(__qs7s;r z0CTCIPz^Y{B*?`@@{vnj(a!EcU46al_Sk)3e==09k?1&D!%djO%;knYUo(WU{aIjt z4pKMvT=ek#-0Qkw>iV_vh|RoF3pYTh3~vLNR9y!#qHXUbW2N%KmGR0)$@?ot=u15i)fJh0CWk!)^pYdgWHZUue|QM94Te zIA+~yORdUNKz2Lu)5g>Pg``M={$K8T2utuUX+?;R#e=rJN|`!k%2mIU`)6Ug8FlxC&oA5V{-hafG3BAq{#lPivaCyH z0;6X1pBfQL$Q!Zcj7|U7L_skZb&yOF2wNIw&Lr+?wG91zG}m)|Vut9CCEFZC?npL8LtYHg`2Zk zFyA}gkj8C*cHq59{#ngBVv4r-i;{np!%y8+&w|nW{711+zY_<59z-(;6N3cEb?q@p z zxPkh!K>U8i`!dT*uyqA%29+5m9AAFk3kJhxz&KYk54To z<)Qt}KaV^VQj*GO1FX(0tgP;UX=3%R0sn&s58^>9_V=qo63DbPH7`}q3~;a@VCe(z zKoY~EKrHbG>BGZAlk%yW6SyW`c{3Xde7)fFU64_uV(3tS&bG0JM)1ENi|t8gnyDs4 z9yA8Vh~LKMB8R*%!bi6SoQQwV2SqC-y@%v(cy5I&yA5(&<)@wy3IrbnqN`i>zs0kH zRw(mmSSEzjO%L1Sl|}vAD|j4ccUwc%8`^m-L|FWnIly5^O44Onp={q>RszFagXQ}u zF=c9_+Dk!7{t!=%ZOLE1C6;4ZtaGR6^9J>wE)&Kzzu|jGHRA4o`jj z`X79c=O#ITQ88t@JSGV54wAd0)fE-j!6XfqE48(?px9LLGYeo)YBT%ECMHG)iowae zyu90;6-oC{)w(?0;JH)a?B)+Bq!wLSU(Xa|(L4A>G8tI+UIiCU81I`0*_KW~N5&{# zfA~4dxy(&RaFlCCqvmVnWZcDrG|tDW4_zh5 z2EEr=hU4)H5#KqtJ|ta!JlJvgShX)vT zenu_CqQ}YT(6=T-9i1MWYuk61osHMb?c|o03CtyG~w^(ux!agXsS12=m8`V zP0~5=8wIqg(*EGBA@c?H7+9!dZH4R#)D%>X*ank1vyz!=tO!>4O#gsJnYd#vkgAxE za~43u%MCt9073$me$&d=z}U+UEz&M*aGG!MnN<}BXu{{u%sfU7^Z-(#xDfI1u^w_B`TSb{F^)manvI~dD+4$B$?P?7PZ z`Clo|1MJg(Nyjl53;-BY%6^?+2|Z2`yPDX(*jQagimpV7FCkio zBZIGorIwV7H3P`Vs3T570p+1189I?XpRTa4)86y1?pFyV-xkOs=u^Xinc;<@A!YRp zZ@R!vi&|%4VWEbOPFL}@XL=sv04D{Bk#ll$pNO&@zcqAf2)OWka_6?@|gF748JvaWHR(X+VtoSPO>?r|w1jtoSn z-@Cb*0=O_c?Yb_R@*@?NX;m}n!%QkefrurneuW;uLs!Vj9}2gm zoLg7VXz1&c$91u%mjPrdJSo>~GWsTfn8qe1TAixhOW$6G{0CX0pOto~_{!}r_%C>g zUtO*v6xf61c8&d!3J~-bHH0OO1Z>XFp;5Q0@@uw?fuC7OfG`0SxOs0W6vQ z?VECP$_F49TKDGaf7(y-6&chf=re8UGD?uy$C^LWuN<%jDVdzshHRP=Ax!4lb64kjhaEZub!S|Y* z>`qr6;<&!z-V5NuoWwB2lmW&QBk!&LF7)S3^kX5AmVhgPN|zHJ$}m{YD7=1DH7`!- z1?Twk*172$sDx46)GiT568g5fUQh1p7fD!77-GX%!0LH## zx3%ngwmDVzDNbf{e3wnLz(qh$mnbl0fqmh#IclJr0G&f|^vtfoh@Xl@DgwxpRWM&w zRVCRsC>QZ4Cva;}gW~g}4fm+L31eGv;IzQTekAlcn3a1aA5J&n?DJ-F!A8U_{V*GP zcekKflN-CXR194tF)Ady=}A;**cYo(*c+>on9}dhYrE$c=UFr7(GPsZ>DEcn}EU$*R$H)KBX zL$zBb$oF2Ry}I2qt{(Ktc5<95xi5^XgaX$*eb7S$Y3`ik`;IOsy`vs?4xwCeY@wrl zBeHzsr@Y&5dermqPhyghZz%45#RW&tnuM}+1>I3(W7mOVmAcRN!3a;g)^`^7M!4e1 z$ltdXq2sZ8W@7aZ?%gBxS?CS9Yw*)8n3x;#BSw>2++zbhu@wJ3&7?ug8X()dys)LUI~GW0QO-5OeNvfRv$5+Y8IOQt&< zBP8@w(ilB#-keoXmSDRf{wSRDKQ(qR2H^8=u!6sUb! z{aDa|&?%q*0=`!dTFF%YI{I zxbsuQ{#nj(+L|odUL_Yv&1Uh4UOSiyc&-Jd;{v!Ew(E_QLJWzgs`m7N!bduP-#?{n zyP#@@h3-!eYR=gQxw;mZGO+$ztROFEx2g+Z9lTsD?z~i~6>pp_xKCl3xL%bHdN)K0 zWeJt>HO(sctB-Iw@@RWC*otvr+~5lIK`wk9a9CXjR#S0Y^Hl=bF_k^N3*ewf>RE4C zu5xsXiUeS`RHe{+_qh3IUIXXV3f#f-+5sDpPaMsU~4ZR`rEI#$Dz*}Is^v3iW`5K(3e!MG_n%fX9lfBjZjHSEmv^mLy&ea>^9(}$`=2ke4Wp*|w%*!AXKnEa<%&7pk#O&JE! z2m+VEXs7!xm86Us^Pa`T*Ix<#;>SI@6_H8l=--d?7E5D>$N-~B*TQR_C|{@Y3J3;B zCxk$AT*e1qO$?y#Oi{|?pjXk1Hn!>&W= z1ZE`RV2p<8w8jlP;w!I7IMi!yDl&Mw#ubX`DYn{M3BG~vV{rt2A9bf4y+;jX_|^2G z(oS{@82m4;@BF+&5By3&b&Qdstr9zADYnd=9!lKgcOl02+lYJbavsS@WM)JC&Jfh! zHMjgi72VJvULQHZve@zyImwIO%KY|D&BmIzaLd|1CBCiAs0@dygkmtV2!r2O8w@cE z9C*E#f->z=LOS%`9n0ddo+=4GMb-V1b(-XDbj&Umz9}c zgvq7xLdi9-L*cmY?L+nLxh%s~p?$z)UEVsqxsqNJEw7tD5?2EJ9FK?U$ST*D;%mXP4l>fKQF}Ig-CSUMauimj49LhPv4#O zO%~)^!dYN*h8ptn$ov}{s4My(J&wm1FgY3c2qoOiuCC$-7}Y2 z7u4W-qz68en-!^nLy-IpX;a0+zkK$Sk*#zJ63bas_wJGVYy0W^)NEnrjJ5Mta{1i4 z=GwgG>fDWftQ$OQv`}Vou2loNWZo)@puUqGkXM@>$ zSH5eWxk|x2i`HD%fBEuj4Zx@eVS{b3Tk2C`bOP*Ue4U>+%o4k54BP2jJd>9_(zoLg z?g$q=`BN|xRSR9n$y@XnydS&-nLTcz#5X3}ZIE|00F7^qXYL{`e)Gv9thlYAx>_aA zx?M|KJC@1>QkYM-lxp#iRY*u^v&1J2EZzDmDe5i*)E&d3F7sSIDH7=mv5gO=rE)mdNNLQx~> zuH3I*@!iFqFMv>L?gQKF;vpHe{|vJ<#dEMxR6#*Clu+Sxbd-Sg=kik(6_pN~x`=>J zIq*A?a0%E}z^7dJop3lP<_#?5+go3)9(XJJ`4@O_&(i}Pu~RA75&xu{ZQj?TahVZz zM}KQaNOOZ}6scEGxJLLp=Ee};$Fwvi=fq;?$MNX9FW_JDo*e_PmB+Pwm0DG{Y`3s| zcRU^EbUUD}Aqse1Mjbt)uaW|qc!$nE7eg(rn|t0zn-kTohn`}NBB^_4X+8eV!VKWh zi7!)(i9$qF)GcyqVuBV%c%{iyg6F)uuw+Wje(;Qbm$WIFj{TanL!xkr3cVqQ6t*}` zAHfD2S^lC!WRtX^?$mc{#O~eZy+LC$W`*t>9lr?tXps;NozpT~fJXRLQ% zG07hjpT2LN`M2{5{~CsO`{`h0`iWN7LTV-X`gHcr@WzUX{x1Er31MS3vMw^+0H!Gp zIsmtMa|7>zatUuZ>|?nd?`aO4mX7Vdf)TT^;sLNO2F&d0rcx+Vz8r;5J~+8~bvpYa zFhd2Y6DeQ9;VuFPV#G0%r^$J4Bk9+y&TPby=75)L$nzY79=j_}k5?cmzulkwDHAV4 zkFQ;v+HwajMQ~X$J@;SLm(>SyCVZq$SQ| zhzn;=VJ~``k_IGoi|e^@j#V4OuUqPunwN=x1z568dDA@!kzvLX_(lfc!l;MRc^={@ z>FMwxy_BiS@76#Oo|cvF-#vz^hE#8a3@+X2hs!zMjsjGtc8P~u1ViaUg9_Yf`wf-immi%d^Ztf`t-{_#$R~( zcV^K!csu}T!wSmE@rIR^m8L@og&7k<32$$agGpq-YOVOKipokt$gv*?1?b{=;5$X= zV|nPs&}#*$B=M*-gs`AX;8}G>IVmdNTcL6s!Yk-<;rveY9tlM#V}T;1u?`B7Ge*<> z@GM6t*buDvknQ4~;;Ms|^bjcL55xCII+5sg!McS!(~THwHJb-#nBwK19x$Gi8W6P$H*iwGfrR`Z~5@(9-*LVwqg($Wsdzb zpn{A)yBBnhTTwcVlDJ?k0n{R6FN9yE{NY^J_~Sc)^mcwyWA9DwesyZ&RT1oI?Mn2T0;l&lsvJV#Ln26v&xr*Vo+Y4O?AiSudr z2wSm9mltpLPB{K8ROe@EObe{nMhVBLV{S|xA)G->6>^sHIRhrMINph3$eI{11E z&3l*l>Gw?Sw;>X~zIC+`7Sl34fItf+1lT9UUuE<{OauN-1k5q$U_}CsA;d5e%54!~ z5Ad5q-r6huz8^UNynVO6eX&VkOz%x_@SH;-AbHnf*7JDj!u1xR>^av9tCs21)YKps zN76y#KJHe&lkxL zBUBR~stYYbLq3|8cWk-8Q#Dwog$-(-O<$@)&-L;+M4z5~Z-77JhK$3zr=|hdq2LL2 zgy?2iQJ8%JCC&d~2N z#IY>@@6y8b3=a2U;pyLvVV@_-TRP z0DJw|?XLh9;+gDw$18{?+ywIJdD?2F00KsabR3Q${pV;hr14Is(U(;z)%4w)6j>~U zl-}R;Qobtpg_9`2{{nmE?7W2%D>j~3HTFncGQT7v1ExAMz{=O@a0m{<k!AzC>1?Lg330$^@2Q|Bw1*G-l4G$=B}8Ff-}->qI324H7hK^!o&PqPS_oCSqU zFYvc1C%jj^viABMod=`^U~~||KN3=h5}CGz1$4dwqt%8crL6jCg5f_8F7CV%W+Tza z6EHp``FzS}R4fC>9}MA3S6ce*$V!8ic;d~Y8t(wss}yja?Im%axsBCj*xLvmoe587bL z*oH$4%~RcNbk4>^wL=|_=+isW?_sDd(x3#yBMq|Wk#Y-khKcX0xeT%j)2cZA?4Nb0 zTUd`*|LiZg3ZP#a2W()69}++e!3hXZ!SE)(dDxkF8bE))#O^#ym6qcc+Qy0DCba_% z?I}Ksn{v`sJX}~n;uX%&Q{kSquc)$U6xzSRb0lAf5Yt+ISlV`z_Z#mp>>||BCa0cna$t z?-Okw$W@&SJMiiIh5UMA#3mY1XX5s(wl(i(BSkV3CakWOMiuS;a+pI7N7OV_xyvMn zt+DFK?U%!zN77RG{Qf$yu0U?IywOQwyCYuA+3FL!VBU1v`XI%pF?ipm@AeoNkt-`J8=z{R&lW{iL$#!GD0)oagOQzs17yYB zT?c#;6>aU14MdF+cn0tiX8B@^KB(5Uf$*PJ8~n~%Ap_o<0VwuEI(*Mr%10L3+Wg7b zCIjV;2TgIJ;$Qi4%+3ZgqRtgBg?atnhr*r~fP}?~GKJ#Upy&S=OBJRU$YZ+EoY5)o zxIDx_DfW21gp;JiMABPj3u-4K{QQ(aaIb|o%{TUFQo{i~P6pTp&>o-Oo}SiB*=R|2 zv+`HFE*!0WeM(Eq%O;qEwFGfr5x|*t8g!spL*Sn^=re!cU)|jNRf{6%+>!4uF`6Xu zlBu!f;@%m#b83*g%6TY1#p{c41+~WB9#OLmm2zIozBq8l?{z4p?veVJtZKSmC@R2h zT|o;-JNkR-4wrtY70r@UNdFI~6bTCaNV`F#?tk6rr-0#B&JPNzog^#8#VS!4d*!o)r z+BRD=B6prqKBdf**0_F|Ch`*$2z+hd&a>#{U9%ygn@MmJF*yxS4(ymOr zXJRI#D*{;H!m6$&B)h+HYJve5?9|lhSeM!hK>o0Lx3}iOnYQ&H=;IG_zQQSZCVaA^ zr>~&pU_n-^JIgQ-v)sALw>Uqu$6A}pHEog)w77v?N%MWoE%zXNJdz;>YVwXUR#sfk zuEg5>dFOI6i)zF*(ovj^d=@ur%J_V1DR;Yn)VrsDs=cikgTwvdcDT}PfuT$S+ z8s;PV`EG&FguL=i&EM&%Ah8CJIRVYicq29|tbH-ykB?z)euE!bOHOk8gGnocmaWQ- zc{|~pP|}q{?_xL}N1%8=4FuQ#?+I$FbcgBbQ2JIW=Fzo79xkr%Zaxrg14%Vq`uKkC z0x0muyTVMCbrlsA6)&GvS%XvWf?j{ znx&H>ZTD`I^P`<~omYuNuP8Mr?#BJ3O*fN_yH8GnQ{_MjQN%3U*x2ATy(=mztnHiG zdo|6@_)Ob6DBOI2T7_h0Wi0?|+&vBsDH|IO^WLPle>8ErwN?t?OnfOXr!q4$69y$u zU#hBBwW=ni|AsP30YQ6AX5U6sufyPX!dF{imuy=Pgyy{c#nLSYAeKO9w#>&vTY&Vf z8aTSh_=zcwv+3G{J6-G5Pu55k(4K6zG(64q^k^?$>m=ChoAWy&J$xWv>MuhEW*1tc zxhk!gI2K#1Ookq;mAt+^l#X}J9anou5J-Pj>Eu(Hf+(d1!l&TycCK7kKw{Be29Nv8 zSZL0n6JG!UWUEQ>lKrin@AP$0H;EL6{ihdBC9liZ5OD#AMI z3RUG4`I$3M(N?q(r<5bCympIB{Srg3k`Y#+7#DVMwO zZX899!d@q9@{p%`1$6U+eH3{tV4R4J4F(H6OJ|TzH8hK&aQGm8{sZ`3aWT*3nrMnA zqW#^86=6fV(EhOhig%{?d^yq@OJJpalJXvttQx3F(E7%zGm5lN7Y>YAusJWFX`C?Y zdJW~;R!(iHC`Y}Ma~Y-uIhAvO-sueb3evqmUhXqlSyEsySkf7$hW;25AiYG&RHrJtf204VLXaNSY?57E7B89F^!rGd! zLCD&EcJ~$vyK*xkF4nlap1n#jhlk9oVRU!mh`3M@XKZ^2ak>T&#<1Hr%nNGfuVFO}1-4`ppN-#Vu>AClz%$S!!`B z!tSK(wHVHa+y1)32J8zgxxS~#0r5o8%u*d$a;?X_ES}hQZVZ#$u1p#p=as5%in4*6=!

7}1YZzbfU{a(SmhF3Rm++FHv0Y2cqx zUaR81A8nS`A*HqB8t?9;mrCD@0kgRib>vIj4?Ov5574i=->51aWO&yzt~-Jhm*p{ckA_}ecYX{ncQA`*`}T0WZ*Q`?FQ4FQ)Lbp5u|`%;Oh9ao*D8_wr*iSehG zloL9QVFYf8Jx=@a7bmvE+s2U-yDj<+po;#m7zt8vr{ zaoe?%9GYIpMmj-7d7f2C%HOOrk~6A3xwh4Qn2hEe@xh zvWYM)c8Bt>GhtU5-r;;boUGg1HxT~=7oNaQ^-;7|h)0J996{2tw6yeVIgg7?0VO~j zKBI0f zeBUcT>^n*!$j-@`GGU?}sWmLr4w67^%V%VBDT^no#5s;9tEk85BrB9$lIS##jlaW= z6lOV9Fs_l=w@7=uMdfGCuU4A0G!q7A_*(Wq?UVr6Ai_MvyK07JnAOfp(^pF|;@C~6 zz+_u*ne-Q?7=F{0-TCW1o?F>N8Ioe|CKtNr=XtYN&#!79UfmpX2iKv-qG!$uW@gV) zPnr_+?2!8I+H-*;OxBEGnp^PC7|fHnn-<>kx$Vt+Xi z_8QsRp6bdi#e!`qYm!1BFcupf6w_R?ntvt88RD}&M{$FaBi-6i)3p^&Z!PqpeX#by z>5jJ@!I8gA9nONc2W)p1nYvx>%x>`LZs~CU$pc&mm|{Y|7EM`lH&PgU;$R4CToEJh zRXXk}shL_FD=CiD^ETi(Tv2GA7!Y)Z1GtJkaDKU)#(@|;u7A{Arx29q-CFCuV1Kae#quP@R%7E6At}ObEkVc{OP=Rn3r4C{f`i7Bd zH40g;KaNtw?DCved^_7#%n3Qm;u`wLJ2d}~7IvfJ`>fs|@yy0}4D8VE`jW?I+fdT4 z5kqm0gkHA#cC7if+`Xh9+t8{U5vgd4Bjw(36Ke`3ee1>ThHF^}Iu#Am>l--V{8YPh z?=b=U7II>H!iz)$^jR%7QH2IZE*8mhLyX>8Z6m6b^3l4YgYcbiA3Mx6a%kJhWdoD zb>PK2nE%Bv3!Ai~Ckjiycj4C2UfZx5W$ua1BVq*$w%{L517Y&@5f%`%E*m#ifr?9? zv<5V!Q~=cZ>I=CwYm;MN#eD_#4O%$`Xg1TBhYuldqulJL>l@v{l;L}5bJF@Y&m1ot z;L(dtg6wT~fW0%v)_Xj*Fr%B7I?$PQgx|@1NIr%5F+O=yvd#b*RoH#P!i~*yo=r6L zU$d1;l#7qmbs6!1Mng>3B->)xyG786@7HL3618Iy9(&1#K@kzk!{|x$9obUPJc7=_ae+OLMBkk-!Cck57BFAI*}n%^?CL znviiB4hi;_r!XnYY^LcNDZR$*FVBDD5aA#%d1mo}3kY17hnv^j)rNpp*9d04=xmHW zCwIX;SJ~F~l;``KuvtoRseM^{v_BDyt_phCE;`}GD|p_;#a8%3+g+iD+dfjb0W}#K zgj*o6ed!enL_U6RmQOlQo&;=P9xn<9-zQ>CXQlwQVEiuA3FN@^f1r->{hyfsF+$^&0M3dK9yE7emt8K3B3&@oTDwFlGmDg*n%el%iP^Y8>O>vT zTcWc1#ibty;V^CAp!#9$o^1iBDT-WoH=UT-^y%h|e(odYxtfqh43C_iX%G(rYIL>M z>3Fe4R^@%>~X0rNG$2=8_@22k)s^aQqSPAW(tQv$pWB2k_$a0*`Uw$C#%W=;UQO ziW>i*16Tw=UWW6eMmOKw4*${RO8cZpRi<(a;hk2fP<;OEYq6HA4cZxPc{S6obVU=J zWoPCNeB*)>Qq;7e3p$KO<><2V*^uLqWh49?UdY1z17%(w4Rvgd!5Hiji_R%LXLJg} z*)sV@^1M7OXT9y3<=Xj%{sg+|r^(GOU-J~0C!je9?AtvDd%i|3WrUNyVN@d}k4@eE z$mDjVAmCrsapCKjRH40N+510j{kn1zG(e2On;GMI9#Xdi<)s0uVV?2Wl9lLa@~fRA zhZvX?_pl61-V(_Hb{=K)KQCTWGt~D-J_={neQtF3M}nOPhX#*on{lp0hz&g@T6^oZFk#z&P_UwY)LOfzRBqWLzG$N4iVk%Ex1^pzs=iWY2%O73GmHAJ zq+~Kon`>3+k%E-2s`72oVpj<<#DkasuN{EB9-i#8d{w@U-RS3^RAlZ!tAyOe{PqUD z>cYBM+361E+Xxw2SrY*)cyjaHKXGrm%(WpjbB7_~d!MJk-f{M!o#&F9)c1r!F|hAk zg9x%snTkTr0xL${Fy`O~e{)=u(-Q3K_&9kSlDqA7Dn7vQuc@p>{STO6IMP4xC62r7 zib>@g`iA1hXZA$jQ$g^v2FLDQ&Q63uBxXHo-)D9eHg|<$@voO*6S381sG(VvNP#a) zt#u>mt{o?x&F?Mq_-5((K=RsD?pj-8ZQ2f-WtwN4ClktB@8Hsbi*ky8q`PEojE&&z zppBgG>7(ZF8DerE9Wf+(<^?uHy&_sNuI;Ibbb|()j@RYoUlQHi^d7G=frKc)pLz(y zBkUw;Jcb!flA4&NT&=a537pyXARne^K8DGTF3>l~$PP0XhOZEjPU$d4B~i5@pg-Oi zOx>_EF}?Hc@&d-C)_woDJBO6HZCq6;Ka$a1{NYBe2ZCX;i{2TT0?9jsy|zW6`kM5Q z584~s9k~yBRqFfW!`u2Jx!kKjhAh=I*O#O|;Ssh&Pl=bU>`yi7{0i>L50Ikl!D!P);s)crtlVWWQuRnGP zoQ}nj1^Bu@#U%opJ*=J}Y*Puz75;rOQ_R-SPV8on*dRw0+%bFoScUmWnME1Z2}nqL zhc=?LfzcD3A`liJxx^zHhWFhML+do|4xq`gQEnl`3J15e7Ui&|HeUe63R-FtvVDnw zK|hup+S76VW$bJ2$w9!vUB|4gue?D(9=7pauGYY=1c1f|4YJjrW#y2r<%iMZh_8I# z;{K%WYqG@gs^tfKU`pse!5ZFGYr<8vY4f~iakcSB9m?bhdJ6??AoD9VTi%wpf%6e5 zcv+N`Uyv+D1cfJ@j0F}62E;=|9Nu((W5?3dA*^w#%c3%C*~H;f%vC3({_H4A1+s9B zt*o$vCxdE`3)jRbg?7!#jshZZy_Sx1M?guPv!0X$BBu6sm%kflU5g2}dzS4Z-K`44 z5;~_f*djFr5;5^|DGT&c}-$jT{P3Y-Cy^qd4=Cm+we3 zwlIh`og_bAM{m6fS-C||$b2TI6z*n~#;I0WoeaH*ULI0vs3{!@9pHWc$R1pv{6}_2 zr%<7~6ov)~Haa@m$l&M5Bfr4!k0fVjAz(FGD(tR##SQqSgPZH?&y0*wgM&YT)=5c+ z-=(e>)|1C){4#CpgRm&2;mLS-(w*oxoZ_d@7dzhey_pV_xgWINNmtLSZ4r%7s5cHa zYgg;(I%QlkP6_0n)FY%j0H2i*!>%tI0;&)Lo$;aIG~l z5LVPrc$IOueRHbQJK@pejCGa9;#qoNA;=>LyecCPuPe!`7#dQVURZXk!wEHW;i%74 zW}*Tz0E1BV1D`)&Dbt{&sVf|udwUwdu!%B6&Gex^*1~wN>z&i96WtE+mTp{;*ro=N9cC(r!5+h>19t}QrnsagezanS$EO+wz4u*73$QcQDz#m3`ACG%V8sJlo_ckFYm)s1{(UHb*akA zsu8E6@Ct&~${g2tKv8au?I4dIUi8{!2lvrOgZ9`(&874VO3REC9OP|h=H5%xT+27S zXx^lDC*W6(dDoqcn5#EzpRSRN)St#?vnBg%tUiMBnZA%nC!oex-p>JYbS1Mb`5SlW`r5}kJU4n5Q)NE_6Lr0omzJnS3YAfR^K9QGRem}Be5w0ryP7e1 z;|@h05cS(F>G(i5W}*J4BgLeRw641}hnR?ne#Pz0n%Bz+)5jCcc4_NuVa;eL&hJlb zy^Pd9o^CuyM-6x8HvE0-X1NE?npxn;&sZYKqa||bN{MP>!v?v-_AWT-^!wsrR&j9v6+7_SQlv+R9albs>HJ#~A zPBoDP@lepU*G17L^tNob&m;ZbY@h$h#7OawrYmC7l{Biz?pWg8ZjaxH!+AfJ-8vi! z0L(G3RuzOLTHAL8WD+}fv7i|`KDh!+c!bCo`9JLYiofpM)SIy&{~i>!s+>Z;Q& zvI0)4sZCJ3eaX)Jz5kn3Z&4z zsrtEx2?zJqrH<_}2lwhFJAhKJ)PC4W3xw z?=;tBo5F1W7~^NT0oNIkkj4#pg9enZ?C_9-;vIlDYf=tUbsbyD<4@jfUVk`jmSLFI zm=6owZ<=3=-KxyVGlv7hs+-DH0e_~A=N*+#YR$~x>Z#Rd!$fX2JbPtmhw zcm44!+j{u{7mgpJs^fZKcJgw(@7J5cH=af7rXOQqhDE4F%2?@wfjj!O5!1t_U75mo z*lXu7*JZw$Yva?AGpBVc#8NUJG1nEjJ3h>f91A)9Ve5$BYQlfKu z5X0T7$6Z!jn3;(MV$@1b>lrsC3o_N~IdH>ogXdFhD2mJMZ!bCaT?jnWJ8)n5%%{!z zA;A34Yb28?f;nEDh^{}SpgILu79h5SR~)bab!woVzulmdV!<4JrV2D_a`l=OQ#dpX z3H5(ft}(-$y*4*>fWRvOEoF*|wmSr&0JM)ld+^0YRf{pA?BI95rJywo$`=Pa#_Usw z4~Ofd@Lnwo8w|@w&2+z(JgY#JOP+y?EsmCX40{uvVj(gd+UDX4_Nq{eWx`9K6{tDT%6N0L5r7^1F;_a$} zVOA;%u(ZoqIn=i56ZJ}hC+9~O@|W2{xBdRKTX4^!Br4Cb&mmY@74AWCRIFUJugx|) zzAdDH^YzqkE*GZcFo6jgT4_2N+6_dAXLtPq84gm#iOc?|rRv;#{-`K!u2weP4#ZN& zv}>n(%p-P&`hD=|MDhi>{S-+U#PzM!Cf8~*AluG;fS#ngYAD)6pxTIj|MKw;7+H`6 z8U6aHObwcKe`rlw6#h|f(Kp{PQKzw7s;@synYTD~MJL&3 zgDe{j(?reqnT)F8pM!^I8aR#1Hc24vnyaUO|4@%)JI!{lb$$Oj!#3bL<$nL#n-OK) zwpKr#k=+cQz)S33_rDl7Mm)3tf**Z9T)E*R8Q(^#mnC8RA+~cduTm|NYG-?U>z&bG zkh0w&&i2HNzaSF~%3K{Ox3p-9@F4p&XVlL~CcNtn)$DAj%XYqJ1kDv642`MqYr;*& zCoCiE^s)Z~B6ni>qqHdlh|l0Z&4vG7{3or0a#0qtJpqW&oYqz%kd;GtGOAYo_E3$T z4@t^nTX>V0t^#UkA1tU?g%6frODp5SlNp1?TosazZw5AezS$&Lm~-Mr5FvFka^%DW zZOpHsfRb>UNl8b!26$?}r6tnC@%Q=N*0z7gY04*PmUqAMbapNLJE6mffZO#A_mY&) zfr0t{em;9Q4>+rAIVX4bN+Ip$u-?4d_77ktOKQhn zAqACU&+K=Nj&>7ng@0v`fHyD)8AsOIGkOC0TXIYBN`6a_^JL~$YD&}8BYC^gkP#BP z>uI&0dAWhfq60+@0zbg;TIjx~*DCDkOF^k+<$wc;pFx8{fpHQLEG!(8ByRBU1;6Zr zC$qR!XtXY_cTyzjrahCMRaHJLX!QuLlTq`FiMTX%@%dMhY-%2Z_gHkAMfELild}el zc)pk_0UM6~`UjPY-ITPje36l`{1ahu$DS&x2%v0U(DQd*aW)oKr{oBg?M6+L`xsP% zPUbj+{wJ3VJa;}Emu)jC4w1vwDA#IrR(>qtO#u6_+X zyEg9B+uJQ4W*o66Ci#CibO{l+P^Q$~-bgO?s@#5O(#kspqMQaX>EPz$!7kbF7Oz?e z&eoxGm%R`0@IuTT0>4;fE!y7)wc8~VP?VPFDUbNs8@9*%=eI!XmqBEQ@A5?M)q(dj zk&t($c3+dXL8(2tNqH~I@y+oOG%24g?f9K7qKU(01ktxkhpI2ivb{64$Bz&KRVCj> z!+0kG`DUO!k3SuMUf<=cdzIWCw-RAUoXeg`=Ru2pG zTgMk5KNM9@zTe3mncMcZBMlD=Tnr6QN15$ChNkA*nnzgDnR4t1T!|^p1%@EblI;82 zT^J1hd;JCll%^?4(dN-P7xJ5@<_)ZH46Fo->Ee~=fQ$etsa!SI<#GB;x978|-N08%c> zf<7=4Gicu>pftmg<0L@4(mfG;{}O3zH>dELFXESO%P7L?S-|?hdfkx{Q8u5WbGH}0 z;k5tI$P0@%UHB}_U(OI%-~K(qxF|v&7t?hwo5L(*8}|8>^zXG(i)wioIr?SBir_TScBj?q8Z|HvunL9ir6-*OYbeAt%J z1s`i~U6gecWQ2AsSnfcrM=Goz)EL4BFRl-8wN6*rJ%*Dlp7%PRRNq~} _H-l#%; zK@jyI8`ZoYJvP3VuMKKifMujIyYNO|e++f?)T;gV3YRoJTb5~OP?j-h92gB}a(N!R zLAaNM#I_3X!79zwZJFAN)qQ>3i!rhOWfOypSaaQ#UZeAbwN$L(x@RuA1-@XEOXb(i znL>!&kp2gw12}LwJt1z9x6`|#BqNVQhgc-q`P+fR37S5S{fW!gPR%boWioiBU__z? zr%o{U`RhYzm**wy@dx+KoSqxIHzmAJac9=~=4ez>(n&Q~FRsA-W8hSlHFE9F z9M;;~U-dx5As&Q-4jnsPpE~NW68vUQy<8a}d2>HfP#T^g)b)Cl=^d<~AJ zl*w+rK^vwSxi~5z)L~Ek%}Q{2Gb6#s{Rt%}r=oAMN{?yRFIbHPqIg&B1UugJf2vc|6bS6-g{*M{J{@>p@ZVB$miKF(1- zC4Sbf$OWXP-E0mBa_x5+mp_sNT+Ns@$A_O{NQ$1Ov9|?TK z*OA`2>oN|9i(aXjM0|DsOu?a@2c>*8Sqqu~s3p&Q^D8~Mp0itW!~`)5g6-a@fS4F^ zNJz+AEUeGv4Aj&D8X81Eljusvq<#rZ|b?dL3&wX=Qr8&OgfNFWv1@oiIo^f7bUIf)7r=-|?QKbUkAw0}o7 z$?1{c$qnu}!K+N~;%;97&3drlAhn4yK6h(-Wil}8Hm=>&G6)^;6uubHHluexm9r+T z-yoNds(`Pes)i3GwvmF~95pPicz-_`kQSQJB>JfLZ+34-u0x*|RyRIUZy2KT&?k}j zFM1Gv(2bSYF)#05D%>x|)Uk&>ew;IL38B55L#Hn`2sjLyKp4KZoTBG+#$4-^(GN8> z0$}Vl#yx4wpcS7F&Y%V#0)eQu+Tl-6PXpx21h9~=&Pla~Y#mOA%x>@Sg1H(tU~;B{ zG%a~UhZHFF0QT~8l`+``g2f@Z$3dGJ`8v3eI?-*!sylw_xEb2{lUA!aY`7}+nUCmC zw}4dB$g^jOr2-EW6EXRF3{>V^jd}A5dZ;N;xbHdT{hg?NencO#;1I7j<=rY^4Z*B` z#$sLT&P1ig5((}nWzxQuQR}-kIf%Tt?nC0!4r7A{daK)vmKR%+E?DgB7*LhrX(U&i zp)El^aqzu#pY5#i46^^83T{jBdzk_Vl5giYemZgB(}H7N289i}Gp+al|0pkLGJ*)k z*8{$vy!R91w3jnsY}%;G>EJt%U+Nc?_)jl$90#JEcsaOZ${^_qbeG-Ryd;U@-(gdq zxrV+#G7lJ%5(R}7##h7aJi1yxTqfn^*S2!2PzS&|9nDe$5ypf}OiW2Eh8SC0TfGB- zLjB|Vl)8oKhfqgWR_7^uuUpPvnWSe2l#S_WA5ocfK?w;|ASnOhG>K`jE>*|IHbNQA zOXmS7IZ2+!G!^8%tF2SHr|p8?Ztx%*CJ`hEP~qrG(w7v=1vFf>m-QAyDi7kg6ia|@ z_MO8tfkkw4t%)fXG!N|)G<!zIZ^rePwLmEaoLpRe8@ycfA-CIVanBtTiIs1f+=*U61|UbM19%4=B_ zm6WpT>Xc?ZSv(Nf*O)Oz+C+O+L~{x$hCI;_-AXK5%piK4vLl|==Cult4bx%AVPKOL z)C|tF$tO&05l7H~a5%>6020pxEK?sY0!%63!5xyJ)P~J{x3yP%yONF-`yB*e?K2*i z&b`cjFeXyI*3AV!8af^<1B1?BRE8(JkoP@p1XBr_zlWnpe-kmkHzm zov$wL!IWKZ(NvhIu_I}&6+%uUD%Q#sy5ZZ>JS?fqyJJ*$;_Kz%>>d>C6{QyY6OcTB zE$NhL6P;?wL%iD0{)8E2D>Xl2u|X-#&1v;Z%{-|6cx^N6;zzNm3^qB!Kc$&JT5GgA z3FX%E{%y(@Z@v6PLEGihp3saeVF6pVZ`!9n9in3^#+E`;{9(?`AUQ$?ezIo5+jJT9 zWqG3@&f_geg0!K59}iQJ+8vf@BOxv^=Uu1J?k>Pe`GFR&K-YsCm$n$2Ho+T!er084 zy#h~|=%^V~R{iwAxPbgkOtJK`qN6ZS*Aztrb;ZSM*~SA=F0WID4NUTr2p1D1z2FX8 zcFYKdd`2K6)9}n&(5tJ=sIWh}<@W%sHSE-SortOcECTfQ2l9#C&`rjRzqOaU>>bVYhD z`0W##M7?>>LuPo7tKsNm1d`AoAt7+^UyCzcn8@d5ZZq*gIMAp8%PWbck6}LysQ6#p z--|wV?=ljE8)-KZ0qpX1u(75I_LZc}*lF_V49!)za9jqmE~RZf0jA2t=#*yL9`vGaSOpaGyz!Q7=l3GZh{hf?rQ-!1;N2YXUTTo@r~81BJx_pA zBQu~1=6$oZ1Vb{v@)TL$ z+|7gdN^i@MNU(#VLm?wZ*NuEyW%w3;`DuuF=%J^w=6FdjB4Nj2CVjJb>~W&atU%j zDbZ;d$2R)3woPfs`6pLM$(`74AZ(hEHt>YDr`o%d<8(hHz#HG&f{!KcPK__FuWUXn zL$%?v^77u8o0}t{qYE1uQIXGOyltzmXRocT%^GZPog~Sbu6#yCn}5dYC;t&lp$I(m zN4cD+v_J2|JFJoA6zzb?k?!I3nGZocQw%$oNknGsExC(V4hKRo4c8DnGc8CeSI-m6 zefrwB_6?mXB!0p(^K5Zt**ihE%PLN}Cnm7=s4h>{87uB!f&Hdk(;SZ2-4Xr`CyBgJ zoCtQQ9aYe>Wk0v^jP9!>M<3Y_-P;FLbiGrB20hVjw#7;_e3Ev3ZW0nc0jD-M-h|Q@ z4ORg_*lwJEtrc@szSeF9ddB@2=btT+h;|MTx_*>0GB@vQ!F~dP&XrGu0FIclU@5qV zk0Doqvf_EUEdO=Qddz?&A1{aLManiY zVyvloRnhh547rbQL66*(FiX{3b46*U;DF z+lf*h{jlQ4pYE^izt1xM$Rm(9HGVwdxiQE%}wn;cEk$Z17MPXMsRC0|xz=ctkGxu_AcZNJcI z#JbfG$@5jYGw+Qy|12sgRWUXBkw0b>jvI`ZEX+M%q4)ziB$v&mR*M=(A9CK`BtVmM zTD(F~{&=`zc-caCAxby`n(EP(|K!gIvY(wP4L>|Cf@)DHvb#~lzP#G=s@pN;)GNHmpiWMqz5f`-% zjw>0p-vlK}Qjt0YCBhJ~5)&8qvg%x=@I&L5uKqj9YA$Etz}iQ@)jwi^BxLcN@Vwto ziYY0gkFc7^X>7nwIb(oLr+)s+%N8wzydt{EIcxiPVGRV3xA69OMzDNRzXFMdJsHiBf zRVF=IG#90)L{Qb1)x^P6oZ=%!@L!~HrEKx8tMgHv5k98X!8*!{EVOC*e_oTj-zu^s zTOriH(8VO#vKdZ&Ea;0Ij(ntVf`1i!`O_hP9eH4}mNAzjWmK)B74ncylO7a}=OgZc zSoMrLIqX@1a1tz@^;O&HW^S=1!hTVXAcrToeK&v#ebqRv@PjV5 z{Vdl!vH+gesFXY9#p$$*lEW8neG8LW2G5;!u=LI<5WCtc%ZB{D~|QDMMOYYeSc3K*7fjn2Mx$*-ChfEH)2>t z2fd!;;Ms&lGab)^ObM`#GX}>`2gj#Qck97`;jx%#4-&;7?h0jSMKUcDX8mdON?P-3 zs9J9Sgo(K9;Ge27fCt-Na;1E|>QyO}L{gIOXn5Xu2!s}>K?>TONWI$kJ(ol8<;I{N z^lrRHfMsnln6k;!;#m0zoC#UC1-VQ>_sZYTU7Zv1UI2@7HwesM3D>fd&;-1UvqE!I zl~S74f?GtEglUb-DN5GAD);R$#e7L0^*R80Kni2cYRW#URw4mZsK5}RmAg1f0E2eKU+V5LeISpp zVkP!g==6N1;ASFjvLLrpCR?U|323*+FC^qUQ)Blc`}Fi!avstc_hD3{oyhvmo$||< z!sVB=w*&-V31Y62;(T^HD1E7+pePmDdA;Nk(#^-K_7VX|`sbH-Q8yr~+ilXZ5XHmA zl0UGtYy;lpnpeT~tQ2{_!RNs-VAAQ8;maNqBJG_Xuko+M8!IvrT1uU_?>eJIo}L0U zl_cG#ElnNEf8_l=XU`YWd1lOlu8GA?IsP$z&i^p|ZS@$CF}EI>!_f)OhqaD;*U%<07S zbq4n`<i zV^2kgI_+zQWipafv^T@Z@U_9?imJL^ROi7d3z5{I2;YMi*Q4bex&0ocmcEX`Pg?u{`r~m6_0Au z2cmcFP&*b79-hcX*I!7gPTVK!2JSK)ppwp>LvZnaLeNDex zS$y9mgoUz5zp*9{S%-?etQ*z1b-h6ZB}^mn(t2=96|GPCb<01n`M`Z`Vn^M?btury z?0aP~x>{O*E`;9`x>!@A*8Mnj?lf;CA*>V;*gGHmD~y z#nv_CrN%(^xNu||P^f{6ukT9(AHl!~@WW4oJGOqQuPUj;>}G?-kY$b{n})!*QT+tc zWtRq;Q}gTBPPSa=-U7c7C7U;8s%s_Z^ZgAmJ`{zu|fKu$c5r9 z8$oz14wJS^XjMn$^EVx^Avkg1Mq#3ZNHgej#r&i4q9O$LCb#`t&8-`H__$}=w)9MF zz=h5$g7t8(Y{gG*Nc~KZB8g3*9shTzRg_g*voHTcKOT?8!_uv;KV`C?1TPFik&l=( zb1;?xHB9o_uVy~o?=jXFJI8~Ped2;&b@JxebGPCof53W~s3=xjG9!o7mXHqxPixBV zHkSCbYS`z>fB5hrt2rM5WOY}{$fjs76|VY5EHwJF=+-w5&2cz5xT*R4n^}c3V^dQh z9i6NZ`;BmtaNw}~i~;z3NQMnsUjBKyiXYQp|DJJ!{vHB3ip9(23ur2F08D+mIvHk! zCbcN*$z3YU=rCjNk`0Vs1_o=$jx-xa22i5BluPfz6mKS`@QYo%J5>=iC2 zb7%9IfiG~Pv9a-1F2|qwb70cv=H+#*h{C0g?cMMaaQ5Al^y$9QGBqtJlzAP?-F+$P zD<-O7eT9Gk+XXq*&!ZVMG8r_M;}D~7<`(7 zeBYm?2H-{+o#+)jJQ4a{YFzk3UJ1l@ST@Eu_>`SVjt%s>+Fx7U(i8y_TjQEM+u!*=aQb+ z8-{T8r3wRtClm}!#6!M{nFNyE4l39~*avXHv>jxjdl}auCenH&Q!$B+ZB+i2BBeAb^Yv zhIZgj@IhVOI8RB_rc>mv5=eG=)9x_O!26z&tq-ZuV54TE?x?d#ap~^uV!DpGhJQEe z6WqH{V7Zl*zk2E#H%n>+<}0KgaFi(pz`_llDhvQBD&F@rS7{o#1}tDLi;bLIk7_Bv zMBMjmx;N^(-EAC({xfa6c+qB7oPgeY4s`;1g?pJ@R)Muw+(D8`r^dc<)$Mt#3q`4( zdJ^!YIO$a7mQLv&9EwFEs&?6otiHq@mEWAn2inN7On$bkMH6PU`Y;0~tAG}^IK>DV zmLt_)hO(nL>0aRg-YA03TzMsAca^AAE#|v)0Y1S}NhRC&-G03N}NQkE3yjXBRC)Meb^u91ntbF@LS2oUWJ0nmvNawO!pdK z^}1^{QKUdsJwO&7nDB1sim&lnrg0pPPI^>P+d=unM;eW5xsl*pft%^QdB%`uOd=#x zkuQT&N#J%_W-zHG{F`;LV5v|1fRK9TuJ+RNJvRcacT%PR48KH`&f`!Z>_zc=Nj_g> zs*#0DIiWa06t4qUrKWixu%h_jfTNDHSlk!Zi=qYjn{HzdT717U+l9)8$ib5M7 z@qzWbv^0gOB_!IT2?mD@BwBf|$^uH?MR=NbQ>>_-%x}UyX_D}Xo}Az8=eAEIc{eTG zX0KQYhbJ5Sg8|?A*Jp%n(5l;Y*@MTO?gOo6Zex2~+N{!Q+=BMMm;Tj&S8zG`+|0Mh zl<4`2#=3QzfFOpROUn`cnO?aYP-g)S#EePQYu@oflh6Snw~<$&b~!1(;uFt+)=x32 zpshbgI=x8DUGwR_m@@L&w}@Vy4_!k8Kp!`*o-52@U{CjQ)LucnfTdQ<9xd$(7f2va z4ccCTMWE#l+DSo@rw`}4u>>Vr%x_TbM~IR6;g7XEhvMxD7q!eOtkf}ti0i-#%Z37> zztVubSXg}jn}hSsi~_5+x&0Qr4(mWBIa5%|9Ug67cXhw~fP=X4u;tfWgUqrPLT@WH ztj#lE4#8QaIIF6?kwE*I!qE*#7r<1MQ_`eK>B@cjtH!bU>K~JjPXnAK7FvJtQVEpg z03U_mcP|l87YIeb5Wzv^X8~FCgoAdeJlcdTE4Un?Zu>WwbQOI68~n2z{#!RG?u=w@a|VuDc>bO_G6a(%O#MniSHF!&Lk^~ zQ1U6qAOrxf&8&PPKo>SLuO$2W6$O~D0K_HK_BgyE>gz~z_YZp}Jt(Xdhi;7Sbybmc z)(b!sg^`{}pg_wP9z-M&#sBhC0I=I^7^ccjZuu6l`RcgDr2D%8K_si)TR8SVL*g6>F>GXrb z^9$@3&`42^!D_UCKjHS#v+1j7$_AfTj^i6|4aYeW1d(Fuw!0Z3XzFgJG^C>O=k$aM zBR4t)87IFJ2L8&-bB=I>z~p!P*-OSGzg=;b+^T@j1Xo{GV7bmLd@nfVirk0*YypF~ zsQ$xy%3$>&u^~W=U!Xh2rR+m>V;e0uE{v4W-oE0a7e+v;^6%r5$VMP3`5{2G$B0#a zfx_v@$m(iG4B+~;nKXST$BK^^5=rjq49gSoz@*&X8Hz2gZ38rcoMj@oDT!;#!Yc(j z=-Mp~6Et(}x>WQ(Ac3mqrvTBCj8`r}c%Lf>M^4m2{*(iT`d5y{oZI}g( zKM~t1aU-OuZT}s%>X2SLu3H^H>b1|4J50qj8Lm!}~pDO1GD^l2_2sY^Ru zxdZm7WahM(FcLJWX=$D8SrNskbQ6p-)$ye5d20sYsJPXDD6x~k1m$Obhn}J)mSkH3 zPGc9hrdW@e8)xA6yliy%tg<|bW;|zTEL39>pO`W4H~=Q7YL4xk^So8oCf=h4!)s$B{ zeQe&h;G+Bf>qXp3>5T*y0OpJDcE}){0H#8O-IJpsZ%mbJ$yIz=bKEf;2G-pp(*8p2 z4NTzQ!(!r}ebnfhT)AIW)WT`ZUDf(&$m|429@j_`j{`g!0$p%-$}v(^VJOJ~YGNcf zbo5T_XL2}EmE@WUzu`zM&OQtQR=NNv9!C64IbQGlsPfjNwm9CCt2gNG2jtwW9H{4v z?Z~cDm;ohpk%mVFHGbr8dxnx-Yv<$rg3P74g(ju*5q|47S9!>+ZZB~{DV{wJ`z1Sf zP^Gu0Rthx2@gqr!2v`vEKU(+*(`|!&3nPYI81m?gedwnFK;uYPcL*SOXV)BnV8x|c z=TzL8xp1AO)U{EHns>*4eP@4S1{L7VHY4A+bnlAmc^_Yj%$)_$lRHHj!O}v@{|94l z9TsKxwG9s-AV?#fij;tKN+|+LBVAIWG*Z$GAPs_ww3KuXNarA_bc1xK*Du9 z(TIio7j+P3+vkL5E1C>4>uh02j~XIA>fj#bR!uLj@!@054B6usl0qjYomqKhUk}^8 zYeH!G^k-{0&lXyZ<@8+cU2QrkB(o$EosY9d&?TilcW4VeagDp z@bY{mcDaKNpcYS_JfW8Hmn_k3(Ba6+%2EU5K**5w7!B@cYg}yXC$LGmVjZYT3lNZM zv#tK#&|p~oLPP(0DX0Hv@JJ@_rI`-r}1AP>WsB+e>KhZ18(c|GD`x| z#m~3`n(iCSQ(%D8=AFeYOj+hXF<dV>Lk`7K>4aGGDcoqsQ%G3Zb} z9j@~NUh6oy-50o<`P@p1v-<%$R_jIF+CuWruV?^G)TK@?bdV!di97~^8e)iiD~~y< z8A*greS|%KOn#uRE;2K?X5dJMmN}cKW{8v+uklIj?4s%5d7&4F>TO3PFA&d4bX&*( zR`N1DPy0+e(d_o<80%lZSKYA{RQJY|uTk{y&~*Q?6n@{gZ`mQt+}s4p$B%8Fx=nW2TSc35b!k>mmk(L zaQ=gD(A?0%m?c|Oy5ZGo&FRo*ahFhzZ^cYD-S@|J?p3Q!O^(8-H&q zAX*S~diwq@C1smMMY!k{#H>P}gpxA!{M_>#g|b-B_c%;GyE3W}2{#lBRe$l~$$YF# z+r*wXiG`8RWpzBplVuPK3{sKv zM_EGLXeo1mZ7^{o-`+6TcI6TiqgGW_h1_Df z58i>a*{}ZGQPxL%d?e!H;%dD?A3k)xou9`m?SCVurbdK`h2`^C?!_#F>u$&$ZTE=K zV&6};lC%JQY5$Lr1D@=^6uju`(T#hz|NZnobUkM)PZNLg|6$MldxSAzUx3wrAN}wC zN_ z_7fnub-IAgwGa&=pHJ$kt*woM-AQ2Dsn`#$7L62LzbOKHy?U?H=^6BT&#k2*3j_2C z0y>et+^%5Jyd$A1pP93pH&nc@g1aWEezu3LG%B{d5nTdSpeX{)TXDXvUssm@ThuN& z1`d5_LhgomD{=jsrVUNZfSacVnV-VFNB?Y7zUSy8g~6swG=GJ%!zIvI{D5VhA1{UR%o@eD9=k zSF|6~zHL1jNu2P#dl)nxem(VuYRi}b%Ns`&aOT`=S9~UV$y?}@IfRABpx)?tSC`sf zq&(VnFQ$rt(^q@!xji)+#z?E|-xS8n^*ENn#^CQ$m56X1XGw^5*`w{@uIAE+F8i;d!zz(=Udb_NQrXTDgQ1-hPo6_q*e z{cct&?zyAc+PwaCnEaoy(CS9?hbv$6-iMGf1QSy^Et8BJS9Q&&?ZzG%2R~V{iSvN* z<(;+!9gy|)U9>%rBxaoBu=fhIy%uEofsE(U!+hs@4Zjq4qsun@7|n{3mzTF*7rS*N z37Afqp)JQ^cwBmA$4N+!mAq7>-Zcupp|SBNLQ+?{_RB`AbJemq@X0c7+@M#`8T+nV zkx*jg6O%M_)d|Lu{({KkGIT7Bln>Zue2Wo6yvUz@G>NwP*p6(4IflTY5PUVjekeEJ z-2VG)?+eQ^Kf7a6pARujP!tvK{Uww$$Vfav{JlCCsmof}eQJa*BAB{~9i$}*ARw`S z!$Rz19bfilRh{aX%sWt4R(2MfrAw$w9iE+y-rlw)pjoDt%Brj+2gE_3D|wp>g`+j# zZtmw+Wr6cIvPVf1URp}n+1Uw(r^uP9=^0Wwx;sFaOcT9NN*YO5KA0i1e^=2;9^3bU zGnh<8^s1MfKN*fYLcteW6`v`z4GyXc)nR02H#58z7e7r@h|!)6P`%o?>wmlnfyjD! zMa2!LpawacelFrNF~JyjzTS6G#LxJ0KdH~a09#GLZaU_!|Iw-#NXeb*E3y!6*?o_% zVF}Uey^Oc5k5aU`uiJUp9!87{0fVU+P1-*etz4Z0i_q;T5_`pi&?{Pd#K>y!?Sh+$ zlr#_sN!|57zo!D}Ql3EHW@ZY)qXw2_5ICd7W zNPE)6BW-3^EkpX_?5r`pxXZ0#Mf9r*YTbBvTX%OiaD;d6_}Kq1(r752ys)pCzGRRa ztqO-HKG1>Rs!+AHeHg>u6q83wm%i|5_g%9X$jY02mquzm}+Rm{I5i99*ca2n(a^y?~2o zg>4kMsOm~oWMsL+jEG7S9|nYkfq@Y69iv3yn%yy_3uAL#j3{3{0|)XoApsK-gFe6- z*>9n9c6N^Jb^*8~9J^IZ{nX{kZ-tN^Qji3~o5ZfeOYJ2TdV3>-1z+~t9jz3$<&y>D zj(7}D@0NF0(8ET1|27FL7@9oN_IzlcDXg}ZN@?J(T=uYR_Hbr#rPgeh&o7cGdlB%z z!?BhqCsm}?W!Xh=ytgKIjWIb}MoLvOJ z>Jq#}2(z+cj3iliYScG`+gV$0y3?iH1o46CIyE2wu}PjK$ffu&<||B1@Tuz=OK3zV z)At`g$Vf>^Z>J02L6Y>z95J&o^ULhp&nv5%!X~47xwyDG(NNOo>KUJWIq#gg?<#_@ zicK|T^#_mjO3_>d(%W>>|AA@GOKm3|B$wpYpD(GYQ9x3>{Y~Z4@z&__ho*u4er)DT zl0T_0JabVmT`5TVCP2`+=_YZAJ~~m_>b1lOxaoml@C6+6t`uRr@;Cjo`6oj6XrJlP z-YKPSI^~fC-C`K@4jml|kd%ceQbg(&%YzT$G|!8)ZMN=AuXNx-ia@^zeWMmOZY%Ha zFKvPF$D5mXa~qtB92?V4G+~K&)${&{@R1#f}!W|EkBwnNJR5D^vyF78S}PVpog6LUneG5 z0O`_S(Z6&h(O?pHTig{V4OMk?fYoh2*WmtKRaG8%9wlYv&*|wz03E>E6iHTD z^kVc_@Dl~Cot_i0g#ae8H76(==z?%*sC3WJ#R;6CbqBF!jLtuTRZJN zuX$qo4_O`q5R|7HOzP>%Zw4@557CB(hIhYu13(|zJn;q!qLw*x(ZI((02*molRKKG zrm=FbaNOM81NZkR!+7fq$tLE1A?D^5#fZY12*i9&OX?gOoSM&>fv6=VXaViM9<`%& zGU4(Nu8U;~&NI29JCN1tZG(Tg0J_B#;7Gub#9b&o_b4aF z!)yNxhA~O62M-AH0ncj^o*n_BFiEdV)TCgc9U0=J^{M&hN31)sE;r*ETS*EDLYS+# zm6I)njXRJ!cJ+yhZ1q8K%dBsyu}KHexD`(>w|yGZSX9)*$!1fcB->@;S9dM9y1FV0 zI#L&l*R7c_#$UgG|6~&KIb4mNXYbvP^>?q%&hG~1--!k{AEEI>^b4<5y~Ca9I=iz~ zWdl!+KSr87g-AoKm07JYZuY^~bU)I_*h;t%@v{EW&S%-tBW&D-nCX&U0x|UBm}zQZ zEQ&E^lVv6lda!_r{5|NAO=AahV41cS_XBBG%cMFRS{Udb?G>K0?8_2c?zQ0cJ59m3 zEkz^E=ba7E6+nD8N0bY*+3c+_EFA*4KwhUs;A9K-^2aP%Fro0=HG)KS-e-jC7Ke1& zVnF2gTXT2e7VvkK$YH;*4lyu{(>&)wzecmgy%-arCa`#9z1iy=kCsyI)7WxiCW5pP zf^4sat`vIhTo7XRa>@=uk7WP%puHn?In$Wp%LVi4@7~w@d=8pC=ngmI3X70Y380~Z zPU`;8K6(Iv$GQg zwo&g|A(gh2RpnnUiLV(aj@rrcDaDVmf73t2nw*|~sJ$?)I@A-1ueksQ5fIgBcfDf0 zE0Z`#K}8kiJwk2o;1K@tqdXu|#^W2eAC|NHpZSZJ5RM$v1pXeBNFAM_!C`R|6O zZh!a*0XIH@@+^K>$lAu{C%`Z|!wgY-MRx7&?K;AMe*0Y$RF^5q(kOB z^Be?Z%qx}a<9B9&RqNKq09f-I2ymqXhH%=ynt zj``?MyEdCxM57b|aWu-xrZk9nyWI?uOCoy-wi2C^n8zFOt5oTPq<1`s%xrxW!%%f|mi5`v4mg zZ|qm6iL0scG7gcU9ZWQVU3BDIwFs}R9X%B~21E7m z#01+sqPD8)w$un07fcCV^w11YF)TrNbF(UBD7FsLMHo z1Yy`ddf0~l!b5+$q@X0YzTml#DaM8+Tg3?TJw^_WyXm|pwt92E*pTAtitcuDdVSBY zkKdP2J3D*l$K7@ir21wD@ zk5;lX>y!h~q6m#C;d}lre_N0C)Ap#O5Bmq_dnANIpobn}-0tlTxjnNsF8BH2SbxUW zx%0gN)ZV9^IKYQrpwMy}%Pf_f;^8;PBfT5i^7+1l6XZMi0tW`ky!nEx?_8xW?r$ZP z5|wMwoSIr%D?-=a+S*?gKTZK}Dpu`oV37PBxLN6Y`lY&khyGNMR+&$Ppkn|+AIc`? ztWizs!`FhR&bhp$p7)7ge$1)zH)Y0woN1CdaDE1*aQf1vjK&hpe9J%3lSBQjD_9@b!~s-`Q7GFSQ8KJ0}bC$E{NUB=n*Z248c-!=3-SdCMA zbC<8~NPYS#53tRHpK5++aVBZFE}5Pb5o^&Xzl)#OU`v-jfRr@3Par z3Reaws7%9s+_P!+l?FpyZQbQ}9ux!KH18}riRt-WEiElIiL#EW!1T0&r0W%Su#!$; z%a@g(($H&3qKk=@l0>tbXU`Nc-|x0B%?BvGT3veQ7q0u|%@lGWiEp>`NoIA50wOLa{XL1WJrV7CL}La>2cEI|AFJ^4H&s zmo^l$mqT5ir8CW0rY^OIX{AOhNet_*B9XEW0ub*cwI)2Mv^+hPe`)A+UL7b6d5y-gfcUS<`|pW&OZE&i`!_1 zPnmL2FAg}T-1PJ*%lhbj=!(U%X*?Cq!AKPE5>iH*w?(bxYe)_$!>_WFzzpIrVxsp? zmKekD1DB>|`4O{?3BDSJ`!euFjTYwCC+XL4e}8{#YwLGKzO1mB>FK-U9wEL9Bc~d4 zUgO0h-E&fwT#rIJv%6k~uZ+6=6WzMBXV0V(Q4|w9`lH16@(JgQ^h() zMaht%3e_j-izQyZTriPrQv0x1&V-_YSvLGDiT0KpPqg0n`J4J=I2E&*n;mlxO^UI_8d;_^nAF2_jj(bn-dM|djy!&{7QG?rPcw86HeGj)XAEE zc=cUX>L`P{Mf=-beZdDwClAa*jI4sGB`gq1FJYhdgn8`;~+QE zR>|vhvhlM~b&KM4_pOqj4x(yp5tbh#84VvR&kLn>t5hR zC9qg_G0OPUZz`I6;kuGeL*s8XMzKps(9VGMHtZR`%Pvnjrk_L4fv@*mThjw|I$}mf zUdqQJ9V%%w-w5_FtJt$TKnwXB-VQS6UowFOz1fhjnq#=L8>XCo9*55`#2}0AaVscw zZ_L8L%L_DvE59Q@RW?BnQ{`+&2@DpdTa0~(@moLu9antDQK-&lnLrLe4Irt-H35H! zHR0Vt3E~JbWI}z8VM(aYm*~4oT`pg*6bc#}=>W9)Ok4X#S?OI>-=QMBO5pWafoA!6 z=Y1BUfY)Bo6TBR{>#@Cu^hW~6)IQ@c799H?1`4Hv_~9-U6$=0*0a$t7(0X-CQwibj zbDNCpmf(-fObD&1>4s(A-QJJLK-Sl7Bon&k-ni6J^aKWFCS(-1QGf2wC)8 zM9M_+#woakcmJ9A*-kwaQAEkqx!UsxF}GW`ec`gd18eb}!a&;P9-Cy1Zhcc31Rj2| zX2vl)Z<1~Ve<~#AqFztE#!EjB z(I%mjwawGK50(0#oR}i-0SM*S1?vfaCLHuP835`8hlGGemA_;~m6Cyc%1NW=O-kiQ zTr4UZ!LtL#54c%&RoI&EFUX9XdYnkJo|w2-=VSqGh+XH>sZ(9M7Oh0>5w@(J7ZRH9 zQxtWoEy-xVpxqM+&sXUqeiu#gQ`M9N5vy?6|HggC1=+Z~&=&rVFNN6O_EXw6eS}up zYK+XE|1OWL;2Xm=Fzc^9{RLOoVWCvH^HN2t=Qk7mE>AyP*Y0PTWdj#H6)^2Do2Yjc;m&UM}yBPbW^&Bn+u`bID-(3zmL z1tPLn=*zLfFZ&OQzjt#3=J>6UkO7&aFZlYxxAE{u3H1y2*@c5)!Nme*xjHbYVDrzP z*Xjf~LTW@BC{Q#XMZ2pRGmJPgy>>@go2Du3NJ1mZ zYBAZE?g*g0kbNbEgiy|xs?fi@>Obw#dwJ!()P@~Biic9?B@bnwmZ?TJxDXMkV%Sz{ zc-LXc;&x&EO2wC@#$kw$kM}g6;I`L!MGHAt{6LKH?s)T8G48wD9P+qI7|+xXfBwwk z^n8g?I-U*PKd!%TS;z>0&4`Ey$Tu#t+&7t*&A?vzed2TS@^F+BxG^ByMm2pa6y=IB z^gkQicOVct5qk|cG(h>8Ctg22gdOoa#~qwu7amimh%@Mzn^U7Qwyfj1Gr+uZAI;Sr ztluG~^D<-h;CXitt0}MGS6ryw~AW=1ZYSKc-y{?W2%dqUSF90 zwlp+I0OSXZC)qqMWC8SF71i1dd;|cAA61o6oONFB>v#%ZKg`*7zj-m8t4vdV{#^FS z6O321;$*~}_r`F4kznQEzrWe~AO?tJv11w9gc6;&i|=vmZtFeOO)!&$9s32aQtPOS zxQ=iIHSS%f7X`SF&kIewQ0FzS3jmd1?|4}7O4smeEe~ce5o4^F zY{oJaD}o+*hk~lS z+}(u%6dKIy5}uP5foMrXhy1D;bCQUMRB$mPHF@44nYbc>1|F zUETZJm$ib^rtLkzCQ}Yq_>Z$6bWC$8&FXl4T4RgDOX%Aw@M1RF%u|12O8cP+^Z5%u zae!UT3DyMFc0Y3r%HbdS1_|DLF>^y)n4PEDeC2uDq`tn~-!Im}n|DxzMXEnKM@P$C zAVhp^0n859^b{a5lL155#J)xHr`v-S4!8_gV}yV!@&(UJL~L2(rD@E#t$XB)bm$11 zlJ1<+=Ni#rf;)HG+tk0jvsM+6o*|N~txaSwzITXG>^$=^?%;X=w=+_}=DJj$_4+q& zKQzXQ-`}r0?9>s}v$J0{zhjJT-K=*B2a7XGbh(zXbXj(Z?y>11Yb_|ObuuYy#HNi> z(3Zl=2M1}XpDWgGs~PEWm0h%A5!dyBsgIdJ@&S0y{P=NdiZp-v?Gb8#Ah`nw^YCVm zX2#LBxwHPZ3n~jlcWRo2c2I5qn^_AH7MpGDq&DwYXp^mE6}DN}`27pSpmV^N|HO^- z#pBy|M`e-M(8Y}xVqeofazo%*d5>gOG(IY@P(nafKt7B?L+d6FH{GC+r2JR3^=nw# zm(+rh?MW~bNpdMuE(v1wbsv1cXUo3OKo6p&cl2SPxDMv$xOb<24c^h?euVMbi>$o~ ze2?uscLyK8qh~ZI2-Dnt>fQdUh2jUJemneY##FB!azOUTrcHm|4uA^;zW@lq-tPOZD*P=8eCP~Sff$&P=qN6Ly4f97xV2C7?t$O zN1ro`OUu?+C#=anvIMB6)ScE>&OWTi2$M~aO3rqMt*U8#Unt1*cXB2rY<|V}A$K=W z+|7;dY)^j7Qg-DPb9dPsM})kpy$BuX>e^|(G4JZ{-Io06v)>#R#^kRr%#)_3XwnU0 zq<3CVJ0pIYz58>eG0iYwTOFB!+pGBE;D_Ob3C50E#$|>Ift=g|MMD#NfTURGYk}mB z2z~2x;@1n$xMXA&oSRbPGB?7d@(H-$0v2=5le@f9^I+D?xSLUBYYT5|Kg+vufLZ&I z?%nxd`{1gKu<&?ce=brTHL87au+Za&iEpHv<-ak$hQ3N8K5cyL>x4?|g_EJm3W%q} z&paII-yxysDBM714nwR;mo=plquRag0d&rT3#7-%2S6pfmU)N9 ziX=w!?z%ubk+phZryjR4Jy41La7txvoiNtE#p~omz#wrqFZAgu zF_@?;Cl1YxV_O;?+)DXIy7idD=g9z2LZ=9kS<#W{EGEo zJ4s2@OZSH~!l5N%`8_ZQ9O)yLAtT9XSV{?&Vf`{qXvb(BTu2)*ZE$_p}8KQAlEWJ8;p$dUZ?0mwp2vm zr{LFe&&5KhnQsv+W-%AsEwvseE0{JkGWD}5u1NsJ4oZ1TYnJV*$1)1OCfM3URbxJU z$av6E81#$t+fyQ0%zJ<6e~aJy)3+b{=dD2FA3{*^Tf9GK;OWb|N5J-Ij6mP zCV`d3YbbvJfPzB8#(LEla{5P0jyQ(CkE~{5$RBFY3K{mka^7O%4CYsKgrA zWS#Tgi<&8a&11T?u|lmT-|?ucm@IZbQ*u-4Qkddq6q9iaYS`avfpSzDT?_T}kTo~Y zQig*SEY5T8lQuHHqGO({!|xfv}<( zX|7P#{IZo3I^E>=SIOvklO9|>|AH-pQeF#^LA2(%W zutfd+u2g&W$I5DlHy=%@Gl{}Jyoh77friA!GAZbczc}5SD^C9OhOT^`{2(GX8K)%t z3EFTW=4W4pPj{xM*%M*&lO&4vuT-#?mnV>0CzMix@XI@XeuMH?u9YY91k3f^!Ss~Y zjVD+TJ)q!$7l9|1ruLBQ;Ys5yUvPJ|_I`arCjRpeHyJ8Me3bDipz`UusU&>!$mwtc z{WM3N=Qe~av_nhNpmQk4vp-n4*Oy{!te`fzyR&_k>MC!q7q4 zOaR?-W;vsGEvYQ-b@X7R>tl9xb$naf(^A$zikrL1v-=xQ2?!H$78cS=xP^m<@B*Q8 z|8r8;WUBP)_EPJ+srB>)vl++nXu=}h+SF3wqCd3SyM?d?M>g0(dC%$UHfhf!L#awC zZCg#6!{5S+0bgt#yX2YRG)c}Rc}1Dks}EU{sM3|ZZe~ka5d+WKrikW8t6>Jg#N_$DsqTmY4*qvtVt=ngMST>mSvO*$XNE1NRw60n_=~ zPB#DB32&Qa#fM(^uKa2$=0RRUy%rJ%8lmo{i}1>pt%vHrWM62!`wP#AjKsH^^fSWh z8+&zBjhPA2aO$MmfSR9*2wF)UC+?{oq(X(IU57VJqkYs_Bz-f4C!wFw6)cnWk5qA3 z@e=l~B3Y4xx6#5vMT2QgnQ7>$u8Z;9-=znFZBSK0-t&H_Lfzq&dh_sxOwFPHG+kDy zBd)1*-LH|$#H#!{30hwE1hwa$!zqL4FRarD-~-?LUAud{de>%r1wNqAm%IiRMbe&r z*K;fLm2ZiOyV1XXTtYoYi7~rlnf4owN0c@1hU7x^ZC_mL-MuRt=>73(t*UGX?Nnpn zdS$Aq(aKAHX^PgntM79~wIWT_S8ay*zSe(Z4&K0fu!Fs0%mTqaUlXz`LsQ)cYHJHk z?xnjEq76l6rLAu&4^1yl4`(^tBL@NbM#G?YT}MNrAokq&(9ys zyw6UK0UEDgm7P;FDXRi0<6%R&>V&Ujwvc`b0^D`Iz7DY;P({o;9dlzIIEQ~Ut2ewf zs%hhNxJ_HWbu&S~btwR?|DkDO7d-D4YyOa72{__7~MJkB)0w{Ajr5m{@D2Vnwkf#OAYf5CQWmV61F^L8;vil)5mRX za)Mkoc3*v5O_Tt{&ogookdu?<5>}%WKe!EvCYYYGR z5l;120?J)~Rr9#CIJ1ZXjGW*>qG+2IBoD}#E`e3G+{SgE{;=oGh~(Mp{HUx1WhNik zO_m9pm?ou1QSxk~E_b5Mxk$VL*(V|TPbwZE`KB9s$!A{jjJq<@B74ktw^);~d%=E2 z;dI1hW-o-u>J}g7zZb)ow}WyDIV@779@ew$Pip?{X7#WRhMt7L|Gb$yK|jqljd5@L z!c&=tAA%;#1FXD(^Sx~_9q$|B#G4&sbvhbv`R|04>JdROHK1~^1P431XF=1 zF#er8$rSeet6D8d6vlGq=J$YD0~Y0nXZPzp^-n+VpWt#|61myf55h`ilVG|rGjv?l zP^nAORK6>PXzHJUnq2^skq5q1`5|A3zg@9Y_Mg9}SS>?(SB8bflRthO=?|^;u`FgI z18jpu#1Y)1YTv{@hj$Q^PFEv}VdS5ao-B7nBy>VZJ|~$MzVc|eu9uhSvZyrhK#cCO z6k*_RyPT2s=KQY5{=vId^xgz?{2#oUlSVI2Stqu=venO4E6gg(PYcU8Z+rDeVT|AA z;r_A5)XGz9sxZB&TxB~MeP9|Vf+BMS53kn(@|;ep6%BEVrjepFLYD-;ssKWFlstyF z3KTZ?<{EiM2Y&y)_xQ1q;FCmdgQxG`i`+b{PROUUG>5`;#u=j2@9=r`bjd#>J7{NZ zth;ANbyht^7?MF{wv!at*wOD`wO>dncf7I(PoEQHKzF}q4eF^H6~;|2oR9s|_kQs3 zVPyCB>_0;!PYeub0GbY&Mi3H`N>VbEp1c-L>Fetd{ucQ!7eM9x?sO-pjacYp4McH2 zKp0^jyVLSuT{L+Q`Vr#=#-Csma*q5r0NN z?E1=VZEVCqx738Xn{VG3?y(}9fB2V`a+ zL??XGi3NY#z3MYUUj}6k+euE~etgvqK0Fn)>Yq5Xf*57NV&$wczY4)^Bg)LY&Rx`m z&|m>!7i#jo_cvlegDPuM(7~)g{cFY@J=m-M>1sP+tqFTSQ=D=N6iO_Ztu^ENm|fWo zySF_Nkxv1=&&(VkI`1hb#S|-T>%B0DZP|4|b8u-qxPwNxZXD5=mIQDG_-{;4q}k;Z|b(=0?EVSEK*NHF5%m_DXzS>nQh&Jk(1vYtFtew=X)L4a<3;zvAyoUnp?Sp9ilj|Jb4r=kH!pAfE^~IJBIDJ#jjHQT_+n-eo>8G8l7w2 zO#u}b2JH-IFj*^m7-@U_^MZj)&I;uZ{J{o|Q{>LUF2h%@PO zlZs{9+>yEcsw!;eT&rpfgN4HB{?sDohnXKX2WOU2 zC%Q4d6z_W!Wsq!J44=iAGt-2N`CcuS6clWV-0KP{lKBMY!1DD<(_qO6 zM*_zOq)Tno`6;epld|7c6PsCiKza$Y87d>q_g&udMYR;mbAY9rq>M{ zd@BR~g#c znY^-3mGhcdrFjwSH(w@|ar=^Cs&>fN8dp?qt<7={WbZNUdCwPwx0wE3M*@a zxOnB)0IwbyG$D4SoxXbc<=G0zzyx-5JnMlODWA6Z_3XKYEmf#`9X_=BCBCWdC1Qd+ zYT?Ptpv%J3NUBcxdnu{awHpQ2_%GMNf~#ho%-bh+eUpB6WfQTYS$}ysmn|URr!DR! ze!W?Jj8>QK?|P#2IFY;*-*jZI!t@N%(QnI4y1Q7`qi3j?m|Qt#pm@Z7B6B}37mz*d zJ?P6xANwg}`2s@b?e^&GP16G0qm&aVLv_W;YnXvvx@@a*zF2+?z0yWb#P4g8og3{) zqdAS@K~mer<4*xt2`{K}cw#do*DtDFYF8IxU5NY&anNhc69Jp$!I}ANU zi*H9u8?Q|Z^rs}6_l=vkaae(@{_5)MP-4B*T`;xv;tnHbQgd+;0Cb?6&2q&raSRve zvTUj!ol8^A^S=O=s(CJ8dgjA(G6P+oUwH1t_!fVbzrvA4od$rE5YKh*4AZs(!ZXUP$ zma)sLZ@q$(Wr+Gg@Rwzyv%cg}nw`?MjAwbT?@7q$)&tPwdterri!}9FkYGf;eiSv& zWNC2CT?3ag1x~tB8AfR{=o~!Z>Y!Mu@>ur9^WoFD7oUA@iyHn6fmrT zBXStnKz|?>LX1-Zp9q?y&lj=mWYBh#M?-SN71qP|!I5ahZ5cFj(4cmr;U8E3MbP8X zU>U;i3i^Id!exD64Ozc#jFuTohPAwtNL%eo>kY%E1f|?nC!$BarFHJAJ}n?Psd3t4l^fVdb^2v+s)G z_Lzw*;+e(Ww}L3&4;)>wK1d9Y{Xr}+`gc@O``Q%6K?zl^XQEn$Hrl{sXK$`W2Hoh9dV$0{@>U6?XVx1 z@Ce9V?w(zbOh5C!FWlJ7yUy&mjEo%-rW>hbif(~&G{jN*7`n7XQX)f*LLD`D~x>$;E{>K|Se4G2jd28r1;JZdPU1iWRB?XK5${!!2u}b$< zdzRg-%>ATzS-&wM(dP2l%Gp-e{Uc}V7QOKQ>vA4R5;-MxOo?v`EWI3;+>IjTik{5& z@$a1y_nGV7onOzKq$uZ%8jUBFDP{H_Rizh8Qg(9_DvKdHm9Co`VS>k{H$KIynkj_A z*j;@obp#id&iBa)(4?*eYjSGho5`ho%G!Og?d-}DXT^rh@C98X{fHJ`(+rq^Tf!Z~p{oT6yYzA5Af}|L@iJ03Ho;AZ^?QRk%#5b=&-~ zkO@Y((rp|w`BC_RP!N zQ-&m?^e%M1ZN`!)m2z+_@eKzA2$?`i;3vYWJL{rOT9BTe9>^53y+5>@|BAO#>WGP) zJX=b}4^`FOVuZHKF7&FujMd}%{rh)G;}+9~{Pji)!XdY+>MO$nx^K)g?`p>p+iXVE zbT4moR3!UkB~IaRLMPTnqSoH)Y2m}ik$+HBk9nn13a@|e|Hhgda8{p*o*2X@FrOxG z6iRc5Rn>JdaY!nKRv@79v38S-XqqE{&gvl(!gS z8*XPy@Zm2}$WK|EF^4UbqtxcZu&0a~cib7)DWo?~8qEV+U}DD`KW%YL)^6XDD4}ia zgPw`uh@nL?N2T89mSs0h^62P2a^rA4I!f|I;6fPV%P}=cixr)EP_{;yFi(m)Lwt;> z>T7S2*RS6Vj<^`X2&RDf_Iz@3V%zIw0<=`w;bFijc?xp&6~~Ho=ZA9>6ADH~blHlz zOD^s&rL4r`(Mje&+IkZ+%mq2XR@jKG18YsrtE34?6-UCRrXbU3Cf$A>rm5@7uZV;i4{yt6I{d_|cgu8Jc)MZ%sJ_ ze~jv2-1xpX`o`fR)2?l+fGB58gC>pOE4$f$$T*tqkANUN^e;M$v_+`3kpm&FZjd zJO%0u4g!gV8>)@XE;FrrgJm$A1$HuH@`XbGz;d{EvaSEgvk|{+a z-yLxZ^i6f%kKHBLhGm?sDS$0DGetcyU-+$R3Q<8uHIiAkRjEDO^_-Nj7`^zvBr^7E z|G<>1yI+#L%d<2`piv<`IsPURuV~VAnEJV{S$GZ4Z#)bqw!7YDwpCFN4l*Q}lf?%Lr4Q`T`D#}}AGz$fJfrkvgI z8mXL9&Zl42eYBe!4DtT}>rD|9I47vJ- zzANX>HI6guf|Q5SmB)h#0EG7;AC%o#h~_6gMlxAn&3CxoTQ^P0AT`hgW}0K=%g->r zjXwNPhKH-sKX};52Tutv;rLD#)TmQJTez?&7O_(7Je~d1c|^!>UtePI+nddA!vtx9 zDVhA7!QHqnh(Noq97f-C@$A{|+%MDlZtpznyGY9_Dg6oTU?`dPR*g>D(Yz%uFHgXJ ziVv)61|R~q_6h~i36BS`lEO#Yo8=zB>lt?1LrK@|KxF~2^a0F+?#i1VZw^n(Y2N+& z{xP^U9i5$|O8D}tkx*r;4SoVu(5A)09O{nLTj9waPl|~`i_@({c^(~&V$z;_+m|DWHA>S zV^@$N%}?CS^A%%14b5Les8m_PQ)8Zx9MejLVt>LyKP6#PjOmyHV%SETFLt%9$W@B) zbVV?dHhlxxUHOWp9Oy1|bP_Fj9%?$6C@JBCXVlTvb!s*1_jEHiC&zjxhKh;x(fjZT z_Tk%I+`nIX)55NoxG4Qh6XM-*kxsdAI{`s(tgRb1=ldy6NWZr9yhQME1$aX1`v* zX%P8WsCNG^B!Be9i^pqxT%hbxMA56`hu0piRirtfe;LQk&(ObOJB1pFb}oz9wWrm2o|Qu)`Cem3ysq@!gW zCBu<>{)iPGV3>bT%Mz}ZtNqjT(Wy*M_jtBQv|cs!lpEhn+pIc18DAf4GD3iW9jJrG zo1C2d+R92(N2hahI9pZN{Khr~ypOFx7Wh|B&wW9`xMrU-kn6*2Wn!Fb55HF*no_<2 zI2KI^`y5WTl3ITqo6iflNltC}MM_b>E?ih>wBDpzc&C57aks#3Rp%4wsw+}|)+fOr zf~N~Mk$5|$@MhN8eXKrFb8KL>2E)|9fRE+O+xRneI`!HLST4oK!0D-e*`$o>YWJ~; z34Xf?g5&ta%=zoR=2%UI%v$MIkoKhp>?&ZP)f)kvC@JS->xe<%V3)r!Nf}xc#e^Ys zN*@U!@Tz*`Vs~*;%;t{6GE*F!8^Rjzj}rJvIVT3~)_MCDW!chlm}+&yW&__~rbO_l zj&J)yBw%4ZHfF^*ldo@!m33J^XgL~;*U&4}<(tq+n5i3az35DWa=Gx9=LQ}@Y6f=3 zsWBxHK!JOf2TAM<SuXP_Nu5^bGd?S=JvEXtYk{rFZO6V!(HAYV>>r%ed zrTLaQ^3FsOUxY3d4BZ+d&aB#Ax-faHaeIho=Uv(P3{j<|_afRt(!uK;^{U_K!AN`? z^Nz5s*}TH+TcIrcfI-f@0v4XThgZNJWCCr!Zr5OXy8KUSY-YqkHnv6x#Dc)Ok9%5O zUjFrsPL0Dh-&K!)V|YZwO0Mhajmw?Au7Cn24$j0`%!{`{W7~VjLcsq8SWyc&xS{9k z+|muNMf8)yR32&mb1V&oP;}27_!oYp`kMZ~$;!?mc9L)YN@<1A2g66g0cPzF zXoi@>8h90ZDFPdK$EWOmBjyiJy>)q;c?^oI85x*Za}1P9OA6|fA|tUG85#5Q^Ir}Z zk#%4{*msj-1=Q}j8)jHU>$APRG6kjV7f`*nEL|N1AXK2Ku7!ooS$GbtD)?sfp`a{@ zVG9IASwMD|{IEZXQ!69B3q1W_0%dlC3D(}v*ipGhX~qy)ySIN<{yOb1?{bSS3v`EL zN6|4-C4w;$XGJkZVaC&K%Z1l)O~ExL-D6F`TA>;7X|Zao9Jog|75olwA{Qdop?1o? z;X#x4p6jW@dz^KFex@ddrA$1qeZR|DaFiP3a2oyv1Zfx;K5K~Fp{TTE){uqc%=GF( zbqe;W>DC_9?OHQ^#+kut{bB#>bf;V7B?H5Dac+SKz|Mq!{=D4DUCX|If%&_-8lUpQ z-p^%@EaL{bRm1(~6XL$QICnufka%idN>&!z)wS!6&DZCedH)({x_R%@B?~({Izhoy z0G7S*Y}y3!X#!}b0P=cle!jn%7a4^w;pE$8hL#0aJySn7Zzsx7PPhomt42iTi=R&t zYlCfH78Hr|A@fB~o~Pa&W4Tu0J1QeO6B(FAL$K+ga7I;o-^>Y>yQp!IjHC*r{Mae0 zU42I(t4rfx*1FwlZw^G^;-VBVK46gdAD8ZSu;4;40jxDBGB?~O;vYqI2P z!i1gb;3<<2?bun`CD?oRgjuzIw^R*<l;5>^+T5CGy!g*^$J@*X*XFy< zJw!IJmBK)uVIyPXw;umQ?Qy59b;-#ihx+%_U1?W1;5BpUT}9AMCL+!=6=h|vj!y69 zM3O()tDR6m4&?v*5NqERVI_Z-estj>$MeiKXoR!z5c<2o8g|9LoPL-x?(f_7ri|F> zn&8+0P1Efu1xXiSOsBDT@z;q28n~c5^vo9@?*%GXW7MF79~=BxHmA^~7XFf5WFjtI zw?_HPQ3SnRt(_8glVW^sQkhjGA}=$ut;4|9!s2JHEx*5hMsG83+1jXM;RyWVOUktK zqr0X%f$`sQ!^2+{Ksi$P4LoRzvna1{ok{Ys?47AGNkR~xp8Cy1OCEYwa7$V1uL zvgPla^j00~}@5i6L4yS4{iPKj1 z{)&%Uf-vmb?;ko5%uQm-ui;~5xP$!@B(!VS`_BoZ1MSy`$JGa?D0*sN z%~bWgvZwOH3ZIfx;@DJJsWE2+f8%L#zw=(n8iWzn6K@p;MfLgvyH29HP%Y{B*`Gy; zle&jg7Zi}#yhh|dN*+v|Q58I%k2z_hy|HM&w<0T$~U|^XfN%OR0T&kL;-$^4$3=<3PmcNc7`Dn<(etN$I{9 zL5&5$i}_DA&Gjsa^Zq}qy4j_czL?T4mwR8|vcox)8JX;chU5~RS}R+O`{;)U=*nKc zgK&$D#nQUEDSCv3mGx__{68z-{h;pc#{dP+#lsVukrA_Cmj|+)a~HSPr(Ql~3wBd? zB;OOK7k(T*1{EA2UZkY0U0707sO%rxRJm-YKl5@jS%>2IAE&$Z5Xjel1cmruoVG4- zDFA87m3O0MKHc6()qy!$OQckhoRZQv0Y#sEjmzU~QdWzKL`%Mm$A&OjjM>444E!q& zvJxK9n&m+BxJM(b-Cnv{v!5+>bHcxNj-aDXBYq%?7{lhpKwB*aqynJ-W@)M$saG*l>L4ySWwEK32c+*py86 zFQ>Z{{vG)ji6hfzduYn{tU`9mzF6zyhYu!G$USoTa(d+k?k{WGbqV!5Uc6LP-+oUN zhkX5DyRaCEjZ0q90>!WaYg$S^Utw9<;ZWva5?Jv{i06o*K89A+3A{p4mtR<0er^#z zl#P-EBi@_G`6(R#z3scz3G9dU!w9dTZ@1Lu1VCee+FXp|E`1A2`%OxG%T(;gbgW!h zZlWrhsGb5@FI9aP@f^b*K7Wj9U9|T6yTSROn_cqV$BdQJNhItqpH+m8hqWJ>p!#3J zp=cBTMNZkj9^v~jYA2JoTvm&vkbm9uSa1-Zv{oTWRfb*ru+_y6=f6}xEMEWFIIUve z-cmJ@InUKRKit#=w!TiD7rjqhTv}B53%=CI?C{`ub+DzNT1nR|w7I@)&Wxo`wMF<% zTEwiE+wb4hHZi%mbfVlQpwty`S43X4{5f)Cp~S=t&i3@y5k8zhRmvFbXnbpJQ`^F! zl_c!QM_7IC)5FO%{g-z*O%cjdN)&iU)^@$%?yR-R&rMqK#+YJ&In7jw(4Q|Arp*73n5(18;eM9Q4L&8rSrlm6jVlo z&X^+*UMa0>pTgnq;&9%Ot+8K{2Q->F8(&(zo7B5OOxgTPw~fi2>3@Do$egVu1eOwk zqKz$e+m@@x5zau3l)*MoE`$qHpCgC%Yco6=gTPW+35P;(CF~%&u^$HJ2+=|dV8Sr= z9zI{O+eC*#tbc7?Dm(jft@GGdW^0O1p344vQaxIkUzomRrs|yg$@o09p0qqmFfh+O zpD>3db^KlWGL$s$w{Hs&=lZ{y6mMR_Wh8Bdfc(|_ya0kmuJ-XWJP!#I&od4_P7XKebjU#=I-QvoDcIBH3zIQ|EZ6XI(Bbe zJ#fu}a}F*&$N80q^`YwHF2@yGFS(`$g0Z|HE>oJD>lSARseS-Quk#a_#?SgSGHDyj zoE?sOs}`sJ;Je)D`Q+Q76Z^S>7 z-7PZE5%CNins~yNT%g_HTVvK>HBlzIeK8Z+aKp&IyC3=`MJcmxxPn_KW*aH8lC+OkcJH*1B+2vEbSz z+Z8W12wHqD&c3BKWS&D2*gY|@3-k0f&u$Nzz?zm=$0I4KCOztomRQ#nmiNt2`dz0J z^(grKY&#vPFfHBRX`4DV8ab z=R)Bd6aG_O!q(ijee+@2i#Ej<^LAE3PE@m$u;%K5u3N@;BG7uE(o%^m0-<0028Bro%u+UDBf z%q>_ug|qvjbb6EY{>|+2o|TY+0*&Vhqxk$yl`?Kw(kH$?MC$g(Soh(K5reQ( z3BucZc){V^esz_UgDx>zM*vfRFBJryQW-uPN?z&Y-agkH_WANO)hh@DJby>BcHNml z;?T{n2F0rR&+7k{UQ6=I&)R;#=1eH4J>hxSg(ZP1a!#NLqx%H!erd0D4KZ3Zio=K+23L#mK={=x;day+~YF{?sz+}5b)yiP~v z(BxR;@sPZd*--j^Md`0!A%l$7Yne3_QACY!QpC!`6znK5SsTLt#P44%HtewPU)?8u z@OK9apH3(gPpIH(au%sdVjJzL|hMdI}2-UOW&Q6nz+BlmMRH*5v1+8#RDs5 zd--q%F=S&O*D{P>p{a$~nyf|<aLp?lZ9c^S@u zd=(9OUiWOA2kpS0AWc+M?|nU$J9QHfle%>E4271rF`qfpv)-&(S+HiiOzF`m45<|v z(3b`Mq!FJLHeT9zKV7YF%ZqpAFtovR*7iSX-!-F^=-lnzpAVnkU%PmTC>J*u1SO?G zEj|xRZ2WQOxDatq5xx!%Qru~w?PG6vpV8;P5m_Jz36aD_WAjSVc6{#Uzy~xvmuf1z zB&DF-^l&&)7?f11yCiK~D32#4rm{21tObjRYblHC^-jj!L!s$#!~i5h#Qu2e#_Gp4 zVVp+SFaxJZZS57KWE1e0RJl8d&?Bkr6N*1PaHi9 z1Q)#_hxjBMsb*4cbF8Vxb+ZxIO)G@$rzc)E0zbRUiO~L&RoC5eaeGZ+3(0yK*|^X| z|KK1$b6d^g>I1jnYPaZu^FiWMvPX5<80la3mLDOESAQ+k%y?JD0k`uH&L?ntsEXu~ zInh$`RP8_CAc1+QhrmozE~IK=z4Z7%>}=)A>P5#}F;_=EHS~e7l(L}duO;)|RbSK& zm$FMv?a&<#2mDuY{jq*U9uP(#OikMT{7#lw(*14IhxUOFa0`MCx62BFF9hwHgj?&D zLqV+Uypxs^6$Hgp*1Xp0Kk1tdWghGzkMgwLD5Q5<+8`i(1z+0WfeyTTv6OLaf!^YR zk;PgJ``pzZNjo)>EBAXnitYbC*nV`zJCeu+r3I5=ga%J9r*f=?;4RkG&iP&Z{Wwic zFV@MlY10x^{6BK{>-`yFIb3>7AUT%_1hKVE3zG=Tv*X>$T&ks^4)4cYa!&g#!v;x9 zw&Q%JWi3qbD2Emedt#Qfp0jFbKcD;9%<|&fca`T6k3bI4XDsJ!2YPou<9xaL!UMgGs1Uu)k8%US19_bIK@esVLeJ}5$)b45tRXeodl-Y|r zej2WxQ*c{6sAHEgA~g39|5L)EQ-6x*MRCOyAH9@{y1Enq;2x1{#!Nosp)(VC>|a(x z!{;nz`w`#+o^+h2$isy8Kh2Y{(>Z*6VW00)$wmzVg+5$Y%M_Nt22_I~aIw6(l? zXcJuKHbGn+vnY%&gczHq~gWKH+~6GyEQ1F>D-)}Pr zcUEs>wfk1T{_iPy1#=nP-^8zuJ4VkX2m>03!m)Aw$-bvI6x*peQX~#l!?VFP@OGr{ zJZEv5!c`+$^yy{OaN34v_Lf^rXqMOqw=*_u=XIhg>D@dpD5Ia+HZrk+kTMj`ytSmc z^^y>}Ea_E*=r=J9sq(6CMSdHRZk?93kg*|x^sN$N| zPeLd<_(wh~E68IzJF~YIHtSEIx@FI_^RkR5puJH3XQQ7XA=*O>Hinr_cbE~c>=N;( z)HI4Re=jw9B_+A0v!pLK>ZY&FlFIKVCl{w=^OFYnwBepb<3)B-C_(_7^U1m8Hbq<+ z5KQhW1?EmKB~0rd05L$!zUA7fTpWY-cw={L6y(vGndIo9v0J5gZ+O()!K_KzH$|LM zo%|m-7>Srzr9_fo={*2ZQ^fPdUc2KUUGe{3bFn-e{plU?MDM^02$t1L;VkQnpk&Aj zwSf+%4HG6rm&8@WFQJ9c!2NqgjhtR>30iB{%z*$o&69AW(4XJ<)jNG!y8nx;8zoM+)wb-pB=P4*EfE>+ zhATvaN`e1;u+srrfYmFCg;Slefp^rdPvZr%0N9OE5%tU`{J&#jsg zKg~O}8Iv}hH0Vv2b{(bjX-sV)B9Dzu>(!k??>_)~4Kh z{2YMM#XpKpt4g>_j&J`f1TAlGivOQ;XU8&>=Hcen$^zh&kVQ1Y+`XPk4w*BB__z^h zl~!WejFy&E*d%>rRpnQ@`xQyEJMdfd>4ulLa3?s6!8FK&e@9^-1L~!+7P*9)44+;k z%G|g%RXAUa0>s8WzK#?h3edS{KT1mWT>JX1|2vb}A4oVtayK^oo_`mjikt*ducu+y z$J6RcT9^SzYUS+~le^~$3Ox23gJI7f?%iyr;qcB1&op`dTm#zWk77RuL6l%A-{iG{ zPr5?I2b$PLL;qJuvC*=?*7DzW69rOwOT7QHPcP!M{YQAwL?$!HX7Qi`Ar==7nw<0<8kk-xuoZ zljZ%R=?kGl#HT8%E5a$Y%Iqtt07Bd&y4)v=9f{kmHc|YBGbV2C?8e)kmy@S?66HmN zFcH(+3?uM~&D{shD`2)F)3R9zSoRzLKft}XxU8oi{jaXEKAkk8FCf34*De;5G)-w` z?w43kcno!2lO=%ZPsLG+(^k^@*#4EOzhQ$6Oxkt=ej%@Lr{lSd{hx-2UTKz|zXqDh z%CJa-=40>5;{MeuDT8sx$bUW&lCQqqZaNwKdP}EoAH8dvi$N>uEy>x^F9qEwYVf~Y zC1DS{iynAAn5RiY%<~^V5M)dKoHSqW{`NQKZ4%Z1Szd@Jv%)R^Qn`PyrGmU-7&dA9 zCKA!372~;{QL4ts#Khp^0<+8rymzfyuG;7%qU|5vgUaZZZc!k{oB#9+CqVgWL7-tr zH81z~&IId5eT5zdy42Fb2O2UJ7y5<`KuC!-WT?dLC8Q36_3DQ+r^hl@!JGj+MegN8 zHcW8rI%AL;ku0tb&}^5?+;e5WzRcyyZaGp!>NLFf81*;0$o<5>ug)JvgYy@ z_ZNOAOI&%q<3XkN-2NIt3*dRcFkm%1`;KE8P2Ts5RmyVH^U(Bt9O@@r>ziapof>@+ zI=ZfGga@9J*H^8V!Hs5+)>)y&+~bq=XJtO2{oi%T+;J|%4rzjt_WXi_JcV#b-2gN(_mKRP z=$~v6N_Do~>+J}?{s&cE2flaBr}h^h4{`aY{}$H--D;!4X%1z46$On})ZCme@Ytd( z6tqww$h9`lBLh4bXtZ3`WzDPmxQnaLWSF89zES#DBuZ{KC}D}7%x5oj&5YGNmP8uS z03auaaToT<$qC3Q82$Z91zLz7Yya_DZw*8>F*D=vI5GgpBLLT?p`rQu?VA`ty>>n# z-~pAh0CrXd+_w9w4bz?Rg1!0r?<3h#mN(A;Z-iz>V&VsNb)tK@>t{2(N9Q_k^e^{{ z=oO`Yq4MFmhdFBjdC|oQ*<5G8-oSl?ErWWLuf5NQKpzmBDmt`c4gUG7G}l1 z&_<=*p?meSd+Y<3xycdfF!6V%b@5Lpns8@`;5Xz;5xJ!@yGH|PKM(BkXenF7Sm_Iq zV$~Fof0x$;!`-I8QEq_L^-jH4Q&J@OS<)v!-bZ=JZ*X&0C`(J7ixI$Hkp=+-Rf`T1 zCpSeLaS!R#lyq?y>GIhqKE3a#Z0@oS&bwwjgY2h@h;c>l?S%F9m+sdgZ3%DPY-$<1 zK0+fa_nY_fSDN(`9i{tbQ=G7aP%##`(K(r z!lMm-OOHz_Zt0lQ55v4Zl#{fyXHp!R_<3f|7P0C@iL}{8k-*kOXreEc4e%JAZ`8pw z`@=I`7GBeG^FIrSg{$LcSLN9fN3`h6Ahj*xN}uOwn%?bH-*y_KEpF`Y%~YXG*C{nm z;!p@C&dzE>Vr&6o)WpQ3-1Bt9Ppuv6lv_k3127JQnpKp)eSO)PnPPLSpj0suyE==L zmp36G0K&n^c@0Q=a7setv{Fm?UOWLE)IKUG+`B{xeUe7v4+bN!bXkZS4-OZqHJp_} zaKU2mufY_2*RlH9iWS3IKF6D@%LnaqB3m3fa|>0IJNNg1Xd8^!;_xHPEXs}9uqEs= z^8_+1yP~&SW-fCVY}IdT{m5P?n=G^BVMC-60qL1j)~hovUjuOL9^|IcXv_`Rzun2p zn|-jwk)Pehdy`icL+pf? zjU9EXVS-_-@`S-ieombbei5ErTq)D8F1r>< z*wG05TL7a?^}h4wk8W|Q;oT~NhSs>VV7x+#t3>X{Mq+o+bKJmx^xcc8l7!k=V`0VT zg6#L!F@;@p%A*{A%hgmkX}*^!)X#tLyuS;8tRCdzTEHRMVRZPMjy22hpJY&K0`i5) zjMx2RE9F?3w7<_IWnC=j(v&o!Kd0o2oE_&eF!}?5_gQtpF$@}&D3FZLqb+e1@`-n zl$--Yfs+rH)N0_ai)Q&+>;M{QD0stZawFsD$PViKOw0-;qd_6oW6Oz>%v83o` zN7b17sB23v6s1`;LRu!igcX9x6e$w0y1v8HjBlY%m|uIXqkC9?R+}+$dt8dj1C41K zs{onZ@2l&26E!UqQoGv&EpWwi;Z&fpZ+$`~@NpdnfzXi<%vt7R?(Xs#8wpek?q;Co zCYQU)=Rd;w`RcW3k>7&L2j8nN6BZ$1`tJ6w8oG-Z$DskMp{lfkLWu!v&%xPE2ieSe zRVZj`l88A5hU7hbZubB_YR|O$v!odH=AY;oXkRgG>JqUIG`8G`K!S%lv;OC@#K?%v zdozA&FtIJL#fTj zd(+i@#-1z~+4y{6<{lQ;5jkZWwJ@K>8Hel=)@xYRvQ!ET;j_GuJ>fl*a+}e243D@& zWY{bU{=1&iFi4qre6i2!4skeBow~dQ;bK-=r8bV^Pw^*S4TW5 zcN>r@c{*lssxnl(na7m1qoS(ohaca*?fcvljCda@0Y)Z2v_{`K670!2_# z+q?CNCx^C14TZ^=k1Q_O-U2rh^+B@GVxIqkPKYIAznt%jeL_(Gdspozax9!(B!;@$ z(I^yB!fj(0rxR1PYroGtO$!~AnW!{SDf=FU)PT)5+| zoH?iLbZe{VeX6F#x6!N;4!TlCf|}!C!0W8iKLl{m04V)AB9exgIWmMwLY0$;LwU}O zXiVKt4JAA>a(og5>qZM+)9}9lzt|HCajvBn7{&SW=lWO#6BEkeZ)nu_&vy!yDSry# z(i7`^C|2KZphb#hbXyN@Nt|l%!dD^F)MJ)1S5=?zt$DmwtKTdSfgJ#Ag|TS1G;F+{ z`#fNAtLSCu^{k5NFEz0E*F^Jen(cb1C=!TD$>N-69^3H$N-mKgFPveB6s^b@p{vXH zo3Mr~%!($4E^5kI9ImO>7YZ=Q`-Yzy5OQ`GB#Tr2Q}v|B+}GPgh!+GAZsZkdk%$%2ru}^59*gckT3xaL4!0O$`?0u6uH zXFdp7k$7Tc|^A%+tWo4^7H$7O0 zDz%aeI;43~?)jvMMpKbRr{+UOB;0vn32P}`6E0h@-*GG0@n6cyofXHmIcU8Y;7Ft>p&ic_f2D#zGapq-Ebu!isJO{kEY zI_OpgP1;IK6zw(u&OEEoinH>+SO7aZBcFByioaOX0Rg2iw8Z`h$TTFSwM-^;V-185 z;;MOvZubhQO=(-UUzm73S3?mr+%}a4AwxC4miN3oJYLMr1%<^lbaY{uGOW8}o}@R8 zHnjZw$)I7LE=xjpO>ZINVCq}cR*=8QFD@LdnV6bdb*cw_)v36+epJBvc$it2mzS|A zg;POl9RLL(L&uZ?eoa$!<>UtWH=SXT*rgX$*=(v+W&Ub<`1~l^m+o)GtT`bqavuN^ zPPq1h;^rq)c)mB;t1(L~|LIt)>5Z?RY_GqEZ{$_*ibVMi6Xsf{D@1moMjHMf(SdZrOkamVaUfc$d?d8+Eeb&zE^F#$fGQ1IS=5ylhvr^ZwyOX<;O{T zCQFjm@&QOH@24&&!j_v8(gFJ?QS0v=@2dZV=o0fg@=B%q(i33H;gBi%Dl*wigw3E> z2+SCM&K(8}I-GJHjc^xtyHc~G&(bo!Lqk9$!)R$8f93zJ!g4)rl!n5M;G>rZ$J>Y1 z`0$qD%a`YqaFbKBF?+F$g|m)96$!E{@G>U7uKnk;&DKWN{dzon{I+PlM!}Q942#DN z@RU2mQDcProo|})Aw@+N$1J6hZcCxMcW-SOMaAOb6eX`_6uK3Ptg`R0iD0VcLd$xZcL-J!6Eo>rq7waWXLjl>@J)<5s1EGA;$ zBt*hLii_XazWQQZ>{6e9=^f&{dD&;q;COHf(@0G2j9cqZk?Tp%UO0idTX11F%chX* zT;`cEAO>KyejJ4;H}G>e&0Er2xK(bkGX3(?OAGM9n|)d0cYTX-{_K-h0V~qLAc2#t zU`;I6YQ0!xC1<&kK)N*DH104dstNqkO2Lz9!WhC*&4z!A=$&i5a>&TdD=JKaxEG;K zFx%x;jR~r#{-NsP|C*oc&Z%kk;D&>LfLEkZGl0!7#ZLPdCzKfS_)Vk)w*a-@N&KsW zxBP+~WQdBC1S>DIYF*GZgZi&s-hMynivtl&`=u7Wx%AjraVICI+VhngHBZmCp!>;h z_p^OorB72gvvYHf^}5MzGb1Bn^<$q0%sT8e{BhIXI)?#bBW-Q%TZ+6gRW&tslfQT+ z)#9R}kYEfPKvJ2!V|Cu`2TCbS^W@KW>L`Q^J_Rims>SR~3}Zq>KP_o7mj!ZerxV^zm+QJT&*e+{G1I2x4K62k}cD@}R9r#*!0)e;2=Q z?QTB%Mize{Y<52{VZHt4&L4k&47W7N<9TK6+vvo?sqg9v8%Lo5MfKkYi9!d7hGb+` zg{$dRtcx0+-Gp1Iah@UXhGBI#>jHvjhkn;j?!YVAvBS^a2@9R4m$%=-9jW3ir6M0M zUwhyE1$vxAt-I0d7_9O0E=I}fI1F~dEkL2p$AhOoKJs$V(n(k>_9Gi6 zigOUjgZzMZczEde1uY_-HCBDZIiT+lp^~+v;xlaS8j3G)<%*Il`v?;5o(Kk!)x=svd}~);Yq#5B{F;g*%|-5=A$6o zzYk~b7k(oWU@T)G5WBm6kS6`xHIUH*El)@j%&Hge%Q4=+5h?18#HZgCo%=(880u=h z5Q$P_nueFzbQQtBmE7>FYMv%c{&eLYhYB%gkX8Ja-~SqH=wg9wqo>il z(jX1##qGkIxzd@eD*rn->b~jNhnAz2VP59{tQb>fV5(|Lq|o~YoCog^^_3y>^Z2Vf5T;T20N(%j@gtfY}`oP zU%romuW`@-l$_A)?C!>4PahoEfdN!pH1Fy!XJ-SE@C|gx>8aJP+uvO4BZM=bi$*4C zH_OPF?X$AsI3&zY2e8Rz)G= zIchiQDay0F#b)6qkb>@=n#ADCR-UU2l^9AZv9^^`+B!$^uKF7P>L1PQo|vn(q`jvh+-e$GlhNptiz^{hN27 zr;NH;Lf%YBLKOLzZ<$om7&HSxzqASyYBheA%BLWO)J5!#bAF^z4;2a?GzxhfHVTnk zE>J*3-Q+9&NMuwZ$1$%*ti=4BA2Z57qhd8LJ8L~jQ_hY0mw~)Qm%=z@Kxq}{e938x zhReLfu)e+*cRvhPkA71^)TmhtOMI(NHe>=6kfXb5VGrb- zkP{tqfShr+^GM#U!)OKadAAg`2+Ondo%{E3MMs4-AT5g}GTC}Q>q1g)2CIT7}u}5N`Ca{7H9X>MvZW6YX0hZk!IB5C~ zdcg||3qPSN0*sEc;JyvaMqYF_Mbg zzk2G_6^|Pa7j}N2WMt>G#BbI~_!*bAB{ddH!Pk+~(3?&vTXX%x$JLXp$h=Ga8NMN6 zs{@vVLGFu|dbEcRJMeZG(^Y-A2}uhAt3r@ZQxur6P)0NI=#567c59PK(l_viHu;Rbz%5gOiVA$R)rw z-Avvdp7(k2C8A{P^mo|As+N6?NGi?{WyEsvfsAWz4(HfVn(cw^`{w2{=IOvwiDBFs<)r1OcN0PPdbP>Fho1{o-P*S|$C&&k!z{zA5NV0QY_NpXHfbGAE+ft1 zR+h4i`mI>_EuTt8PR{D0Vvbn);ivCQ)8Qc+QTrNP9J8z^@r zAX$~7dTaaQl~m-Prnnr@h{J zb9i(#XfQn%^S8}|=4hhvi5^yukHmQfCN9{rbOeyMq;$-JFZ34|A3ef;w-d%(i{O2D zSqx*=got(RxT9{u|+TDKHQsjWl;&SQ2)S8A@!b^wH`0s&oz5Ooy70S?Z0v?R0;emDv^W$Et|u(nH{Z7!u^Jfk zzWe~TM-1#FCA}Zs4`4j{=C%4!w*AL#aI#sedg^QO3ECv-D2?R6!UO;0z*#U7>`2Bz znxD^LPb>HnghYK?uKF>O9sY- z6v}WICi-$?J^g;PJ=D(C6Ogk}RD{@hiZ=L@ZqGoIZE8{T?8K^yQ-5N1JUoZA{A?cG z`C;B6mWFM+^%hd}_wW2#fqA6_a>bN#!I7$_HiHrVuE9a)N0>Ol{sFhJjrH}==nFT{ zhuU=8!u}yuWwF2LOL6gz;Tcc)DiW54t*mrS{*l?)9jDA{sD!vU*O-~5m6iApCAUj3 z3ePlBh3?kM-u}J22J!6N?AISZ)-Jfy{4`TDG^hzX*i&2;X2{UIE}tds^I;batw&sw zZRyb-YM8=^j4iavn0IXEHS8PlAr80uyvH!yCQOOlqKLP>s3|!lVUrs7dp@t)!z_tW z56Q|qLjMd0+7hQi`HIkY<$X2VuG{LnSTvc5G>g3Zo`UCc(n_z^o!!86TAZ*5^@=Ce zx$BBUl(O3>=MC|EjV-e@KltwANN$5|iirmNCgADSrKbGDy9HHRKtVds!dwLO@@@*Q zhxFe+wuoA7k(C#MFOhQ5k!2GpR(&fKLC(GaW};+IP>$I!&~kbhj4u-&zy9EY{1Pqz z=R$RhDtST~RZntSMYod8PV78pUT@Ri>CxJAnYal}kvMU>kcRxw&KJxi^L*<~tL-0e z3Y~m6z+v$C>37AiiN7q&)RHRp*6{gufyhW3|Jt-FP~bF}n%;5Pj^|9|b$rFL;1rf} zZ!EH^SK7+#dh2x-Gjfu3OEEPxWs*f1XUD;-Y-E8N%<{z1Byvj>;1>N9yS;-oDQgm? zTeB8ewQ04g$*Q6}gjp~6_Bx@6dHSx>xVocdFTnTh1HZanuAHQL_yTNx(%1CHDvi*( zLUVXz5d#XP1WdWDP8ZBldM@88H3!or0UF)M*Z2P5m(HvlL2aG&six9Wmc#)wK+y*t zO*41(glHjK$J!iDYabv1Ih|-YHb60;;-JNp1lP6*eg|74Z4!i0l-)VrDAvC&j>Ksn+(K}Ey zXdiieCt3`-z4+!v;JjWN^G@4?Kx3g0V6^AQbrd3epZx8(JO9f+08~_g40itNiW>4l zynBJH{DCc>-^nkIwd;9!%~vSZe*zUt-~$ENF4*=r&V7W0KUA ze!LfU`$GpYL~&XBH72~V+DHolAfD^TMGKAW-d)(8HaRoDL%X9H=1|^RCnT3unfJG9 zG`a@^eeBB#j&t$yuFAS{mzE_8+xUI0Z!v0c$!#D5>#DEW=93?3mj~ZAniA#i|J)WE z-+KYYWm&DjWkJNq9bD-gkuxDY@^?;?pgM z^UE*ZoIf|$EiG!{Cn|j3$HIKX{Su4>EAG|;5*Q)lZ*PI1prGN!#prtpoKh8wr2+KNfXuJefbAcE0rEMn{0VTmNquGG zryq6pG5MQGfpr^QsZ`2gb+2RKrm*wh_zA1ZH$<*s+j^{JUAyjOfT{#BhRFBb!aqPl zs&R#0b=shLp0*JGAPL}vcvTrVrkl56ozWjIIht(n8FVvvE@)u}@nsXA+>yU`vdbU6 zMH;Nr8OQk1R6ZapcfjVPnqqkS*loEEqj=tgMlf=C-jsW^S5E5W(!ZCIqf*MEgw3N; z3c|%AN=dD0e{V5HveM%%;V%L{(b~Dq!^4;ZxAy8gtAT~}*keB}|I=9aqg`Ha|D(C4 zHS*h)f)vM71g|HJN_9(%{v}!Y`Pf;3K(hZeLzW4J`kDW&WJSdlo_7y;YQ-bKeJF4? zKLJ;C%o}ghsP+A`KSg{od+=n45_`PZL~iYow@7}bpKlWuRzmvQ1DGJk3ychRjk`aRiGXgWzUd3Y!0s(D%j3(BI`qy3jY zF!p&NyYr7Nx3^kR1>dEWS68FA-Q8W~ccbM-N=LQ>|Jl;(&_+i+euA2zD}1z)EK+*! z4O6?FM#ibilty>f0kXH!OSPR75mV`9;<$s193{hajxy;WZqBftNJ?<}26obDmH3T%CECmuGe6<7O#(Zm5u9d*y8C);{&*%gxZ)wXw#7LVfKA zuj#BVkb|@Xa#3#Itz6yQ+K0+&8DoJ+YJOn5xP`HD?NVErnISyMs6twS5vM%FmJP@? zX(_}X0geJ7hTo8lhg`_#*T?D2$}7oS97Z8Fg1~IcPd5nw83UkHr#p995R*kl*6s2Q z7vv^I{TdL9(`F*zDzk5E*FT}eJynaU6)SyQVRXtW^GGfe$-!qgc5k;k%~ zI_=?J-|r*3U!lB)-38xz#cMGK?WcR{Z0K%cQN3jSxL=&5+3M7o6&!FIB$R0Fa8Q)E zSh&%qh4hhc(dcTM{(Mq%2GN@$)9~^#c}F3?w2ppeCb;7|1TG$^@pjvt2Kr5aK=rYv zN>XxhF^b%PmU*`|dAI1SxU~gRAhaEPr4$0oXJ&$fm%YMJbs+IsvnW*9z20` zHARsM3wy1V;jG_J2aX->_C7d(L!JeHsc8f5!u|W~*Kr$sk<+y&4;iY8pIO^fuD&xK zne|cYxbQdCYOeIiLQcT5kkyC&+7hnwnx0Atqz-0(M~$m_peV1uI~ME?71o}L^Z0pl z3!1hxjGFaHJVHwzU5NT~TFX;P1+?FUmOQM#LMl(CF3Mwk_HwV*Dsn7t52P^EaX z&yj=OcCC-9{_m}Ha^1k;a*dzUuiFPQavI5)DKBRBkFU_+qYLt)gPx@<&3WfT?t|$< zMcAvQB?XStLr;|Q#wW*LceGUJ(@GD>xg{b*C#$>SC>HDowYQzJer3j5TxpV4{JInp z*!4Fz#k8`v;wo!?+-k?c=lVw7{KiA9T6ce{2syFkc=*FRMgF3G@H@L>MdIipX7YB! z>7vl+j|=(8&#R}a!JPN&PDAZBO=WwB%Y+&y9Sf1xvSD5A_Ai!>C5B6$v_JWOUhg%z z$8a&S_fjKwl%%SV0=70_oU$FD#j<9te8h{Yt6XH7*AKz1jhcUzXfjfE9&_}NaYCD&)c5W zr;X`6b}!7JzTA~d4#jf9&$^Ju%A+$gpSQLw@Wh7~7H~esKI^CgS1<$*Fgj-gn)Fqq z2g4<6C}68G?uu+{4}A=}q%eDU;tbw6+%Q`e)=&`yzTV%AmrWo!=?lOex@rIPyLV!Vlq zCMLAx*~=jNvUd*h$rHjteNW0$?GZ!DUlT)A)J``2_?HQN1=Z9_wtu}Z{Rww@zzF|P zyW6%>yMfzy=`Lhsbdw?PAxU|D;Lndj=sRA8ETKct%{vmOv*#Rqr*F&JVB)^X-~Kot zYSn(i@#_B}?W+T#`nq<921!BbG(eP)Mp8jR8brFgyK_(wR7y%pN(3Z_?oI*e?(S|F z80PNzz2E!A{qBGF51pAabIvgPtiAVI&wAFga*2`=-R2**)o{KycqsAwFuwZ(35GYs zyo@R%0a<0O++o}Tv{aPe zz5BShxcJH-e}KB!g+;8{^%3!E!`gv9r8oqO8>9%OR*cxmJWSAOI%_Sc5Wzc=;N zTQRg^>!Ed0EX0zhoF4aN0Z{U4bY}CU@!aZ7KcN~C7lDT7s3D#GpuDE&7as2nqL-&N zOE0?BQeYIzVK==mJ*l;c$syY3l{@zS-r7wt&(rj+ld{@b9$~L29*m;OY;4@p1*w0$ zwo?H?^FKtG{B@`BuUo?*lXBR#V)qaq+E?&St1X(n7BKp+n_w$Ap*%cimE%~$3lZHh zzBMlOU_ zobi+wlLwag75QEo0y#Hm#MS6bI$YjZ$ZQEgvYkST&ot8B`W(M|3y`_nyHuarxFiQo z8J;Y3wlCwc-dT}n)}1Gdp|AakM3W2>AH*ccxfOVQdEpa5J_yf0cD&F(QA?rA$ML2r zvi?0p(A*y|PGem=TuHHpgDEoUvZ2W8@Ah?M;6Av2K_tHCQx-jyU->$c8Y$?!4so`k z>w7^R2?3BSO`&%I=m4a-(r(6a^;P4V;qNPgmx-P>#Yq_ah8Qa8A`Ugs+ItO4CK6R1 zH6n5}qf-@+7dYAyx|JN&-4wxkR$E}N1#d1y!(*fU)Yy&j~fjnzSfLPDKnqR|!*DD2sBsXE*ut_0<7xdHyaVwT{Cq&jl-aR*`<+q<+ zLZ#H9=J$lZ3>zvZCkJXVe7$|Sa)eobP{S!=C$*ijw!L-j7J?J_T^1_RI}yZQ2varJ z<18$EW#jW!+`_U~APvg7qXehhK5qb4LxoC2I zjvoS8K=VgP!1?((+TO@Vu!YCQ$3NR~eZcXO0|(Ma;flY?`9`I=xJ*;&1%)Cx!yk-W7=7_rJ6L?2|bW%rK+YJa11{Si665%P+QQw^*7)bRl+A3sh?)-@A8z~ z>gv>Dl*0+ic?>GXH8T4>&w}uTX^lyA6M(NgNmV%NOGi}P$;Js9U=D&dB;B+W_B6$h zGsAwZ$fXxh|IWjZeTHU8cYEOlXSU_ZRz%`wi z{yuHYxsqryxl}}cvh~r!s4_brmStl%{FaH!EUw~<{?0`jLOn1ln)2ROLSMdqm3aLc z6CE8Lg{^_O^yxJyAYKFw(t)FpAkU2Y49bs7LJ&sG2quC~%$V5NKlA12EtJaifqy}O zjR9$%nV|uGLtAxtO!rU-k>eEuV5ojiEJ{6AfmklZL5|qP_g^T zLs085;p--)mQoKr7QDLr(1xiE`8O8;lk0uIe>pZoDo-@=z|lmOkcGH*n~p3a2`(o3 zhnI|pxT81IG%u*#+>TA9cO+W(=y$gBN(7vF!H~E8peW-*&?=regekTzLGVWx|ga^-983;l-I4}^rs4I&7-Hagx^*Mz2RJb*8x z0wdEpi8HT)OI;-S>Fe9M?*#a~1T?h;huX(948q@pk}u`4Ps`tVVZUM; z{o_X%O4bszE#>AWjfy%yp&haVR3}t^3CP5AfsYiyIsn`c(kGIZmQR?KQo{hpkqI<( zg}?JlX-Nhf9GsC z4O-vXSp9**x9I4PPawn-6A&>{ekm5Tv3?fZp(L8jH6LkJLeNLo@yXLW9UUE>0WqnY zP#=z%KVhHLSLX=h*r z7qW`n7tV#*)t?E^%*5IGqoEDTF+hrDeF=fUan(%rg-;P&R2;OwLTVk?*za+|k*&MX z4~xDMF$9xVumNV!+vfGn_Pr3!Z0$wxS69koMaaiZEc9_rZw;P3RQeHuPh?`RN z%~p0H5@YMy31sGyj&96)-bI@{!eLAX3owjvBCbxbt#u;*0{!fhu66`M?+|= zW^LqIcZE)lQ@GL4xz=i7p^}!&!DR@PH5P5Qcq+-onkR0U9}_!49d8Yw>s^=9DQ4B7qt`w4ip`E!cm{Q`)Af!3Wnm$kxXVNCay zT=XA-cOOTt5mK^@Ih-;NGO85Uhv^G$XCwE^MiQ=v{8njLKlna;>^PD$NGaivvP%-e zVt9~})9<*Al!47a#}iNC5|O7(LPSc<^TJ9gOQXnqqB)10lI=kR{T9@XHZ`EZV_y3d zA^zymYp&MPTaoafprFaUja;Shs=Gr&)q;HYAO6fl`x8v-;Fmse`4z13fVhFehbni_ z#*Qy8q-ABl9?uU5V-F!I+>tCIiL#`r@@{!U6JmvDWU2Cx6FKEo$lZmN5cnx4CCIGr z^+{+c&#%^Om-qI<6E-bJ$H!X0nh(?>pKx#hSNWBKLih;5SjM4!L{tF*Ar|Bj3(E>8 z4$+?hkOhyXKRFYKVaWvh0OXqu|B5<`R-WV-knY2QfM{lT_~$M$K7Qb%ZfAf9Che59 z!xWin%z2nG1R(*H_>jJt1{me0iyK?LaW%OA(Fv5ekSEV<+AKnSpmz1(2r0z|v4H_+ zh@WP@$?~d@k|b$E~)cZ8Uk&JYW+T*-; zc*@O?8PF5`aK65Zme>C3RO8p-Ad{;cDFxYcU{*jV84CisZ_=JizkUsYd<_k)N&IFt zpa9zKCH^id!iE%Uk)-|&NM~rak{2;f1omUPFyr%lV?No?s;G?u|MpSI^~bg~PKj+l z?QNDU-H-5E?KdG36&{V3XxX!=eQy}PDP*@3I6z+Z+juPB?lvuM5j(V_&g(;LinYpV z5RMtoJaV|AfdmYN$kntz-#YuW+TQV&LLpc2|F|$WbUhz+;c7yy)#cImbr|A#-j!1kx2jw~`IpM}mu^7RE1phHsE*O^CEZ)2A{D3LQr) zT`IS$PB`JW=QbHA&GP~vs`hkXY{qL-mD?aeA}M+8f>E7isr!AaYW$nRH{o4}hmQAV zn<90PUG44FwhQ3AETy45Bu*@vFqmgG1TP0*Vq8N*hv(<0qHf@25n#8ya${X4&{LAji@l~r4T7S&g@TE8I< znMeZNiYp;77bg?SBR=qnvx4bjc>Z?_WWeH_Lg#MVFI5JglBpFkkdTHnA7Z{XoBhf5 zVF?cxcgs&<_?-b=Z}fsg8~7*bV-r{Us}Gu*oLxrw`>Ln&<;wD144d=&^g=<;1Pn}a zoYvND-Y#WGLIPrA@AW~yt%JqAQ;t4O*C_AGmKqCN{Ao`%E&h zZCawT#Uew$M!a(L@z^mx**DhX`GUOM{3T*`82P0ke@$0 zhDAjF-`9};OPf<8_URnSvQY5y^=rYrI)<+Nf!nTrlC_N9p8yf8Q4qT_$Ev!8$#M%N z!1{roiP`|vWTyRz^JKY6leRV~NCLhcI)W6HtA_``{uv*M=u!oXJrL4%@w>y<@ z6;#jwMsj+2`MtuzLXlPYuZoKMSy@@>*FK;!$fm7>#y(PF4+^Qh zB~)f_0O3de{FI{>qb{_Foeq-Gvg&UT<^>jCRuka|C4@ z+;M;XHn1gDj7&zgWB6WNgL6=14-Af1Bos8El$m$Aq#oAdmGrja5fNcSO42&Cx%DmEp`ys zA@}|7S`na|!4AGbjo|PIzu_XiPYD;2eX>fiVw&ZC5lfcpsZN6_vjGx zHnPJp0Us`(bywfBK7Gt!7OmvYto zjh9a`>gz_{83K1AFMA)%oOb)qT7)dOmrXnz>|6_{hP88B1ySROo(==L;A z!&tO#O_FDR6WMq`4!Vd}S5KN1XiM^G>bZ$>vuCW^ymuww?vg(DsUK%%v*8`y)yQiT zLswp2F>6(<5v6h2Z;%;cV;7r+v3A5vQFvsQUp|M_(5=t^8Je zL37;l*A(o1h##i+by_^0&(RM-u$|})738s9SRzL#!D-A3u@Rvg?Po5X&FSkluU}W| zAYc`Ez0~2n*Kym$kuM#PC)`FFB0wp2F!Gw0S6D#CZ}hci6k-Fk`>Bl7{QSIoBz9mua!@@m8*W`$ z#NMpdi*W?qiAV<>egO>yG+=mTWAp5`_*X3wpCC${Emxg85~Tcyxp>mbHE^?X5ZtC9>~)4NA$ zy&z9ILlO}8yx=b z28L@@)l^od%4IRNQqgH#(%jpNKQ}kGxxXJA85wyz+uJKQl#^I0^1|ob)&W~enFO$R zzYWIR?TrbdKjC}wX!>jA9vLKgs?0H#tfg zCgTMJX1R^mdllZ6s+lpv!^7B+ngA14Na}O#UTQX!B?yYNl^Te#W@jHApNR4yXzwmU-R^KCY&Kp>7BitPJ4*pWfk_xwCs~|!} z?l+!}=O&5NYw2hBeg11$eg0X48>60koPd;H%&@M&Oa@$^p~=b5V42P$Pbjl}udghc zw=g+5Y4KOP#Kfi{utn%1^ZKpI*h2A12k~L|M1J}A_rGEJpR#KD`-6b&PD#c5ntvfH zyI9z-Sh;U6#G-A+3wf3e7+#$>G~hg2@VwWuH1rj(H(5O>s947 z=XWQy4-AWofID*41zqUOTd?ow5ujhow&UhoaeWi_-!A0>ESK3lLUR4`ZIM=0|7WNl zrq|gN$c55G8oT=bFm63IZ8gq67J2jtGu+Kh^XlXs@A%kMqVlejHurihHUM3o1}9TH zI5>c3#(&)ibx&D)Pt1R2WS~u~J({v3#=~n-O*W~q#%Kl)bn;C*&e4N|g8^$^JT+Uj zGcXEkqz|bmAc7vPq)Q&?4b9HlTHqcJYjm~PZ)6R;)6vOKfN^ngxic5gE1$$!Gl=`o z+P@Ve2C%A8#W|wMu0p$}qa`1SvwE+xs)9*OjD7)%6m3M_`T!-<2W)HvfEEjK*H4~3 zlLU&n?_x}U*C(4iVmIdjJgPF*nQ*DhIj3DA(V`Ap_k;qQVmSD?rM30D;JJ}*jo)~3 zEXH{F_>!usG3N07mj@G;yg&2vL#t?OYincA&97fe^V8{)cq}Y;41C~#fOQY&U~H@+ zy{HH)c$O1{|Erw3s3)$&8keZ`HYc7sDw;G@tBjk3WU)(+hq0OX#Q!&I8fx85)3=r% z9Cma=Ev|~GLg6tvioIMxlNM8hZr)+ziNAqeUmnJA-t*J=A>u~O;D3yDA+JfT3O(9H zi#*RRmPAf5jBzu|H%HJ3$DTP{?6rN~w5&5J|07{`HZ~ZIvF!);9^Fzyt2uTH@%==3 zX4|RKH_vkYr%KI2NBA>JO8AUI(326`+P;+Kw@k@ycOWOQ=>VNH?GNSEGs@b&nq_R7 zm7T0QCu8@&P|bgp$q!-GHqgj7Z60FN6HVU}MdlIex=rp*Ow-5OvMLqp9#Pv{hTp z!g**)1F{Yt(P6*w;!d`>UBjT{h#K-D?#wIWyeT!Y7_6?fr{aCKzp}~sCMF3a`6Z+F z#eu#fv(~q5wgKRJ#4|erie^e9Onru&=aY}bxOmD@f ziV*?^ch+veGh8Ow@5SoyexQf(;k)0t)ew1TM^U)vl6;Pt!P82$_l{#(F^>P3T8c+w zfJK@gxe?l}C&)NBZKQBQAf#j%PJ824y85S<4XQgm`Dvdch$L@xu0tX96v*-0it#uN zakNFzO6Gie-3qfiXaQVEL0quLK06!6D&899WESh|Y>ol0uWYsr^e9$zkq?F-fp}c}F$%$xo>G z@1Jv(IOfBB_;qn0nl*;f;?hXh7n+XuKoDm*ft)b&GZeTYH){)`c*M@boqM(2kEvny zNpJG`5>_ruUW=VdVEM7H0iy+?(_6GpZ-8v@V&P`NkEQ11HW@Gs9MLm3C75Wt3gqZy&XWiUpjY88i<+gOy(CSR*ZmopC7OTrEAAjQ<``t}mPmrJOy zYx`+Y#Br-mgS2ofr2C>9T334+ujKweN}>z@zyqS314 zvGyTGi+o0n<1 z`0)wn<#Sz4noY(wGDJ$IV)lXs^~}SIjFvVG)LjDSrWN?7ks9v}RlTvk)723O1K6y> z%Zr3`Ib>YD=B6E9VH4X0Tb~;gyF2N+JU(=Rwm)`nD7_DpagtG=ZPk^I$|S zTq%sk<8H+M)Aj;j$Xwp8YylGX@csn8XBd|m=4-2V2ZadNxr6GRiYgD|h=X8MQ8^;#aBdada>bkQY z^I-qT%I7ETil8dgrTC^W0VV~Jc|qBUGP**B-LX8}+v+?8Yz+&$Z+vW!R6^RXD$ECd z5S`G>51Vw+GeHiA878cX_!6ACwZErR?N)fkwruV1yH|7YnR&&(GR)8}U?TW)QJ{AI ztaoL?0pm~F;c19~@xl!3=i*zk)T>22NC;i2(bf^??p63Y9C3ttcO8B2OpC40?T^ka zHiXf|_a13v0cy9Ng~!g)dzS%+!@KnGHoR_pq4~{2VD$lz7s;MMbxmmb5q;m;^~%ak@^hDu=WsTF zoID4(M?wClxA)%kUGrq>Y3KR&i}frMf2+)iwM z!UeTNo31!<&W>6n zpU{iigOl>%4KICY^)?b59LvJQ%9mLhLn6j_-PGLW^0j~a>2-}cy0V|8sOad}XoSS^ zNsft2oxChW`56?E-?jHEO^l6~)B9<@HmV~ID$$Z_nL=MnNwr#6OgCJDfFvv|;?-MA zN?E0QnMFm&4DWqs8~t!hh)(vj@O3}RSN0Aua7di?;UM-)!h0qYJyM`qc$(q_Y5s7E z=s8RCzvV{XOh)UKSecCNznF+e!4*SzRrAe=i#e|id|doPX*nO9LDlc+1;tcp?6(ne zbq)Zt&@T5PPsFK@cP=^lazE6)P#>)TJ0LDaoCN|zBq$~uEh#Ac+zQoRa=a=A&|>s) z=$D!pG(Bdf%=ha2KdY;!t@<=9N{C`hOr#!Oe9|}sX1fOGbnuP=1uMJ!5aK6Y=3Vw} zsoOM1$JtHG?yxM<;kCWUhC^H}FQfyGS-^VZArQHZL4$a3UROw}v+HRj7rS2fCg0w9 z+5gp#*$>f-;V1#z>)DgV12wy2jj4oAeg)pyPf2rCKJ04CH5)C`f8?OLIAv1QZ-^Pn zuV;ETy$Ue`=!D&$B*J!G&R*1?&WTDtntcOMgbj$4 ztunz-NjX10kljMzgrLFf@w{ET8g2ax8>^BXWW5>QYq^!HF$?6%A+k$RqNCOPNB^U> zcgue>s+xHG$Ss^Kb7AHHEbI*T>@GrzTX{$L8l*2As*=a#P8A_xy|Rqj)C0RdRshe# zV?VE8*XrKe| zKS5!Rk!88hS92J{n{8Qvwf*4#Xz)t%Ys(1OT4a7C zziLA(G&ym-_R(IT`iY#AJZ-u?3=8Kos1USIzb96_Q0U`wA=uJvc&(PQ)l1aWqx)jm8Rb4W{{V?uv#5+|&IwSVh{HYwPAV;J7IK)=@8n@gF`C22e?)JG!|JxkHY32sMgl&#^i4cy7Th959*v9l3!Ba}?P$6=;*+IV zsQWR0yQ<)fxT!&;UM#T~{L!jbENa8hCSM9&X1&BvVhZN`nsaKMv-3!Z;PB{3MQpcB z{N<2cz1RliJyH;t)x5bwcw=16W#wllX1_o*E3QJt*n9{%vJ5l%KgIp}}SNOCGD zIgJk+$NS|;H>iEhw;f4ee6Gi>{3FAjxPe#nQ}?LtzuzjD003qc^Y-$GTG7+t(?^In z#>Fq*=ns_SKW253@fnJK62ee-2sT0bJOGcaZEb+47)S6IOsS5b3hlyKmY>EvB3rA< z`|_Oj|K`9j1X@kmESk#EWsBGl{f^nus($HISYA_68D=Eg~0<2_Qar z(mXLeiVy9uak5P5qVNQK$I$pVwzg9IBGA1P_tCR$X@(Fx>{y* zN_zty2N{n376fG!MR3TsRN*hQI#-#P5dV=d)6w7hBWf^G%z`1GV~mGeH;Vk9MqF5& zI3*!36D{+fKNNv9`w5P=7oI}oplev3aSWRW@On2b=Mf~+nOUtBRWHh8;mtoTF^T+k zI%>+Re%fy@y;FQ{U)R6%BRRUF@8ucq_I0M4#!S*#K2o|uAHE_qdy@W?-qHYv{96eB z)%A7e3E(wFJjNww*Tw{nzCuX)ixH4BYdhbYaT-(8V7+d8GPPI@!Q&_%p9 zviN#7@rmtk-;zZo()^vL^!kIGkW-ajysFt(4x-;dF9&&$(a9kDh)V1jUDWWXOe$X; z7190cv&u0sV%9H~z6);_b~)Gnyp#WQpT$+8SS@6qWmn9D`3}ufRO+UrR&nLaD&40Y zQq1~4p10h~D=Q`fN2Cxl31$$bfs88S%2hA!0NdNMjnF@DYf3~_F!;H-hwa<*_1gx< z_zce|(S&BN4M0WAd!2z>&T0b=kNB&PBBbSyVNyQ_0N>uT)pSoz=fG1NPPO%yhu#gT zN=ilsEk$rvtd5;R?_uy6p;9{ahd=`2S%oqU4UI}=?c0;i&nT?8Z4dCtfe!VL8@~)* zcRlPcz)hD9x!H-dZ6$XZA|@iLd?r>{gf=raHfGXl4Lf*>Eeq=7*~syKzvvA;ot1e6 z5-z#j{nxix6yzv>nBnHy#0-&5Qv`Auy;;}*w|!4A*}fYBfh14N;R2e5S$g9f`$SrU z|E+F_cX5C%HuSQa0%91CmXFF!cZa0;W|%fKo_4vp+ZA7@(7yKl-h2ifaJ74pcyuCC zcW%KVTL(_%;8He$l@t+Ckuj&&)=qCZ)rb87_dELUUwO0A4?u0u%)qP0w&&NcU+L-T z0m*l_duC5TQpnD(kOP}7{2`Fnv%)UWmnudP7&r*HQ=7tGzkWSwXJcpQ_Iv@9(Zw4r zjt1a^2DLnkkS9AJK>*P5+29Nm_F9}B4=)R#KWOL|3mmLH;N_?1Dn=|!@(lbPQo9tDtDtGWTB7#T{zOb<1Ps%R}H((TGpgK(GUdcbs0t5F8;8=u&goh_5fiM_n ze~K_p+0@?-U$qrm(jp){GhYfZjTxGmnc={wtgF+xU`n^$(@O4JkCLgLWUA_Cen^HJ z+zO(KN3#$K!Y<&C&FpE=WPoTyow;9DNnzag66$STs(KRF8J(I`kdP@N=(Wv@3Q){G za#{y?-w{Hi64shRC4RHsZf?l$8HTiWb#^)@`+b)X_k1@JXMbW!sNJyOBa+36Vt%xI z3M*qUI%9j4&fjPy;!W7WaF?zy0qAQhVF#k6 zq@)ndhypD4beIXRGnB-vJeP$Tifw4oIP3<<1&aR~irew_BpBeEgNU}bTGzO2Dz=s- z7O)EE2>yWbsSZ~x?_QEk#11i2dq0Gbh)BxO@wtbddPq|7gKM?s7?6Aa1w4^wRK=r^ ztZWuN24QnvfZi2`-rbTxK_VQ%usV=PSgLsEp6?gGUo&13O(vO|>+QDff!uy!Ct5@f4w`I7^OTwT=~P0OYL zniIL7DkD@8JbvbCRywpN!eWT-tsv;W_5G1vIP7N#vFuzlrW>sYP!{BL0a)BiM=|cr zqm|JhIgmsHaO?52Z}h({7D9nU)7T|g5}cnKo&A+HCRCyh1QzqYYwD3MkTTosbL3{i z@&&vfjZ#D;eVoNlcXjVi8sz9>4h8vv@i0zm8k)URu#(nnkL+AuUq9sMC#R#Mt2Onj zmIOZn&`#pqsPq3}M@eQi?TU&1Wtd-2sw2S3lslk&jl6JX`qy8!ik=F3T*@ktG&p`o z>+P5QL!(55R-wuEb*d*RH8ml~hVdE`o&9ih@EYu+b!)&Y@1RjxMqSsctC@SL`QlZ&(o}^_e6QabO^;h&z-R3^#vX!y@d^K# z(U5Q2$JW@ct(z5Fm=KVJ0Xg;pTTV{SkTL5HKxwqRee)c!kdMtG`Lva88G0twt6KqxJ+k(wTE{bOq&z&2?3e38)ZWKMLN4a|f8GM5i8 zpVQt21A|VHumFpa7}+Ik&_Ju-F#Uba{z9si`eTNb-;|TTEz<+phJgyt;r?wxBm#DobgrRe;A!1CDT8@P!@YDV?JZ=nJz8ppA>8I zNbr}C0R}?HnU=?BO1g)gdRutq^L9=C`C#CE$1v&tx|}fdUrU9WdUw~d#AFA=yU_DsO9^ArkBBZ!PI zVu2jG4nM3NtEa_9;!Z014>ek9cAl#;k6J%Eq2Ee5wGs)?l4l>*3!_5W(C=~hO9z6w zM8vio5WA@dBQzT3ADmmaoyQM)9d&b&@?Xb=Z_r0@DQAvxGD1KW<8mN+APewLB!Lp% z(9}E;M6mX$fdJz3XI#LP-pnHYlWp<-{XGcdg9qp+d5+CZ2;?4!hU0H@vK>HP4CGb8 zl0CqOotF$~v{0mN{!f>-Ch`~%0YQ9c0{H4cgUr~y_sLaapQvxIny&3N>nAqv54a&O z#D5LF54n4H=<*VIoin=NUZ{11c(~ft=EJoWy(Rd*+F(kIX@z@m52mO$(4bT*Fz{f* zmLJmGSa-WJ)bxQBW*`G;p6J5y`M$eM-+SNTFMv=xC=3`a^W$CJodgnvJvbnXGr}I* z*#`uor(;}$?t_vVgfr(5>j5$yKt8SyC zBwsO!GTNpdmz#(&6n}6`sHhUZ+{iuh>JFP~rJkxcbxlo8!eLME->BqbyyjMx{3xS>Na@*$+Cc8t$N-&QKZ2Vb=FQ5qfPC4zV|01!sh z?y^CTFN-fNMjmE&$xXz35}5x;H#5I865v6T(;|fRH_RXtZ@N4Sr~Yy^npk#R7Q%(Z#fF`ZNEVE>8@yNYb3t@)EWc ziYH3LJM1B~$@{S7&GCtaH@y|RW?_YHNj}SpI+x+VsmKeAgr*g;Hekl4uU&bmceWvu zG%2H$S=U|(>DGvVMMF?;kd6X+$niaQREJZO-wuzAph48s)INuXN?KX5f(iszK0^ek zl#Gr2^&j*ya!C|y#U~mX8d~CeKZ=Ve9oxX6;WY;*d>_gpI5HY{4e?nzuAxnEcvIjVox?zm!X-S3K(y8#+ z-M+FvkGE6-pG`I*y&;n-h9fbet?PWtIG~j4#?zA%{iZD{m8}V5>uwwBT2@w8Kt{B< zbT3+t1N2vpvd6a7)}}@kh0xLxfWmeVvFV+4g;8NZfbL4?2MnB8ziW-%@hl{#k6ZAu zI3R7CYI@HjfmCTnAwa6MO?!yk7KW)U~ z1dz*{lL4pAK_;_>AUrb1y^0A`u_BFtSl3vPAFxKy1QG(#bsc)6sR^yXgb4p^e1sZ+ zLOKhLz(15QR47L*AEJ?PS|v`eL5~ zOla)v-P(H& zO=rye#E8CcCf=-FZ|R?58h)_#&kIv>M}O*e{)`z^lLmgU;Kq)R+mdB)Ebx;hG_w4C z5H@HPk%e8U6lXHj8)ViuaRecM!77>#XgubAK!^4Lik~c$%OzWdF>PU-cSeYf0rGNj z2t7SLkRzKt9diO+F6bDA20DDd1~PRXdKO#|XB{A5{-i|N^e*Qc-i|Lj<(1@c`s9pq*1+im0$ba45-hN%u0SV%KSR*x*7Fm9}7}eFy&?Vki zfz0g;l%{7f@V|PzdEL})DgnGh;6$%8@1iUma2}pZJx<@1$0OyG#fEfTVy4@|ayg|z zY@97Mi24M@;|`P8-|m9>^s>xuERwfK^3!zZ9@5E=6i$(YH`#?Bc@5hn_3O2USda8aR4=PAu{0QG{XuCW^>MBVfO3{JPN^@vOVQzw>l!B+d?s zyk2nQGa6gp;e=kvnJvsW_>@=-&=)+v(LT9NJM6(+3q@vTO$eSM%Vg3pzBL6g!1tK? zt``)Ms})2Dr0sCd>?!NB`zI9wWW1XWse8z>Dn#^D9Uji0%^jOp`n@)$XWL^C)3!K- zxNey_;b!AV&RUqJ^`9cGGASO6bMOmR*YIFZ`bV~;L3!w{lz8$Zm^}8r*r`q*@^<%B zBgOslng(I}K)_FSlk4G&=TrsAuT3CV$Z~rdY~5VbR=k6h?q!r|P!F(2AO#+_aK8xa z{^sU?6l$;teqU{JF={c$l#c8azda(Z7g@UhnAw&(0Znv~y4d=JPef#v14E7TH(<4wpdafRA6W_5o}|yK?wr|7Z-fMV8`=G z)1GrNu(gDT{(LpFT;;J4j=b2JF$(+gF|vx^Ed2fnSuu}6SKGWVR+$~PxBNT!%D1cy zA?ht?ZKKC<{!w1n{ck9L59PyLQafrcPSSg)Tl()+TWTS{_lcM)sPh5G#L~_Vi;?IIH32pU+)qVU*VbdfTjKg7o&Nxa#rlQ;5)MShC*5MY+d+ks-%EbI zt=69vjXai9Az#1V0crH5#GJIwq1-Ift>LWtNB6&T=zYypmFwnF5=YS}-oJm}Y|70V zTs&^-kotz%R2SRiJv!0-eT^`wm;7j~;n_m8PiKk2G4NI}*ll>Npn2jC{(J_LW@whp z;s>*SY(c^|)V2dE?6cTDe24e{&dXJvUIM;M9HpBi3=?|3xB1Rt8#^H4N=5Wba4B&pvHcw+q$qp%d$QexBa&mFDqal98z;(1D0-g3CP zs&suP{td^n9%^n-#gv?U_-Ia=w<6H;{uiIka)QCT`MMqy*Vof+S6by}@rwhl8}JD3 zKl~m8x7dztqXg?AYzx?vaFV#C7uB-N)@D%`X2x(sK z2+epSs!0zueXgmVf>Fs6pC)cwRXAWMAqKVf(?}Cnfx9Q{F__cqtRD?57(}v{@dWW9 zAV2ewiG|3-FK>A%W5olxR1zAK{>t<=b5q*)8+tCwlLJ6Ih&Ki= zba=!KL9qH}-vT@{+j|pw*q+EX`=bSXkeh{lXUs=0MrUk%JUapQKz<; zWGrF0#VF(Qy1!~r*&vkXpr{$f;~!eE0Bd&HN$r}w9Kj_feBJiOuIXlsfSwi`lHj+Y zJL|nuh>MTc8c573wV7_{TCU@?ekwyNa>$gI-=pGE^0PdoYKIRhctPs3PCT$YOH85c zk~`i1c}=Q(JgEralU*lku+oiQ12bZ=ddhK-(sM7*$f}_li?@D`oJR&K#8;l@vg4N; zPts)u2s6*zredS74|Hu?1Y8|poY*y7BRaz&s~aZ^IO^gL9Xz^5@+Km-5s%c0PHk8e z+v$`rP7I`HdrLdJ@zQ79_1 zI>88(Om>#UNINc{#!H-bMI;3PNrDc~RbRIU3`0Xhl)}~@N&FOjq(hAB;qXhtx1O=@ z&_BQ^2qzY&x+GgO@2yv$w5E33*W@HHsOcxX4KV4!e3l$`yY{8s%RL_xv(lU^d09$C3KF@Y(L z052*6H}j(Jj+qzMD+9>TVVv16aULF3%^MbW;b4>A2&Oi3Ikn<`$X_<2@znwywpnrnS7 zDrJD_)+{^goH>h@GLCH;-Q+Eqms^e^U_~|F+oP<$Cw&4v3%RN}v2I`^kywU}9}uyh z!M;Zl(GE&Vc_`@HxSsxzIXvFSgghQOerI#wHq3|x1tR(J zhCDj@G8Nq6v%ZM!*Nyg6#nuWQd!*gbkL8L@yGe7pyd9TXvDTcNow>zs4kdHeyfZx* zHnVa}p)D^kI7CJ1bhfKltD1$)o2{a-PERieN?6i-Ng>4`0F+M=x*z@M1>&+h&Bae9 zy4ZP5mPzX^xd25Xa}1sn9-emZi@WjP7RPa2CMs<{b)|KUsvd0|SaBzMhlw*n)n9io z1Ps&jrA8pZUf2?;R_MsaG#Hb+osc-Gv3axd_oWCD((J5rqnDTubU>d^E;s3#-Y7WV z=+G`N{QQbM{wx2|@WzHyueJXNEyx@hf(a}5>xgTDhG=cW1iWz8aduYr*?I?CSVx zuV3+h=Q|9Z<|Nd@v1xB_47VEnKvNGBI^&bEdvi8nAbqly?cCj4SDw*Wxj|w5SuJjBmw_bU6;no5bd}PT z@WBlkau%V)TUAbPWmR#mW${X#AlX1UK-$^mh-YRM2lA~>|F+5aRJIQ3`vP)fyC#b= z+$$`si64IOggrMf+$AL?34%@!KvhMQu+sy7e8vmKnp^Ar6z8iCx-;I81aWBN@#CWe z>?zoffUA>|={IQ*J>~*O+x2|v`GtJ^J0#DcjoHq#H`c&s0ii`Nn`SDaXGhtYOx^|& z9E|Ph#Ct)+QA*&TTZt6ELG93gOhO8ZZJA4wWb`vnbaHR=vtbVQPCsuP0=CLh^rwNw- z;2>$#UT}F675P{N*tjS}c28>_$J?wq@A?PLViB_x8P)*Y{X&;`y+0*%sV&6hV7{T& zMtJ!PVnQy)g5jJQBVr+GK?A4>0g=RCn=XNb0mm4>;301-8e0rE%Nn0qbLvS%Y@;V6 zD{5QJx#3LoXy`#UbXU;Gs*L{41;BDtIxHxfZ#O{HHZHEMWsQ2TA91q94!9I8Gtki$ z<~BZ~M^r&20YWi7Jq=g885tf9YDaDkW%jIqZOV4Oo(c({Xxgn@8W>w6srcA0eojz+ z64_$eeyraK^)k<9)+z?P^ykcvS>aaMMVC0!%k-NMZhNshk-2L5#h`^M3YdRE;T;X) zIPjE4*nPKIHDCP8&5KnA}Wb$?Nlu*;bCB?8& zX5hu{WU8F`z?mkk=R-mnLlXbI{&WBeCrkUCuY|pcFQY_!-Iinl1^2%rmNn-2aWKu$ zxOqobl6DZ`cZaI8i;KWW7z2j@UuIUt{TzH7Ij`i3_UZ9pvaZJ9`>!sFz97}MYU{MmM5H$>sPrPBh!iOzAP7qDNbe%O1f+Kmqzeerdq;Xl zy7W%yNUwpAgyb%M=bZb$XXcyvX70>om?S%UCwphFcdfTQ@AJ;oLhN(VXo|IaLh9ZF zY+de5XY-*}X8s)~A-{e-N)%&Z(D~@z4fMB>E!U?HJ2DVN2|3b|8S|0YFQ%48gjhd!L7Nc7JgY5pl9?o_1?61@AQ;C z#G9TDmZ<5U?zp#q7@U~a&`%X*mm13|E0fc2BO_Tw0Xw*mlm|MRDwHb*dtQIzVfh)zJ`Xm%iXlE znG0lvu=B3Crz)gciCS~zirWa6r+;VRQOul>;h2@9sK`hs25dpWlZTkEG$^_5mWm3M zT7+ZMM4`HIXE259LDM+|0>HeVW^GS427#HU_LV=9Su~X5K4a;UJK=X|>e1Kn*wcL z!iSl=*4MO(m=MTmxfcwmI#Ys2LJnB_!)z8K_n$^#HE>VVG3iX2z)c8fpX~erR+}$1tqrwm2@q!+XD) z=+pJlGvQ!5JW;XXTL#(-W!>yWcyZgHf6=DgZ1LZdzfNHb$r0 z9ZjE$K^khp7x~_e)gTZgl3*EMxkZ|YnS8O{L`wXa=fO{dZ5vikOiZe88|j}dyFp`z z5CWYN8!1P5*uZ0!bP1yCryUuGH$}W4eS2qt_$Z2!cw~vWZMo6mQXBa6Qs)-;UWI}D zn;X2B#csQ?LC5}{1i39wqXGh@TBDHGBxSMh8~afo zd+D_3@OlgWjR$)XbBXnf+sy$UKj&N)1_Mbc`PO!+7dKJV`{k&jXEo*AdE6z8%amg4 zYim9*0?((VJEU0mR*dkhA07uNv3E?nag zdQjDTZH{T1xEJY;GtU(1FfcqE)ca9oKutWd#n?3YHv%XshMp*vo6C5E1*-fie#WfK6F?nTBUul%>O%S7(dKcqKSMLtD ze6OZvG}p=Lg=GA5(UXQbyuf?mf}yy4E<4}VQr^sbw*Vn@jCf^@#@Rbl#J`#(qk=n; zdb)nWN}34bk;M_s>%BraWtl(k(prxjxk9n9JZt<+w8%Sk=Xa_n9|o`VgGWBHn&tVd z$*Rx`$sq_a5s9R^>jS_=ytKpSd5<9X9(&BItegEG`3s6az(U*z2>D(-HTRwM3`lS7 zedOBQTU@5t`B1wJAt)gzEA|=nCIYUjW9{H&Qf?%F3v6t<-B_Tc-(=!Q+EyUCE7R6_VC2hB<&xIXIoGkH~V z;~3{2AWpoV2>TyNiI!YCbv~dMn)O2c2hAEc(5q(BXM$mIvjx$`U1qn;994av-8w&x z@X}QOO!9o@GL!Y?yA#z0$UbL^ppA-U#4)0flrDzx<>@mZsF9UqwG2#R-i&6$Y0|c~ zTpJ7g^5zUWUFlOY6FasVw(W0|1$y&sw0iVy8r8t4pErIV9i7m$1{$DG@X7;JDKG%* zDlM;(RQljlq3@8`Zz&aGm#BB_8}mJBc${}0;R4w1EODW%Cw9Oo1$47=nOe7^<@ykC9Bq| z-tgnDXI83rxp&5i|8gkQkY8ZPfBoRu)?x_aI1G1yu#8^3!;tfXd-wN|yj+|uVTy!? zkYA^njg3sexD~a_D`y=MTQVU!og5F7SER~&5}s;sn>v;SKBZCQm?N=Jvs z{;5pZ>^OtqFggN#78Y=Ta*F?2`4hy`O!<=5Na}bTX#C8Ev<#BBoAW+6jA$Ah?zNxlmP4`L z|3t`~#;P+N&Er54|kes=*kA{AfmxI25+{THX7Bu+1(H|Dq)yT@dt zm?7auu>Adyd?w#cY0$DoN3+7Umok7jfP1MUHzKj}j3}odR3NNg7~m zJ*nzP?fKbt++yQ1i#H2Vf2bi`@cvPC5$zcXq=;|>awSX(?u>}z3EcUZKi|IBGxLVS z0$JjzI+!O*o<&c(Y!xc`ZSQJx!gYS^$MR@DgDj?Tr$26G(&XK({Zd8qv8#+b9Y;_> z?V!@jV}odvU~LZ7(C=eoeM+I?r&3&+=6b`2?`{Gp74!7$+{XJfgOldue%bB70h0H? z?yNU!?e0e62HRUkJ!;w!iZqUiiCM6vWM;OVN=yIx(hO)=L)io`R-D$ohJ91Z)d|@k z`V1Yv9nh!3w%hL2WIba$8~M5%dJ?O|+!vdJu_3_oDbHeEn(n=ym-n(Xv7BmRQ@2@0 z{!$Jaa~?I7wr+p&!OBY=pMXS0?nv|MY3+}O$-Roww`;5YFi+OcyItpIqx!an^M?_P z^kD@R^5z!BuMAoZAS;%wmQGeEB{}^ALHJL$0#UaZ)Xa)LhqFgv;fQ%B2;;^iw4^&Y zO3CY4Ob^MB9n?>6*5Uwt$=)BB`@mR!M3A))f;+DdVTh2qs4;J&X#+v5t*tGvR0WQh z@19&coH+jbqlfm6S*x15y0M;C!U%{F=YXnvZdS~RGq(XS8&wq4WGkJ{_ZMiNTHfB+ z(`!B6chlBDt5cO2bLSMrK$aqg7}Y*JRQjT!r43zPa>lYI|-HoBb>M>5oB6>5uOPX0^J^ z{AWlON0&QdG5xdDVWFYNqxg{ZsnV{+#=EXt*);vqwQa*N7LSu-W$&$9M#DwY%JxLv zQGEMY*+IRfM(5}EA>qE(+YvbSEgi`D-iqZ!k(rC?S|FmUHB;2*l;r+!GM`{I-K63+c_yR_BE66vxE6hS z$s#)|9|dnr$fL)c?=4$D;b~ZTJ*Aoa{%vK7#LT#7{wK#OTtiyPJ3CN`!1VQN32C?+ z{x#&?M?BYiBB6dac81R8v~LryByW98G?KT^D=vJ6SZWKscxTl>soeX8G8~CJZ7$Fb zLaA(Qgi+VTo}i~aI1uk1v#|vo)hEQi)PtM{3XRshnGgQp2mk`0JGYz9L1q57KJ0-5O|kAXi1aI1(XcfSL|4R&_rqGJbKQ#;b?3 zhIMZ_M2KyFT?toE>|2 z@Gb_39W)j{ASHtq$_(!eS<{i{&;L=)8*Nm#&&I;db$LkfrszJ zY+!QD(x>+m?|Hdld7~9?q@-ma;@@my3vBgDuC0UEyrl6fQI)T;4$GeJ+&nxytQ}vG zLb41jGK#A&euEH(veC03Wc_pe3sh${m#*U`x;5v-^ zKm+6=KtM-XMJuo2s5im@GY=eoKv4a$`BuAw`i|;nQf0YgHCEpz92`=B&rnj{4&moG0*Rl7WIn@D~d z`v&uB$2#`)_pjT;FSJK;p%kPjN_ButdeXTnb98K3yGjg@E;;=c^ecf1}*8a zK}1AEfFL43zB*~`KORaeK5)BFYGG^JJyZEf=2-mRqepq#S=@kKq-Rq2emy!skADBr zGdo}OE3>=F^p;fj%YIhfbaHa4fv-gKi)AURtDEKOtJ4Iw`4R5K2lSouKYvaSMz7wy z9z$o^CgS{?I_4@ARQbV+;V0)tla&~;I!sRc` zASG6PW2sQurs#Qck^4t)+@YMpLZ=0rEUFSdJ@_`BY#p75trb0`jkg;;7>xN7a`B^0 z4!AZ)n^M)Ab91=ceY_f)#^}?k%gaH_;cC>eXYy6JfKtC1?c5FwlDOx^j1Tl+7Ff~N z%JL`|szyfzB=LAHCmvPW(VTv`M$@b+0GSM(IVaGSB@`5-##<@=3v8TPL5}lR1q&bO zD}AVU{vo0|`^+{C}4X?)rZuf9{ERQ-pl7zQonPR{)8| zmpX#xfEN^#wRrELcUFdUCdLqs0-A6hU8bX|kzO|OF$V7)rXKKD!fI_}!wL9jKToKe ziG~3jpnp)%oQV;@_aG3#EN?+cP^)D%=s>`J4b)L+B=jDP$J*=mBb!$^ozl-n#@xT$ zA^PY4Mc6bu!52hKMbo8X_fE^ccAYG*=S$ZdD~9Tee7$Di0p>S0GJ;&^^de^C>4fPo zdatKiI}KJh%;2cAIpLQyaxSx4`$7`-;972X#A2&!YGy@gG;!OP809xa` z{Co**?Udsl+Oc8+4&#Bh4LLak;k*J*pDv$f!qS_1L05)9f>&zN^@s+Yj*B>byM*^) za-B(#|4a>jMp>Owx(j|(H(O#d-i)=$6EEB5<1>j@UOgZ(3j5mUgHfKy3FJ@yT_2D# zSW=~qmv{k`Tma&44rh^bwd}164q;7PQD1&;CQ_VzFNIa<9 z|IwV4#h2$h4S{x9LBw;Qun(4T3jvx4f@?mq3gjQF(mp)1!9INN(k9ztbU`SlIxyv| z_61}&V!r-MF!6uTeQdquj~AJ<3e&abKYP0*?894Nvb~3Ezb9j$gfwP6?SVW}FUESX zz!$2GVeO(S9dt|aMYMw5U1!Dz_%G*1wZAR$p1noAteq-}1`e<-%t`1zW&9nYVqs{> z@4b3(_mj1s;Jn9tgfneD2{`nVwZ&rBVzGgDNAel~wb?({ae6J^TRtFnPW<2V<=+=~ z6zk8reD7bv{GZ30_~4fR`(yt;`pX?WaK8UY{nZP}o8VXd_fbS&z!d!Nqa>nnqW|Lb&LZu%?P38uL{PsVBWjrpcxH)(Ng3IcJooH~B* zIAt7z#A6C=DJB)%dk;xT7Dc(G(A^$H?B^zT?L!lbu{*lvpKIS*dC4-l^b_0sK=f-B zs7Cd)*zFF5+-$(gPevL*%Dnbm-qJ4=k7>c)^(=gn)P97iP%A3shTQ4yA(T%?c4wv6 z+Hk`W@*Fzr!b$)klwA|Cxcc(T$awbOEn7FFdrk*GZczRu9YLm!E7_Vl z#0F+8dscF}FYxY(P~K1^k(^0LFi69E`%|NgHX*P?%U&7IJ_kCfC-vI7)y-Lv4eS0_ zyNW>(+WLi16wBG)&AlA;+()Rz(b0RKu~!bxKaqX5i2X^6t}&Qc&jUGck7}|hg6Bs@ zeOf<`G(OZtK4fLZh1|Mzi>K6GE&cQ-l9Nik`mRvge9~KXYnkY040%vxR9I_LZkA@j zUY`)dSx(9`s^3dd*HV=CN$RL1MijXDZB3O0L=478`+c$yE^xT>H#}oOk0Jl>;MVe~ z>?LsW;=yrevuKs_TXAR(#P}a2w{Z;NtL&KFVF1jPs*@1_Og!`3=e1X^^Yl`B^%W4J zlx?+8x;Q%lNA~F8Ibp$DQN+Pg>PslGKKqsb=%={Vck&)`^D{=f!Wo}|hBkP-Rb0WI z_wS42?c1id7Hw0UoRSI|53OX&WbfaDKrR#&g%>7siWs&I$W`rmXnn9n`4qOe^?XY; zO`eov{o$%sTPCgV(7x3>vgPl!S?tdQ1Y8IF7tW3qclZA&umAd$eQhJ2y2xwe=f>W$ zOq9r2elA?=FYGc!#NkIi{$@*)&oQ@UoKt!1{b*O?7b||G(GK0B8$DV1 znN)4OIFGpV+S({CMsJ@ya2AHk>%Jt^u>zt&Ey62lA#b>U&5)I`OTSweExqLwlyVr6C-YRdsw#*j5y3wzYV;zEyYLT(q{%s-eWBNJMB@f6c?6t(*82ns^+ zWnQ_6ep55>QAtV3IFtSa?(@G0Z1t3$YMPLsVCJu1n!%473+$QX<>mbV-n3H;@B3oQ z1`Q{Nm>5eC8PhGJ_LrBJj@AIn3Gsnm?&!ZgO6NBt1E}gF7Hs*uL}HZt9JCyO6YdRu zREggk*qVdGK76~QoT6{~+cd@f^7=R8#27=n>*hF9n^3yH?z`K+CXsJMzGNl=sVTe6 z&T)o!MYL^i z$l54abrrNby+IqsE7fenpSGAAHrlDEPPDuZ8A%tlB2z2T$wv>Sc@au&J0dp!6e0V= z=7%8$dT@>qG3pTa!*4Xd((~u;ZCAn$R>V+bQJwl;=GnL!&K#67SrqP_3o$_A27pgK zQ?7vVxC226S_aIb`D&|{g16OOGWtF7e1H_~^4+Q)k2;4-Ho|<6D!@$1AmL-n>|BIXwSIxky*+ z&50nGxqX1Wy2pc_{!qu{;fj~n57~L986b2Vi&HeiAJmMLUitM4T3!=sf!uL6^8Xr= zr^h1l4&ylwqcH?zgWV@&=8^StfD+zn&dbBe;w;CsNHn&yNBv1 z6sd~eKpEd&sw5kwJwQ7y^?5Rhtjb8~(fGz)9KF6=GaZ~0KT6o*!rVKpe>IFKeWKG7 zNJ57Tx#~6a3}a<$O8_CEib|>Y#5X`f(rw0q3_(36_Zp}M(HLxmyC?o^`%{Cjtq2Asv zAqHKcRFW$#07F6>E(87(dZ3wY5Mz~FX`Y|5%Mj^eP(8Osem25>ew6p+R2GhvnYV-> zGZXjmKp7q6&mz9+PRa+GnMkNlqh21d5QJ1Xv_cQxG$%40$F|Yzr{w-;ijpu= z?_<$q9JKMbYqGWdY=%#Pxg}h`Q1kNDTx=P;*Qyf%Er~8v#yFG5>nYxd4R=bko&;q>tNWZ{wsLwNF5hFkEN z9>42?WjLV0?=lDzo3bnK`i>PVeTBxUTfky`@@gFXb|RALb~_(D?Ub6C^!mkY;5oI1Vi3jcRS@=8NrV2z z5k@}!`a}jogg<&kX%(6T#)>A0oTVE80eDUN;=K7W0M%SG%2iA%?9+|4Bv?VDufPH( zz2=K?tkhlj8GN41@pQzS{I*ignH>;MqbiW5&dh55MOZmfRPJrJM3<4dteNM&B#7ZM z;!$2{!TUesq#pqL{>;vP>{keI$kzF=?$I&O4gxIO zp!nzaKpd$!r+0um616!UtMrmsyri1nY5V=_uRlrZh0)KZ5*`qOB*vd^T^#^o33*Oa|qI`7Xvu6@WxSe?LSfy8WU52qIvbqZ?--iLrW z9Xc@#%NWlHKZkeKwTiz`*CZBC(H==CVruiY8Piw)kWCvt|9SOrQ%C>n14GT|eT5RR z7IYE`V1#*JzO;={D<-YmUn$*aoG6e-_rU!SQ+mI?h?0`NK0WDJ3?#_4HW1~ltuiPr z<^;M!*<(F4=RgdYj0`8@d{2hee<1v>--astBC39v7g$%$mE>2D9$CElW&`#a4&e2A z4P9SDPINte^h`P6E8Yk5q6QL3Xm1ae2I?#^lT%+OLwQ+fh)lIGx2ym1r}K`$hpN!{ zSE|zNl9Yab7C%cT?5c-C&+}GGY23TgyRk!m5U{^hOc7X7zrROfT`;=hRhTh>b;00x zGR?V86hRhU#p7?^i*>1u3i{sn|MgZiX^KZi*6}aZgvIPoj}S15AGsJ2uW7bcESTZ# zgv^j+i^|8FV=-Wi0mFQ7Xy_+Y*D!CA0(d2vQ!MyK{|JynsHl9+Ob229q8rz*SD+5^ z?09IAMF*j?@(Iyd&v8!Xc&jiIEh2Sl&D%GGWm{=@?qHF1jR{BkX-WCLr5Sqve>f_J zfPl1NpT`^=o%;(7;4Jg49XP^o6!+DF%C;LXg3%X6eL6O-xMd>PLA+M3iYX3=@sxg-wKljjQ*> z)YPpon5*HyWZ-&!$*;S66s*J$>O&-^z^i10L*ae31>S`CbmZ&5>0)`GQD2uccfJ?l z-Rt`#j}1^ER-_AST%zr_6K)ADOTE+8@%!trEL^pY&k+$o3lzOVIzK5eKHCMJfk&{U z(_h&H@!gV)v!8HBR@(#iN*fT`-2F3{$$qBWSU_sHk{_6+pGQHX^z<(^lpZ_xY886^ z2cZv@io!m|oS8FWZDsRK9TV~$4c1gFSX=8)s#S0pUCUIiqYlh-5+&}JHaS>cj=!HV z+aB_-d}uM-RKktqdY7bQDlX@tJNjx)%24oC?{!^Vn+RE;ryI#^F8y>X!-FKS$QH}p z*<;x80|)c{jcZL;Se;6pn12H4Wvn^*6*i5j)YJ_K>ns)CR|E zy$~Of{l*&?7wLv*M2NE=mpHROh>)~f3%)XHeRndIX!ORf6Pa^x-9`VC78W_rL>(qg z=TAjVJ?lmB^QU=jM?gS8;uUnLS!3cTJ?kAhcX~xkmI^B#gdjXduuw5TLDPGHl|rv> z+CA=>zk&|U$9F!Ru(?>rzU-`Gbk!(QdvV-B4)NJz7?Nw;&l4HoVd&E7sLSlC7(u?dE3fTL_RP_GX{9+^moRXU<(q zRT{<4G8rSoO8nnhw9!h}BcZ^_MI+Y^eLopvb{eyVhHA| zyN`0|q3Sl_9+naw?=G5=la=}SKm-7GMu0;> zb5U783T*OpA2zhfXTwCx-rsOzoB!@};q$v(_}8OwnJm5~%8P5B#SXWbu-!;^|GX90 z?^W{hBf_dVA&RS!lbb6N5fH&lY((DoT*(FNDM<8}Y&bRD#b)1XIKMKy2lT)Gab3SI z+1T`LJwm;t6>Jh4bX4a0cjb!UaV<`%*UpVhP^yFoER{TsObZpeBZ%>FMzMY&7fOwt zEMdu>IfB|tHIFqjKRbH}x#PBG|8TYP@2Mul?3>N_OsLk5J}Kbh&IGqOF&CQMh&9$2 zKwx&h;q)8dbkp_M)m9Pvr8)M|2Q2-jcY3hCD{e*fD-|{ich8^scY~$&49vpa9mXF= z(1SnjXr&_;nH_}w!~>muVV(+X^1IBx2L!2Hl49$0x$bfVFH}PfLw}luA^wKIYSoB^lW|{UzAnf@n>chUQkN%=c$NBF5H-@UMDv=9oG{jl;2c5{=NLx zt3(z(@dwcYl~@JqjR$Thwz{Xqg`mhL=faxbK0{LwMJAyBX2ukyy(}Fw+krZ-(!)>V zS&DmJh3tEB57;1`5+20=O0^bj$#-ik~lrQma2VG}ryLuHBKo`uV%l<*&}Qqn&rBf1qgWLFb&> zN`ufy?74JF^)q+iI);BwRPHn#Ouh!1Y@98sgp{Ir}UQPQCiJYgVc5GXZ5Divi;=$0x4Pu2$ z*EjY&TvfF@%-9=ydx^IgcgLAWW`S}bI!Ul|+NgC6x(F+j*dptZOMD^iBY&ab_X0T)SYUs=M5=0(hY>){L4yDi*=mU}ntcf|=j-q7nXdGB-rCw-2 z?fjkY!SL&YlI}UaVyyR``RbPkmADdZqTVN1{w1nGUGAoStE7LHwqHjbmVM?afhha~&H8 z$(&xZ+-s3Ew`G}}p(^VtMd69OWY;Gn!{mkOEfTwKe*$n4{%)G7Q;R=noR`Q|{W7qf_Uo6mn2w|Ax~?}K z<2IDD1VOH0 z=76uH4Eg{V2+WcOFM6YFKxzve`vOB}{F;;m1nWOL-y83j=Y`QfUr!lU#ls6QGsM-E zF$<3(2ceHE*B7kFt{8II^#jx<_OQ5WZ#{*!w87&?lWxL*tkM|EO3PVN?C2~!Yg+g2 zT}Vb^Nm`#z#5ug0-y3FS-8pOa_WA|MTVOLS_xkPHdXR;lsx!-iAV=WIV4_i4r_}fo zBb4WxbZ%f)b$2MxgAm=BD2HC&N3Q}Z7Dg;g4SNhbE=*rU3r8J!FKrmt!IT>?H?K`C zX#(Oid^MV>jO9j|Sg|^BCTPz<|Mp5U4hyttLNFXhjp{29O6T$eP=`;*$hARfkIB7VFTNPa~FFsW3RMj--yGdh_ z>~f30|ABu>8XDeJQBk=g_f_Rw`s)LL+Inryz^K%UR_6{QZ1%a}UY7aZ;?vM@P5Oa4 z71k3dIO}xZT9-0s!Vc-EwpuMKt04yG%{%(~`nm-A3kzSk=pE&6sNmrlmTMV)e&=#( z)fQ_&`VsGK@j}YF)~G5Po`@d-B`6UdXBg}7RJRgEwMRIU9>zadE+?!X5QLbQ*j8$D z(K|~on)Hyo?ty12n>{N);Xs^4TNv&|hz)^zXMsM+-;K<*Ew>6Q6buChDuJ{|U!0fd z^FfXXSZtqtt+FQMQV7G+h)&`v-(>u58sFWL+Lwd2jT@y_x4DfIfwe%xz{P;|--A;r z0+^Yz-TDQv6=eSa1-y8@Bs?u`(yDD@UazF5(|}!P-n29qhp?`BLjNaNl~|_p>^PU; z>F$+!H}ouAzdMP45sKx{L=aDd4iwKQc6fPP1q;nud~gh`Vw?3_Z)1HUkdvSEu+>64 z)k{e_@F-nR9O&Kca$^aIi7|6)jhmpXN+Yy zi&?Y${`wL_4XwUgOtVU!!`EX>ezO)UfZ6%djRm5CM-kdWTQd8GSGA6Pd17Od-_Jem?YyDaAf2^Oh?|Bu{@UYafB zzf&fiN>u-siIx91*&YX~#$V4vNTqCKk*eBPshpJ_$p563PCdxHQ)_tMF3E~wngzz zSJBP9MagflU)@d}(f>(mjo7(y@+iCMRM@2-YjEQo4o=90r$oECz>0%@YSY)ef4!|R z{?!ZRKWXgc=yc0*_r#CItn3d++u6v}{M3`Z%6j>GT;*NTZ1MgxRQ}p^IDIU5p9u06 z_gulJJX|}Tgnb|$Babr;c2kNa7)TDz!pxw98u3W_$mMO-dxP4|>{ zPE0H--`PA5{p0dL*m{p}M@Lr%@nK|J4Xu>ZiLT=a@#`gKk! zcd4UvnQ{2zZGW;A_x22auHau2aYs&Bui|s83rw`6vnsQZ9&#u)<|5aE+IKkX3s(Pr z7RwD?iVYxv7#ZFF=2TL15Qc%hq~EQ&yk9#ZA@8L=fZSZL{<~zbeu2tWiR*#)Pj0#I zlcG-Ov!VNqKa@4S%S(t+(DK}2o2}ua^M$jTv9mpS8XZ+MDitRM1Zuy<$KyhV(#4`^ zR40j0cLoOfOd$3K{ht3M(25W8R&AgC;JgjhWd8v7j13aAV}Fmb4V=Ct7vY?GQOKgX z{BvaCc`=;HX`YjeZ`@Fs_$UyzfE5la`e6Eb@~`c8HUIC4IlDW< zr45-JSeTLBy2IsPzt89!cR1Js1N{9V_BO{3{AHjlAFf@6CGpSSwgF7!hrHYnz(4X2 zmex=s;in~W?!T(N5HiTcz@5(yJIJ#D-A04UfsBR* zEnjG8#t?*arj~rBw>Ph}v`6%O-Vac4HePI`I0xp(BO!+uEqkirO19!)EZ43Cz;R;$ zkk;Z1r9SfmX~q|ySNuz=?cLH_p1KPF@_748_>}QVX9xnECxC9a>jzXdQVjUYAX#Oi z3vy6z-n@z1oO=2q(~V&q3CukrA|mBU&0;lA?B%&6obbtq?vj)JhI2?Wq-KGSW@cC{ z{ zsZX4z3)KO!E>URcNnUTg=~5sYiLAD&=%R;F>6km`8Om3Qx?+y4=h5)F*T}kRSEtO1 zoh<82fV4L(*bXG}KH}uO63?;G z=(UXlP|X7QEt3VvRA=YrKzIAFkD|R+en4xeR6VG?;;~@ z03~lHfSWIEZW5+N=TxC7iah-OyYq`@y3q*R~fuSk!6w z$^jE(*iyeOPieNkM0N%#&&dB35t1Sk&8Qe$=Wj8v|g}qtrRn{__c&EHj{jzOu*Nnb?l9=$)CDOUt#6&jL~~b|VKW1y(frCY<;nV0 zJdW{b;f|W7_@uf>WTEL`8@R1;@NhX-3KpWV&Ch17gTM*ja^NkQ{L}BV<8qYl6(qZ2 z7dY!P)Lm}UQ}(-#$n6izf4K)cWRgUS+ALp6m#c&ne+by26`CH1UfsKmh4x0Ns+u_J z>;V1{vj$;I0@3)@_g)Ep$JIBwIG}eZpm5?lRHh2gYe>4KWulm|{myUO6O6I*@FW2| z+Wca*)Q5o%e%0lDq2YN+91UAO6)kja{F=t!sC=wDyS)mF>3RpJmUurAuto~4U>?D# zb$9kS6P zKr5EEC!tTlpL+E|^9|25i2PJhV2>Qd3zt_IynQ`gVap(MpZu zX57n7oAFz=-bfTmA5=#Y_?fciWi>wl)C9+0KnpmdW_LHYHeiI$$jE#3)Z`7S1DAw^ zULem(w3Du-WES#!Qw-AQSUlG{*mR^c)Frult#$!+k$LmL^IdRFjyrlC(}X~*Xo1R* zaOfwlNKB8OR1eNT=J%I(QW|X(;as(agk?MNzg*7&fC>AHaS-T$t{7lZ)W_XTOh-Xd zUV1$rpbFrcvib$1*{S!o*qljAm1VvCD2lzWA^rfBi5o)mJWfHO7%tn1GLZ5N@8287 zW)wHGCnl6GK&^s)CYHIk4XRrOtyL&$jp(A4ICTHOrM`I~jl-}{>B=ILN)H-O$f&b( z?+<=#2dvPg>zoS}09gSlYp#Vu`9QzNR&#-S04sjNBR>Q9!&&Au11lDd$_*x1ZMeSZ zZZ$~8H7EO;w;o}H(7nMk|A4cd>w~d^@xHg_khgFEJIz0b$n{4q3xP6h$kMq|YFj3X z`tIPzuTc$*mwblbBcWKA!=6D%w6Aee5@f?FCz}!4E#~Bbt|VbSL#Y3A4ko-mK0qt4 zrpK-JPaMIL+B%uBPrTHFN7X9_%;@y`mwK?2b#^0Omn(>KXb+35pdA5(V|ZZveOO9q zo3W(NY6KB8<(JUQ1fLQW4fCRkd!~~&1!g9P1DsilWf<4&j*!(*`@|kU%^L zrg=wx>8roR6x&YnW#2MgFBDn~p>1!C(D)TG8&k#_5JAUJ0A@pQaBx`z97bX5A4$hA zQ<+?bj)$h%Oj81r6YRRF5*yDj(#Q#-cg%x6fID7VPL3FKoPVdO`M49^yf^=>k;h#C zu$wO?zMzZpKDq{ko5yiO;r3u^2z+yBxfu7ts1aDnUBT$j`#OrJv6YoaKzh^2iQk># zWE6p>f{vRjle^Y&GgWCe)^Sro{!0;{dAoQl_3y*kTD!sTVOOP25kDWiaM-@x*Vk8O zzYOTh9%STI-9B$RzeD+fVCl*{ih_BIsLg-6@kU-gCiQy++sZ1h?Ys_ir`>Onsreq0ny*3sd!6+4%oB1u0$xr{|e1TA(=rwX{wAwj4TXh&&7A6Xrreu8%mO{9E}*fW~J zYMP_HQdG&obo?Pe@wZej-_xSsrbwg?ln#2?3BJq-m{qga>w!QUb^ob$CEPMlpXFVh z=_Mi|eI=gf$>46Yr8#)!f#p7XU5Rn4{gjJ0%q5`cFmNbOa3{qW)tvWdSI|`*x!{0W zqg90Kj!+mtaI<`=-AH&=soh}TUgnQ#jid$K$e9*}!JVsBQ>u*abixX`Nk9MWbe0dD zv>!A6H?5A6QbJ|v9et9V+}sW@mB72sb5{Aov>kw~&aiy%eyKz!HX$zV5fZR}hg;~= zcmg_{-v)HQ4O)|m_%#49LxDARl*MF0C)Hf~UkQ4^@I=ko4)*>AWH|k;KTUcBrUdd< z4)*!gGDBNLVt*i?)Y|hG*pug-EH_=kEpV8yMyoAg_C%WUl!a&2!4=e6o?+}n zW3RMWb^pJGAxTfAyzS-MtFE-n(o>Au$3^BbE8|jZI10 zzz)2G2dEkgl3}i5z#BC10q$-)3W`0i5MGXyJa_Ld7eox5ojC)UH7_WY@k0G-Gw=Zx z7x?}C#N|>~^ANNEL?Dsv20V`f?Oiqy)yn$Z+6?HRLEx;$&8C=`nABa(G86vxt0^`- zS0R~BPTW@PasH(AAgp=$Y!2tQv5#yEqMfV%^hb?g*I%!i@^>SIANlJ_ktL5FKb9~t zd6*{bbRFxxj0^k#Wi_=xpmKnXwtQqu(${?Ks(f?t_*_;(!gu~WOEwD-E$Txrt4B8* z@n7jLZ?FmJq@<*Pxe^X)B31!`-kZt%goK2OaL_U9;dP*FbobOaPr3D*!Rsua;IIUKqxFG-Gvy$6>49@4dIp{+= z0$0Eu`=7h4d#5cdR_dEoBDaD_yHK#G2?hPZy;$Qv%+Cq-?q-cJM+aZcg*|LZExA?6 z)^G4MXThbzb8QbNJm+uzAcAMsjV z{#6bqo*95+0c2>2lD@YR6wByw+{=ao0Sgr9(4=}-?yD}2Yev8SGH3&22vCAvlP&>W zgVH4cOPJc~E5^okS0dkKBe(HdI5n)z}wU2v_P z%!ZkgkG2?kVSwkvM#JR>o;4f<$=xFXECjS0)NcK$!7LyJ)dj7 zgaX{cBsn?f??ku1)6vKIItPu!?-9q9W`+Q+LeCNI)8Yi{9pQ5cHM3J#SV#=U4&}W4e!ku+;nX_=IUfAs4J_t>MUjTu)XX@&dbYN{ zo}SyX+O^xDbv}@wf!8pg@F=JJkK@q5!28d~<)C#6s1TU>&=MFJn3q{OCF=EI=QjD}t*AXobbIMqY1{ z1qWU=%p8vte|%3!RNNC!ihn{y50?e{{X20=B|gzp$ayhU3!e2Lmw$F6K4gg@Tgt|ekLC~H$QKXU)3`%KhH&ErZ#oYW@{ znundb>=dYZ>s)vw?_=Nny_Q?9vzUyySdUrv8+C9B3QJHm!j4*v%9Tmxc=PzOab;2r zJ7c3R-ojbo{isR=+Oz$hdcghAR7BCzzrw)ntM6}UmhM{&UQwyK3ii`6Oz-lodMh#<;37?Q~6}+SR^ZHOn2Oel3_7wvP zxwCCfJABabw7;5-$6T}XUbv9uS8y+VKE}%~#Ax|hn)EjN;uZcEX>S=8W!tq44-HZx9TG}|B1qQ&64FR_cSwgc0@9%f zNK1D~HSh25t*UT+ay34NCOjJhk zv-52_yQ{fgyN@g~v>E0Or+0>a9L(FvzaotCsVjkcP0r&lVk*V?ykq$eHX(uN~ zt>@i+wM%P?YT zaNX6g=Ta5Fd(r$@SUOwpZYp!iaBeP+dzbsWNW;A@kD@vV8xXnVSy)&Ebc1EiGfE48 zehEZ-SN}|7XR(O~V(4s2dvUlNVFFS07X`&m@YHu9ZZ)MwGS#wUpo1ct_)@yZ7U(OhM)k`WC_ET;yYhM+Nb84D_E zH&S_j|EnRR|1)CPQGxHN2|)n2gk=hjVuyr1&w|sX`R-GmQ$Oc4^Wp=n2Z)Q{2M)-} zrjZ|^n|YWI+T!Q<_+Z*aV?u&sXCC9Hk&ouLKXUL*Z zftD?3pa+QfBk@7kw`NZszukUd`jIUgpRy>WIS$qWOg|RLSmb#N7{o+GYYHK^b>=0% zPW|%5uG@Ym!v)N)FP(q2Q4PTnYOiszu_cU*G8efLL!ONj*3q5rFQfj~mN(1c5nOoF z;p6Bzq_2auEEpcc)i28V=0iE*$0&;@VL`2BudjHBRyujQ-Kz4V%sNV{@ZZ|d+YbGf zOyy3%KyrfN!}xRi1U<3*PeZ(OixqVOFB;=3YN>w-y34&wGaE>tvF<|Oxc`f(Uar4* zG$Zu)*Yojx&7A>;6~qqv40;SKo}<{)bpveK5P!VqlHY;(2R#PmFXkoBZbG2Dh&_#iq zjc?_BIwq#G(IBH-r$hwEW`B@n#vCYgH`Ostoc_l9FjbtVs8qaF+%&_4QCjBO?I+o_ zfpp52n>~}U&P3tyrW;>YDCST;te^Y@{--(E#1LG68h}7_vBd!u6TC$ zg`dOipXc>9E_}k!(T0zY-?e2F_)#lqXFME%>e;AAbbjNi-PWRXTC-t_lJ?A>)P%oS}C)%~$8Tjp7c6yrOIt zSpMo_PgMBbxyt?K@aM@%)!prb-xqCI+FpyBe>OWW{Dx-(%ELf7T=atIZ2GtFiMkH! zpYwAR8e~}{VoX^o{gR+&{G(R?30z|>=EZ0ks0V^=o4-3}Ov$N%Nu>zOfFJe{basnM z>1aU{#1OuBr~gC{Ps?khODs1nw0ijRm$GH#eO>usav{+ZV>30~62}g}bZ4LXO?P96 zbBN<*o~-w=)OZwy&K#es{ILhH{={yh+oe=j#J;h9g#(-@gZMrQFhPUc*;>iIB za?TFtiK7s_eu2VL4#sydD6s1EVS{pfrisn-d@mSKGPt;KFuKEhU}pg#A!vd^LUc&q zF2qX9%GBkSpE4+IqZ(peN9ZvHfZw&1*ivoV~`*N#n%DTXD_d54gIfr8N|@R z{4^d=2T)X0OyzY%^lZ^*A8P(U)g*)_h3|Ia-c+&Gqci8dxVfS^G^c+WZ$?-Gwsl*b zw+nVAKk@s_I&7p-#pI8XaBZt6Ovl_-%f{}M)Eu#Lw?xFHu%(vpPH-Pz=XY^ae2`M0 zak>)unjB*&r%8B3R$79|G;?|3l6HEllBi@|YZ&?NgAbocB>iCWGfJr4C41Kr1w+zj zI);FH#XNkXI6s87%0R@s+-amr9^5x`M_A3ZvqZR_MF4kYlM7@cbFa;J2+40mOdU2 z)3^lQ3ViwendVMHSN`h!80*3RmU9bT!=QGo`?WKOESgD8GNWlGD&ZFjJ>9#4vU__E z{8L{O5{yBR%2>6u2M7CbGq*P{P+$Ys>jd0mWec z_&qO=u;coWOGz0@K1t5vrLT9a*m5cl@?5k!(14;uH&-gwkI`9T~v z?nky__sg1aAUXO~VEcK<-61E#B)u0DX}MWhh!3+Hj$$RXUs6i_XDR*3GW{);0E=sO zmRQmwaVZ~&^7)IY1dV0pQnp@OZXkX@1yH|Wa6Hi%42w$wmP<}{5?K%hC;>^}87C3S zxZk$slt>Wo8YWWzyDnW>zx(JybFaafbVRO}sjZ3f=#?u{%)j!4-0WbbfmZ*N6Cn4Kx_sd3a3j_55v}tM@dl>}vT$|LRqf);SR}l{wG4U$0kT9!9kg zo`x60-d?0H;0OmCL^(+_pf{ocQi8Cy6q5a!N#5;xFscmXWaV7-KqF@F2XSdJi9mmf zukY1C)rbS^%!)$DlK_lLyz%i7+S=MQ>iZd}Ovub--Wx?80{HLOKr;VuB!6jJPT8@miqc7JC9EV|5IZn7wkcfjLJ z>)za-muo6(pnLoQ$kt|QSNB>NDp4PiE#f*KlSeg4UIr${5MQJ=py>tp7q5QCye(f)MF~u(PP?Lq-;$Rk^n&Fm~WSOY3%a}Y& z{ON9dC`2lTvfFh=F9ZyYe9aJwNSny-R8mLfXG#FY2}^H5z)a8XxF-H!oxZ-lZ%O$H zp0?b z&He4NZyRj+?jTBPnUSrj8Gpm^2zFvpp1nDd4A;DJQZZ%p?Po!K%&hkFhc#3r=I&3r z7V={jJ->dI9{JCi;~vWdq~TxU2#w_)xjfrZxCW+9b!RpY6F6XbVSo3;iqK@fbeRTe z+LR-6)>N!u%#vsR>>&d0UOFuwo*&gle_uQNQBO-PSU4cy%eAr=T>>SL#^fmPKs;#k z2g?O;xj*CLB8<6VGZnr7e+d9h0>)vJmGUm8N8*H7j@GEvy^ZQH-1zvqqe+V#BkdqS z->bVCF}m_va`nNYA2Mt>rRyEicYFsv1u=Mc-Dk#+df5rL0aK!&W=1eJaF% z@Swl=oYdjZiS)rTK@;19y$-c%SfL(hDM#-qojP?idWf;$QhBc+JVZfq+Ap%QvS^XM zh+V35T)E`Kwcj9d4_w?#6solUSqT*q-=lyVb0$6Ls|g%A++~tT}uWv!WV+3tZM*+MCEH;G;Ff2jXUCo zU4%7qYO<)hCC}mkpZ6{2>fSepb$_r&ncja~0%p|JDL-QGepAIE#^v)dr?osfzTW!G zU+8vT5xD^a6Jk}3d-y`-osL%Kj=14uSMv3p;Mmnb;-cBOWz(iktG+b;7fRW>t(e36 z$j%Prp>LIMLT^m@3kw<V`i_NvHwP9CG_{sLGNHG`f;<;gX$U|i zXSTu!0InLR02|1`VpF0ORq$l)$%5hTfs&f z!F5ng6(6lf2>2N!c$AuarpjI8370Qp0H zIA5sZc((J-k)voqHxK4aPWDhzfx>TJLsn{5J1c(|DKg|4OMr5V(d@vxjh1gDf{q*L zAPxi3bwtDNt_PbiC1zC>VG^YH#hrzX^&eP!z>bdkr-lz7JbYF}b{FEO^W%&V)@XA; zJ>(09uC8t*5DEq2DnG%Vn3kh(T?EpaxF%pKk|@`283lP|cZb-79Yss` z31EPJ1LA7{JsMqD08(2WlgO0s@1CPQ#AN_1^uDetYc;ET_|~?5XV2Wb_SZR!Y)qkX zt8xLxyv1mZGOKl@=zXCqI@vhPP3;dBU9cZue@H+(cAv~rYfg_4qToY--?F5_Z@ZAB3NETUx_({TByQ0?lWhIY;W zPX@;|x#D8W9=io^X>WXVT3sneV#pC&%dD%Vh-Dr&NZ|4tzuS4J?1#>X@{AeQZ#9Me zsqlaaXGY!6EOMH}id#b|A*08woq+wYvZ7g+1NlufrG)W2ygdUC1ez3XCVd~7bAv~i zodyc2A`fd2fSwbp4MOE8WkK|d_vD!`3Q#dNQodu3p*u|x7h`BjPDu=b5$m_(+strq z8EnGF?B%H+dR0Yg#SoEXkBIozg|pK?e?Z)lzu2V#E~Xp45<5GzNon~dP6-33+JG;u zj8%R2F&S`?bq;6~$_yD!6V^L1Gc&(hy_Y(oWd5o&E!Cw;&^-C=XMP>S)?EF z19#O1;3yD;G{H}>iG0`CS{STy=VtrY_)^<3k-;m^HDZT!cslk-8@BJA!Mz*Z&dclL zu2(b3x6mc;oB>8Jz}*J#UOVRv^7$`LH} zsL#yLH>n|gJ*QRGD?LU}i!A{Yyj<(}6=Xl@_WJ-qLIl7ZsV#Y(6Q>TfUX-bPOvt03 zRA(0WsU)?7!>%+LO?UUpK~*jEPSH;gO4_cKLmb)tEu8H{MW5YQP=L}OhOg|#)cW&J zvuZ(O$#yRN)S!mU#x&cBWUwXoa#{nG1tfAAMt9HS$O^W^o)^=u8c#GL5e8Nrcqwo~ zI#(S$ah9RUFV7S>VnN(u((pTy_#r3SLudj;)J$ybZ@&s)XAiN;Lpi8`Uc&SJtCeZJ zraupLBA$+&93B6uNR&T_okcoQt$v((zi#P2%M}+Rf#JC%tC^5Q!WPdO;hzRN^W`o+ zk7$q|o7?rAyMa zj5PGIhnlr3k8V;q*Zb)@wD;{!|GkpDsqgy$>nZ{Ss2z?Qo>ol!iv@VG0u&F?adD+U zT3nqLj{#HDBym&7h^Bie5wh_yPH(W@O=M{P;%B$rQ4%zH^%g(YhmhzKqm~Zx^h0R_ zq}9OObF3GDg}k1~zSBU-JVz90Ogr+c*%25YA4kN+jp1H@2T;T-tE&MC2?=F5!Ok_# zl?03f$YjIMg}vJr6~CH=&ub}r&0XAniD(`8duXksM=i`eTf5{a-R+ywDwB%v=c#y= z^YLBWp|3C6D|;w4w3Vf)wO=|M`x)>Pm0Uqj;7?TGS){Mq&ja&%;LU-evz3 zDqPRzO8$9Y^xRCM}L?+VnK3Jr$-3oXx z_Q(A&95dt?s`7L(As%ab7xcE>cX0^6PVEQIza?7mm73&2CG)6i&t*3jp<3Zgj#|2+LtG^M1<^i5=we{QL!tAgF^$I3(bPf#Q1@ry{Km8_X8(sP#5;# zt0-z`bS=5?C#t57M@^_<(D-T?TN*! zwiMmz+-rkef8lcf&42wR?_xOlCtRuZ&(GW211xQAzmBva8W=cQfog+?@s1LtU0`WR z$%#KFKO(%#gogwyW5%q^6F^BLq=9-dbYYMcl*!erzp{QfHnI+zi&YD z6I=8Ddd2^)LnCA!L%x4s_CL@5|9#V-?ac#<%RZMU1UqamaPQB^cdv^!I7AyN=FCBl zbab2HxJ6#u;GHYpgPoIMK6r&P-!^fBbsAc^zq$^~xVDHb zCLp>dX6-XOoco+y{st9IdS6CC9a2GBX`S>SG1*gWBF8E>TVI2kH3ga9ZiMz;9CXS+ zjp71CAPT7nIQL0v{K)VZ9jC-=Cu84 zc2!Dg-h6sH5QvK1!Rf4<8By!f4&efj)i2o8lcF~I(i2uju`Kqs1H@1uOPPUnG_$j0Lj1WfJUPPyVgU^>{ z2(-DK@YU7W$?P*oMhrwa`PWQuGx4n{CcuP97jJ09TWyn6UPhgQ$$1@_>QnCAb9`rI z2!!cvwOwTGa$>MBT0uB_>}W1>LP%P##-%7alm2t+S1F6<8ie?gVu{mY?wpSSn7Q^` zO|3##BY2IA4B0%xFx_hrZOvhqT==+h_Tt-+-6+7~*t-|Op1?Auz&jPLC~ZQZ>8-Dzd7bYI`24by`V9vVvm zWbxjp?%1EAjC@)FKQnv-<1Uvz;nL@_%Xf5ond22n)aZ4ejo2(Ju|@-X;CPE$Z7w+O z14N|WeQ^Gg99c@5fsul>G5CSnizy|-;U_l|6Bm*;wunh#Aqoc|i2|k(RKvtF^F6Ox zFhSIlo8I=p5Dsy}sXW{68BvfrrDWz62q`{#lVd)wC_ZPJM9%v)WH^-Xqk4^^>t&xy zfW(!~RD!ib7|a$6Q0&jSxrwy2v>4N0qse|52;zyuqCLC2%smH9a5G~>S1ddE0&_LhN%88YO1bF=Oo(UT{L5XPOj5m2S@c`Wuf z{ZD%+8WMGvs_Z(usTr~(*Gty#+Af3AZuYl-$56yur#l9N;!>7Nw=;&WCN2%;uPtmk z__x}MD>^sK86&rp_$tyKnV}yRn z8K3&5SE@*QtIIoP$vInNgq`>$dwbocg7;Wvjb^L=Jy?CjNSpP2CWpp zCf!gi+f(`K4Y>>o5kTcVLakVx$@(LIavLXVxNb@=#;rmp>fcEfMH)~zgB(Q8g7!m) z&87^HBu*Wi*+1Nj zP*bxx+jd12-c3D|PZ(3SQ#$bqR3A@%ijObwBFW3w)YBaWapE{>rZ~7XZ_0&Jg&lKr ztZe3rvK=cD@T@Z9?@5bw2pkT>FAm$JG7eiG-p5|?9uzMg-s8t+C)+F6y}kEIaJ{Ak zqpdgY%;|pCS2fiTN=pCo(@Uz!eY=r(Zp6(`*}6LV2rMxH@p!w#S2+bn9c~g>{PO69 z4C6VK)@dDkhmP%~Z?a`6Sluh`?M!5339og#*Hb>85NQ8ZYku zpzLzsyL}kXH=TsPaMFhAl-u5iltfbF;boniXPA8;ahm&W$U^#9(zl8K2_!Zn<9Iwr zMa)1!O)Vber4m+P;Q&ATWfctq*SdKADOLD6#J@M^KF4f?H18OtL9);Pext6q_w79B zQ@&GE%e`vA)gl$$;j{OtRN^<_qeFtl-DEta?{?(cUheIc(%ybAI4L5$1sNS3ZKs7# z`tRclLiVRiiTP((dcUt%6!e=z{N8hS*{PtS!eTvovh0w-ONroHTmN!0tUYOSQs?mn8a^Job*icF__@D_tYC}Kz08ce>C7iC5)$DjP243v%dl;}Pgy@4b7mN& zD_cAz<2d^5E9m-69>h7%c0Vu>ffjn54d(YCVIenLTUJm!e&|!7aT!=e%Iq~gcqluMHLM4QeYw^$D(ksZNnDGXnE`!ATnG@h3z^SbK!+5((s*vZW@O1p zQ{Oq4s4RVFE&Jl^Q!7{)yh7l%pmvhEY?U^)lJYWM!*y~-2CfM& z?TcxUwY;HlW=GYiWC~vJMlp16{p%CCTDu8m$cnk)PNy}^%?q0z1qe@_KhRYOa_7bl z@}v>PTPUtSm^M(rx#zHZ{Jv$H+%Jjy*Rc0~_QYE9&%0cice!VUeUCyVZA>QU1lHBw z_b?Y8zXdCSM98yxu@MyN*0-Z%9rtUNSZNRI&$aDun;i=WNSH^`)pcWB@7V_Yqhi<% zm3@RHxw(GMP6lb=E=875J<64u1M)-%tZaeRF}@WOsle)AadR1&s^HU4%{&+GX%~0j zp-#cW6!mTe79VgSZsxi#KwbP2C5KtXx}&GGhK}E;iX@`EV+KJ8`a#XE=h;}0Ud50I z_X0!mureL%^J=ma+2M;1wUxMks%k_aT_m|~cqMD2)@hX1S!0&p!OxU+?zXk)&`QAS z^IT@lnqHAI9@n4BP2V&{?5mcW+{;aQfehZW$xN6l$kW_zSWu?C4k~*OWo2WF`~Ij|0O|{@MKP4#xj8nuzrA+rDP9PD33O^zkJnJfCOMw6g%lQ0 zpixG5mXF*9MG$xEAnc3)j+B>0; z+lfb$>8WsyX;#O6=t?R%QT+g%#U|lZA9VAMEx@1@wYd0^CWP0*$O4_8vQ8h@G${?~ z-2lO2wGO9eQ}PEDRo-oiw{_P@kgU=zo9Zd=AxBHJ*mZAo3FC@;Ihtv+28@*T3aaO~ zICxi4Rb(w3lblAb$03g^iOYDmeAB1D;Z$PMfN>o)H8qI8`?Al>dvd+9qM{$Kk+pUw zG6=3c)nQJ+KYz~1U{f62hQBdXuWeQ0B zh~JwxNL9RzD)+k|#%~3pL&%hdz%*^sLdEwOg$URuNltFPFLL!E`Y@_iq3KX?n_=3@ z#jPji^X55h=j+`|xfli>BLtmpmf-gq+6K`Xi3(l!U+Ig#k)ilcQe&dN_1cEhlp(@LzGO@_RV&v zEBjqRIGm}LF!|Ut*Jlk2B5KPv3PtBtL1>!)vp!80dVArW%VJ0~TO_by%KBtPz^E!9 z5|$sJTVNufaSSWhuGpHJ(!p;j#T%gM`k zgL&X!5Tg7v#C2@(5D*w7o5ukjdFD=&OaD7s31ga z`X!$t_mUfFk-{kPqGe>ULH