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 "__BASEDIR__";
   9 use Girocco::Config;
  10 use Girocco::CGI;
  11 use Girocco::Project;
  12 use Girocco::Util;
  13 use CGI;
  14
  15 our $cgi = CGI->new;
  16 $cgi->charset('UTF-8');
  17
  18 my $pname = to_utf8($cgi->param('p'), 1);
  19 my $ctags = to_utf8($cgi->param('t'), 1);
  20 defined $pname or $pname = '';
  21 defined $ctags or $ctags = '';
  22 $pname =~ s/\.git$//;
  23
  24 if ($cgi->request_method ne 'POST' || $pname eq '') {
  25         print $cgi->header(-status=>403);
  26         print "<p>Invalid data. Go away, sorcerer.</p>\n";
  27         exit;
  28 }
  29
  30 my $proj = Girocco::Project::does_exist($pname, 1) && Girocco::Project->load($pname);
  31 if (not $proj) {
  32         print $cgi->header(-status=>404);
  33         print "<p>Project \"".html_esc($pname)."\" does not exist.</p>";
  34         exit;
  35 }
  36
  37 if ($ctags =~ /[^ a-zA-Z0-9:.+#_-]/) {
  38         print $cgi->header(-status=>403);
  39         print "<p>Content tag(s) '".html_esc($ctags)."' contain evil characters.</p>";
  40         exit;
  41 }
  42
  43 my $oldmask = umask();
  44 umask($oldmask & ~0060);
  45 my $changed;
  46 foreach my $ctag (split(/ /, $ctags)) {
  47         $changed = 1 if $proj->add_ctag($ctag, 1);
  48 }
  49 if ($changed) {
  50         $proj->_set_changed;
  51         $proj->_set_forkchange;
  52 }
  53 umask($oldmask);
  54
  55 print $cgi->header(-status=>303, -location=>"@{[url_path($Girocco::Config::gitweburl)]}/$pname.git");