"schöne" Sitemap erstellen.

[admin]

Der Static Builder erzeugt ja die Linkliste.html. Diese Datei enthält Links zu allen Seiten des Shops, also zu allen Detail-, Artikel- und Verzeichnisseiten. Wird die Linkliste.html von jeder Seite aus als "Sitemap" verlinkt, ergibt sich eine bessere Linkstrruktur, da alle Seiten des Shops von der Berwerung her "gleicher" werden und so besser gefunden werden können.
Unglücklicherweise liebt zwar Google diese Datei, aber für den Menschen ist sie ziemlich unlesbar. Dies kann man aber ändern und eine alphabetisch sortierte sitemap per SSP erstellen.

Hier das Rezept.
Man lege eine Infoseite mit dem Namen "Sitemap" an. Diese wird natürlich so wie der übrige Shop gestalltet. Im Inhaltsbereich hat man den Identifier __sitemap::generate__,
hier wir die Sitemap ausgegegeben.
Das SSP Script hier zu sieht so aus:
 

Code: [Auswählen]

<!--spmacro:module(sitemap)

## Vom Static Builder erzeugte Linkliste
my $m_linkliste = "../.././linkliste.html";

sub generate {
    open(LINKS, "<$m_linkliste");
    my @lines = <LINKS>;
    close (LINKS);

    my @ausgaben;
   
    my $html;

    foreach my $ln (@lines) {
        $ln =~ s/\r//g;
        $ln =~ s/\n//g;
        $html .= $ln;
    }

    @lines = ();
    @lines = split(/<br>/, $html);

    foreach my $ln (@lines) {
        my ($link,$title) = getLink($ln);
        if (($link ne '') && ($title ne '')) {
            push(@ausgaben, "$title!_!$link");
        }
    }

    @ausgaben = sort {
$a = EntityToAnsi($a);
$b = EntityToAnsi($b);
        my $sa = $a;
        my $sb = $b;
        $a =~ tr/äöüÄÖÜ/aouAOU/;
        $b =~ tr/äöüÄÖÜ/aouAOU/;
        my $res = uc($a) cmp uc($b);
        $a = $sa;
        $b = $sb;
        return $res;
    } @ausgaben;
   
    my $lastchar = "";
    for (my $i = 0; $i <= $#ausgaben; $i++) {
        my ($title, $link) = split(/!_!/,$ausgaben[$i]);
        my $out = "";
$title = EntityToAnsi($title);
        my $curchar = substr($title,0,1);
        $curchar = uc($curchar);
        $curchar =~ tr/äöüÄÖÜ/AOUAOU/;

if ($lastchar ne $curchar) {
            $out .= "<br><h2 style=\"font-weight:bold;\">$curchar</h2><br>";
            $lastchar = $curchar;
        }
        $out .= "<div class=\"content\"><a href=\"$link\">$title</a></div>";
        main::mprint($out);
    }
}


sub getLink {
    my $ln = shift;
    if ($ln =~ /^.*"(.*\.html)".*>(.*)<\/a>/i) {
        return ($1, $2);
    } else {
        return ("","");
    }
}

sub EntityToAnsi {
    my $x = shift;
    $x =~ s/&#([0-9][0-9][0-9]);/pack("C",$1)/eg;  ## z.B. &#228; -> ä
    return $x;
}

-->


Das Script liest linkliste.html ein, sortiert die Einträge und gibt sie alpahbetsich gruppiert aus.




Linkback: https://www.shoppilot.net/pf/index.php?topic=1155.0