From 01b50d1e3a85dd261d8534bc28e1bccb109ce101 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 5 Jan 2012 12:13:48 +0000
Subject: [PATCH] Changing the =DATE= and =VERS= line in fhem.pl

git-svn-id: https://svn.fhem.de/fhem/trunk@1167 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/fhemupdate.pl | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

diff --git a/fhem/contrib/fhemupdate.pl b/fhem/contrib/fhemupdate.pl
index 2002e9fbb..f77a16f88 100755
--- a/fhem/contrib/fhemupdate.pl
+++ b/fhem/contrib/fhemupdate.pl
@@ -3,15 +3,29 @@
 # Server-Side script to check out the fhem SVN repository, and upload the
 # changed files to the server
 
+$ENV{CVS_RSH}="/usr/bin/ssh";
+
+print "\n\n";
 print localtime() . "\n";
 
+chdir("/home/rudi/fhemupdate/culfw");
+system("svn update .");
 chdir("/home/rudi/fhemupdate/fhem");
 system("mkdir -p UPLOAD");
-system("svn update . > /dev/null 2>&1");
+system("svn update .");
 die "SVN failed, exiting\n" if($?);
 
+my $ndiff = `diff fhem.pl fhem.pl.txt | wc -l`;
+if($ndiff != 4) {       # more than the standard stuff is different
+  print "Modifying fhem.pl: >$ndiff<\n";
+  system('perl -p -e "s/=DATE=/"`date +"%Y-%m-%d"`"/;'.
+                     's/=VERS=/"`grep ^VERS= Makefile | '.
+         'sed -e s/VERS=//`"+SVN/" fhem.pl > fhem.pl.txt');
+}
+
+
 my @filelist = (
- "./fhem.pl",
+ "./fhem.pl.txt",
  "FHEM/.*.pm",
  "webfrontend/pgm2/.*",
  "docs/commandref.html",
@@ -19,6 +33,7 @@ my @filelist = (
  "docs/HOWTO.html",
  "docs/fhem.*.png",
  "docs/.*.jpg",
+ "../culfw/Devices/CUL/.*.hex",
 );
 
 # Read in the file timestamps
@@ -45,6 +60,7 @@ if(open FH, "UPLOAD/filetimes.txt") {
   while(my $l = <FH>) {
     chomp($l);
     my ($ts, $fs, $file) = split(" ", $l, 3);
+    $oldtime{"$file.txt"} = $ts if($file eq "fhem.pl");
     $oldtime{$file} = $ts;
   }
   close(FH);
@@ -58,12 +74,14 @@ print FTP "put filetimes.txt\n";
 print FTP "pas\n";      # Without passive only 28 files can be transferred
 my $cnt;
 foreach my $f (sort keys %filetime) {
-  print FH "$filetime{$f} $filesize{$f} $f\n";
+  my $fn = $f;
+  $fn =~ s/.txt$// if($fn =~ m/.pl.txt$/);
+  print FH "$filetime{$f} $filesize{$f} $fn\n";
+
   my $newfname = $f;
-  $newfname .= ".txt" if($newfname =~ m/.pl$/); # Cant download .pl files
   if(!$oldtime{$f} || $oldtime{$f} ne $filetime{$f}) {
-    print FTP "put $newfname\n";
-    system("cp ../$filedir{$f}/$f $newfname");
+    print FTP "put $f\n";
+    system("cp ../$filedir{$f}/$f $f");
     $cnt++;
   }
 }