summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2008-11-24 16:39:09 +0000
committerAndreas Brachold <vdr07@deltab.de>2008-11-24 16:39:09 +0000
commit8c42985fd234e2a993b3f01416941f4b371d1a92 (patch)
tree917e47097785386fa27a0c29f6ab8f83a950b872 /bin
parentffb81caa20a1dbede72f8a45299af87f8ab049e2 (diff)
downloadxxv-8c42985fd234e2a993b3f01416941f4b371d1a92.tar.gz
xxv-8c42985fd234e2a993b3f01416941f4b371d1a92.tar.bz2
* Add Data::COW (Copy on write handling for user own config profile)
* USER: Reimplement user own config profiles * MEDIALIB: Remove fix number of columns, use now floating layout * SVDRP: Add status message * xxvd: Change password failed, on none HTML-Consoles * AUTOTIMER: remove astatus (wrong callback) * XMLTV: fix import, add multi recorder capability * REPORT: clean up some routines * STATUS: remove usage of /bin/wc, use native perl code * CHANNELS: Fix hang at read channels, if recorder offline * TELNET: remove 'quit' command do same like 'exit' * RECORDS: clone database handle for preview image generation * TIMERS: add more parameter check * xxvd: disable mysql_enable_utf8
Diffstat (limited to 'bin')
-rwxr-xr-xbin/xxvd7
1 files changed, 6 insertions, 1 deletions
diff --git a/bin/xxvd b/bin/xxvd
index 2d58ff8..dc8e52a 100755
--- a/bin/xxvd
+++ b/bin/xxvd
@@ -324,7 +324,7 @@ sub getDbh {
my $dbh = DBI->connect($dsn, $usr, $pwd,{
PrintError => 1,
AutoCommit => 1,
- mysql_enable_utf8 => ($charset =~ m/UTF-8/ ? 1 : 0),
+# mysql_enable_utf8 => (($charset =~ m/UTF-8/) ? 1 : 0),
mysql_auto_reconnect => 1
});
@@ -452,6 +452,7 @@ sub quit {
sub docu {
# ------------------
my $console = shift;
+ my $config = shift;
my $name = shift || 0;
my $HTTPD = getModule("HTTPD");
@@ -491,6 +492,7 @@ sub docu {
sub more {
# ------------------
my $console = shift;
+ my $config = shift;
my $name = shift || return error('No text file defined!');
my $param = shift || {};
@@ -692,6 +694,9 @@ sub module {
required => gettext("This is required!"),
check => sub{
my $value = shift || return;
+
+ return $value unless(ref $value eq 'ARRAY');
+
# If no password given the take the old password as default
if($value->[0] and $value->[0] ne $value->[1]) {
return undef, gettext("The fields with the 1st and the 2nd password must match!");