Thread Problem mit Scrollscript: Zeigt nur letzten Eintrag an (12 answers)
Opened by Tom at 2004-01-11 20:58

Tom
 2004-01-12 20:33
#852 #852
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Also ich habe mal den COde etwas überarbeitet, es ist jetz momentan so, dass es pro Eintrag in der Datei einmal das Scrollscript anzeigt, es sollte aber nur einmal mit allen Einträgen angezeigt werden.

Ich hoffe ihr habt ne Lösung für mich.

Hier der Code

Code: (dl )
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
#!/usr/bin/perl 

use lib '$urlcgi';
use Kal;
use CGI::Carp "fatalsToBrowser"; 
use CGI qw(:all);
use warnings;
use strict;
use vars qw($Tag $Monat $Jahr $filetoopen @events @sortevents $urlcgi $titel $beginn $name $ort $veranstalter $location $am $art $mail $url $sonstiges);

require "data/info.cgi";
require "data/date.cgi"; 
require "data/lang.cgi";

my $ev_day		= param('ev_day');
my $ev_month		= param('ev_month');
my $ev_year		= param('ev_year');


if ($ev_day eq "" || $ev_month eq "" || $ev_year eq "") {
    if ($Monat < 10) {$Monat = "0" . $Monat};
    chdir $Jahr;
    chdir $Monat;
    $filetoopen = "$Tag.$Monat.$Jahr.thd";
    $ev_day = $Tag;
    $ev_month = $Monat;
    $ev_year = $Jahr;    
}else{
    chdir $ev_year;
    chdir $ev_month;
    $filetoopen = "$ev_day.$ev_month.$ev_year.thd";    
};

if (-f $filetoopen) {
unless (open(FILE, $filetoopen)) {
 print "Error: couldn't read from '$filetoopen': $!\n";
}else {
open(FILE, "$filetoopen");
    @events = <FILE>;
    close(FILE);
};

    
}else{
        print "Content-type: text/html\n\n";
        print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
        print "<html><head><title>Error</title>\n";
        print "</head>\n";
	print "<table width=\"100%\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\" class=\"forumline\">
		   <tr>
			<td class=\"catHead\" height=\"25\"><span class=\"genmed\"><b>Events</b></span></td>
		   </tr>
		   <tr>
			<td class=\"row1\" align=\"left\"><span class=\"gensmall\">
			<marquee id=\"recent_topics\" behavior=\"scroll\" direction=\"up\" height=\"200\" scrolldelay=\"100\" scrollamount=\"2\">
			<!-- BEGIN recent_topic_row -->
			&raquo; <a href=\"$urlcgi/" . "event.cgi?ev_day=$ev_day\&ev_month=$ev_month\&ev_year=$ev_year\" onMouseOver=\"document.all.recent_topics.stop()\" onMouseOut=\"document.all.recent_topics.start()\" target=\" _blank\">Heute sind keine Events 1</a><br />			
			<!-- END recent_topic_row -->
			</marquee>
			</span></td>
		   </tr>
		  </table>	\n";       

        exit;
};

if (@events == ""){
        print "Content-type: text/html\n\n";
        print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
        print "<html><head><title>Error</title>\n";
        print "</head>\n";
        print "<table width=\"100%\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\" class=\"forumline\">
		   <tr>
			<td class=\"catHead\" height=\"25\"><span class=\"genmed\"><b>Events</b></span></td>
		   </tr>
		   <tr>
			<td class=\"row1\" align=\"left\"><span class=\"gensmall\">
			<marquee id=\"recent_topics\" behavior=\"scroll\" direction=\"up\" height=\"200\" scrolldelay=\"100\" scrollamount=\"2\">
			<!-- BEGIN recent_topic_row -->
			&raquo; <a href=\"$urlcgi/" . "event.cgi?ev_day=$ev_day\&ev_month=$ev_month\&ev_year=$ev_year\" onMouseOver=\"document.all.recent_topics.stop()\" onMouseOut=\"document.all.recent_topics.start()\" target=\" _blank\">Heute sind keine Events 2</a><br />			
			<!-- END recent_topic_row -->
			</marquee>
			</span></td>
		   </tr>
		  </table>	\n";  

       exit;
  	       
}else{        
        print "Content-type: text/html\n\n";
        print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
        print "<html><head><title>Titel</title>\n";
        print "</head>\n"; 
              
   	@sortevents = sort{ $a <=> $b }@events;
   	
	foreach (@sortevents) {
    
	($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/,$_);
            			
      		print "<table width=\"100%\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\" class=\"forumline\">
		   <tr>
			<td class=\"catHead\" height=\"25\"><span class=\"genmed\"><b>Events</b></span></td>
		   </tr>
		   <tr>
			<td class=\"row1\" align=\"left\"><span class=\"gensmall\">
			<marquee id=\"recent_topics\" behavior=\"scroll\" direction=\"up\" height=\"200\" scrolldelay=\"100\" scrollamount=\"2\">
			<!-- BEGIN recent_topic_row -->
			&raquo; <a href=\"$urlcgi/" . "event.cgi?ev_day=$ev_day\&ev_month=$ev_month\&ev_year=$ev_year\" onMouseOver=\"document.all.recent_topics.stop()\" onMouseOut=\"document.all.recent_topics.start()\" target=\" _blank\">$titel</a><br />
			by $veranstalter<br /><br />
			<!-- END recent_topic_row -->
			</marquee>
			</span></td>
		   </tr>
		  </table>		  		  
               		<br>               		             		             
               		";                    		
	};
      	

    exit;
};


DANKE\n\n

<!--EDIT|Tom|1073932442-->
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

View full thread Problem mit Scrollscript: Zeigt nur letzten Eintrag an