FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 16:46:35 +00:00
Code Issues Releases Wiki Activity

fhemupdate

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@922 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-06-26 11:20:14 +00:00
parent 0c906d6a98
commit 0eebab379a
2 changed files with 80 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
fhem/contrib/fhemupdate.pl Executable file
View File

@ -0,0 +1,76 @@
#!/usr/bin/perl
# Server-Side script to check out the fhem CVS repository, and upload the
# changed files to the server
print localtime() . "\n";
chdir("/home/rudi/fhemupdate/fhem");
system("mkdir -p UPLOAD");
system("cvs update . > /dev/null 2>&1");
die "CVS failed, exiting\n" if($?);
my @filelist = (
"./fhem.pl",
"FHEM/.*.pm",
"webfrontend/pgm2/.*",
"docs/commandref.html",
"docs/faq.html",
"docs/HOWTO.html",
"docs/fhem.*.png",
"docs/.*.jpg",
);
# 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, "UPLOAD/filetimes.txt") {
while(my $l = <FH>) {
chomp($l);
my ($ts, $fs, $file) = split(" ", $l, 3);
$oldtime{$file} = $ts;
}
close(FH);
}
chdir("UPLOAD");
open FH, ">filetimes.txt" || die "Can't open filetimes.txt: $!\n";
open FTP, ">script.txt" || die "Can't open script.txt: $!\n";
print FTP "cd fhem.de/fhemupdate\n";
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 $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");
$cnt++;
}
}
close FH;
close FTP;
if($cnt) {
print "FTP Upload needed for $cnt files\n";
system("ftp -e fhem.de < script.txt");
}

8
fhem/docs/commandref.html
View File

@ -46,7 +46,6 @@
<a href="#help">?,help</a> &nbsp;
<a href="#include">include</a> &nbsp;
<a href="#inform">inform</a> &nbsp;
<a href="#fhemupdate">fhemupdate</a> &nbsp;
<a href="#list">list</a> &nbsp;
<a href="#modify">modify</a> &nbsp;
<a href="#quit">quit</a> &nbsp;
@ -60,6 +59,7 @@
<a href="#shutdown">shutdown</a> &nbsp;
<a href="#sleep">sleep</a> &nbsp;
<a href="#trigger">trigger</a> &nbsp;
<a href="#updatefhem">updatefhem</a> &nbsp;
<a href="#xmllist">xmllist</a> &nbsp;
</ul>
@ -528,10 +528,10 @@ A line ending with \ will be concatenated with the next one, so long lines
<br>
</ul>
<a name="fhemupdate"></a>
<h3>fhemupdate</h3>
<a name="updatefhem"></a>
<h3>updatefhem</h3>
<ul>
<code>fhemupdate [filename]</code> <br>
<code>updatefhem [filename]</code> <br>
<br>
Update the fhem modules and documentation from a nightly CVS chekout. For
this purpose fhem contants http://fhem.de, compares the stored timestamps