stas 02/02/04 19:47:06
Modified: src/stories story.tmpl make.pl
Log:
- change the story template to present the story nicer
Revision Changes Path
1.4 +1 -1 modperl-docs/src/stories/story.tmpl
Index: story.tmpl
===================================================================
RCS file: /home/cvs/modperl-docs/src/stories/story.tmpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- story.tmpl 5 Feb 2002 03:35:51 -0000 1.3
+++ story.tmpl 5 Feb 2002 03:47:06 -0000 1.4
@@ -11,7 +11,7 @@
[% story.title %]
-=head1 The Story
+=head1 [%- story.author -%] exclaimed:
[% IF story.headers -%]
=over
1.3 +5 -2 modperl-docs/src/stories/make.pl
Index: make.pl
===================================================================
RCS file: /home/cvs/modperl-docs/src/stories/make.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- make.pl 26 Jan 2002 04:24:27 -0000 1.2
+++ make.pl 5 Feb 2002 03:47:06 -0000 1.3
@@ -52,9 +52,11 @@
my $title = delete $headers{Subject};
die "error: no Subject: in $file" unless $title;
+ my $author = delete $headers{From};
+ die "error: no From: in $file" unless $author;
+
# antispam
- $headers{Author} = delete $headers{From};
- $headers{Author} =~ s/\@/ (at) /;
+ $author =~ s/\@/ (at) /;
# print Dumper \%headers;
# print "headers:\n$headers\n";
@@ -62,6 +64,7 @@
my %data = (
title => $title,
+ author => $author,
headers => \%headers,
);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
