- Removing some dated scripts.

4 files changed, 0 insertions, 116 deletions

diff --git a/scripts/code-size.sh b/scripts/code-size.sh
deleted file mode 100644
index 7b2123408..000000000
--- a/scripts/code-size.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-echo -n "lines of code in .inc files   :"
-find . -name "*.inc" | xargs cat | wc -l
-echo -n "lines of code in .php files   :"
-find . -name "*.php" | xargs cat | wc -l
-echo -n "lines of code in .theme files :"
-find . -name "*.theme" | xargs cat | wc -l
-echo -n "lines of code in .module files:"
-find . -name "*.module" | xargs cat | wc -l
diff --git a/scripts/cvs-build.sh b/scripts/cvs-build.sh
deleted file mode 100644
index 89546f56b..000000000
--- a/scripts/cvs-build.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-MODULE=drupal
-FILENAME=drupal
-
-#FILENAME=$MODULE-`date +"%Y%m%d"`
-
-cvs co $MODULE
-tar -czf $FILENAME.tgz $MODULE/*
-rm -Rf $MODULE
diff --git a/scripts/cvs-pass.pl b/scripts/cvs-pass.pl
deleted file mode 100644
index 17f366b71..000000000
--- a/scripts/cvs-pass.pl
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/usr/bin/perl
-
-srand (time());
-my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
-my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
-my $plaintext = shift;
-my $crypttext = crypt ($plaintext, $salt);
-
-print "${crypttext}\n";
diff --git a/scripts/mail-to-sql.php b/scripts/mail-to-sql.php
deleted file mode 100644
index 4471b38d7..000000000
--- a/scripts/mail-to-sql.php
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/local/bin/php -q
-<?php
-// $Id$
-
-ini_set("include_path", ".:/home/dries/personal/cvs/web/pear:/home/dries/personal/cvs/web/drupal.org/x.x.x");
-include_once "includes/common.inc";
-
-/*
-** Read the mail from stdin:
-*/
-
-$stdin = file("php://stdin");
-$mail = implode("", $stdin);
-
-/*
-** Separate the mail headers from the mail body:
-*/
-
-list($headers, $body) = split("\n\n", $mail, 2);
-
-/*
-** Strip whitespaces, newlines and returns from the beginning and the
-** end of the body.
-*/
-
-$body = trim($body);
-
-/*
-** The field-body can be split into a multiple-line representation,
-** which is called "folding".  According to RFC 822, the rule is that
-** wherever there may be linear whitespace (not simply LWSP-chars),
-** a CRLF immediately followed by at least one LWSP-char may instead
-** be inserted.  Merge multi-line headers:
-*/
-
-$data = ereg_replace("\n[ |\t]+", " ", $headers);
-
-/*
-** Parse and load the headers into an associative array:
-*/
-
-foreach (explode("\n", $data) as $line) {
-  list($name, $value) = split(": ", $line, 2);
-  $header[strtolower($name)] = $value;
-}
-
-/*
-** Try to determine whether the mail comes from a mailing list and if
-** so, which mailing list: we filter the mail based on parsing all the
-** the possible mailing list headers.
-*/
-
-if (preg_match("/([^@]+)/", $header["x-mailing-list-name"], $match)) {
-  $list = $match[1];  // Perl 6
-}
-elseif (preg_match("/owner-([^@]+)/", $header["sender"], $match)) {
-  $list = $match[1];  // Majordomo
-}
-else if (preg_match("/([^@]+)/", $header["x-beenthere"], $match)) {
-  $list = $match[1];
-}
-else if (preg_match("/mailing list ([^@]+)/", $header["delivered-to"], $match)) {
-  $list = $match[1];
-}
-else if (preg_match("/<([^@]+)/", $header["x-mailing-list"], $match)) {
-  $list = $match[1];
-}
-else if (preg_match("/([^@]+)/", $header["x-loop"], $match)) {
-  $list = $match[1];
-}
-else if (preg_match("/([^@\.]+)/", $header["x-list-id"], $match)) {
-  $list = $match[1];  // Mailman
-}
-else if (preg_match("/([^@\.]+)/", $header["x-list"], $match)) {
-  $list = $match[1];
-}
-else {
-  $list = "";
-}
-
-/*
-** Insert the mail into the database:
-*/
-
-db_query("INSERT INTO mail (data, subject, header_from, header_to, header_cc, header_reply_to, body, list, timestamp) VALUES ('". check_query($mail) ."', '". check_query($header["subject"]) ."', '". check_query($header["from"]) ."', '". check_query($header["to"]) ."', '". check_query($header["cc"]) ."', '". check_query($header["reply-to"]) ."', '". check_query($body) ."', '". check_query($list) ."', '". check_query(time()) ."')");
-
-?>
\ No newline at end of file