#!/usr/bin/perl ############################### # This is quite a big mess here. use IO::File; use strict; use warnings; # 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"; my $homedir="/home/rudi/fhemupdate"; chdir("$homedir/culfw"); system("svn update ."); chdir("$homedir/fhem"); system("svn update ."); die "SVN failed, exiting\n" if($?); `../copyfiles.sh`; ################################# # new Style chdir("$homedir/fhem"); system("mkdir -p fhemupdate"); my @filelist2 = ( "./fhem.pl.txt", "./CHANGED", "./configDB.pm", "FHEM/.*.pm", "FHEM/.*.layout", "FHEM/FhemUtils/.*.pm", "FHEM/FhemUtils/update-.*", "FHEM/lib/.*.pm", "FHEM/lib/.*.xml", "FHEM/lib/.*.csv", "FHEM/firmware/.*", "FHEM/lib/SWAP/.*.xml", "FHEM/lib/SWAP/panStamp/.*", "FHEM/lib/SWAP/justme/.*", "FHEM/lib/Device/.*.pm", "FHEM/lib/Device/Firmata/.*.pm", "FHEM/lib/Device/MySensors/.*.pm", "FHEM/lib/MP3/.*.pm", "FHEM/lib/MP3/Tag/.*", "FHEM/lib/UPnP/.*", "contrib/commandref_join.pl.txt", "www/pgm2/.*", "www/pgm2/images/.*.png", "www/jscolor/.*", "www/codemirror/.*", "www/gplot/.*.gplot", "www/images/fhemSVG/.*.svg", "www/images/openautomation/.*.svg", "www/images/openautomation/.*.txt", "www/images/default/.*", "www/images/default/remotecontrol/.*", "docs/commandref.*.html", "docs/faq(_..)?.html", "docs/HOWTO(_..)?.html", "docs/fhem.*.png", "docs/.*.jpg", "docs/fhemdoc.js", "demolog/.*", "./fhem.cfg.demo", ); # Can't make negative regexp to work, so do it with extra logic my %skiplist2 = ( # "www/pgm2" => ".pm\$", ); # Read in the file timestamps my %filetime2; my %filesize2; my %filedir2; foreach my $fspec (@filelist2) { $fspec =~ m,^(.+)/([^/]+)$,; my ($dir,$pattern) = ($1, $2); my $tdir = $dir; opendir DH, $dir || die("Can't open $dir: $!\n"); foreach my $file (grep { /$pattern/ && -f "$dir/$_" } readdir(DH)) { next if($skiplist2{$tdir} && $file =~ m/$skiplist2{$tdir}/); my @st = stat("$dir/$file"); my @mt = localtime($st[9]); $filetime2{"$tdir/$file"} = sprintf "%04d-%02d-%02d_%02d:%02d:%02d", $mt[5]+1900, $mt[4]+1, $mt[3], $mt[2], $mt[1], $mt[0]; $filesize2{"$tdir/$file"} = $st[7]; $filedir2{"$tdir/$file"} = $dir; } closedir(DH); } chdir("$homedir/fhem/fhemupdate"); my %oldtime; my $fname = "controls_fhem.txt"; if(open FH, $fname) { while(my $l = ) { chomp($l); next if($l !~ m/^UPD ([^ ]*) ([^ ]*) (.*)$/); my ($ts, $fs, $file) = ($1, $2, $3); $oldtime{"$file.txt"} = $ts if($file =~ m/\.pl$/); $oldtime{$file} = $ts; } close(FH); } my $cfh = new IO::File ">$fname" || die "Can't open $fname: $!\n"; `svn info ..` =~ m/Revision: (\d+)/m; print $cfh "REV $1\n"; if(open(ADD, "../../fhemupdate.control.fhem")) { print $cfh join("",); close ADD; } my $cnt; foreach my $f (sort keys %filetime2) { my $fn = $f; $fn =~ s/.txt$// if($fn =~ m/.pl.txt$/); print $cfh "UPD $filetime2{$f} $filesize2{$f} $fn\n"; my $newfname = $f; if(!$oldtime{$f} || $oldtime{$f} ne $filetime2{$f}) { $f =~ m,^(.*)/([^/]*)$,; my ($tdir, $file) = ($1, $2); system("mkdir -p $tdir") unless(-d $tdir); system("cp ../$filedir2{$f}/$file $tdir/$file"); $cnt++; } } close $cfh; $ENV{RSYNC_RSH}="ssh"; chdir("$homedir/fhem"); system("cp -p ../culfw/Devices/CUL/*.hex fhemupdate/FHEM"); system("cp -p ../culfw/Devices/CUL/*.hex fhemupdate/FHEM/firmware"); system("cp -p FHEM/firmware/*.hex fhemupdate/FHEM/firmware"); my $rsyncopts="-a --delete --compress --verbose"; system("rsync $rsyncopts fhemupdate/. fhem.de:fhem/fhemupdate/."); if(-f "commandref_changed") { system("scp docs/commandref.html docs/commandref_DE.html fhem.de:fhem"); } system("scp CHANGED MAINTAINER.txt fhem.de:fhem"); system("scp fhem.de:fhem/stats/data/fhem_statistics_db.sqlite .."); chdir("$homedir"); system("grep -v '^REV' fhem/fhemupdate/controls_fhem.txt > controls_fhem_5.5.txt"); system("scp controls_fhem_5.5.txt fhem.de:fhem/fhemupdate4/svn/controls_fhem.txt"); system("sh stats/dostats.sh"); system("sh mksvnlog.sh > SVNLOG"); system("scp SVNLOG fhem.de:fhem"); system("sourceforge/dorsync");