:( "Stirnrunzeln")
Wie hast du die Farben so hinbekommen? Müsste ja auch in der CSS geschehen. Aber dazu konnte ich in deinem CSS Auszug nichts finden.
.widget
{
margin: -1px 0 0 -1px;
padding: 0.3em;
border-color: #666;
border-style: solid;
border-width: 1px;
min-height: 2.1em;
text-shadow: 0 1px 1px #111;
background-image: -webkit-gradient(linear, left top, left bottom, from(#444444), to(#2d2d2d)); /* Saf4+, Chrome */
background-image: -webkit-linear-gradient(#44445a, #2d2d2d); /* Chrome 10+, Saf5.1+ */
background-image: -moz-linear-gradient(#44445a, #2d2d2d); /* FF3.6 */
background-image: -ms-linear-gradient(#44445a, #2d2d2d); /* IE10 */
background-image: -o-linear-gradient(#44445a, #2d2d2d); /* Opera 11.10+ */
background-image: linear-gradient(#44445a, #2d2d2d);
}
Wäre natürlich toll, wenn du das für uns irgend wo deteiliert beschreiben könntest
--- rsslog.php (Revision 2040)
+++ rsslog.php (Arbeitskopie)
@@ -251,7 +251,8 @@
$filters[$i] = " (tags LIKE '%" . sqlite_escape_string($val) . "%') ";
}
- $q = "SELECT id, title, content, tags, state, strftime('%s', t) AS t FROM Logs WHERE (" . implode('OR', $filters) . ")";
+ $q = "SELECT id, title, content, tags, state, strftime('%s', t) AS t FROM Logs WHERE ( (t <= datetime('now')) AND(" . implode('OR', $filters) . "))";
if (isset($state))
$q .= " AND state=" . $state . " ";
< $q = "SELECT id, title, content, tags, state, strftime('%s', t) AS t FROM Logs WHERE ( (t <= datetime('now')) AND(" . implode('OR', $filters) . "))";
---
> $q = "SELECT id, title, content, tags, state, strftime('%s', t) AS t FROM Logs WHERE ( (t > datetime('now')) AND(" . implode('OR', $filters) . "))";
260c260
< $q .= "ORDER by t DESC";
---
> $q .= "ORDER by t ASC";
#!/usr/bin/perl -w
#
### Script zum Einlesen von Terminen per csv Datei
# Format: content;title;tags;t;state (kein Header in der Datei!!!)
# z.B.: Graue Tonne;Abfall;abfall,grau;2014-01-20 06:00:00;0
# Aufruf per Kommandozeile: ./rss_csvimport.pl -f filename
# Fuer Verwendung mit rsslog.php / CometVisu
# Wichtig:
# - benoetigt Paket libdbd-sqlite2-perl
#
# v0.1
# 2013-01-03
# Licenced under the GPLv3
###################
### DEFINITION ###
###################
my $logdb = '/etc/wiregate/rss/rsslog.db';
########################
### Ende DEFINITION ###
########################
use Getopt::Long;
use Text::CSV;
use DBI;
use Date::Parse;
GetOptions(
#'h' => \my $help,
# weitere Optionen, z.B.
'f=s' => \my $filename, # verlangt einen string, z.B. -f hallo.pdf
#'s=n' => \my $size, # verlangt eine Zahl, z.B. -s 33
);
if ( !$filename || $filename eq "" ) { die "No import file specified ... exit\n"; }
print "Try to import csv data from file [".$filename."]\n";
my $csv = Text::CSV->new({ sep_char => ';' });
open(my $data, '<', $filename) or die "Could not open ['$filename'] $!\n";
if (! -e $logdb) {
die "$logdb existiert nicht! Bitte mit rsslog.php anlegen";
}
my $dbargs = {AutoCommit => 0, PrintError => 1};
my $dbh = DBI->connect("dbi:SQLite2:dbname=$logdb", "", "", $dbargs);
while (my $line = $csv->getline($data)) {
if ( (scalar @$line) != 5 ) {
print "Wrong column count: @$line\n";
}
else
{
print "Import line: @$line ... ";
# Correct date
my $unixts = str2time(@$line[3]);
my $localts = localtime($unixts);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($unixts);
my $tzOffsetHours = 1;
if ( $isdst == 1 ) {
$tzOffsetHours = 2;
}
$hour -= $tzOffsetHours;
if ( $hour < 0 ) {
$yday -= 1;
$hour = 24 + $hour;
}
my $dtUTCStr = sprintf("%d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
print " dtUTC [$dtUTCStr][dst:$isdst] ";
#print " unix: $unixts local: $localts ";
my $sqlsel = "SELECT * FROM Logs WHERE content = '".@$line[0]."' AND t = '".$dtUTCStr."';";
my $sth = $dbh->prepare($sqlsel);
$sth->execute;
if ( $sth->fetch ) {
print "entry already exists\n";
}
else {
$dbh->do('INSERT INTO Logs(content, title, tags, t, state) VALUES( ' .
" '" . @$line[0] . "'," .
" '" . @$line[1] . "'," .
" '" . @$line[2] . "'," .
" '" . $dtUTCStr . "'," .
" " . @$line[4] . " )");
if ($dbh->err()) {
print " DB-Fehler: \n$DBI::errstr \n$DBI::lasth->{Statement}\n";
}
else {
print " done\n";
}
}
$sth->finish();
}
}
close $data;
$dbh->commit();
$dbh->disconnect();
exit 0;
Kommentar