bearbeitungen und modifikationen Ask23Wiki

: 1. to do && features
: 2. config:
: 3. wiki tuning:

to do && features

ein bot ähnlich wie der Benutzer:Zwobot (WikiPedia), der automatisch begriffe in wikitexten mit dem /SchlagwortKatalog abgleicht und entsprechend verlinkt
eine extension, der /Ressourcen? aus dem archivsystem, benannt mit Ask23Ressource:Kennung, anzeigt mit Autor: Titel (link)
patches: WikiPatches/BracketLinksWithAnchor (UseMod)

config:

/InterMap

wiki tuning:

(anfänge leider nur unvollständig dokumentiert...)

patch WikiPatches/PerlDiff (UseMod) -- 2006-06-28

patch für besseren versions-vergleich, inkl. "Word-by-word granularity"

patch WikiPatches/RssInclusion (UseMod) -- 2006-03-30

plus der folgenden ergänzungen:

  if ($@) {
	  return "[RSS parsing failed for $uri]";
	} else {
	  my $counter = 0;
	  # ask23 mod, show channel infos, image
	  my $str = "<div class=\"newsfeed\">\n";
	  if ( $rss->{'image'}->{'url'} ) {
	  	$str .= "<a href=\"".$rss->{'channel'}->{'link'}."\" title=\"Link zum Newsfeed\"><img src=\"".$rss->{'image'}->{'url'}."\" alt=\"".$rss->{'image'}->{'title'}."\" width=\"200px\" /></a>";
	  }
	  $str .= "<p>\n";
	  $str .= "<dfn title=\"RSS Newsfeed\">RSS:</dfn> \n";
	  $str .= "<strong><a href=\"".$rss->{'channel'}->{'link'}."\" title=\"Link zum Newsfeed\">".$rss->{'channel'}->{'title'}."</a></strong> ";
	  if ( $rss->{'channel'}->{'description'} ) {
		  $str .= " -- ".$rss->{'channel'}->{'description'}."\n";
	  }
	  $str .= "</p>\n";
	  
	  my $ev = "http://purl.org/rss/1.0/modules/event/">

	  $str .= "<ul>\n";
	  for my $i (@{$rss->{items}}) {
	    $counter++;
	    last if $counter > $maxitems;
		$str .= "<li>";
		# ask23 mod, show event startdate, if any
		if ( $i->{$ev}->{'startdate'} ) {
			# transform to german date
			my @date = split ( /T/,$i->{$ev}->{'startdate'}); 
			my $time = substr ($date[1],0,5); # 17:00
			@date = split ( /-/,$date[0]); # 2004 06 11
			my $date = sprintf ("%02d.%02d.%02d", $date[2],$date[1],$date[0]-2000);
			$str .= $date;
		}	
	    $str .= qq{<a href="$i->{'link'}">[$i->{'title'}]</a>};

	    $str .= QuoteHtml(qq{ -- $i->{'description'}}) if $i->{'description'};
	  }

patch WikiPatches/TableOfContentsForUnnumberedHeadings (UseMod) -- 2006-03-30

css: symbol (pfeil) für externe links
in interwiki: schlagwortsuche als Schlagwort (Ask23SWK)

binnen-I kein wikilink -- 2005-08-12

  sub GetPageOrEditAnchoredLink {
  (....)
   if ($EditNameLink) {
    return &GetEditLink($id, $name);
   } elsif ( $id =~ /Innen$/ ) {   # quick'n'dirty: german syntax for gender-neutral naming should not become a wikilink!
     return $name;
  } else {
    return $name . &GetEditLink($id, '?');
  }

diff

 1192,1193d1191
 <   } elsif ( $id =~ /Innen$/ ) {   # quick'n'dirty: german syntax for gender-neutral naming should not become a wikilink!
 <   return $name;

header mit rootline (pfad) und link zur ask23-startseite erweitert und mit css formatiert -- 2005-06-22

1496,1498c1496
<   $bartext = "<a href=\"/draft/\" title=\"Startseite des Archivsystems\">Ask23</a>:  ";
<
<   $bartext  .= &GetPageLink($HomePage);
---
>   $bartext  = &GetPageLink($HomePage);

1502c1500
<     $bartext .= " > " . &GetPageLink($main);
---
>     $bartext .= " | " . &GetPageLink($main);

1504,1510c1502
<   # add rootline/path to GotoBar
<   my $pagename = $id;
<   $pagename =~ s/$main\/// if $main;
<   $bartext .= " > <strong>$pagename</strong>" unless ( $pagename eq $HomePage );
<
<
<   $bartext .= " || " . &GetPageLink($RCName);
---
>   $bartext .= " | " . &GetPageLink($RCName);

tabellen formatierung von zentriert auf linksbündig

 sub WikiLinesToHtml {
 (...)
 } elsif ($TableSyntax &&
             s/^((\|\|)+)(.*)\|\|\s*$/"<TR VALIGN='top' "
                                      . "ALIGN='left'><td colspan='"
                               . (length($1)\/2) . "'>$3<\/td><\/TR>\n"/e) {

link tags eingebaut (http://de.selfhtml.org/html/kopfdaten/beziehungen.htm) -- 2004-12-06

sub GetHtmlHeader {
   (...)
   $html .= "<link rel=\"Start\" href=\"/cgi-bin/wiki/wiki-ask23.pl\" />\n";
   $html .= "<link rel=\"Help\" href=\"/cgi-bin/wiki/wiki-ask23.pl#wikihelp\" />\n";
   $html .= "<link rel=\"Bookmark\" href=\"/cgi-bin/wiki/wiki-ask23.pl?HandBuch\" title=\"ask23 handbuch\" />\n";
   $html .= "<link rel=\"Bookmark\" href=\"/cgi-bin/wiki/wiki-ask23.pl?TechDoc\" title=\"ask23 techn. dokumentation\" />\n";
}

wiki umbenannt von ask23 in Ask23Wiki -- 2004-12-06

sprache des wikis auf deutsch umgestellt (Translations (UseMod)) -- 2004-12-06

externe links werden jetzt ebenfalls andersfarbig markiert -- 2004-12-01

sub StoreBracketUrl {
   (...)
  } else {
    # externer link
    $text = "<span style=\"color:#990099; border-bottom: 1px dotted black; 
text-decoration: none\">$text </span>" unless ( $url =~ /ask23/ );

  }
  return &StoreRaw("<a href=\"$url\">$text</a>");
}

das einfügen von sprungmarken mit [#sprungmarke] wird mit einem hr tag ergänzt -- 2004-11-24

sub StoreHref {
  my ($anchor, $text) = @_;
  return "<hr class=\"anchorline\">\n<a" . &StoreRaw($anchor) . ">$text</a>";
}

robots anweisungen eingebaut

sub GetHtmlHeader {
   (...)
   $html .= "<meta name=\"robots\" content=\"noindex, nofollow\">\n";
}

newsfeed als link eingebaut

sub GetHtmlHeader {
   (...)
  $html .= "<link rel=\"Alternate\" type=\"application/rss+xml\" title=\"RSS\" href=\"/cgi-bin/wiki/wiki-ask23.pl?action=rss\" />\n";

}

BracketText? ohne eckige Klammern [WikiPedia:Wiki] --> Wiki (WikiPedia) --- ohne Datum, Nachtrag

 sub StoreBracketUrl? {
  my ($url, $text, $useImage) = @_;
  if ($text eq "") {
    $text = &GetBracketUrlIndex?($url);
  }
  if ($BracketImg? && $useImage && &ImageAllowed?($text)) {
    $text = "<img src=\"$text\">";
  } else {
    # $text = "[$text]";
  }
  return &StoreRaw("<a href=\"$url\">$text</a>");
 }

 sub StoreBracketLink? {
  my ($name, $text) = @_;
  return &StoreRaw?(&GetPageLinkText?($name, "$text"));
 }

 sub StoreBracketAnchoredLink? {
  my ($name, $anchor, $text) = @_;
  return &StoreRaw?(&GetPageLinkText?("$name#$anchor", "$text"));
 }

 sub StoreBracketInterPage? {
  my ($id, $text, $useImage) = @_;
 (...)
  if ($BracketImg? && $useImage && &ImageAllowed?($text)) {
    $text = "<img src=\"$text\">";
  } else {
    $text = "$text"; # instead of "[text]"
  }
  return &StoreRaw("<a href=\"$url\">$text</a>");

}

InterWiki (UseMod) links geändert von von WikiPedia:Suchen auf Suchen (WikiPedia) (kennzeichnung durch andersfarbigen link, interwiki-wort verstecken) -- 2004-11-10
WikiPatches/SSIPatch (UseMod) installiert, zur einbettung von wiki-seiten in den statischen seiten der website (siehe auch bug #035) -- 2004-09-08 - 2004-09-22

: einbindung mit:

  <!--#include virtual="/cgi-bin/wiki-ask23.pl?id=SandBox&ssi=1" -->

TechDoc/WikiToDo

bearbeitungen und modifikationen Ask23Wiki

to do && features

config:

wiki tuning: