File Coverage

blib/lib/WebEditor/OldFeatures/IndexerLive.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	32	37.5

# -*- perl -*-

#
# $Id: IndexerLive.pm,v 1.3 2005/03/13 17:33:31 cmuellermeta Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2004 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: [e-mail]
# WWW:  http://www.rezic.de/eserte/
#

package WebEditor::OldFeatures::IndexerLive;

use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);

use mixin::with "WebEditor::OldController";

sub run_live_indexer {
    require File::Basename;
    require File::Spec;
    my $self = shift;
    my $c = $self->C;
    my $liveuser=$c->staging->user;

    my @cmd;

    unless ("$liveuser"){
	    print "creating Live Index for localhost...\n";
	    @cmd = (File::Spec->catfile(File::Basename::dirname($c->staging->directory), "etc", "run_indexer"));

    }else{
	   print "creating Live Index for remote host...\n";
    	   my @cmd = (qw(ssh -l) , $c->staging->user,
	   $c->staging->host,
	   File::Spec->catfile(File::Basename::dirname($c->staging->directory),
				   "etc", "run_indexer"),
	   );
}
    print "";
    print "Run: @cmd\n";
    system(@cmd);
    print "Exit code: $?\n";
    print "";
}

1;

__END__