#!/usr/bin/perl
# written 08.04.08 02:00 ;)
use Cwd; # get current working directory, core util
use Time::Piece;
use strict;
my $file_good_mask = '\.(s?html?|png|jpe?g|css|txt|js)$';
my $file_bad_mask = '^\.|HEADER';
my $dir_good_mask = '.';
my $dir_bad_mask = '^\.|old|dev$|go';
my $homepage_dir = '/srv/www/technikum29';
my $compare_changelog_time = (stat("$homepage_dir/CHANGELOG.txt"))[9];
my @master_dirs = qw/de en shared/;
sub linkfile {
my $dir = getcwd;
$dir =~ s#$homepage_dir#http://www.technikum29.de/#o;
return "$_[0]";
}
sub formattime {
my $stamp = shift;
my $type = ($stamp > $compare_changelog_time) ? "newer" : "older"; # im Vergleich zu Changelog-Aktualität
return "".localtime($stamp)->strftime("%d.%m.%Y %T")."";
}
print <technikum29 Dateienstatus
Im Folgenden sind alle Dateien der Homepage, deren Änderungen
im Changelog protokolliert werden (sollten), mit
dem Datum ihrer letzten Änderung aufgeführt. Liegt dies vor der neusten
protokollierten Version im Changelog, dann ist es dick gedruckt.
Dies deutet darauf hin, dass der Changelog zur Zeit veraltet ist.
Für weitergehende Informationen siehe auch die
SVN-Statusausgaben
HEAD
chdir($homepage_dir);
my $x = 0; # gesamtdateienzähler für even/odd
for (@master_dirs) {
ls($_);
}
sub ls {
# lists dir or prints error
my $d = shift;
my $t = shift; # tab count, nicht so wichtig
unless(opendir(DIR, $d)) {
print "