@@ -107,7 +107,10 @@ sub startup {

   # Blob

   $r->get('/:user/:repository/blob/(*id_file)')->to('#blob');

-

+  

+  # Raw

+  $r->get('/:user/:repository/raw/(*id_file)')->to('#raw');

+  

   # Projects

   $r->get('/(*home)/projects')->to('#projects')->name('projects');

@@ -122,10 +125,6 @@ sub startup {

     $r->get('/commitdiff-plain/(*diff)')

       ->to('#commitdiff', plain => 1)->name('commitdiff_plain');

-    # Blob plain

-    $r->get('/blob-plain/(*id_file)')

-      ->to('#blob', plain => 1)->name('blob_plain');

-    

     # Blob diff

     $r->get('/blobdiff/(#diff)/(*file)')

       ->to('#blobdiff')->name('blobdiff');

@@ -238,64 +238,6 @@ sub snapshot {

   $self->$cb;

 }

-sub summary {

-  my $self = shift;

-  

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  

-  # Git

-  my $git = $self->app->git;

-  

-  # HEAd commit

-  my $project_description = $git->project_description($project);

-  my $project_owner = $git->project_owner($project);

-  my $head_commit = $git->parse_commit($project, 'HEAD');

-  my $committer_date

-    = $git->parse_date($head_commit->{committer_epoch}, $head_commit->{committer_tz});

-  my $last_change = $git->timestamp($committer_date);

-  my $head_id = $head_commit->{id};

-  my $urls = $git->project_urls($project);

-  

-  # Commits

-  my $commit_count = 20;

-  my $commits = $head_id ? $git->parse_commits($project, $head_id, $commit_count) : ();

-

-  # References

-  my $refs = $git->references($project);

-  

-  # Tags

-  my $tag_count = 20;

-  my $tags  = $git->tags($project, $tag_count - 1);

-

-  # Heads

-  my $head_count = 20;

-  my $heads = $git->heads($project, $head_count - 1);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    project_description => $project_description,

-    project_owner => $project_owner,

-    last_change => $last_change,

-    urls => $urls,

-    commits => $commits,

-    tags => $tags,

-    head_id => $head_id,

-    heads => $heads,

-    refs => $refs,

-    commit_count => $commit_count,

-    tag_count => $tag_count,

-    head_count => $head_count

-  );

-}

-

 sub tag {

   my $self = shift;

@@ -41,61 +41,26 @@

   my $commit;

   my $mimetype;

   my $lines =[];

-  if ($plain) {

-    # Content type

-    my $type = $git->blob_contenttype($fh, $file);

-

-    # Convert text/* content type to text/plain

-    if ($self->config('prevent_xss') &&

-      ($type =~ m#^text/[a-z]+\b(.*)$# ||

-      ($type =~ m#^[a-z]+/[a-z]\+xml\b(.*)$# && -T $fh)))

-    {

-      my $rest = $1;

-      $rest = defined $rest ? $rest : '';

-      $type = "text/plain$rest";

-    }

-

-    # File name

-    my $file_name = $id;

-    if (defined $file) { $file_name = $file }

-    elsif ($type =~ m/^text\//) { $file_name .= '.txt' }

-    

-    # Content

-    my $content = do { local $/; <$fh> };

-    my $sandbox = $self->config('prevent_xss') &&

-      $type !~ m#^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)#;

-    my $content_disposition = $sandbox ? 'attachment' : 'inline';

-    $content_disposition .= "; filename=$file_name";

+  # MIME type

+  $mimetype = $git->blob_mimetype($fh, $file);

+  

+  # Redirect to blob-plain if no display MIME type

+  if ($mimetype !~ m#^(?:text/|image/(?:gif|png|jpeg)$)# && -B $fh) {

+    close $fh;

+    my $url = $self->url_for('blob_plain',

+      project => $rep_ns, id_file => "$id/$file");

-    # Render

-    $self->res->headers->content_disposition($content_disposition);

-    $self->res->headers->content_type($type);

-    $self->render_data($content);

+    return $self->redirect_to($url);

   }

-  # Blob

-  else {

-    # MIME type

-    $mimetype = $git->blob_mimetype($fh, $file);

-    

-    # Redirect to blob-plain if no display MIME type

-    if ($mimetype !~ m#^(?:text/|image/(?:gif|png|jpeg)$)# && -B $fh) {

-      close $fh;

-      my $url = $self->url_for('blob_plain',

-        project => $rep_ns, id_file => "$id/$file");

-      

-      return $self->redirect_to($url);

-    }

-    

-    # Commit

-    $commit = $git->parse_commit($rep, $id);

+  # Commit

+  $commit = $git->parse_commit($rep, $id);

-    # Parse line

-    while (my $line = $git->dec(scalar <$fh>)) {

-      chomp $line;

-      $line = $git->_tab_to_space($line);

-      push @$lines, $line;

-    }

+  # Parse line

+  while (my $line = $git->dec(scalar <$fh>)) {

+    chomp $line;

+    $line = $git->_tab_to_space($line);

+    push @$lines, $line;

   }

   # Global variable

@@ -0,0 +1,67 @@

+<%

+  # API

+  my $api = Gitprep::API->new($self);

+  

+  my $user = param('user');

+  my $repository = param('repository');

+  my $root_ns = $api->root_ns(config->{root});

+  

+  # Parameters

+  my $rep_ns = "$root_ns/$user/$repository.git";

+  my $rep = "/$rep_ns";

+  my $home_ns = $api->dirname($rep_ns);

+  my $home = "/$home_ns";

+  my $id_file = param('id_file');

+

+  # Id and file

+  my ($id, $file) = $api->parse_id_path($rep, $id_file);

+

+  # Git

+  my $git = $self->app->git;

+  

+  # Commit

+  my $commit_log = $git->latest_commit_log($rep, $id, $file);

+  

+  # Blob content

+  my $bid = $git->id_by_path($rep, $id, $file, 'blob')

+    or $api->croak('Cannot find file');

+  my @cmd = ($git->cmd($rep), 'cat-file', 'blob', $bid);

+  open my $fh, '-|', @cmd

+    or $api->croak(qq/Couldn't cat "$file", "$bid"/);

+  

+  # Blob plain

+  my $commit;

+  my $mimetype;

+  my $lines =[];

+  

+  # Content type

+  my $type = $git->blob_contenttype($fh, $file);

+

+  # Convert text/* content type to text/plain

+  if ($self->config('prevent_xss') &&

+    ($type =~ m#^text/[a-z]+\b(.*)$# ||

+    ($type =~ m#^[a-z]+/[a-z]\+xml\b(.*)$# && -T $fh)))

+  {

+    my $rest = $1;

+    $rest = defined $rest ? $rest : '';

+    $type = "text/plain$rest";

+  }

+

+  # File name

+  my $file_name = $id;

+  if (defined $file) { $file_name = $file }

+  elsif ($type =~ m/^text\//) { $file_name .= '.txt' }

+  

+  # Content

+  my $content = do { local $/; <$fh> };

+  my $sandbox = $self->config('prevent_xss') &&

+    $type !~ m#^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)#;

+  my $content_disposition = $sandbox ? 'attachment' : 'inline';

+  $content_disposition .= "; filename=$file_name";

+  

+  # Render

+  $self->res->headers->content_disposition($content_disposition);

+  $self->res->headers->content_type($type);

+  

+  return $content;

+%>