Gossamer Forum
Home : Products : Links 2.0 : Customization :

Infamous Yahoo Mod by Widgetz

Quote Reply
Infamous Yahoo Mod by Widgetz
Does anyone have a copy of the Yahoo Mod by Widgetz? It is not in the resource are and a search in the forums showed nothing. Any help will be appreciated.

I tried the Yahoo Mod v2.1 but it was too buggy... I would prefer the original one.


Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
the yahoo mod never went to 2.1.. i don't know who made subcategories like yahoo v2.1..

i am widgetz btw.. and the mod is not being distributed freely anymore..

Jerry Su
Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
Hello Jerry,

It was someone trying to "improve" your code. : ) I just recently installed Links as I had actually heard about most of your mods. Then when I got here and learned of people abusing your time and taking advantage of you I was quite displeased.

No offense to Alex, but Jerry I think you should contemplate making your own link indexing script. From what I have seen here Alex wrote a very basic script that can be cusomizable. However, the majority of his customer base are people who don't want to mess with PERL. They want the backend to be done for them. I would be very happy to pay for this as I don't have the time to mess with the script for hours on end. Jerry you could make a bunch of money.

Could you please e-mail me if you offer any of your mods on a pay basis anymore with a little description of what they do. It's ashame that the most popular and PERL knowledgable person on these forums had to leave ebcause they were taken advantage of.

I do know this though, Jerry. If my business was established enough, I would hire you in a second for a full time position with my company.

Thank you,
Paul Szymanski

Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
i no longer have the time to do this.. i am currently trying to finish a project and i have less than an hour a week to work on it.. i'm about 98% done and hopefully will get it done this or next week..

Jerry Su
Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
Jerry Su - why do you torture us like this? I MUST have your Yahoo Mod. Is there any way that I can purchase it off of you? I know you had an arguement or whatever with another user, but this is ridiculous. Kids always join forums and yap their mouths like fools. Please post your Yahoo Mod in the name of Development.

Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
From what I have been reading there are many people who want this mod. Me included. I am willing to pay for it also, but its like top secret or something.. I don't understand why you took it away. Someone has this script on their machine somewhere... ho hum....

HELP US... please..

Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
What exactly is in the yahoo mod? Is it the subcategories or what?

Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
It dynamically prints subcategories underneath main categories rather than manually adding links in the DESCRIPTION field.

Search this forum for Subcategories like Yahoo for more information.


Eliot Lee
Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
Sorry.. but I myself don't have a copy of subcategories like yahoo on my computer and I won't go into Links 2.0 mods again. I don't even think I'll be using Links SQL 2.0.1 even though I have a license to use it. I come here solely for PERL, although my knowledge of it is quickly fading

Jerry Su
widgetz sucks
Quote Reply
Re: Infamous Yahoo Mod by Widgetz In reply to
I don't know why always people ask for this mod, it is realy not that hard to do! Widgtetz is realy not the only one around with some perl knowledge. Why is everybody thinking about him as "god of perl and links"? Don't care about him, others will fill in for him!

Doesn't matter! This is code from my links-installation, which does this "yahoo-mod" (I would prefer to call it "subcatagory-mod"). I have done it by myself, it is in no way a copy of widgets mod. So I'm free to show it in this place. You are free to is it!

I have only done this for the template-version, but it should be easy to adopt it for the non-template-version.

in in site_html_templates.pl change this:
sub site_html_print_cat {
# --------------------------------------------------------
# This routine determines how the list of categories will look.
# We now use a table to split the category name up into two columns.
# For each category you can use the following variables:
# $url : The URL to go to that category
# $category_name : The category name with _ and / removed.
# $category_descriptions{$subcat}: The category description (if any).
# $numlinks : The number of links inside that category (and subcategories).
# $mod : The newest link inside of that category.

my (@subcat) = @_;
my ($url, $numlinks, $mod, $subcat, $category_name, $description, $output, $i);
my ($half) = int (($#subcat+2) / 2);

# Print Header.
$output = qq|<div class="margin"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td class="catlist" valign="top">\n|;

foreach $subcat (sort @subcat) {
my $mod = $stats{"$subcat"}[3];
my $new_add = $stats{"$subcat"}[4];
($description) = @{$category{$subcat}}[2];
$mod = $stats{"$subcat"}[1];

# First let's get the name, number of links, and last modified date...
$url = "$build_root_url/" . &urlencode($subcat) . "/";
if ($subcat =~ m,.*/([^/]+)$,) { $category_name = &build_clean($1); } else { $category_name = &build_clean($subcat); }
$numlinks = $stats{"$subcat"}[0];

# We check to see if we are half way through, if so we stop this table cell
# and begin a new one (this lets us have category names in two columns).
if ($i == $half) {
$output .= qq|</td><td class="catlist" valign="top">\n|;

# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq|<dl><dt><strong><a class="link" href="$url">$category_name</a></strong> <small class="numlinks">($numlinks)</small> |;
my $days_old = &days_old($mod) / $db_new_cutoff;
if ($days_old <= 0.3) { $output .= qq| $new1|; }
elsif ($days_old <= 0.6) { $output .= qq| $new2|; }
elsif ($days_old <= 1) { $output .= qq| $new3|; }
if ($mod eq "Yes") { $output .= qq~ $updated~; }
$output .= qq|</dt>|;

if ($#{$subcategories{$subcat}} >= 0) {
$v = 0;
$output .= qq~<BR><SPAN CLASS="xsmall">~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<A HREF="$suburl">$subcategory_name</A>~ if ($v <= 5);
$output .= qq~<font color="#000000">...</font>~ if ($v eq "5");
$output .= qq~<font color="#000000">, </font>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$output .= qq~</SPAN>~;

$output .= qq|<dd><span class="descript">$description </span></dd>| if (!($description =~ /^[\s\n]*$/));
$output .= qq|</dl>|;

# Don't forget to end the unordered list..
$output .= "</td></tr></table></div>\n";
return $output;
Be carefull of this, some markup is hardcoded, and I use CSS! I think this should work, I've marked the new part in red. But I'm not shure, if it is all to do, because I have done this 2 years ago!

You may see a working example at http://larp-welt.de/.