#!/usr/bin/perl #50 package globaltmpl; ######################################################################## # COPYRIGHT NOTICE: # # Copyright 2008 FocalMedia.Net All Rights Reserved. # # Selling the code for this program without prior written consent # from FocalMedia.Net is expressly forbidden. You may not # redistribute this program in any shape or form. # # This program is distributed "as is" and without warranty of any # kind, either express or implied. In no event shall the liability # of FocalMedia.Net for any damages, losses and/or causes of action # exceed the total amount paid by the user for this software. # ######################################################################## #### EDIT HERE -- FOR WINDOWS/IIS BASED INSTALLATIONS ONLY ####### $config_cgi = "../config.cgi"; ## <-- CHANGE THIS LINE TO THE FULL SERVER PATH TO config.cgi # THE PATH ON A WINDOWS INSTALLATION WILL LOOK SOMETHING LIKE THIS: # $config_cgi = "c:/inetpub/webpub/cgi-bin/pseek/config.cgi"; #### DO NOT CHANGE ANYTHING BELOW THIS LINE ################# #use FindBin; #use lib $FindBin::Bin; use CGI::Carp qw(fatalsToBrowser); use CGI; use MIME::Base64 qw(decode_base64 encode_base64); require Exporter; use vars qw/@ISA @EXPORT @EXPORT_OK $copyright $prgname/; @ISA = qw(Exporter); @EXPORT = qw(get_global_templates get_tnames); @EXPORT_OK = qw(d_tmplates); &get_setup; ################################################################################################################## sub get_tnames { @d_tmplates = ( "psfp:Home", "defdir:%%custom_pagetitle%%", "linkinfo:!!title_without_link!!", "linkinfop:!!title_without_link!!", "searchres:Searching", "searchadv:Advanced Search", "nomatch:No Match Found", "searchresdir:Searching", "rate_it:Cast Rating", "rate_it_success:Rating Recorded", "rate_it_fail:Problem", "gethtml:Get HTML Code", "review_it:Add a Comment or Review", "reviewadded:Success", "reviewproblem:Problem", "whatsnew_main:What's New", "tophits_main:Most Popular", "brokenlink:Broken Link", "brokenlink_success:Success", "mlist1:Mailing List", "mlist2:Mailing List", "mlist3:Mailing List", "add_url_med:Add URL", "add_url:Add URL", "add_url_medp:Add URL", "add_urlp:Add URL", "add_url_instructions:Add URL", "locked:Locked Category", "add_url_problem:Add URL Problem", "add_url_success:Add URL Success", "modify_link:Modify", "modify_link_problem:Problem", "modify_link_success:Success", "modify_link_edit:Modify", "modify_link_editp:Modify", "modify_instructions:Modify", "retrievepass:Retrieve Password", "retrievepass_ok:Success", "retrievepass_prb:Problem", "rgs_msgregister:Register", "rgs_register:Register", "rgs_regsuccess:Register", "rgs_actsuccess:Success", "rgs_actfailed:Problem", "rgs_resend:Register", "rgs_sent:Success", "rgs_login:Login", "rgs_logout:Logout", "rgs_retrievepass:Retrieve Password", "rgs_retrievepass_ok:Success", "rgs_cpmain:Control Panel", "rgs_editacc:Edit Account", "rgs_saveacc:Saved", "rgs_add_url_med:Add URL", "rgs_add_url:Add URL", "rgs_add_url_medp:Add URL", "rgs_add_urlp:Add URL", "rgs_add_url_instructions:Add URL", "rgs_locked:Category Locked", "rgs_add_url_problem:Problem", "rgs_add_url_success:Success", "rgs_modify_link_edit:Modify", "rgs_modify_link_editp:Modify", "rgs_modify_link_problem:Problem", "rgs_modify_link_success:Success", "rgs_modify_instructions:Modify", "rgs_rcomment:Comment", "rgs_rrate:Rating", "fav_main:Favorits", "rgs_regsuccess_paypal:Success", "rgs_upgrade:Order Options", "rgs_upgrade_paypal_success:Success", "contact_form:Contact Us", "contact_thank:Thanks", "tmplsearch:LINKSTYLE", "tmplsearch_prem:LINKSTYLE", "fav_premium:LINKSTYLE", "fav_standard:LINKSTYLE", "lsearchres_loc:LINKSTYLE", "lsearchres_loc_prem:LINKSTYLE", "rgs_acclinks:LINKSTYLE", "rgs_acclinksp:LINKSTYLE", "tophits_listings:LINKSTYLE", "tophits_listings_prem:LINKSTYLE", "whatsnew_lists:LINKSTYLE", "whatsnew_lists_prem:LINKSTYLE", "incl_gluser_cp_links:LINKSTYLE", "subdirs:LINKSTYLE", "directories1:LINKSTYLE", "related1:LINKSTYLE", "related2:LINKSTYLE", "lsearchres_locdir:LINKSTYLE", "rgs_nolinks:LINKSTYLE", "reviewlinks:LINKSTYLE" ); return (@d_tmplates); } sub get_global_templates { $this = {}; $this->{reviewlinks} = qq[

