this will be useful in a moment

lib/Validate/ISPN.php

+<?php
+/* vim: set expandtab tabstop=4 shiftwidth=4: */
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1997-2005 Piotr Klaban, Damien Seguy, Helgi ormar     |
+// |                        orbjrnsson, Pierre-Alain Joye               |
+// +----------------------------------------------------------------------+
+// | This source file is subject to the New BSD license, That is bundled  |
+// | with this package in the file LICENSE, and is available through      |
+// | the world-wide-web at                                                |
+// | http://www.opensource.org/licenses/bsd-license.php                   |
+// | If you did not receive a copy of the new BSDlicense and are unable   |
+// | to obtain it through the world-wide-web, please send a note to       |
+// | pajoye@php.net so we can mail you a copy immediately.                |
+// +----------------------------------------------------------------------+
+// | Author: Tomas V.V.Cox  <cox@idecnet.com>                             |
+// |         Pierre-Alain Joye <pajoye@php.net>                           |
+// +----------------------------------------------------------------------+
+//
+/**
+ * Specific validation methods for International Standard Product Numbers (ISPN)
+ *
+ * @category   Validate
+ * @package    Validate_ISPN
+ * @author     Piotr Klaban <makler@man.torun.pl>
+ * @author     Damien Seguy <dams@nexen.net>
+ * @author     Helgi ormar orbjrnsson <dufuz@php.net>
+ * @copyright   1997-2005 Piotr Klaban, Damien Seguy, Helgi ormar orbjrnsson,
+ *                        Pierre-Alain Joye
+ * @license    http://www.opensource.org/licenses/bsd-license.php  new BSD
+ * @version    CVS: $Id: ISPN.php,v 1.12 2005/11/12 16:03:02 dufuz Exp $
+ * @link       http://pear.php.net/package/Validate_ISPN
+ */
+
+/**
+ * Data validation class for International Standard Product Numbers (ISPN)
+ *
+ * This class provides methods to validate:
+ *  - ISBN (International Standard Book Number)
+ *  - ISSN (International Standard Serial Number)
+ *  - ISMN (International Standard Music Number)
+ *  - ISRC (International Standard Recording Code)
+ *  - EAN/UCC-8 number
+ *  - EAN/UCC-13 number
+ *  - EAN/UCC-14 number
+ *  - UCC-12 (U.P.C.) ID number
+ *  - SSCC (Serial Shipping Container Code)
+ *
+ * @category   Validate
+ * @package    Validate_ISPN
+ * @author     Piotr Klaban <makler@man.torun.pl>
+ * @author     Damien Seguy <dams@nexen.net>
+ * @author     Helgi ormar orbjrnsson <dufuz@php.net>
+ * @copyright   1997-2005 Piotr Klaban, Damien Seguy, Helgi ormar orbjrnsson,
+ *                        Pierre-Alain Joye
+ * @license    http://www.opensource.org/licenses/bsd-license.php  new BSD
+ * @version    Release: @package_version@
+ * @link       http://pear.php.net/package/Validate_ISPN
+ */
+class Validate_ISPN
+{
+    function isbn($isbn)
+    {
+        if (preg_match("/[^0-9 IXSBN-]/", $isbn)) {
+            return false;
+        }
+
+        $isbn = strtoupper($isbn);
+        $isbn = str_replace(array('ISBN', '-', ' ', "\t", "\n"), '', $isbn);
+
+        if (strlen($isbn) == 13) {
+            return Validate_ISPN::isbn13($isbn);
+        } elseif (strlen($isbn) == 10) {
+            return Validate_ISPN::isbn10($isbn);
+        } else {
+            return false;
+        }
+    }
+
+    /**
+     * Validate a ISBN 13 number
+     * The ISBN is a unique machine-readable identification number,
+     * which marks any book unmistakably.
+     *
+     * This function checks given number according
+     *
+     * Manual can be found at http://www.isbn-international.org
+     *
+     * @param  string  $isbn number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @author Helgi ormar <dufuz@php.net>
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function isbn13($isbn)
+    {
+        if (preg_match("/[^0-9 ISBN-]/", $isbn)) {
+            return false;
+        }
+
+        $isbn = strtoupper($isbn);
+        $isbn = str_replace(array('ISBN', '-', ' ', "\t", "\n"), '', $isbn);
+        if (!preg_match('/^[0-9]{13}$/', $isbn)) {
+            return false;
+        }
+
+        return Validate_ISPN::ean13($isbn);
+    }
+
+    /**
+     * Validate a ISBN 10 number
+     * The ISBN is a unique machine-readable identification number,
+     * which marks any book unmistakably.
+     *
+     * This function checks given number according
+     *
+     * Manual can be found at http://www.isbn-international.org
+     *
+     * @param  string  $isbn number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @author Damien Seguy <dams@nexen.net>
+     * @author Helgi ormar <dufuz@php.net>
+     */
+    function isbn10($isbn)
+    {
+        static  $weights_isbn = array(10,9,8,7,6,5,4,3,2);
+
+        if (preg_match("/[^0-9 IXSBN-]/", $isbn)) {
+            return false;
+        }
+
+        $isbn = strtoupper($isbn);
+        $isbn = str_replace(array('ISBN', '-', ' ', "\t", "\n"), '', $isbn);
+        if (strlen($isbn) != 10) {
+            return false;
+        }
+
+        if (!preg_match('/^[0-9]{9}[0-9X]$/', $isbn)) {
+            return false;
+        }
+
+        // Requires base class Validate
+        require_once 'Validate.php';
+        return Validate::_checkControlNumber($isbn, $weights_isbn, 11, 11);
+    }
+
+
+    /**
+     * Validate an ISSN (International Standard Serial Number)
+     *
+     * This function checks given ISSN number
+     * ISSN identifies periodical publications:
+     * http://www.issn.org
+     *
+     * @param  string  $issn number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function issn($issn)
+    {
+        static $weights_issn = array(8,7,6,5,4,3,2);
+
+        $issn = strtoupper($issn);
+        $issn = str_replace(array('ISSN', '-', '/', ' ', "\t", "\n"), '', $issn);
+        $issn_num = str_replace('X', '0', $issn);
+
+        // check if this is an 8-digit number
+        if (!is_numeric($issn_num) || strlen($issn) != 8) {
+            return false;
+        }
+
+        // Requires base class Validate
+        require_once 'Validate.php';
+        return Validate::_checkControlNumber($issn, $weights_issn, 11, 11);
+    }
+
+    /**
+     * Validate a ISMN (International Standard Music Number)
+     *
+     * This function checks given ISMN number (ISO Standard 10957)
+     * ISMN identifies all printed music publications from all over the world
+     * whether available for sale, hire or gratis--whether a part, a score,
+     * or an element in a multi-media kit.
+     *
+     * Manual can be found at:
+     * http://www.ismn-international.org/
+     *
+     * @param  string  $ismn ISMN number
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function ismn($ismn)
+    {
+        static $weights_ismn = array(3,1,3,1,3,1,3,1,3);
+
+        $ismn = strtoupper($ismn);
+        $ismn = str_replace(array('ISMN', '-', '/', ' ', "\t", "\n"), '', $ismn);
+        // First char has to be M (after ISMN has been stripped if present)
+        if ($ismn{0} != 'M') {
+            return false;
+        }
+
+        // change M to 3
+        $ismn{0} = 3;
+
+        // check if this is a 10-digit number
+        if (!is_numeric($ismn) || strlen($ismn) != 10) {
+            return false;
+        }
+
+        // Requires base class Validate
+        require_once 'Validate.php';
+        return Validate::_checkControlNumber($ismn, $weights_ismn, 10, 10);
+    }
+
+    /**
+     * Validate a ISRC (International Standard Recording Code)
+     *
+     * This function validates an International Standard Recording Code
+     * which is the international identification system for sound recordings
+     * and music videorecordings.
+     *
+     * @param  string  $isrc ISRC number
+     * @return bool    true if number is valid, otherwise false
+     * @see    http://www.ifpi.org/isrc/isrc_handbook.html
+     * @access public
+     * @author David Grant <david@grant.org.uk>
+     */
+    function isrc($isrc)
+    {
+        $isrc = str_replace(array('ISRC', '-', ' '), '', strtoupper($isrc));
+        if (!preg_match("/[A-Z]{2}[A-Z0-9]{3}[0-9]{7}/", $isrc)) {
+            return false;
+        }
+
+        return true;
+    }
+
+    /**
+     * Validate a EAN/UCC-8 number
+     *
+     * This function checks given EAN8 number
+     * used to identify trade items and special applications.
+     * http://www.ean-ucc.org/
+     * http://www.uc-council.org/checkdig.htm
+     *
+     * @param  string  $ean number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate_ISPN::process()
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function ean8($ean)
+    {
+        static $weights_ean8 = array(3,1,3,1,3,1,3);
+        return Validate_ISPN::process($ean, 8, $weights_ean8, 10, 10);
+    }
+
+    /**
+     * Validate a EAN/UCC-13 number
+     *
+     * This function checks given EAN/UCC-13 number used to identify
+     * trade items, locations, and special applications (e.g., coupons)
+     * http://www.ean-ucc.org/
+     * http://www.uc-council.org/checkdig.htm
+     *
+     * @param  string  $ean number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate_ISPN::process()
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function ean13($ean)
+    {
+        static $weights_ean13 = array(1,3,1,3,1,3,1,3,1,3,1,3);
+        return Validate_ISPN::process($ean, 13, $weights_ean13, 10, 10);
+    }
+
+    /**
+     * Validate a EAN/UCC-14 number
+     *
+     * This function checks given EAN/UCC-14 number
+     * used to identify trade items.
+     * http://www.ean-ucc.org/
+     * http://www.uc-council.org/checkdig.htm
+     *
+     * @param  string  $ean number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate_ISPN::process()
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function ean14($ean)
+    {
+        static $weights_ean14 = array(3,1,3,1,3,1,3,1,3,1,3,1,3);
+        return Validate_ISPN::process($ean, 14, $weights_ean14, 10, 10);
+    }
+
+    /**
+     * Validate a UCC-12 (U.P.C.) ID number
+     *
+     * This function checks given UCC-12 number used to identify
+     * trade items, locations, and special applications (e.g., * coupons)
+     * http://www.ean-ucc.org/
+     * http://www.uc-council.org/checkdig.htm
+     *
+     * @param  string  $ucc number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate_ISPN::process()
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function ucc12($ucc)
+    {
+        static $weights_ucc12 = array(3,1,3,1,3,1,3,1,3,1,3);
+        return Validate_ISPN::process($ucc, 12, $weights_ucc12, 10, 10);
+    }
+
+    /**
+     * Validate a SSCC (Serial Shipping Container Code)
+     *
+     * This function checks given SSCC number
+     * used to identify logistic units.
+     * http://www.ean-ucc.org/
+     * http://www.uc-council.org/checkdig.htm
+     *
+     * @param  string  $sscc number (only numeric chars will be considered)
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate_ISPN::process()
+     * @author Piotr Klaban <makler@man.torun.pl>
+     */
+    function sscc($sscc)
+    {
+        static $weights_sscc = array(3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3);
+        return Validate_ISPN::process($sscc, 18, $weights_sscc, 10, 10);
+    }
+
+    /**
+     * Does all the work for EAN8, EAN13, EAN14, UCC12 and SSCC
+     * and can be used for as base for similar kind of calculations
+     *
+     * @param int $data number (only numeric chars will be considered)
+     * @param int $lenght required length of number string
+     * @param int $modulo (optionsl) number
+     * @param int $subtract (optional) numbier
+     * @param array $weights holds the weight that will be used in calculations for the validation
+     * @return bool    true if number is valid, otherwise false
+     * @access public
+     * @see Validate::_checkControlNumber()
+     */
+    function process($data, $length, &$weights, $modulo = 10, $subtract = 0)
+    {
+        //$weights = array(3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3);
+        //$weights = array_slice($weights, 0, $length);
+
+        $data = str_replace(array('-', '/', ' ', "\t", "\n"), '', $data);
+
+        // check if this is a digit number and is the right length
+        if (!is_numeric($data) || strlen($data) != $length) {
+            return false;
+        }
+
+        // Requires base class Validate
+        require_once 'Validate.php';
+        return Validate::_checkControlNumber($data, $weights, $modulo, $subtract);
+    }
+}
+?>