perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/stories story.tmpl make.pl
Date Tue, 05 Feb 2002 03:47:06 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message