--- trunk/lib/Frey/Web.pm 2008/11/24 22:21:02 505 +++ trunk/lib/Frey/Web.pm 2008/11/25 14:14:21 516 @@ -222,7 +222,9 @@ |; + my $info = Frey::SVK->info; my $revision = Frey::SVK->info->{Revision} || ''; + $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; my $html = join("\n", qq||, @@ -299,4 +301,10 @@ ; } +sub add_status { + my ( $self, $data ) = @_; + push @{ $self->status }, $data; + warn "## current status ", $#{ $self->status }, " elements"; +} + 1;