#!/usr/bin/perl

# Random-Quote
# ---------------
# von Tetley
# Johannes.Weitzel@web,de
# http://www.joweit.de/nerds/
# 15.10.2001

use LWP::Simple;

$source = "http://www.joweit.de/nerds/data/quotes.txt"; # Da liegen die Quotes
print "Getting file.....";
$content = get($source); # Inhalt der Datei steht jetzt in $content
print "Done!\n";
@quotes = split(/--\n/, $content); # Jeder Quote ist nun ein Element von @quotes
$elements = @quotes; # Anzahl der Quotes
print "$elements quotes in archiv.\n--\n";
$randomquote = int(rand($elements)); # Eine Zufallszahl zwischen 0 und Anzahl der Elemente -1 (wegen int()) wird erzeugt
print $quotes[$randomquote], "--\n"; # Ein zufaelliger Quote wird ausgegeben.