cgi/tagproj.cgi

   1 #!/usr/bin/perl
   2 # (c) Petr Baudis <pasky@suse.cz>
   3 # GPLv2
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib ".";
   9 use Girocco::Config;
  10 use Girocco::Project;
  11 use CGI;
  12
  13 our $cgi = CGI->new;
  14
  15 my $pname = $cgi->param('p');
  16 my $ctags = $cgi->param('t');
  17
  18 my $proj = Girocco::Project->load($pname);
  19 if (not $proj) {
  20         print $cgi->header(-status=>404);
  21         print "Project $pname does not exist.";
  22         exit;
  23 }
  24
  25 if ($ctags =~ /[^ a-zA-Z0-9:.+#_-]/) {
  26         print $cgi->header(-status=>403);
  27         print "Content tag(s) '$ctags' contain evil characters.";
  28         exit;
  29 }
  30
  31 foreach my $ctag (split(/ /, $ctags)) {
  32         # Locking is not important
  33         my $val = 0;
  34         open CT, $proj->{path}."/ctags/$ctag" and $val = <CT> and close CT;
  35         chomp $val;
  36         open CT, '>'.$proj->{path}."/ctags/$ctag" and print CT ($val+1)."\n" and close CT;
  37 }
  38
  39 print $cgi->header(-status=>303, -location=>"$Girocco::Config::gitweburl/$pname.git");