Yi-bot.pl

From Organic Design wiki
Revision as of 11:05, 1 September 2007 by Nad (talk | contribs) (comments)
  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.
Book.svg 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!

I Ching.jpg Understanding the I Ching.jpg The Complete I Ching.jpg The Tao of Pooh.jpg Tao Te Ching.jpg

Quick Hexagram Index

LOWER
TRIGRAM
UPPER TRIGRAM
Ch'ien
Blank.gif
Blank.gif
Blank.gif
Chên
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
K'an
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
Kên
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
K'un
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Sun
Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
Li
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
Tui
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif
Ch'ien
Blank.gif
Blank.gif
Blank.gif
1 34 5 26 11 9 14 43
Chên
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
25 51 3 27 24 42 21 17
K'an
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
6 40 29 4 7 59 64 47
Kên
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
33 62 39 52 15 53 56 31
K'un
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
12 16 8 23 2 20 35 45
Sun
Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
44 32 48 18 46 57 50 28
Li
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
13 55 63 22 36 37 30 49
Tui
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif
10 54 60 41 19 61 38 58

Trigram Overview

    Name Attribute Image Relation
Blank.gif
Blank.gif
Blank.gif
Ch'ien Creative strong heaven father
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
K'un Receptive devoted, yielding earth mother
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
Chên Arousing inciting movement thunder 1st son
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
K'an Abysmal dangerous water 2nd son
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif Blank.gif Blank.gif
Kên Keeping Still resting mountain 3rd son
Blank.gif
Blank.gif
Blank.gif Blank.gif Blank.gif
Sun Gentle penetrating wind, wood 1st daughter
Blank.gif
Blank.gif Blank.gif Blank.gif
Blank.gif
Li Clinging light-giving fire 2nd daughter
Blank.gif Blank.gif Blank.gif
Blank.gif
Blank.gif
Tui Joyous joyful lake 3rd daughter
        
Local articles


Wikipedia articles


Web resources


Products
  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); }