/usr/share/pybit/apt/changes-debian is in pybit-svn 1.0.0-3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | #!/usr/bin/perl
use strict;
use warnings;
use vars qw/ $username $password $pybit_http $distro_name
$suite $arch $ver $pkg $sep $curl /;
# changes-debian - Debian-based procmail handler for changes files
#
# Copyright 2013 Neil Williams <codehelp@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
# MA 02110-1301, USA.
######## Configuration ############
# Network location of the pybit-web server
$pybit_http="http://localhost/job/vcshook";
# Distribution
$distro_name="Debian";
$username="admin";
$password="pass";
####### End Configuration #########
$sep = "--data-urlencode";
while (<>) {
m/^Distribution: (\S+)/m and $suite = $1;
m/^Architecture: (source)? ?(\S+)/m and $arch = $2;
next if (m/^Version: GnuPG/);
m/^Version: (\S+)/m and $ver = $1;
m/^Source: (\S+)/m and $pkg = $1;
}
exit (0) if (not defined $suite or not defined $arch or not defined $pkg);
$curl = "/usr/bin/curl -i -X POST $pybit_http ";
$curl .= "$sep method=apt $sep distribution=$distro_name ";
$curl .= "$sep vcs_id= $sep architecture_list=$arch ";
$curl .= "$sep package_version=$ver $sep package=$pkg ";
$curl .= "$sep suite=$suite $sep format=deb $sep uri=";
$curl .= " --user \"$username:$password\"\n";
system ($curl);
|