#!glossynews.com/cp/Scripts/Perl # ---------------------------------------------------------------------------- # Article Manager 1.29 # Copyright (C) 2003 interactivetools.com, inc. All Rights Reserved # http://www.interactivetools.com/ # ---------------------------------------------------------------------------- # This program is protected by Canadian and international copyright laws. Any # use of this program is subject to the the terms of the license agreement # included as part of this distribution archive. Any other uses are strictly # prohibited without the written permission of interactivetools.com and all # other rights are reserved. # ----------------------------------------------------------------------------- # Warning : Modifying this program violates your license agreement! # ----------------------------------------------------------------------------- BEGIN{@z=('6c6f676f6666','61626f75745f6c6963656e7365','6c6f' .'67696e5f6c6963656e7365','6e6f68656c70','68656c70','5f68656' .'c702e68746d6c','64656d6f5f627265616b','64656d6f5f6d6573736' .'16765','6d657373616765','63617473','61636c','6c6f67696e5f6' .'e6f616363657373','6172745f616464','74656d70','6172745f6564' .'6974','6172745f70726576696577','6172745f7072657669657732', '696d675f75706c6f6164','696d675f75706c6f61645f73617665','69' .'6d675f65646974','696d675f73617665','696d675f63616e63656c', '6172745f73617665','6172745f736176655f66696e616c','6172745f' .'6c697374616c6c','617274','6172745f6c697374','6172745f636f6' .'e6669726d5f6572617365','6172745f6572617365','6172745f63616' .'e63656c','6361745f616464','636174','6361745f65646974','636' .'1745f636f6e6669726d5f6572617365','6361745f6572617365','636' .'1745f73617665','6361745f6c697374616c6c','6361745f6c697374', '6361745f6d6f7665','6361745f616c706861','62726f7773655f6469' .'72','646972','546865206162696c69747920746f2062726f77736520' .'61726f756e6420796f75722073657276657220686173206265656e2072' .'656d6f7665642066726f6d206f75722064656d6f2076657273696f6e2e' .'2020','4120726567697374657265642076657273696f6e206f6620','' .'70726f675f6e616d65','20776f756c6420616c6c6f7720796f7520746' .'f20646f20736f2e','6d6b646972','546865206162696c69747920746' .'f20637265617465206e6577206469726563746f7269657320686173206' .'265656e2072656d6f7665642066726f6d206f75722064656d6f2076657' .'273696f6e2e2020','73657475705f746573746d61696c','546865206' .'162696c69747920746f2073656e6420612074657374206d65737361676' .'520686173206265656e2072656d6f7665642066726f6d206f757220646' .'56d6f2076657273696f6e2e2020','62726f7773655f66696c65','666' .'96c65','73657475705f74616273','47656e6572616c','5365727665' .'72','4c6f67696e204163636f756e7473','4172636869766573','4c6' .'963656e736520496e666f','73706172655f6669656c6473','7366696' .'56c645f6572617365','736669656c645f636f6e6669726d5f65726173' .'65','7075626c6973685f616c6c','73657475705f73617665','73657' .'475705f65646974','73657475705f74616231','73657475705f74616' .'232','73657475705f74616233','6163636f756e74','73657475705f' .'74616234','61726368697665','73657475705f74616239','73656e6' .'45f746573745f6d657373616765','6163636f756e745f616464','616' .'3636f756e745f65646974','6163636f756e745f636f6e6669726d5f65' .'72617365','6163636f756e745f6572617365','6163636f756e745f73' .'617665','6163636f756e745f6c697374616c6c','6163636f756e745f' .'6c697374','617263686976655f73686f77','617263686976655f6564' .'6974','617263686976655f636f6e6669726d5f6572617365','617263' .'686976655f6572617365','617263686976655f73617665','61726368' .'6976655f636f6e6669726d5f6d6f7665','617263686976655f6d6f766' .'5','617263686976655f6c697374616c6c','617263686976655f6c697' .'374','64656661756c745f616374696f6e','6c697374','4172746963' .'6c65204d616e61676572','70726f675f6e616d6532','6172746d616e', '70726f675f766572','312e3239','70726f675f6275696c64','38363' .'7','70726f675f6b6579','70726f645f6964','3135','53435249505' .'45f46494c454e414d45','6e616d65','6d656e755f686561646572','' .'41727469636c6520456469746f72','6d656e755f74656d706c617465', '5f6172745f6d656e75732e68746d6c','6461746166696c65','617274' .'69636c652e646174','6669656c6473','6e756d206372656174656420' .'637265617465645f6279207570646174656420757064617465645f6279' .'206d6f6e206461792079656172206e616d652073756d6d61727920636f' .'6e74656e7420','73756d6d6172795f666f726d617420636f6e74656e7' .'45f666f726d61742063617420','7566696c655f696d61676531207566' .'696c655f696d61676532207566696c655f696d61676533207566696c65' .'5f696d61676534207566696c655f696d61676535207566696c655f696d' .'61676536207566696c655f696d61676537207566696c655f696d616765' .'38207566696c655f696d61676539207566696c655f696d616765313020', '63617074696f6e312063617074696f6e322063617074696f6e33206361' .'7074696f6e342063617074696f6e352063617074696f6e362063617074' .'696f6e372063617074696f6e382063617074696f6e392063617074696f' .'6e313020','686f7572206d696e20616d706d206f776e6572206c696e6' .'b206172745f74797065207566696c655f646f63756d656e74206869646' .'4656e20','696d6167656e616d653120696d6167656e616d653220696d' .'6167656e616d653320696d6167656e616d653420696d6167656e616d65' .'3520696d6167656e616d653620696d6167656e616d653720696d616765' .'6e616d653820696d6167656e616d653920696d6167656e616d65313020', '696d61676577696474685f696d6167653120696d61676577696474685f' .'696d6167653220696d61676577696474685f696d6167653320696d6167' .'6577696474685f696d6167653420696d61676577696474685f696d6167' .'653520696d61676577696474685f696d6167653620696d616765776964' .'74685f696d6167653720696d61676577696474685f696d616765382069' .'6d61676577696474685f696d6167653920696d61676577696474685f69' .'6d616765313020','696d6167656865696768745f696d6167653120696' .'d6167656865696768745f696d6167653220696d6167656865696768745' .'f696d6167653320696d6167656865696768745f696d6167653420696d6' .'167656865696768745f696d6167653520696d6167656865696768745f6' .'96d6167653620696d6167656865696768745f696d6167653720696d616' .'7656865696768745f696d6167653820696d6167656865696768745f696' .'d6167653920696d6167656865696768745f696d616765313020','7374' .'6174757320','737061726531207370617265322073706172653320737' .'0617265342073706172653520737061726536207370617265372073706' .'1726538207370617265392073706172653130207370617265313120737' .'0617265313220','7374616d7020','7566696c655f696d61676531312' .'07566696c655f696d6167653132207566696c655f696d6167653133207' .'566696c655f696d6167653134207566696c655f696d616765313520756' .'6696c655f696d6167653136207566696c655f696d61676531372075666' .'96c655f696d6167653138207566696c655f696d6167653139207566696' .'c655f696d6167653230207566696c655f696d6167653231207566696c6' .'55f696d6167653232207566696c655f696d6167653233207566696c655' .'f696d6167653234207566696c655f696d616765323520','696d616765' .'6e616d65313120696d6167656e616d65313220696d6167656e616d6531' .'3320696d6167656e616d65313420696d6167656e616d65313520696d61' .'67656e616d65313620696d6167656e616d65313720696d6167656e616d' .'65313820696d6167656e616d65313920696d6167656e616d6532302069' .'6d6167656e616d65323120696d6167656e616d65323220696d6167656e' .'616d65323320696d6167656e616d65323420696d6167656e616d653235' .'20','696d61676577696474685f696d616765313120696d61676577696' .'474685f696d616765313220696d61676577696474685f696d616765313' .'320696d61676577696474685f696d616765313420696d6167657769647' .'4685f696d616765313520696d61676577696474685f696d61676531362' .'0696d61676577696474685f696d616765313720696d616765776964746' .'85f696d616765313820696d61676577696474685f696d6167653139206' .'96d61676577696474685f696d616765323020696d61676577696474685' .'f696d616765323120696d61676577696474685f696d616765323220696' .'d61676577696474685f696d616765323320696d61676577696474685f6' .'96d616765323420696d61676577696474685f696d616765323520','69' .'6d6167656865696768745f696d616765313120696d6167656865696768' .'745f696d616765313220696d6167656865696768745f696d6167653133' .'20696d6167656865696768745f696d616765313420696d616765686569' .'6768745f696d616765313520696d6167656865696768745f696d616765' .'313620696d6167656865696768745f696d616765313720696d61676568' .'65696768745f696d616765313820696d6167656865696768745f696d61' .'6765313920696d6167656865696768745f696d616765323020696d6167' .'656865696768745f696d616765323120696d6167656865696768745f69' .'6d616765323220696d6167656865696768745f696d616765323320696d' .'6167656865696768745f696d616765323420696d616765686569676874' .'5f696d616765323520','66696c656e616d6520','7370617265313320' .'7370617265313420737061726531352073706172653136207370617265' .'313720737061726531382073706172653139207370617265323020','6' .'3617074696f6e31312063617074696f6e31322063617074696f6e31332' .'063617074696f6e31342063617074696f6e31352063617074696f6e313' .'62063617074696f6e31372063617074696f6e31382063617074696f6e3' .'1392063617074696f6e32302063617074696f6e32312063617074696f6' .'e32322063617074696f6e32332063617074696f6e32342063617074696' .'f6e323520','666f726d61745f73706172653120666f726d61745f7370' .'6172653220666f726d61745f73706172653320666f726d61745f737061' .'72653420666f726d61745f73706172653520666f726d61745f73706172' .'653620666f726d61745f73706172653720666f726d61745f7370617265' .'3820666f726d61745f73706172653920666f726d61745f737061726531' .'3020666f726d61745f7370617265313120666f726d61745f7370617265' .'313220666f726d61745f7370617265313320666f726d61745f73706172' .'65313420666f726d61745f7370617265313520666f726d61745f737061' .'7265313620666f726d61745f7370617265313720666f726d61745f7370' .'617265313820666f726d61745f7370617265313920666f726d61745f73' .'706172653230','736561726368','736f72746279','2d237374616d7' .'023','7075626c6973685f737562','6d656e755f73756273','657261' .'7365','4372656174652041727469636c65','5f7772697465725f6d65' .'6e75732e68746d6c','74656d702e646174','43617465676f72792045' .'6469746f72','5f6361745f6d656e75732e68746d6c','63617465676f' .'72792e646174','6e756d206372656174656420637265617465645f627' .'9207570646174656420757064617465645f6279206e616d6520736f726' .'4657220','74656d706c6174655f66696c652061727469636c655f7465' .'6d706c6174655f66696c6520686561646c696e655f74656d706c617465' .'5f66696c6520','7566696c655f696d616765207075625f66696c65707' .'265666978207075625f66696c657072656669785f7370656369667920', '706572706167655f696e64657820706572706167655f686561646c696e' .'65732068696464656e207072696e7465725f74656d706c6174655f6669' .'6c6520','696d61676577696474685f696d61676520696d61676568656' .'96768745f696d616765207075625f706572706167655f7370656369667' .'9','23736f7264657223','41726368697665204d616e61676572','5f' .'617263686976655f6d656e75732e68746d6c','617263686976652e646' .'174','6e756d206372656174656420637265617465645f627920757064' .'6174656420757064617465645f6279206e616d6520636f756e74','236' .'e756d23','5f6163636f756e745f6d656e75732e68746d6c','6163636' .'f756e742e6461742e636769','6e756d20637265617465642063726561' .'7465645f6279207570646174656420757064617465645f6279206e616d' .'652069642070772061636c206e6f746573206361747320616c6c5f6361' .'747320656d61696c5f6361747320656d61696c5f616c6c5f6361747320' .'656d61696c5f6e6f74696669636174696f6e5f6576656e747320656d61' .'696c','6e616d65206964','73657373696f6e','73657373696f6e2e6' .'461742e636769','7365747570','5f73657475705f6d656e75732e687' .'46d6c','73657475702e6461742e636769','6e756d207469746c65626' .'172','20636f6e6669726d5f657261736520636f6e6669726d5f736176' .'656420636f6e6669726d5f6572617365642073657475705f7761726e69' .'6e67','2075706c6f61646c696d69742075706c6f61646d61782075706' .'c6f61645f6865696768742075706c6f61645f77696474682075706c6f6' .'164657874206c686f7572206c686f75725f6f6666736574206c6d696e2' .'06c6d696e5f6f666673657420726567312072656732207265673320642' .'0632069','206469725f62617365206469725f75706c6f616420646972' .'5f7075626c697368','2075726c5f696d6167652075726c5f68656c702' .'075726c5f75706c6f61642075726c5f7075626c6973682075726c5f6c6' .'f676f6666207365617263685f75726c','2064656661756c745f617574' .'6f666f726d617420616c6c6f775f68746d6c20616c6c6f775f6172745f' .'7479706573206175746f5f7075626c697368','207075626c6973685f6' .'96e6465785f66696c65707265666978207075626c6973685f686561646' .'c696e655f66696c65707265666978207075626c6973685f6361745f666' .'96c65707265666978207075626c6973685f6361745f686561646c696e6' .'55f66696c65707265666978207075626c6973685f6172745f66696c657' .'07265666978207075626c6973685f6172745f7072696e7465725f66696' .'c65707265666978207075626c6973685f6361745f6c6973745f66696c6' .'5707265666978207075626c6973685f73616d706c65725f66696c65707' .'265666978207075626c6973685f66696c65657874','207075626c6973' .'685f696e6465785f717479207075626c6973685f686561646c696e655f' .'717479207075626c6973685f6361745f717479207075626c6973685f63' .'61745f686561646c696e655f717479207075626c6973685f73616d706c' .'65725f717479','207075626c6973685f696e646578207075626c69736' .'85f686561646c696e6573207075626c6973685f636174207075626c697' .'3685f6361745f686561646c696e6573207075626c6973685f617274696' .'36c65207075626c6973685f7072696e746572207075626c6973685f6c6' .'973745f6f665f63617473207075626c6973685f73616d706c6572','20' .'7075626c6973685f7365617263685f666f726d5f66696c657072656669' .'78207075626c6973685f7365617263685f666f726d','20676361745f6' .'e616d65','20676c6f62616c5f75706461746564','20736669656c645' .'f6e616d653120736669656c645f6e616d653220736669656c645f6e616' .'d653320736669656c645f6e616d653420736669656c645f6e616d65352' .'0736669656c645f6e616d653620736669656c645f6e616d65372073666' .'9656c645f6e616d653820736669656c645f6e616d653920736669656c6' .'45f6e616d65313020736669656c645f6e616d65313120736669656c645' .'f6e616d653132','20736669656c645f6f726465723120736669656c64' .'5f6f726465723220736669656c645f6f726465723320736669656c645f' .'6f726465723420736669656c645f6f726465723520736669656c645f6f' .'726465723620736669656c645f6f726465723720736669656c645f6f72' .'6465723820736669656c645f6f726465723920736669656c645f6f7264' .'6572313020736669656c645f6f72646572313120736669656c645f6f72' .'6465723132','20736669656c645f747970653120736669656c645f747' .'970653220736669656c645f747970653320736669656c645f747970653' .'420736669656c645f747970653520736669656c645f747970653620736' .'669656c645f747970653720736669656c645f747970653820736669656' .'c645f747970653920736669656c645f74797065313020736669656c645' .'f74797065313120736669656c645f747970653132','207075626c6973' .'685f73796e6469636174655f66696c65707265666978207075626c6973' .'685f73796e6469636174655f717479207075626c6973685f73796e6469' .'6361746520776562666565645f67656e5f616374697665','207620627' .'2616e64696e6720666f6f746572207374617469635f617263686976655' .'f7061676573207669657765725f75726c207669657765725f706174686' .'96e666f20616c6c6f775f6172745f66696c656e616d65','2073666965' .'6c645f6e616d65313320736669656c645f6e616d65313420736669656c' .'645f6e616d65313520736669656c645f6e616d65313620736669656c64' .'5f6e616d65313720736669656c645f6e616d65313820736669656c645f' .'6e616d65313920736669656c645f6e616d653230','20736669656c645' .'f6f72646572313320736669656c645f6f72646572313420736669656c6' .'45f6f72646572313520736669656c645f6f72646572313620736669656' .'c645f6f72646572313720736669656c645f6f726465723138207366696' .'56c645f6f72646572313920736669656c645f6f726465723230','2073' .'6669656c645f74797065313320736669656c645f747970653134207366' .'69656c645f74797065313520736669656c645f74797065313620736669' .'656c645f74797065313720736669656c645f7479706531382073666965' .'6c645f74797065313920736669656c645f747970653230','20736f727' .'4316669656c6420736f7274317265766572736520736f7274316e756d6' .'572696320736f7274326669656c6420736f72743272657665727365207' .'36f7274326e756d6572696320736f7274336669656c6420736f7274337' .'265766572736520736f7274336e756d65726963','2073756d6d617279' .'5f6e616d6520636f6e74656e745f6e616d652073756d6d6172795f7479' .'706520636f6e74656e745f747970652073756d6d6172795f656e61626c' .'656420636f6e74656e745f656e61626c6564','20736669656c645f656' .'e61626c65643120736669656c645f656e61626c65643220736669656c6' .'45f656e61626c65643320736669656c645f656e61626c6564342073666' .'9656c645f656e61626c65643520736669656c645f656e61626c6564362' .'0736669656c645f656e61626c65643720736669656c645f656e61626c6' .'5643820736669656c645f656e61626c65643920736669656c645f656e6' .'1626c6564313020736669656c645f656e61626c6564313120736669656' .'c645f656e61626c6564313220736669656c645f656e61626c656431332' .'0736669656c645f656e61626c6564313420736669656c645f656e61626' .'c6564313520736669656c645f656e61626c6564313620736669656c645' .'f656e61626c6564313720736669656c645f656e61626c6564313820736' .'669656c645f656e61626c6564313920736669656c645f656e61626c656' .'43230','207075626c6973685f68696464656e5f696e64657820656d61' .'696c5f6e6f74696669636174696f6e5f656e61626c6564206d61696c5f' .'73656e6465725f656d61696c206d61696c5f73656e6465725f6e616d65' .'206d61696c5f6d61696c6572206d61696c5f73656e646d61696c206d61' .'696c5f736d7470206d61696c5f706f703361757468206d61696c5f706f' .'7033206d61696c5f706f703375736572206d61696c5f706f7033706173' .'73','48415348','44425f5365656b203a205468652066697273742061' .'7267756d656e74206d7573742062652061204841534820726566657265' .'6e636521','44425f5365656b203a20546865207365636f6e642061726' .'7756d656e74206d75737420626520612048415348207265666572656e6' .'36521','44425f5365656b203a204e6f207365656b206669656c642077' .'61732073706563696669656421','43','6669656c646e','44425f4c6' .'97374203a2054686520666972737420617267756d656e74206d7573742' .'0626520612048415348207265666572656e636521','434f4445','444' .'25f4c697374203a20546865207365636f6e6420617267756d656e74206' .'d757374206265206120434f4445207265666572656e636521','44425f' .'4c697374203a2054686520666f7572746820617267756d656e74206d75' .'737420626520612048415348207265666572656e636521','44425f4c6' .'97374203a20416e6f6e207375622024726f77636f6465206973206e6f7' .'420646566696e656421','44425f4c697374203a204e6f206461746166' .'696c6520646566696e656420696e20646174616261736520646566696e' .'6974696f6e20282544424465662921','6e','2d','44425f4c6973742' .'03a2044424465662d3e736f7274627920636f6e7461696e7320756e6b6' .'e6f776e206669656c64206e616d6520','a1','44425f4c69737450616' .'765203a2054686520666972737420617267756d656e74206d757374206' .'26520612048415348207265666572656e636521','44425f4c69737450' .'616765203a2054686520746869726420617267756d656e74206d757374' .'206265206120434f4445207265666572656e636521','44425f4c69737' .'450616765203a20416e6f6e2073756220246d61746368636f646520697' .'3206e6f7420646566696e656421','44425f4c69737450616765203a20' .'4e6f206461746166696c6520646566696e656420696e20646174616261' .'736520646566696e6974696f6e20282544424465662921','44425f4c6' .'9737450616765203a2044424465662d3e736f7274627920636f6e74616' .'96e7320756e6b6e6f776e206669656c64206e616d6520','44425f4c69' .'737453617665203a2044424465662d3e736f7274627920636f6e746169' .'6e7320756e6b6e6f776e206669656c64206e616d6520','414c4c','bf' .'25303278','7072696e7420224c6f636174696f6e3a20687474703a2f2' .'f7777772e696e746572616374697665746f6f6c732e636f6d2f6e6e223' .'b','5f5f454e445f5f','44425f416464203a205468652066697273742' .'0617267756d656e74206d7573742062652061204841534820726566657' .'2656e636521','44425f416464203a20546865207365636f6e64206172' .'67756d656e74206d75737420626520612048415348207265666572656e' .'636521','736f72646572','44425f4c6f6164203a2054686520666972' .'737420617267756d656e74206d75737420626520612048415348207265' .'666572656e636521','44425f4c6f6164203a20546865207365636f6e6' .'420617267756d656e74206d75737420626520612048415348207265666' .'572656e636521','44425f4c6f6164203a204e6f207265636f7264206e' .'756d626572207761732073706563696669656421','44425f44656c203' .'a2054686520666972737420617267756d656e74206d757374206265206' .'12048415348207265666572656e636521','44425f44656c203a205468' .'65207365636f6e6420617267756d656e74206d75737420626520612072' .'65636f7264206e756d62657221','44425f53617665203a20546865206' .'66972737420617267756d656e74206d757374206265206120484153482' .'07265666572656e636521','44425f53617665203a2054686520736563' .'6f6e6420617267756d656e74206d757374206265206120484153482072' .'65666572656e636521','44425f53617665203a204e6f207265636f726' .'4206e756d626572207761732073706563696669656421','6d61785f66' .'696c656c6f636b5f77616974','6578636c7573697665','4152524159', '556e6b6e6f776e206669656c642022','2220696e20636f6e646974696' .'f6e3c62723e3c62723e','4c494b45','4e4f54204c494b45','3d3d', '3c','3e','3c3d','3e3d','213d','4245545745454e','4e4f542042' .'45545745454e','494e','28','207c7c20','29','4e4f5420494e','' .'2128','556e6b6e6f776e206f70657261746f722022','284066203d20' .'73706c6974282fa12f2929','6d792040663b2020407b247265635f6e6' .'f7061636b7d203d2067726570207b20','20262620','207d20407b247' .'265635f6e6f7061636b7d3b','6d792040663b2020666f726561636820' .'28407b247265635f6e6f7061636b7d29207b202069662028','29207b2' .'0246d617463685f6e6f7061636b7b24665b305d7d2b2b3b207d207d','' .'66696c6573797374656d','3d','766172','436f756c646e277420666' .'96e6420','21','66696c6573','64697273','646972203a20556e6b6' .'e6f776e2066696c652074797065203a20','26','64656275675f6f757' .'4707574','6370203a2063616e2774207265616420','6370203a20636' .'16e277420777269746520','434f4e54454e545f4c454e475448','515' .'54552595f535452494e47','52656164466f726d203a20496e70757420' .'65786365656473206d617820696e707574206c696d6974206f6620','4' .'34f4e54454e545f54595045','524551554553545f4d4554484f44','5' .'04f5354','5f70617468','5f66696c65','5f657874','474554','74' .'727565','56','4d','41','44','6e6f2d6361636865','6361636865', '706c61696e','737369','54656d706c6174653a20556e6b6e6f776e20' .'74656d706c61746520666c616720','54656d706c617465203a204e6f2' .'074656d706c6174652066696c65207761732073706563696669656421', '54656d706c617465203a20546865207365636f6e6420617267756d656e' .'74206d75737420626520612048415348207265666572656e636521','5' .'4656d706c617465','54656d706c617465203a2054656d706c61746520' .'66696c6520','20636f756c64206e6f7420626520666f756e6421','54' .'656d706c617465203a20436f756c646e2774206f70656e20','7765627' .'26f6f74','444f43554d454e545f524f4f54','2f','696e736964655f' .'737369','63656c6c','5f7565','5f6865','5f6e627370','5f6a65', '54656d706c61746543656c6c203a204e6f2074656d706c617465206365' .'6c6c207761732073706563696669656421','54656d706c61746543656' .'c6c203a2054656d706c6174652063656c6c20','206973206e6f742064' .'6566696e656421','54656d706c61746543656c6c203a2054686520736' .'5636f6e6420617267756d656e74206d757374206265206120484153482' .'07265666572656e636521','5a','61','7a','2b','422a','4d494d4' .'53634203a204e6f7468696e6720746f206465636f6465','2525253032' .'78','536574436f6f6b6965203a20436f6f6b6965206e616d65206d757' .'37420626520737065636966696564','536574436f6f6b6965203a2045' .'787069726520446174652069736e277420696e207365636f6e64732075' .'73696e672074696d6528293b','30','657870697265733d','7061746' .'83d','646f6d61696e3d','7365637572653b20','5365742d436f6f6b' .'69653a20','485454505f434f4f4b4945','616d706d','6c616e67756' .'16765','6f7264696e616c73','20307468','20317374','20326e64', '20337264','20347468','20357468','20367468','20377468','203' .'87468','20397468','31307468','31317468','31327468','313374' .'68','31347468','31357468','31367468','31377468','31387468', '31397468','32307468','32317374','32326e64','32337264','323' .'47468','32357468','32367468','32377468','32387468','323974' .'68','33307468','33317374','7765656b5f66756c6c','7765656b5f' .'61626272','6d6f6e74685f66756c6c','6d6f6e74685f61626272','2' .'5','62','42','63','256d2f25642f25792025483a254d3a2553','25' .'6120256220256520255420255a202559','64','25303264','256d2f2' .'5642f2579','65','253264','68','48','49','6a','25303364','6' .'b','6c','6d','6f','70','50','71','72','25493a254d3a2553202' .'570','52','25483a254d','73','53','74','54','25483a254d3a25' .'53','55','77','57','78','58','79','59','25303464','4461746' .'5537472696e67203a2054696d652076616c7565206d757374206265206' .'16e20696e7465676572','4a616e','466562','4d6172','417072','' .'4d6179','4a756e','4a756c','417567','536570','4f6374','4e6f' .'76','446563','4a616e75617279','4665627275617279','4d617263' .'68','417072696c','4a756e65','4a756c79','417567757374','536' .'57074656d626572','4f63746f626572','4e6f76656d626572','4465' .'63656d626572','53756e','4d6f6e','547565','576564','546875', '467269','536174','53756e646179','4d6f6e646179','5475657364' .'6179','5765646e6573646179','5468757273646179','46726964617' .'9','5361747572646179','7374','6e64','7264','7468','7e','25' .'73','252d20353073','3c696e70757420747970653d68696464656e20' .'6e616d653d22','222076616c75653d22','223e','534d54505f73656' .'e646d61696c','686f7374','706f7274','68656c6f','6c6f63616c6' .'86f7374','74696d656f7574','6465627567','6572726f72','706f7' .'0335f61757468','5c62283f3a5b5c775c2d5d2b5b5c775c2d5c2e5d29' .'2a5b5c775c2d5d2b5c40','283f3a5b5c775c2d5d2b5b5c775c2d5c2e5' .'d292a5b5c775c2d5d2b5c2e5b412d5a612d7a5d7b322c387d5c62','66' .'726f6d','706f70335f75736572','706f70335f70617373','534d545' .'05f706f703361757468','617574686f72697a6564','706f70335f686' .'f7374','706f70335f706f7274','706f70335f74696d656f7574','5f' .'73756273','46485f437265617465','6e756d','66696c656c6f636b6' .'96e67','6c6f636b','737461636b','736861726564','756e6c6f636' .'b3a206e65737465642066696c656c6f636b20756e64657272756e','66' .'696c656c6f636b','6c6f636b696e666f','66696c656e616d65','686' .'16e646c65','73657276657262757379','636769646972','2e2e2e', '414e59','5f6c6963656e73655f6e756d','25303764','72656733','' .'6373756d','6c6f67696e5f64697361626c6564','3031313031313030' .'3031','313031313131303131303031313130313130313030313031313' .'03131313030313031313131313031313030303131303131','30313131' .'3130313131303031303031313130303130303131313031303130313131' .'303030','3030313131303130303031313030313031303131303031303' .'0','69','253332432a','75','4c6f636174696f6e3a20687474703a2' .'f2f7777772e696e746572616374697665746f6f6c732e636f6d2f3f696' .'e76616c6964','5f696e7374616c6c5f6d656e75732e68746d6c','726' .'56731','72656732','696d6167655f75726c5f74657374','73746570', '5f73746570','73617665','5f686561646572','77656c636f6d65','' .'5f666f6f746572','6c6963656e7365','6167726565','5f72656732', '485454505f484f5354','5345525645525f4e414d45','70726f647563' .'745f6964','496e76616c69642050726f64756374204944213c62723e', '596f75206d75737420656e74657220796f75722050726f647563742049' .'44213c62723e','596f75206d75737420656e74657220796f757220646' .'f6d61696e206e616d65213c62723e','596f75206d75737420656e7465' .'7220796f757220636f6d70616e79206e616d65213c62723e','5f','74' .'69746c65626172','75726c5f696d616765','696d616765732f696e74' .'6572616374697665746f6f6c732e676966','696d6167655f75726c','' .'696d616765735f75726c','696d61676575726c','6f6e6c6f6164','6' .'f6e6c6f61643d2277696e646f772e666f637573282922','75726c5f75' .'706c6f6164','6469725f75706c6f6164','75706c6f6164732f2e','7' .'5726c5f7075626c697368','6469725f7075626c697368','7075626c6' .'973682f2e','7365617263685f75726c','5343524950545f4e414d45', '687474703a2f2f','5345525645525f41444452','7669657765725f75' .'726c','646972735f75726c73','3f','23','6372656174655f757365' .'72','61646d696e5f6964','61646d696e5f7077','596f75206d75737' .'420656e746572206120757365726e616d6520616e642070617373776f7' .'26421','6964','7077','5468617420757365726e616d652069732061' .'6c72656164792074616b656e2c20706c656173652073656c6563742061' .'6e6f746865722e','436f6e74656e742d747970653a20746578742f687' .'46d6c','63726561746564','75706461746564','39','2e2e2f','2e' .'2e2f2e2e2f2e2e2f','74657374696e6720','50305935463947344338' .'52334c374132453655314448544e514a4b58424d57565a','504154485' .'f494e464f','26726567313d','26726567323d','266c6e756d3d','2' .'670726f673d','267665723d','2675726c3d','266373756d3d','777' .'7772e696e746572616374697665746f6f6c732e636f6d','75695f7375' .'6273','65646974','636f6e6669726d5f6572617365','70657270616' .'765','7569','706167656e756d','6b6579776f7264','64617465','' .'6d6f6e','646179','79656172','646174655f666f726d6174','6461' .'746574696d655f666f726d6174','5f6267636f6c6f72','2345454545' .'4646','23444444444545','726f77','5f6d656e755f686561646572', '5f6d656e755f6e616d65','6d61785f7265636f726473','6572726f72' .'5f6d61785f7265636f726473','5f73656c6563746564','73656c6563' .'746564','6e6f6e65','637265617465645f6279','757064617465645' .'f6279','616464','5f65646974','6e6f7265636f7264','5f6368656' .'36b6564','636865636b6564','5f636f6e6669726d5f6572617365','' .'6572617365203a2043616e27742066696e64207265636f7264202320', '636f6e6669726d5f657261736564','657261736564','73617665203a' .'205461626c65206e616d6520756e646566696e6564','75706c6f61646' .'57874','75706c6f61646c696d6974','75706c6f61646d6178','3030' .'30','75695f736176655f75706c6f616473203a2063616e27742073617' .'6652075706c6f616465642066696c6520','75706c6f61645f68656967' .'6874','75706c6f61645f7769647468','6f776e6572','696d6167657' .'769647468','696d616765686569676874','7566696c65','6d617873' .'697a65','6d6178686569676874','6d61787769647468','616363657' .'074657874','4e6f6e65','6572726f725f75706c6f61645f6e6f745f7' .'361766564','636f6e6669726d5f7361766564','7361766564','7569' .'5f6c697374203a2054686520666972737420617267756d656e74206d75' .'737420626520612048415348207265666572656e636521','5f6c69737' .'4616c6c','5f7374617465','5f70657270616765','5f6c697374','5' .'f70636f756e74','5f6d636f756e74','5f72636f756e74','5f637061' .'6765','5f6c70616765','5f6e70616765','6e6f745f666f756e645f7' .'36561726368','6e6f745f666f756e64','616363657373','6572726f' .'725f757365726e616d655f74616b656e','6572726f725f6c6173745f6' .'1646d696e','6c6f67696e5f696e76616c6964','6d61696c5f6d61696' .'c6572','736d7470','6d61696c5f736d7470','534d5450','736d747' .'05f68656c6f','736d74705f74696d656f7574','6d61696c5f706f703' .'361757468','6d61696c5f706f7033','6d61696c5f706f70337573657' .'2','6d61696c5f706f703370617373','73656e646d61696c','6d6169' .'6c5f73656e646d61696c','6669656c645f6e616d65','6d6b66696c65', '546865206162696c69747920746f20637265617465206e65772066696c' .'657320686173206265656e2072656d6f7665642066726f6d206f757220' .'64656d6f2076657273696f6e2e2020','6469725f62617365','736469' .'72','64656d6f','6d6b6469725f6e616d65','6469725f6572726f72', '4e6f206469726563746f7279206e616d652073706563696669656421', '4469726563746f7279206e616d65206d6179206f6e6c7920636f6e7461' .'696e20412d5a2c20612d7a2c20302d392c202d206f72205f','556e616' .'26c6520746f2063726561746520646972203a20','6d6b66696c655f6e' .'616d65','66696c655f6572726f72','4e6f2066696c65206e616d6520' .'73706563696669656421','46696c65206e616d65206d6179206f6e6c7' .'920636f6e7461696e20412d5a2c20612d7a2c20302d392c202d2c205f2' .'06f72202e','46696c6520616c72656164792065786973747321','556' .'e61626c6520746f206372656174652066696c65203a20','64697232', '706172656e74','706172656e745f7565','4469726563746f72792064' .'6f65736e277420657869737421','4469726563746f72792069736e277' .'4207265616461626c6521','636f6e74656e74686561646572','5f627' .'26f7773655f6469722e68746d6c','70617468','706174685f7565','' .'73697a65','6d74696d65','6d6f646966696564','6f74686572','6e' .'6f66696c6573','436f6e74656e742d747970653a20696d6167652f676' .'966','436f6e74656e742d747970653a20696d6167652f6a706567','6' .'c686f7572','6c686f75725f6f6666736574','6d696e7573','6c6d69' .'6e','6c6d696e5f6f6666736574','6c6f67696e','6c6f67696e5f657' .'87069726564','6c6f67696e5f74696d656f7574','5f696e746572666' .'163652e68746d6c','75695f6c6f67696e5f696e746572666163653a20' .'74656d706c61746563656c6c20','686561646572','6c6f67696e5f6d' .'657373616765','666f6f746572','75726c5f6c6f676f6666','73746' .'96d65','6c74696d65','656e765f7065726c5f6f73','656e765f7065' .'726c5f766572','656e765f6d6f645f7065726c','656e765f72656d6f' .'74655f686f7374','656e765f72656d6f74655f61646472','656e765f' .'636769646972','73656e646d61696c5f726f77','2f7573722f6c6962' .'2f73656e646d61696c','2f7573722f62696e2f73656e646d61696c','' .'2f7573722f7362696e2f73656e646d61696c','2f7573722f6c6f63616' .'c2f62696e2f73656e646d61696c','2f7362696e2f73656e646d61696c', '2f62696e2f73656e646d61696c','2f6574632f73656e646d61696c','' .'73656e646d61696c5f6c697374','74616231','73657475705f776172' .'6e696e67','636c6f73655f77696e646f775f6f6e5f636f6e6669726d', '31','5f73657475705f746573746d61696c2e68746d6c','5f636f6e74' .'656e74','6d61696c5f74657374','706167655f7469746c65','54657' .'374204d61696c','6d61696c746f','62616420656d61696c206164647' .'2657373','496e76616c696420656d61696c2061646472657373','6e6' .'f20656d61696c2061646472657373','456d61696c2061646472657373' .'206c65667420626c616e6b2e','63616e74206f70656e2074657374206' .'d657373616765','626164206d61696c2074656d706c617465','73756' .'22073656e646d61696c206572726f72','20','6d61696c20746573742' .'0737563636565646564','796573','6d61696c5f746573745f6661696' .'c6564','4572726f723a204e6f20456d61696c2041646472657373','4' .'572726f723a20496e76616c696420456d61696c2041646472657373','' .'6e6f','4572726f723a2050726f626c656d20776974682054657374204' .'d657373616765','4572726f723a2050726f62656c6d20776974682054' .'657374204d657373616765','4572726f723a2050726f62656c6d20736' .'56e64696e67204d657374204d657373616765','6d61696c5f74657374' .'5f737563636565646564','54657374204d61696c20537563636565646' .'564','5f6261636b5f627574746f6e','546865206162696c697479207' .'46f20616c746572205365747570204f7074696f6e73206861732062656' .'56e2072656d6f7665642066726f6d206f75722064656d6f20766572736' .'96f6e2e2020','20776f756c6420616c6c6f7720796f7520746f206368' .'616e676520616e79206f66207468657365206669656c64732e','73617' .'665645f74616231','5f72656731','5f72656733','74616239','737' .'56d6d6172795f74797065','636f6e74656e745f74797065','5f696d6' .'1676575726c','5f75695f7469746c65','5f75695f666f6f746572','' .'5f75726c5f68656c70','75726c5f68656c70','2e','73756d6d61727' .'95f666f726d6174','73756d6d617279','636f6e74656e745f666f726' .'d6174','636f6e74656e74','7075626c69736865645f616c6c','496e' .'74657266616365203a204e6f2074656d706c6174652063656c6c207761' .'732073706563696669656421','496e74657266616365203a205468652' .'07365636f6e6420617267756d656e74206d75737420626520612048415' .'348207265666572656e636521','6d656e756261725f61636c','6d656' .'e75626172','5f6f6e6c79','5f63757365725f6964','696e74657266' .'616365','3c212d2d','2076','20284275696c643a20','4c6963656e' .'73652023','207e20','457865637574652074696d653a202530316420' .'7365636f6e6473','2d2d3e','64617461646972','6e6f7772697465', '7461625f6e756d','7461625f6e616d65','7461625f756e73656c6563' .'746564','7461625f73656c6563746564','5f6865616465725f746162', '7461625f626172','7461625f6c697374','5853535f66696c746572', '616c6c6f776564','666c616773','75746638','66696c746572','68' .'616e646c696e67','756e6b6e6f776e','616c6c6f77','756e6b6e6f7' .'76e5f74616773','636f6d6d656e74','636f6d6d656e745f74616773', '7373695f74616773','6e6f6e68746d6c','6e6f6e68746d6c5f746167' .'73','69676e6f7265','61747472','6174747273','6b6579','75726' .'c','76616c7565','7374796c65','74797065','617474725f6f6b','' .'626f6479','66756c6c746167','7461676e616d65','656e64666c616' .'7','656d707479666c6167','74616773','656e636c6f73696e67','6' .'56e64746167','7061727469616c','636f7272757074','71756f7465', '636f6e74726f6c5f656e746974696573','7374796c655f696d706f727' .'4','7479706573','70726f746f636f6c73','6373735f6174747273', '75726c28','3a','64656661756c745f616c6c6f77','61626272','61' .'63726f6e796d','61646472657373','6170706c6574','61726561','' .'62617365','62617365666f6e74','62646f','626967','626c6f636b' .'71756f7465','6272','627574746f6e','63617074696f6e','63656e' .'746572','63697465','636f6465','636f6c','636f6c67726f7570', '6464','64656c','64666e','646976','646c','6474','656d','656' .'d626564','6669656c64736574','666f6e74','666f726d','6672616' .'d65','6672616d65736574','6831','6832','6833','6834','6835', '6836','68656164','6872','68746d6c','696672616d65','696d67', '696e707574','696e73','6973696e646578','6b6264','6c6162656c', '6c6567656e64','6c69','6c696e6b','6d6170','6d656e75','6d657' .'461','6e6f6672616d6573','6e6f736372697074','6f626a656374', '6f6c','6f707467726f7570','6f7074696f6e','706172616d','7072' .'65','73616d70','736372697074','73656c656374','736d616c6c', '7370616e','737472696b65','7374726f6e67','737562','737570', '7461626c65','74626f6479','7464','7465787461726561','74666f' .'6f74','7468656164','7469746c65','7472','7474','756c','6163' .'636573736b6579','616374696f6e','616c69676e','616c74','6178' .'6973','6267636f6c6f72','626f72646572','63656c6c70616464696' .'e67','63656c6c73706163696e67','636c617373','636c656172','6' .'36f6c6f72','636f6c73','636f6c7370616e','636f6d70616374','6' .'36f6f726473','64697361626c6564','656e6374797065','66616365', '666f72','6672616d65626f72646572','68656164657273','6865696' .'76874','68726566','687370616365','69736d6170','6c616e67','' .'6c6f6e6764657363','6c6f77737263','6d617267696e686569676874', '6d617267696e7769647468','6d61786c656e677468','6d65646961', '6d6574686f64','6d756c7469706c65','6e6f68726566','6e6f72657' .'3697a65','6e6f7368616465','6e6f77726170','70726f6d7074','7' .'26561646f6e6c79','72656c','726576','726f7773','726f7773706' .'16e','72756c6573','73636f7065','7363726f6c6c696e67','73686' .'17065','737263','7374617274','746162696e646578','746172676' .'574','7573656d6170','76616c69676e','767370616365','7769647' .'468','666f6e742d66616d696c79','666f6e742d7374796c65','666f' .'6e742d76617269616e74','666f6e742d776569676874','666f6e742d' .'73697a65','6261636b67726f756e64','6261636b67726f756e642d63' .'6f6c6f72','6261636b67726f756e642d696d616765','6261636b6772' .'6f756e642d726570656174','6261636b67726f756e642d61747461636' .'86d656e74','6261636b67726f756e642d706f736974696f6e','776f7' .'2642d73706163696e67','6c65747465722d73706163696e67','74657' .'8742d6465636f726174696f6e','766572746963616c2d616c69676e', '746578742d7472616e73666f726d','746578742d616c69676e','7465' .'78742d696e64656e74','746578742d686569676874','6d617267696e' .'2d746f70','6d617267696e2d7269676874','6d617267696e2d626f74' .'746f6d','6d617267696e2d6c656674','6d617267696e','706164646' .'96e672d746f70','70616464696e672d7269676874','70616464696e6' .'72d626f74746f6d','70616464696e672d6c656674','70616464696e6' .'7','626f726465722d746f702d7769647468','626f726465722d72696' .'768742d7769647468','626f726465722d626f74746f6d2d7769647468', '626f726465722d6c6566742d7769647468','626f726465722d7769647' .'468','626f726465722d636f6c6f72','626f726465722d7374796c65', '626f726465722d746f70','626f726465722d7269676874','626f7264' .'65722d626f74746f6d','626f726465722d6c656674','666c6f6174', '646973706c6179','77686974652d7370616365','6c6973742d737479' .'6c652d74797065','6c6973742d7374796c652d696d616765','6c6973' .'742d7374796c652d706f736974696f6e','6c6973742d7374796c65','' .'68747470','6874747073','667470','746578742f68746d6c','7465' .'78742f637373','696d6167652f676966','696d6167652f706e67','6' .'96d6167652f6a7067','696d6167652f6a706567','203d2031','5465' .'6d706c617465203a20546865207365636f6e6420617267756d656e7420' .'6d75737420626520612048415348207265666572656e6365206f722075' .'6e646566696e656421','696e636c75646573','61736466','6172745' .'f696d6167655f75726c','696d675f616c69676e','61727469636c655' .'f656469746f72','696d6167655f616c69676e6d656e74','726967687' .'4','696d675f75726c','696d675f63617074696f6e','696d675f6865' .'69676874','696d6167656865696768745f696d616765','696d675f77' .'69647468','696d61676577696474685f696d616765','696d675f6e6f' .'63617074696f6e','6172745f73756d6d617279','6172745f636f6e74' .'656e74','6172745f6669656c64','676c6f62616c5f75706461746564', '3c6d657461206e616d653d2267656e657261746f722220636f6e74656e' .'743d22','2c20687474703a2f2f7777772e696e7465726163746976657' .'46f6f6c732e636f6d223e','3c212d2d204c6173742055706461746564' .'20','207769746820','20627920696e746572616374697665746f6f6c' .'732e636f6d202d2d3e','5f5f4449455f5f','5f5f5741524e5f5f','6' .'56d61696c5f6e6f74696669636174696f6e5f656e61626c6564','6e6f' .'74696669636174696f6e5f6576656e7473','2c','656d61696c','657' .'6656e745f6e616d6573','2d2d2d','7374617475735f6e616d6573','' .'70656e64696e67','76697369626c65','68696464656e','757365725' .'f66756c6c6e616d65','6576656e74','737461747573','6172745f', '6172745f7370617265','75726c5f736561726368','75726c5f67696e' .'646578','7075626c6973685f696e6465785f66696c65707265666978', '7075626c6973685f66696c65657874','66696c655f6763617465676f7' .'2696573','7075626c6973685f6361745f6c6973745f66696c65707265' .'666978','66696c655f67686561646c696e6573','7075626c6973685f' .'686561646c696e655f66696c65707265666978','66696c655f6361746' .'5676f72696573','6172745f636174','66696c655f686561646c696e6' .'573','7075626c6973685f6361745f686561646c696e655f66696c6570' .'7265666978','66696c655f686561646c696e65735f6279636174','70' .'75626c6973685f73616d706c65725f66696c65707265666978','66696' .'c655f736561726368','7075626c6973685f7365617263685f666f726d' .'5f66696c65707265666978','6172745f7072696e7465725f75726c','' .'616c6c6f775f6172745f66696c656e616d65','7075626c6973685f617' .'2745f7072696e7465725f66696c65707265666978','686f7572','706' .'d','6d696e','6172745f64617465','6172745f74696d65','74696d6' .'55f666f726d6174','6361745f6e616d65','7075625f66696c6570726' .'56669785f73706563696679','7075625f66696c65707265666978','7' .'075626c6973685f6361745f66696c65707265666978','75726c5f696e' .'646578','6361745f6e756d','676361745f6e616d65','6172745f747' .'97065','75726c5f7468697370616765','64657461696c5f6c696e6b', '6172745f66696c656e616d65','7075626c6973685f6172745f66696c6' .'5707265666978','6172745f6e756d','6d61696c5f73656e6465725f6' .'56d61696c','6d61696c5f73656e6465725f6e616d65','656d61696c2' .'f6e6f746966792e747874','54686520656d61696c2074656d706c6174' .'65206e6f746966792e74787420697320696d70726f7065726c7920666f' .'726d61747465642e','436f6e74656e742d547970653a20746578742f7' .'06c61696e','656d61696c5f616c6c5f63617473','656d61696c5f636' .'17473','656d61696c5f6e6f74696669636174696f6e5f6576656e7473', '6e6f74696669636174696f6e735f746f5f6669656c64','3b20','5f75' .'695f6267636f6c6f72','2e2e2f646174612f','2e2e2f646174612f66' .'696c656c6f636b2e6c6f636b','256220256f2c202559202d2025483a2' .'54d3a2553','25622025652c202559','756d61736b','457870697265' .'642055736572','61636c5f6e616d6573','a1','6d6f645f7065726c', '4d4f445f5045524c','616c6c6f775f6d6f645f7065726c','63676975' .'726c','63676966696c65','74656d706c61746564697231','2e2e2f7' .'4656d706c61746573','74656d706c61746564697232','2e2e2f74656' .'d706c617465732f696e74657266616365','74656d706c617465646972' .'33','2e2e2f5f736f757263655f696d61676573','76','54686973207' .'0726f6772616d2063616e206f6e6c792062652072756e207468726f756' .'768206120776562207365727665722e','5f70726f675f6e616d65','6' .'56e61626c655f7873735f66696c746572','616c6c6f775f737369','6' .'c697374616c6c','5f63676975726c','53657276657220746f6f20627' .'5737921','41727469636c65732063616e6e6f74206265206163636573' .'736564206f72207361766564207269676874206e6f772e20536f6d656f' .'6e6520656c736520697320747279696e6720746f207361766520746865' .'69722061727469636c652c206f72207468652073797374656d20697320' .'696e20746865206d69647374206f662072652d7075626c697368696e67' .'206f7220617263686976696e672061727469636c65732e20506c656173' .'6520776169742061206d6f6d656e7420616e64207468656e2074727920' .'616761696e2e','6d6163667470','7075626c697368','4e6f2048656' .'c7020417661696c61626c65','536f7272792c206e6f2068656c702069' .'732063757272656e746c7920617661696c61626c6520666f7220746869' .'73206170706c69636174696f6e2e2020506c6561736520636f6e746163' .'7420796f75722073797374656d2061646d696e6973747261746f722066' .'6f7220617373697374616e63652e','4e6f20737563682066696c65206' .'f72206469726563746f7279','5065726d697373696f6e2064656e6965' .'64','206f6e436c69636b3d2277696e646f772e636c6f736528293b222' .'0','6e65737465645f6c6f636b73','7075626c6973685f73796e64696' .'36174655f66696c65707265666978','73796e6469636174655f','707' .'5626c6973685f73796e6469636174655f717479','6272616e64696e67', '506f776572656420627920696e746572616374697665746f6f6c732e63' .'6f6d','7374617469635f617263686976655f7061676573','736f7274' .'316669656c64','736f72743172657665727365','736f7274316e756d' .'65726963','736f7274326669656c64','736f72743272657665727365', '736f7274326e756d65726963','736669656c645f6e616d65','736669' .'656c645f656e61626c6564','736669656c645f6f72646572','736669' .'656c645f6e616d653230','736669656c645f6f726465723230','7366' .'69656c645f747970653230','73756d6d6172795f6e616d65','636f6e' .'74656e745f6e616d65','73756d6d6172795f656e61626c6564','636f' .'6e74656e745f656e61626c6564','7075626c6973685f68696464656e5' .'f696e646578','7566696c655f696d616765','617263686976655f737' .'4617465','616c6c5f63617473','2073656c6563746564','5f636174' .'5f6c697374','63617465676f7279','73706172655f74657874666965' .'6c64','6f7074696f6e5f6c697374','3c6f7074696f6e','737061726' .'5','2076616c75653d22','3c2f6f7074696f6e3e','73706172655f64' .'726f70646f776e','666f726d61745f73706172655f636865636b6564', '64656661756c745f6175746f666f726d6174','73706172655f7465787' .'461726561','6465736372697074696f6e','436865636b626f78','20' .'636865636b6564','73706172655f636865636b626f78','7370617265' .'5f77797369777967','777973697779675f6a617661736372697074','' .'777973697779674a53','636f6e74656e745f666f726d61745f6175746' .'f5f636865636b6564','73756d6d6172795f666f726d61745f6175746f' .'5f636865636b6564','68696464656e5f','656469746f725f68696464' .'656e','696d675f6c697374','696d675f6e6f74666f756e64','79656' .'1725f6c697374','6561726c696573745f79656172','6c61746573745' .'f79656172','616d','616c6c6f775f6172745f7479706573','617274' .'5f747970655f6f7074696f6e73','6172745f747970655f315f6368656' .'36b6564','3c696e70757420747970653d2268696464656e22206e616d' .'653d226172745f74797065222076616c75653d2231223e','73756d6d6' .'172795f636f6c73','73756d6d6172795f726f7773','636f6e74656e7' .'45f636f6c73','636f6e74656e745f726f7773','73756d6d6172795f7' .'7797369777967','73756d6d6172795f63656c6c','636f6e74656e745' .'f77797369777967','636f6e74656e745f63656c6c','6f6c645f73746' .'1747573','696d6167656e616d65','696d675f726f77','6172745f74' .'7970655f','7566696c655f646f63756d656e74','6572726f725f6e6f' .'5f636174','6572726f725f6e6f5f737461747573','6572726f725f6e' .'6f5f6c696e6b','6572726f725f6e6f5f7566696c65','616c6c6f775f' .'68746d6c','616d706d5f6e756d','7374616d70','253034642530326' .'4253032642531642530326425303264','6572726f725f66696c656e61' .'6d655f636f6e666c696374','646f5f6e6f745f7075626c697368','75' .'736564','66726565','6669656c645f6c697374','75706c6f61645f6' .'669656c64','6572726f725f6e6f5f667265655f6669656c6473','206' .'96d616765','75706c6f6164','696d6167655f6669656c64','696d61' .'67655f6e756d','6572726f725f6e6f5f757365645f6669656c6473','' .'72656d6f7665','6e6f5f636174','736176655f636f6e6669726d','7' .'4656d706c6174655f66696c655f6c697374','696e6465782f64656661' .'756c742e68746d6c','696e646578','686561646c696e655f74656d70' .'6c6174655f66696c655f6c697374','686561646c696e65732f6465666' .'1756c742e68746d6c','686561646c696e6573','61727469636c655f7' .'4656d706c6174655f66696c655f6c697374','61727469636c652f6465' .'6661756c742e68746d6c','61727469636c65','7072696e7465725f74' .'656d706c6174655f66696c655f6c697374','61727469636c652f64656' .'661756c745f7072696e7465722e68746d6c','7075625f706572706167' .'655f737065636966795f5f636865636b6564','7075625f66696c65707' .'2656669785f737065636966795f5f636865636b6564','64656661756c' .'745f706572706167655f696e646578','7075626c6973685f6361745f7' .'17479','64656661756c745f706572706167655f686561646c696e6573', '7075626c6973685f6361745f686561646c696e655f717479','74656d7' .'06c6174655f66696c65','686561646c696e655f74656d706c6174655f' .'66696c65','61727469636c655f74656d706c6174655f66696c65','70' .'72696e7465725f74656d706c6174655f66696c65','546865206162696' .'c69747920746f2075736520637573746f6d2063617465676f727920666' .'96c656e616d6573206265656e2072656d6f7665642066726f6d206f757' .'22064656d6f2076657273696f6e2e2020','20776f756c6420616c6c6f' .'7720796f7520746f206e616d652074686573652066696c657320617320' .'796f7520776973682e','696e6465782f','686561646c696e65732f', '61727469636c652f','536f7272792c207468652074656d706c6174652' .'0796f7527766520726571756573746564206973206e6f7420612072656' .'7697374657265642074656d706c6174652e','6572726f725f6475706c' .'69636174655f66696c656e616d65','6f746865725f6e616d65','5945' .'53','2d2d','7570','6175746f5f7075626c697368','736f7274','2' .'061727469636c6573','2061727469636c65','2061726368697665642' .'061727469636c6573','2061726368697665642061727469636c65','6' .'172745f636f756e74','3c2f666f6e743e20616e64203c666f6e742063' .'6f6c6f723d2223434330303030223e','636f6e6669726d','5f657261' .'7365','636f756e74','616c6c','636f6e6669726d5f73706172655f6' .'572617365','6669656c64','736669656c645f74797065','73706172' .'655f657261736564','61636c5f6c697374','454545454646','44444' .'4444545','63617465676f72795f6c697374','6361745f6e756d62657' .'273','2c20','656e61626c6564','616c6c5f636174735f315f636865' .'636b6564','656d61696c5f6e6f74696669636174696f6e5f6576656e7' .'45f','656d61696c5f616c6c5f636174735f315f636865636b6564','7' .'761726e696e675f6e6f5f63617473','707265766965775f706f707570', '7075626c6973685f6361745f686561646c696e6573','63616c6c696e6' .'7207075626c69736820776974682069676e6f72655f617274203d20','' .'69676e6f72655f617274','4e6f2063617465676f72792077617320737' .'065636966696564','546869732061727469636c652063616e27742062' .'65207072657669657765642062656361757365206e6f2063617465676f' .'7279207761732073656c65637465642e','4e6f2041727469636c65205' .'0616765','546869732061727469636c652063616e2774206265207072' .'657669657765642062656361757365206e6f2061727469636c65207061' .'67652077696c6c206265207075626c69736865642e20496620796f7520' .'77616e7420616e2061727469636c65207061676520746f206265207075' .'626c69736865642c20796f75206d7573742073656c6563742046756c6c' .'2041727469636c65206173207468652041727469636c652054797065', '61727469636c653a','666f726d61745f7370617265','6361745f696d' .'616765','6361745f696d6167655f7769647468','6361745f696d6167' .'655f686569676874','6361745f75706461746564','686561646c696e' .'65735f62796361742e68746d6c','63617465676f72795f6c6973742e6' .'8746d6c','73796e6469636174652f73796e6469636174652e6a73','7' .'075625f706572706167655f73706563696679','706572706167655f69' .'6e646578','706572706167655f686561646c696e6573','75726c5f63' .'617465676f7279','7075626c6973685f6c6973745f6f665f63617473', '7075626c6973685f7365617263685f666f726d','63617465676f72795' .'f6c6973742e68746d6c3a726f77','32','63617465676f72795f6c697' .'3742e68746d6c3a726f775f73656c6563746564','63617465676f7279' .'5f6c6973742e68746d6c3a6e6f745f666f756e64','63617465676f727' .'95f70756c6c646f776e','617263686976655f70756c6c646f776e','3' .'c6f7074696f6e2076616c75653d22','7472616365','7365617263682' .'f7365617263685f666f726d2e68746d6c','7075626c6973685f696e64' .'65785f717479','7075626c6973685f686561646c696e655f717479','' .'7075626c6973685f73616d706c65725f717479','5f73756d6d617279', '5f6c696e6b','5f7566696c65','7075626c6973685f696e646578','3' .'a726f77','7075626c6973685f636174','7075626c6973685f6865616' .'46c696e6573','7075626c6973685f73796e646963617465','616c6c6' .'f775f696d616765735f696e5f77656266656564','7075626c6973685f' .'73616d706c6572','686561646c696e65735f62796361742e68746d6c3' .'a64697669646572','7075626c6973685f7072696e746572','7075626' .'c6973685f61727469636c65','61727469636c655f6c697374','68656' .'1646c696e65732f64656661756c742e68746d6c3a6e6f745f666f756e6' .'4','696e6465782f64656661756c742e68746d6c3a6e6f745f666f756e' .'64','6d6f7265','6d6f72655f75726c','73796e6469636174652f737' .'96e6469636174652e6a733a6e6f745f666f756e64','302e6a73','686' .'561646c696e65735f62796361742e68746d6c3a6e6f745f666f756e64', '686561646c696e65735f62796361742e68746d6c3a686561646572','6' .'86561646c696e65735f62796361742e68746d6c3a666f6f746572','3a' .'6d6f7265','3a6e6f5f6d6f7265','3a6e6f745f666f756e64','2e6a7' .'3','6f72646572','747970655f','73706172655f6c697374','73706' .'172655f726f77','2a2a2a2a2a2a2a2a2a2a2a2a2a2a2a2a','7570677' .'2616465','686964655f75706772616465','6e6577657374','6f6c64' .'657374','6461746166696c655f6c697374','63757272656e745f636f' .'756e74','736f757263655f61726368697665','7461726765745f6172' .'6368697665','6e65775f61726368697665','6e65775f617263686976' .'655f6e616d65','6361745f6d756c7469','64617931','7965617231', '6d6f6e31','64617932','7965617232','6d6f6e32','636174735f74' .'6f5f6d6f7665','736f757263655f617263686976655f6e616d65','43' .'757272656e742041727469636c6573','7461726765745f61726368697' .'6655f6e616d65','74696d6531','74696d6532','636f6e6669726d5f' .'6d6f76655f726f77','636f6e6669726d5f6d6f76655f6e6f745f666f7' .'56e64','636f6e6669726d5f6d6f7665','6d6f766564','6172636869' .'76655f6e616d65','73686f775f726f77','73686f775f6e6f745f666f' .'756e64','73686f77','7669657765725f70617468696e666f','3f617' .'263686976653d','266e756d3d','2f7072696e746572','267072696e' .'7465723d31' );for(@z){$_=pack('H*',$_)}}use Socket;use Time::Local;use Fcntl qw(:DEFAULT :flock);&ab;MAIN:;&ac();if($ad{$z[0]}){&ae; }if($ad{$z[1]}){&af($z[2]);}if($ad{$z[3]}){print"Content-type: text/html\n\n"; print&ag("_nohelp.html",{});exit;}if($ad{$z[4]}){&ag($z[5], {});print"Content-type: text/html\n\n";print&ah($ad{$z[4]}, {});exit;}if($ad{$z[6]}){&af($z[7],{$z[8]=>$ad{$z[6]}});}%ai =&aj;$ak{$z[9]}={map{$_,1}split(/,/,$ai{$z[9]})};if($ai{$z[10]} <2){&af($z[11],{});}if($ai{$z[10]}==2){if($ad{$z[12]}){&al($am{$z[13]}); }if($ad{$z[14]}){&an($am{$z[13]});}if($ad{$z[15]}){&ao($am{$z[13]}); }if($ad{$z[16]}){&ap($am{$z[13]});}if($ad{$z[17]}){&aq($am{$z[13]}); }if($ad{$z[18]}){&ar($am{$z[13]});}if($ad{$z[19]}){&as($am{$z[13]}); }if($ad{$z[20]}){&at($am{$z[13]});}if($ad{$z[21]}){&an($am{$z[13]}); }if($ad{$z[22]}){&au();}if($ad{$z[23]}){&av();}}if($ai{$z[10]} >=3){if($ad{$z[24]}){&aw($am{$z[25]});}if($ad{$z[26]}){&aw($am{$z[25]}); }if($ad{$z[27]}){&ax($am{$z[25]});}if($ad{$z[28]}){&ay($am{$z[25]}); }if($ad{$z[12]}){&al($am{$z[25]});}if($ad{$z[14]}){&an($am{$z[25]}); }if($ad{$z[15]}){&ao($am{$z[25]});}if($ad{$z[16]}){&ap($am{$z[25]}); }if($ad{$z[17]}){&aq($am{$z[25]});}if($ad{$z[18]}){&ar($am{$z[25]}); }if($ad{$z[19]}){&as($am{$z[25]});}if($ad{$z[20]}){&at($am{$z[25]}); }if($ad{$z[21]}){&an($am{$z[25]});}if($ad{$z[22]}){&az($am{$z[25]}) }if($ad{$z[29]}){&aw($am{$z[25]});}}if($ai{$z[10]}>=9){if($ad{$z[30]}) {&ba($am{$z[31]});}if($ad{$z[32]}){&bb($am{$z[31]});}if($ad{$z[33]}) {&bc($am{$z[31]});}if($ad{$z[34]}){&bd($am{$z[31]});}if($ad{$z[35]}) {&be($am{$z[31]});}if($ad{$z[36]}){&bf($am{$z[31]});}if($ad{$z[37]}) {&bf($am{$z[31]});}if($ad{$z[38]}){&bg($am{$z[31]});}if($ad{$z[39]}) {&bh($am{$z[31]});}if($ad{$z[40]}&&$ad{$z[41]}){&bi($z[42].$z[43].$ak{$z[44]}.$z[45]); }if($ad{$z[40]}&&$ad{$z[46]}){&bi($z[47].$z[43].$ak{$z[44]}.$z[45]); }if($ad{$z[48]}){&bi($z[49].$z[43].$ak{$z[44]}.$z[45]);}if($ad{$z[40]}) {&bj($z[41]);}if($ad{$z[50]}){&bj($z[51]);}$ak{$z[52]}={1=> $z[53],2=>$z[54],3=>$z[55],4=>$z[56],9=>$z[57]};&bk();foreach (1..$ak{$z[58]}){if($ad{$z[59].$_}){&bl($_);}if($ad{$z[60].$_}) {&bm($_);}}if($ad{$z[61]}){&bn}if($ad{$z[62]}){&bo;}if($ad{$z[63]}) {&bp;}if($ad{$z[64]}){&bp;}if($ad{$z[65]}){&bp;}if($ad{$z[66]}) {&bq($am{$z[67]});}if($ad{$z[68]}){&br($am{$z[69]});}if($ad{$z[70]}) {&bp;}if($ad{$z[48]}||$ad{$z[71]}){&bs;}if($ad{$z[72]}){&bt($am{$z[67]}); }if($ad{$z[73]}){&bu($am{$z[67]});}if($ad{$z[74]}){&bv($am{$z[67]}); }if($ad{$z[75]}){&bw($am{$z[67]});}if($ad{$z[76]}){&bx($am{$z[67]}); }if($ad{$z[77]}){&bq($am{$z[67]});}if($ad{$z[78]}){&bq($am{$z[67]}); }if(length$ad{$z[79]}){&by($am{$z[69]});}if($ad{$z[80]}){&bz($am{$z[69]}); }if($ad{$z[81]}){&ca($am{$z[69]});}if($ad{$z[82]}){&cb($am{$z[69]}); }if($ad{$z[83]}){&cc($am{$z[69]});}if($ad{$z[84]}){&cd($am{$z[69]}); }if($ad{$z[85]}){&ce($am{$z[69]});}if($ad{$z[86]}){&br($am{$z[69]}); }if($ad{$z[87]}){&br($am{$z[69]});}}if($ad{$z[88]}){$ad{$ad{$z[88]}}++; undef$ad{$z[88]};goto MAIN;}if($ai{$z[10]}==2){$ad{$z[12]}++; goto MAIN;}else{&cf($am{$z[25]},$z[89]);}exit;sub ab{%ak=(); %cg=();%ch=();%am=();%ci=();%ad=();%cj=();%ai=();$ak{$z[44]} =$z[90];$ak{$z[91]}=$z[92];$ak{$z[93]}=$z[94];$ak{$z[95]}=$z[96]; $ak{$z[97]}=35797;$ak{$z[98]}=$z[99];$ak{$z[58]}=20;$SIG{__DIE__} =\&ck;srand;$|=1;$^T=time();my$cl=$0;$cl=~s/.*[\\\/]//;my@cm =($0,$ENV{$z[100]});my$cn=(grep(/$cgifile$/i&&s/^(.*)[\\\/].*/$1/,@cm))[0]; $cn||=(($^O=~/mswin/i?`cd`:`pwd`)=~/(.*)/)[0];$cn=~s/\\/\//g; if(!$cn){die("Can't determine cgi directory!\n");}$am{$z[25]} ={$z[101]=>$z[25],$z[102]=>$z[103],$z[104]=>$z[105],$z[106] =>$z[107],$z[108]=>$z[109].$z[110].$z[111].$z[112].$z[113]. $z[114].$z[115].$z[116].$z[117].$z[118].$z[119].$z[120].$z[121] .$z[122].$z[123].$z[124].$z[125].$z[126].$z[127],$z[128]=>$z[101], $z[129]=>$z[130],$z[131]=>\&co,$z[132]=>[[$z[133],\&ay],[$z[89], \&aw],],};$am{$z[13]}={$z[101]=>$z[25],$z[102]=>$z[134],$z[104] =>$z[135],$z[106]=>$z[136],$z[108]=>$am{$z[25]}{$z[108]},$z[128] =>$am{$z[25]}{$z[128]},$z[129]=>$am{$z[25]}{$z[129]},$z[132] =>[[$z[89],\&aw],],};$am{$z[31]}={$z[101]=>$z[31],$z[102]=> $z[137],$z[104]=>$z[138],$z[106]=>$z[139],$z[108]=>$z[140]. $z[141].$z[142].$z[143].$z[144],$z[128]=>$z[101],$z[129]=>$z[145], $z[131]=>\&cp,$z[132]=>[[$z[133],\&bd],[$z[89],\&bf],],};$am{$z[69]} ={$z[101]=>$z[69],$z[102]=>$z[146],$z[104]=>$z[147],$z[106] =>$z[148],$z[108]=>$z[149],$z[128]=>$z[101],$z[129]=>$z[150], $z[132]=>[[$z[89],\&br],],};$am{$z[67]}={$z[101]=>$z[67],$z[104] =>$z[151],$z[106]=>$z[152],$z[108]=>$z[153],$z[128]=>$z[154], $z[129]=>$z[101],$z[132]=>[[$z[133],\&bw],[$z[89],\&bq],],}; $am{$z[155]}={$z[101]=>$z[155],$z[106]=>$z[156],$z[108]=>$am{$z[67]}{$z[108]}, };$am{$z[157]}={$z[101]=>$z[157],$z[104]=>$z[158],$z[106]=> $z[159],$z[108]=>$z[160].$z[161].$z[162].$z[163].$z[164].$z[165] .$z[166].$z[167].$z[168].$z[169].$z[170].$z[171].$z[172].$z[173] .$z[174].$z[175].$z[176].$z[177].$z[178].$z[179].$z[180].$z[181] .$z[182].$z[183],};1;;sub oe{my$am=$_[0];my($cq)="$ak{'datadir'}$am->{'datafile'}"; my(@cr);if(ref($am)ne$z[184]){die"DB_Count : The first argument must be a HASH reference!\n"; }if(!$am->{$z[106]}){die"DB_Count : No datafile defined in database definition (\%DBDef)!\n"; }unless(-e$cq){return(0);}&cs;open(AB,"<$cq")||&ct("DB_Count : Can't open '$cq'"); @cr=grep/^\d/,;close(AB);&cu;my$cv=@cr;return$cv||0;}sub ml{my$am=$_[0];if(ref($am)ne$z[184]){die$z[185]."\n";}if(defined($_[1]) &&ref($_[1])ne$z[184]){die$z[186]."\n";}if(!$_[2]){die$z[187]."\n"; }my($cq)="$ak{'datadir'}$am->{'datafile'}";my(@cw)=split(/ /,$am->{$z[108]}); my($cx)=$_[1]if defined($_[1]);my($cy)=grep{$cw[$_]eq$_[2]} (0..$#cw);my($cz)=$_[3];my($da)=$_[4];my(@cr);my(@db);unless (-e$cq){return(0);}if(-e$cq){&cs;open(AB,"<$cq")||&ct("DB_Seek : Can't open '$cq'"); @cr=;close(AB);&cu;}foreach(@cr){/^(\d+)\¡/;($1&&$1>=$da) ||next;s/[^¡]+$//;undef%$cx if defined($cx);@db=split(/\¡/); next if($db[$cy]ne$cz);if(defined($cx)){for(0..$#cw){$cx->{$cw[$_]} =$db[$_];$cx->{$cw[$_]}=~s/¿([A-F0-9]{2})/pack($z[188],hex($1))/egix; }}return 1;}return 0;}sub pd{my$am=$_[0];my($cq)="$ak{'datadir'}$am->{'datafile'}"; my(@cw)=split(/ /,$am->{$z[108]});unless($am->{$z[189]}){for (0..$#cw){$am->{$z[189]}{$cw[$_]}=$_;}}my($dc)=$_[1];my($cx) =$_[2]||{};my($dd)=$_[3];my(@cr);my(@db);my($de,$df);my$dg; if(ref($am)ne$z[184]){die$z[190]."\n";}if(ref($_[1])ne$z[191] &&$_[1]){die$z[192]."\n";}if(ref($_[2])ne$z[184]&&$_[2]){die $z[193]."\n";}if(!defined&$dc){die$z[194]."\n";}if(!$am->{$z[106]}) {die$z[195]."\n";}unless(-e$cq){return(0);}&cs;open(AB,"<$cq") ||&ct("DB_List : Can't open '$cq'");@cr=;close(AB);&cu; @cr=grep/^\d/,@cr;&dh($am,\@cr,$dd);if($am->{$z[129]}){my($di,$dj); foreach(split(/ /,$am->{$z[129]})){if(s/#//g){$de=$z[196];} else{$de='';}if(s/-//g){$df=$z[197];}else{$df='';}if(!defined $am->{$z[189]}{$_}){die($z[198]."'$_'!\n");}$dj.="$df$am->{'fieldn'}{$_}$de "; }@cr=&dk($z[199],$dj,\@cr);}foreach(@cr){s/[^¡]+$//;undef%$cx; @db=split(/\¡/);for$dg(0..$#cw){$cx->{$cw[$dg]}=$db[$dg];$cx->{$cw[$dg]} =~s/¿([A-F0-9]{2})/pack($z[188],hex($1))/egix;}&$dc($cx);}} sub os{my($am)=$_[0];my($dl)=$_[1];my($dm)=int$_[2]||1;my($dn) =int$_[3];my($dp)=$_[4];my($dq)=$_[5];my($de,$df);my($dr,$ds,$dg); my($cx)={};if(ref($am)ne$z[184]){die$z[200]."\n";}if(ref($_[1]) ne$z[191]&&$_[1]){die$z[201]."\n";}if(!defined&$dl){die$z[202]."\n"; }if(!$am->{$z[106]}){die$z[203]."\n";}my($cq)="$ak{'datadir'}$am->{'datafile'}"; my(@cw)=split(/ /,$am->{$z[108]});unless($am->{$z[189]}){for (0..$#cw){$am->{$z[189]}{$cw[$_]}=$_;}}my($dt,$du,$dv,$dw,$dx) =(0,0,0,0,0);my(@cr);my(@db);unless(-e$cq){return(0,0,0,0,0,0); }&cs;open(AB,"<$cq")||&ct("DB_List : Can't open '$cq'");@cr =;close(AB);&cu;@cr=grep/^\d/,@cr;&dh($am,\@cr,$dp);$dv =scalar@cr;&dh($am,\@cr,$dq);$du=scalar@cr;if($am->{$z[129]}) {my($di,$dj);foreach(split(/ /,$am->{$z[129]})){if(s/#//g){ $de=$z[196];}else{$de='';}if(s/-//g){$df=$z[197];}else{$df=''; }if(!defined$am->{$z[189]}{$_}){die($z[204]."'$_'!\n");}$dj .="$df$am->{'fieldn'}{$_}$de ";}@cr=&dk($z[199],$dj,\@cr);} $ds=($dm*$dn)-($dn-1);$dr=$dm*$dn;if($dr>$#cr){$dr=$#cr+1;} for($ds..$dr){$_=$cr[$_-1];s/[^\¡]+$//;undef%$cx;@db=split(/\¡/); for$dg(0..$#cw){$cx->{$cw[$dg]}=$db[$dg];$cx->{$cw[$dg]}=~s/¿([A-F0-9]{2})/pack($z[188],hex($1))/egix; }&$dl($cx);}$dn||=1;$dt=int($du/$dn);if($du%$dn){$dt++;}if(($dm-1) <1||($dm-1)>$dt){$dw=$dt;}else{$dw=$dm-1;}if(($dm+1)>$dt){$dx =1;}else{$dx=$dm+1;}if(!$dt){$dm=$dw=$dx=0;}return($dt,$du, $dv,$dm,$dw,$dx);}sub pv{my$am=$_[0];if(ref($am)ne$z[184]){ die"DB_ListSave : The first argument must be a HASH reference!\n"; }if(ref($_[1])ne$z[191]&&$_[1]){die"DB_ListSave : The second argument must be a CODE reference!\n"; }if(ref($_[2])eq$z[184]){die"DB_ListSave : Use of an output hash reference is depricated. Argument order has been changed.\n"; }my($cq)="$ak{'datadir'}$am->{'datafile'}";my(@cw)=split(/ /,$am->{$z[108]}); unless($am->{$z[189]}){for(0..$#cw){$am->{$z[189]}{$cw[$_]} =$_;}}my($dc)=$_[1];my($dd)=$_[2];my($dy)=$_[3];my($cx)=$_[4] ||{};my(@cr,$dz,%ea);my(@db,$de,$df,$dg);unless(-e$cq){return(0); }&cs;open(AB,"<$cq")||&ct("DB_List : Can't open '$cq'");@cr =;close(AB);if($cr[1]=~m/#(\d+)/){$dz=$1;}else{foreach(@cr) {/^\d/||next;$ea{(split(/\¡/))[0]}=1;}$dz=(sort{$b<=>$a}keys %ea)[0];}@cr=grep/^\d/,@cr;my$eb=&ec($am,\@cr,$dd);if($dy&& $am->{$z[129]}){my($di,$dj);foreach(split(/ /,$am->{$z[129]})) {if(s/#//g){$de=$z[196];}else{$de='';}if(s/-//g){$df=$z[197]; }else{$df='';}if(!defined$am->{$z[189]}{$_}){die($z[205]."'$_'!\n"); }$dj.="$df$am->{'fieldn'}{$_}$de ";}@cr=&dk($z[199],$dj,\@cr); }foreach(@cr){if(!$eb->{$z[206]}&&!$eb->{(/^(\d+)/)[0]}){next; }s/[^¡]+$//;undef%$cx;@db=split(/\¡/);for$dg(0..$#cw){$cx->{$cw[$dg]} =$db[$dg];$cx->{$cw[$dg]}=~s/¿([A-F0-9]{2})/pack($z[188],hex($1))/egix; }&$dc($cx);if($cx->{num}){$_="$db[$dg]¡";for$dg(1..$#cw){my($ed) =$cx->{$cw[$dg]};$ed=~s/[\x1a\r\n\¡\¿]/sprintf($z[207],ord($&))/egx; $_.="$ed¡";}$_.="\n";}else{undef$_;}}open(AB,">$cq.tmp$$")|| &ct("DB_ListSave : Can't open $cq.tmp$$");print AB"#!$^X\n"; print AB"#$dz\n";print AB$z[208]."\n".$z[209]."\n";foreach(@cr) {/^\d/||next;s/[^¡]+$//;print AB"$_\n"or&ct("DB_ListSave: Can't write to $cq"); }close(AB)||&ct("DB_ListSave : Can't close $cq");rename("$cq.tmp$$",$cq) ||&ct("DB_ListSave : Can't rename $cq");&cu;}sub ek{my$am=$_[0]; if(ref($am)ne$z[184]){die$z[210]."\n";}if(ref($_[1])ne$z[184]) {die$z[211]."\n";}my($cq)="$ak{'datadir'}$am->{'datafile'}"; my(@cw)=split(/ /,$am->{$z[108]});my($ad)=$_[1];my($ee)=int $_[2];my(@cr);my(@db);my(%ea);my($ef,$dg,$dz);&cs;if(-e$cq) {open(AB,"<$cq")||&ct("DB_Add : Can't open '$cq'");@cr=; close(AB);}if($cr[1]=~m/#(\d+)/){$dz=$1;}else{foreach(@cr){ /^\d/||next;$ea{(split(/\¡/))[0]}=1;}$dz=(sort{$b<=>$a}keys %ea)[0];}if($ee&&$ea{$ee}){&cu;return&eg(@_);}elsif($ee){$ef =$ee;}else{$ef=$dz=$dz+1;}$ad{$z[212]}=$ef;open(AB,">$cq.tmp$$") ||&ct("DB_Add : Can't open $cq.tmp$$");print AB qq|#!$^X\n|; print AB qq|#$dz\n|;print AB$z[208]."\n".$z[209]."\n";foreach (@cr){/^\d/||next;s/[^¡]+$//;print AB"$_\n"or die("DB_Add : Can't write to $cq : $!\n"); }my($eh)="$ef¡";for$dg(1..$#cw){my($ed)=$ad->{$cw[$dg]};$ed =~s/[\x1a\r\n\¡\¿]/sprintf($z[207],ord($&))/egx;$eh.="$ed¡"; }print AB"$eh\n"or&ct("DB_Add : Can't write to $cq");close(AB) ||&ct("DB_Add : Can't close $cq");rename("$cq.tmp$$",$cq)|| &ct("DB_Add : Can't rename $cq");&cu;return$ef;}sub mi{my$am =$_[0];if(ref($am)ne$z[184]){die$z[213]."\n";}if(ref($_[1]) ne$z[184]){die$z[214]."\n";}if(!$_[2]){die$z[215]."\n";}my($cq) ="$ak{'datadir'}$am->{'datafile'}";my(@cw)=split(/ /,$am->{$z[108]}); my($cx)=$_[1];my($ea)=int$_[2];my(@cr);my(@db);my($dg);unless (-e$cq){return(0);}if(-e$cq){&cs;open(AB,"<$cq")||&ct("DB_Load : Can't open '$cq'"); @cr=;close(AB);&cu;}foreach(@cr){/^$ea\¡/||next;s/[^¡]+$//; undef%$cx;@db=split(/\¡/);for$dg(0..$#cw){$cx->{$cw[$dg]}=$db[$dg]; $cx->{$cw[$dg]}=~s/¿([A-F0-9]{2})/pack($z[188],hex($1))/egix; }return 1;}return 0;}sub oh{my$am=$_[0];if(ref($am)ne$z[184]) {die$z[216]."\n";}if(!$_[1]){die$z[217]."\n";}my($cq)="$ak{'datadir'}$am->{'datafile'}"; my(@cw)=split(/ /,$am->{$z[108]});my($ea)=int$_[1];my(%dr); my($ei)=0;for(1..$#_){$dr{$_[$_]}++;}my(@cr,$dz,%ea);unless (-e$cq){return(0);}&cs;if(-e$cq){open(AB,"<$cq")||&ct("DB_Del : Can't open '$cq'"); @cr=;close(AB);}if($cr[1]=~m/#(\d+)/){$dz=$1;}else{foreach (@cr){/^\d/||next;$ea{(split(/\¡/))[0]}=1;}$dz=(sort{$b<=>$a }keys%ea)[0];}open(AB,">$cq.tmp$$")||&ct("DB_Del : Can't open $cq.tmp$$"); print AB qq|#!$^X\n|;print AB qq|#$dz\n|;print AB$z[208]."\n".$z[209]."\n"; foreach(@cr){/^(\d+)\¡/||next;if($dr{$1}){$ei++;next;}s/[^¡]+$//; print AB"$_\n"or&ct("DB_Del : Can't write to $cq");}close(AB) ||&ct("DB_Del : Can't close $cq");rename("$cq.tmp$$",$cq)|| &ct("DB_Del : Can't rename $cq");&cu;return$ei;}sub eg{my$am =$_[0];if(ref($am)ne$z[184]){die$z[218]."\n";}if(ref($_[1]) ne$z[184]){die$z[219]."\n";}if(!$_[2]){die$z[220]."\n";}my($cq) ="$ak{'datadir'}$am->{'datafile'}";my(@cw)=split(/ /,$am->{$z[108]}); my($ad)=$_[1];my($ea)=int$_[2];my($ej)=0;my(@cr);my(@db);my($dg,$cx,$dz,%ea); if(!-e$cq){return&ek(@_);}&cs;open(AB,"<$cq")||&ct("DB_Save : Can't open '$cq'"); @cr=;close(AB);if($cr[1]=~m/#(\d+)/){$dz=$1;}else{foreach (@cr){/^\d/||next;$ea{(split(/\¡/))[0]}=1;}$dz=(sort{$b<=>$a }keys%ea)[0];}open(AB,">$cq.tmp$$")||&ct("DB_Save : Can't open $cq.tmp$$"); print AB qq|#!$^X\n|;print AB qq|#$dz\n|;print AB$z[208]."\n".$z[209]."\n"; foreach(@cr){/^\d/||next;if(/^$ea\¡/){my($eh)="$ea¡";for$dg (1..$#cw){my($ed)=$ad->{$cw[$dg]};$ed=~s/[\x1a\r\n\¡\¿]/sprintf($z[207],ord($&))/egx; $eh.="$ed¡";}print AB"$eh\n"or&ct("DB_Save : Can't write to $cq"); $ej++;next;}s/[^¡]+$//;print AB$_,"\n"or&ct("DB_Save : Can't write to $cq"); }close(AB)||&ct("DB_Save : Can't close $cq");rename("$cq.tmp$$",$cq) ||&ct("DB_Save : Can't rename $cq");&cu;unless($ej){return&ek(@_); }}sub cs{my$el=$ci{$z[221]}||5;&em($z[222],$el);}sub cu{my$el =$ci{$z[221]}||5;&en($el);}sub ez{my($am,$eo,$ep)=@_;my(@eq, @er);unless($am->{$z[189]}){my(@cw)=split(/ /,$am->{$z[108]}); for(0..$#cw){$am->{$z[189]}{$cw[$_]}=$_;}}foreach(@{$ep}){my ($es,$et,$eu)=@{$_};next if$eu eq'';if(ref($eu)eq$z[223]){foreach (@$eu){s/[\x1a\r\n\¡\¿]/sprintf($z[207],ord($&))/egx;$_=quotemeta($_); }}else{$eu=~s/[\x1a\r\n\¡\¿]/sprintf($z[207],ord($&))/egx;$eu =quotemeta($eu);}$et=uc$et;my$ev=$am->{$z[189]}{$es};unless (defined$ev){&ck($z[224].$es.$z[225].&ew($ep));}if($et eq$z[226]) {push@eq,"/$eu/i";push@er,"\$f[$ev] =~ /$eu/i";}elsif($et eq $z[227]){push@er,"\$f[$ev] ne /$eu/i";}elsif($et eq$z[228]) {push@eq,"/¡$eu¡/i";push@er,"\$f[$ev] eq q/$eu/";}elsif($et eq$z[229]||$et eq$z[230]||$et eq$z[231]||$et eq$z[232]||$et eq$z[233]){push@er,"\$f[$ev] $et $eu";}elsif($et eq$z[234]) {my($ex,$ey)=@{$eu};push@er,"\$f[$ev] >= $ex && \$f[$ev] <= $ey"; }elsif($et eq$z[235]){my($ex,$ey)=@{$eu};push@er,"!(\$f[$ev] >= $ex && \$f[$ev] <= $ey)"; }elsif($et eq$z[236]){push@er,$z[237].join($z[238],map{"\$f[$ev] eq q/$_/" }@{$eu}).$z[239];}elsif($et eq$z[240]){push@er,$z[241].join($z[238], map{"\$f[$ev] eq q/$_/"}@{$eu}).$z[239];}else{&ck($z[242].$et .$z[225].&ew($ep));}}unshift(@er,$z[243])if@er;return(\@eq, \@er);}sub dh{my($am,$rec_nopack,$ep)=@_;my($eq,$er)=&ez($am, $rec_nopack,$ep);return unless(@$eq||@$er);my$fa=$z[244].join($z[245], @$eq,@$er).$z[246];&fb($fa);eval$fa;&fb($@);}sub ec{my($am, $rec_nopack,$ep)=@_;my($eq,$er)=&ez($am,$rec_nopack,$ep);return ({$z[206]=>1})unless(@$eq||@$er);my%match_nopack;my$fa=$z[247] .join($z[245],@$er).$z[248];&fb($fa);eval$fa;&fb($@);return(\%match_nopack); }sub ct{my($fc)=(@_);my($fd)=$!;if($fd eq''){$fd="Unknown error. Maybe disk quota exceeded?"; }&ck($z[249],"$fc : $fd\n");}1;;sub ud{local(*AB);my($fe)=$_[0]; my(@ff,$fg,%fh);$fg=\%fh;if(!$_[0]){die"INI_Load : No ini file was specified!\n"; }if(!-e$_[0]){die"INI_Load : The ini file '$_[0]' could not be found!\n"; }open(AB,"<$fe")||die("INI_Load : Could open ini file! $!\n"); @ff=;close(AB);foreach(@ff){/^\s*#/m&&next;if(/^\s*\[/m) {$fg=\%fh;foreach(/\[(.+?)\]/g){$fg=\%{$fg->{$_}};}next;}my $fi=index($_,$z[250]);if($fi>0){my$fj=substr($_,0,$fi);my$eu =substr($_,$fi+1);foreach($fj,$eu){s/^\s+//;s/\s+$//;}$fj=~ /[^a-zA-Z\/0-9_\-]/&&die("INI_Load : Invalid key '$fj' in ini file '$fe'!\n"); defined$fg->{$fj}&&die("INI_Load : Key '$fj' defined twice in ini file '$fe'!\n"); $fg->{$fj}=$eu;}elsif($fi==-1){my$fj=$_;for($fj){s/^\s+//;s/\s+$//; }if(!length$fj){next;}defined$fg->{$fj}&&die("INI_Load : Key '$fj' defined twice in ini file '$fe'!\n"); $fg->{$fj}=1;}}return%fh;}sub ew{my$fg=$_[0];my$fk=$_[1];my $fl=$_[2]||$z[251];my$cx;if(ref($fg)eq$z[184]){foreach(sort keys%{$fg}){if(ref($fg->{$_})){$cx.=&ew($fg->{$_},"$fk\{$_}"); }else{$cx.="\$$fl$fk"."{$_} = $fg->{$_}\n";}}}elsif(ref($fg) eq$z[223]){for(0..$#{$fg}){if(ref($fg->[$_])){$cx.=&ew($fg->[$_],"$fk\[$_]"); }else{$cx.="\$$fl$fk"."[$_] = $fg->[$_]\n";}}}return$cx;}sub oi{my($fm,$fn)=@_;my(%fo);local(*AC);if(!-e$fm){$!=$z[252].$fm.$z[253]; return(0);}if($fn&&$fn ne$z[254]&&$fn ne$z[255]){die($z[256]."$fn\n"); }opendir(AC,$fm);foreach(grep(!/^\.+$/,readdir(AC))){if($fn eq$z[254]){$fo{$_}++if-f"$fm/$_";}elsif($fn eq$z[255]){$fo{$_}++ if-d"$fm/$_";}else{$fo{$_}++;}}closedir(AC);return%fo;}sub fb{my$fp;my$dg;while(my($fe,$eh,$fq)=(caller($dg++))[1,2,3]) {$fe=~s/^.*[\/\\]//;$fq=~s/^main:://;unless($fq=~s/__ANON__/(anonymous)/) {$fq=$z[257].$fq;}$fp.=qq!$fe ($eh)¡called $fq¡¡!;}$fp=~s/\\/\\\\/g; $fp=~s/'/\\'/g;$fp=~s/¡/\\n/g;$ak{$z[258]}.=qq|>|; $ak{$z[258]}.=join("\n
",map{&fr($_)}@_)."
\n
"; }sub aaj{my($fs,$ft)=@_;local(*AD);local(*AE);open(AD,"<$fs") ||die($z[259]."$fs : $!\n");open(AE,">$ft")||die($z[260]."$ft : $!\n"); binmode(AD);binmode(AE);print AE;close(AD);close(AE);}sub uj{my($fu)=$_[0];my($fj,$eu,$fv,@fw,$fx,%fh);my($fe,$fm,$fy); my($fz);binmode(STDIN);if($fu&&($ENV{$z[261]}||length$ENV{$z[262]}) >$fu){die($z[263]."$fu bytes\n");}($fz)=$ENV{$z[264]}=~/boundary=(?:"?)(\S+?)(?:"?)$/; if($ENV{$z[265]}eq$z[266]&&$ENV{$z[264]}=~m|^multipart/form-data|) {my$fx;read(STDIN,$fx,$ENV{$z[261]});foreach(split(/\n/,$fx)) {if(/^--$fz--/){$fx.="--$fz";last;}else{$fx.=$_;}}@fw=split(/--$fz/,$fx); foreach$fv(@fw){unless($fv=~/^(\r\n|\n)Content-Disposition/) {next;}($fj,$eu)=$fv=~/^(?:\r\n|\n)(.*?)(?:\r\n|\n){2}(.*?)(?:\r\n|\n)$/s; ($fm)=$fj=~/filename="([^"]+)"/;($fj)=$fj=~/name="([^"]+)"/; ($fe)=$fm=~/([^\/\\]+)$/;($fy)=$fm=~/\.(\w+)$/;if(!$fm){$fj =~s/\r\n/\n/g;$eu=~s/\r\n/\n/g;$fj=~s/\x00//g;$eu=~s/\x00//g; }$fh{$fj}=$eu;$fh{$fj.$z[267]}=$fm;$fh{$fj.$z[268]}=$fe;$fh{$fj.$z[269]} =$fy;}}else{if($ENV{$z[265]}eq$z[266]){read(STDIN,$fx,$ENV{$z[261]}); }elsif($ENV{$z[265]}eq$z[270]){$fx=$ENV{$z[262]};}@fw=split(/&/, $fx);foreach$fv(@fw){($fj,$eu)=split(/=/,$fv);$fj=~tr/+/ /; $eu=~tr/+/ /;$fj=~s/%([A-F0-9]{2})/pack($z[188],hex($1))/egi; $eu=~s/%([A-F0-9]{2})/pack($z[188],hex($1))/egi;$fj=~s/\r\n/\n/g; $eu=~s/\r\n/\n/g;$fj=~s/\x00//g;$eu=~s/\x00//g;if($fj=~/_multi$/) {push@{$fh{$fj}},$eu;}else{$fh{$fj}=$eu;}}}foreach(keys%fh) {if(/^(.*)(\.x|\.y)$/){$fh{$1}=$z[271];}}return%fh;}sub pi{ my($ga)=$_[0];my($gb,$gc)=split(/@/,$ga);if($ga eq''){return 0;}if($ga=~/[^A-Za-z0-9-_\.\@]/){return 0;}if($gb!~/^([\w\-]+[\w\-\.])*[\w\-]+$/) {return 0;}if($gc!~/^([\w\-]+[\w\-\.])*[\w\-]+\.[A-Za-z]{2,8}$/) {return 0;}return 1;}sub aak{my($gd,$ge)=@_;unless($gd eq$z[272] ||$gd eq$z[273]||$gd eq$z[274]||$gd eq$z[275]){return undef; }$ge=~s/[^\d]//g;my@gf=split//,$ge;unless(($gd eq$z[272]&&$gf[0] ==4)||($gd eq$z[273]&&$gf[0]==5)||($gd eq$z[274]&&$gf[0]==3) ||($gd eq$z[275]&&$gf[0]==6)){return undef;}unless(($gd eq$z[272] &&($#gf==12||$#gf==15))||($gd eq$z[273]&&$#gf==15)||($gd eq $z[274]&&$#gf==14)||($gd eq$z[275]&&$#gf==15)){return undef; }my$gg;for(my$fi=($#gf+1)% 2;$fi<=$#gf;$fi+=2){if($gf[$fi]< 5){$gf[$fi]*=2;}else{$gf[$fi]=($gf[$fi]* 2)-9}}foreach(@gf) {$gg+=$_;}unless($gg% 10==0){return undef;}return 1;}sub ag {local(*AB);my($fe,%fh,$gh,$gi);%fh=%{$_[1]}if$_[1];my%gj;%gj =($z[276]=>0,$z[277]=>0,$z[278]=>0,$z[279]=>0);foreach(split(/ /,$_[2])) {if(undef$gj{$_}){die($z[280]."'$_'\n");}$gj{$_}=1;}if(!$_[0]) {die$z[281]."\n";}if(ref($_[1])ne$z[184]){die$z[282]."\n";} if((!$gj{$z[277]}||!$ak{$z[283]}{$z[277]}{$_[0]})){if(-e"$_[0]") {$fe=$_[0];}else{foreach(grep/^templatedir/,sort keys%ak){if (-e"$ak{$_}/$_[0]"){$fe="$ak{$_}/$_[0]";last;}}if(!$fe){die $z[284]."'$_[0]'".$z[285]."\n";}}}if($gj{$z[277]}&&$ak{$z[283]}{$z[277]}{$_[0]}) {$gh=$ak{$z[283]}{$z[277]}{$_[0]};}else{open(AB,"<$fe")||die $z[286]."$fe! $!\n";binmode(AB)if($fe=~/gif$/i||$fe=~/jpg$/i); read(AB,$gh,-s AB);close(AB);}if($gj{$z[278]}){return$gh;}if ($gj{$z[279]}){$ak{$z[287]}||=$ENV{$z[288]};$ak{$z[287]}||die("Template: webroot isn't defined!
\n"); while($gh=~//g){my$gk=$1;if(($gk =~m!^/!)||(!$_[3])){$gk="$ak{'webroot'}/$gk";}else{my@gl=split $z[289],$fe;my$gl=join$z[289],@gl[0..$#gl-1];$gk="$gl/$gk"; }my$gm=&ag($gk,$_[1],$_[2],$z[290]);$gh=~s//$gm/; }}if(!$gj{$z[277]}||!$ak{$z[283]}{$z[277]}{$_[0]}){foreach$gi ($gh=~m//g){$ak{$z[283]}{$z[291]}{$1}=$2 if($gh=~m/(?:\r\n|\n)?(.*?)/is); }$gh=~s/(?:\r\n|\n)?(.*?)//gis; if($gj{$z[277]}){$ak{$z[283]}{$z[277]}{$_[0]}=$gh;}}$gh=~s//$1/gi; $gh=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$eu=defined$ch{$1} ?$ch{$1}:$fh{$1};if($2 eq$z[292]){$eu=&gn($eu);}if($2 eq$z[293]) {$eu=&go($eu);}if($2 eq$z[294]){$eu=&go($eu);$eu=~s/ / /g; }if($2 eq$z[295]){$eu=&gp($eu);}$eu;]ge;return$gh;}sub ah{if (!$_[0]){die$z[296]."\n";}if(!defined$ak{$z[283]}{$z[291]}{$_[0]}) {die$z[297]."'$_[0]'".$z[298]."\n";}if(ref($_[1])ne"HASH"){ die$z[299]."\n";}local(*AB);my(%fh);%fh=%{$_[1]}if$_[1];my($gh) =$ak{$z[283]}{$z[291]}{$_[0]};$gh=~s/(?:\r\n|\n)?(.*?)//gs; $gh=~s//$1/gi;$gh=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][ my$eu=defined$ch{$1}?$ch{$1}:$fh{$1};if($2 eq$z[292]){$eu=&gn($eu); }if($2 eq$z[293]){$eu=&go($eu);}if($2 eq$z[294]){$eu=&go($eu); $eu=~s/ / /g;}if($2 eq$z[295]){$eu=&gp($eu);}$eu;]ge;return $gh;}sub aal{my($ad)=$_[0];my(@gq)=(($z[274]..$z[300],$z[301]..$z[302],0..9),$z[303],$z[289]); my($cx)=unpack($z[304],$ad);$cx=~s/(\d{6}|\d+$)/$gq[ord(pack$z[304],"00$1")]/ge; while(length($cx)%4){$cx.=$z[250];}return$cx;}sub aam{my($ad) =$_[0];my(%gq);my($cx);my$dg;for(($z[274]..$z[300],$z[301]..$z[302],0..9),$z[303],$z[289]){ $gq{$_}=$dg++}$ad=$_[0]||return$z[305];$ad=~s/[^A-Za-z0-9+\/]//g; $ad=~s/[A-Za-z0-9+\/]/unpack'B*',chr($gq{$&})/ge;$ad=~s/\d\d(\d{6})/$1/g; $ad=~s/\d{8}/$cx.=pack($z[304],$&)/ge;return$cx;}sub gn{my($gr) =$_[0];$gr=~s/([^A-Za-z0-9\*\.\@\_\-])/uc sprintf($z[306],ord($1))/egx; $gr=~tr/ /+/;return$gr;}sub hj{my($gr)=$_[0];$gr=~tr/+/ /;$gr =~s/%([A-F0-9]{2})/pack($z[188],hex($1))/egi;return$gr;}sub mm{my($gs);my($fj,$eu,$gt,$fm,$gu,$gv)=@_;my($gw);if($fj eq ''){die($z[307]."\n");}if($gt&&$gt ne int($gt)){die($z[308]."\n"); }$cj{$fj}=$eu;if($gt){my($gx,$gy,$gz,$ha,$hb,$hc,$hd,$he)=gmtime($gt); ($gx,$gy,$gz,$ha)=map{$_<10?$z[309].$_:$_}($gx,$gy,$gz,$ha); $gw=join('',(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[$hd],", $ha-",(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$hb],$z[197],1900+$hc, " $hf$hg$gx GMT");}if($fj){$fj=&gn($fj);}if($eu){$eu=&gn($eu); }if($gt){$gs.=$z[310]."$gw; ";}if($fm){$gs.=$z[311]."$fm; "; }if($gu){$gs.=$z[312]."$gu; ";}if($gv){$gs.=$z[313];}print$z [314]."$fj=$eu; $gs\n";}sub ug{my($hh,$fj,$eu,%hi);foreach$hh (split(/; /,$ENV{$z[315]})){($fj,$eu)=split(/=/,$hh);foreach($fj,$eu) {$_=&hj($_);}$hi{$fj}=$eu;}return%hi;}sub ob{my$hk=$_[0]||die("DateString: The first parameter must be a date or time format string\n"); $hk=~/\%/||die("DateString: The first parameter must contain a date format marker '%'\n"); my$hl=$_[1];my($hc,$hb,$ha,$hm,$gy,$gx,$hd,$he);my@hn=(0,0,1,0,0,0); my$ho=$_[-1]=~/^GMT$/i;pop(@_)if$ho;if(scalar(@_)>=3){die("DateString: Too many arguments\n") if scalar(@_)>7;my$hp;foreach$hp(1..scalar(@_)-1){$hn[$hp-1] =$_[$hp];}($hc,$hb,$ha,$hm,$gy,$gx)=@hn;if($ha>28){($hc,$hb, $ha)=&hq($hc,$hb,$ha);}$hl=$ho?&hr($gx,$gy,$hm,$ha,$hb,$hc) :&hs($gx,$gy,$hm,$ha,$hb,$hc);}else{}($gx,$gy,$hm,$ha,$hb,$hc, $hd,$he)=($ho?gmtime($hl):localtime($hl));my$ht;if(exists($ak{DateString}{rhNames})) {$ht=$ak{DateString}{rhNames};}else{$ht={$z[316]=>exists($ci{$z[317]}{ampm}) ?[split(/,/,$ci{$z[317]}{ampm})]:[qw(AM PM)],$z[318]=>exists($ci{$z[317]}{ordinals}) ?[split(/,/,$ci{$z[317]}{ordinals})]:[$z[319],$z[320],$z[321], $z[322],$z[323],$z[324],$z[325],$z[326],$z[327],$z[328],$z[329], $z[330],$z[331],$z[332],$z[333],$z[334],$z[335],$z[336],$z[337], $z[338],$z[339],$z[340],$z[341],$z[342],$z[343],$z[344],$z[345], $z[346],$z[347],$z[348],$z[349],$z[350]],$z[351]=>exists($ci{$z[317]}{week_full}) ?[split(/,/,$ci{$z[317]}{week_full})]:[qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)], $z[352]=>exists($ci{$z[317]}{week_abbr})?[split(/,/,$ci{$z[317]}{week_abbr})] :[qw(Sun Mon Tue Wed Thu Fri Sat)],$z[353]=>exists($ci{$z[317]}{month_full}) ?[split(/,/,$ci{$z[317]}{month_full})]:[qw(January February March April May June July August September October November December)], $z[354]=>exists($ci{$z[317]}{month_abbr})?[split(/,/,$ci{$z[317]}{month_abbr})] :[qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)],};$ak{DateString}{rhNames} =$ht;}my($hu,$hv)=(0,1);my$hw={$z[355]=>$z[355],$z[301]=>$ht->{week_abbr}[$hd], $z[274]=>$ht->{week_full}[$hd],$z[356]=>$ht->{month_abbr}[$hb], $z[357]=>$ht->{month_full}[$hb],$z[358]=>$z[359],$z[188]=>$z[360], $z[361]=>sprintf($z[362],$ha),$z[275]=>$z[363],$z[364]=>sprintf($z[365], $ha),$z[366]=>$ht->{month_abbr}[$hb],$z[367]=>sprintf($z[362], $hm),$z[368]=>sprintf($z[362],$hm% 12||12),$z[369]=>sprintf($z[370],$he +1),$z[371]=>sprintf($z[365],$hm),$z[372]=>sprintf($z[365], $hm% 12||12),$z[373]=>sprintf($z[362],$hb+1),$z[273]=>sprintf($z[362], $gy),$z[196]=>"\n",$z[374]=>$ht->{ordinals}[$ha],$z[375]=>$ht->{ampm}[$hm >=12?1:0],$z[376]=>lc($ht->{ampm}[$hm>=12?1:0]),$z[377]=>int($hb /3)+1,$z[378]=>$z[379],$z[380]=>$z[381],$z[382]=>$hl,$z[383] =>sprintf($z[362],$gx),$z[384]=>"\t",$z[385]=>$z[386],$z[387] =>&hx($hu,$hd,$he),$z[388]=>$hd,$z[389]=>&hx($hv,$hd,$he),$z[390] =>$z[363],$z[391]=>$z[386],$z[392]=>sprintf($z[362],$hc% 100), $z[393]=>sprintf($z[394],$hc+1900),$z[300]=>'',$z[302]=>'', };$hk=&hy($hw,$hk);return$hk;}sub hy{my($hw,$hk)=@_;$hk=~s/%(O?[%a-zA-Z])/&hz($hw, $1)/sgeox;return$hk;}sub hz{my$ia=$_[1];return(exists($_[0]->{$ia})) ?($_[0]->{$ia}=~/\%/&&$ia ne$z[355]?&hy($_[0],$_[0]->{$ia}) :$_[0]->{$ia}):"\%$ia";}sub hx{my($ib,$hd,$he)=@_;$hd=($hd+ 7-$ib)% 7;return int(($he-$hd+13)/7-1);}sub hq{my($hc,$hb,$ic) =@_;return@_ if$ic<=28;my$id;if($hb==1){if(($hc% 4==0)&&(!($hc % 100==0)||($hc% 400==0))){$id=29;}else{$id=28;}}elsif($hb== 3||$hb==5||$hb==8||$hb==10){$id=30;}else{$id=31;}return($hc, $hb,$ic<$id?$ic:$id);}sub aan{my$ie=$_[0];my$ig=$_[1]||die("DateString: The second argument must time()\n"); my$AF=$_[2];if($ig ne int($ig)){die($z[395]."\n");}my($gx,$gy,$gz,$ic,$hb,$hc,$hd); if($AF){($gx,$gy,$gz,$ic,$hb,$hc,$hd)=gmtime($ig);}else{($gx,$gy,$gz,$ic,$hb,$hc,$hd) =localtime($ig);}if($ig=~tr/://){($hc,$hb,$ic,$gz,$gy,$gx,$hd) =split(/:/,$ig);$hc-=1900;$hb-=1;foreach($hc,$hb,$ic,$gz,$gy,$gx,$hd) {$_||=0;}}my(%hd,%ih,%hb,%ii);my@hb=($z[396],$z[397],$z[398],$z[399],$z[400],$z[401],$z[402],$z[403],$z[404],$z[405],$z[406],$z[407]); my@ii=($z[408],$z[409],$z[410],$z[411],$z[400],$z[412],$z[413],$z[414],$z[415],$z[416],$z[417],$z[418]); my@hd=($z[419],$z[420],$z[421],$z[422],$z[423],$z[424],$z[425]); my@ih=($z[426],$z[427],$z[428],$z[429],$z[430],$z[431],$z[432]); foreach(@hd){$hd{lc$_}++;}foreach(@ih){$ih{lc$_}++;}foreach (@hb){$hb{lc$_}++;}foreach(@ii){$ii{lc$_}++;}$ie=~s/\b[A-Za-z]{3,9}\b/ if($hd{lc$&}){if(uc($&)eq$&){uc$hd[$hd];}elsif(lc($&)eq$&){ lc$hd[$hd];}else{ucfirst lc$hd[$hd];}}elsif($ih{lc$&}){if(uc($&) eq$&){uc$ih[$hd];}elsif(lc($&)eq$&){lc$ih[$hd];}else{ucfirst lc$ih[$hd];}}elsif($hb{lc$&}){if(uc($&)eq$&){uc$hb[$hb];}elsif (lc($&)eq$&){lc$hb[$hb];}else{ucfirst lc$hb[$hb];}}elsif($ii{lc $&}){if(uc($&)eq$&){uc$ii[$hb];}elsif(lc($&)eq$&){lc$ii[$hb]; }else{ucfirst lc$ii[$hb];}}else{$&;}/ge;$ie=~s/\d{1,4}\b/if (length$&==4){$hc+1900;}elsif(length$&<=2){if(substr($&,0,1) eq 0){sprintf($z[362],$ic);}else{$ic;}}else{$&;}/ge;$ie=~s/(\d{1,2})(st|nd|rd|th)/ if($ic==1||$ic==21||$ic==31){$ic.$z[433];}elsif($ic==2||$ic ==22){$ic.$z[434];}elsif($ic==3||$ic==23){$ic.$z[435];}else {$ic.$z[436];}/gei;$ie=~s/YYYY/sprintf($z[394],$hc+1900)/gei; $ie=~s/YY/sprintf($z[362],$hc%100)/gei;$ie=~s/MO\b/sprintf($z[362],$hb+1)/gei; $ie=~s/DD/sprintf($z[362],$ic)/gei;$ie=~s/SS/sprintf($z[362],$gx)/gei; $ie=~s/MM/sprintf($z[362],$gy)/gei;$ie=~s/HH/sprintf($z[362],$gz)/gei; return$ie;}sub dk{my($ij,$dj,$arrayref_nopack)=@_;my(@f_nopack,$di,$ik, $il,$im,$dg);my($de,$df);$dg=0;foreach(split(/ /,$dj)){if(s/\#//g) {$de=1;}elsif(s/n//g){$de=1;}else{$de=0;}if(s/\-//g){$df=$z[437]; }elsif(s/\+//g){$df='';}else{$df='';}s/[^0-9]//gs;push(@f_nopack,$_); if($de){$di+=15;$il.=$z[438];$im.=qq|$df sprintf('%015s',int(substr(\$str[$dg]*100,0,15))),|; }else{$di+=50;$il.=$z[439];$im.="$df substr(\$str[$dg],0,50),"; }$dg++;}$ik.=qq|return map { substr(\$_,$di) } sort map {\n|; $ik.=qq| my \@str = (split(/\\$ij/,lc \$_))[\@f_nopack];\n|; $ik.=qq| sprintf("$il\%s" ,$im\$_);\n|;$ik.=qq| } \@\$arrayref_nopack;\n|; eval$ik;}sub gp{my$in=shift;$in=~s/\\/\\\\/g;$in=~s/'/\\'/g; $in=~s/\n/\\n/g;$in=~s/\r/\\r/g;$in=~s/\000//g;$in=~s/-->/--'+'>/g; $in=~s!!!g;return$in;}sub fr{my$io=shift; $io=~s/&/&/g;$io=~s/"/"/g;$io=~s//>/g; return$io;}sub go{my$io=shift;$io=~s/&([^\w#]|$)/&$1/g; $io=~s/"/"/g;$io=~s//>/g;return$io; }sub qu{my$io=shift;$io=~s//>/g;return$io; }sub aao{my$ip=shift;my%iq=map{$_,1}@_;return join($z[257], map{$iq{$_}?():&gn($_).$z[250].&gn($ip->{$_})}keys%{$ip});} sub aap{my$ip=shift;my%iq=map{$_,1}@_;return join("\n",map{ $iq{$_}?():$z[440].&fr($_).$z[441].&fr($ip->{$_}).$z[442]}keys %{$ip});}sub op{$_=$_[0];/\.gif$/i&&return(&ir($_[0]));(/\.jpeg$/i ||/\.jpg$/i)&&return(&is($_[0]));/\.png$/i&&return(&it($_[0])); undef;}sub it{my($iu)=@_;my($iv);open(PNG,$iu)||return(undef, undef,"PNG - Couldn't Open $iu");binmode(PNG);seek(PNG,12,0); read(PNG,$iv,4);if($iv ne"IHDR"){close PNG;return(undef,undef, "PNG - Missing Image Header - $iv");}read(PNG,$iv,8);close PNG;return unpack("NN",$iv);}sub is{my($iu)=@_;my($iv,$iw,$ix, $iy,$iz);open(JPEG,$iu)||return(undef,undef,"JPEG - Couldn't Open $iu"); binmode(JPEG);read(JPEG,$iv,2);while(1){read(JPEG,$iw,4);($ix, $iy,$iz)=unpack("a a n",$iw);if($ix ne"\xFF"){close JPEG;return(undef, undef,"JPEG - Marker not Found");}if((ord($iy)>=0xC0)&&(ord($iy) <=0xC3)){read(JPEG,$iv,5);close(JPEG);my($ja,$jb)=unpack("xnn", $iv);return($jb,$ja);}else{read(JPEG,$iv,$iz-2);}}}sub jj{my ($jc,$jd)=@_;my($je);read($jc,$je,$jd);while(1){if(eof($jc)) {close AG;return(undef);}read($jc,$je,1);last if ord($je)== 0;read($jc,$je,ord($je));}1;}sub ir{my($iu)=@_;my($iv,$fn,$jf, $jg,$jb,$jh,$ja,$ji);open(AG,$iu)||return(undef,undef,"GIF - Couldn't Open $iu"); binmode(AG);read(AG,$fn,6);read(AG,$iv,7);if(length($iv)!=7) {close AG;return(undef,undef,"GIF - Corrupted Header");}($jb) =unpack("x4 C",$iv);if($jb&0x80){$jf=3*(2**(($jb&0x07)+1)); read(AG,$jg,$jf);if(!$jg){close AG;return(undef,undef,"GIF - Corrupted Colour Map"); }}while(1){if(eof(AG)){close AG;return(undef,undef,"GIF - EOF at BlockStart"); }read(AG,$iv,1);($jb)=unpack("C",$iv);if($jb==0x2c){read(AG, $iv,8);if(length($iv)!=8){close AG;return(undef,undef,"GIF - Missing Image Header"); }($jb,$jh,$ja,$ji)=unpack("x4 C4",$iv);close(AG);return($jb +$jh* 256,$ja+$ji* 256);}if($jb==0x21){read(AG,$iv,1);($jb) =unpack("C",$iv);if($jb==0xF9){read(AG,$iv,6);}elsif($jb==0xFE) {&jj(\*AG,0)||return(undef,undef,"GIF - Bad Block - skip=0"); }elsif($jb==0x01){&jj(\*AG,13)||return(undef,undef,"GIF - Bad Block - skip=13"); }elsif($jb==0xFF){&jj(\*AG,12)||return(undef,undef,"GIF - Bad Block - skip=12"); }else{close AG;return(undef,undef,"GIF - Unknown Block Extension"); }}else{close AG;return(undef,undef,"GIF - Unknown Block Type"); }}}sub aaq{return($_[0]=~/(.+)/s)[0]||$_[0];}sub aar{my$jk; foreach(split/\n/,shift){s!\\!\\\\!g;s!\"!\\\"!g;s!$jr){$jp=1;}push(@{$jo[$jp]},$_);}if(defined $jn){foreach(0..$#jo){while(scalar@{$jo[$_]}<$jm){push(@{$jo[$_]}, $jn);}}}shift@jo;return@jo;}sub ow{my($js,%jt,$AH);$js=$_[0]; %jt=%{$_[1]};$AH="\x0D\x0A";local(*AI);if(!defined&ju){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_parseheader'\n"); }if(!defined&jv){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_debug'\n"); }if(!defined&jw){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_readline'\n"); }if(!defined&jx){die("SMTP_sendmail: Couldn't find required subroutine 'SMTP_pop3auth'\n"); }if(!defined&jy){die("SMTP_sendmail: Couldn't find required subroutine 'FH_readline'\n"); }if(!defined&jz){die("SMTP_sendmail: Couldn't find required subroutine 'FH_can_read'\n"); }foreach(keys%{$ak{$z[443]}}){defined$jt{$_}&&next;$jt{$_}= $ak{$z[443]}{$_};}my($gc,$ka,$kb,$kc,$fb);$gc=$jt{$z[444]}; $ka=$jt{$z[445]}||25;$kb=$jt{$z[446]}||$z[447];$kc=$jt{$z[448]} ||30;$fb=$jt{$z[449]}||0;$kc+=time()if$kc<10**8&&$kc>0;if($gc =~s/:(\d+)//){$ka=$1;}if(!$gc){$ak{$z[450]}="No SMTP host specified.\n"; return 0;}if(!$ka){$ak{$z[450]}="No SMTP port specified.\n"; return 0;}my($kd,@ke)=&ju($js);$js=~tr/\r//d;$js=~s/\n/\r\n/gs; $js=~s/^\s*bcc\s*:.*\n//mgi;if($jt{$z[451]}){&jx(\%jt)||return 0;}my($kf)=gethostbyname($gc)||do{$ak{$z[450]}="Could not connect to SMTP server. Unknown host $gc\n"; return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$ak{$z[450]} ="Could not connect to SMTP server. No Socket: $!\n";return 0;};connect(AI,pack"SnA4x8",PF_INET,$ka,$kf)||do{if($!eq"Unknown error") {$ak{$z[450]}="Could not connect to SMTP server. SMTP server does not exist or is not responding.\n"; return 0;}else{$ak{$z[450]}="Could not connect to SMTP server. Connect failed: $!\n"; return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$kg =&jw(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for SMTP server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"220"){$ak{$z[450]} ="An unknown error occured. Server response: $kg\n";return 0;}print AI"HELO $kb",$AH;if($fb){&jv("HELO $kb",$AH);}$kg= &jw(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for SMTP server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"250"){$ak{$z[450]} ="An unknown error occured. Server response: $kg\n";return 0;}print AI"MAIL FROM:<$kd>",$AH;if($fb){&jv("MAIL FROM:<$kd>", $AH);}$kg=&jw(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for SMTP server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"250"){$ak{$z[450]} ="An unknown error occured. Server response: $kg\n";return 0;}my$ke;foreach$ke(@ke){print AI"RCPT TO:<$ke>",$AH;if($fb) {&jv("RCPT TO:<$ke>",$AH);}$kg=&jw(\*AI,$kc)||do{$ak{$z[450]} ="Timed out waiting for SMTP server to respond.\n";return 0; };if($fb){&jv($kg);}if(substr($kg,0,2)eq"55"){$ak{$z[450]}= "The server won't accept mail for '$ke'. Server response: $kg\n"; return 0;}if(substr($kg,0,2)ne"25"){$ak{$z[450]}="An unknown error occured. Server response: $kg\n"; return 0;}}print AI"DATA",$AH;if($fb){&jv("DATA",$AH);}$kg= &jw(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for SMTP server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"354"){$ak{$z[450]} ="An unknown error occured. Server response: $kg\n";return 0;}$js=~s/^\./\.\./gm;print AI$js,$AH;if($fb){&jv($js,$AH); }print AI".",$AH;if($fb){&jv(".",$AH);}$kg=&jw(\*AI,$kc)||do {$ak{$z[450]}="Timed out waiting for SMTP server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"250"){$ak{$z[450]} ="An unknown error occured. Server response: $kg\n";return 0;}print AI"QUIT",$AH;if($fb){&jv("QUIT",$AH);}close(AI);return 1;}sub ju{my($js,$kh,$ki,$kj,$eh);$js=$_[0];$js=~tr/\r//d;$kh =$z[452];$kh.=$z[453];if($js=~m/^(.*?)\n\n(.*)$/s){($ki,$kj) =($1,$2);}else{die("SMTP_parseheader: couldn't find email header!\n"); }my($kd,@ke);foreach$eh(split(/\n/,$ki)){foreach(qw(from to cc bcc)) {if($eh=~/^\s*$_\s*:/i){my$kk=$_;foreach($eh=~m/($kh)/g){if ($kk eq$z[454]){$kd=$_;}else{push@ke,$_;}}}}}$kd||die("SMTP_parseheader: couldn't find from: address in mail header\n"); $#ke>=0||die("SMTP_parseheader: couldn't find to: address in mail header\n"); return($kd,@ke);}sub jw{my$AJ=$_[0];my$kc=int($_[1]);if(!$kc) {die("SMTP_readline: no timeout value specified!\n");}if($kc <10**8){die("SMTP_readline: timeout value must be in time() format!\n"); }fileno($AJ)||die("SMTP_readline: invalid filehandle or filehandle not open!\n"); my($eh,$kl);while(!$eh||substr($eh,3,1)eq$z[197]){$eh=&jy($AJ,$kc); $kl.=$eh;}return$kl;}sub jv{my$fc=join'',@_;$fc=~s/\s+$//m; my$km=localtime();local*AK;if(!$fc){$km="";$fc="\n";}if($fc =~/^From:/i){$fc="[email content]";}if($fc=~/^PASS /i){$fc= "PASS (not shown)";}$fc=~s//>/g;$fc=~s/\r\n|\n/
\n/g; print"

$fc
\n\n";}sub jx{my($js,%jt,$AH);%jt=%{$_[0]}; $AH="\x0D\x0A";local(*AI);if(!$jt{$z[455]}){die("SMTP_pop3auth: POP3 username not defined'\n"); }if(!$jt{$z[456]}){die("SMTP_pop3auth: POP3 password not defined'\n"); }if($ak{$z[457]}{$z[458]}){return 1;}my($gc,$ka,$gb,$kn,$kc,$fb); $gc=$jt{$z[459]}||$jt{$z[444]};$ka=$jt{$z[460]}||110;$gb=$jt{$z[455]}; $kn=$jt{$z[456]};$kc=$jt{$z[461]}||$jt{$z[448]}||30;$fb=$jt{$z[449]} ||0;$kc+=time()if$kc<10**8&&$kc>0;if($gc=~s/:(\d+)//){$ka=$1; }my($kf)=gethostbyname($gc)||do{$ak{$z[450]}="Could not connect to POP3 server. Unknown host $gc\n"; return 0;};socket(AI,PF_INET,SOCK_STREAM,0)||do{$ak{$z[450]} ="Could not connect to POP3 server. No Socket: $!\n";return 0;};connect(AI,pack"SnA4x8",PF_INET,$ka,$kf)||do{if($!eq"Unknown error") {$ak{$z[450]}="Could not connect to POP3 server. POP3 server does not exist or is not responding.\n"; return 0;}else{$ak{$z[450]}="Could not connect to POP3 server. Connect failed: $!\n"; return 0;}};select(AI);$|=1;select(STDOUT);binmode(AI);my$kg =&jy(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for POP3 server to respond.\n"; return 0;};if($fb){&jv($kg);}if(uc(substr($kg,0,3))ne"+OK") {$ak{$z[450]}="An unknown error occured. Server response: $kg\n"; return 0;}print AI"USER $gb",$AH;if($fb){&jv("USER $gb",$AH); }$kg=&jy(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for POP3 server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"+OK"){$ak{$z[450]} ="The server didn't accept the login info for '$gb'. Server response: $kg\n"; return 0;}print AI"PASS $kn",$AH;if($fb){&jv("PASS $kn",$AH); }$kg=&jy(\*AI,$kc)||do{$ak{$z[450]}="Timed out waiting for POP3 server to respond.\n"; return 0;};if($fb){&jv($kg);}if(substr($kg,0,3)ne"+OK"){$ak{$z[450]} ="The server didn't accept the login info for '$gb'. Server response: $kg\n"; return 0;}print AI"QUIT",$AH;if($fb){&jv("QUIT",$AH);}close(AI); $ak{$z[457]}{$z[458]}=1;return 1;}sub jz{my$AJ=$_[0];my$kc= $_[1]||$z[309];my($ko,$kp,$kq,$kr,$ks,$kt,$ku);fileno($AJ)|| die("fh_can_read: invalid filehandle or filehandle not open!\n"); vec($ko,fileno($AJ),1)=1;$ku=select($kp=$ko,undef,undef,$kc); return vec($kp,fileno($AJ),1);}sub jy{my$AJ=$_[0];my$kc=int($_[1]); if(!$kc){die("FH_readline: no timeout value specified!\n"); }if($kc<10**8){die("FH_readline: timeout value must be in time() format!\n"); }fileno($AJ)||die("FH_readline: invalid filehandle or filehandle not open!\n"); my($eh,$kv);while($kc>=time()){&jz(\*AI,0.25)||next;sysread(\*AI,$kv, 1)||last;$eh.=$kv;if($kv eq"\x0A"){last;}}return$eh;}sub lg {my$kw=$ak{$z[462]}{$z[463]}||={};my$kx=int++$kw->{$z[464]}; my$fj="FH$kx";return eval"local *$fj";}sub em{return unless ($ci{$z[465]});my$kw=$ak{$z[462]}{$z[466]}||={};$kw->{$z[467]} ||=[];my($ky,$kc)=@_;$ky||=$z[222];$kc||=0;if($ky ne$z[222] and$ky ne$z[468]){&ck("lock: invalid lock type: '$ky'");}my $kz;if(@{$kw->{$z[467]}}>0){$kz=$kw->{$z[467]}[-1];}if($kz eq$z[222]){$ky=$kz;}if($kz eq$ky){push(@{$kw->{$z[467]}},$ky); return 1;}my$la;if($kz eq$z[468]and$ky eq$z[222]){&ck("lock: cannot upgrade a 'shared' lock to an 'exclusive' lock"); }$la=&lb('',$ky,$kc);if($la){push(@{$kw->{$z[467]}},$ky);}return $la;}sub en{return unless($ci{$z[465]});my$kw=$ak{$z[462]}{$z[466]} ||={};$kw->{$z[467]}||=[];my($kc)=@_;$kc||=0;unless(@{$kw->{$z[467]}} >0){&ck($z[469])}my$kz=pop(@{$kw->{$z[467]}});return if(@{$kw->{$z[467]}} >0 and$kw->{$z[467]}[-1]eq$kz);if(@{$kw->{$z[467]}}==0){&ld(''); }}sub lb{my$kw=$ak{$z[462]}{$z[466]}||={};my($le,$ky,$kc)=@_; my$lf;if($le){$lf="$ak{'datadir'}$le.lock";}else{$lf=$ak{$z[470]}; }if(not exists$kw->{$z[471]}{$le}){$kw->{$z[471]}{$le}{$z[472]} =$lf;$kw->{$z[471]}{$le}{$z[473]}=&lg();sysopen($kw->{$z[471]}{$le}{$z[473]}, $kw->{$z[471]}{$le}{$z[472]},O_RDONLY|O_CREAT)||&ck($z[470],"error opening $ky file lock $kw->{'lockinfo'}{$le}{'filename'}: $!\n"); }else{&ck("_lock_flock: already a lock for semaphore '$le'"); }my$lh;if($ky eq$z[468]){$lh=LOCK_SH;}if($ky eq$z[222]){$lh =LOCK_EX;}if($kc>0){$lh|=LOCK_NB;}my$li=time()+$kc;until(flock($kw->{$z[471]}{$le}{$z[473]}, $lh)){if(time()<$li){sleep(1);}else{close($kw->{$z[471]}{$le}{$z[473]}); &ck($z[474]);}}return 1;}sub ld{my$kw=$ak{$z[462]}{$z[466]} ||={};my($le)=@_;unless(flock($kw->{$z[471]}{$le}{$z[473]}, LOCK_UN)){&ck($z[470],"error releasing a flock() on file lock $kw->{'lockinfo'}{$le}{'filename'}: $!\n"); }unless(close($kw->{$z[471]}{$le}{$z[473]})){&ck($z[470],"error closing file lock $kw->{'lockinfo'}{$le}{'filename'}: $!\n"); }delete$kw->{$z[471]}{$le};return 1;}sub aat{my$fm=shift;$fm =~s|\\|/|g;if($fm=~m|^/|){return$fm;}if($fm=~m|^\w:/|){return $fm;}return&lj($ak{$z[475]}.$z[289].$fm);}sub lj{my$fm=shift; $fm=~s|\\|/|g;1 while$fm=~s|[^/]*/\.\./||;return$fm;}sub aau {my($lk,@jt)=@_;$lk=~s/\s+//g;$lk=uc$lk;my$ll;my$lm=-1;my$ln; foreach$ln(split(/,/,$lk)){$lm++;my$lo=shift@jt;my$lp=$ln=~ s/\[|\]//g;if($ln eq$z[476]){@jt=();last;}next if($lp and not defined$lo);next if($ln eq$z[477]and defined$lo);next if($ln =~/\bVALUE\b/and not ref($lo)and defined($lo));next if(uc(ref $lo)=~/\b$ln\b/);next if($ln=~/\bINT\b/and$lo!~/[^0-9\.\e\-]/i and$lo==int($lo));$ll.=", "if$ll;$ll.="\$_[$lm] must be ";$ll .="either "if$lp;$ll.=$ln;$ll.=" or undefined"if$lp;$ll.=" ARG: $lo."; }if(@jt){$lm++;$ll.=", "if$ll;$ll.="extra argument(s) \@_[" .($lm)." .. ".($lm+$#jt)."]";}return 1unless$ll;my$fq=(caller(1))[3]; $fq=~s/^main:://;&ck("Invalid arguments passed to $fq".": $ll"); }1;;sub um{$ch{$z[478]}=int sprintf($z[479],&lq($cg{$z[480]})); $ak{$z[481]}=&lr();if($ENV{$z[262]}eq$z[378]){&ls;}if($cg{$z[361]}) {&af($z[482]);}my$lt=$z[483].$z[484].$z[485].$z[486];("96351328555555555555555555555555","14759782") -$ak{$z[481]}&&&af(pack($z[304],$lt));if(!$cg{$z[487]}){&lu; }if(!$ch{$z[478]}){die("Invalid Product ID number $cg{'reg3'}\n"); }my($lv);($lv=lc$ak{$z[475]})=~s/[^a-z0-9]//g;if($cg{$z[358]} !=unpack$z[488],pack$z[489],$lv){$cg{$z[358]}=unpack$z[488], pack$z[489],$lv;&eg($am{$z[157]},\%cg,1);&ls;}if(&lq&&int(rand(50)+1)==1) {print$z [490],"\n\n";exit;}}sub lu{&ag($z[491],{});my@lw=( undef,\&lx,\&ly,\&lz,\&ma,\&mb,\&mc,\&md,);if($cg{$z[492]}&& $cg{$z[493]}&&$cg{$z[480]}&&&lq($cg{$z[480]})){if($ad{$z[494]}) {&me;}if($ad{$z[40]}){&bj($z[41]);}if($ad{$z[50]}){&bj($z[51]); }}my$mf=int($ad{$z[495]})||1;if($mf>$#lw){die("Install: Invalid step number!\n"); }$ch{$z[496]}=$mf;if(!$ad{$z[497]}&&$mf==1){&{$lw[1]};}else {&{$lw[$mf]}($z[497]);$ch{$z[496]}=$mf+1;&{$lw[$mf+1]};}}sub lx{my$mg=shift;if(!$mg){print"Content-type: text/html\n\n"; foreach($z[498],$z[499],$z[500]){print&ah($_,{});}&mh();exit; }undef;}sub ly{my$mg=shift;if(!$mg){print"Content-type: text/html\n\n"; foreach($z[498],$z[501],$z[500]){print&ah($_,{});}&mh();exit; }if($ad{$z[502]}){return;}else{print"Location: http://www.interactivetools.com/\n\n"; &mh();exit;}}sub lz{my$mg=shift;if(!$mg){$ch{$z[503]}||=$ENV{$z[504]} ||$ENV{$z[505]};print"Content-type: text/html\n\n";foreach($z[498],$z[506],$z[500]) {print&ah($_,{});}&mh();exit;}$ad{$z[480]}=~s/\s+//g;if(!&lq($ad{$z[480]})) {$ch{$z[450]}=$z[507];}if(!$ad{$z[480]}){$ch{$z[450]}=$z[508]; }if(!$ad{$z[493]}){$ch{$z[450]}=$z[509];}if(!$ad{$z[492]}){ $ch{$z[450]}=$z[510];}if($ch{$z[450]}){print"Content-type: text/html\n\n"; foreach($z[492],$z[493],$z[480]){$ch{$z[511].$_}=$ad{$_};}foreach ($z[498],$z[506],$z[500]){print&ah($_,{});}&mh();exit;}&mi($am{$z[157]}, \%cg,1);foreach($z[492],$z[493],$z[480]){$cg{$_}=$ad{$_};}$cg{$z[512]} =$ak{$z[44]};&eg($am{$z[157]},\%cg,1);}sub ma{my$mg=shift;if (!$mg){$ch{$z[513]}=$cg{$z[513]};$ch{$z[513]}||=(&mj($z[514]))[0]; print"Content-type: text/html\n\n";foreach($z[498],$z[515],$z[500]) {print&ah($_,{});}&mh();exit;}&mi($am{$z[157]},\%cg,1);$cg{$z[513]} =$ad{$z[513]};if($cg{$z[513]}!~/\/$/){$cg{$z[513]}.=$z[289]; }&eg($am{$z[157]},\%cg,1);}sub me{my$mg=shift;$ch{$z[516]}= $ad{$z[517]};if($ch{$z[516]}!~/\/$/){$ch{$z[516]}.=$z[289]; }$ch{$z[518]}=$z[519];print"Content-type: text/html\n\n";foreach ($z[498],$z[494],$z[500]){print&ah($_,{});}&mh();exit;}sub mb{my$mg=shift;if(!$mg){($ch{$z[520]},$ch{$z[521]})=($cg{$z[520]}, $cg{$z[521]});unless($ch{$z[520]}||$ch{$z[521]}){($ch{$z[520]}, $ch{$z[521]})=&mj($z[522]);}($ch{$z[523]},$ch{$z[524]})=($cg{$z[523]}, $cg{$z[524]});unless($ch{$z[523]}||$ch{$z[524]}){($ch{$z[523]}, $ch{$z[524]})=&mj($z[525]);}$ch{$z[526]}=$cg{$z[526]};unless ($ch{$z[526]}){$ch{$z[526]}=$ENV{$z[527]};$ch{$z[526]}=~s|/[^/]+$|/search.cgi|; $ch{$z[526]}=~s|^/||;$ch{$z[526]}=$z[528].($ENV{$z[504]}||$ENV{$z[505]} ||$ENV{$z[529]}).$z[289].$ch{$z[526]};}$ch{$z[530]}=$cg{$z[530]}; unless($ch{$z[530]}){$ch{$z[530]}=$ENV{$z[527]};$ch{$z[530]} =~s|/[^/]+$|/view.cgi|;$ch{$z[530]}=~s|^/||;$ch{$z[530]}=$z[528].($ENV{$z[504]} ||$ENV{$z[505]}||$ENV{$z[529]}).$z[289].$ch{$z[530]};}print "Content-type: text/html\n\n";foreach($z[498],$z[531],$z[500]) {print&ah($_,{});}&mh();exit;}foreach(keys%ad){if(/^dir_/|| /^url_/){if(!$ad{$_}){next;}$ad{$_}=~tr|\\|/|;if(/^url_/&&index($ad{$_},$z[532]) >=0){next;}if(/^url_/&&index($ad{$_},$z[533])>=0){next;}if(substr($ad{$_},-1,1) ne$z[289]){$ad{$_}.=$z[289];}}}&mi($am{$z[157]},\%cg,1);$cg{$z[526]} =$ad{$z[526]};$cg{$z[530]}=$ad{$z[530]};$cg{$z[520]}=$ad{$z[520]}; $cg{$z[523]}=$ad{$z[523]};$cg{$z[521]}=$ad{$z[521]};$cg{$z[524]} =$ad{$z[524]};&eg($am{$z[157]},\%cg,1);}sub mc{my$mg=shift; if(!$mg){print"Content-type: text/html\n\n";foreach($z[498],$z[534],$z[500]) {print&ah($_,{});}&mh();exit;}my%mk;if(!$ad{$z[535]}||!$ad{$z[536]}) {$ch{$z[450]}=$z[537];}elsif(&ml($am{$z[67]},\%mk,$z[538],$ad{$z[535]})) {if($mk{$z[539]}eq$ad{$z[536]}){return;}$ch{$z[450]}=$z[540]; }if($ch{$z[450]}){print$z [541]."\n\n";foreach($z[498],$z[534],$z[500]) {print&ah($_,\%ad);}&mh();exit;}my%gb=($z[542]=>$^T,$z[543] =>$^T,$z[101]=>$ad{$z[535]},$z[538]=>$ad{$z[535]},$z[539]=> $ad{$z[536]},$z[10]=>$z[544]);&ek($am{$z[67]},\%gb);}sub md {if(!&lq($cg{$z[480]})){print"Location: $ak{'cgiurl'}?step=1\n\n"; exit;}if(!$cg{$z[480]}){print"Location: $ak{'cgiurl'}?step=1\n\n"; exit;}if(!$cg{$z[493]}){print"Location: $ak{'cgiurl'}?step=1\n\n"; exit;}if(!$cg{$z[492]}){print"Location: $ak{'cgiurl'}?step=1\n\n"; exit;}my($lv);($lv=lc$ak{$z[475]})=~s/[^a-z0-9]//g;&mi($am{$z[157]}, \%cg,1);$cg{$z[358]}=unpack$z[488],pack$z[489],$lv;$cg{$z[487]} =1;&eg($am{$z[157]},\%cg,1);&mm($z[538],'');undef$cj{$z[538]}; &mm($z[539],'');undef$cj{$z[539]};&ls;}sub mj{&fb("guess_url_and_dir(@_)"); my$mn=shift;$mn=~s|^/||;(my$mo=$mn)=~s|/[^/]+$|/|;(my$mp=$ENV{$z[527]}) =~s|/[^/]+$|/|;$mp=~s|^/||;$mp=$z[528].($ENV{$z[504]}||$ENV{$z[505]} ||$ENV{$z[529]}).$z[289].$mp;my$mq=$ak{prog_name2};my@mr=qw( htdocs httpd www web html ); my@ms;push@ms,[$z[545],$z[545]];push@ms,[$z[546].$mq.$z[289], $z[546].$mq.$z[289]];foreach(@mr){push@ms,[$z[546].$mq.$z[289], $z[546].$_.$z[289].$mq.$z[289]];}foreach(@mr){push@ms,[$z[546], $z[546].$_.$z[289]];}push@ms,[$z[546],$z[546]];foreach(@ms) {my($mt,$mu)=@$_;&fb($z[547]."$ak{'cgidir'}/$mu$mn
");if (-e"$ak{'cgidir'}/$mu$mn"){return(&mv("$mp$mt$mo"),&mv("$ak{'cgidir'}/$mu$mo")); }}return(&mv("$mp../$mo"),&mv("$ak{'cgidir'}/../$mo"));}sub mv{my$fm=shift;1 while($fm=~s|/[^/]+/\.\.||);return$fm;}sub lq{my($cg,$dg,$mw,$mx,@mz)=(shift,(undef)x3,265,193);my%na=map {$_,$dg++}split(//,$z[548]);$cg=~s/-//g;my@cg=split(//,$cg); for(0,1){my$nb;for(0..7){$nb*=33;$nb+=$na{shift@cg}}$mw=$nb/($ak{$z[97]}* shift(@mz))-1261;($mw-int$mw||$mw<1||($mx&&$mw!=$mx))?return undef:($mx=$mw)}$mw}sub ls{&fb("sub _register
");my($nc); my$gc=$ENV{$z[504]}||$ENV{$z[505]}||$ENV{$z[529]};my$fm=$ENV{$z[527]} ||$ENV{$z[549]};$nc.=$z[550].&gn($cg{$z[492]});$nc.=$z[551] .&gn($cg{$z[493]});$nc.=$z[552].&gn($ch{$z[478]});$nc.=$z[553] .&gn($ak{$z[91]});$nc.=$z[554].&gn($ak{$z[93]});$nc.=$z[555] .&gn("$gc$fm");$nc.=$z[556].&gn($ak{$z[481]});&fb($nc);my$kf =gethostbyname($z[557])||return;local(*AI);socket(AI,&PF_INET, &SOCK_STREAM,0)||die("No Socket: $!");connect(AI,pack"SnA4x8", &PF_INET,80,$kf)||return;select(AI);$|=1;select(STDOUT);print AI"GET /register/register.cgi?$nc HTTP/1.0\n";print AI"Referer: $ENV{'HTTP_REFERER'}\n"; print AI"User-Agent: itools_software\n\n";my$nd=join("",); close(AI);if($nd=~/itools\.license\.invalid/){$cg{$z[361]}= 1;}if($nd=~/itools\.license\.valid/){$cg{$z[361]}=0;}&fb($nd); &eg($am{$z[157]},\%cg,1);if($cg{$z[361]}){&af($z[482]);}}sub lr{local(*AB);open(AB,"<$ak{'cgidir'}/$ak{'cgifile'}");; binmode(AB);my$kl.=join'',;close(AB);$kl=~tr/\r\n//d;$ak{$z[481]} =unpack$z[488],$kl;}1;;sub cf{my($ne,$nf)=@_;foreach(@{$ne->{$z[132]}}) {my($ng,$fq)=@{$_};if(!defined&{$fq}&&!defined&{$ak{$z[558]}{$ng}}) {die("The action '$ng' defined as a handler for db '$ne->{'name'}' does not have a custom handler or a default handler"); }if((!$nf&&$ad{$ne->{$z[101]}.$z[511].$ng})||$nf eq$ng){if(defined &{$fq}){&{$fq}($ne);exit;}else{&{$ak{$z[558]}{$ng}}($ne);exit; }}}if($nf){die"Unable to execute forced action '$nf' on db '$ne->{'name'}'"; }}sub un{my$ne=shift;my$cx=&nh($ne);&ni($ne,$cx);}sub uo{my $ne=shift;my$cx=&nj($ne);&nk($ne,$cx);&nl($z[559],$cx);exit; }sub ax{my$ne=shift;if(!$cg{$z[560]}){&cf($ne,$z[133]);}my$cx =&nm($ne);&nl($z[560],$cx);exit;}sub up{my$ne=shift;my$cx=&nn($ne); &np($ne,$cx);}sub cc{my$ne=shift;&cs;my$nq=&nr($ne);my$ns=&nt($ne, $nq);&nu($ne,$nq);&nv($ne,$nq);&cu;&nw($ne,$ns);&nx($ne);}sub uq{my$ne=shift;my($dp,$dq);my$ny={$z[561]=>$ci{$z[562]}{$z[561]}, $z[563]=>1,$z[564]=>'',};$ny=&nz($ne,$ny);foreach(split(/\s+/,$ne->{$z[128]})) {push(@$dq,[$_,$z[226],$ny->{$z[564]}]);}my$dc=sub{my$oa=shift; if(!defined$oa->{$z[565]}&&$oa->{$z[566]}){my$ig=&hs(0,0,0,$oa->{$z[567]},$oa->{$z[566]}-1,$oa->{$z[568]}); $oa->{$z[565]}=&ob($ak{$z[569]},$ig);}$oa->{$z[542]}=&ob($ak{$z[570]},int($oa->{$z[542]})) if$oa->{$z[542]};$oa->{$z[543]}=&ob($ak{$z[570]},int($oa->{$z[543]})) if$oa->{$z[543]};$ch{$z[571]}=$ch{$z[571]}eq$z[572]?$z[573] :$z[572];return&ah($z[574],$oa);};my$cx=&oc($ne,$dc,$ny,$dp, $dq);&od($cx);}sub nh{my$ne=shift;$ch{$z[575]}=$ne->{$z[102]}; $ch{$z[576]}=$ne->{$z[101]};&ag($ne->{$z[104]},{});my($cx)= {};if($ne->{$z[577]}&&&oe($ne)>=$ne->{$z[577]}){&nl($z[578],$ne); }my($ic,$hb,$hc)=(localtime(&of($^T)))[3,4,5];$hb++;$hc+=1900; $cx->{"day_$ic".$z[579]}=$z[580];$cx->{"mon_$hb".$z[579]}=$z[580]; $cx->{"year_$hc".$z[579]}=$z[580];foreach(split(/ /,$ne->{$z[108]})) {if(/^ufile/&&!$cx->{$_}){$cx->{$_}=$z[581];}}$cx->{$z[542]} =&ob($ak{$z[570]},&of($^T));$cx->{$z[543]}=&ob($ak{$z[570]},&of($^T)); $cx->{$z[582]}=$ai{$z[101]}||"unknown user";$cx->{$z[583]}= $ai{$z[101]}||"unknown user";return$cx;}sub ni{my($ne,$cx)= @_;if($ak{$z[283]}{$z[291]}{$z[584]}){&nl($z[584],$cx);}else {&nl($z[559],$cx);}exit;}sub nj{my$ne=shift;$ch{$z[575]}=$ne->{$z[102]}; $ch{$z[576]}=$ne->{$z[101]};&ag($ne->{$z[104]},{});my($kx)= int$ad{$ne->{$z[101]}.$z[585]};my$cx={};&mi($ne,$cx,$kx)||&ck($z[586],$kx); return$cx;}sub nk{my($ne,$cx)=@_;foreach(split(/ /,$ne->{$z[108]})) {if(/^ufile/&&!$cx->{$_}){$cx->{$_}=$z[581];}}foreach(keys%{$cx}) {$cx->{$_}=~s/\&/&/g;$cx->{$_}=~s/\"/"/g;$cx->{$_} =~s/\{$_}=~s/\>/>/g;}foreach(keys%{$cx}){if (!/\W/&&$cx->{$_}!~/\W/){$cx->{$_.$z[511].$cx->{$_}.$z[587]} =$z[588];$cx->{$_.$z[511].$cx->{$_}.$z[579]}=$z[580];}}$cx->{$z[542]} =&ob($ak{$z[570]},&of($cx->{$z[542]}))if$cx->{$z[542]};$cx->{$z[543]} =&ob($ak{$z[570]},&of($cx->{$z[543]}))if$cx->{$z[543]};my%og; &mi($am{$z[67]},\%og,$cx->{$z[582]})if$cx->{$z[582]};$cx->{$z[582]} =$og{$z[101]}||"unknown user";&mi($am{$z[67]},\%og,$cx->{$z[583]}) if$cx->{$z[583]};$cx->{$z[583]}=$og{$z[101]}||"unknown user"; return$cx;}sub nm{my$ne=shift;$ch{$z[575]}=$ne->{$z[102]};$ch{$z[576]} =$ne->{$z[101]};&ag($ne->{$z[104]},{});my($kx)=int($ad{$ne->{$z[101]}.$z[589]}) ||int($ad{$z[464]});my($cx)={};&mi($ne,$cx,$kx)||&ck($z[586],$kx); return$cx;}sub nn{my$ne=shift;$ch{$z[575]}=$ne->{$z[102]};$ch{$z[576]} =$ne->{$z[101]};&ag($ne->{$z[104]},{});my($kx)=$ad{$z[464]} ||$ad{$ne->{$z[101]}.$z[589]};my$cx={};&cs();&mi($ne,$cx,$kx) ||&ck($z[586],$kx);&oh($ne,$kx)||die($z[590].$kx);&cu();foreach (split(/ /,$ne->{$z[108]})){if(/^ufile/&&$cx->{$_}){if(-e"$cg{'dir_upload'}/$cx->{$_}") {unlink("$cg{'dir_upload'}/$cx->{$_}");}}}if(defined&{$ne->{$z[131]}}) {&{$ne->{$z[131]}}($kx,$z[133],$cx);}return$cx;}sub np{my($ne, $cx)=@_;if(!$cg{$z[591]}){&cf($ne,$z[89]);}&nl($z[592],$cx); exit;}sub nr{my$ne=shift;$ch{$z[575]}=$ne->{$z[102]};$ch{$z[576]} =$ne->{$z[101]};&ag($ne->{$z[104]},{});my($kx)=int($ad{$z[464]}); my$nq={};if($ne->{$z[577]}){my($cv)=&oe($ne);if($kx&&$cv>$ne->{$z[577]}) {&nl($z[578],$ne);}elsif(!$kx&&$cv>=$ne->{$z[577]}){&nl($z[578],$ne); }}if($kx){&mi($ne,$nq,$kx)||die("ui_save : Can't find record #$kx"); }return($nq);}sub nt{my($oa)=$_[0]->{$z[101]}||die($z[593]); my($kx)=int($ad{$z[464]});my(%oa)=%{$_[1]||{}};my(%fe,%fy,$es,%ns,%cx); if(!$cg{$z[521]}){die("ui_save_uploads: No upload directory has been defined in setup options!\n"); }if(!-d$cg{$z[521]}){die("ui_save_uploads: Upload directory '$cg{'dir_upload'}' doesn't exist!\n"); }if(!-w$cg{$z[521]}){die("ui_save_uploads: Upload directory isn't writable!\n"); }%fe=&oi($cg{$z[521]});foreach(split(/ |\,/,$cg{$z[594]})){ $fy{$_}++if$_;}foreach$es(split(/ /,$_[0]->{$z[108]})){if($es !~/^ufile/){next;}if($ad{$es}){if($cg{$z[595]}&&length($ad{$es}) >$cg{$z[596]}*1000){my$oj=length($ad{$es});$ns{$z[8]}.=qq|$ad{$es."_file"} ($oj bytes, file too large)
\n|; $ad{$es}=$oa{$es};next;}if(!$fy{lc$ad{$es.$z[269]}}){$ns{$z[8]} .=qq|$ad{$es."_file"} ('$ad{$es.'_ext'}' files not accepted)
\n|; $ad{$es}=$oa{$es};next;}if($oa{$es}&&$fe{$oa{$es}}){unlink("$cg{'dir_upload'}/$oa{$es}"); }my($ok);my($ol)=lc$ad{$es.$z[268]};my($om)=lc$ad{$es.$z[269]}; my($on)=$z[597];$ol=~s/\.[^\.]*$//g;$ol=~s/[^a-z0-9_\-]/_/g; $om=~s/[^a-z0-9_\-]/_/g;$ok="$ol.$om";if(-e"$cg{'dir_upload'}/$ok") {do{$on=sprintf($z[370],++$on);$ok=$ol."_$on.$om";}while(-e "$cg{'dir_upload'}/$ok");}open(AB,">$cg{'dir_upload'}/$ok") ||die($z[598]."$ok $!\n");binmode AB;print AB$ad{$es};close(AB); if($ok=~/\.(gif|jpg|jpeg|png)$/i){my($jh,$ji,$oo)=&op("$cg{'dir_upload'}/$ok"); if(($cg{$z[599]}&&$ji>$cg{$z[599]})||($cg{$z[600]}&&$jh>$cg{$z[600]})) {unlink("$cg{'dir_upload'}/$ok");$ns{$z[8]}.=qq|$ad{$es."_file"} (${ji}x$jh, image too big)
\n|; $ad{$es}=$oa{$es};next;}}$ad{$es}=$ok;}elsif($ad{$es.$z[268]}) {if($oa{$es}&&$fe{$oa{$es}}){unlink("$cg{'dir_upload'}/$oa{$es}"); }$oa{$es}='';}else{$ad{$es}=$oa{$es};}}return\%ns;}sub nu{my ($ne,$nq)=@_;my($kx)=int($ad{$z[464]});$ad{$z[542]}=$kx?$nq->{$z[542]} :$^T;$ad{$z[582]}=$kx?$nq->{$z[582]}:$ai{$z[464]};$ad{$z[601]} =$kx?$nq->{$z[601]}:$ai{$z[464]};$ad{$z[543]}=$^T;$ad{$z[583]} =$ai{$z[464]};my$oq;foreach$oq($ne->{$z[108]}=~/\bufile([^ ]*)\b/g) {if($ne->{$z[108]}=~/\bimagewidth\Q$oq\E\b/){($ad{$z[602].$oq}, $ad{$z[603].$oq})=&op($cg{$z[521]}.$ad{$z[604].$oq});}}}sub nv{my($ne,$nq)=@_;my($kx)=int($ad{$z[464]});if($kx){&eg($ne, \%ad,$kx);}else{$ad{$z[464]}=&ek($ne,\%ad,$kx);}if(defined&{$ne->{$z[131]}}) {&{$ne->{$z[131]}}($ad{$z[464]},$z[497],$nq);}}sub nw{my($ne, $ns)=@_;if(keys%{$ns}){undef$cg{$z[596]}if!$cg{$z[595]};$ns->{$z[464]} =$ad{$z[464]};$ns->{$z[605]}=&ah($z[605],\%cg)if$cg{$z[596]}; $ns->{$z[606]}=&ah($z[606],\%cg)if$cg{$z[599]};$ns->{$z[607]} =&ah($z[607],\%cg)if$cg{$z[600]};$ns->{$z[608]}=&ah($z[608], {$z[594]=>$cg{$z[594]}?$cg{$z[594]}:$z[609]});&nl($z[610],$ns); exit;}}sub nx{my($ne)=@_;if(!$cg{$z[611]}){&cf($ne,$z[89]); }&nl($z[612],\%ad);exit;}sub od{my$cx=shift;&nl($z[89],$cx); exit;}sub nz{my($ne,$ny)=@_;$ch{$z[575]}=$ne->{$z[102]};$ch{$z[576]} =$ne->{$z[101]};if(ref($ne)ne$z[184]){die$z[613]."\n";}&ag($ne->{$z[104]}, {});if($ad{$ne->{$z[101]}.$z[614]}){my$or={};while($cj{$ne->{$z[101]}.$z[615]} =~/(.*?)\t(.*?)\t/g){$or->{$1}=$2;}$ny->{$z[561]}=$ad{$z[616]} ||$or->{$z[561]};}else{while($cj{$ne->{$z[101]}.$z[615]}=~/(.*?)\t(.*?)\t/g) {$ny->{$1}=$2;}foreach(keys%{$ny}){if(defined$ad{$z[511].$_}) {if($_ ne$z[561]&&$_ ne$z[563]){$ny->{$z[563]}=1;}$ny->{$_} =$ad{$z[511].$_};}}}&mm($ne->{$z[101]}.$z[615],join("\t",map {$_,$ny->{$_}}keys%{$ny})."\t");foreach(keys%{$ny}){$ch{$z[511] .$_}=$ny->{$_};$ch{$z[511].$_.$z[511].$ny->{$_}.$z[579]}=$z[580]; }return$ny;}sub oc{my($ne,$dc,$ny,$dp,$dq)=@_;my%cx;my$jk=sub {$cx{$z[617]}.=&{$dc}(@_);};($cx{$z[618]},$cx{$z[619]},$cx{$z[620]}, $cx{$z[621]},$cx{$z[622]},$cx{$z[623]})=&os($ne,$jk,$ny->{$z[563]}, $ny->{$z[561]},$dp,$dq);unless($cx{$z[617]}){if($ak{$z[283]}{$z[291]}{$z[624]} &&scalar grep{$_ ne$z[561]&&$_ ne$z[563]&&$ny->{$_}ne''}keys %{$ny}){$cx{$z[617]}=&ah($z[624],{});}else{$cx{$z[617]}=&ah($z[625], {});}}return\%cx;}sub bq{my$ne=shift;my($dp,$dq);my$ny={$z[561] =>$ci{$z[562]}{$z[561]},$z[563]=>1,$z[564]=>'',};$ny=&nz($ne, $ny);foreach(split(/\s+/,$ne->{$z[128]})){push(@$dq,[$_,$z[226], $ny->{$z[564]}]);}my$dc=sub{my$oa=shift;$oa->{$z[626]}=$ot[$oa->{$z[10]}]; if(!defined$oa->{$z[565]}&&$oa->{$z[566]}){my$ig=&hs(0,0,0,$oa->{$z[567]},$oa->{$z[566]}-1,$oa->{$z[568]}); $oa->{$z[565]}=&ob($ak{$z[569]},$ig);}$oa->{$z[542]}=&ob($ak{$z[570]},int($oa->{$z[542]})) if$oa->{$z[542]};$oa->{$z[543]}=&ob($ak{$z[570]},int($oa->{$z[543]})) if$oa->{$z[543]};$ch{$z[571]}=$ch{$z[571]}eq$z[572]?$z[573] :$z[572];return&ah($z[574],$oa);};my$cx=&oc($ne,$dc,$ny,$dp, $dq);&od($cx);}sub aav{my$ne=shift;&cs();my$nq=&nr($ne);my$ns =&nt($ne,$nq);&nu($ne,$nq);my%ou;if(&ml($ne,\%ou,$z[538],$ad{$z[538]})) {if($ou{$z[464]}!=$nq->{$z[464]}){&cu();&nl($z[627],\%ad);} }if($ad{$z[464]}==$ai{$z[464]}&&$ad{$z[10]}<9){&cu();&nl($z[628], {});}&nv($ne,$nq);my%ov;if(&ml($am{$z[155]},\%ov,$z[464],$ad{$z[464]})) {&eg($am{$z[155]},\%ad,$ad{$z[464]});}&cu();&nw($ne,$ns);&nx($ne); }sub bv{my$ne=shift;if(!$cg{$z[560]}){&cf($ne,$z[133]);}my$cx =&nm($ne);if($cx->{$z[464]}==$ai{$z[464]}&&$ad{$z[10]}<9){&nl($z[628], {});}&nl($z[560],$cx);}sub bw{my$ne=shift;my$kx=$ad{$z[464]} ||$ad{$ne->{$z[101]}.$z[589]};if($kx==$ai{$z[464]}&&$ad{$z[10]} <9){$ch{$z[575]}=$ne->{$z[102]};$ch{$z[576]}=$ne->{$z[101]}; &ag($ne->{$z[104]},{});&nl($z[628],{});}&cs();&mi($am{$z[67]}, {},$ai{$z[464]})||&af($z[629],{});my$cx=&nn($ne);&oh($am{$z[155]}, $kx);&cu();&np($ne,$cx);}sub pn{my$js=shift;if($cg{$z[630]} eq$z[631]){my%jt=(host=>$cg{$z[632]},helo=>$ci{$z[633]}{$z[634]}, timeout=>$ci{$z[633]}{$z[635]},pop3_auth=>$cg{$z[636]},pop3_host =>$cg{$z[637]},pop3_user=>$cg{$z[638]},pop3_pass=>$cg{$z[639]}); &ow($js,\%jt)||die("Error sending message: $ak{'error'}");} elsif($cg{$z[630]}eq$z[640]){if(!-e$cg{$z[641]}){die("sendmail: can't find sendmail program '$cg{'mail_sendmail'}'\n"); }local(*AL);my($kd)=&ju($js);open(AL,"|$cg{'mail_sendmail'} -f $kd -t") ||die"Can't open $cg{'mail_sendmail'} : $!";print AL$js;close(AL); }elsif(!$cg{$z[630]}){die("sendmail: no mailer specified in setup options!\n"); }else{die("sendmail: unknown mailer '$cg{'mail_mailer'}' specified!\n"); }}sub bj{my($fn)=$_[0];my($ox)=$ad{$z[642]}||die("browse: you must pass a name/value for the 'fieldname'!\n"); my(%cx,$fo);if($fn ne$z[41]&&$fn ne$z[51]){die("browse: the first argument must be either 'dir' or 'file'!\n"); }if($ad{$z[46]}){&bi($z[47].$z[43].$ak{$z[44]}.$z[45]);}if($ad{$z[643]}) {&bi($z[644].$z[43].$ak{$z[44]}.$z[45]);}if($ad{$z[41]}){&bi($z[42] .$z[43].$ak{$z[44]}.$z[45]);}if(!-d$cg{$z[645]}){delete$cg{$z[645]}; }if($ad{$z[646]}){if(-f$ad{$z[646]}){$ad{$z[646]}=~s!^(.+)(\\|/).*?$!$1!; }if(-d$ad{$z[646]}){$ad{$z[41]}=$ad{$z[646]};}}if($ci{$z[647]}) {$ad{$z[41]}=$cg{$z[645]};}&ag("_browse_$fn.html",{});my$oy ="/";$cx{$z[642]}=$ad{$z[642]};if($ad{$z[46]}){$cx{$z[648]} =$ad{$z[648]};if(!$ad{$z[648]}){$ch{$z[649]}=$z[650];}elsif ($ad{$z[648]}=~m/[^\w\-]/i){$ch{$z[649]}=$z[651];}elsif(!mkdir("$ad{'cdir'}$oy$ad{'mkdir_name'}",0777)){ $ch{$z[649]}=$z[652].$!;}if($ch{$z[649]}){$ch{$z[649]}=&ah($z[649],\%ch); }}if($ad{$z[643]}){local(*AB);$cx{$z[653]}=$ad{$z[653]};if(!$ad{$z[653]}) {$ch{$z[654]}=$z[655];}elsif($ad{$z[653]}=~m/[^\w\-\.]/i){$ch{$z[654]} =$z[656];}elsif(-e"$ad{'cdir'}$oy$ad{'mkfile_name'}"){$ch{$z[654]} =$z[657];}elsif(!open(AB,">$ad{'cdir'}$oy$ad{'mkfile_name'}")) {$ch{$z[654]}=$z[658].$!;}close(AB);if($ch{$z[654]}){$ch{$z[654]} =&ah($z[654],\%ch);}}$cx{$z[41]}=$ad{$z[41]}||$cg{$z[645]}|| $ak{$z[475]};$cx{$z[41]}=~s/^(.+)(\\|\/)+$/$1/;$cx{$z[659]} =$cx{$z[41]};$cx{$z[659]}=~s!^([a-z]:)!$1/..!i;$cx{$z[660]} =($cx{$z[41]}=~m#^(.*)[\\/]#,$1||$oy);$cx{$z[661]}=&gn($cx{$z[660]}); $cx{$z[89]}.=&ah($z[660],\%cx)if($cx{$z[41]}=~m!.+(\\|/)!); if(!-e$cx{$z[41]}){$cx{$z[450]}=$z[662];}elsif(!-r$cx{$z[41]}) {$cx{$z[450]}=$z[663];}if($cx{$z[450]}){print"Content-type: text/html\n\n" unless($ak{$z[664]}++);$cx{$z[89]}.=&ah($z[450],\%cx);print &ag($z[665],\%cx);exit;}opendir(AC,"$cx{'dir2'}");my@fo=sort {lc$a cmp lc$b}grep(!/^\.+$/,readdir(AC));closedir(AC);my($oi); foreach$oi(@fo){-d"$cx{'dir'}$oy$oi"||next;$cx{$z[101]}=$oi; $cx{$z[666]}="$cx{'dir'}$oy$oi";$cx{$z[666]}=~s/$oy+/$oy/g; $cx{$z[667]}=&gn($cx{$z[666]});($cx{$z[668]},$cx{$z[669]})= (stat($cx{$z[666]}))[7,9];next if$cx{$z[669]}eq"";$cx{$z[670]} =&ob($ak{$z[570]},$cx{$z[669]});$cx{$z[89]}.=&ah($z[41],\%cx); $fo++;}my($fe);foreach$fe(@fo){-d"$cx{'dir'}$oy$fe"&&next;$cx{$z[101]} =$fe;$cx{$z[666]}="$cx{'dir'}$oy$fe";($cx{$z[668]},$cx{$z[669]}) =(stat($cx{$z[666]}))[7,9];next if$cx{$z[669]}eq"";if($cx{$z[668]}) {$cx{$z[668]}=(int($cx{$z[668]}/1000)||1)."KB";}else{$cx{$z[668]} ="0KB";}$cx{$z[670]}=&ob($ak{$z[570]},$cx{$z[669]});$cx{$z[666]} =~s/'/\\'/g;$cx{$z[666]}=~s/\\/\\\\/g;if(-f"$cx{'dir'}$oy$fe") {$cx{$z[89]}.=&ah($z[51],\%cx);}else{$cx{$z[89]}.=&ah($z[671],\%cx); }$fo++;}if(!$fo){$cx{$z[89]}.=&ah($z[672],{});}print"Content-type: text/html\n\n" unless($ak{$z[664]}++);print&ag("_browse_$fn.html",\%cx);exit; }sub uf{my($ki,$kl);if($ENV{$z[262]}=~/^[\w\-]+\.gif$/){$ki =$z[673]."\n\n";}elsif($ENV{$z[262]}=~/^[\w\-]+\.jpg$/){$ki =$z[674]."\n\n";}else{return;}$kl=&ag($ENV{$z[262]},{},$z[278]); if($kl){binmode(STDOUT);print$ki ;print$kl ;exit;}}sub of{my $ig=$_[0]||die("time_adj: first argument must be time()\n"); if($cg{$z[675]}eq$z[584]){$ig+=$cg{$z[676]}*60*60;}if($cg{$z[675]} eq$z[677]){$ig-=$cg{$z[676]}*60*60;}if($cg{$z[678]}eq$z[584]) {$ig+=$cg{$z[679]}*60;}if($cg{$z[678]}eq$z[677]){$ig-=$cg{$z[679]}*60; }return$ig;}sub aj{my($dc,$oz,$pa,$pb,%ov);my(%cx,%pc);if(!$ad{$z[680]} &&!$cj{$z[538]}){&af(undef,\%cx);}if($ad{$z[680]}){($oz,$pa) =(lc$ad{$z[538]},lc$ad{$z[539]});if(!$oz&&!$pa){&af($z[629], \%cx);}if(!$oz||!$pa){&af($z[629],\%cx);}$dc=sub{if(lc$pc{$z[538]} eq$oz&&lc$pc{$z[539]}eq$pa){$pb=$pc{$z[464]};}};&pd($am{$z[67]}, $dc,\%pc);if(!$pb){&af($z[629],\%cx);}&mi($am{$z[67]},\%pc, $pb);$pc{$z[542]}=$^T;$pc{$z[543]}=$^T;&eg($am{$z[155]},\%pc, $pb);}else{($oz,$pa)=(lc$cj{$z[538]},lc$cj{$z[539]});if(!$oz ||!$pa){&af($z[681],\%cx);}$dc=sub{if(($ci{$z[682]}&&$pc{$z[543]} <$^T-60*$ci{$z[682]})||$pc{$z[543]}<$^T-60*60*24){&oh($am{$z[155]}, $pc{$z[464]});}elsif(lc$pc{$z[538]}eq$oz&&lc$pc{$z[539]}eq$pa) {$pb=$pc{$z[464]};}};&pd($am{$z[155]},$dc,\%pc);if(!$pb){&af($z[681], \%cx);}&mi($am{$z[155]},\%pc,$pb);$pc{$z[543]}=$^T;&eg($am{$z[155]}, \%pc,$pb);}&mm($z[538],$oz);&mm($z[539],$pa);return%pc;}sub af{if(!$ak{$z[664]}++){print$z [541]."\n\n";}my($fc)=$_[0]; my(%cx)=%{$_[1]||{}};&ag($z[683],{});foreach(keys%cx){$cx{$_} =&fr($cx{$_});}if($fc&&!$ak{$z[283]}{$z[291]}{$fc}){die($z[684]."'$fc' isn't defined!\n"); }if($fc){$cx{$z[8]}=&ah($fc,\%cx);}print&ah($z[685],{});if($fc) {print&ah($z[686],\%cx);}else{print&ah($z[680],\%cx);}print &ah($z[687],{});if($ak{$z[449]}){print"

";print"

$ak{'debug_output'}
" if($ak{$z[258]});}&mh();exit;}sub ae{&ag($z[683],{});&mm($z[538],''); &mm($z[539],'');$cg{$z[688]}=~s/^\s+|\s+$//g;if($cg{$z[688]} &&$ENV{$z[262]}=~/logoff/i){print"Content-type: text/html\n\n"; print qq|\n|;print qq|\n|; print qq|\n|;print qq|\n|; print qq|\n|;exit;}&af();}sub pr{&ag($am{$z[157]}->{$z[104]}, {});&mi($am{$z[157]},\%cg,1);foreach(keys%cg){if(!/\W/&&$cg{$_} !~/\W/){$cg{$_."_$cg{$_}".$z[587]}=$z[588];$cg{$_."_$cg{$_}".$z[579]} =$z[580];}}$cg{$z[689]}=&ob($ak{$z[570]},$^T);$cg{$z[676]}||= 0;$cg{$z[679]}||=0;$cg{$z[690]}=&ob($ak{$z[570]},&of($^T)); foreach(keys%ENV){$cg{"env_".lc($_)}=$ENV{$_};}$cg{$z[691]} =$^O;$cg{$z[692]}=$];$cg{$z[693]}||="not available";$cg{$z[694]} ||=$cg{$z[695]};$cg{$z[696]}=$ak{$z[475]};foreach(grep/^env_/, keys%cg){$cg{$_}=~s/(\W)(\w)/$1$2/g;}foreach(keys%cg){ $cg{$_.$z[292]}=&gn($cg{$_})if/^dir/;$cg{$_}=~s/"/"/g; }if($^O!~/win32/i&&!$cg{$z[641]}&&defined$ak{$z[283]}{$z[291]}{$z[697]}) {foreach($z[698],$z[699],$z[700],$z[701],$z[702],$z[703],$z[704]) {if(-e$_){$ch{$z[705]}.=&ah($z[697],{$z[666]=>$_});}}}my$pe =$z[706];$pe=$z[707]if($cg{$z[707]});foreach(1..10){$pe="tab$_" if($ad{"setup_tab$_"}&&defined$ak{$z[283]}{$z[291]}{"tab$_"}); }&nl($pe,\%cg);exit;}sub bs{$ak{$z[708]}=$z[709];my(%cx,$pf); if($ad{$z[48]}){&ag($z[710],{});$cx{$z[711]}=&ah($z[712],\%cx); $cx{$z[713]}=$z[714];my@pg=qw(mail_smtp mail_sender_email mail_sender_name mail_mailer mail_sendmail mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass); @cx{@pg}=@ad{@pg};print"Content-Type: text/html\n\n";print&ag($z[710], \%cx);exit;}if(length($ad{$z[715]})){&ph($z[716],$z[717])unless &pi($ad{$z[715]});}else{&ph($z[718],$z[719]);}my$pj;open(AJ, "<$ak{'templatedir1'}/email/email_test.txt")||&ph($z[720],"Unable to open test email template."); read(AJ,$pj,-s AJ);close(AJ);my($pk,$pl);if($pj=~/^\s*Subject: *([^\r\n]*?)(\r\n|\r|\n)\s*Body: *([^ ].*)$/si) {$pk=$1;$pl=$3;}else{&ph($z[721],"email_test.txt is improperly formatted. Should have subject: and body:"); }if($ad{$z[630]}eq$z[640]){@cg{qw(mail_mailer mail_sendmail)} =@ad{qw(mail_mailer mail_sendmail)};}else{@cg{qw(mail_mailer mail_smtp mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass)} =@ad{qw(mail_mailer mail_smtp mail_pop3auth mail_pop3 mail_pop3user mail_pop3pass)}; }my$pm=qq|From: "$ad{'mail_sender_name'}" <$ad{'mail_sender_email'}>\nTo: "$ad{'mailto'}" <$ad{'mailto'}>\nSubject: $pk\nContent-Type: text/plain\n| ;$@=();eval{&pn("$pm\n$pl")};if($@){&ph($z[722],join($z[723], $@));}else{&ph($z[724]);}}sub ph{my($fn,$jk)=@_;my%cx;my%po =($z[718]=>[$z[725],$z[726],$z[727]],$z[716]=>[$z[725],$z[726], $z[728]],$z[720]=>[$z[729],$z[726],$z[730]],$z[721]=>[$z[729], $z[726],$z[731]],$z[722]=>[$z[729],$z[726],$z[732]],$z[724] =>[$z[729],$z[733],$z[734]]);&ag($z[710],{});$cx{$z[8]}=$jk; if($po{$fn}[0]eq$z[725]){$cx{$z[735]}=&ah($z[735],{});}$cx{$z[711]} =&ah($po{$fn}[1],\%cx);$cx{$z[713]}=$po{$fn}[2];print"Content-Type: text/html\n\n"; print&ag($z[710],\%cx);exit;}sub aaw{&pp($z[736].$z[43].$ak{$z[44]}.$z[737]); &ag($am{$z[157]}->{$z[104]},{});&pq;if(!$cg{$z[611]}){≺} my$pe=$z[738];foreach(1..10){$pe="saved_tab$_"if($ad{"setup_tab$_"} &&defined$ak{$z[283]}{$z[291]}{"saved_tab$_"});}&nl($pe,{}); exit;}sub pq{my($ns);if(defined$ad{$z[480]}){$ad{$z[480]}=~ s/\s+//g;if(defined&lq){if(!&lq($ad{$z[480]})){$ns=$z[507]; }if(!$ad{$z[480]}){$ns=$z[508];}}if(!$ad{$z[493]}){$ns=$z[509]; }if(!$ad{$z[492]}){$ns=$z[510];}if($ns){$ch{$z[450]}=$ns;$ch{$z[739]} =$ad{$z[492]};$ch{$z[503]}=$ad{$z[493]};$ch{$z[740]}=$ad{$z[480]}; &nl($z[741],\%ch)}$cg{$z[492]}=$ad{$z[492]};$cg{$z[493]}=$ad{$z[493]}; $ch{$z[478]}=int sprintf($z[479],&lq($ad{$z[480]}));$ak{$z[481]} =&lr();if(defined&ls&&$cg{$z[480]}ne$ad{$z[480]}){&ls;}}foreach (qw(uploadmax lhour_offset lmin_offset)){if(exists$ad{$_}){ $ad{$_}=int($ad{$_});}}foreach(qw(upload_height upload_width)) {if(exists$ad{$_}){$ad{$_}&&=int($ad{$_});}}foreach(grep{/_default_to$/i }keys%ad){my($ps,$ev)=/^((.*)_default_to)$/;if($ad{$ps}=~/^null$/i) {$ad{$ps}='';}$ad{$ev}||=$ad{$ps};}foreach(qw(publish_index publish_basename publish_fileext)) {$ad{$_}=~s/^\.+//;$ad{$_}=~s/\.+$//;}foreach(keys%ad){if((/^dir_/ ||/^url_/)&¬/^url_logoff$/){if(!$ad{$_}){next;}$ad{$_}=~ tr|\\|/|;if(/^url_/&&index($ad{$_},$z[532])>=0){next;}if(/^url_/ &&index($ad{$_},$z[533])>=0){next;}if(substr($ad{$_},-1,1)ne $z[289]){$ad{$_}.=$z[289];}}}my$pt=$cg{$z[742]};my$pu=$cg{$z[743]}; &mi($am{$z[157]},\%cg,1);foreach(sort keys%cg){$cg{$_}=$ad{$_} if defined$ad{$_};}&eg($am{$z[157]},\%cg,1);$ch{$z[744]}=$cg{$z[513]}; foreach(keys%cg){$ch{$z[511].$_}=$cg{$_}if/^ui_/;}$ch{$z[739]} =$cg{$z[492]};$ch{$z[503]}=$cg{$z[493]};$ch{$z[740]}=$cg{$z[480]}; $ch{$z[745]}=$cg{$z[512]};$ch{$z[746]}=$cg{$z[687]};$ch{$z[747]} =$cg{$z[748]};foreach(grep/^dir_/,keys%cg){$cg{$_}="$ak{'cgidir'}/$cg{$_}" if index($cg{$_},$z[749])==0;$cg{$_}=~tr|\\|/|;1 while$cg{$_} =~s|/[^/]+/\.\.||;}if(($pt ne$cg{$z[742]}||$pu ne$cg{$z[743]}) &&($cg{$z[742]}||$cg{$z[743]})){&pv($am{$z[25]},sub{my$pw=shift; if($cg{$z[742]}&&$pw->{$z[750]}){$pw->{$z[751]}=~s/\n/
/g; undef$pw->{$z[750]};}if($cg{$z[743]}&&$pw->{$z[752]}){$pw->{$z[753]} =~s/\n/
/g;undef$pw->{$z[752]};}});}&ac();}sub aax{&pq; foreach(keys%am){my$px=$am{$_}{$z[131]};if(defined&{$px}){&{$px}(); }}&nl($z[754],{});}sub nl{my($gi)=$_[0];my($cx)=$_[1];unless ($gi){die($z[755]."\n");}if(ref($_[1])ne$z[184]){die$z[756]."\n"; }my(%cx);if(!$ak{$z[664]}++){print$z [541]."\n\n";}&ag($z[683], {});print&ah($z[685],{});for(1..9){if($ai{$z[10]}>=$_&&$ak{$z[283]}{$z[291]}{$z[757].$_}) {$cx{$z[758]}.=&ah($z[757].$_,{});}if($ai{$z[10]}==$_&&$ak{$z[283]}{$z[291]}{$z[757].$_.$z[759]}) {$cx{$z[758]}.=&ah($z[757].$_.$z[759],{});}}$ch{$z[760]}="$ai{'name'} ($ot[$ai{'acl'}])"; $cx{$z[753]}=&ah($gi,$cx);print&ah($z[761],\%cx);print&ah($z[687], {});if($ak{$z[449]}>=2){print"

Stack Trace
"; my$dg=0;while(my($fe,$eh,$fq)=(caller($dg++))[1,2,3]){print qq!

($fq) called from ($fe) line ($eh)
\n!;}}if($ak{$z[449]}) {print"

";print"

$ak{'debug_output'}
"if($ak{$z[258]}); }&mh();exit;}sub mh{print$z [762]."\n";print$ch {$z[745]}.$z[763] .$ak{$z[93]}.$z[764].$ak{$z[98]}.$z[749].$ak{$z[95]}.")\n"; print$z [765].$ch{$z[478]}.$z[766].$ch{$z[739]}.$z[766].$ch{$z[503]} ."\n";printf($z[767]."\n",time()-$^T);print$z [768]."\n";}sub ue{my(@fo)=map"$ak{'datadir'}$am{$_}{'datafile'}",keys%am;my(@py) =($ak{$z[769]});my($oi,$fe,$pz);foreach$oi(sort@py){if($oi eq""){next;}if(!-d$oi||!-w$oi){$pz.="$oi\n";}}foreach$fe(sort @fo){$fe=~s/\\/\//g;1 while$fe=~s!/[^/]+/\.\./!/!;if(-f$fe&& !-w$fe){$pz.="$fe\n";}}if($pz){&ck($z[770],$pz);}}sub pp{return unless$ci{$z[647]};my$js=shift;&af($z[7],{$z[8]=>$js});}sub bi{return unless$ci{$z[647]};my$js=shift;$js=&gn($js);print "Content-type: text/html\n\n";print qq|\n| ;exit;}sub bk{&ag($am{$z[157]}{$z[104]},{});my%qa;my$qb;foreach $qb(keys%{$ak{$z[52]}}){my%cx=($z[771]=>$qb,$z[772]=>$ak{$z[52]}{$qb} );$qa{$qb}[0]=&ah($z[773],\%cx);$qa{$qb}[1]=&ah($z[774],\%cx); }foreach$qb(keys%{$ak{$z[52]}}){my$qc=join'',map{$qa{$_}[$qb ==$_?1:0]}sort keys%{$ak{$z[52]}};$ch{$z[775].$qb}=&ah($z[776], {$z[777]=>$qc});}}1;;sub ul{my$qd=$ak{$z[462]}{$z[778]}||={}; my$qe=shift;$qd->{$z[779]}=shift||&qf();my$qg='';$qe=&qh($qe )if$qd->{$z[779]}{$z[780]}{$z[781]}{$z[782]};$qe=~tr/\x00//d; while($qe ne''){my($gr,$ia)=&qi(\$qe);$qg.=&qj(\$gr);last unless %$ia;next if($ia->{$z[783]}eq$z[784]&¬$qd->{$z[779]}{$z[780]}{$z[785]}{$z[786]}); next if($ia->{$z[783]}eq$z[787]&¬$qd->{$z[779]}{$z[780]}{$z[785]}{$z[788]}); next if($ia->{$z[783]}eq$z[279]&¬$qd->{$z[779]}{$z[780]}{$z[785]}{$z[789]}); next if($ia->{$z[783]}eq$z[790]&¬$qd->{$z[779]}{$z[780]}{$z[785]}{$z[791]}); next if($ia->{$z[783]}eq$z[792]);my$qk;foreach$qk(@{$ia->{$z[793]}}) {next unless exists$qd->{$z[779]}{$z[794]}{$qk->{$z[795]}}; my$ql=$qd->{$z[779]}{$z[794]}{$qk->{$z[795]}}{$z[783]};if($ql eq$z[796]){&qm(\$qk->{$z[797]});}elsif($ql eq$z[798]){&qn(\$qk->{$z[797]}); }elsif($ql eq$z[799]){&qo(\$qk->{$z[797]});}&qj(\$qk->{$z[797]}); push@{$ia->{$z[800]}},$qk;}$ia->{$z[793]}=$ia->{$z[800]};if ($ia->{$z[783]}eq$z[798]){&qp(\$ia->{$z[801]});}$qg.=&qs($ia); }return$qg;}sub qj{my$qt=shift;$$qt=&qu($$qt);$$qt=~s/&(?![a-zA-Z#])/&$1/gs; return$$qt;}sub qi{my$qd=$ak{$z[462]}{$z[778]}||={};my$qe=shift; my$ia={};my($qv,$qy);$$qe=~s|^([^<]*)()||s){$ia->{$z[802]} =$z[229].$1;$ia->{$z[783]}=$z[279];}elsif($$qe=~s|^(!--.*?-->)||s) {$ia->{$z[802]}=$z[229].$1;$ia->{$z[783]}=$z[787];}elsif($$qe =~s|^(/?)([a-zA-Z0-9]+)(\s*/)?(\s*)||s){my($qv,$ra,$qy)=($1, lc$2,$3);$ia->{$z[803]}=$ra;$ia->{$z[804]}=$qv;$ia->{$z[805]} =$qy;if(not exists$qd->{$z[779]}{$z[806]}{$ra}){$ia->{$z[783]} =$z[784];}else{$ia->{$z[783]}=$qd->{$z[779]}{$z[806]}{$ra}{$z[783]} ||'';$ia->{$z[807]}=$qd->{$z[779]}{$z[806]}{$ra}{$z[807]};if ($ia->{$z[804]}){delete$ia->{$z[807]};}}if(&rb($qe,$ia)){if ($ia->{$z[807]}){my$rc="{'tagname'}";$$qe=~s/^(.*?)\Q$rc\E[^>]*?>//is ||$$qe=~s/^(.*)//s;$ia->{$z[801]}=$1;$ia->{$z[808]}=$rc.$z[230] }}else{$gr.=$ia->{$z[809]};$ia->{$z[783]}=$z[792];}}elsif($$qe =~s|^(.*?>)||s){$ia->{$z[802]}=$z[229].$1;$ia->{$z[783]}=$z[790]; }else{$$qe=~s|(.*)||s;$ia->{$z[802]}=$z[229].$1;$ia->{$z[783]} =$z[810];}return($gr,$ia);}sub rb{my$qe=shift;my$ia=shift;my ($rd,$re);if($$qe eq''){$rd=1;$re='';}else{$re=$$qe=~s/^\s*([<>])//s ?$1:'';}until($rd||$re ne''){my($rf,$eu,$rg)=('','','');if($$qe =~s/^\s*(\w+)\s*=\s*(['"])(.*?)\2//sx){($rf,$eu,$rg)=($1,$3,$2); }elsif($$qe=~s/^\s*(\w+)\s*(=\s*([^\s<>]*))?//sx){($rf,$eu) =($1,$3);}elsif($$qe=~s|^(\s*/)||sx){$ia->{$z[805]}=$1;($rf, $eu)=('','');}else{$$qe=~s/^([^<>]*)//sx;($rf,$eu)=('',$1); }if($$qe eq''){$rd=1;$re='';}else{$re=$$qe=~s/^\s*([<>])//s ?$1:'';}next if$rf eq'';my$qk={};$qk->{$z[795]}=lc$rf;$qk->{$z[797]} =&qu($eu)if($eu ne''||$rg ne'');$qk->{$z[811]}=$rg;push@{$ia->{$z[793]}}, $qk;}if(!$rd&&$re eq$z[230]){return 1;}else{$$qe=$re.$$qe;$ia->{$z[783]} ='';$ia->{$z[809]}=&qs($ia);$ia->{$z[809]}=~s/>$//;return 0; }}sub qs{my$ia=shift;return""unless(%$ia);my$rh='';my$qk;foreach $qk(@{$ia->{$z[793]}}){$rh.=" $qk->{'key'}";$rh.="=$qk->{'quote'}$qk->{'value'}$qk->{'quote'}" if($qk->{$z[797]}ne''||$qk->{$z[811]}ne'');}my$jk;if($ia->{$z[807]}) {$jk="<$ia->{'tagname'}$rh>";$jk.=$ia->{$z[801]};$jk.=$ia->{$z[808]}; }elsif($ia->{$z[783]}eq$z[787]){$jk=$ia->{$z[802]};}elsif($ia->{$z[783]} eq$z[279]){$jk=$ia->{$z[802]};}elsif($ia->{$z[783]}eq$z[790]) {$jk=$ia->{$z[802]};}elsif($ia->{$z[783]}eq$z[810]){my$gr=$ia->{$z[802]}; $jk.=&qj(\$gr);}else{$jk="<$ia->{'endflag'}$ia->{'tagname'}$rh$ia->{'emptyflag'}>"; }return$jk;}sub se{my$ri=shift;my$cv;$$ri=~s/(\\([\dA-Fa-f]{1,2}))/ my$rj=hex($2);if($rj<=255){$cv++;pack($z[358],$rj);}else{$1; }/egs;return$cv;}sub rt{my$ri=shift;my$rk=shift||0;my$cv;my $rl=32;my$rm=127;if($rk){$rl=0;}my$rn=$ak{$z[462]}{$z[778]}{$z[812]} ||=[34,38,39,60,62];$$ri=~s/(&\x23(\d+);?)/my$rj=$2;if($rj>=$rl &&$rj<=$rm&&!grep{$rj==$_}@$rn){$cv++;pack($z[358],$rj);}else {"$1";}/egs;$$ri=~s/(&\x23[xX]([\da-fA-F]+);?)/my$rj=hex($2); if($rj>=$rl&&$rj<=$rm&&!grep{$rj==$_}@$rn){$cv++;pack($z[358],$rj); }else{"$1";}/egs;$$ri=~tr/\x00//d;return$cv;}sub qp{my$qd=$ak{$z[462]}{$z[778]} ||={};my$ro=shift;my$rp=$$ro=~s|()|$2|s; my($rq,$rr)=($1,$3);my$rs='';&rt($ro);while($$ro=~s~^((\s*,?\s*(\s*([\w]+)|([.:\x23][\w-]+))+)+)(\s*{)((\s*[\w-]+\s*:\s*[-\w,\s.%/\x23():/'"]+(\s*!\s*important)?\s*;?)*)(\s*})(\s*(/\*.*?\*/)?\s*)~~sx ||$$ro=~s|^(\s*\@import\s*url\()([\w,\s.%\-/\x23():/'"]*)\)(\s*(/\*.*?\*/)?\s*)||sx ){my($ru,$rv,$rw,$rx,$ry)=($1,$6,$7,$10,$11);&qj(\$ry);if($rx) {&qn(\$rw);$rs.=$ru.$rv.$rw.$rx.$ry;}else{my($rz,$sa,$ry)=($1,$2,$3); &qm(\$sa);if($qd->{$z[779]}{$z[780]}{$z[785]}{$z[813]}){$rs .=$rz.$sa.$z[239].$ry;}}}if($rp){$rs="$rq$rs$rr";}$$ro=$rs; }sub qo{my$qd=$ak{$z[462]}{$z[778]}||={};my$sb=shift;$$sb='' unless(exists$qd->{$z[779]}{$z[814]}->{lc$$sb});}sub qm{my$qd =$ak{$z[462]}{$z[778]}||={};my$sc=shift;my$sd;&rt($sc,1);$$sc =~s/[\x00-\x1F]//gs;if($$sc=~m/^([\w\s]+):/isx){$sd=lc$1;$sd =~s/\s//gs;$$sc=''unless(exists$qd->{$z[779]}{$z[815]}->{$sd}); }else{}}sub qn{my$qd=$ak{$z[462]}{$z[778]}||={};my$ro=shift; &rt($ro);&se($ro);my($sf,$sg,$sh,$sa);my@si=split(/;/,$$ro); $sf="";my($sj,$cv);foreach$sj(@si){my($qk,$eu)=split(/:/,$sj, 2);$qk=~s/(\s*)([^\s]*)(\s*)/$2/;$eu=~s/(\s*)(.*)(\s*)/$2/s; next unless(exists$qd->{$z[779]}{$z[816]}{lc$qk});next if($eu =~m|^\s*expression|is);if($eu=~m|\s*url|is){($eu,$sa)=&sk($eu );&qm(\$sa);$eu=$z[817].$sa.$z[239];}else{&qj(\$eu);}$sf.="; " if($cv++>0);$sf.=$qk.$z[818].$eu;}$$ro=$sf;}sub sk{my$sl=shift; my$sm=0;my$ej="";my$sh="";$sl=~s/([^(]*)(\(?)(.*)/$3/sx;my($sn,$so,$sp) =($1,$2,$3);$ej=$sn;return$ej if($so eq''||$sp eq'');$sm=1; while($sm>0&&$sl ne''&&$sl=~s/^([^()]*)(.?)(.*)/$3/sx){($sn,$so,$sp) =($1,$2,$3);$sh.=$sn;if($so eq$z[237]){$sm++;$sh.=$so;}if($so eq$z[239]){$sm--;$sh.=$so if($sm>0);}}$ej.=$sp;return($ej,$sh); }sub qf{return$ak{$z[462]}{$z[778]}{$z[819]}||={$z[806]=>{$z[301] =>{},$z[820]=>{},$z[821]=>{},$z[822]=>{},$z[823]=>{$z[783]=>$z[792] },$z[824]=>{},$z[356]=>{},$z[825]=>{$z[783]=>$z[792]},$z[826] =>{$z[783]=>$z[792]},$z[827]=>{},$z[828]=>{},$z[829]=>{},$z[801] =>{$z[783]=>$z[792]},$z[830]=>{},$z[831]=>{$z[783]=>$z[792] },$z[832]=>{},$z[833]=>{},$z[834]=>{},$z[835]=>{},$z[836]=> {},$z[837]=>{},$z[838]=>{},$z[839]=>{},$z[840]=>{},$z[41]=> {},$z[841]=>{},$z[842]=>{},$z[843]=>{},$z[844]=>{},$z[845]=> {$z[783]=>$z[792]},$z[846]=>{},$z[847]=>{},$z[848]=>{$z[783]=>$z[792] },$z[849]=>{},$z[850]=>{},$z[851]=>{},$z[852]=>{},$z[853]=> {},$z[854]=>{},$z[855]=>{},$z[856]=>{},$z[857]=>{$z[783]=>$z[792] },$z[858]=>{},$z[859]=>{$z[783]=>$z[792]},$z[487]=>{},$z[860] =>{$z[783]=>$z[792]},$z[861]=>{},$z[862]=>{$z[783]=>$z[792] },$z[863]=>{},$z[864]=>{$z[783]=>$z[792]},$z[865]=>{},$z[866] =>{$z[783]=>$z[792]},$z[867]=>{},$z[868]=>{},$z[869]=>{$z[783]=>$z[792] },$z[870]=>{},$z[871]=>{},$z[872]=>{$z[783]=>$z[792]},$z[873] =>{},$z[874]=>{},$z[875]=>{$z[783]=>$z[792]},$z[876]=>{},$z[877] =>{$z[783]=>$z[792]},$z[878]=>{$z[783]=>$z[792]},$z[375]=>{ },$z[879]=>{$z[783]=>$z[792]},$z[880]=>{},$z[377]=>{},$z[382] =>{},$z[881]=>{},$z[882]=>{$z[807]=>1,$z[783]=>$z[792]},$z[883] =>{$z[783]=>$z[792]},$z[884]=>{},$z[885]=>{},$z[886]=>{},$z[887] =>{},$z[798]=>{$z[807]=>1,$z[783]=>$z[798]},$z[888]=>{},$z[889] =>{},$z[890]=>{},$z[891]=>{},$z[892]=>{},$z[893]=>{$z[783]=>$z[792] },$z[894]=>{},$z[436]=>{},$z[895]=>{},$z[896]=>{$z[783]=>$z[792] },$z[897]=>{},$z[898]=>{},$z[489]=>{},$z[899]=>{},$z[251]=> {},},$z[794]=>{$z[820]=>{},$z[900]=>{},$z[901]=>{$z[783]=>$z[796] },$z[902]=>{},$z[903]=>{},$z[904]=>{},$z[905]=>{},$z[906]=> {},$z[907]=>{},$z[908]=>{},$z[588]=>{},$z[834]=>{$z[783]=>$z[796] },$z[909]=>{},$z[910]=>{},$z[911]=>{},$z[912]=>{},$z[913]=> {},$z[914]=>{},$z[915]=>{},$z[41]=>{},$z[916]=>{},$z[917]=> {},$z[918]=>{},$z[919]=>{},$z[849]=>{},$z[920]=>{},$z[921]=> {},$z[922]=>{},$z[923]=>{$z[783]=>$z[796]},$z[924]=>{},$z[538] =>{},$z[925]=>{},$z[866]=>{},$z[926]=>{},$z[927]=>{$z[783]=> $z[796]},$z[928]=>{$z[783]=>$z[796]},$z[929]=>{},$z[930]=>{ },$z[931]=>{},$z[932]=>{},$z[933]=>{},$z[934]=>{},$z[101]=> {},$z[935]=>{},$z[936]=>{},$z[937]=>{},$z[938]=>{},$z[939]=> {},$z[940]=>{},$z[941]=>{},$z[942]=>{},$z[943]=>{},$z[944]=> {},$z[945]=>{},$z[946]=>{},$z[947]=>{},$z[580]=>{},$z[948]=> {},$z[668]=>{},$z[885]=>{},$z[949]=>{$z[783]=>$z[796]},$z[950] =>{},$z[798]=>{$z[783]=>$z[798]},$z[751]=>{},$z[951]=>{},$z[952] =>{},$z[896]=>{},$z[799]=>{$z[783]=>$z[799]},$z[953]=>{$z[783] =>$z[796]},$z[954]=>{},$z[797]=>{},$z[955]=>{},$z[956]=>{}, },$z[816]=>{$z[847]=>{},$z[957]=>{},$z[958]=>{},$z[959]=>{}, $z[960]=>{},$z[961]=>{},$z[911]=>{},$z[962]=>{},$z[963]=>{}, $z[964]=>{},$z[965]=>{},$z[966]=>{},$z[967]=>{},$z[968]=>{}, $z[969]=>{},$z[970]=>{},$z[971]=>{},$z[972]=>{},$z[973]=>{}, $z[974]=>{},$z[975]=>{},$z[976]=>{},$z[977]=>{},$z[978]=>{}, $z[979]=>{},$z[980]=>{},$z[981]=>{},$z[982]=>{},$z[983]=>{}, $z[984]=>{},$z[985]=>{},$z[986]=>{},$z[987]=>{},$z[988]=>{}, $z[989]=>{},$z[990]=>{},$z[991]=>{},$z[992]=>{},$z[993]=>{}, $z[994]=>{},$z[995]=>{},$z[996]=>{},$z[906]=>{},$z[956]=>{}, $z[922]=>{},$z[997]=>{},$z[910]=>{},$z[998]=>{},$z[999]=>{}, $z[1000]=>{},$z[1001]=>{},$z[1002]=>{},$z[1003]=>{},},$z[815] =>{$z[1004]=>{},$z[1005]=>{},$z[1006]=>{},$z[715]=>{},},$z[814] =>{$z[1007]=>{},$z[1008]=>{},$z[1009]=>{},$z[1010]=>{},$z[1011] =>{},$z[1012]=>{},$z[709]=>{},$z[301]=>{},$z[274]=>{},$z[487] =>{},$z[368]=>{},},$z[780]=>{$z[781]=>{$z[782]=>0,},$z[785] =>{$z[813]=>1,$z[791]=>0,$z[786]=>0,$z[788]=>1,$z[789]=>0,}, }};}sub aay{my$sq=shift;my$sr=shift||"xssfilter.ini";local*AB; my($ci,$ss,$st,$su,$sv,$rf,$eu);foreach$ss(sort keys%$sq){$st =$sq->{$ss};$ci.="\n[$ss]\n";foreach$su(sort keys%$st){$sv= $st->{$su};$ci.="$su";my$sw=20-length($su);$sw=0 if($sw<0); $ci.=$z[723]x$sw;$ci.=$z[1013];foreach$rf(sort keys%$sv){$eu =$sv->{$rf};$ci.="; $rf=$eu";}$ci.="\n";}}open(AB,">$sr")|| die("_XSS_filter_save_ini: Could not open ini file $sx $!\n"); print AB$ci;close(AB)||die("_XSS_filter_save_ini: Could not close ini file $sx $!\n"); }sub aaz{my$sr=shift||"xssfilter.ini";local*AB;my($sq)={};my (@ff,$eh,$fg,%fh,$fj,$eu,$su);open(AB,"<$sr")||die("_XSS_filter_load_ini: Could not open ini file $sx $!\n"); @ff=;close(AB)||die("_XSS_filter_load_ini: Could not close ini file $sx $!\n"); foreach$eh(@ff){$eh=~/^\s*#/m&&next;if($eh=~/^\s*\[/m){$fg= \%fh;foreach($eh=~/\[(.+?)\]/g){$fg=\%{$fg->{$_}};}next;}my $cv=0;foreach(split(/;/,$eh)){$cv++;my$fi=index($_,$z[250]); if($fi>0){my$fj=substr($_,0,$fi);my$eu=substr($_,$fi+1);foreach ($fj,$eu){s/^\s+//;s/\s+$//;}if($cv==1){$fg->{$fj}={};$su=$fj; }else{$fg->{$su}->{$fj}=$eu;}}elsif($fi==-1){my$fj=$_;for($fj) {s/^\s+//;s/\s+$//;}if(!length$fj){next;}if($cv==1){$fg->{$fj} ={};$su=$fj;}else{$fg->{$su}->{$fj}=1;}}}}return\%fh;}1;;sub tb{local(*AB);my($fe,%fh,$gh,$gi);%fh=%{$_[1]}if$_[1];my$sy =$_[3];my%gj;%gj=($z[276]=>0,$z[277]=>0,$z[278]=>0,$z[279]=> 0,$z[290]=>0);foreach(split(/ /,$_[2])){if(undef$gj{$_}){die($z[280]."'$_'\n"); }$gj{$_}=1;}unless($gj{$z[276]}){$gj{$z[277]}=1;}if(!$_[0]) {die$z[281]."\n";}if(ref($_[1])ne$z[184]){die$z[1014]."\n"; }if((!$gj{$z[277]}||!$ak{$z[283]}{$z[277]}{$_[0]})){if(-e"$_[0]") {$fe=$_[0];}else{foreach(grep/^templatedir/,sort keys%ak){if (-e"$ak{$_}/$_[0]"){$fe="$ak{$_}/$_[0]";last;}}if(!$fe){die $z[284]."'$_[0]'".$z[285]."\n";}}}if($gj{$z[277]}&&$ak{$z[283]}{$z[277]}{$_[0]}) {$gh=$ak{$z[283]}{$z[277]}{$_[0]};}else{open(AB,"<$fe")||die $z[286]."$fe! $!\n";binmode(AB)if($fe=~/gif$/i||$fe=~/jpg$/i); read(AB,$gh,-s AB);close(AB);}if($gj{$z[278]}){return$gh;}if (!$gj{$z[277]}||!$ak{$z[283]}{$z[277]}{$_[0]}){foreach$gi($gh =~m//g){$ak{$z[283]}{$z[291]}{"$sy$1"}=$2 if($gh=~m/(?:\r\n|\n)?(.*?)/is); }$gh=~s/(?:\r\n|\n)?(.*?)//gis; if($gj{$z[277]}){$ak{$z[283]}{$z[277]}{$_[0]}=$gh;}}if($gj{$z[279]}) {while($gh=~//i){my$sz=$1; my$gk=$sz;$gk=~s/\$(\w+?)\$/defined$ch{$1}?$ch{$1}:$fh{$1}/eg; unless($gk){$gh=~s///;next; }if($gk=~m!^/!){;}else{if($_[4]){$gk="$_[4]$gk";}else{$gk=($fe =~m!(.*/)!)[0].$gk;}}my$gm;if(not$ak{$z[283]}{$z[1015]}{$gk}++) {my$ta;if(-e"$gk"){$ta++;}else{foreach(grep/^templatedir/,sort keys%ak){if(-e"$ak{$_}/$gk"){$ta++;last;}}}if($ta){$gm=&tb($gk, $_[1],"$_[2] inside_ssi",$z[1016],$_[4]);}else{$gm="[ Program Error - Could not include file \"$gk\" via template include ]"; }}else{$gm="[ Program Error - Cyclic Include - The file '$gk' is included by itself (perhaps indirectly). Please check include files for other Include statements. ]"; }$gh=~s//$gm/;delete$ak{$z[283]}{$z[1015]}{$gk}; }}else{$gh=~s///gi;}$gh=~s//$1/gi; $gh=~s[\$(\w+?)(_ue|_he|_nbsp|_je)?\$][my$eu=defined$ch{$1} ?$ch{$1}:$fh{$1};if($2 eq$z[292]){$eu=&gn($eu);}if($2 eq$z[293]) {$eu=&go($eu);}if($2 eq$z[294]){$eu=&go($eu);$eu=~s/ / /g; }if($2 eq$z[295]){$eu=&gp($eu);}$eu;]ge;return$gh;}sub tg{my ($ie,$pw,$sy)=@_;$ie=~s|
(\s*\*\*\*image\d+(?:\:(\w+))?\*\*\*)|
$1|gsi; $ie=~s[\s*\*\*\*image(\d+)(?:\:(\w+))?\*\*\*\s*][if($2 eq$z[796]) {$pw->{$z[1017].$1}}else{my%tc;$tc{$z[1018]}=$2||$ci{$z[1019]}{$z[1020]} ||$z[1021];$tc{$z[1022]}=$pw->{$z[1017].$1};$tc{$z[1023]}=$pw->{$z[832] .$1};$tc{$z[1024]}=$pw->{$z[1025].$1};$tc{$z[1026]}=$pw->{$z[1027] .$1};&ah($sy.($tc{$z[1023]}ne''?$z[1023]:$z[1028]),\%tc);}]eigo; return$ie;}sub xz{my($cx,$pw,$sy,$td,$te,@tf)=@_;$cx->{$z[1029]} =&tg($td,$pw,$sy);$cx->{$z[1030]}=&tg($te,$pw,$sy);my$dg;for $dg(1..$ak{$z[58]}){$cx->{$z[1031].$dg}=&tg($tf[$dg-1],$pw, $sy);}}sub zm{my($cx,$td,$te,@tf)=@_;($cx->{$z[1029]}=$td)=~ s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;($cx->{$z[1030]}=$te) =~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g;my$dg;for$dg(1..$ak{$z[58]}) {($cx->{$z[1031].$dg}=$tf[$dg-1])=~s/\s*\*\*\*image\d+(\:\w+)?\*\*\*\s*//g; }}sub ys{my$gh=shift;my$ig=$ch{$z[1032]}||&ob($ak{$z[570]}, $cg{$z[1032]}||$^T);my$th=$z[1033].$ak{$z[44]}.$z[1034];$$gh =$z[1035].$ig.$z[1036].$ak{$z[44]}.$z[1037]."\n\n".$$gh;unless ($$gh=~s/(]+>)/$th\n$1/is){$$gh=~s/(]*>)/$1\n$th\n/i; }}sub hs{my$jk;eval{local$SIG{$z[1038]}=undef;local$SIG{$z[1039]} =undef;$jk=timelocal(@_);};if($@){$jk=0;}return$jk;}sub hr{ my$jk;eval{local$SIG{$z[1038]}=undef;local$SIG{$z[1039]}=undef; $jk=timegm(@_);};if($@){$jk=0;}return$jk;}sub vy{if(!$cg{$z[1040]} ||(scalar(@{$ak{$z[1041]}})<1)){return;}my$pw=shift;my%ti=%{$pw}; my($tj,$tk,$tl,$tm)=(1..4);if($ak{$z[449]}){if(scalar(@{$ak{$z[1041]}}) >1){my%tn=map{$_,1}("$tj,$tk","$tk,$tl","$tk,$tm");my$to=join($z[1042], sort{$a<=>$b}@{$ak{$z[1041]}});unless(exists$tn{$to}){&ck("Invalid notification events combination: $to"); }}}my%tp;@tp{$z[542],$z[670]}=(split(/\s*,\s*/,$ci{$z[1043]}{$z[1044]})); $tp{$z[542]}||=$z[542];$tp{$z[670]}||=$z[670];my@tq=($z[1045], split(/\s*,\s*/,$ci{$z[1043]}{$z[1046]}));$tq[1]||=$z[1047]; $tq[2]||=$z[1048];$tq[3]||=$z[1049];$tq[4]||=$z[592];my(@ts, %tt,$tu);$ti{$z[1050]}=$ai{$z[101]};$ti{$z[1051]}=(grep/^$tj$/, @{$ak{$z[1041]}})?$tp{$z[542]}:$tp{$z[670]};$ti{$z[1052]}=(grep /^$tm$/,@{$ak{$z[1041]}})?$tq[4]:$tq[$pw->{$z[1052]}];foreach (keys%ti){$ti{$z[1053].$_}=$ti{$_};}foreach(1..$ak{$z[58]}) {$ti{$z[1031].$_}=$ti{$z[1054].$_};}$ti{$z[1055]}=$cg{$z[526]}; $ti{$z[523]}=$cg{$z[523]};$ti{$z[1056]}=$cg{$z[523]}.$cg{$z[1057]} .$z[749].$cg{$z[1058]};$ti{$z[1059]}=$cg{$z[1060]}.$z[749]. $cg{$z[1058]};$ti{$z[1061]}=$cg{$z[1062]}.$z[749].$cg{$z[1058]}; $ti{$z[1063]}=$cg{$z[1060]}.$ti{$z[1064]}.$z[749].$cg{$z[1058]}; ;$ti{$z[1065]}=$cg{$z[1066]}.$ti{$z[1064]}.$z[749].$cg{$z[1058]}; $ti{$z[1067]}=$cg{$z[1068]}.$z[749].$cg{$z[1058]};$ti{$z[1069]} =$cg{$z[1070]}.$z[749].$cg{$z[1058]};$ti{$z[1071]}=$cg{$z[523]} .($cg{$z[1072]}&&$ti{$z[472]}?$cg{$z[1073]}.$ti{$z[472]}:$cg{$z[1073]} .$ti{$z[464]}).$z[749].$cg{$z[1058]};$ti{$z[1032]}=&ob($ak{$z[570]}, &of($cg{$z[1032]}))if($cg{$z[1032]});@ts=($ti{$z[568]},$ti{$z[566]} -1,$ti{$z[567]},$ti{$z[1074]}+($ti{$z[316]}eq$z[1075]?12:0), $ti{$z[1076]});$ti{$z[1077]}=&ob($ak{$z[569]},@ts);$ti{$z[1078]} =&ob($ak{$z[1079]},@ts);&mi($am{$z[31]},\%tt,$ti{$z[1064]}); $ti{$z[1080]}=$tt{$z[101]};$tu=$tt{$z[1081]}?$tt{$z[1082]}: $cg{$z[1083]}.$ti{$z[1064]};$ti{$z[1084]}=$cg{$z[523]}.$tu. $z[749].$cg{$z[1058]};$ti{$z[1085]}=$ti{$z[1064]};$ti{$z[1086]} =$cg{$z[1086]};if($pw->{$z[1052]}==2){if($pw->{$z[1087]}==1) {$ti{$z[1088]}=$ti{$z[1089]}=$cg{$z[523]}.($cg{$z[1072]}&&$ti{$z[1090]} ?$ti{$z[472]}:$cg{$z[1091]}.$ti{$z[1092]}).$z[749].$cg{$z[1058]}; }else{$ti{$z[1088]}=$ti{$z[1089]}=$ti{$z[1084]}.$z[533].$pw->{$z[464]}; }}else{$ti{$z[1088]}=$ti{$z[1089]}=$ti{$z[1084]};}$ti{$z[1093]} =$cg{$z[1093]};$ti{$z[1094]}=$cg{$z[1094]}||$cg{$z[1093]};my $pj;local(*AJ);open(AJ,"<$ak{'templatedir1'}/email/notify.txt") ||&ck("Unable to open email template");read(AJ,$pj,-s AJ);close(AJ); my($pk,$pl);if($pj=~/^\s*Subject: *([^\r\n]*?)(\r\n|\r|\n)\s*Body: *([^ ].*)$/si) {$pk=$1;$ak{$z[283]}{$z[277]}{$z[1095]}=$3;$pk=~s/\$(.*?)\$/$ti{$1}/g; $pl=&ag($z[1095],\%ti,$z[277]);}else{&ck($z[1096]);}my$tv=$pw->{$z[31]}; my$tw=$z[1097];my@tx;my$dc=sub{my$ty=shift;if($ty->{$z[1098]} ||$ty->{$z[1099]}=~/(^|,)$tv(,|$)/){if($ty->{$z[10]}==1){return; }if(!$ty->{$z[1043]}||!&pi($ty->{$z[1043]})){return;}$ty->{$z[101]} ||=$ty->{$z[1043]};my$tz;foreach$tz(split(/,/,$ty->{$z[1100]})) {if(grep/^$tz$/,@{$ak{$z[1041]}}){push(@tx,qq|"$ty->{'name'}" <$ty->{'email'}>|); last;}}}};&pd($am{$z[67]},$dc);if(scalar(@tx)){my$ua;if(length($ci{$z[1043]}{$z[1101]})) {$ua=qq|To: $ci{'email'}{'notifications_to_field'}\n|;}my$ub =join($z[1102],@tx);$ua.=qq|Bcc: $ub|;my$pm=qq|From: "$ti{'mail_sender_name'}" <$ti{'mail_sender_email'}>\n$ua\nSubject: $pk\n$tw\n| ;&pn("$pm\n$pl");}}1;;%ci=&ud("$cn/config.ini");$ch{$z[1103]} =$ci{$z[562]}{$z[905]}||"#336699";$ak{$z[769]}=$ci{$z[769]} ||$z[1104];$ak{$z[470]}=$ci{$z[470]}||$z[1105];$ak{$z[570]} =$ci{$z[562]}{$z[570]}||$z[1106];$ak{$z[569]}=$ci{$z[562]}{$z[569]} ||$z[1107];$ak{$z[1079]}=$ci{$z[562]}{$z[1079]}||$z[386];umask oct($ci{$z[1108]})if$ci{$z[1108]};@ot[0,1,2,3,4,9]=($z[1109],split(/\s*,\s*/, $ci{$z[317]}{$z[1110]}));&ck("macftp")if$z[1111]ne"\xA1";&ck($z[1112]) if$ENV{$z[1113]}&&!$ci{$z[1114]};%ak=(%ak,$z[475]=>$cn,$z[1115] =>$cl,$z[1116]=>$cl,$z[1117]=>$z[1118],$z[1119]=>$z[1120],$z[1121] =>$z[1122],$z[664]=>0,);foreach(qw(datadir filelock templatedir1 templatedir2 templatedir3 archive)) {if(ref($ak{$_})){next;}$ak{$_}="$cn/$ak{$_}"if(index($ak{$_},$z[749]) ==0);$ak{$_}=~s|\\|/|g;1 while$ak{$_}=~s|/[^/]+/\.\./|/|;}&ue; &uf if($ENV{$z[262]});%cj=&ug();&mi($am{$z[157]},\%cg,1);if ($cg{$z[1123]}<$ak{$z[93]}){&uh($cg{$z[1123]});}foreach(grep /^dir_/,keys%cg){$cg{$_}="$ak{'cgidir'}/$cg{$_}"if index($cg{$_},$z[749]) ==0;$cg{$_}=~tr|\\|/|;1 while$cg{$_}=~s|/[^/]+/\.\.||;}if(!$ENV{$z[527]}) {if($ARGV[0]=~/^publish$/i){&ui();}print$z [1124],"\n\n";exit; }foreach(qw(prog_name prog_name2 prog_ver cgidir cgiurl)){$ch{$z[511].$_} =$ak{$_};}foreach(qw(url_help reg1 reg2 reg3)){$ch{$z[511].$_} =$cg{$_};}$ch{$z[744]}=$cg{$z[513]};$ch{$z[745]}=$cg{$z[512]}; $ch{$z[746]}=$cg{$z[687]};$ch{$z[1125]}||=$cg{$z[512]};%ad= &uj();if($ci{$z[1126]}){my($uk,$rf);if(-e"$ak{'cgidir'}/xssfilter.ini") {$uk={&ud("$ak{'cgidir'}/xssfilter.ini")};}$uk->{$z[780]}{$z[785]}{$z[789]} ||=$ci{$z[1127]};foreach$rf(keys%ad){if(defined($ad{$rf})&& length($ad{$rf})&&($rf!~/^ufile/)&&($rf!~/_multi$/)){$ad{$rf} =&ul($ad{$rf},$uk);if($rf eq$z[869]){&qm(\$ad{$z[869]})}}}} &um if defined&um;if(defined&um&&!$ch{$z[478]}&&int(rand(50)+1)==1) {print$z [490],"\n\n";exit;}$ak{$z[558]}={$z[584],\&un,$z[559], \&uo,$z[560],\&ax,$z[133],\&up,$z[497],\&cc,$z[1128],\&uq,$z[89], \&uq,};}sub ck{my($ur)=$ch{$z[1129]};my($fn,$us,$ut)=@_;my(%uu,$ns,$uv,$uw, $ux,$uy);$us=&fr($us);$ch{$z[1103]}||="#336699";my($uz,$va) =(1,2);%uu=($z[586]=>[("Can't find record # $us","The program can't find the specified record number in the database. This is usually because the record has already been erased. Reload the record list and try again.", $uz)],$z[770]=>[("Warning: File/Directory not writeable!","This web application needs to be able to create and update it's data files. Please ask your server administrator to make the following files and directories writeable:

$us", $va)],$z[470]=>[("Filelock Error!","This web application uses 'file locks' to ensure than only one user can update data at a time. The program was halted while in the middle of writing/accessing data because it could not obtain a filelock. Please ask your server administrator to fix the permissions (you need read-write access on your data directory).

For your reference, the filelock error was: '$us'.", $va)],$z[474]=>[($z[1130],$z[1131],$va)],$z[1132]=>[("Warning: Program corrupted during upload!", "This is usually caused by Mac FTP clients that have an \"Translate ISO characters\" setting enabled.

If you are using a Mac, try disabling this setting and re-uploading all the files, otherwise, contact support for assistance. ", $uz)],$z[1133]=>[("Publishing Error","The program cannot create or write to the file:

$us

Please ask your server administrator to make sure the publish directory and publish file(s) are writable.", $va)],$z[1112]=>[("Program doesn't support mod_perl","Your server is running $ENV{MOD_PERL}

This program doesn't support mod_perl. Please ask your server administrator to disable mod_perl for this program.", $uz)],$z[3]=>[($z[1134],$z[1135],$uz)],$z[1136]=>[("No such file or directory", "The program can't find the file or directory it's looking for. Please make sure the following file or directory exists:

$us", $uz)],$z[1137]=>[("Permission denied","The program doesn't have permission to access a required file. Please make sure the program has read and write access to the following directories and files:

$us", $va)],$z[249]=>[("File System Error!","The program is unable to access a required file. Please contact your server administrator or technical support for assistance.

The error was: $us", $va)],);my($vb)=$ch{$z[745]}||$uu{$fn}[0]||"Program Message"; if($uu{$fn}[0]){$uv=$uu{$fn}[0];}elsif($us&&$fn){$uv=&fr($fn); }else{$uv="Program Message";}$ns=$uu{$fn}[1]||$us||&fr("@_"); if(!$uu{$fn}[1]){$ns=~s/\n/

\n/g;}my$vc=$z[1138]if$ak{$z[708]}; $uy=qq||;$ux=qq|  |; if($uu{$fn}[2]==$va){$uw=$ux;}else{$uw=$uy;}if(!$ENV{$z[527]}) {$ns=~s/(<.*?>)+/\n/g;print"\n\nFatal Error: $uv\n\n$ns\n\n"; exit;}if($ak{$z[449]}){$ns.="

Stack Trace
";$ns .="

"; my$dg=0;while(my($fe,$eh,$fq)=(caller($dg++))[1,2,3]){$fe=~ s/^.*[\/\\]//;$fq=~s/^main:://;unless($fq=~s/__ANON__/(anonymous)/) {$fq=$z[257].$fq;}$ns.=qq!!; $ns.=qq!!; $ns.=qq!!; $ns.=qq!!; $ns.=qq!\n!;}$ns.="
 $fe ($eh)  called $fq 

"; }if(!$ak{$z[664]}++){print"Cache-Control: no-cache\nPragma: no-cache\nExpires: -1\n"; print"Content-type: text/html\n\n";}print qq|\n \n $vb\n \n \n\n

\n
\n
\n
\n \n

$uv

\n $ns\n

$uw
\n
\n
\n
\n
\n
\n| ;if($ak{$z[449]}&&$ak{$z[258]}){print"

"; print"

$ak{'debug_output'}"if($ak{$z[258]});print"";
}if($fn ne$z[474]){if($ak{$z[1139]}){rmdir($ak{$z[470]})&&undef
$ak{$z[1139]};}}&mh();exit;}sub uh{my$vd=shift||1.0;&fb("Software has been updated from version $vd to $ak{'prog_ver'}");
if($vd<1.05){$cg{$z[1140]}||=$z[1141];$cg{$z[1142]}||=5;}if
($vd<1.11){$cg{$z[1143]}=1;$cg{$z[512]}=" : ".$cg{$z[512]}if 
defined$cg{$z[512]};$cg{$z[512]}=$ak{$z[44]}.$cg{$z[512]};$cg{$z[687]}
=$z[1144];$cg{$z[1145]}=1;($cg{$z[530]}=$cg{$z[526]})=~s/search.cgi/view.cgi/i;
}if($vd<1.20){$cg{$z[1146]}="spare20";$cg{$z[1147]}="1";$cg{$z[1148]}
="1";$cg{$z[1149]}="stamp";$cg{$z[1150]}="1";$cg{$z[1151]}=
"1";my$mw;foreach$mw(1..12){if($cg{$z[1152].$mw}ne''){$cg{$z[1153].$mw}
=1;}}foreach$mw(13..19){$cg{$z[1154].$mw}=$mw;}$cg{$z[1155]}
="Featured (Show this article first in lists)";$cg{$z[1156]}
="0";$cg{$z[1157]}="4";$cg{$z[1153]}="1";$cg{$z[1158]}="Summary";
$cg{$z[1159]}="Content";$cg{$z[1160]}=1;$cg{$z[1161]}=1;}if
($vd<1.21){my$dc=sub{my$eo=shift;unless($eo->{$z[568]}||$eo->{$z[101]})
{$eo->{$z[464]}='';}};&pv($am{$z[25]},$dc);}if($vd<1.22){$cg{$z[1162]}
="1";}if($vd<1.25){my$dc=sub{my$eo=shift;unless(length($eo->{$z[1163]}))
{$eo->{$z[1027]}=$eo->{$z[1025]}='';}};&pv($am{$z[31]},$dc);
&mm($z[1164],'');}$cg{$z[1123]}=$ak{$z[93]};&eg($am{$z[157]},
\%cg,1);}sub vp{my$ve=shift;my$dc=sub{my$tt=shift;return unless
($ai{$z[10]}==9||$ai{$z[1165]}||$ak{$z[9]}{$tt->{$z[464]}});
my$vf=($ve==$tt->{$z[464]})?$z[1166]:'';$ch{$z[37]}.=qq|\n|;
};&pd($am{$z[31]},$dc);}sub aw{my$am=shift;my($dp,$dq);my$ny
={$z[561]=>$ci{$z[562]}{$z[561]},$z[563]=>1,$z[564]=>'',$z[31]
=>'',$z[1052]=>'',};$ny=&nz($am,$ny);$ch{$z[1167]}=qq|\n|;
my%vg;my$vh=sub{my$tt=shift;return unless($ai{$z[10]}==9||$ai{$z[1165]}
||$ak{$z[9]}{$tt->{$z[464]}});$vg{$tt->{$z[464]}}=$tt->{$z[101]};
my$vf=($ny->{$z[31]}==$tt->{$z[464]})?$z[1166]:'';$ch{$z[1167]}
.=qq|\n|;
};&pd($am{$z[31]},$vh);push(@$dp,[$z[601],$z[228],$ai{$z[464]}
])if($ai{$z[10]}<4);if($ai{$z[10]}<9&&!$ai{$z[1165]}){push(@$dp,
[$z[31],$z[236],[keys%{$ak{$z[9]}}]]);}push(@$dq,[$z[31],$z[228],
$ny->{$z[31]}]);push(@$dq,[$z[1052],$z[228],$ny->{$z[1052]}
]);foreach(split(/\s+/,$am->{$z[128]})){push(@$dq,[$_,$z[226],
$ny->{$z[564]}]);}my$dc=sub{my$oa=shift;if(!defined$oa->{$z[565]}
&&$oa->{$z[566]}){my$ig=&hs(0,0,0,$oa->{$z[567]},$oa->{$z[566]}-1,$oa->{$z[568]});
$oa->{$z[565]}=&ob($ak{$z[569]},$ig);}$oa->{$z[542]}=&ob($ak{$z[570]},int($oa->{$z[542]}))
if$oa->{$z[542]};$oa->{$z[543]}=&ob($ak{$z[570]},int($oa->{$z[543]}))
if$oa->{$z[543]};$oa->{$z[1052]}=($z[1045],$z[1047],$z[1048],
$z[1049])[$oa->{$z[1052]}];$oa->{$z[1168]}=$vg{$oa->{$z[31]}};
if(not defined$oa->{$z[1168]}){$oa->{$z[1168]}="(Unsorted)";
}$ch{$z[571]}=$ch{$z[571]}eq$z[572]?$z[573]:$z[572];return&ah($z[574],$oa);
};my$cx=&oc($am,$dc,$ny,$dp,$dq);&od($cx);}sub vq{my$pw=shift
||{};my$mw;foreach$mw(sort{(($cg{$z[1154].$a}eq''?999:$cg{$z[1154].$a})
<=>($cg{$z[1154].$b}eq''?999:$cg{$z[1154].$b}))||($a<=>$b)}
1..$ak{$z[58]}){next unless$cg{"sfield_enabled$mw"};my%cx=(
$z[464]=>$mw,$z[101]=>$cg{"sfield_name$mw"},);if($cg{"sfield_type$mw"}
==1){$cx{$z[797]}=$pw->{"spare$mw"};$ch{$z[58]}.=&ah($z[1169],
\%cx);}elsif($cg{"sfield_type$mw"}==2){($cx{$z[101]},my$vi)
=$cx{$z[101]}=~/([^(]+)\s+\((.+)\)/;$vi=~s/(^|[^\\]),/$1 ,/g;
my($vj,$vk);foreach$vj(split(/ ,/,$vi)){$vj=~s/\\,/,/go;$vj
=~s/(^\s+|\s+$)//go;$vk=$vj;if(length($vk)>28){my$vl=substr($vk,
0,20);my$vm=substr($vk,20,8);$vm.=$z[476]unless($vm=~s/\s\S*?$/\.\.\./);
$vk=$vl.$vm;}$vk=&fr($vk);$cx{$z[1170]}.=$z[1171].($pw->{$z[1172].$mw}
eq&fr($vj)?$z[1166]:'').$z[1173].&fr($vj).$z[442].$vk.$z[1174];
}$ch{$z[58]}.=&ah($z[1175],\%cx);}elsif($cg{"sfield_type$mw"}
==3){$cx{$z[797]}=$pw->{"spare$mw"};if(exists($pw->{"format_spare$mw"})
&&$pw->{"format_spare$mw"}){$cx{$z[1176]}=$z[588];}elsif(!exists($pw->{"format_spare$mw"})
&&$cg{$z[1177]}){$cx{$z[1176]}=$z[588];}$ch{$z[58]}.=&ah($z[1178],
\%cx);}elsif($cg{"sfield_type$mw"}==4){if($cx{$z[101]}=~/([^(]+)\s+\((.+)\)/)
{($cx{$z[101]},$cx{$z[1179]})=($1,$2);}else{$cx{$z[1179]}=$cx{$z[101]};
$cx{$z[101]}=$z[1180];}$cx{$z[588]}=$pw->{"spare$mw"}?$z[1181]
:'';$ch{$z[58]}.=&ah($z[1182],\%cx);}elsif($cg{"sfield_type$mw"}
==5){$cx{$z[797]}=$pw->{"spare$mw"};if(exists($pw->{"format_spare$mw"})
&&$pw->{"format_spare$mw"}){$cx{$z[1176]}=$z[588];}elsif(!exists($pw->{"format_spare$mw"})
&&$cg{$z[1177]}){$cx{$z[1176]}=$z[588];}$ch{$z[58]}.=&ah($z[1183],
\%cx);$ch{$z[1184]}.=&ah($z[1185],{n=>$mw});}}if($ch{$z[58]})
{$ch{$z[58]}.=q| |;
}}sub ac{my@vn;my$dg;foreach$dg(1..3){my$vo=$cg{"sort${dg}field"};
next unless$vo;$vo="#$vo#"if$cg{"sort${dg}numeric"};$vo="-$vo"
if$cg{"sort${dg}reverse"};push@vn,$vo;}$am{$z[25]}{$z[129]}
=join($z[723],@vn);}sub al{my$am=shift;my$cx=&nh($am);if($cg{$z[1177]})
{$cx->{$z[1186]}=$z[588];$cx->{$z[1187]}=$z[588];}$cx->{$z[1188]
.$cg{$z[1189]}.$z[587]}=$z[588];$cx->{$z[1190]}=&ah($z[1191],
{});&vp(0);&vq();my$vr=(localtime(&of($^T)))[5]+1900;$cx->{$z[1192]}
="";my$vs=int($ci{$z[1019]}{$z[1193]})||2000;my$vt=int($ci{$z[1019]}{$z[1194]})
||2024;if($vs<1980){$vs=1980;}if($vt>2032){$vt=2032;}my$hc;
foreach$hc($vs..$vt){my$vf;if($vr==$hc){$vf=" selected";}$cx->{$z[1192]}
.=qq|\n|;
}closedir AC;return$cx;}sub ba{my$am=shift;$ch{$z[1236]}=&wl($z[1237],
$z[1238]);$ch{$z[1239]}=&wl($z[1240],$z[1241]);$ch{$z[1242]}
=&wl($z[1243],$z[1244]);$ch{$z[1245]}=&wl($z[1246],$z[1244]);
$ch{$z[1247]}=$z[588];$ch{$z[1083]}=$cg{$z[1083]};$ch{$z[1058]}
=$cg{$z[1058]};$ch{$z[464]}=$z[309];$ch{$z[1248]}=$z[588];$ch{$z[1249]}
=$cg{$z[1250]};$ch{$z[1251]}=$cg{$z[1252]};&un($am);}sub bb
{my$am=shift;my$cx=&nj($am);&nk($am,$cx);$cx->{$z[1236]}=&wl($cx->{$z[1253]},
$z[1238]);$cx->{$z[1239]}=&wl($cx->{$z[1254]},$z[1241]);$cx->{$z[1242]}
=&wl($cx->{$z[1255]},$z[1244]);$cx->{$z[1245]}=&wl($cx->{$z[1256]},
$z[1244]);$cx->{$z[1083]}=$cg{$z[1083]};$cx->{$z[1058]}=$cg{$z[1058]};
$cx->{$z[1249]}=$cg{$z[1250]};$cx->{$z[1251]}=$cg{$z[1252]};
&nl($z[559],$cx);exit;}sub be{my$ne=shift;if($ad{$z[1081]}&&
$ad{$z[1082]}ne''){&pp($z[1257].$z[43].$ak{$z[44]}.$z[1258]);
}my(%wm,$oi);foreach$oi('',$z[1259],$z[1260],$z[1261]){opendir 
AC,$ak{$z[1117]}.$z[289].$oi;%wm=(%wm,map{$oi.$_,1}grep{not
-d"$ak{'templatedir1'}/$oi$_"}readdir(AC));closedir AC;}foreach
($z[1253],$z[1255],$z[1254]){unless($wm{$ad{$_}}){&ck($z[1262]);
}}my($nq,$ns)=&nr($ne);&nt($ne,$nq);&nu($ne,$nq);if($ad{$z[1081]})
{my$wn;&pd($am{$z[31]},sub{$wn=(shift)->{$z[101]}},undef,[[
$z[1082],$z[228],$ad{$z[1082]}],[$z[1081],$z[228],1],[$z[464],
$z[233],$nq->{$z[464]}]]);&nl($z[1263],{$z[1264]=>$wn,%ad})
if defined$wn;}&nv($ne,$nq);my$dc=sub{my$ty=shift;my(%wo,%wp);
if($ty->{$z[1165]}){%wo=map{$_,1}split(/,/,$ty->{$z[9]});$wo{$ad{$z[464]}}
=1;$ty->{$z[9]}=join($z[1042],keys%wo);}if($ty->{$z[1098]})
{%wp=map{$_,1}split(/,/,$ty->{$z[1099]});$wp{$ad{$z[464]}}=
1;$ty->{$z[1099]}=join($z[1042],keys%wp);}};&pv($am{$z[67]},
$dc);&nw($ne,$ns);&nx($ne);}sub bf{my$am=shift;my($dp,$dq);
my$ny={$z[561]=>$ci{$z[562]}{$z[561]},$z[563]=>1,$z[564]=>'',
};$ny=&nz($am,$ny);foreach(split(/\s+/,$am->{$z[128]})){push(@$dq,
[$_,$z[226],$ny->{$z[564]}]);}my$dc=sub{my$oa=shift;if(!defined
$oa->{$z[565]}&&$oa->{$z[566]}){my$ig=&hs(0,0,0,$oa->{$z[567]},$oa->{$z[566]}-1,$oa->{$z[568]});
$oa->{$z[565]}=&ob($ak{$z[569]},$ig);}$oa->{$z[542]}=&ob($ak{$z[570]},int($oa->{$z[542]}))
if$oa->{$z[542]};$oa->{$z[543]}=&ob($ak{$z[570]},int($oa->{$z[543]}))
if$oa->{$z[543]};$oa->{$z[1048]}=($z[1265],$z[1266])[$oa->{$z[1049]}];
$ch{$z[571]}=$ch{$z[571]}eq$z[572]?$z[573]:$z[572];return&ah($z[574],$oa);
};my$cx=&oc($am,$dc,$ny,$dp,$dq);&od($cx);}sub bg{my$wq;my$wr
=$ad{$z[38]};my$ws;my@wt;my@dj;my$dc=sub{my$tt=shift;push@wt,
$tt->{$z[464]};push@dj,$tt->{$z[212]};if($tt->{$z[464]}==$wr)
{$wq=$#wt;}};&pd($am{$z[31]},$dc);unless(defined$wq){&ck("norecord");
}$ws=$dj[$wq];my$wu=$wq+($ad{$z[41]}eq$z[1267]?-1:1);if($wu
<0||$wu>$#wt){&bf($am{$z[31]});}my$wv=$wt[$wu];my$ww=$dj[$wu];
$dc=sub{my$tt=shift;if($tt->{$z[464]}==$wr){$tt->{$z[212]}=
$ww;}if($tt->{$z[464]}==$wv){$tt->{$z[212]}=$ws;}};&pv($am{$z[31]},
$dc);&wx($z[25]=>[])if$cg{$z[1268]};&bf($am{$z[31]});}sub bh
{my$wy=$am{$z[31]}{$z[129]};$am{$z[31]}{$z[129]}=$z[101];my
$cv;my$dc=sub{my$tt=shift;$tt->{$z[212]}=++$cv;};&pv($am{$z[31]},
$dc,undef,$z[1269]);&wx($z[25]=>[])if$cg{$z[1268]};$am{$z[31]}{$z[129]}
=$wy;$ad{$z[36]}++;&bf($am{$z[31]});}sub bc{my$am=shift;my($wz,
$xa,$xb);my$dc=sub{my$pw=shift;if($pw->{$z[31]}==$ad{$z[33]})
{$wz++;}};&pd($am{$z[25]},$dc);&pd($am{$z[69]},sub{my$xc=shift;
my$xd={%{$am{$z[25]}}};$xd->{$z[106]}="archive$xc->{'num'}.dat";
&pd($xd,sub{my$pw=shift;if($pw->{$z[31]}==$ad{$z[33]}){$xa++;
}});});if($wz||$xa){$wz.=($wz>1?$z[1270]:$z[1271]);$xa.=($xa
>1?$z[1272]:$z[1273]);$ch{$z[1274]}=join($z[1275],$wz,$xa);
$xb="_cascade";}if(!$cg{$z[560]}&&!$xb){&cf($am,$z[133]);}my
$cx=&nm($am);&nl($z[1276].$xb.$z[1277],$cx);exit;}sub bd{my
$am=shift;my$cx=&nn($am);my$dc=sub{my$pw=shift;if($pw->{$z[31]}
eq$cx->{$z[464]}){$pw->{$z[464]}='';}};&pv($am{$z[25]},$dc);
&fb("cat_erase: begin killing archived children");&pv($am{$z[69]},
sub{my$xc=shift;&fb("cat_erase: archive $xc->{'num'}");my$xd
={%{$am{$z[25]}}};$xd->{$z[106]}="archive$xc->{'num'}.dat";
my$cv=0;&pv($xd,sub{my$pw=shift;&fb("cat_erase: article $pw->{'num'}");
if($pw->{$z[31]}==$cx->{$z[464]}){&xe($pw->{$z[464]},$pw);$pw->{$z[464]}
='';}else{$cv++;}});&fb("cat_erase: count = $cv");$xc->{$z[1278]}
=$cv;});$dc=sub{my$ty=shift;my%wo=map{$_,1}split(/,/,$ty->{$z[9]});
delete$wo{$cx->{$z[464]}};$ty->{$z[9]}=join($z[1042],keys%wo);
my%wp=map{$_,1}split(/,/,$ty->{$z[1099]});delete$wp{$cx->{$z[464]}};
$ty->{$z[1099]}=join($z[1042],keys%wp);};&pv($am{$z[67]},$dc);
&wx($z[1279]=>1)if$cg{$z[1268]};&np($am,$cx);}sub bl{my$ev=
shift;&pq;&ag($am{$z[157]}{$z[104]},{});print&nl($z[1280],{
$z[1281]=>$ev});exit;}sub bm{my$ev=shift;do{my%cg;&mi($am{$z[157]},
\%cg,1);undef$cg{$z[1282].$ev};undef$cg{$z[1152].$ev};undef
$cg{$z[1153].$ev};&eg($am{$z[157]},\%cg,1);};my$dc=sub{my$pw
=shift;undef$pw->{"spare$ev"};};&pv($am{$z[25]},$dc);&ag($am{$z[157]}{$z[104]},
{});print&nl($z[1283],{$z[1281]=>$ev});exit;}sub xm{my$kx;foreach
$kx(1,2,3,4,9){my$vf=$kx==$_[0]?$z[1166]:'';$ch{$z[1284]}.=
qq|\n|;}}sub xn{my($xf,
$wo,$xg)=@_;my@xh;my$xi=$z[1285];my$dc=sub{my$xj=shift;my$xk
=$z[1181]if($xf||$wo=~/(^|,)$xj->{'num'}(,|$)/);my$xl=$z[1181]
if$xg=~/(^|,)$xj->{'num'}(,|$)/;$xi=$xi eq$z[1285]?$z[1286]
:$z[1285];$ch{$z[1287]}.=qq|$xj->{'name'}\n|;
push(@xh,$xj->{$z[464]});};&pd($am{$z[31]},$dc);$ch{$z[1288]}
=join($z[1289],@xh);}sub bt{&xm(2);$ch{$z[1040]}=$cg{$z[1040]}
?$z[1290]:$z[916];$ch{$z[1291]}=$z[1181];&xn(1);&un($am{$z[67]});
}sub bu{my$am=shift;my$cx=&nj($am);&nk($am,$cx);&xm($cx->{$z[10]});
my$xo;foreach$xo(split(/,/,$cx->{$z[1100]})){$ch{$z[1292].$xo
.$z[587]}=$z[1181];}$ch{$z[1040]}=$cg{$z[1040]}?$z[1290]:$z[916];
$ch{$z[1291]}=$z[1181]if($cx->{$z[1165]}||$cx->{$z[10]}==9);
$ch{$z[1293]}=$z[1181]if$cx->{$z[1098]};&xn(0,$cx->{$z[9]},
$cx->{$z[1099]});&nl($z[559],$cx);exit;}sub bx{$ad{$z[9]}=join($z[1042],
map{/^cat_(\d+)$/?$1:()}keys%ad);$ad{$z[1099]}=join($z[1042],
map{/^email_cat_(\d+)$/?$1:()}keys%ad);$ad{$z[1100]}=join($z[1042],
sort{$a<=>$b}map{/^email_notification_event_(\d+)$/?$1:()}keys
%ad);my$ne=shift;&cs();my$nq=&nr($ne);my$ns=&nt($ne,$nq);&nu($ne,
$nq);my%ou;if(&ml($ne,\%ou,$z[538],$ad{$z[538]})){if($ou{$z[464]}
!=$nq->{$z[464]}){&cu();&nl($z[627],\%ad);}}if($ad{$z[464]}
==$ai{$z[464]}&&$ad{$z[10]}<9){&cu();&nl($z[628],{});}&nv($ne,
$nq);my%ov;if(&ml($am{$z[155]},\%ov,$z[464],$ad{$z[464]})){
&eg($am{$z[155]},\%ad,$ad{$z[464]});}&cu();if(!$ad{$z[9]}&&
!$ad{$z[1165]}){&nl($z[1294],\%ad);}&nw($ne,$ns);&nx($ne);}
sub yi{my$xp=shift;foreach(grep/^templatedir/,sort keys%ak)
{if(-e"$ak{$_}/$xp"){return 1;}}return 0;}sub yn{my($gi,$ip,
@xq)=@_;my$xr;foreach$xr(@xq){if(defined$ak{$z[283]}{$z[291]}{$gi
.$xr}){$gi.=$xr;}else{last;}}&ah($gi,$ip);}sub co{return unless
$cg{$z[1268]};my($kx,$xs,$ne)=@_;if($ad{$z[1052]}!=2&&$ne->{$z[1052]}
!=2){&fb("---SKIPPING ART PUBLISH---  article isn't and wasn't 'visible'");
return;}&wx($z[25]=>[$kx],$z[31]=>[$ad{$z[31]},$ne->{$z[31]}
]);if($xs eq$z[133]){my$wa=$cg{$z[524]}.($cg{$z[1072]}&&$ne->{$z[472]}
?$ne->{$z[472]}:$cg{$z[1091]}.$kx).$z[749].$cg{$z[1058]};my
$wb=$cg{$z[524]}.($cg{$z[1072]}&&$ne->{$z[472]}?$cg{$z[1073]}
.$ne->{$z[472]}:$cg{$z[1073]}.$ne->{$z[464]}).$z[749].$cg{$z[1058]};
&fb("Erase - article - $wa");unlink$wa;&fb("Erase - article - $wb");
unlink$wb;}}sub cp{return unless$cg{$z[1268]};my($kx,$xs,$ne)
=@_;my@xt;my$dc=sub{my$pw=shift;push(@xt,$pw->{$z[464]})if($pw->{$z[31]}
eq$kx||$pw->{$z[31]}eq$ad{$z[464]});};&pd($am{$z[25]},$dc);
&wx($z[25]=>[@xt],$z[31]=>[$kx]);if($xs eq$z[133]){my$xu=$cg{$z[524]}
.($ne->{$z[1082]}||"$cg{'publish_cat_fileprefix'}$kx").".$cg{'publish_fileext'}";
unlink$xu;my$xv="$cg{'dir_publish'}$cg{'publish_cat_headline_fileprefix'}$kx.$cg{'publish_fileext'}";
unlink$xv;my$xw="$cg{'dir_publish'}$cg{'publish_cat_list_fileprefix'}$kx.$cg{'publish_fileext'}";
unlink$xw;my$xx="$cg{'dir_publish'}$cg{'publish_syndicate_fileprefix'}$kx.js";
unlink$xx;&fb("Erase - category - $xu");&fb("Erase - category headlines - $xv");
&fb("Erase - category file - $xw");&fb("Erase - syndicate file - $xx");
}}sub ao{my$ne=shift;$ak{$z[1222]}++;&vx($ne);$ch{$z[1295]}
=qq||;
$ad{$z[14]}=$ad{$z[464]};my$xy=$cg{$z[524]}.$cg{$z[1066]}.$ad{$z[31]}
.$z[749].$cg{$z[1058]};if($cg{$z[1296]}&¬-e$xy){&fb($z[1297]
.$ad{$z[464]});&wx($z[31]=>[$ad{$z[31]}],$z[1298]=>[$ad{$z[464]}]);
}&an($ne);}sub ap{my$ne=shift;my$cx={};&mi($ne,$cx,$ad{$z[16]})
||&ck($z[586],$ad{$z[16]});if($cx->{$z[464]}&&$ai{$z[10]}<4
&&$ai{$z[464]}!=$cx->{$z[601]}){&ck(q|You don't have access to preview this article|);
}unless($ai{$z[10]}==9||$ai{$z[1165]}||$ak{$z[9]}{$cx->{$z[31]}})
{&ck(q|You don't have access to preview articles in this category|);
}my%tt;if(!$cx->{$z[31]}||not&mi($am{$z[31]},\%tt,$cx->{$z[31]}))
{$ak{$z[708]}=$z[709];&ck($z[1299],$z[1300]);}if($cx->{$z[1087]}
!=1){$ak{$z[708]}=$z[709];&ck($z[1301],$z[1302]);}foreach(keys
%{$cx}){$cx->{$z[1053].$_}=$cx->{$_};}foreach(1..$ak{$z[58]})
{$cx->{$z[1031].$_}=$cx->{$z[1054].$_}}my$xp=$tt{$z[1255]}||
$z[1243];my$wn;foreach(grep/^templatedir/,sort keys%ak){if(-e
"$ak{$_}/$xp"){$wn++;last;}}unless($wn){&ck("The template '$tt{'article_template_file'}' could not be found.");
}&tb($xp,{},$z[279],$z[1303],$cg{$z[524]});unless($ak{$z[283]}{$z[291]}{"article:img_caption"})
{&ck("The Template '$xp' does not contain an 'img_caption' cell.  Please refer to the online help for more information on TemplateCells.");
}unless($ak{$z[283]}{$z[291]}{"article:img_nocaption"}){&ck("The Template '$xp' does not contain an 'img_nocaption' cell.  Please refer to the online help for more information on TemplateCells.");
}$ch{$z[1055]}=$cg{$z[526]};$ch{$z[523]}=$cg{$z[523]};$ch{$z[1056]}
=$cg{$z[523]}.$cg{$z[1057]}.$z[749].$cg{$z[1058]};$ch{$z[1059]}
=$cg{$z[1060]}.$z[749].$cg{$z[1058]};;$ch{$z[1061]}=$cg{$z[1062]}
.$z[749].$cg{$z[1058]};$ch{$z[1063]}=$cg{$z[1060]}.$cx->{$z[31]}
.$z[749].$cg{$z[1058]};;$ch{$z[1065]}=$cg{$z[1066]}.$cx->{$z[31]}
.$z[749].$cg{$z[1058]};$ch{$z[1067]}=$cg{$z[1068]}.$z[749].
$cg{$z[1058]};$ch{$z[1069]}=$cg{$z[1070]}.$z[749].$cg{$z[1058]};
$ch{$z[1032]}=&ob($ak{$z[570]},&of($cg{$z[1032]}))if($cg{$z[1032]});
$ch{$z[1071]}=$z[533];my$tu=$tt{$z[1081]}?$tt{$z[1082]}:$cg{$z[1083]}
.$cx->{$z[31]};$ch{$z[1084]}=$cg{$z[523]}.$tu.$z[749].$cg{$z[1058]};
$ch{$z[1086]}=$cg{$z[1086]};if($tt{$z[1049]}){$ch{$z[1063]}
=$ch{$z[1287]};}$cx->{$z[1029]}=~s|\n|
\n|g if$cx->{$z[750]}; $cx->{$z[1030]}=~s|\n|
\n|g if$cx->{$z[752]};for(1..$ak{$z[58]}) {$cx->{$z[1031].$_}=~s|\n|
\n|g if$cx->{$z[1304].$_};} my@ts=($cx->{$z[568]},$cx->{$z[566]}-1,$cx->{$z[567]},$cx->{$z[1074]} +($cx->{$z[316]}eq$z[1075]?12:0),$cx->{$z[1076]});$cx->{$z[1077]} =&ob($ak{$z[569]},@ts);$cx->{$z[1078]}=&ob($ak{$z[1079]},@ts); $cx->{$z[1085]}=$tt{$z[464]};$cx->{$z[1080]}=$tt{$z[101]};$cx->{$z[1305]} =$cg{$z[520]}.$tt{$z[1163]};$cx->{$z[1306]}=$tt{$z[1027]};$cx->{$z[1307]} =$tt{$z[1025]};$cx->{$z[1308]}=&ob($ak{$z[570]},&of($tt{$z[543]})); foreach(1..25){$cx->{"art_image_url$_"}=$cg{$z[520]}.$cx->{"ufile_image$_"}; }&xz($cx,$cx,$z[1303],$cx->{$z[1029]},$cx->{$z[1030]},map{$cx->{$z[1031].$_} }1..$ak{$z[58]});my$io=&tb($xp,$cx,$z[279],undef,$cg{$z[524]}); $io=~s{(]+href\s*=\s*)(['"])?.*?\2?(\s|>)}{$1"#"$3}gix; $io=~s//
/i;print"Content-type: text/html\n\n"; print$io ;exit;}sub wx{my%lo=(@_);my%ya=map{$_,1}@{$lo{$z[25]}}; my%yb=map{$_,1}@{$lo{$z[1298]}};my%yc=map{$_,1}@{$lo{$z[31]}}; my$yd=$lo{$z[1279]};my$dc;$ch{$z[1055]}=$cg{$z[526]};$ch{$z[523]} =$cg{$z[523]};$ch{$z[1056]}=$cg{$z[523]}.$cg{$z[1057]}.$z[749] .$cg{$z[1058]};$ch{$z[1059]}=$cg{$z[1060]}.$z[749].$cg{$z[1058]}; $ch{$z[1061]}=$cg{$z[1062]}.$z[749].$cg{$z[1058]};$ch{$z[1067]} =$cg{$z[1068]}.$z[749].$cg{$z[1058]};$ch{$z[1069]}=$cg{$z[1070]} .$z[749].$cg{$z[1058]};$ch{$z[1032]}=&ob($ak{$z[570]},&of($cg{$z[1032]})) if($cg{$z[1032]});$ch{$z[1086]}=$cg{$z[1086]};my%ye=($z[1237] =>[qw(row row_summary row_link row_ufile not_found more no_more img_caption img_nocaption) ],$z[1240]=>[qw(row row_summary row_link row_ufile not_found img_caption img_nocaption) ],$z[1309]=>[qw(row row_summary row_link row_ufile not_found header divider footer img_caption img_nocaption) ],$z[1310]=>[qw(row row_selected not_found)],$z[1311]=>[qw(row row_summary row_link row_ufile not_found) ],);my%yf=($z[1253]=>[qw(row row_summary row_link row_ufile not_found more no_more img_caption img_nocaption) ],$z[1254]=>[qw(row row_summary row_link row_ufile not_found img_caption img_nocaption) ],$z[1255]=>[qw(img_caption img_nocaption)],$z[1256]=>[qw(img_caption img_nocaption) ],);my$xp;foreach$xp(keys%ye){&tb($xp,{},undef,$xp.$z[818]); my$gi;foreach$gi(@{$ye{$xp}}){unless(exists$ak{$z[283]}{$z[291]}{$xp.$z[818].$gi}) {&ck("Unable to publish! Template '$xp' does not contain a '$gi' cell. Please refer to the online help for more information on TemplateCells."); }}}my%yg;my@yh;$dc=sub{my$tt=shift;push(@yh,$tt->{$z[464]}); unless(&yi($tt->{$z[1253]})){&ck("The template '$tt->{'template_file'}' could not be found for publishing Index pages in the '$tt->{'name'}' category (category record #$tt->{'num'})"); }unless(&yi($tt->{$z[1254]})){&ck("The template '$tt->{'headline_template_file'}' could not be found for publishing Headlines in the '$tt->{'name'}' category (category record #$tt->{'num'})"); }unless(&yi($tt->{$z[1255]})){&ck("The template '$tt->{'article_template_file'}' could not be found for publishing Article Detail pages in the '$tt->{'name'}' category (category record #$tt->{'num'})"); }unless(&yi($tt->{$z[1256]})){&ck("The template '$tt->{'printer_template_file'}' could not be found for publishing Article Printer pages in the '$tt->{'name'}' category (category record #$tt->{'num'})"); }&tb($tt->{$z[1253]},{},undef,$tt->{$z[1253]}.$z[818]);&tb($tt->{$z[1254]}, {},undef,$tt->{$z[1254]}.$z[818]);&tb($tt->{$z[1255]},{},undef, $tt->{$z[1255]}.$z[818]);&tb($tt->{$z[1256]},{},undef,$tt->{$z[1256]}.$z[818]); my$yj;foreach$yj(keys%yf){my$xp=$tt->{$yj};&fb("loading template '$xp'"); &tb($xp,{},undef,$xp.$z[818]);my$gi;foreach$gi(@{$yf{$yj}}) {unless(exists$ak{$z[283]}{$z[291]}{$xp.$z[818].$gi}){&ck("Unable to publish! Template '$xp' does not contain a '$gi' cell. This template was referenced by the '$tt->{'name'}' category (category record #$tt->{'num'}). Please refer to the online help for more information on TemplateCells."); }}}foreach($z[101],$z[1253],$z[1254],$z[1255],$z[1256],$z[1049], $z[1027],$z[1025]){$yg{$tt->{$z[464]}}{$_}=$tt->{$_};}$yg{$tt->{$z[464]}}{$z[1082]} =$tt->{$z[1081]}?$tt->{$z[1082]}:$cg{$z[1083]}.$tt->{$z[464]}; if($tt->{$z[1312]}){$yg{$tt->{$z[464]}}{$z[1313]}=$tt->{$z[1313]}; $yg{$tt->{$z[464]}}{$z[1314]}=$tt->{$z[1314]};}else{$yg{$tt->{$z[464]}}{$z[1313] }=$cg{$z[1250]};$yg{$tt->{$z[464]}}{$z[1314]}=$cg{$z[1252]}; }$yg{$tt->{$z[464]}}{$z[1315]}=$cg{$z[523]}.$yg{$tt->{$z[464]}}{$z[1082]} .$z[749].$cg{$z[1058]};$yg{$tt->{$z[464]}}{$z[543]}=&ob($ak{$z[570]}, &of($tt->{$z[543]}));if($tt->{$z[1163]}){$yg{$tt->{$z[464]}}{$z[515]} ="$cg{'url_upload'}$tt->{'ufile_image'}";}else{$yg{$tt->{$z[464]}}{$z[515]} ="$cg{'url_image'}spacer.gif";$yg{$tt->{$z[464]}}{$z[1027]} =1;$yg{$tt->{$z[464]}}{$z[1025]}=1;}};&pd($am{$z[31]},$dc); if((scalar keys%yc||$yd)&&$cg{$z[1316]}||$cg{$z[1317]}){my@yk; my@yl;my$ym;my$tt;my$cv=1;foreach$tt(@yh){next if$yg{$tt}{$z[1049]}; my%cx;$cx{$z[1085]}=$tt;$cx{$z[1080]}=$yg{$tt}{$z[101]};$cx{$z[1308]} =$yg{$tt}{$z[543]};$cx{$z[1305]}=$yg{$tt}{$z[515]};$cx{$z[1306]} =$yg{$tt}{$z[1027]};$cx{$z[1307]}=$yg{$tt}{$z[1025]};$cx{$z[1084]} =$yg{$tt}{$z[1315]};push@yk,&yn($z[1318],\%cx,($cv% 2==0)?'' :$z[1319]);push@yl,&yn($z[1320],\%cx,($cv% 2==0)?'':$z[1319]) if(exists$ak{$z[283]}{$z[291]}{$z[1320]});$ym.=qq|\n|; });$ch{$z[1366]}="