#!/usr/bin/perl sub c_n_w_UpdateWordlets { $Hiddens = qq! !; $CurrentTab = qq%Wordlet$trademark Update%; &CPHeader; &CPFooter; &CPTop; &LoadTemplate("cp_update_wordlets_intro"); &CPBottom; exit(0); } sub c_n_w_GetNewWordlets { ############################################################################## ############################################################################## ############################################################################## ############################################################################## %new_wordlets = ( 'after' => { 'name' => q~after~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~After~, 'old' => q~~, }, 'age_choice' => { 'name' => q~age_choice~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Please click the link that describes your age:~, 'old' => q~~, }, 'agree' => { 'name' => q~agree~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Agree~, 'old' => q~~, }, 'agree_wording_minor' => { 'name' => q~agree_wording_minor~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Registration for this message board requires approval of your parent or guardian. If you agree to seek approval from your parent or guardian for this registration, press the Agree button, which will enable you to start to register. If you do not agree, press the Cancel button.~, 'old' => q~~, }, 'author_from' => { 'name' => q~author_from~, 'method' => q~change~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~From:~, 'old' => q~From~, }, 'author_to' => { 'name' => q~author_to~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~To:~, 'old' => q~~, }, 'born' => { 'name' => q~born~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Born~, 'old' => q~~, }, 'cancel' => { 'name' => q~cancel~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Cancel~, 'old' => q~~, }, 'change_email_warning' => { 'name' => q~change_email_warning~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Note: Because you changed your email address, and because we require email verification, a new password has been issued to you. This new password has been sent to: $email. You may change your password, but you may not change your password and email address at the same time. Thank you!~, 'old' => q~~, }, 'clear_all_cookies_confirm' => { 'name' => q~clear_all_cookies_confirm~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Are you sure you want to delete the cookies?~, 'old' => q~~, }, 'clear_all_cookies_explain' => { 'name' => q~clear_all_cookies_explain~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~If you ever experience login problems, you may have a problem with the cookies that have been set in your browser. If this happens, click the above link.~, 'old' => q~~, }, 'clear_all_cookies_title' => { 'name' => q~clear_all_cookies_title~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Delete All Cookies Set by This Forum~, 'old' => q~~, }, 'confirm' => { 'name' => q~confirm~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Confirm~, 'old' => q~~, }, 'contact_info' => { 'name' => q~contact_info~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Contact Information~, 'old' => q~~, }, 'coppa_explained' => { 'name' => q~coppa_explained~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~The U.S. Federal Trade Commission's Children's Online Privacy Protection Act of 1998 (COPPA) is intended to protect the privacy of children using the Internet. As of April 21, 2000, many Web sites are required to obtain parental consent before collecting, using, or disclosing personal information from children under 13.~, 'old' => q~~, }, 'coppa_pdf' => { 'name' => q~coppa_pdf~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Full Text of Federal Register Notice [PDF 270K]~, 'old' => q~~, }, 'coppa_release' => { 'name' => q~coppa_release~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~COPPA News Release~, 'old' => q~~, }, 'daily_topics_total' => { 'name' => q~daily_topics_total~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Total Active Topics~, 'old' => q~~, }, 'delete_post' => { 'name' => q~delete_post~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Delete Post? (check box, if yes)~, 'old' => q~~, }, 'edit_profile2' => { 'name' => q~edit_profile2~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Update Profile~, 'old' => q~~, }, 'edit_profile_explain' => { 'name' => q~edit_profile_explain~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your login (user) name cannot be changed. Note that your password is not encrypted and may be accessible by the message board administrators. Do not use a password that you would be afraid to reveal to anyone.
All of the information you provide on this page (with the exception of the password and login name) will be viewable by anyone visiting the message board. Thus, if you do not feel comfortable completing any non required fields, please leave them blank.~, 'old' => q~~, }, 'email_click' => { 'name' => q~email_click~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Click on this email address: ~, 'old' => q~~, }, 'email_from' => { 'name' => q~email_from~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your Name~, 'old' => q~~, }, 'email_verify_explain' => { 'name' => q~email_verify_explain~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Because we require that each email address be verified, any change of your email address will result in an automatic change of your password by the system; this new password would be emailed to the new email address that you list.~, 'old' => q~~, }, 'enter_bold' => { 'name' => q~enter_bold~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter the text that you wish to make bold.~, 'old' => q~~, }, 'enter_email' => { 'name' => q~enter_email~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter the complete email address that you wish to add.~, 'old' => q~~, }, 'enter_image' => { 'name' => q~enter_image~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter the complete URL for the image you wish to display.~, 'old' => q~~, }, 'enter_italics' => { 'name' => q~enter_italics~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter the text that you wish to italicize.~, 'old' => q~~, }, 'enter_list_item' => { 'name' => q~enter_list_item~, 'method' => q~change~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Enter the new list item. Note that each list group must be preceded by a List Start and the entire list group must end with a List End (in order to display properly).~, 'old' => q~Enter the new list item. Note that each list group must be preceeded by a List Start and the entire list group must end with a List End (in order to display properly).~, }, 'enter_list_item2' => { 'name' => q~enter_list_item2~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Enter the new list item. Note that each list group must be preceded by a List Start and the entire list group must end with a List End (in order to display properly).~, 'old' => q~~, }, 'enter_title' => { 'name' => q~enter_title~, 'method' => q~change~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Now enter the title of the web page you wish to reference. For instance, if you are linking to the URL for Infopop, you might use the title Infopop Homepage.~, 'old' => q~Now enter the title of the web page you wish to reference. For instance, if you are linking to the URL for infopop, you might use the title Infopop Homepage.~, }, 'enter_url' => { 'name' => q~enter_url~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter the complete URL for the link you wish to add.~, 'old' => q~~, }, 'forum_pw' => { 'name' => q~forum_pw~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Forum Password~, 'old' => q~~, }, 'forum_pw_confirmed' => { 'name' => q~forum_pw_confirmed~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Thank you! Forum password confirmed.~, 'old' => q~~, }, 'forum_pw_explain' => { 'name' => q~forum_pw_explain~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~You are attempting to enter a private forum for which you do not have explicit permission to gain access. This forum also permits entrance by password, however. If you know the password for this private forum, please enter it below.~, 'old' => q~~, }, 'hello' => { 'name' => q~hello~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Hello,~, 'old' => q~~, }, 'kid_registration_intro' => { 'name' => q~kid_registration_intro~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your parent or guardian must approve your registration. You will not be able to post until this approval is received.
Note: all of the information you provide on this page will be emailed to you and your parent or guardian with instructions for sending in the approval.
For more information, contact: ~, 'old' => q~~, }, 'login_to' => { 'name' => q~login_to~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Login To:~, 'old' => q~~, }, 'lost_password' => { 'name' => q~lost_password~, 'method' => q~change~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~For assistance finding your registered login and/or password, click here.~, 'old' => q~If you can't remember your registration login and/or password, click here.~, }, 'lost_password_bold' => { 'name' => q~lost_password_bold~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Lost Password?~, 'old' => q~~, }, 'matches_thus_far' => { 'name' => q~matches_thus_far~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Matches Thus Far:~, 'old' => q~~, }, 'more_than_50_posts' => { 'name' => q~more_than_50_posts~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~The 50 most recent are displayed here.~, 'old' => q~~, }, 'move_delete' => { 'name' => q~move_delete~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Delete topic from current forum after transferring.~, 'old' => q~~, }, 'move_explained' => { 'name' => q~move_explained~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~You can move this topic to another forum, if you like.
You have the option of either deleting the topic entirely from the current forum after it is transferred, or keeping the topic in the current forum as well (it will be closed in the current forum, however).~, 'old' => q~~, }, 'move_keep' => { 'name' => q~move_keep~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Keep topic in current forum after transferring. The topic will be closed in its current forum.~, 'old' => q~~, }, 'move_to' => { 'name' => q~move_to~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Move Topic To:~, 'old' => q~~, }, 'need_to_register_bold' => { 'name' => q~need_to_register_bold~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Not Registered?~, 'old' => q~~, }, 'need_to_register_link' => { 'name' => q~need_to_register_link~, 'method' => q~change~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~To register, click here.~, 'old' => q~If you have not registered, click here.~, }, 'on_or_before' => { 'name' => q~on_or_before~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~On or Before~, 'old' => q~~, }, 'optional_kid_info' => { 'name' => q~optional_kid_info~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~All Other Information Below is Optional.
Do not fill in any information that will identify you or where you live. Your parent or guardian will have to approve all information in your profile. By default your email address will be hidden when you post.~, 'old' => q~~, }, 'pages' => { 'name' => q~pages~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Pages~, 'old' => q~~, }, 'parent_email' => { 'name' => q~parent_email~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Parent/Guardian Email: ~, 'old' => q~~, }, 'parent_name' => { 'name' => q~parent_name~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Parent/Guardian Full Name~, 'old' => q~~, }, 'parent_questions' => { 'name' => q~parent_questions~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Questions? Email ~, 'old' => q~~, }, 'parental_agreement' => { 'name' => q~parental_agreement~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~YES:I have reviewed the information my child has supplied and I have read the Privacy Policy for the web site. I understand that the profile information may be changed using the login and password for this registration. I understand that I may ask for this registration profile to be removed entirely.~, 'old' => q~~, }, 'parental_instructions' => { 'name' => q~parental_instructions~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Instructions for a Parent or Guardian
Please sign the form below and send it to us.~, 'old' => q~~, }, 'parental_requirement' => { 'name' => q~parental_requirement~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~A parent or guardian must mail or fax a signed permission form to the administrators of this forum before a user under age 13 can complete the registration.~, 'old' => q~~, }, 'password_emailed' => { 'name' => q~password_emailed~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your password has been emailed to: ~, 'old' => q~~, }, 'permission_form' => { 'name' => q~permission_form~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Permission Form~, 'old' => q~~, }, 'phone' => { 'name' => q~phone~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Telephone~, 'old' => q~~, }, 'picture_explain' => { 'name' => q~picture_explain~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Enter a link to a picture of yourself. This must be a complete URL.~, 'old' => q~~, }, 'pm_cant_respond_to_self' => { 'name' => q~pm_cant_respond_to_self~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~You can not respond to this PM until the recipient replies.~, 'old' => q~~, }, 'pm_header_in' => { 'name' => q~pm_header_in~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Incoming Private Messages~, 'old' => q~~, }, 'pm_header_sent' => { 'name' => q~pm_header_sent~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Sent Private Messages~, 'old' => q~~, }, 'pm_not_found' => { 'name' => q~pm_not_found~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~This Private Message Not Found (perhaps recently deleted)~, 'old' => q~~, }, 'pm_prune2' => { 'name' => q~pm_prune2~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Delete Checked Messages~, 'old' => q~~, }, 'pm_received' => { 'name' => q~pm_received~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Received~, 'old' => q~~, }, 'pm_sent' => { 'name' => q~pm_sent~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Sent~, 'old' => q~~, }, 'pm_sent_recip_read' => { 'name' => q~pm_sent_recip_read~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Read by Recipient~, 'old' => q~~, }, 'pm_sent_recip_unread' => { 'name' => q~pm_sent_recip_unread~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Unread by Recipient~, 'old' => q~~, }, 'pm_status_header' => { 'name' => q~pm_status_header~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Status~, 'old' => q~~, }, 'post_cap' => { 'name' => q~post_cap~, 'method' => q~new~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~Post~, 'old' => q~~, }, 'private_info' => { 'name' => q~private_info~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Private Information~, 'old' => q~~, }, 'pub_name_disclaimer' => { 'name' => q~pub_name_disclaimer~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~If you do not provide a name, the login (user) name you listed above will be shown publicly. You may be able to change your public name, but you can not change your login (user) name.~, 'old' => q~~, }, 'public_name_explain' => { 'name' => q~public_name_explain~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~If you do not provide a name, the login (user) name you listed above will be shown publicly. Note that the administrators of this board may elect not to permit changes to your publicly displayed name.~, 'old' => q~~, }, 'reg_confirm_intro' => { 'name' => q~reg_confirm_intro~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~We have summarized your registration information below! You can change this information at this link:~, 'old' => q~~, }, 'reg_confirm_intro_kid' => { 'name' => q~reg_confirm_intro_kid~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your parent or guardian must approve your registration. You will not be able to post until this approval is received. We have summarized your registration information below!
For more information, contact~, 'old' => q~~, }, 'register_age_check' => { 'name' => q~register_age_check~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Registration - Age Verification~, 'old' => q~~, }, 'register_agree' => { 'name' => q~register_agree~, 'method' => q~change~, 'humanversion' => q~6.1.0-betas~, 'version' => q~6090~, 'new' => q~If you agree to abide by our rules below, please press the Agree button, which will enable you to register on this message board. If you do not agree to these terms, press the Cancel button.~, 'old' => q~If you agree to abide by our rules below, please press the Agree button, which will enable you to register on this message board. If you do not agree to these terms, press the Cancel button.~, }, 'registration_date' => { 'name' => q~registration_date~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Registration Date~, 'old' => q~~, }, 'registration_intro' => { 'name' => q~registration_intro~, 'method' => q~new~, 'humanversion' => q~6.0.0-gold~, 'version' => q~6000~, 'new' => q~Your registered user name can be up to 25 characters and passwords can be a maximum of 13 characters. Please use only letters and numbers. Note that your password is not encrypted and may be accessible by the message board administrators. Do not use a password that you would be afraid to reveal to anyone.
All of the information you provide on this page (with the exception of the password) will be viewable by anyone visiting the message board. Thus, if you do not feel comfortable completing any non required fields, please leave them blank.~,
'old' => q~~,
},
'relation_to_child' => {
'name' => q~relation_to_child~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Relation to Child~,
'old' => q~~,
},
'required_in_bold' => {
'name' => q~required_in_bold~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Required fields are in bold.~,
'old' => q~~,
},
'search_continuing' => {
'name' => q~search_continuing~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Search Continuing~,
'old' => q~~,
},
'search_limit' => {
'name' => q~search_limit~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Note: there is a limit to the number of matches that will be returned.~,
'old' => q~~,
},
'search_wait' => {
'name' => q~search_wait~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Please wait... we are processing your search request...~,
'old' => q~~,
},
'send_to' => {
'name' => q~send_to~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Send To~,
'old' => q~~,
},
'show_signature' => {
'name' => q~show_signature~,
'method' => q~change~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Show Signature: include your profile signature.~,
'old' => q~Show Signature: include your profile signature.~,
},
'signatures_explained' => {
'name' => q~signatures_explained~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Signatures can appear at the bottom of your posts. This option may be disabled by the message board administrators at any time, however. You may use UBB Code in your signature, but not HTML.~,
'old' => q~~,
},
'submit_forum_pw' => {
'name' => q~submit_forum_pw~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Submit Forum Password~,
'old' => q~~,
},
'submit_registration' => {
'name' => q~submit_registration~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Submit Registration~,
'old' => q~~,
},
'ubb_code_explained' => {
'name' => q~ubb_code_explained~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~What is UBB Code?~,
'old' => q~~,
},
'ubb_friend_short' => {
'name' => q~ubb_friend_short~,
'method' => q~new~,
'humanversion' => q~6.1.0-release~,
'version' => q~6100~,
'new' => q~UBBFriend~,
'old' => q~~,
},
'ubbcode_code' => {
'name' => q~ubbcode_code~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~code~,
'old' => q~~,
},
'ubbcode_images_allowed' => {
'name' => q~ubbcode_images_allowed~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~UBBCode Images are permitted.~,
'old' => q~~,
},
'ubbcode_quote' => {
'name' => q~ubbcode_quote~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~quote~,
'old' => q~~,
},
'unreg_author_notice_2' => {
'name' => q~unreg_author_notice_2~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Note for registered users: If you do not fill in the password field, you will post as an unregistered user!~,
'old' => q~~,
},
'unreg_author_notice_3' => {
'name' => q~unreg_author_notice_3~,
'method' => q~new~,
'humanversion' => q~6.1.0-release~,
'version' => q~6100~,
'new' => q~Note: You are posting as an unregistered user.~,
'old' => q~~,
},
'unregistered' => {
'name' => q~unregistered~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~unregistered~,
'old' => q~~,
},
'update_cookie_explain' => {
'name' => q~update_cookie_explain~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~This function will update the board's new post indicators to flag topics that have been posted to since either the start of your browser session or the last time that you logged in or used this function.~,
'old' => q~~,
},
'update_cookie_title' => {
'name' => q~update_cookie_title~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Update New Post Indicators~,
'old' => q~~,
},
'updated_post_icons' => {
'name' => q~updated_post_icons~,
'method' => q~change~,
'humanversion' => q~6.1.0-release~,
'version' => q~6100~,
'new' => q~Your new post indicators have been updated.~,
'old' => q~Your post indicators have been updated.~,
},
'view' => {
'name' => q~view~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~View~,
'old' => q~~,
},
'view_thread' => {
'name' => q~view_thread~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~View thread~,
'old' => q~~,
},
'vote_total' => {
'name' => q~vote_total~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Votes:~,
'old' => q~~,
},
);
%new_wordlets_cp = (
'cp_wordlets' => {
'name' => q~cp_wordlets~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Control Panel Wordlet™ List~,
'old' => q~Control Panel Wordlets~,
},
'custom_title_wording' => {
'name' => q~custom_title_wording~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~User Custom Title~,
'old' => q~~,
},
'date_wordlets' => {
'name' => q~date_wordlets~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Date Wordlet™ List~,
'old' => q~Date Wordlets~,
},
'display_settings' => {
'name' => q~display_settings~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~General Display Settings~,
'old' => q~Primary Display Settings~,
},
'error_wordlets' => {
'name' => q~error_wordlets~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Error Message Wordlet™ List~,
'old' => q~Error Message Wordlets~,
},
'img_wordlets' => {
'name' => q~img_wordlets~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Image Wordlet™ List~,
'old' => q~Image Wordlets~,
},
'last_50_registrations' => {
'name' => q~last_50_registrations~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Showing the last 50 registrations only~,
'old' => q~~,
},
'primary_wordlets' => {
'name' => q~primary_wordlets~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Primary Wordlet™ List~,
'old' => q~Primary Wordlets~,
},
'rebuild_members' => {
'name' => q~rebuild_members~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Rebuild Member Stat Files~,
'old' => q~~,
},
);
%new_wordlets_err = (
'bad_input' => {
'name' => q~bad_input~,
'method' => q~change~,
'humanversion' => q~6.0.4-release~,
'version' => q~6040~,
'new' => q~Sorry, we cannot process your request. Input is not in the proper format. ~,
'old' => q~Sorry, we cannot process your request. Input is not in the proper format.~,
},
'bad_reg_chars' => {
'name' => q~bad_reg_chars~,
'method' => q~change~,
'humanversion' => q~6.0.4-release~,
'version' => q~6040~,
'new' => q~Sorry, one of the names you have attempted to use is being rejected.
You may not:
Please feel free to email us at if you have any questions.
Your IP number is:
~, 'old' => q~Sorry, but your IP Number is currently banned in our forums. You may not post or register on our site. Your IP Number is: .Please feel free to email us at if you have any questions.~,
},
'mail_an_admin' => {
'name' => q~mail_an_admin~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Please contact the board administration.~,
'old' => q~~,
},
'missing_fields_intro' => {
'name' => q~missing_fields_intro~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~The form you submitted appears to be incomplete!~,
'old' => q~~,
},
'no_forum_thread_data' => {
'name' => q~no_forum_thread_data~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Could not find a forum_thread_data file for the following thread and forum: ~,
'old' => q~~,
},
'no_forum_thread_data_files' => {
'name' => q~no_forum_thread_data_files~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Could not find any forum_thread_data files! Please tell the board administrator to Rebuild Forum Stat Files for forum: ~,
'old' => q~~,
},
'no_member_data' => {
'name' => q~no_member_data~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Member profile corrupt (blank): ~,
'old' => q~~,
},
'not_a_member_number' => {
'name' => q~not_a_member_number~,
'method' => q~new~,
'humanversion' => q~6.1.0-release~,
'version' => q~6100~,
'new' => q~The following is not a Member Number: ~,
'old' => q~~,
},
'parent_email_not_unique' => {
'name' => q~parent_email_not_unique~,
'method' => q~new~,
'humanversion' => q~6.0.0-gold~,
'version' => q~6000~,
'new' => q~Sorry, but your e-mail and your parent's e-mail may not match.~,
'old' => q~~,
},
'post_no_write' => {
'name' => q~post_no_write~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~We are very sorry but we cannot create this post at this time. It seems that our server is not permitting us to create new files at the moment. Hopefully, we will have this situation remedied soon! The message board admins have been emailed about this situation.~,
'old' => q~We are very sorry but we cannot create this post at this time. It seems that our server is not permitting us to create new files at the moment. Hopefully, we will have this situation remedied soon! The message board admins have been emailed about this siutation.~,
},
'post_no_write2' => {
'name' => q~post_no_write2~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~We are very sorry but we cannot create this post at this time. It seems that our server is not permitting us to create new files at the moment. Hopefully, we will have this situation remedied soon! The message board admins have been emailed about this situation.~,
'old' => q~~,
},
'tell_admin_to_config_email' => {
'name' => q~tell_admin_to_config_email~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~You are using a function that requires email to be sent. It appears that the board administrator has not yet configured the email settings. Please ask him to do so. Thank you!~,
'old' => q~~,
},
'thread_file_corrupt' => {
'name' => q~thread_file_corrupt~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Could not find an A-line followed by a Z-line.
This thread appears to have been corrupted, and should be deleted: ~,
'old' => q~~,
},
'thread_file_corrupt_body' => {
'name' => q~thread_file_corrupt_body~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~The following thread appears to be corrupt. It needs to be deleted.~,
'old' => q~~,
},
'thread_file_corrupt_email' => {
'name' => q~thread_file_corrupt_email~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Corrupt Thread Found~,
'old' => q~~,
},
'user_not_approved' => {
'name' => q~user_not_approved~,
'method' => q~change~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Sorry, either your membership has not yet been approved or the board administrators have removed your ability to post to this board. We cannot allow you to perform this action as a result.~,
'old' => q~Sorry, either your membership has not yet been approved or the board administrators have removed your ability to post to this board. We cannot allow you to modify your profile at this time as a result.~,
},
'wont_overwrite_profile' => {
'name' => q~wont_overwrite_profile~,
'method' => q~new~,
'humanversion' => q~6.0.4-release~,
'version' => q~6040~,
'new' => q~Can not overwrite an existing profile number. Please notify the administration that their last_number.cgi file may be corrupt. Permissions on the Members directory must be reset, and the Member Stat files must be rebuilt afterwards.~,
'old' => q~~,
},
'wrote_out_bad_profile' => {
'name' => q~wrote_out_bad_profile~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Tried to write a corrupt member profile: ~,
'old' => q~~,
},
'wrote_out_bad_topic' => {
'name' => q~wrote_out_bad_topic~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Tried to write a corrupt topic: ~,
'old' => q~~,
},
'wrote_out_zero_profile' => {
'name' => q~wrote_out_zero_profile~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Tried to write a zero-sized member profile: ~,
'old' => q~~,
},
'wrote_out_zero_topic' => {
'name' => q~wrote_out_zero_topic~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Tried to write a zero-sized topic: ~,
'old' => q~~,
},
'zero_sized_file_written' => {
'name' => q~zero_sized_file_written~,
'method' => q~new~,
'humanversion' => q~6.1.0-betas~,
'version' => q~6090~,
'new' => q~Please alert the administration that the UBB has written out a zero sized file: ~,
'old' => q~~,
},
);
##############################################################################
##############################################################################
##############################################################################
##############################################################################
##############################################################################
##############################################################################
} #endsub
sub c_n_w_GetLists {
my $neww = shift;
%new_wordlets = %$neww;
my $version_number_snipped = $version_number;
if ($version_number_snipped =~ m/^(\d)R(\d)R(\d)$/) { # 6.1.0
$version_number_snipped = "$1$2$3" . "0";
} elsif ($version_number_snipped =~ m/^(\d)R(\d)R(\d)R(\d)$/) { #6.1.0.1
$version_number_snipped = "$1$2$3$4";
} elsif ($version_number_snipped =~ m/^(\d)R(\d)R(\d)R([A-Z])$/) { #6.1.0a
my $incount = 1;
my %letnum;
foreach ("A" .. "Z") { $letnum{$_} = $incount; $incount++; }
$version_number_snipped = "$1$2$3" . $letnum{"$4"};
} else { #something else - act like nothing's wrong and just strip the Rs and other non-numerics
$version_number_snipped =~ s/[R\D]//gi;
} #endif
my (@changelist, @newlist) = ();
foreach my $mainkey (keys %new_wordlets) {
my $item = $new_wordlets{$mainkey};
if (!$in{'version'}) { $in{'version'} = $version_number_snipped; }
next if $item->{'version'} < $in{'version'}; #don't do dupes
if ($item->{'method'} eq "change") { push (@changelist, $item); } #print "1"; }
elsif ($item->{'method'} eq "new") { push (@newlist, $item); } #print "2"; }
#else { print "$item 3"; }
} #endforeach
my ($changeref, $newref) = "";
$changeref = \@changelist if @changelist;
$newref = \@newlist if @newlist;
return ($changeref, $newref);
} #endsub
sub c_n_w_PresentLists {
local (@allthewordlets, $Hiddens, %new_wordlets, %new_wordlets_cp, %new_wordlets_date, %new_wordlets_email, %new_wordlets_err, %new_wordlets_img);
&c_n_w_GetNewWordlets;
my ($changes, $news, $whichone, %these_wordlets, $wordletcode);
if ($in{'WhichWordlets'} eq "primary") {
&RequireVars("$vars_config{VariablesPath}/vars_wordlets.cgi");
%these_wordlets = %vars_wordlets;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets);
$whichone = "Primary";
$wordletcode = $in{'WhichWordlets'};
} elsif ($in{'WhichWordlets'} eq "cp") {
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_cp.cgi");
%these_wordlets = %vars_wordlets_cp;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets_cp);
$whichone = "Control Panel";
$wordletcode = $in{'WhichWordlets'};
} elsif ($in{'WhichWordlets'} eq "date") {
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_date.cgi");
%these_wordlets = %vars_wordlets_date;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets_date);
$whichone = "Date";
$wordletcode = $in{'WhichWordlets'};
} elsif ($in{'WhichWordlets'} eq "email") {
#broken - can't update these anyway
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_email.cgi");
%these_wordlets = %vars_wordlets_email;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets_email);
$whichone = "Email";
$wordletcode = $in{'WhichWordlets'};
} elsif ($in{'WhichWordlets'} eq "err") {
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_err.cgi");
%these_wordlets = %vars_wordlets_err;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets_err);
$whichone = "Error";
$wordletcode = $in{'WhichWordlets'};
} elsif ($in{'WhichWordlets'} eq "img") {
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_img.cgi");
%these_wordlets = %vars_wordlets_img;
($changes, $news) = &c_n_w_GetLists(\%new_wordlets_img);
$whichone = "Image";
$wordletcode = $in{'WhichWordlets'};
} else {
&StandardHTML("The form is b0rked and has confused my little brain.");
exit(0);
}
#$changes now is an arrayref containing all our changed wordlets,
#$news now is an arrayref containing all our new wordlets
my @thisarray = ($changes, $news, \%these_wordlets, $whichone, $wordletcode);
push (@allthewordlets, \@thisarray);
#}
$Hiddens = qq!
!;
$CurrentTab = qq%Wordlet$trademark Update%;
&CPHeader;
&CPFooter;
&CPTop;
&LoadTemplate("cp_update_wordlets_list");
&CPBottom;
exit(0);
} #endsub
sub c_n_w_SeperateInput {
foreach my $thisone (qw(primary cp date err img)) {
my %thesein = ();
foreach my $thiskey (keys %in) {
if ($thiskey =~ m/^$thisone\|\|/) {
$thesein{$thiskey} = $in{$thiskey};
} #endif
} #endforeach
my ($new_wordlet_file, $filename, $ext) = &c_n_w_SetNewWordlets(\%thesein, $thisone);
&WriteHashToFile($filename, "vars_wordlets$ext", $new_wordlet_file);
} #endforeach
&cp_confirm("Wordlet$trademark Lists Updated");
} #endsub
sub c_n_w_SetNewWordlets {
my ($inref, $thisone) = @_;
my ($fileplus, %req, $ext);
if ($thisone eq "primary") {
$fileplus = ".cgi";
%req = %vars_wordlets;
$ext = "";
} else {
$fileplus = "_" . $thisone . ".cgi";
%req = %vars_wordlets_cp if $thisone eq "cp";
%req = %vars_wordlets_date if $thisone eq "date";
%req = %vars_wordlets_err if $thisone eq "err";
%req = %vars_wordlets_img if $thisone eq "img";
$ext = "_" . $thisone;
}
my $filename = "$vars_config{VariablesPath}/vars_wordlets$fileplus";
my %inthis;
foreach my $thiskey (sort keys %$inref) {
my @thesekeys = split (/\|\|/, $thiskey);
$inthis{$thesekeys[1]}->{$thesekeys[2]} = $inref->{$thiskey};
}
foreach my $thiswordlet (keys %inthis) {
if ($inthis{$thiswordlet}->{'action'} eq "new") {
$req{$thiswordlet} = $inthis{$thiswordlet}->{'new_text'};
} elsif ($inthis{$thiswordlet}->{'action'} eq "current") {
$req{$thiswordlet} = $inthis{$thiswordlet}->{'current_text'};
} elsif ($inthis{$thiswordlet}->{'action'} eq "old") {
$req{$thiswordlet} = $inthis{$thiswordlet}->{'orig_text'};
}
}
return (\%req, $filename, $ext);
} #endsub
1;