%%review%%
By: %%reviewer%% | Date: %%date%%

]; $this->{rgs_nolinks} = qq[

You are now logged in and can add your link.

Your account at present contains no links.
 
]; $this->{lsearchres_locdir} = qq[
!!nr!! !!category!!
!!description!!

]; $this->{subdirs} = qq[
%%subdirs1%% %%subdirs2%%
]; $this->{directories1} = qq[ %%substyle%% !!new!!]; $this->{related1} = qq[Related %%related_categories%%]; $this->{related2} = qq[ : %%related_categories%%]; $this->{incl_gluser_cp_links} = qq[ [ Links | Account Details | Log Out ] ]; ### CATEGORY LINKS STYLE $this->{tmplsearch} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### PREMIUM CATEGORY LINKS STYLE $this->{tmplsearch_prem} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### fav_premium $this->{fav_premium} = qq[
!!nr!!. !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!]
Remove From Favorites | Rate It | Comments | Report | More Info

]; ### fav_standard $this->{fav_standard} = qq[
!!nr!!. !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Remove From Favorites | Rate It | Comments | Report | More Info

]; ### lsearchres_loc $this->{lsearchres_loc} = qq[
!!nr!!. !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Relevance: !!relevance!! !!rgraphic!!
Add to Favorites | Rate It | Comments | Report | More Info

]; ### lsearchres_loc_prem $this->{lsearchres_loc_prem} = qq[
!!nr!!. !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Relevance: !!relevance!! !!rgraphic!!
Add to Favorites | Rate It | Comments | Report | More Info

]; ### rgs_acclinks $this->{rgs_acclinks} = qq[
!!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
Keywords: !!keywords!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!] | !!date!!
Category: !!category!!
Approval Status: !!aproval_status!!
Modify | Comments | More Info

]; ### rgs_acclinksp $this->{rgs_acclinksp} = qq[
!!title_with_link!! !!rating_image!! !!new!! !!pop!! (Premium Link)
!!description!!
!!url!!
Keywords: !!keywords!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!] | !!date!!
Category: !!category!!
Premium Link Expiry Date: !!premium_expiry!!
Approval Status: !!aproval_status!!
Modify | Comments | More Info

]; ### tophits_listings $this->{tophits_listings} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### tophits_listings_prem $this->{tophits_listings_prem} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### whatsnew_lists $this->{whatsnew_lists} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### whatsnew_lists_prem $this->{whatsnew_lists_prem} = qq[
!!nr!! !!title_with_link!! !!rating_image!! !!new!! !!pop!!
!!description!!
!!url!!
From: !!category!!
Rating: [!!rating!!] Votes: [!!votes!!] Hits: [!!hits!!]
Add to Favorites | Rate It | Comments | Report | More Info

]; ### FRONT PAGE $this->{psfp} = qq[
!!categories!!
]; ### DEFAULT DIRECTORY TEMPLATE $this->{defdir} = qq[
Top :: %%location%% !!rss!!
%%subdirectories%%
%%prevnext%% %%pages%%
%%searchresults%%
%%prevnext%% %%pages%%
%%related%%
]; ### FAVORITES $this->{fav_main} = qq[
Top :: Favorites
%%favorites%%
]; #### LINK INFO $this->{linkinfo} = qq[
Top :: !!category!! : More Info
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Rating: !!rating!! | Votes: !!votes!! | Hits: !!Hits!!
Rate This Link:

