[Debconf6-data-commit] r60 - in website/www: . news

[Neil McGovern]

Author: neilm
Date: 2005-11-07 11:54:08 +0000 (Mon, 07 Nov 2005)
New Revision: 60

Modified:
   website/www/news/read.html
   website/www/newsticker.html
   website/www/top.html
Log:
Modified sources to remove strict warnings


Modified: website/www/news/read.html
===================================================================
--- website/www/news/read.html	2005-11-07 09:37:24 UTC (rev 59)
+++ website/www/news/read.html	2005-11-07 11:54:08 UTC (rev 60)
@@ -4,10 +4,10 @@
 $q = new CGI;
 my $value = $q->param('id');
 @filename= glob("items/$value*");
-open(DAT, @filename[0]);
+open(DAT, $filename[0]);
 @raw_data=<DAT>;
 close(DAT);
- at filename[0] =~ s/-/ /g;
+$filename[0] =~ s/-/ /g;
 $filename[0] =~ /items\/([0-9]{2})_(.*).html/;
 $output .= "<h2>$2</h2>";
 foreach $line(@raw_data) {

Modified: website/www/newsticker.html
===================================================================
--- website/www/newsticker.html	2005-11-07 09:37:24 UTC (rev 59)
+++ website/www/newsticker.html	2005-11-07 11:54:08 UTC (rev 60)
@@ -2,8 +2,8 @@
 [+
 $output .= "";
 @names = (sort { $b cmp $a } glob("news/items/*") ) ;
- at names[0] =~ s/-/ /g;
- at names[0] =~ /([0-9]{2})_(.*).html/;
+$names[0] =~ s/-/ /g;
+$names[0] =~ /([0-9]{2})_(.*).html/;
 $output .= "$2<br /><a href='/news/read.html?id=$1'>>>> read more</a>";
 $foo = $output;
 +]

Modified: website/www/top.html
===================================================================
--- website/www/top.html	2005-11-07 09:37:24 UTC (rev 59)
+++ website/www/top.html	2005-11-07 11:54:08 UTC (rev 60)
@@ -13,7 +13,7 @@
 		my @array;
 		foreach $element(split(/:/,$datetill)) {
 			if ($element > 0 && $i < 6 ) {
-				$temp = $element."&nbsp;". at names[$i];
+				$temp = $element."&nbsp;".$names[$i];
 				$temp .= "s" if ($element > 1);
 				@array = (@array, $temp);
 			}