/[papo]/homepage/bin/blog.pl
ViewVC logotype

Diff of /homepage/bin/blog.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by styxman, Thu Jun 26 17:47:38 2003 UTC revision 1.2 by jlenton, Fri Sep 5 18:45:13 2003 UTC
# Line 47  my @news= (); Line 47  my @news= ();
47  opendir (NEWS, 'news')  opendir (NEWS, 'news')
48    or die '[news] waddya doin\'?';    or die '[news] waddya doin\'?';
49    
50  my $newsFilename= readdir (NEWS);  my $newsFilename;
51  while ($newsFilename) {  while ($newsFilename = readdir (NEWS)) {
52    # ignore <dot> and <dot><dot> and CVS    # ignore <dot> and <dot><dot> and CVS
53    # and <dot>anything?    # and <dot>anything?
54    $newsFilename= readdir (NEWS), next    $newsFilename= readdir (NEWS), next
55      if $newsFilename=~ /^\.\.?$/ or $newsFilename=~ /^CVS$/;      if $newsFilename=~ /^(?:\.\.?|CVS|.*\~|)$/;
56    open (NEWSFILE, "news/$newsFilename")    open (NEWSFILE, "news/$newsFilename")
57      or die '[$newsFilename] waddya doin\'?';      or die '[$newsFilename] waddya doin\'?';
58    $line= <NEWSFILE>;    $line= <NEWSFILE>;
# Line 69  while ($newsFilename) { Line 69  while ($newsFilename) {
69    close (NEWSFILE);    close (NEWSFILE);
70    push @news, [$newsFilename, $date, $contents];    push @news, [$newsFilename, $date, $contents];
71    
   # next please  
   $newsFilename= readdir (NEWS);  
72  }  }
73    
74  # sort by date  # sort by date

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26