#!/usr/bin/perl require 'MyCGI.pl'; $LOCK_EX = 2; $LOCK_SH = 1; $HOME = '/home/mjd/public_html/perl/Interpolation/'; $FILE = "$HOME/ideas.txt"; ($ME = $0) =~ s:.*/::; %chars = ('<' => 'lt', '>' => 'gt', '&' => 'amp', '"' => 'quot', "\0" => 'nbsp', ); $chars = join '', keys %chars; $pat = "[\Q$chars\E]"; if ($ENV{REQUEST_METHOD} eq POST) { %in = ReadParse(); esc(@in{'name','email','what','desc'}); open F, ">> $FILE" or die "Couldn't open file `$FILE': $!; aborting"; flock F, $LOCK_EX; print F join("\0", @in{'name','email','what','desc'}, ''); close F; } print < Interpolation ideas

Interpolation Ideas

Sorry, this application is being redesigned. Check back some other time. (22 June 1998)

EOM exit 0; print < Interpolation ideas

Interpolation Ideas

Jan Krynicky says:

Mark-Jason didn\'t you think about creating a library of such Interpolation tricks. You could use some Guestbook code for establishing it.

Hey, that\'s a pretty good idea.

Your name:
Your email address: (Of course it's optional. Everything is optional.)
One-line title:
EOM foreach $item (get_file()) { my ($n, $e, $w, $d) = @$item; $n ||= 'Anonymous'; my $NAME = $e ? "$n ($e)" : $n; $d =~ s.\r?\n(\r?\n)+.

\n\n

.gsm; print <$w

From: $NAME

$d

EOM } print <

Return to: Universe of Discourse main page | What's new page | Perl Paraphernalia | Interpolation.pm

mjd-perl-interpolation\@plover.com

EOM exit 0; sub get_file { open F, "< $FILE" or die "Couldn't open file `$FILE': $!; aborting"; flock F, $LOCK_SH; my @f; local $/ = "\0"; for (;;) { my $i; my @p; for $i (1..4) { my $s = ; unless (defined $s) { close F; return @f; } chomp $s; push @p, $s; } push @f, \@p; } } sub esc { local $_; foreach (@_) { $_ =~ s/($pat)/\&$chars{$1}\;/go; } @_; }