#!/usr/bin/perl -w

use strict;

my @slogans;

# path to source file with all the slogans
my $sourcefile = "slogans.inc";

# path to the result-ile
my $resultfile = "slogan_day.inc";

# read sourcefile
open(FILE,"$sourcefile");
while(my $line=<FILE>) { if($line =~ m/^#/i) { next; } push(@slogans,$line); }
close(FILE);

# number of elements
my $counter = @slogans;

# random number
my $random = rand($counter-1);

# content
my $content = $slogans[$random];
chomp($content);
$content = "\<div id=\"motd\"\>$content\<\/div\>";

# write random slogan of the day into file
open(FILE,">$resultfile");
print FILE $content;
close(FILE);

# the end