#!/usr/bin/perl

#addlink.cgi - add a link to the link file...


#read parameters.  
#Add site if needed.
#build lists of sites -> 2 lists, one of categories for select, one of sites.

use jo;
use CGI;
$query = new CGI;
$query->import_names('R');

print "Content-type: text/html\n\n";



my %links;
my %categories;
load_link_hash();

foreach $k (sort keys %links) {
    foreach $k2 (sort keys %{$links{$k}} ) {
        #print STDERR "$k:$k2:$links{$k}{$k2}\n";
    }
}


##### WRITE OUT LINK - if it exists.
if (length($R::url) > 10) {
    #fix category...
    my $category = $R::category_input || $R::category_select || 'none';

    $query->delete('category_input');
    $query->delete('category_select');

    $query->append(-name=>'category',-values=>[$category]);

    # $R::email =~ s/\s|,//g;
    open OUT, ">>../data/sitelist.txt" or print "Sorry...can't save your changes by writing to sitelist.txt |$!|";
    print OUT "<link>\n";
    my %this_link;
    foreach $param ($query->param) {
        my $value = $query->param($param);
        print_tag($param, $value);
        $this_link{$param} = $value;
    }
    #add the values from this site to the hash of all sites.
        foreach $k (keys %this_link) {
            $links{$this_link{url}}{$k} = $this_link{$k};
        }

    #add this category.
        my $lclink = lc $this_link{'category'} ;
        $categories{$lclink} = $this_link{'category'}++;

    print OUT "\n</link>\n\n";
	close OUT;
} #writing to file...


close OUT;

#now build the page?
my $list_list;
my %cat;

#### BUILD LINK_LIST -> how it will look.
#walk and build by category, then walk and format.
    my %cformat;

    foreach $k (sort keys %links) {
        #    $cat{$links{$k}{'category'}}{$k}{$links{$k}{

        my $link;

        $link .= "<li><a href=\"$links{$k}{'url'}\">$links{$k}{'title'}</a><br>\n";
        $link .= $links{$k}{'comment'} . "\n";

        #$link_list .= '<b>' . $links{$k}{'category'} . "</b><br>\n";
        #$link_list .= "<a href=\"$links{$k}{'url'}\">$links{$k}{'title'}</a><br>\n";
        #$link_list .= $links{$k}{'comment'} . "<hr>\n";

        $cformat{$links{$k}{'category'}}  .=   $link;


        #    foreach $k2 (sort keys %{$links{$k}} ) {
        #        $page .= "$k:$k2:$links{$k}{$k2}<br>\n";
        #        #print STDERR "$k:$k2:$links{$k}{$k2}\n";     
        #    }
    } #end building link_list

    foreach my $cat (sort keys %cformat) {
        $link_list .= "<h2>$cat</h2><ul>$cformat{$cat}</ul>";
    }

#my $page = read_links();

#### Get Header...
    open TEMP, "../site/links.txt" or die "Can't open header template: $!\n";
    my $template;
    {local $/; undef $/; $template = <TEMP>;}
    close TEMP;


#build catlist
    my $catlist;
    foreach my $k (sort keys %categories) {
        $catlist .= "<option value=\"$categories{$k}\">$categories{$k}\n";
    }
#sub catlist
    $template =~ s/#catlist#/$catlist/i;

#display the template and the list.
showsub($template . "<hr>" . $link_list,'hide footer');


sub print_tag {
    my $param=shift;
    $param = lc $param;
    my $value=shift;
    print OUT "\t<$param>$value</$param>\n";
} #print_tag

sub load_link_hash {
    #populate %links

    # READ WHOLE FILE
       # my $page;
        open IN, "../data/sitelist.txt" or print "Can't read file sitelist.txt |$!|";
        my $st;
        {local $/; undef $/; $st = <IN>;}

    #   /BEGIN((?:(?!BEGIN).)*)END/

    
    # WALK DATA, POPULATE HASH
        while ($st =~ s/<link>((?:(?!<link>).)*)<\/link>//ims) {
            #print STDERR "\n SITE: |$1|$2|$3| \n\n";
            #$page .= "<hr>NEW SITE: $1\n";
            my $this_link = $1;

            my %this_link; 
            while ($this_link =~ s!<([^>]+)>([^<]*)</[^>]*>!!ims) {
                $this_link{$1}=$2;            
                #print STDERR "tag \$1: |$1| Value \$2: |$2|\n";
            }

            #add the values from this site to the hash of all sites.
            foreach $k (keys %this_link) {
                $links{$this_link{url}}{$k} = $this_link{$k};
            }

            #load category hash.  Key is lc, value is cased as input.
                my $lclink = lc $this_link{'category'} ;
                $categories{$lclink} = $this_link{'category'}++;
        } #populate hash.
    close IN;
}