# kgr_safe_excerpt 0.2
# Generates an excerpt based on the body text with tags removed, or the excerpt, if it exists
# Kurt Raschke
# http://www.raschke.net/~kurt/

# .....................................................................
# This is a plugin for Textpattern - http://textpattern.com/
# To install: textpattern > admin > plugins
# Paste the following text into the 'Install plugin' box:
# .....................................................................

YTo5OntzOjQ6Im5hbWUiO3M6MTY6Imtncl9zYWZlX2V4Y2VycHQiO3M6NjoiYXV0aG9yIjtzOjEyOiJLdXJ0IFJhc2Noa2UiO3M6MTA6ImF1dGhvcl91cmkiO3M6Mjk6Imh0dHA6Ly93d3cucmFzY2hrZS5uZXQvfmt1cnQvIjtzOjc6InZlcnNpb24iO3M6MzoiMC4yIjtzOjExOiJkZXNjcmlwdGlvbiI7czo5MToiR2VuZXJhdGVzIGFuIGV4Y2VycHQgYmFzZWQgb24gdGhlIGJvZHkgdGV4dCB3aXRoIHRhZ3MgcmVtb3ZlZCwgb3IgdGhlIGV4Y2VycHQsIGlmIGl0IGV4aXN0cyI7czo0OiJoZWxwIjtzOjE1MTA6IjxwPlVzYWdlOiA8Y29kZT4mbHQ7dHhwOmtncl9zYWZlX2V4Y2VycHQgd29yZHM9IjEwMCIgbGlua3RleHQ9IlJlYWQgTW9yZSI+PC9jb2RlPjxiciAvPlRoZSA8aT53b3JkczwvaT4gYW5kIDxpPmxpbmt0ZXh0PC9pPiBwYXJhbWV0ZXJzIGFyZSBib3RoIG9wdGlvbmFsLCBpZiBvbWl0dGVkLCB3aWxsIGRlZmF1bHQgdG8gMjAgYW5kICJtb3JlLi4uIiwgcmVzcGVjdGl2ZWx5Lg0KPGJyIC8+PGJyIC8+DQpJZiBhbiBhcnRpY2xlIGhhcyBhbiBleGNlcnB0LCB0aGVuIHRoZSBwbHVnaW4gd2lsbCBvdXRwdXQgdGhlIGV4Y2VycHQgYWxvbmcgd2l0aCBhIGxpbmsgdG8gdGhlIGZ1bGwgYXJ0aWNsZS4NCklmIHRoZXJlIGlzIG5vIGV4Y2VycHQsIHRoZW4gdGhlIHBsdWdpbiB3aWxsIGNoZWNrIHRoZSBudW1iZXIgb2Ygd29yZHMgaW4gdGhlIGFydGljbGUuDQpJZiB0aGUgbGVuZ3RoIG9mIHRoZSBhcnRpY2xlIGlzIHVuZGVyIHRoZSBzcGVjaWZpZWQgbnVtYmVyIG9mIHdvcmRzLCB0aGVuIHRoZSBhcnRpY2xlIHdpbGwgYmUgaW5jbHVkZWQgdmVyYmF0aW0sIHdpdGggbm8gbGluayB0byB0aGUgZnVsbCBhcnRpY2xlLg0KT3RoZXJ3aXNlLCB0aGUgZmlyc3QgPGk+d29yZHM8L2k+IHdvcmRzIHdpbGwgYmUgaW5jbHVkZWQsIGFuZCBhbGwgSFRNTCB0YWdzIHdpbGwgYmUgc3RyaXBwZWQuDQpUaGlzIGhlbHBzIHRvIHByZXZlbnQgYnJva2VuIEhUTUwgKGlmLCBmb3IgZXhhbXBsZSwgdGhlcmUgd2FzIGEgPGNvZGU+Jmx0O2I+PC9jb2RlPiB0YWcgaW4gdGhlIGFydGljbGUsIGJ1dCB0aGUgY2xvc2luZyB0YWcgaXMgY3V0IG9mZikuDQpGaW5hbGx5LCBhIGxpbmsgdG8gdGhlIGZ1bGwgYXJ0aWNsZSBpcyBhZGRlZC4NCg0KVGhlcmUgYXJlIHR3byBuZXcgcGFyYW1ldGVycyBpbiB2ZXJzaW9uIDAuMjo8YnIgLz48YnIgLz4NCjx1bD4NCjxsaT48Yj5jb3VudGNoYXJzPC9iPjogSWYgc2V0IHRvIGFueSB2YWx1ZSwgdGhlbiB0aGUgPGk+d29yZHM8L2k+IHBhcmFtZXRlciB3aWxsIGJlIHRha2VuIGFzIGEgY2hhcmFjdGVyIGNvdW50IGFzIG9wcG9zZWQgdG8gdGhlIGRlZmF1bHQgd29yZCBjb3VudDwvbGk+DQo8bGk+PGI+Y291bnRleGNlcnB0PC9iPjogSWYgc2V0IHRvIGFueSB2YWx1ZSwgdGhlbiB0aGUgZXhjZXJwdCwgaWYgaXQgZXhpc3RzIHdpbGwgYmUgdHJ1bmNhdGVkIGJhc2VkIG9uIHRoZSB2YWx1ZSBvZiB0aGUgPGk+d29yZHM8L2k+IHBhcmFtZXRlciAoYW5kIHRoZSA8aT5jb3VudGNoYXJzPC9pPiBwYXJhbWV0ZXIsIGlmIHNldCkuICBJZiB0aGVyZSBpcyBubyBleGNlcnB0LCB0aGVuIHRoZSBhcnRpY2xlIGJvZHkgd2lsbCBiZSBwcm9jZXNzZWQgYXMgdXN1c2FsLg0KPC91bD4NCg0KVGhpcyBwbHVnaW4gaXMgYmFzZWQgb24gRG91Z2xhcyBMaXZpbmdzdG9uZSdzIDxjb2RlPmJ0eF9leGNlcnB0PC9jb2RlPiBwbHVnaW4sIGJ1dCBpcyBkZXNpZ25lZCB0byBvcGVyYXRlIG1vcmUgbGlrZSBNb3ZhYmxlIFR5cGUncyBleGNlcnB0IGhhbmRsaW5nLg0KPC9wPg0KDQoiO3M6NDoiY29kZSI7czoxMjY5OiIgICAgZnVuY3Rpb24ga2dyX3NhZmVfZXhjZXJwdCgkYXR0cykgew0KICAgICAgICBpZiAoaXNfYXJyYXkoJGF0dHMpKSBleHRyYWN0KCRhdHRzKTsNCiAgICAgICAgICAgIA0KICAgICAgICBnbG9iYWwgJHRoaXNhcnRpY2xlOw0KICAgICAgICAkd29yZHMgPSAoIWVtcHR5KCR3b3JkcykpID8gJHdvcmRzIDogMjA7DQoNCiAgICAgICAkY291bnRjaGFycyA9IChpc3NldCgkY291bnRjaGFycykpID8gdHJ1ZSA6IGZhbHNlOw0KDQogICAgICAgJGNvdW50ZXhjZXJwdCA9IChpc3NldCgkY291bnRleGNlcnB0KSkgPyB0cnVlIDogZmFsc2U7DQogICAgICAgIA0KICAgICAgICAkbGlua3RleHQgPSAoIWVtcHR5KCRsaW5rdGV4dCkpID8gJGxpbmt0ZXh0IDogIm1vcmUuLi4iOw0KICAgICAgICAkbGluayA9IHBlcm1saW5rKCIiLCAkbGlua3RleHQpOw0KDQogICAgICAgJGJvZHljb3VudCA9ICgkY291bnRjaGFycykgPyBzdHJsZW4oJHRoaXNhcnRpY2xlWyJib2R5Il0pIDogY291bnQoZXhwbG9kZSgiICIsICR0aGlzYXJ0aWNsZVsiYm9keSJdKSk7DQoNCiAgICAgICAgaWYgKHRyaW0oJHRoaXNhcnRpY2xlWyJleGNlcnB0Il0pICE9ICIiKSB7DQoNCiAgICAgICAgICAgICRleGNlcnB0ID0gJHRoaXNhcnRpY2xlWyJleGNlcnB0Il07DQoNCiAgICAgICBpZiAoJGNvdW50ZXhjZXJwdCkgDQogICAgICAgew0KICAgICAgICAgICAgICAgJGV4Y2VycHQgPSAoJGNvdW50Y2hhcnMpID8gc3Vic3RyKCRleGNlcnB0LDAsJHdvcmRzKSA6IGltcGxvZGUoIiAiLCBhcnJheV9zbGljZShleHBsb2RlKCIgIiwgJGV4Y2VycHQpLCAwLCAkd29yZHMpKTsNCiAgICAgICB9DQoNCiAgICAgICAgICAgICRleGNlcnB0ID0gJGV4Y2VycHQuIjxiciAvPiIuJGxpbms7DQoNCiAgICAgICAgfSBlbHNlIGlmICgkYm9keWNvdW50IDwgJHdvcmRzKSB7DQoNCiAgICAgICAgICAgICRleGNlcnB0PSAkdGhpc2FydGljbGVbImJvZHkiXTsNCg0KICAgICAgICB9IGVsc2Ugew0KICAgICAgICAgICAgJGJvZHkgPSBzdHJpcF90YWdzKCR0aGlzYXJ0aWNsZVsiYm9keSJdKTsNCg0KICAgICAgICAgICAgJGV4Y2VycHQgPSAoJGNvdW50Y2hhcnMpID8gc3Vic3RyKCRib2R5LDAsJHdvcmRzKTogaW1wbG9kZSgiICIsIGFycmF5X3NsaWNlKGV4cGxvZGUoIiAiLCAkYm9keSksIDAsICR3b3JkcykpOw0KDQogICAgICAgICAgICAkZXhjZXJwdCA9ICRleGNlcnB0LiI8YnIgLz4iLiRsaW5rOw0KICAgICAgICB9DQoNCiAgICAgICAgcmV0dXJuICRleGNlcnB0Ow0KDQogICAgfQ0KDQoiO3M6NDoidHlwZSI7czoxOiIwIjtzOjM6Im1kNSI7czozMjoiYmJkYzc2MjcxYTA2MzViMGNlNmUzNTY3MTAyZTVjNGUiO30=