cgi/watchdel.cgi

   1 #!/usr/bin/perl
   2 # (c) Zachary T Welch <zw@superlucidity.net>
   3 # GPLv2
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib qw(/home/repo/repomgr/cgi);
   9 use Git::RepoCGI;
  10
  11 my $repo = Git::RepoCGI->new('Delete Watchdog');
  12 my $project = $repo->sparam('project');
  13 my $branch = $repo->sparam('branch');
  14 my $path = $repo->sparam('path');
  15 my $name = $repo->sparam('name');
  16
  17 # check for submission
  18 my $ready = $project && $name;
  19 $repo->bye('Not yet implemented') if $ready && $repo->sparam('go');
  20
  21 print <<EOT;
  22 This form allows you to delete a watchdog for a project:
  23 <form method="post">
  24 <p>Project: <input type="text" name="project" value="$project" /></p>
  25 <p>Branch: <input type="text" name="branch" value="$branch" /></p>
  26 <p>Path: <input type="text" name="path" value="$path" /></p>
  27 <br>
  28 <p>Account: <input type="text" name="name" value="$name" /></p>
  29 <h3>Authentication</h3>
  30 To delete a watchdog.
  31 You must also provide the project admin or user account password.
  32 <p>Password: <input type="password" name="cpwd" /></p>
  33 <p><input type="submit" name="go" value="Watch" /></p>
  34 </form>
  35 </form>
  36 EOT