#!/usr/bin/perl -w # perlhoo.pl - builds a Yahoo like Web directory # by Jonathan Eisenzopf. v1.1 19990319 # Copyright (c) 1999 internet.com LLC. All Rights Reserved. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # Originally published and documented at http://www.webreference.com # Contact eisen@internet.com for all other uses. # Modules use strict; use Text::CSV_XS; use CGI; use CGI::Carp qw(fatalsToBrowser); # Constants my $datafile = 'links.csv'; my $new_datafile = 'links_new.csv'; my $rootdir = '/home/allfunny/public_html/links'; my $baseurl = '/links/links.pl'; my $adminEmail = 'support@allfunnytshirts.com'; my $Mailer = '/usr/sbin/exim -oi -t'; # Main my $query = new CGI; print $query->header; my $reldir = $query->path_info; $reldir =~ s/^\/+//; $reldir =~ s/\/+$//; if ($query->param('keywords') eq 'add') { if ($query->request_method eq 'GET') { &print_add_screen($reldir); } elsif ($query->request_method eq 'POST') { &add_link($reldir); } } else { &print_hoo($reldir); } # Subroutines sub add_link { my $reldir = shift; my $dir = "$rootdir/$reldir"; $dir =~ s/\/+$//; open(FILE, ">> $dir/$new_datafile") || &error("Cannot open $dir/$new_datafile for write: $!"); flock(FILE, 2) || &error("Cannot get exclusive lock for $dir/$new_datafile: $!"); my $csv = Text::CSV_XS->new(); print FILE $csv->string,"\n" if $csv->combine($query->param('url'),$query->param('title'),$query->param('description'),$query->param('backurl'),$query->param('email')); close(FILE); &print_header($reldir); print <$reldir link category. While we do review all new site suggestions, we cannot guarantee that all submissions will be added. The following information will be sent to the directory editor:

HTML print "\n"; print "\n"; print "\n"; print "\n"; print "
URL:",$query->param('url'),"
Title:",$query->param('title'),"
Description:",$query->param('description'),"
Reciprocal Link:",$query->param('backurl'),"
Your Email:",$query->param('email'),"

