| 1 | 4,5c4,5
|
|---|
| 2 | < # pipe.pl --- Read a message in on STDIN and write out the modified
|
|---|
| 3 | < # version on STDOUT
|
|---|
| 4 | ---
|
|---|
| 5 | > # pipe-history.pl --- Read a message in on STDIN and write out the modified
|
|---|
| 6 | > # version on STDOUT. Save message in message history to permit reclassification.
|
|---|
| 7 | 71c71,73
|
|---|
| 8 | < $b->classify_and_modify( $session, \*STDIN, \*STDOUT, 1, '', 0, 1, "\n" );
|
|---|
| 9 | ---
|
|---|
| 10 | > # Save this message in the message history, unlike the 'pipe.pl' script
|
|---|
| 11 | >
|
|---|
| 12 | > $b->classify_and_modify( $session, \*STDIN, \*STDOUT, 0, '', 0, 1, "\n" );
|
|---|
| 13 | 79c81
|
|---|
| 14 | < $b->release_session_key( $session );
|
|---|
| 15 | ---
|
|---|
| 16 | > # $b->release_session_key( $session );
|
|---|
| 17 | 85,86c87,88
|
|---|
| 18 | < print "pipe.pl - reads a message on STDIN, classifies it, outputs the modified version on STDOUT\n\n";
|
|---|
| 19 | < print "Usage: pipe.pl\n";
|
|---|
| 20 | ---
|
|---|
| 21 | > print "Classify a msg read on STDIN, update the history & send modified msg to STDOUT\n\n";
|
|---|
| 22 | > print "Usage: pipe-history.pl\n";
|
|---|
| 23 |
|
|---|
