--- deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 19:47:06	1.4
+++ deliantra/Deliantra-Client/bin/pod2wiki	2006/08/14 01:54:09	1.5
@@ -1,11 +1,13 @@
 #! perl
 
-use Storable;
-
 # convert given .pod files to wiki style
 
+# base path of arch tree, only used for new arch graphics
+my $ARCH = "/root/src/cf.schmorp.de/arch";
+
 use strict;
 
+use Storable;
 use Pod::POM;
 
 our @result;
@@ -64,6 +66,11 @@
 
    if ($link =~ /http:/) {
       "<u>" . (::asxml $link) . "</u>"
+   } elsif ($link =~ /^\$ARCH\/(.+)$/) {
+      my $path = $1;
+      (my $base = $path) =~ s/.*\///;
+      -f "$ARCH/$path" && system "cp -p \Q$ARCH/$path\E \Qresources/arch/$base";
+      "${MA_BEG}image${MA_SEP}arch/$base$MA_END"
    } else {
       "${MA_BEG}link$MA_SEP$text$MA_SEP$link$MA_END"
    }
@@ -185,7 +192,7 @@
    my ($node) = @_;
 
    for (@{ $node->{kw} || {} }) {
-      push @{$wiki{$_}}, $node;
+      push @{$wiki{lc $_}}, $node;
    }
 }