\n"; print <Return to $reldir
HTML &print_footer($reldir); open MAIL,"|$Mailer"; print MAIL "To: $adminEmail\n"; print MAIL "From: ",$query->param('email'),"\n"; print MAIL "Subject: Link exchange offer\n"; print MAIL "URL > ",$query->param('url'),"\n"; print MAIL "BackURL > ",$query->param('backurl'),"\n"; print MAIL "Title > ",$query->param('title'),"\n"; print MAIL "Description > ",$query->param('description'),"\n"; close MAIL; } sub error { my $msg = shift; print "$msg\n"; die "$msg"; } sub print_add_screen { my $reldir = shift; &print_header($reldir); print <

Add a link to: $reldir

Link Exchange Policy

Link exchange should be mutually beneficial to both parties. We have far too often encountered situations in which webmasters requesting link exchange have a site not meeting our link exchange requirement or have not followed proper link exchange etiquette, thereby costing us considerable wasted time and effort. We have therefore established this link exchange policy to specify what kinds of Web site we can accept and our link quality requirement when you put our link on your site

We don't create link just for link or search engine spider. Instead, we regard link as important content to recommend to our visitors. At All Funny T-shirts, we are proud of our Web site and constantly strive to improve the quality. Therefore, we are quite selective with respect to Web sites we accept for our link exchange partnership. We constantly seek quality sites as reciprocal link exchange partners to benefit our visitors.

Before applying our link exchange partnership, please read and comply with the following partnership qualification and link quality requirements.

Link quality requirement when you put our link on your site

  • You should put our link on a page with suitable subject/theme (shopping/clothing/fun etc.). If there is no suitable topic link page on your site, you should put our link on the homepage of your site.
  • You should use the link info(title, URL and description) or link code we provided on our site when you put our link;
  • You should put a direct link to our site. We do not permit indirect link under any circumstances;
  • You should put our link on an unframed HTML (HyperText Markup Language) or SSI (Server Side Includes) formatted page. We do not permit framing of our pages under any circumstances;
  • You should put our link on the page directly on your site. We do not permit our link on a third-party site/different domain under any circumstances;
  • You should not use meta tags or robots.txt to prevent search engine indexing the page on which you put our link;
  • The page on which you put our link must contain less than 40 outbound links;
  • The page on which you put our link must be reachable from the homepage of your site.

Link Partner Qualification

We will only exchange link with sites meeting all the following requirement:

General requirement:

  • Your site must be live and not under construction;
  • Your site must be in the English language (or have an English version available);
  • Your site must have its own domain name(Exceptions to this rule may be accepted if your website is of very high quality);
  • Submit your site to the single most relevant category;
  • Do not submit sites' URLs which contain nothing more than affiliate links;
  • Do not submit duplicated sites;
  • Do not submit pages which redirect the user to another pages;
  • Do not include prices or offers.

We DO NOT accept the following Web sites as link exchange partners under any circumstances:

  • Web sites not written in English;
  • Web sites punished by Google(Web site being removed entirely from the Google index);
  • Web sites have automated Free-For-All links(FFA) page;
  • Adult entertainment websites;
  • Hate or warez websites;
  • Gambling websites;
  • Web sites that knowingly attempt to download browser add-ons, pop-up generators or active spyware without explicit visitor consent;
  • Websites that knowingly attempt to download any computer security threat such as active spyware, viruses or worms;
  • Any non-themed website such as link farms and content-poor advertising sites, including sites whose primary content is third-party advertising;
  • Websites with undesirable behaviors such as excessive pop-ups, irritating graphics such as rapidly flashing banner ads, or browser hijacking.

Our Rights

  • We reserve the right to deny your link, especially if it determines that a Web site does not meet the criteria or disobey our link quality requirement.
  • We may edit links which are too wordy or use too much marketing language in their descriptions or title.
  • We may at any time revise our link exchange policy. You are bound by any such revisions and should therefore periodically visit this page to review the current version of the policy.

If you have any comments, questions or requests please contact us.

Please use following information code to link to us

Title: All Funny T-shirts
Description: Funny t-shirts that will make you laugh, cool slogan t-shirts, and not so funny offensive t-shirts.
URL: http://www.allfunnytshirts.com

Or use the following HTML code:

Provide information of your site:

URL:
Title:
Description:
Reciprocal Link
(where you placed link to us):
Your Email:

HTML &print_footer($reldir); } sub print_categories { my $reldir = shift; my $dir = "$rootdir/$reldir"; $dir =~ s/\/+$//; opendir DIR,$dir || &error("Cannot open $dir: $!"); my @dirs = sort(grep -d, map "$dir/$_", grep !/^\./, readdir DIR); closedir DIR; my $cats = 0; foreach my $thisdir (@dirs) { $thisdir =~ s/$rootdir\/$reldir//; $thisdir =~ s/\/+$//g; $thisdir =~ s/^\/+//g; $cats = 1; my $url; if ($reldir =~ /\S+/) { $url = "$baseurl/$reldir/$thisdir"; } else { $url = "$baseurl/$thisdir"; } my $pdir = $thisdir; $pdir =~ s/_/ /g; print "
  • $pdir
    • \n"; } if ($cats != 0) { print "
    \n"; } } sub print_header { my $reldir = shift; my @parts = split(/\//,$reldir); print < Funny links at AllFunnyTshirts.com - $reldir
    Funny t-shirts, cool t-shirts

    Cool funny t-shirts that will make you laugh.
    Cool funny slogans on t-shirts, not so funny offensive t-shirts.
    Funny links.
      Home | Shop | F. A. Q. | Links |
     Contact us | Site map 
    Cool funny t-shirts
    HTML print "

    Top"; for (my $i=0; $i < @parts; $i++) { if ($i == (@parts - 1)) { my $title = $parts[$i]; $title =~ s/_/ /g; print ": $parts[$i]"; } else { print ": $parts[$i]"; } } print "

    \n"; } sub print_footer { my $reldir = shift; if ($reldir ne '') { print ""; } print <

    funny collections


    Funny t-shirtsFunny t-shirts
    Cool funny t-shirtsCool t-shirts
    Funny slogan t-shirtsSlogan t-shirts
    Nasty t-shirtsNasty t-shirts
    Offensive t-shirtsOffensive t-shirts
    Religious t-shirtsReligious t-shirts
    Feminist t-shirtsFeminist t-shirts
    Attitude t-shirtsAttitude t-shirts
    Bitch t-shirtsBitch t-shirts
    Bad girl t-shirtsBad girl t-shirts
    Beer t-shirtsBeer t-shirts

    other collections


    Goth t-shirtsGoth t-shirts
    Punk t-shirtsPunk t-shirts
    Music t-shirtsMusic t-shirts
    Movie t-shirtsMovie t-shirts
    New York t-shirtsNew York t-shirts
    Add to Favorites our funny t-shirts storeAdd to Favorites
    E-mail to friend about our funny t-shirts storeE-mail to a friend
    Home Links Help Privacy Contact Us Site Map
    Copyright © 2005 AllFunnyTshirts.com All rights reserved.
    HTML } sub print_hoo { my $reldir = shift; &print_header($reldir); &print_categories($reldir); &print_links("$rootdir/$reldir/$datafile"); &print_footer($reldir); } sub print_links { my $datafile = shift; if (-e $datafile) { open(DATA,$datafile) || &error("Cannot open $datafile: $!"); my $csv = Text::CSV_XS->new(); while () { chomp; $csv->parse($_); my @columns = $csv->fields(); print "
  • $columns[1] - $columns[2]\n"; } } }