mirror of
https://gitlab.gnome.org/GNOME/nautilus
synced 2024-11-05 16:04:31 +00:00
b93aa290e7
* check-FIXME.pl: Added HACKING to the files to skip. * components/services/install/idl/trilobite-eazel-install.idl: * components/services/install/lib/eazel-install-corba-callback.c: (impl_install_failed), (impl_uninstall_failed), (eazel_install_callback_query): * components/services/install/lib/eazel-install-corba-types.c: (corba_packagedatastruct_from_packagedata), (packagedata_from_corba_packagedatastruct): * components/services/install/lib/eazel-install-corba.c: (impl_Eazel_Install_query): * components/services/install/lib/eazel-install-protocols.c: (eazel_install_fetch_package), (eazel_install_fetch_package_which_provides), (get_url_for_package), (get_search_url_for_package): * components/services/install/lib/eazel-install-rpm-glue.c: (eazel_install_do_rpm_transaction_save_report), (eazel_install_fetch_rpm_dependencies), (eazel_uninstall_upward_traverse), (eazel_uninstall_downward_traverse): * components/services/install/lib/eazel-install-types.c: (packagedata_destroy_foreach): * src/file-manager/fm-directory-view.c: (activate_callback): * src/nautilus-window.c: (nautilus_window_realize): Fixed "FIXME bugzilla.eazel.com ###:" formatting to match what check-FIXME.pl looks for. The colon goes after the bug number. And it has to be "bugzilla.eazel.com", not "bug". * libnautilus-extensions/nautilus-directory-async.c: (allow_metafile): Fixed a comment. * libnautilus-extensions/nautilus-drag.c: (nautilus_drag_can_accept_item): Got rid of a fixed FIXME and changed to use nautilus_file_is_directory instead of nautilus_file_get_file_type.
111 lines
3.3 KiB
Perl
Executable file
111 lines
3.3 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
|
|
#
|
|
# Nautilus
|
|
#
|
|
# Copyright (C) 2000 Eazel, Inc.
|
|
#
|
|
# This library 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 library 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 library; if not, write to the Free Software
|
|
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
#
|
|
# Author: Darin Adler <darin@eazel.com>,
|
|
#
|
|
|
|
# check-FIXME.pl: Search for FIXMEs in the sources and correlate them
|
|
# with bugs in the bug database.
|
|
|
|
use diagnostics;
|
|
use strict;
|
|
|
|
# default to all the files starting from the current directory
|
|
my %skip_files;
|
|
if (!@ARGV)
|
|
{
|
|
@ARGV = `find . \\( \\( -name po -prune -false \\) -or \\( -name CVS -prune -false \\) -or \\( -name '*' -and -type f \\) \\) -and ! \\( -name '*~' -or -name '#*' -or -name 'ChangeLog*' -or -name Entries \\) -print`;
|
|
%skip_files =
|
|
(
|
|
"./HACKING" => 1,
|
|
"./TODO" => 1,
|
|
"./aclocal.m4" => 1,
|
|
"./check-FIXME.pl" => 1,
|
|
"./config.sub" => 1,
|
|
"./libtool" => 1,
|
|
"./ltconfig" => 1,
|
|
"./ltmain.sh" => 1,
|
|
"./macros/gnome-fileutils.m4" => 1,
|
|
"./macros/gnome-objc-checks.m4" => 1,
|
|
"./macros/gnome-vfs.m4" => 1,
|
|
"./src/file-manager/desktop-canvas.c" => 1,
|
|
"./src/file-manager/desktop-layout.c" => 1,
|
|
"./src/file-manager/desktop-window.c" => 1,
|
|
);
|
|
}
|
|
|
|
# locate all of the target lines
|
|
my $no_bug_lines = "";
|
|
my %bug_lines;
|
|
foreach my $file (@ARGV)
|
|
{
|
|
chomp $file;
|
|
next if $skip_files{$file};
|
|
next unless -T $file;
|
|
open(FILE, $file) || die "can't open $file";
|
|
while (<FILE>)
|
|
{
|
|
next if !/FIXME/;
|
|
if (/FIXME bugzilla.eazel.com (\d+)/)
|
|
{
|
|
$bug_lines{$1} .= "$file:$.:$_";
|
|
}
|
|
else
|
|
{
|
|
$no_bug_lines .= "$file:$.:$_";
|
|
}
|
|
}
|
|
close(FILE);
|
|
}
|
|
|
|
# list the ones without bug numbers
|
|
if ($no_bug_lines ne "")
|
|
{
|
|
my @no_bug_list = sort split /\n/, $no_bug_lines;
|
|
print "\n", scalar(@no_bug_list), " FIXMEs don't have bug numbers:\n\n";
|
|
foreach my $line (@no_bug_list)
|
|
{
|
|
print $line, "\n";
|
|
}
|
|
}
|
|
|
|
# list the ones with bugs that are not open
|
|
print "\n", scalar(keys %bug_lines), " FIXMEs with bug numbers.\n";
|
|
sub numerically { $a <=> $b; }
|
|
foreach my $bug (sort numerically keys %bug_lines)
|
|
{
|
|
# Check and see if the bug is open.
|
|
my $page = `wget -q -O - http://bugzilla.eazel.com/show_bug.cgi?id=$bug`;
|
|
$page =~ tr/\n/ /;
|
|
my $status = "unknown";
|
|
$status = $1 if $page =~ m|Status:.*</TD>\s*<TD>([A-Z]+)</TD>|;
|
|
next if $status eq "NEW" || $status eq "ASSIGNED" || $status eq "REOPENED";
|
|
|
|
# This a bug that is not open, so report it.
|
|
my @bug_line_list = sort split /\n/, $bug_lines{$bug};
|
|
print "\nBug $bug is $status:\n\n";
|
|
foreach my $line (@bug_line_list)
|
|
{
|
|
print $line, "\n";
|
|
}
|
|
}
|
|
print "\n";
|