mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
231 lines
6.8 KiB
Perl
Executable File
231 lines
6.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
###############################
|
|
# This is quite a big mess here.
|
|
|
|
use IO::File;
|
|
|
|
# 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="/Users/rudi/Projects/fhem/fhemupdate";
|
|
my $homedir="/home/rudi/fhemupdate";
|
|
#goto NEWSTYLE;
|
|
|
|
chdir("$homedir/culfw");
|
|
system("svn update .");
|
|
|
|
chdir("$homedir/fhem");
|
|
system("mkdir -p fhemupdate");
|
|
system("svn update .");
|
|
die "SVN failed, exiting\n" if($?);
|
|
|
|
`../copyfiles.sh`;
|
|
|
|
#################################
|
|
# Old style
|
|
my @filelist = (
|
|
"./fhem.pl.txt",
|
|
"FHEM/.*.pm",
|
|
"FHEM/FhemUtils/.*.pm",
|
|
"FHEM/lib/.*.pm",
|
|
"www/gplot/.*.gplot",
|
|
"www/images/dark/.*.png",
|
|
"www/images/default/.*.png",
|
|
"www/images/smallscreen/.*.png",
|
|
"www/pgm2/.*\.(js|css|svg)",
|
|
"docs/commandref(_..)?.html",
|
|
"docs/faq(_..)?.html",
|
|
"docs/HOWTO(_..)?.html",
|
|
"docs/fhem.*.png",
|
|
"docs/.*.jpg",
|
|
"../culfw/Devices/CUL/.*.hex",
|
|
"./CHANGED",
|
|
);
|
|
|
|
# Read in the file timestamps
|
|
my %filetime;
|
|
my %filesize;
|
|
my %filedir;
|
|
foreach my $fspec (@filelist) {
|
|
$fspec =~ m,^(.+)/([^/]+)$,;
|
|
my ($dir,$pattern) = ($1, $2);
|
|
|
|
opendir DH, $dir || die("Can't open $dir: $!\n");
|
|
foreach my $file (grep { /$pattern/ && -f "$dir/$_" } readdir(DH)) {
|
|
my @st = stat("$dir/$file");
|
|
my @mt = localtime($st[9]);
|
|
$filetime{$file} = sprintf "%04d-%02d-%02d_%02d:%02d:%02d",
|
|
$mt[5]+1900, $mt[4]+1, $mt[3], $mt[2], $mt[1], $mt[0];
|
|
$filesize{$file} = $st[7];
|
|
$filedir{$file} = $dir;
|
|
}
|
|
closedir(DH);
|
|
}
|
|
|
|
my %oldtime;
|
|
if(open FH, "fhemupdate/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);
|
|
}
|
|
|
|
chdir("$homedir/fhem/fhemupdate");
|
|
open FH, ">filetimes.txt" || die "Can't open filetimes.txt: $!\n";
|
|
my $cnt;
|
|
foreach my $f (sort keys %filetime) {
|
|
my $fn = $f;
|
|
$fn =~ s/.txt$// if($fn =~ m/.pl.txt$/);
|
|
print FH "$filetime{$f} $filesize{$f} $fn\n";
|
|
|
|
my $newfname = $f;
|
|
if(!$oldtime{$f} || $oldtime{$f} ne $filetime{$f}) {
|
|
system("cp ../$filedir{$f}/$f $f");
|
|
$cnt++;
|
|
}
|
|
}
|
|
close FH;
|
|
NEWSTYLE:
|
|
|
|
for(my $loop = 0; $loop < 2; $loop++) {
|
|
#################################
|
|
# new Style
|
|
chdir("$homedir/fhem");
|
|
my $uploaddir2= ($loop ? "fhemupdate4" : "fhemupdate2");
|
|
system("mkdir -p $uploaddir2");
|
|
|
|
my %filelist2 = (
|
|
"./fhem.pl.txt" => { type=>",fhem,", dir=>"." },
|
|
"./CHANGED" => { type=>",fhem,", dir=>"." },
|
|
"FHEM/.*.pm" => { type=>",fhem,", dir=>"FHEM" },
|
|
"FHEM/FhemUtils/.*.pm" => { type=>",fhem,", dir=>"FHEM/FhemUtils"},
|
|
"FHEM/lib/.*.pm" => { type=>",fhem,", dir=>"FHEM/lib"},
|
|
"../culfw/Devices/CUL/.*.hex" => { type=>",fhem,", dir=>"FHEM",
|
|
dir3=>"FHEM", },
|
|
"www/pgm2/.*" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"www/gplot/.*.gplot" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"www/images/dark/.*.png" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"www/images/default/.*" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"www/images/smallscreen/.*" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"docs/commandref(_..)?.html" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"docs/faq(_..)?.html" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"docs/HOWTO(_..)?.html" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"docs/fhem.*.png" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
"docs/.*.jpg" => { type=>"fhem,", dir=>"www/pgm2"},
|
|
);
|
|
|
|
|
|
# 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;
|
|
my %filetype2;
|
|
foreach my $fspec (keys %filelist2) {
|
|
$fspec =~ m,^(.+)/([^/]+)$,;
|
|
my ($dir,$pattern) = ($1, $2);
|
|
my $tdir = $filelist2{$fspec}{$loop ? "dir3" : "dir"};
|
|
$tdir = $dir if(!$tdir);
|
|
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;
|
|
$filetype2{"$tdir/$file"} = $filelist2{$fspec}{type};
|
|
}
|
|
closedir(DH);
|
|
}
|
|
|
|
chdir("$homedir/fhem/$uploaddir2");
|
|
my %oldtime;
|
|
if(open FH, "filetimes.txt") {
|
|
while(my $l = <FH>) {
|
|
chomp($l);
|
|
my ($ts, $fs, $file) = split(" ", $l, 3);
|
|
$oldtime{"$file.txt"} = $ts if($file =~ m/fhem.pl/);
|
|
$oldtime{$file} = $ts;
|
|
}
|
|
close(FH);
|
|
}
|
|
|
|
open FH, ">filetimes.txt" || die "Can't open filetimes.txt: $!\n";
|
|
|
|
my %controls = (fhem=>0);
|
|
foreach my $k (keys %controls) {
|
|
my $fname = "controls_$k.txt";
|
|
$controls{$k} = new IO::File ">$fname" || die "Can't open $fname: $!\n";
|
|
if(open(ADD, "../../fhemupdate.control.$k")) {
|
|
while(my $l = <ADD>) {
|
|
my $fh = $controls{$k};
|
|
print $fh $l;
|
|
}
|
|
close ADD;
|
|
}
|
|
}
|
|
|
|
my $cnt;
|
|
foreach my $f (sort keys %filetime2) {
|
|
my $fn = $f;
|
|
$fn =~ s/.txt$// if($fn =~ m/.pl.txt$/);
|
|
print FH "$filetime2{$f} $filesize2{$f} $fn\n";
|
|
foreach my $k (keys %controls) {
|
|
my $fh = $controls{$k};
|
|
print $fh "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 FH;
|
|
|
|
foreach my $k (keys %controls) {
|
|
close $controls{$k};
|
|
}
|
|
}
|
|
|
|
$ENV{RSYNC_RSH}="ssh";
|
|
chdir("$homedir/fhem");
|
|
|
|
if(0) {
|
|
my $fname="controls_fhem.txt";
|
|
`cp fhemupdate4/$fname fhemupdate`;
|
|
`cp fhemupdate4/$fname fhemupdate2/FHEM`;
|
|
`rm fhemupdate2/$fname`;
|
|
my @st = stat("fhemupdate4/$fname");
|
|
my @mt = localtime($st[9]);
|
|
my $ftime = sprintf "%04d-%02d-%02d_%02d:%02d:%02d",
|
|
$mt[5]+1900, $mt[4]+1, $mt[3], $mt[2], $mt[1], $mt[0];
|
|
my $fsize = $st[7];
|
|
system("echo $ftime $fsize $fname >> fhemupdate/filetimes.txt");
|
|
system("echo $ftime $fsize FHEM/$fname >> fhemupdate2/filetimes.txt");
|
|
}
|
|
|
|
my $rsyncopts="-a --delete --compress --verbose";
|
|
system("rsync $rsyncopts fhemupdate fhem.de:fhem");
|
|
system("rsync $rsyncopts fhemupdate2 fhem.de:fhem");
|
|
system("rsync $rsyncopts fhemupdate4/. fhem.de:fhem/fhemupdate4/svn");
|
|
system("scp docs/commandref.html docs/commandref_DE.html fhem.de:fhem");
|
|
system("scp CHANGED fhem.de:fhem");
|