package UR::Namespace::View::SchemaBrowser::CgiApp::File;
use strict;
use warnings;
require UR;
our $VERSION = "0.392"; # UR $VERSION;
use base 'UR::Namespace::View::SchemaBrowser::CgiApp::Base';
use IO::File;
sub setup {
my($self) = @_;
#$DB::single = 1;
$self->start_mode('show_file');
$self->mode_param('rm');
$self->run_modes(
'show_file' => 'show_file',
);
}
sub show_file {
my $self = shift;
my $file = $self->request->Env('filename');
my $linenum = $self->request->Env('linenum');
my $fh = IO::File->new($file);
unless ( $fh ) {
return "File Browse ErrorCan't open file $file: $!";
}
my @data;
my $lineno = 1;
foreach my $line ( $fh->getlines() ) {
chomp $line;
push @data, { LINE => 'line'.$lineno++,
DATA => $line };
}
$self->tmpl->param(FILE_LINES => \@data);
$self->tmpl->output();
}
sub _template{
q(
File view
">
)};
1;