[Debconf6-data-commit] r315 - in website/www: . bash

[Neil McGovern]

Author: neilm
Date: 2006-02-07 21:09:10 +0000 (Tue, 07 Feb 2006)
New Revision: 315

Added:
   website/www/bash/
   website/www/bash/index.html
Log:
Added bash.org foo


Added: website/www/bash/index.html
===================================================================
--- website/www/bash/index.html	2006-02-07 19:44:30 UTC (rev 314)
+++ website/www/bash/index.html	2006-02-07 21:09:10 UTC (rev 315)
@@ -0,0 +1,34 @@
+<h1>Latest News</h1>
+[+
+do {
+$req = shift;
+my $output = "";
+
+$pwd = $req->component->cwd;
+open(FILE, "<".$pwd."/../fortunes/fortunes-debconf") or die ("ERR!");
+my(@lines) = <FILE>;         # read file into list
+my($line);
+my $i = 0;
+my @quotearray;
+foreach $line (@lines)              # loop thru list
+{
+	chomp $line;
+	if ($line ne "%") {
+		$line =~ s/</&lt;/g ;
+		$line =~ s/>/&gt;/g ;
+
+		$quotearray[$i] .= $line."\n";
+	} else {
+		$i++;
+	}
+}
+close(FILE);
+
+$size = @quotearray;
+$output .= "I have $size quotes in my memory banks!";
+foreach my $quote (@quotearray) {
+	$output .= "<pre>".$quote."</pre>\n";
+}
+$foo = $output;
+}
++]