diff --git a/fhem/FHEM/98_CULflash.pm b/fhem/FHEM/98_CULflash.pm
index 8677561e0..a288afc55 100644
--- a/fhem/FHEM/98_CULflash.pm
+++ b/fhem/FHEM/98_CULflash.pm
@@ -7,11 +7,10 @@ use warnings;
 use HttpUtils;
 
 sub CommandCULflash($$);
-sub CULflash_SplitNewFiletimes($);
 
-my $server = "http://fhem.de:80";
-my $sdir   = "/fhemupdate2";
-my $ftime  = "filetimes.txt";
+my $host = "http://fhem.de";
+my $path = "/fhemupdate4/svn/";
+my $file = "controls_fhem.txt";
 my $dfu    = "dfu-programmer";
 
 #####################################
@@ -50,18 +49,23 @@ CommandCULflash($$)
 
   ################################
   # First get the index file to prove the file size
-  my $filetimes = GetFileFromURL("$server$sdir/$ftime");
-  return "Can't get $ftime from $server" if(!$filetimes);
+  my $filetimes = GetFileFromURL("$host$path$file");
+  return "Can't get $host$path$file" if(!$filetimes);
 
-  # split filetime and filesize
-  my ($ret, $filetime, $filesize) = CULflash_SplitNewFiletimes($filetimes);
-  return $ret if($ret);
+  my %filesize;
+  foreach my $l (split("[\r\n]", $filetimes)) {
+    chomp($l);
+    next if ($l !~ m/^UPD (20\d\d-\d\d-\d\d_\d\d:\d\d:\d\d) (\d+) (.*)$/);
+    $filesize{$3} = $2;
+  }
+  return "FHEM/$target.hex is not found in $host$path$file"
+        if(!$filesize{"FHEM/$target.hex"});
 
   ################################
   # Now get the firmware file:
-  my $content = GetFileFromURL("$server$sdir/FHEM/$target.hex");
-  return "File size for $target.hex does not correspond to filetimes.txt entry"
-          if(length($content) ne $filesize->{"FHEM/$target.hex"});
+  my $content = GetFileFromURL("$host$path/FHEM/$target.hex");
+  return "File size for $target.hex does not correspond to $file entry"
+          if(length($content) ne $filesize{"FHEM/$target.hex"});
   my $localfile = "$moddir/$target.hex";
   open(FH,">$localfile") || return "Can't write $localfile";
   print FH $content;
@@ -82,24 +86,6 @@ CommandCULflash($$)
   return $result;
 }
 
-sub
-CULflash_SplitNewFiletimes($)
-{
-  my $filetimes = shift;
-  my $ret;
-  my (%filetime, %filesize) = ();
-  foreach my $l (split("[\r\n]", $filetimes)) {
-    chomp($l);
-    $ret = "Corrupted filetimes.txt file"
-        if($l !~ m/^20\d\d-\d\d-\d\d_\d\d:\d\d:\d\d /);
-    last if($ret);
-    my ($ts, $fs, $file) = split(" ", $l, 3);
-    $filetime{$file} = $ts;
-    $filesize{$file} = $fs;
-  }
-  return ($ret, \%filetime, \%filesize);
-}
-
 # vim: ts=2:et
 1;
 
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 6c8deb168..54a351610 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -704,13 +704,11 @@ AnalyzeCommand($$)
   my ($fn, $param) = split("[ \t][ \t]*", $cmd, 2);
   return undef if(!$fn);
 
-  $fn = "setdefaultattr" if($fn eq "defattr"); # Compatibility mode
-
   #############
   # Search for abbreviation
   if(!defined($cmds{$fn})) {
     foreach my $f (sort keys %cmds) {
-      if(length($f) > length($fn) && substr($f, 0, length($fn)) eq $fn) {
+      if(length($f) > length($fn) && lc(substr($f, 0, length($fn))) eq lc($fn)) {
 	Log 5, "$fn => $f";
         $fn = $f;
         last;
@@ -721,8 +719,8 @@ AnalyzeCommand($$)
   #############
   # autoload commands.
   if(!defined($cmds{$fn})) {
-    map { $fn = $_ if(uc($fn) eq uc($_)); } keys %modules;
-    $fn = lc(LoadModule($fn));
+    map { $fn = $_ if(lc($fn) eq lc($_)); } keys %modules;
+    $fn = LoadModule($fn);
     return "Unknown command $fn, try help" if(!defined($cmds{$fn}));
   }