updateScript.pl

#!/usr/bin/perl

use File::Basename;
use POSIX qw(strftime);
use strict;

my @filenames = ( "67_Aquarea.pm" );

my $prefix = "FHEM";
my $filename = "67_Aquarea.pm";
foreach $filename (@filenames)
{
  my @statOutput = stat($prefix."/".$filename);

  if (scalar @statOutput != 13)
  {
    printf("error: stat has unexpected return value for ".$prefix."/".$filename."\n");
    next;
  }

  my $mtime = $statOutput[9];
  my $date = POSIX::strftime("%Y-%m-%d", localtime($mtime));
  my $time = POSIX::strftime("%H:%M:%S", localtime($mtime));
  my $filetime = $date."_".$time;

  my $filesize = $statOutput[7];

  printf("UPD ".$filetime." ".$filesize." ".$prefix."/".$filename."\n");
  open (DATEI, ">controls_aquarea.txt") or die $!;
  print DATEI "UPD ".$filetime." ".$filesize." ".$prefix."/".$filename."\n";
  close (DATEI);
}