#!/usr/bin/perl # # dpkg-vendor # # Copyright © 2009 Raphaël Hertzog # # 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, see . use strict; use warnings; use Dpkg; use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::Vendor qw(get_vendor_info get_current_vendor); textdomain("dpkg-dev"); sub version { printf _g("Debian %s version %s.\n"), $progname, $version; printf _g(" Copyright (C) 2009 Raphael Hertzog ."); printf _g(" This is free software; see the GNU General Public License version 2 or later for copying conditions. There is NO warranty. "); } sub usage { printf _g( "Usage: %s [