2 # (c) Petr Baudis <pasky@suse.cz>
15 my $pname = $cgi->param('p');
16 my $ctags = $cgi->param('t');
18 my $proj = Girocco
::Project
->load($pname);
20 print $cgi->header(-status
=>404);
21 print "Project $pname does not exist.";
25 if ($ctags =~ /[^ a-zA-Z0-9:.+#_-]/) {
26 print $cgi->header(-status
=>403);
27 print "Content tag(s) '$ctags' contain evil characters.";
31 foreach my $ctag (split(/ /, $ctags)) {
32 # Locking is not important
34 open CT
, $proj->{path
}."/ctags/$ctag" and $val = <CT
> and close CT
;
36 open CT
, '>'.$proj->{path
}."/ctags/$ctag" and print CT
($val+1)."\n" and close CT
;
39 print $cgi->header(-status
=>303, -location
=>"$Girocco::Config::gitweburl/$pname.git");