Yi-bot.pl

1. !/usr/bin/perl
2. Script to fix up hexagram articles which used "casual HTML" for their tables which MW 1.9.x doesn't allowOur Perl scripts.

This selection of articles can be downloaded as a PDF book (or as html only) (see Pdf Book extension for details about this functionality)

Our Favourite I Ching & Taoist Books

These books are from The Book Depository who deliver anywhere in the world for free!

Quick Hexagram Index

LOWER TRIGRAM ▼ UPPER TRIGRAM Ch'ien Chên K'an Kên K'un Sun Li Tui Ch'ien 1 34 5 26 11 9 14 43 Chên 25 51 3 27 24 42 21 17 K'an 6 40 29 4 7 59 64 47 Kên 33 62 39 52 15 53 56 31 K'un 12 16 8 23 2 20 35 45 Sun 44 32 48 18 46 57 50 28 Li 13 55 63 22 36 37 30 49 Tui 10 54 60 41 19 61 38 58 Trigram Overview     Name Attribute Image Relation Ch'ien Creative strong heaven father K'un Receptive devoted, yielding earth mother Chên Arousing inciting movement thunder 1st son K'an Abysmal dangerous water 2nd son Kên Keeping Still resting mountain 3rd son Sun Gentle penetrating wind, wood 1st daughter Li Clinging light-giving fire 2nd daughter Tui Joyous joyful lake 3rd daughter

Local articles Divination - details on four coin method Bagua - the trigrams and arrangements Shuo Kua Chapter 1 Shuo Kua Chapter 2 Shuo Kua Chapter 3 I Ching / Ten Wings / Excerpts Hexagram selector Wikipedia articles I Ching I Ching divination I Ching category Bagua Taoism Taoism category King Wen sequence Li Ching-Yuen Web resources An excellent site on the hexagrams Many translations and articles I Ching Resources I Ching Articles Taoist Alchemy Circular hexagram diagrams Tao Te Ching translations Project Mayhem wiki About the Tao of Man Products TheWilhelm Translation Wilhelm's Lectures on the I Ching I Ching T-shirts I Ching Coffee Mugs

1. Set up a user agent

use HTTP::Request; use LWP::UserAgent; $client = LWP::UserAgent->new(

       cookie_jar => {},
       agent => 'Mozilla/5.0',
       from => 'wikid.pl@organicdesign.co.nz',
       timeout => 10,
       max_size => 100000
       );

1. Wiki script URL and comment to use for edit summary

$wiki = 'http://www.organicdesign.co.nz/wiki/index.php'; $summary = 'Convert table syntax to non-casual HTML';

1. Loop through the 64 hexagrams

for $i (1..64) { $hex = "Hexagram_$i"; print "$hex\n";

# Read the raw wikitext of the current hexagram $response = $client->get("$wiki?title=$hex&action=raw"); $_ = $response->content;

# Fix the article with regular expression replacements s/<td align/<foo/g; s/(<td.+?<)/$1\/td></g; s/(<tr.+?)(?=<tr)/$1<\/tr>/g; s/<\/table><\/table>/<\/tr><\/table><\/td><\/tr><\/table>/g;

s/<foo/<\/td> $hex,

caction => 'replace', summary => $summary, content => "$_\n" ); $client->post($wiki,\%form);

sleep(0.5); }