1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
|
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::MediaTypes qw(guess_media_type);
##############################################################################
# Benutzerdefinierbare Variablen
# Pfad für Bilddateien (mit abschließendem Slash)
my $ImgPath = '/var/www/html/images/';
# Ende benutzerdefinierbare Variablen
##############################################################################
my @Bilder = GetDir( $ImgPath );
my $Zufallszahl = int( rand ( $#Bilder + 1 ) );
SendImage( $Bilder[$Zufallszahl] );
##############################################################################
# Liefert ein Array mit allen Objekten in dem angegebenem Verzeichnisse
# Parameter:
# $Path Das Verzeichnis aus dem die Objekte ausgelesen werden sollen
##############################################################################
sub GetDir {
my ( $Dir, @Files, $File );
# Zu öffnendes Verzeichnis holen
$Dir = shift;
# Versuche das Verzeichnis zu öffnen
if( opendir( DIR, $Dir )) {
# Alle Objekte einlesen ...
@Files = readdir( DIR );
# ... und Verzeichnis schließen
closedir( DIR );
foreach( @Files ) {
if( $_ eq '.' || $_ eq '..' ) {
undef $_;
}
}
# Die ausgelesenen Objekte zurückgeben
return @Files;
}
else {
# Verzeichnis konnte nicht geöffnet werden, also geben wir eine leeres
# Array zurück
return @Files = ( );
}
}
##############################################################################
# Schickt das übergebene Bild an den Aufrufer zurück.
# Übergabe
# $Image Dateiname des Bildes ohne Pfad.
##############################################################################
sub SendImage {
my ( $ImageToSend, $ImgSize, $ImgData, $Type, $MediaType );
# Zu sendendes Bild holen
$ImageToSend = $ImgPath . shift;
# Datei zu öffnen versuchen
if( open( IMAGE, "<$ImageToSend" )){
# Browser-Caching deaktivieren
print "Cache-Control: no-cache\n";
print "Pragma: no-cache\n";
# Dateigröße in Bytes bestimmen
$ImgSize = -s IMAGE;
# Sicherheitshalber auf Binärmodus schalten (Kleinweich sei Dank!)
binmode( IMAGE );
# Bilddaten binär einlesen
read( IMAGE, $ImgData, $ImgSize );
# Bilddatei wieder schließen
close( IMAGE );
# Medien-Typ bestimmen
$Type = guess_media_type( $ImageToSend );
}
else {
# Bild konnte nicht geladen werden, JPEG-Datei vortäuschen
$Type = "image/jpeg";
}
# Browser-Medientyp zusammensetzen
$MediaType = "Content-type: " . $Type . "\n\n";
# Bilddaten an Aufrufer schicken
print $MediaType;
print $ImgData;
} |
GDLib hab ich meines Wissens nach auch...
