<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">*** wiki.pl	2004-05-29 16:08:41.000000000 +0200
--- larpwiki-amazon.pl	2004-05-29 16:08:35.000000000 +0200
***************
*** 26,31 ****
--- 26,33 ----
  #    59 Temple Place, Suite 330
  #    Boston, MA 02111-1307 USA
  
+ # applied patch: larpwiki-amazon.diff
+ 
  package UseModWiki;
  use strict;
  local $| = 1;  # Do not buffer output (localized for mod_perl)
***************
*** 64,69 ****
--- 66,74 ----
    $AnchoredLinkPattern @HeadingNumbers $TableOfContents $QuotedFullUrl
    $ConfigError $UploadPattern );
  
+ # amazon-patch
+ use vars qw($ASINPattern $AmazonPage $AmazonStuff $AmazonPartnerId $ASINUrl);
+ 
  # == Configuration =====================================================
  $DataDir     = "/tmp/mywikidb"; # Main wiki directory
  $UseConfig   = 1;       # 1 = use config file,    0 = do not look for config
***************
*** 321,326 ****
--- 326,332 ----
    $RFCPattern = "RFC\\s?(\\d+)";
    $ISBNPattern = "ISBN:?([0-9- xX]{10,})";
    $UploadPattern = "upload:([^\\]\\s\"&lt;&gt;$FS]+)$QDelim";
+   $ASINPattern = "ASIN:?\\s?(\\w{10,10})";
  }
  
  # Simple HTML cache
***************
*** 568,573 ****
--- 574,583 ----
                                $revision, $newText);
      $fullHtml .= "&lt;hr class=wikilinediff&gt;\n";
    }
+   # amazon-patch
+   if ($id eq $AmazonPage and $AmazonPage ne '') {
+     $fullHtml .= "&lt;div class=\"amazon\"&gt;$AmazonStuff&lt;/div&gt;\n";
+   }
    $fullHtml .= '&lt;div class=wikitext&gt;';
    $fullHtml .= &amp;WikiToHTML($Text{'text'});
    $fullHtml .= '&lt;/div&gt;';
***************
*** 1661,1666 ****
--- 1671,1677 ----
      }
      s/\b$RFCPattern/&amp;StoreRFC($1)/geo;
      s/\b$ISBNPattern/&amp;StoreISBN($1)/geo;
+     s/\b$ASINPattern/&amp;StoreASIN($1)/geo;
      if ($UseUpload) {
        s/$UploadPattern/&amp;StoreUpload($1)/geo;
      }
***************
*** 2002,2007 ****
--- 2013,2032 ----
    return "&lt;a href=\"http://www.faqs.org/rfcs/rfc${num}.html\"&gt;RFC $num&lt;/a&gt;";
  }
  
+ sub StoreASIN {
+   my ($num) = @_;
+ 
+   return &amp;StoreRaw(&amp;ASINLink($num));
+ }
+ 
+ sub ASINLink {
+   my ($num) = @_;
+   $ASINUrl = "http://www.amazon.com/exec/obidos/ASIN" unless $ASINUrl;
+   $AmazonPartnerId = '' unless $AmazonPartnerId;
+ 
+   return "&lt;a href=\"$ASINUrl/$num/$AmazonPartnerId\"&gt;ASIN $num&lt;/a&gt;";
+ }
+ 
  sub StoreUpload {
    my ($url) = @_;
  
</pre></body></html>