Du bist nicht angemeldet.
Donnerstag, 29. Januar 2004, 16:32
|
Quellcode |
1 2 3 4 5 6 7 |
print(&PrintHeader);
print "<cite>";
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
print "<span>$author</span>";
print "</cite>\n";
|
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
print(&PrintHeader);
print "<html><head><title>Spruch des Tages</title></head><body>\n";
print "<h2>Spruch des Tages</h2>\n";
print "<p><br>\n";
print "<table align=middle width=\"95%\" border=1>\n";
print "<tr><td align=center width=\"100%\"><br>\n";
for ($i=0;$i<$l;$i++) {
print "$text[$i]\n";
}
print "<br><br></td></tr>\n";
print "<td align=right><p>\n";
print "$author\n";
print "</td></table>\n";
print "<p>\n";
print "</body></html>\n";
|
|
|
Quellcode |
1 2 |
* Entweder man lebt, oder man ist konsequent. - Erich Kästner |
Donnerstag, 29. Januar 2004, 16:43
Freitag, 30. Januar 2004, 16:54
|
|
Quellcode |
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 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
#!/usr/bin/perl
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1997 Wolfgang Wiese All Rights Reserved. #
# EMail: [EMAIL]xwolf@xwolf.com[/EMAIL] #
# URL : [URL]http://www.xwolf.com[/URL] #
# #
# zitate.pl may be used and modified free of charge by anyone so long as #
# this copyright notice and the comments above remain intact. By using this #
# code you agree to indemnify Wolfgang Wiese from any liability that #
# might arise from it's use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact.#
##############################################################################
# Last Modified on: $Date: 2003/03/28 23:53:54 $
# By: $Author: xwolf $
# Version: $Revision: 1.1 $
##############################################################################
use lib '/home/earolusr/public_html/cgi-bin/web';
use web;
$zitate_file = 'versteckt';
# This file contains the phraes which have to be displayed.
# (Yes, it could als be advertisement.)
# Syntax of this file:
# Line n: '* Text'
# Line n+1: '- Authorname'
# Text can contain HTML-Tags.
##############################################################################
# Main program starts after this point. Change only if you know what to do.
##############################################################################
%in = ReadParse;
$seperator = $in{'seperator'};
$table = $in{'table'};
if (!($seperator)) {
if ($table) {
$seperator='<br><br></td></tr><td align=right><p>';
} else {
$seperator='<P>';
}
}
$picture = Check_Name($in{'picture'});
$output = Check_Name($in{'output'});
if ($output =~ /illegal/i) {$output='';}
# Notice: If output is left out, the data will be displayed in a new HTML-document,
# the cgi will produce. Otherwise, the text will be written in the file in output.
$number_zitate= &Get_Number;
if ($number_zitate==0) { Fehlermeldung("No phrases found!");}
$number_zitate=int((rand(($web::sek*$web::tag*$web::minute)*($web::stunde+1)) % $number_zitate))+1;
&Get_Zitat($number_zitate);
if ($output) {
$i=0;
open (f2,"<$output") || Fehlermeldung("Cannot open output file $output!");
while(<f2>) {
chop($_);
$outline[$i]=$_;
$i++;
}
close f2;
# Now I that read the full html-file, i can begin to edit it.
$found=0;$new=0;
for ($t=0;$t<$i;$t++) {
if ($outline[$t] eq '<!-- BEGIN ZITAT -->') {
$inline[$new]=$outline[$t];
$new++;
$found=1;
}
if ($outline[$t] eq '<!-- END ZITAT -->') {
$found=0;
}
if ($found==1) {
if ($table eq 'on') {
$inline[$new]='<table align=middle width="95%" border=1><tr><td align=center width=\"100%\"><br>';
$new++;
}
for ($s=0;$s<$l;$s++) {
$inline[$new]=$text[$s];
$new++;
}
$new++;
$inline[$new]=$seperator;$new++;
$inline[$new]=$author; $new++;
if ($table eq 'on') {
$inline[$new]='</td></table>';
$new++;
}
$found=2;
} elsif ($found==0) {
$inline[$new]=$outline[$t];
$new++;
}
}
if (($picture) && (not ($picture =~ /illegal/))) {
open(f1,">$output") || Fehlermeldung("Cannot write into output-file $output!");
for ($i=0;$i<$new;$i++) {
print f1 "$inline[$i]\n";
}
close f1;
print "Pragma: no-cache\n";
print "Expires: Thu, 01 Dec 1994 16:00:00 GMT\n";
print "Content-type: image/gif\n\n";
# Display the picture
open (DATA, "$picture");
while (<DATA>) {
print $_;
}
close (DATA);
} else {
print(&PrintHeader);
for ($i=0;$i<$new;$i++) {
print "$inline[$i]\n";
}
}
} else {
print(&PrintHeader);
print "<cite>";
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
print "<span>$author</span>";
print "</cite>\n";
}
exit(0);
############################## Now the subroutines #######################
sub Get_Zitat {
local($number) = @_;
$i=0;
$found=1;
$l=0;
$ready=1;
open(f1,"<$zitate_file") || Fehlermeldung("Could not open phrases-file $zitate_file!");
while(<f1>) {
chop($_);
if (($found) && ($ready)) {
if (substr($_,0,1) eq '*') {$i++;}
} else {
if ($ready) {
if (substr($_,0,1) eq '-') {
$author=substr($_,1);
$ready=0;
} else {
$text[$l]=$_;
$l++;
}
}
}
if ($i == $number) {
$found=0;
$i=-1;
$text[$l]=substr($_,1);
$l++;
}
}
close f1;
}
##############################################################################
sub Get_Number {
# This sub returns the number of zitat-entries
my $max_zitat =0;
open(f1,"<$zitate_file") || Fehlermeldung('Could not open zitate-file!');
while(<f1>) {
chop($_);
if (substr($_,0,1) eq '*') {$max_zitat++;}
}
close f1;
return $max_zitat;
}
##############################################################################
# EOF
##############################################################################
|
Samstag, 31. Januar 2004, 18:37
Ich konnte unten auf die Schnelle nichts finden.
Samstag, 31. Januar 2004, 22:03
|
|
Quellcode |
1 2 3 |
<cite>„ Jetzt sind die guten alten Zeiten, nach denen wir uns in zehn Jahren zurücksehnen. “<span> Sir Peter Ustinov </span></cite> |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »DukeXP« (31. Januar 2004, 22:05)
Samstag, 31. Januar 2004, 22:40
|
|
Quellcode |
1 2 3 |
<cite>„Was bei der Jugend wie Grausamkeit aussieht, ist meistens Ehrlichkeit. “<span>Jean Cocteau </span></cite> |
|
|
Quellcode |
1 |
print "<cite>„$text[$i]“<span>$author</span></cite>"; |
Sonntag, 1. Februar 2004, 16:17
|
|
PHP-Quelltext |
1 2 3 |
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
|
|
|
PHP-Quelltext |
1 2 3 4 |
for ($i=0;$i<$l;$i++) {
chomp $text[$i];
print "„$text[$i]“";
}
|
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »MaMo« (1. Februar 2004, 16:21)
Sonntag, 1. Februar 2004, 16:24
|
|
Quellcode |
1 2 |
„Was bei der Jugend wie Grausamkeit aussieht, ist meistens Ehrlichkeit. “ |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »DukeXP« (1. Februar 2004, 16:25)
Sonntag, 1. Februar 2004, 20:27
|
|
Quellcode |
1 2 |
<cite>„In der Politik geht es nicht darum, recht zu haben, sondern recht zu behalten.“<span>Konrad Adenauer </span></cite> |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »DukeXP« (1. Februar 2004, 20:29)
Montag, 2. Februar 2004, 18:15
|
|
PHP-Quelltext |
1 2 3 4 5 |
print "<cite>";
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
print "<span>$author</span>";
|
|
|
PHP-Quelltext |
1 2 3 4 5 6 |
print "<cite>";
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
chomp $author;
print "<span>$author</span>";
|
Dienstag, 3. Februar 2004, 16:26
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
} else {
print "<cite>";
for ($i=0;$i<$l;$i++) {
print "„$text[$i]“";
}
chomp $author;
print "<span>$author</span>";
print "</cite>\n";
}
exit(0);
|
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 |
} else {
print "<cite>";
for ($i=0;$i<$l;$i++) {
$text[$i] =~ s/^\s{0,}(.+?)\s{0,}$/$1/g;
print "„$text[$i]“";
}
chomp $author;
print "<span>$author</span>";
print "</cite>\n";
}
exit(0);
|
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »DukeXP« (3. Februar 2004, 16:31)
Dienstag, 3. Februar 2004, 16:56
Richtige CHMODs?
Zitat
Wenn ich die Änderung an der Original-Datei vornehme gibt's einen Serverfehler.
Mit dem Code aus der E-Mail sieht's so aus:
Quellcode
} else { print "<cite>"; for ($i=0;$i<$l;$i++) { $text[$i] =~ s/^\s{0,}(.+?)\s{0,}$/$1/g; print "„$text[$i]“"; } chomp $author; print "<span>$author</span>"; print "</cite>\n"; } exit(0);
|
|
PHP-Quelltext |
1 2 |
# Fehler an den Browser ausgeben
use CGI::Carp qw(fatalsToBrowser);
|
Ich hab' keine Ahnung, was ich da eigentlich mache ...
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »MaMo« (3. Februar 2004, 16:57)
Dienstag, 3. Februar 2004, 19:17
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »MaMo« (3. Februar 2004, 19:21)
Samstag, 26. Mai 2012, 04:38
Zum Seitenanfang
