trivial: remove old perl scripts and other cruft

Most of these don't work, and I don't think anybody uses them.

15 files changed, 1 insertions, 1240 deletions

diff --git a/CVSVERSION b/CVSVERSION
deleted file mode 100644
index 5892a0aca..000000000
--- a/CVSVERSION
+++ /dev/null
@@ -1,4 +0,0 @@
-This file is here to detect the fact that we are building a CVS
-version and not a tarball. Do _not_ add it to any Makfile.am rules
-that would cause it to be distributed in release tarballs!
-
diff --git a/Makefile.am b/Makefile.am
index b0056a9fe..a6a15456d 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -31,7 +31,6 @@ EXTRA_DIST=					\
 	intltool-merge.in			\
 	intltool-update.in			\
 	Makefile.shared				\
-	add-include-prefix			\
 	$(NULL)
 
 DISTCLEANFILES = \
@@ -51,7 +50,7 @@ distclean-local:
 ChangeLog:
 	@echo Creating $@
 	@if test -d "$(srcdir)/.git"; then \
-	  (GIT_DIR=$(top_srcdir)/.git ./missing --run git log NAUTILUS_2_26_2.. --stat -M -C --name-status  --date=short --no-color) | fmt --split-only > $@.tmp \
+	  (GIT_DIR=$(top_srcdir)/.git ./missing --run git log --stat -M -C --name-status  --date=short --no-color) | fmt --split-only > $@.tmp \
 	  && mv -f $@.tmp $@ \
 	  || ($(RM) $@.tmp; \
 	      echo Failed to generate ChangeLog, your ChangeLog may be outdated >&2; \
diff --git a/RENAMING b/RENAMING
deleted file mode 100644
index 0ef7b3908..000000000
--- a/RENAMING
+++ /dev/null
@@ -1,40 +0,0 @@
-We put plans for renaming in here so we can think about them for a
-while.  Note that when we rename a class, it usually involves renaming
-some functions and files too.
-
-When we rename files in the repository, we do it by this process:
-
-  1) copy the file in the repository by logging in and using cp (to retain history)
-  2) check out to get the new file
-  3) cvs rm to remove the old file on commit
-  4) fix all build problems
-  5) commit
-
-This retains the history in both the old and new locations.
-
-Remove a lot of nautilus prefixes since nothing outside libnautilus is
-intended for use with other programs, so it doesn't need namespacing.
-
-------
-macros
-------
-
----------------
-directory names
----------------
-
-----------
-file names
-----------
-*-ui.xml -> *.ui
-src/file-manager/fm-* -> ?
-nautilus-authn-manager.c -> nautilus-authentication-manager.c
-
-----------------------------
-classes and other data types
-----------------------------
-FM* -> ?
-
---------------
-function names
---------------
diff --git a/TODO b/TODO
deleted file mode 100644
index 53d2264c6..000000000
--- a/TODO
+++ /dev/null
@@ -1,19 +0,0 @@
-For tasks outside the porting effort, we track them as bugs in
-http://bugzilla.gnome.org. For the porting effort, please let
-darin@bentspoon.com know what you are working on.
-
-- Visit all the GNOME2_CONVERSION_COMPLETE and fix each issue
-  (details forthcoming)
-
-- Visit all the destroy and move things into finalize or dispose
-  and make them callable twice as appropriate.
-- Change things that use destroy handlers to use weak references
-  instead.
-
-- Figure out why we get NULL font problems in Pango when the progress
-  dialog comes up.
-
-- Split themes into a separate tarball/package?
-
-- Add mnemonics for all preferences, so you can use the keyboard to
-  drive the preferences dialog.
diff --git a/TODO-gio b/TODO-gio
deleted file mode 100644
index 929945066..000000000
--- a/TODO-gio
+++ /dev/null
@@ -1,16 +0,0 @@
-Monitor for UNMOUNT file change event and close window
-
-Break out file activation from fm-directory-view.c
-File actication cancellation not implemented yet
-
-convert delete to use trash_or_delete code
-recursive deletes
-progress for trash/delete
-
-Automount location when loading it in a window and its not mounted.
-
-"translate" gnome-vfs errors and update error handling
-
-fm-directory-view.c: pre_copy_move stuff leaks as it waits for uris that are not in the target directory.
-
-
diff --git a/add-include-prefix b/add-include-prefix
deleted file mode 100755
index 45e48769e..000000000
--- a/add-include-prefix
+++ /dev/null
@@ -1 +0,0 @@
-sed -e 's/^/ /' -e 's/  */ /g' -e 's/ / -I /g' -e 's/ -I $//'
diff --git a/check-FIXME.pl b/check-FIXME.pl
deleted file mode 100755
index 91fccf404..000000000
--- a/check-FIXME.pl
+++ /dev/null
@@ -1,165 +0,0 @@
-#!/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@bentspoon.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 macros -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,
-      );
-  }
-
-#locate all of the open FIXMEs in the bug database
-my $pwd=`pwd`;
-chomp $pwd;
-
-my $repository_file = $pwd."/CVS/Repository";
-open FILE, " cat $repository_file | ";
-
-my $product = <FILE>;
-chomp $product;
-
-close FILE;
-
-print "Searching the bugzilla database's product $product for open FIXME bugs\n";
-
-if (!grep /$product/, ( "nautilus", "gnome-vfs", "medusa", "oaf")) {
-    print "Can't find your product in the bugzilla.gnome.org database\n";
-}
-
-my $bugzilla_query_bug_url = "http://bugzilla.gnome.org/buglist.cgi?";
-
-$product =~ s/\-/\+/g;
-my @cgi_options = ("bug_status=NEW",
-		   "bug_status=ASSIGNED",
-		   "bug_status=REOPENED",
-		   "long_desc=fixme",
-		   "long_desc_type=substring",
-		   "product=$product");
-
-my $open_fixmes_url = $bugzilla_query_bug_url.join "&", @cgi_options;
-
-`wget -q -O - "$open_fixmes_url"` =~ /<INPUT TYPE\=HIDDEN NAME\=buglist VALUE\=([0-9:]+)>/;
-my $buglist_text = $1;
-
-my %bugs_in_bugzilla;
-foreach my $bug (split /:/, $buglist_text) {
-    $bugs_in_bugzilla{$bug} = "UNFOUND";
-}
-
-print "Locating all of the FIXME's listed in source\n";
-# 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\s*:?\s*bugzilla.gnome.org\s+(\d+)/)
-          {
-            $bug_lines{$1} .= "$file:$.:$_";
-          }
-        else
-          {
-            $no_bug_lines .= "$file:$.:$_";
-          }
-      }
-    close(FILE);
-  }
-
-# list database bugs we can't find in nautilus
-printf "%d FIXMES in the database still in $product\n", keys %bug_lines;
-
-foreach my $bug_number (keys %bug_lines) {
-    $bugs_in_bugzilla{$bug_number} = "FOUND";
-}
-
-print "\n";
-foreach my $bug_number (keys %bugs_in_bugzilla) {
-    if ($bugs_in_bugzilla{$bug_number} eq "UNFOUND") {
-        # Also check that the 
-        my $bug_url = "http://bugzilla.gnome.org/show_bug.cgi?id=".$bug_number;
-        my $bug_page = `wget -q -O - $bug_url`;
-        if (!($bug_page =~ /This is not a FIXME bug/i)) {
-          $bug_page =~ /<A HREF=\"bug_status.html\#assigned_to\">Assigned To:<\/A><\/B><\/TD>\s+<TD>([^<]+)<\/TD>/s;
-          print "Bug $bug_number isn't in the source anymore.  Contact owner $1.\n";
-        }
-
-    }
-}
-
-# 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.gnome.org/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";
diff --git a/check-POTFILES.pl b/check-POTFILES.pl
deleted file mode 100755
index 247cfa0b7..000000000
--- a/check-POTFILES.pl
+++ /dev/null
@@ -1,108 +0,0 @@
-#!/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@bentspoon.com>,
-#
-
-# check-POTFILES.pl: Checks for files mentioned in POTFILES.in that
-# are not present in the Makefile.am files for those directories.
-
-use diagnostics;
-use strict;
-
-my @directories = (".");
-
-my %exceptions =
-  (
-   '$(APPLETS_SUBDIRS)' => 'applets',
-   '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
-   '$(INSTALL_SERVICE)' => 'install',
-   '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
-   '$(NULL)' => '',
-   '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
-   '$(SERVICE_SUBDIRS)' => 'services',
-   'intl' => '',
-   'po' => '',
-  );
-
-my %files;
-
-# collect all files mentioned in Makefile.am files
-while (@directories)
-  {
-    my $directory = pop @directories;
-    my $prefix = "";
-    $prefix = "$directory/" if $directory ne ".";
-
-    my $in_subdirs = 0;
-
-    my $file = $prefix . "Makefile.am";
-    open FILE, $file or die "can't open $file\n";
-    while (<FILE>)
-      {
-        if (s/^SUBDIRS\s*=//)
-          {
-            $in_subdirs = 1;
-          }
-        if ($in_subdirs)
-          {
-            while (s/^\s*([^\s\\]+)//)
-              {
-                if (defined $exceptions{$1})
-                  {
-                    if ($exceptions{$1})
-                      {
-                        push @directories, $prefix . $exceptions{$1};
-                      }
-                  }
-                else
-                  {
-                    push @directories, $prefix . $1;
-                  }
-              }
-            if (/^\s*$/)
-              {
-                $in_subdirs = 0;
-              }
-            elsif (!/^\s*\\$/)
-              {
-                die "can't parse SUBDIRS in $directory\n";
-              }
-          }
-	while (s/([-_a-zA-Z0-9]+\.(c|h|xml|cpp|oaf\.in|desktop\.in))\W//)
-	  {
-	    $files{$prefix . $1} = $1;
-	  }
-      }
-    close FILE;
-  }
-
-open POTFILES, "po/POTFILES.in" or die "can't open POTFILES.in\n";
-while (<POTFILES>)
-  {
-    chomp;
-    if (! defined $files{$_})
-      {
-        print "$_ is in POTFILES.in but not Makefile.am\n";
-      }
-  }
-close POTFILES;
diff --git a/check-THANKS.pl b/check-THANKS.pl
deleted file mode 100755
index d2389b33a..000000000
--- a/check-THANKS.pl
+++ /dev/null
@@ -1,409 +0,0 @@
-#!/usr/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-
-#
-#  Nautilus
-#
-#  Copyright (C) 2000, 2001 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: Maciej Stachowiak <mjs@eazel.com>
-#
-
-# check-THANKS.pl: Checks for users mentioned in one of the ChangeLogs
-# but not in THANKS or AUTHORS; ensure that THANKS and AUTHORS do not
-# overlap.
-
-use diagnostics;
-use strict;
-
-# Map from alternate names of some users to canonical versions
-
-my %name_map =
-  (
-   "T???=82??=B5ivo Leedj???=A2??=82??=ACrv" => "Tõivo Leedjärv",
-   "Tõivo Leedjärv" => "Tõivo Leedjärv",
-   "Sanlig adral" => "Sanlig Badral",
-   "Rahul Balerao" => "Rahul Bhalerao",
-   "Richard Hestilow" => "Rachel Hestilow",
-   "Martin Norback" => "Martin Norbäck",
-   "Martin Norb??ck" => "Martin Norbäck",
-   "Josep Puigdemont" => "Josep Puigdemont Casamajó",
-   "Josep Puigdemont i Casamajó" => "Josep Puigdemont Casamajó",
-   "?smund Skj?veland" => "Åsmund Skjæveland",
-   "Alexander Larsson" => "Alex Larsson",
-   "?ygimantas Beru?ka" => "Žygimantas Beručka",
-   "Beru?ka" => "Beručka",
-   "Carlos Perell?? Mar??n" => "Carlos Perelló Marín",
-   "Carlos Perello Marin" => "Carlos Perelló Marín",
-   "Carlos Perelló Marín" => "Carlos Perelló Marín",
-   "Ch4ristian Rose" => "Christian Rose",
-   "Danilo ? egan" => "Danilo Šegan",
-   "Danilo ?egan" => "Danilo Šegan",
-   "Danilo Å egan" => "Danilo Šegan",
-   "Darin as Andy" => "Darin Adler",
-   "Diego Gonzalez Gonzalez" => "Diego Gonzalez",
-   "Diego González" => "Diego Gonzalez",
-   "Eskil Olsen" => "Eskil Heyn Olsen",
-   "Gustavo Giráldez" => "Gustavo Giráldez",
-   "I?aki Larra?aga" => "Inaki Larranaga Murgoitio",
-   "Inaki Laranaga Murgoitio" => "Inaki Larranaga Murgoitio",
-   "Inaki Larranaga" => "Inaki Larranaga Murgoitio",
-   "J. Shane Culpepper" => "J Shane Culpepper",
-   "Jesus Bravo Alvarez" => "Jesús Bravo Álvarez",
-   "M?tin ?mirov" => "Mətin Əmirov",
-   "Michael Engber" => "Mike Engber",
-   "Michael K. Fleming" => "Mike Fleming",
-   "Pavel Císler" => "Pavel Cisler",
-   "Pavel" => "Pavel Cisler",
-   "Rebecka Schulman" => "Rebecca Schulman",
-   "Robin Slomkowski" => "Robin * Slomkowski",
-   "Shane Culpepper" => "J Shane Culpepper",
-   "Szabolcs BAN" => "Szabolcs Ban",
-   "Takuo KITAME" => "Takuo Kitame",
-   "Matic Zgur" => "Matic Žgur",
-   "Nelson Benitez" => "Nelson Benítez",
-   "arik devens" => "Arik Devens",
-   "Samúel Jón Gunnarsson" => "Samuel Jan Gunnarsson",
-   "Sam?=BAel J?=B3n Gunnarsson" => "Samuel Jan Gunnarsson",
-   "Sam?el J?n Gunnarsson" => "Samuel Jan Gunnarsson",
-   "Soeren Sandmann Pedersen" => "Soeren Sandmann",
-   "Soren Sandmann" => "Soeren Sandmann",
-   "Takeshi AiHANA" => "Takeshi AIHANA",
-   "Miguel Rodríguez Pérez" => "Rodriguez Perez"
-  );
-
-# Map from alternate email addresses of some users to canonical versions
-
-my %email_map =
-  (
-   'uws+gnome@xs4all.nl' => 'wbolster@gnome.org',
-   'wbolster@cvs.gnome.org' => 'wbolster@gnome.org',
-   'wbolster@svn.gnome.org' => 'wbolster@gnome.org',
-   'randrianiriana@gmaial.com' => 'thierryr@svn.gnome.org',
-   'thierry@randrianiriana.org' => 'thierryr@svn.gnome.org',
-   'thierryR@svn.gnome.org' => 'thierryr@svn.gnome.org',
-   'aihana@gnome.gr.jp' => 'takeshi.aihana@gmail.com',
-   'takehsi.aihana@gmail.com' => 'takeshi.aihana@gmail.com',
-   'sunil@atc.tcs.com' => 'sunilmohan@fsf.org.in',
-   'sunil@atc.tcs.co.in' => 'sunilmohan@fsf.org.in',
-   'ssp@localhost.localdomain' => 'sandmann@redhat.com',
-   'rozobeh@sharif.edu' => 'roozbeh@farsiweb.info',
-   'runa@bengalinux.org' => 'runabh@gmail.com',
-   'rajeshkajha@yahoo.com' => 'rranjan@redhat.com',
-   'amd@store20.com' => 'plaes@svn.gnome.org',
-   'gforcada@svn.gnome.org' => 'gforcada@gnome.org',
-   'bpepple@fedoraproject.org' => 'bdpepple@gmail.com',
-   'yaihr@gmail.com' => 'yairhr@gmail.com',
-   'chyla@buy.pl' => 'chyla@gnome.pl',
-   'mail@zbigniew.chyla.pl' => 'chyla@gnome.pl',
-   'uid0@tuxfamily.org' => 'zygis@gnome.org',
-   'uid0@akl.lt' => 'zygis@gnome.org',
-   'sandmann@daimi.au.dk' => 'sandmann@redhat.com',
-   'badral@chinggis.com' => 'Badral@openmn.org',
-   'badral@users.sf.net' => 'Badral@openmn.org',
-   'badral@chinggis.com' => 'Badral@openmn.org',
-   'ptvirtan@cc.hut.fi' => 'pauli.virtanen@hut.fi',
-   'pauli.virtanen@saunalahti.fi' => 'pauli.virtanen@hut.fi',
-   'frolix68@yahoo.gr' => 'nikosx@gmail.com',
-   'mdamt@mnots.eu' => 'mdamt@gnome.org',
-   'mvd@mylinux.ua' => 'dziumanenko@gmail.com',
-   'martin.wehner@epost.de' => 'martin.wehner@gmail.com',
-   'josep@imatge-sintetica.com' => 'josep.puigdemont@gmail.com',
-   'laca@ireland.sun.com' => 'laca@sun.com',
-   'Louise.Miller@ireland.sun.com' => 'louise.miller@sun.com',
-   'dooteo@zundan.com' => 'dooteo@euskalgnu.org',
-   'doteo@euskalgnu.org' => 'dooteo@euskalgnu.org',
-   'ihar.hrachyshka@gmail.com' => 'booxter@lacinka.org',
-   'iharh@gnome.org' => 'booxter@lacinka.org',
-   'ifelix@svn.gnome.org' => 'ifelix25@gmail.com',
-   'hendi@gnome-de.org' => 'hendrikr@gnome.org',
-   'dave@ximian.com' => 'dave@novell.com',
-   'dcamp@novell.com' => 'dave@novell.com',
-   'davidz@redhat.com' => 'david@fubar.dk',
-   'dggonz@yahoo.com' => 'diego@pemas.net',
-   'cyphra@nano.tecknolabs.com' => 'serrador@openshine.com',
-   'dsegan@gmx.net' => 'danilo@gnome.org',
-   'cosimoc@svn.gnome.org' => 'cosimoc@gnome.org',
-   'chpe@cvs.gnome.org' => 'chpe@gnome.org',
-   'chpe@svn.gnome.org' => 'chpe@gnome.org',
-   'aflinta@svn.gnome.org' => 'aflinta@gmail.com',
-   'peter.ani@hotmail.com' => 'peter.ani@gmail.com',
-   'abel@oaka.org' => 'abelcheung@gmail.com',
-   'maddog@linux.org.hk' => 'abelcheung@gmail.com',
-   'alla@lysator.liu.se' => 'alexl@redhat.com',
-   'almer1@dds.nl' => 'almer@gnome.org',
-   'andersca@codefactory.se' => 'andersca@gnome.org',
-   'andersca@gnu.org' => 'andersca@gnome.org',
-   'andy@eazel.com' => 'andy@differnet.com',
-   'arik@gnome.org' => 'arik@eazel.com',
-   'at@ue-spacy.com' => 'tagoh@gnome.gr.jp',
-   'baulig@suse.de' => 'martin@home-of-linux.org',
-   'car0969@gamma2.uta.edu' => 'bratsche@gnome.org',
-   'carlos@gnome-db.org' => 'carlos@hispalinux.es',
-   'cgabriel@softwarelibero.org' => 'cgabriel@cgabriel.org',
-   'chief_wanker@eazel.com' => 'eskil@eazel.com',
-   'darin@eazel.com' => 'darin@bentspoon.com',
-   'dan@eazel.com' => 'd-mueth@uchicago.edu',
-   'hp@pobox.com' => 'hp@redhat.com',
-   'josh@eazel.com' => 'josh@whitecape.org',
-   'jrb@webwynk.net' => 'jrb@redhat.com',
-   'jsh@eazel.com' => 'jsh@pixelslut.com',
-   'kabalak@gmx.net' => 'kabalak@kabalak.net',
-   'kabalak@gtranslator.org' => 'kabalak@kabalak.net',
-   'kmaraas@gnu.org' => 'kmaraas@gnome.org',
-   'kmaraas@online.no' => 'kmaraas@gnome.org',
-   'linux@chrisime.de' => 'chrisime@gnome.org',
-   'linuxfan@ionet..net' => 'josh@whitecape.org',
-   'linuxfan@ionet.net' => 'josh@whitecape.org',
-   'mathieu@gnome.org' => 'mathieu@eazel.com',
-   'mathieu@gnu.org' => 'mathieu@eazel.com',
-   'mawa@iname.com' => 'mawarkus@gnome.org',
-   'mjs@eazel.com' => 'mjs@noisehavoc.org',
-   'ramiro@eazel.com' => 'ramiro@fateware.com',
-   'raph@gimp.org' => 'raph@acm.org',
-   'rslomkow@rslomkow.org' => 'rslomkow@eazel.com',
-   'seth@eazel.com' => 'snickell@stanford.edu',
-   'sopwith@eazel.com' => 'sopwith@redhat.com',
-   'yakk@yakk.net' => 'ian@eazel.com',
-   'yakk@yakk.net.au' => 'ian@eazel.com',
-   'alexl@cgf.boston.redhat.com' => 'alexl@redhat.com',
-   'alexl@redhat.co,' => 'alexl@redhat.com',
-   'alexl@redhat' => 'alexl@redhat.com'
-  );
-
-
-# Some ChangeLog lines that carry no credit (incorrect changes that
-# had to be reverted, changes done for someone else, etc.)
-
-my %no_credit =
-  (
-   '2000-09-08  Daniel Egger  <egger@suse.de>' => 1,
-   '2000-09-06  Daniel Egger  <egger@suse.de>' => 1,
-   '2001-04-25  Changwoo Ryu  <cwryu@debian.org>' => 1,
-  );
-
-
-open CHANGELOGS, "cat `find . -name intl -prune -or -name 'ChangeLog*' -and \! -name '*~' -print`|" or die;
-
-my @lines;
-while (<CHANGELOGS>)
-  {
-    chomp;
-    
-    if (/@/)
-      {
-        next if $no_credit{$_};
-
-        if (/^\d\d\d\d-\d\d-\d\d/)
-          {
-            # Normal style ChangeLog comment 
-            s/^\d\d\d\d-\d\d-\d\d[ \t]*//;
-          }
-        elsif (/^(Mon|Tue|Wed|Thu|Fri|Sat|Sun).*\d\d\d\d/)
-          {
-            # Old style ChangeLog comment 
-            s/^.*20\d\d\s*//;
-          }
-        elsif (/^\s+Patch from.+<\S+\@\S+>/i)
-          {
-            # Body of comment says 'Patch from', followed by name and email.
-	    s/^\s+Patch from:?\s+//i;
-          }
-        else
-          {
-            next; # ignore unknown lines for now
-          }
-        
-        my $name = $_;
-        
-        $name =~ s/[ \t]*<.*[\n\r]*$//;
-        
-        $name = $name_map{$name} if $name_map{$name};
-        
-        my $email = $_;
-        
-        $email =~ s/^.*<//;
-        $email =~ s/>.*$//;
-        $email =~ s/[ \t\n\r]*$//;
-	$email =~ s/helixcode/ximian/;
-        
-        $email = $email_map{$email} if $email_map{$email};
-
-        push @lines, "${name}  <${email}>";
-    }
-}
-
-close CHANGELOGS;
-
-my @changelog_people;
-my $last_line = "";
-foreach my $line (sort @lines)
-  {
-    push @changelog_people, $line unless $line eq $last_line;
-    $last_line = $line;
-  }
-
-open AUTHORS, "AUTHORS" or die;
-
-my @authors;
-
-while (<AUTHORS>) {
-    chomp;
-    push @authors, $_;
-}
-
-close AUTHORS;
-
-open THANKS, "THANKS" or die;
-
-my @thanks_people;
-my @non_translation_thanks_people;
-my $in_translations = 0;
-
-while (<THANKS>) {
-    chomp;
-    s/ - .*$//;
-    push @thanks_people, $_;
-    $in_translations = 1 if /contributed translations/;
-    push @non_translation_thanks_people, $_ if !$in_translations;
-}
-
-close THANKS;
-
-my $found_about_authors = 0;
-my @about_authors;
-
-if (open ABOUT, "src/nautilus-window-menus.c")
-  {
-    while (<ABOUT>)
-      {
-        if (/const char \*authors/)
-          {
-            $found_about_authors = 1;
-            last;
-          }
-      }
-    
-    if ($found_about_authors)
-      {
-        while (<ABOUT>)
-          {
-            last unless /^\s+\"(.*)\",\s*\n/;
-            push @about_authors, $1;
-          }
-      }
-    
-    close ABOUT;
-}
-
-my @uncredited;
-foreach my $person (@changelog_people)
-  {
-    if (! (grep {$_ eq $person} @thanks_people) &&
-        ! (grep {$_ eq $person} @authors))
-      {
-        push @uncredited, $person;
-      }
-  }
-
-my @double_credited;
-foreach my $person (@authors)
-  {
-    if (grep {$_ eq $person} @non_translation_thanks_people)
-      {
-        push @double_credited, $person;
-      }
-  }
-
-my @author_names;
-foreach my $person (@authors)
-  {
-    $person =~ s/\s*<.*//;
-    push @author_names, $person;
-  }
-
-my @not_in_about;
-foreach my $person (@author_names)
-  {
-    push @not_in_about, $person unless grep {$_ eq $person} @about_authors;
-  }
-
-my @only_in_about;
-foreach my $person (@about_authors)
-  {
-    push @only_in_about, $person unless grep {$_ eq $person} @author_names;
-  }
-
-my $printed = 0;
-
-if (@uncredited)
-  {
-    print "\nThe following people are in the ChangeLog but not credited in THANKS or AUTHORS:\n\n";
-    
-    foreach my $person (@uncredited)
-      {
-        print "${person}\n";
-      }
-    
-    $printed = 1;
-  }
-
-if (@double_credited)
-  {
-    print "\nThe following people are listed in both THANKS and AUTHORS:\n\n";
-    
-    foreach my $person (@double_credited)
-      {
-        print "${person}\n";
-      }
-    
-    $printed = 1;
-  } else {
-
-    if (!$found_about_authors)
-      {
-        print "\nDidn't find authors section in nautilus-window-menus.c\n";
-        $printed = 1;
-      }
-      
-    if (@not_in_about)
-      {
-        print "\nThe following people are in AUTHORS but not the about screen:\n\n";
-        
-        foreach my $person (@not_in_about)
-          {
-            print "${person}\n";
-          }
-        
-        $printed = 1;
-      }
-
-    if (@only_in_about)
-      {
-        print "\nThe following people are in the about screen but not AUTHORS:\n\n";
-        
-        foreach my $person (@only_in_about)
-          {
-            print "${person}\n";
-          }
-        
-        $printed = 1;
-      }
-  }
-
-
-print "\n" if $printed;
diff --git a/check-config-h.pl b/check-config-h.pl
deleted file mode 100755
index e4668203a..000000000
--- a/check-config-h.pl
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/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@bentspoon.com>,
-#
-
-# check-config-h.pl: Search for .c files where someone forgot to
-# put an include for <config.h> in.
-
-use diagnostics;
-use strict;
-
-use Getopt::Long;
-
-my $edit = 0;
-&GetOptions("edit" => \$edit);
-
-# default to all the files starting from the current directory
-if (!@ARGV)
-  {
-    @ARGV = `find . -name '*.c' -print`;
-  }
-
-# locate all of the target lines
-my @missing_files;
-FILE: foreach my $file (@ARGV)
-  {
-    chomp $file;
-    open FILE, $file or die "can't open $file";
-    while (<FILE>)
-      {
-        next FILE if /generated by/;
-        next FILE if /^\s*\#\s*include\s*[<\"]config\.h[>\"]/;
-      }
-    close FILE;
-    push @missing_files, $file;
-  }
-
-if (@missing_files)
-  {
-    print "\n", scalar(@missing_files), " C files don't have <config.h> includes:\n\n";
-    if (!$edit)
-      {
-        print join("\n", @missing_files), "\n";
-      }
-    else
-      {
-        foreach my $file (@missing_files)
-          {
-            open OLD, $file or die "can't open $file";
-            open NEW, "> $file.new" or die "can't open $file.new";
-            while (<OLD>)
-              {
-                if (/^\s*\#\s*include\s/)
-                  {
-                    print NEW "$&<config.h>\n";
-                    print NEW;
-                    last;
-                  }
-                print NEW;
-              }
-            print NEW <OLD>;
-            close NEW;
-            close OLD;
-            rename "$file.new", $file or die "can't rename $file";
-            print "edited $file\n";
-          }
-      }
-  }
-
diff --git a/check-headers-in-Makefile.pl b/check-headers-in-Makefile.pl
deleted file mode 100755
index f52923f48..000000000
--- a/check-headers-in-Makefile.pl
+++ /dev/null
@@ -1,119 +0,0 @@
-#!/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@bentspoon.com>,
-#
-
-# check-headers-in-Makefile.pl: Checks the contents of the source
-# directories against the contents of the Makefile.am files.
-
-use diagnostics;
-use strict;
-
-my @directories = (".");
-
-my %exceptions =
-  (
-   '$(APPLETS_SUBDIRS)' => 'applets',
-   '$(AUTHENTICATE_HELPER_SUBDIRS)' => 'authenticate',
-   '$(INSTALL_SERVICE)' => 'install',
-   '$(MOZILLA_COMPONENT_SUBDIRS)' => 'mozilla',
-   '$(NULL)' => '',
-   '$(RPMVIEW_COMPONENT_SUBDIRS)' => 'rpmview',
-   '$(SERVICE_SUBDIRS)' => 'services',
-   'intl' => '',
-   'po' => '',
-  );
-
-while (@directories)
-  {
-    my $directory = pop @directories;
-    my $prefix = "";
-    $prefix = "$directory/" if $directory ne ".";
-
-    my $in_subdirs = 0;
-
-    my $file = $prefix . "Makefile.am";
-    open FILE, $file or die "can't open $file";
-    my %headers;
-    while (<FILE>)
-      {
-       if (s/^SUBDIRS\s*=//)
-          {
-            $in_subdirs = 1;
-          }
-        if ($in_subdirs)
-          {
-            while (s/^\s*([^\s\\]+)//)
-              {
-                if (defined $exceptions{$1})
-                  {
-                    if ($exceptions{$1})
-                      {
-                        push @directories, $prefix . $exceptions{$1};
-                      }
-                  }
-                else
-                  {
-                    push @directories, $prefix . $1;
-                  }
-              }
-            if (/^\s*$/)
-              {
-                $in_subdirs = 0;
-              }
-            elsif (!/^\s*\\$/)
-              {
-                die "can't parse SUBDIRS in $directory\n";
-              }
-          }
-	while (s/([-_a-zA-Z0-9]+\.[ch])\W//)
-	  {
-	    $headers{$1} = $1;
-	  }
-      }
-    close FILE;
-
-    if ($directory eq ".")
-      {
-	$headers{"config.h"} = "config.h";
-      }
-
-    opendir DIRECTORY, $directory or die "can't open $directory";
-    foreach my $header (grep /.*\.[ch]$/, readdir DIRECTORY)
-      {
-	if (defined $headers{$header})
-	  {
-	    delete $headers{$header};
-	  }
-	else
-	  {
-	    print "$directory/$header in directory but not Makefile.am\n";
-	  }
-      }
-    closedir DIRECTORY;
-
-    foreach my $header (keys %headers)
-      {
-	print "$directory/$header in Makefile.am but not directory\n";
-      }
-  }
diff --git a/check-strings-functions b/check-strings-functions
deleted file mode 100644
index 4ab90767c..000000000
--- a/check-strings-functions
+++ /dev/null
@@ -1,25 +0,0 @@
-BONOBO_UI_VERB
-N_
-_
-execlp
-fopen
-g_error
-g_message
-g_warning
-get_zoom_offset
-gtk_object_get_data
-gtk_signal_connect.*
-gtk_signal_new
-gtk_widget_new
-gtk_window_set_wmclass
-info
-nautilus_file_get_string_attribute
-nautilus_gtk_signal_connect_free_data
-nautilus_make_warnings_and_criticals_stop_in_debugger
-nautilus_scalable_font_new
-nautilus_theme_get_theme_data
-puts
-set_up_standard_bonobo_button
-setmntent
-trilobite_debug
-xml.+
diff --git a/check-strings-patterns b/check-strings-patterns
deleted file mode 100644
index 0bfed4861..000000000
--- a/check-strings-patterns
+++ /dev/null
@@ -1,68 +0,0 @@
-^%s %s$ # common simple printf format
-. ||| -skels # CORBA-generated
-. ||| -stubs # CORBA-generated
-^\\n+$ # common simple string
-^Ali Abdin$
-^Andy Hertzfeld$
-^Arlo Rose$
-^C$ # extern "C"
-^Darin Adler$
-^Eli Goldberg$
-^Elliot Lee$
-^Eskil Heyn Olsen$
-^Ettore Perazzoli$
-^Gene Z. Ragan$
-^George Lebl$
-^Ian McKellar$
-^J Shane Culpepper$
-^John Harper$
-^John Sullivan$
-^Josh Barrow$
-^Maciej Stachowiak$
-^Mathieu Lacage$
-^Mike Engber$
-^Mike Fleming$
-OAFIID # strings with oaf IIDs
-^Pavel C�sler$
-^Ramiro Estrugo$
-^Raph Levien$
-^Rebecca Schulman$
-^Robey Pointer$
-^Robin \* Slomkowski$
-^Seth Nickell$
-^Susan Kare$
-^\/ # paths
-^[-\w/]+\.(png|xml)$ # recognizable file names
-^bookmark$ ||| nautilus-bookmark-list
-^http:
-^rgb: # color specs
-^Nautilus first time druid read file handle$
-^\w+\.eazel\.com$
-^[-\w]+\/[-\w\*]*$ # mime type
-^Tab$ ||| druid
-^\.\.?$ # self and parent in file system
-network\.proxy
-^_NETSCAPE_URL
-^Switch to \w+ Level$ ||| nautilus-window-menus
-. ||| -common\.c
-^[a-z-]*help: # help URLs
-^cdda: # cdda URLs
-. ||| gdb3html
-^0123456789ABCDEF$
-^\?+$
-^eazel-services: # eazel-services URLs
-^command: # command URLs
-^trash: # trash URLs
-. ||| \/test # test programs
-^[\d:]+$ # all numbers and colons
-. ||| \/intl\/ # things in intl directory
-. ||| \/po\/ # things in po directory
-^\.[a-zA-Z][a-zA-Z][a-zA-Z]$ # common file extensions
-^i-[-a-z]+$ # icon names
-. ||| nautilus-metadata\.h # metadata keys
-^\s+$ # white space only
-^_SAWFISH # keys for WM
-^TRUE$
-^FALSE$
-. ||| components/help/converters
-. ||| components/music/pixmaps\.h$
diff --git a/check-strings.pl b/check-strings.pl
deleted file mode 100755
index 86126c95b..000000000
--- a/check-strings.pl
+++ /dev/null
@@ -1,172 +0,0 @@
-#!/usr/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-
-#
-#  Nautilus
-#
-#  Copyright (C) 2000, 2001 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@bentspoon.com>,
-#
-
-# check-strings.pl: Search for .c and .h files where someone forgot
-# to put _() around a string.
-
-# Throughout this file you will find extra \ before quote symbols
-# that perl does not require. These are to appease emacs perl mode.
-
-use diagnostics;
-use strict;
-
-# default to all the files starting from the current directory
-if (!@ARGV)
-  {
-    @ARGV = `find . \\( -name '*.c' -o -name '*.h' \\) -print`;
-  }
-
-sub found_string;
-
-# read in file with functions for which no translation is needed
-my @no_translation_needed_functions;
-open FUNCTIONS, "check-strings-functions" or die "can't open functions file";
-while (<FUNCTIONS>)
-  {
-    chomp;
-    s/(([^\\]|\\.)*)\#.*/$1/;
-    s/\s*$//;
-    next if /^$/;
-    push @no_translation_needed_functions, $_;
-  }
-close FUNCTIONS;
-my $no_translation_needed_function_pattern = "^(" . (join "|", @no_translation_needed_functions) . ")\$";
-
-# read in file with patterns for which no translation is needed
-my @no_translation_needed_patterns;
-open STRINGS, "check-strings-patterns" or die "can't open patterns file";
-while (<STRINGS>)
-  {
-    chomp;
-    s/(([^\\]|\\.)*)\#.*/$1/;
-    s/\s*$//;
-    next if /^$/;
-    my ($string_pattern, $file_name_pattern) = /(.+?)\s*\|\|\|\s*(.+)/;
-    $string_pattern ||= $_;
-    $file_name_pattern ||= ".";
-    push @no_translation_needed_patterns, [$string_pattern, $file_name_pattern];
-  }
-close STRINGS;
-
-FILE: foreach my $file (@ARGV)
-  {
-    chomp $file;
-    open FILE, $file or die "can't open $file";
-
-    my $in_comment = 0;
-
-    my $string = "";
-
-    my $last_word;
-    my @stack = ();
-    my $paren_level = 0;
-    my $in_exception_function = 0;
-
-    LINE: while (<FILE>)
-      {
-	if ($in_comment)
-	  {
-	    s/.*?\*\/// or next LINE;
-	    $in_comment = 0;
-	  }
-
-	# general approach is to just remove things we aren't interested in
-
-	next LINE if /^\s*#\s*(\d|include)/;
-
-	while (s/(((.*?)(\/\*|[\'\"\(\)]|\w+))|.+)//)
-	  {
-            my $skipped = $3;
-            $skipped = $1 unless defined $skipped;
-            my $found = $4;
-            $found = "" unless defined $found;
-
-            my $function_name = $last_word || "";
-
-	    if ($skipped =~ /\S/ or $found =~ /^[\(\)\w]/)
-	      {
-		if ($string ne "")
-		  {
-		    found_string ($string, $file, $.) unless $in_exception_function;
-		    $string = "";
-		  }
-                undef $last_word;
-	      }
-
-	    last unless $found ne "";
-
-	    if ($found eq '"')
-	      {
-		s/^(([^\\\"]|\\.)*)\"// or (print "$file:$.:unclosed quote\n"), next FILE;
-		$string .= $1;
-	      }
-	    elsif ($found eq "'")
-	      {
-                s/^([^\\\']|\\.)*\'// or (print "$file:$.:unclosed single quote\n"), next FILE;
-              }
-	    elsif ($found eq "/*")
-	      {
-		s/^.*?\*\/// or $in_comment = 1, next LINE;
-	      }
-	    elsif ($found eq "(")
-              {
-                if ($function_name or $paren_level == 0)
-                  {
-                    push @stack, [$paren_level, $in_exception_function];
-                    $paren_level = 0;
-                    $in_exception_function = 1 if $function_name =~ /$no_translation_needed_function_pattern/o;
-                  }
-                $paren_level++;
-              }
-	    elsif ($found eq ")")
-	      {
-                (print "$file:$.:mismatched paren (type 1)\n"), next FILE if $paren_level == 0;
-                $paren_level--;
-                if ($paren_level == 0)
-                  {
-                    (print "$file:$.:mismatched paren (type 2)\n"), next FILE if @stack == 0;
-                    ($paren_level, $in_exception_function) = @{pop @stack};
-                  }
-	      }
-            else
-              {
-                $last_word = $found;
-              }
-	  }
-      }
-    close FILE;
-  }
-
-sub found_string
-  {
-    my ($string, $file, $line) = @_;
-
-    for my $exception (@no_translation_needed_patterns)
-      {
-        return if $string =~ /$exception->[0]/ and $file =~ /$exception->[1]/;
-      }
-
-    print "$file:$line:\"$string\" is not marked for translation\n";
-  }
diff --git a/indent.sh b/indent.sh
deleted file mode 100644
index 208a0b9f1..000000000
--- a/indent.sh
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/sh
-
-indent --gnu-style --blank-lines-after-procedures --braces-on-if-line --braces-on-struct-decl-line --blank-before-sizeof --cuddle-else --space-after-cast --honour-newlines --indent-level8  --break-before-boolean-operator --continue-at-parentheses --space-after-procedure-calls --procnames-start-lines --start-left-side-of-comments "$@"