User Comments:

%%reviews%%

Add a Comment:
Name:
Email: (Optional)
Comment: %%description_box%%
  %%imgbox%%

Type in the letters that apear in the image box
 

]; $this->{linkinfop} = qq[
Top :: !!category!! : More Info
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Rating: !!rating!! | Votes: !!votes!! | Hits: !!Hits!!
Rate This Link:

User Comments:

%%reviews%%

Add a Comment:
Name:
Email: (Optional)
Comment: %%description_box%%
  %%imgbox%%

Type in the letters that apear in the image box
 

]; $this->{searchres} = qq[
Top :: Searching For '%%keywords%%'
Found %%link_matches%% Matches
%%prevnext%% %%pages%%
%%searchresults%%
%%prevnext%% %%pages%%
]; $this->{searchadv} = qq[
Top :: Advanced Search Form
Your Keywords:
Choose the fields to Search: Title
Description
Keywords
URL
Search with: Determine the best matches for me.
All the keywords supplied must match a link before it will be displayed as a match.
Search with the exact phrase. (The phrase must match to find a match)

Category Search: (This search will only search categories for keywords)
Keywords:
Search with: At least one keyword should match a category name
All the keywords supplied must match category names
Search with the exact phrase. (The phrase must match to find a match)
]; $this->{nomatch} = qq[
Top :: Searching For '%%keywords%%'
Your search for %%keywords%% revealed no matches. Try to use more or different keywords.
]; $this->{searchresdir} = qq[
Top :: Searching Categories For '%%keywords%%'
Found %%link_matches%% Matches
%%prevnext%% %%pages%%
%%searchresults%%
%%prevnext%% %%pages%%
]; $this->{rate_it} = qq[
Top :: Cast Rating
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Rating: !!rating!! | Votes:!!votes!! |Hits: !!Hits!!
Is this your link? Allow users to vote for it from your web site.
Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{rate_it_success} = qq[
Top :: Your Rating Has Been Recorded
 
Your rating has been recorded for:
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Votes: !!votes!! | Rating: !!rating!! | Hits: !!hits!!
 
Go back to: !!category_with_link!! >> !!title_without_link!!
 
]; $this->{rate_it_fail} = qq[
Top :: Problem


Your rating for this link has already been recorded.

Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{gethtml} = qq[
Top :: Get Rating HTML Code

Enable Your Visitors To Rate Your Link
Use the methods below to enable your visitors to rate your listing from your web site.


Text Links
You may link to the rating form via text link. Use the following text link to link to the rating form.

%%textlink%%

You may also use the HTML code below.

%%textlink_code%%

Remote Rating Forms
You may also place a remote rating form on your web site. Copy and paste the HTML code listed below into your web pages.

%%remoteform_code%%


The Above Remote Rating Options is Available For:

%%title_with_link%% %%rating_image%%
%%description%%
%%url%%
From: %%category%%
Rating: %%rating%% | Votes: %%votes%% | Hits: %%Hits%%

Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{review_it} = qq[
Top :: Comments
!!title_with_link!! !!rating_image!!
!!description!!
%%url%%
From: !!category!!
Rating: !!rating!! | Votes: !!votes!! | Hits: !!Hits!!
 
Comments: %%review_listings%%
 
Add a Comment:
!!error_text!!
Name:
Email: (Optional)
Comment: %%description_box%%
%%imgbox%%
Type in the letters as indicated above:

 
Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{reviewadded} = qq[
Top :: Comment Added
Your comment has been added for:
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Rating: !!rating!! | Votes: !!votes!! | Hits: !!hits!!
 
Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{reviewproblem} = qq[
Top :: Problem


%%problem%%

Go Back

Go back to: !!category_with_link!! >> !!title_without_link!!


]; $this->{whatsnew_main} = qq[
Top :: What's New
%%prevnext%% %%pages%%
%%whats_new_listings%%
%%prevnext%% %%pages%%
]; $this->{tophits_main} = qq[
Top :: Top Hits
%%prevnext%% %%pages%%
%%tophits_listings%%
%%prevnext%% %%pages%%
]; $this->{brokenlink} = qq[
Top :: Report a Broken Link
You have chosen to report the following listing as broken:

!!title_with_link!!

Please select the problem you are having with this listing:
404 Not Found
Moved
500 Server Error
DNS: Name Not Found
Cannot Connect
401 Authorization Required
Not Sure
Other

Would you like to add something about this link? (Optional)
%%notesbox%%
500 chars max

%%imgbox%%
Type in the letters as indicated above:


!!problem!!

Go back to: !!category_with_link!! >> !!title_without_link!!

]; $this->{brokenlink_success} = qq[
Top :: Report a Broken Link
Thanks for informing us!

Go back to: !!category_with_link!! >> !!title_without_link!!
]; $this->{mlist1} = qq[
Top :: Mailing List Removal

Please enter your email address below to be removed from the mailing list:

Email Address:

]; $this->{mlist2} = qq[
Top :: Problem
The email address you entered was not found in the database.

Go Back
]; $this->{mlist3} = qq[
Top :: Mailing List Removal
Your email address has been removed from the list.
]; $this->{add_url_med} = qq[
Top :: Add URL
!!error_text!!
Category: %%category_dropdown%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Modify Password:
Confirm Modify Password:
Suggest a Category:
Contact Person for this link:
Contact Email Address For This Link:
Subscribe to mailing list?
%%imgbox%%
Please type the letters listed above:
]; $this->{add_url} = qq[
Top :: Add URL
!!error_text!!
You have chosen to add your URL in the following category:
%%add_category%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Modify Password:
Confirm Modify Password:
Suggest a Category:
Contact Person for This Link:
Contact Email Address For This Link:
Subscribe to mailing list?
%%imgbox%%
Please type the letters listed above:
]; $this->{add_url_medp} = qq[
Top :: Add Premium URL
!!error_text!!
Category: %%category_dropdown%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Modify Password:
Confirm Modify Password:
Suggest a Category:
Contact Person for This Link:
Contact Email Address For This Link:
Subscribe to mailing list?
%%imgbox%%
Please type the letters listed above:
]; $this->{add_urlp} = qq[
Top :: Add Premium URL
!!error_text!!
You have chosen to add your URL in the following category:
%%add_category%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Modify Password:
Confirm Modify Password:
Suggest a Category:
Contact Person for This Link:
Contact Email Address For This Link:
Subscribe to mailing list?
%%imgbox%%
Please type the letters listed above:
]; $this->{add_url_instructions} = qq[
Top :: Add URL Instructions
You are currently not in a category where a url can be added.

To add your URL, please go to the category where you think your web site would suite the category best. Then click on 'Add Url' to add your web site to the index.
]; $this->{locked} = qq[
Top :: Category Locked
You cannot submit a new submission to this category because it is locked. Please use a sub category of this category to submit your submission to.

Go Back
]; $this->{add_url_problem} = qq[
Top :: Problem
%%problem%%

Go Back
]; $this->{add_url_success} = qq[
Top :: Thanks for submitting your URL
Your URL will be visible in our directory as soon as we have reviewed your listing.
]; $this->{modify_link} = qq[
Top :: Modify Link
!!title_with_link!! !!rating_image!!
!!description!!
!!url!!
From: !!category!!
Rating: !!rating!! | Votes: !!votes!! | Hits: !!Hits!!
 
Modify Password:
Lost your password? Click here to retrieve your password
]; $this->{modify_link_problem} = qq[
Top :: Problem
%%problem%%

Go Back
]; $this->{modify_link_success} = qq[
Top :: Success
Your link has been modified. Your changes are currently pending review and will take effect as soon as it has been reviewed.
]; $this->{modify_link_edit} = qq[
Top :: Modify Link
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Your Name:
Email:
Modify Password:
If you want to have this link moved to another category, please specify the category below. Also use the box below to let us know if you have any comments/notes regarding the modification of this link. (Optional)
%%notesbox%%
Note that all modifications are first reviewed before changes are applied.
]; $this->{modify_link_editp} = qq[
Top :: Modify Premium Link
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Your Name:
Email:
Modify Password:
If you want to have this link moved to another category, please specify the category below. Also use the box below to let us know if you have any comments/notes regarding the modification of this link. (Optional)
%%notesbox%%
Note that all modifications are first reviewed before changes are applied.
]; $this->{modify_instructions} = qq[
Top :: Modify Link
To modify your link, please search for your link. Once you've found it click on the 'Modify' link that should be available with your link.
]; $this->{retrievepass} = qq[
Top :: Modify Link
Enter your email address below and your password will be sent to you via email.

Your Email Address:
]; $this->{retrievepass_ok} = qq[
Top :: Password Sent
Your password has been sent. You should receive your password via email shortly.
]; $this->{retrievepass_prb} = qq[
Top :: Problem
The password that you entered was incorrect or there are no link in our database associated with the password you entered.

Go Back
]; $this->{rgs_msgregister} = qq[
Top :: Add URL
You have to be logged in to be able to add your link. If you don't have an account, then click here to create one.
User Name:
Password:
Lost your password? Click here to retrieve your password
]; $this->{rgs_register} = qq[
Top :: Register/Create an Account
Account registration allows you to submit your link and/or post comments about any links. Note that an email message is sent to you to activate your account after you have filled in this form. You will then need to click the link that is available in the email to activate your account. Note that you have to have cookies enabled to be able to log into your account to add your link.
!!error_text!!
Choose a User Name:
Choose a Password:
Verify Password:
Name:
Email Address:
Confirm Email Address:
Subscribe to Newsletter?
%%imgbox%%
Type in the letters as indicated above:
]; $this->{rgs_regsuccess} = qq[
Top :: An account has been created for you.

An activation email has been sent to the email address you supplied. Inside this email will be a link that you will need to click to activate your account. You can log into your account and submit your link when you have activated your account.

]; $this->{rgs_actsuccess} = qq[
Top :: Your account has been activated!
Login:
User Name:
Password:
]; $this->{rgs_actfailed} = qq[
Top :: The link you clicked to activate your account was not valid.
Re-send activation email?
!!error_text!!
User Name:
Password:
]; $this->{rgs_resend} = qq[
Top :: Resend Activation Email
Re-send activation email?
!!error_text!!
User Name:
Password:
]; $this->{rgs_sent} = qq[
Top :: Your account activation email has been sent.
You will receive your account activation email shortly.
]; $this->{rgs_login} = qq[
Top :: Login
  !!error_text!!
User Name:
Password:
Lost your Password? Retrieve Password

Resend Activation Email
]; $this->{rgs_logout} = qq[
You have been logged out.
]; $this->{rgs_retrievepass} = qq[
Top :: Retrieve Password
!!error_text!!
Please provide your email address:
 
]; $this->{rgs_retrievepass_ok} = qq[
Top :: Password Information Sent
Your password information has been sent to your email address. You should receive it within a couple of minutes.
]; $this->{rgs_cpmain} = qq[
%%incl_gluser_cp_links%%
You are Logged-In!
!!user_links!!
]; $this->{rgs_editacc} = qq[
%%incl_gluser_cp_links%%
Edit Account Details
!!error_text!!
User Name: !!rgsuser!!
Password:
Name:
Email Address:
Subscribe to Newsletter?
]; $this->{rgs_saveacc} = qq[
%%incl_gluser_cp_links%%
Account Details Updated
Click here to continue
]; $this->{rgs_add_url_med} = qq[
%%incl_gluser_cp_links%%
Top :: Add URL
!!error_text!!
Category: %%category_dropdown%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Suggest a Category:
Contact Person for This Link:
Contact Email Address For This Link:
%%imgbox%%
Type the letters listed above:
]; $this->{rgs_add_url} = qq[
%%incl_gluser_cp_links%%
Top :: Add URL
!!error_text!!
You have chosen to add your URL in the following category: %%add_category%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Suggest a Category:
Your Name:
Contact Email Address For This Link:
%%imgbox%%
Type the letters listed above:
]; $this->{rgs_add_url_medp} = qq[
%%incl_gluser_cp_links%%
Top :: Add Premium URL
!!error_text!!
Category: %%category_dropdown%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Suggest a Category:
Contact Person for This Link:
Contact Email Address For This Link:
%%imgbox%%
Type the letters listed above:
]; $this->{rgs_add_urlp} = qq[
%%incl_gluser_cp_links%%
Top :: Add Premium URL
!!error_text!!
You have chosen to add your URL in the following category: %%add_category%%
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Suggest a Category:
Your Name:
Contact Email Address For This Link:
%%imgbox%%
Type the letters listed above:
]; $this->{rgs_add_url_instructions} = qq[
%%incl_gluser_cp_links%%
Top :: Add URL Instructions
You are currently not in a category where a url can be added.

To add your URL, please go to the category where you think your web site would suite the category best.

Then click on 'Add Url' to add your web site to the index. You may also use the category search from the advanced search form.
]; $this->{rgs_locked} = qq[
%%incl_gluser_cp_links%%
Top :: Category Locked
You cannot submit to this category because it is locked.

Please use a sub category of this category to submit your submission to.

Go Back
]; $this->{rgs_add_url_problem} = qq[
%%incl_gluser_cp_links%%
Top :: Problem
%%problem%%

Go Back
]; $this->{rgs_add_url_success} = qq[
%%incl_gluser_cp_links%%
Top :: Thanks for submitting your URL
Your URL will be visible in our directory as soon as we have reviewed your listing. Click here to continue.
]; $this->{rgs_modify_link_edit} = qq[
%%incl_gluser_cp_links%%
Modify Link
!!error_text!!
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Contact Person:
Contact Email Address for this Link:
If you want to have this link moved to another category, please specify the category below. Also use the box below to let us know if you have any comments/notes regarding the modification of this link. (Optional)
%%notesbox%%
Note that all modifications are first reviewed before changes are applied.
]; $this->{rgs_modify_link_editp} = qq[
%%incl_gluser_cp_links%%
Modify Premium Link
!!error_text!!
Title:
Description: %%submissionbox%%
Max 255 Characters
Keywords:
URL:
Contact Person:
Contact Email Address for this Link:
If you want to have this link moved to another category, please specify the category below. Also use the box below to let us know if you have any comments/notes regarding the modification of this link. (Optional)
%%notesbox%%
Note that all modifications are first reviewed before changes are applied.
]; $this->{rgs_modify_link_problem} = qq[
%%incl_gluser_cp_links%%
Modify Link
%%problem%%

Go Back
]; $this->{rgs_modify_link_success} = qq[
%%incl_gluser_cp_links%%
Link Modified
Your link has been modified. Your changes are currently pending review and will take effect as soon as it has been reviewed.

Click here to continue
]; $this->{rgs_modify_instructions} = qq[
%%incl_gluser_cp_links%%
Modify Link

You have to be logged in to be able to modify your link. If this is your link but you don't have an account for it or the link is not linked to your account then contact us so that we can add this link to your account. Note that you will need an account if you would like us to add this link to your account.

If you don't have an account and you would like to add your link, then click here to create one.

Login:  
User Name:
Password:
Lost your password? Click here to retrieve your password
]; $this->{rgs_rcomment} = qq[
Top :: Comments
  You can at present not post a comment because you need to register an account to post a comment.
You can click here to register an account.

If you have already registered an account then please
click here to log into your account.
]; $this->{rgs_rrate} = qq[
Top :: Cast Rating
You can at present not rate this link because you need to register an account to rate a link.
You can click here to register an account.

If you have already registered an account then please
click here to log into your account.
]; $this->{rgs_regsuccess_paypal} = qq[
Top :: Submission Received
 Thanks for purchasing a premium listing!
]; $this->{rgs_upgrade} = qq[
Top :: Order Options
The premium Add URL Order Settings section will provide you with HTML code to place here.
To get the HTML code, go to the PowerSeek control panel >> settings >> Premium Link Settings
You will receive HTML code that you can place here after saving the settings.
The HTML code will represent ordering options that users can choose when buying a premium link.
]; $this->{rgs_upgrade_paypal_success} = qq[
Top :: Upgrade Complete
Thanks for uprading your listing to a premium listing!
]; $this->{contact_form} = qq[
Top :: Contact Us
!!error!!
Name:
Email Address:
Subject:
Message:
  %%imgbox%%
Type in the letters as indicated above:
 
]; $this->{contact_thank} = qq[
Top :: Contact Us
Thanks! We will get back to you as soon as possible!
]; bless $this; return $this; } sub get_setup { $exists = (-e "$config_cgi"); if ($exists > 0) { open (STP, "$config_cgi"); while (defined($line=)) { if ($line =~ m/#/g) { $r = pos($line); $line = substr($line, 0, $r - 1); } $line =~ s/\n//g; if ($line =~ /^DB_NAME/){$db_name = &get_setup_line2($line, DB_NAME);} if ($line =~ /^DB_USERNAME/){$db_username = &get_setup_line2($line, DB_USERNAME);} if ($line =~ /^DB_PASSWORD/){$db_password = &get_setup_line2($line, DB_PASSWORD);} if ($line =~ /^MYSQL_HOSTNAME/){$mysql_hostname = &get_setup_line2($line, MYSQL_HOSTNAME);} if ($line =~ /^MYSQL_PORT/){$mysql_port = &get_setup_line2($line, MYSQL_PORT);} if ($line =~ /^SCRIPT_URL/){$script_url = &get_setup_line2($line, SCRIPT_URL);} if ($line =~ /^ADMIN_URL/){$admin_url = &get_setup_line2($line, ADMIN_URL);} if ($line =~ /^WEB_URL/){$web_url = &get_setup_line2($line, WEB_URL);} if ($line =~ /^WEB_DIR/){$web_dir = &get_setup_line2($line, WEB_DIR);} if ($line =~ /^DATA_DIR/){$data_dir = &get_setup_line2($line, DATA_DIR);} if ($line =~ /^USERNAME/){$username = &get_setup_line2($line, USERNAME);} if ($line =~ /^PASSWORD/){$password = &get_setup_line2($line, PASSWORD);} if ($line =~ /^MAIL_METHOD/){$mail_method = &get_setup_line2($line, MAIL_METHOD);} if ($line =~ /^SENDMAIL/){$sendmail = &get_setup_line2($line, SENDMAIL);} if ($line =~ /^SMTP_SERVER/){$smtp_server = &get_setup_line2($line, SMTP_SERVER);} if ($line =~ /^SMTP_USER/){$smtp_user = &get_setup_line2($line, SMTP_USER);} if ($line =~ /^SMTP_PASS/){$smtp_pass = &get_setup_line2($line, SMTP_PASS);} } close (STP); $HTML_ENCODING_USE = acs::get_html_encoding; } } sub get_setup_line2 { my ($setup_line, $setup_var) = @_; $crit = "\""; $setup_line =~ m/$crit/g; $r1 = pos($setup_line); $setup_line =~ m/$crit/g; $r2 = pos($setup_line); $setup_line = substr($setup_line, $r1, ($r2 - $r1 - 1)); $return_val = $setup_line; return ($return_val); } 1;