bin/devel/xhtml.validate.pl

   1 #!/usr/bin/perl
   2 #***************************************************************************
   3 #*  Copyright (C) 2003-2009 Polytechnique.org                              *
   4 #*  http://opensource.polytechnique.org/                                   *
   5 #*                                                                         *
   6 #*  This program is free software; you can redistribute it and/or modify   *
   7 #*  it under the terms of the GNU General Public License as published by   *
   8 #*  the Free Software Foundation; either version 2 of the License, or      *
   9 #*  (at your option) any later version.                                    *
  10 #*                                                                         *
  11 #*  This program is distributed in the hope that it will be useful,        *
  12 #*  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
  13 #*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
  14 #*  GNU General Public License for more details.                           *
  15 #*                                                                         *
  16 #*  You should have received a copy of the GNU General Public License      *
  17 #*  along with this program; if not, write to the Free Software            *
  18 #*  Foundation, Inc.,                                                      *
  19 #*  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20 #***************************************************************************/
  21
  22 use LWP::UserAgent;
  23 use HTTP::Request::Common 'POST';
  24
  25 print LWP::UserAgent
  26   ->new
  27   ->request(
  28             POST 'http://murphy.polytechnique.org/w3c-markup-validator/check',
  29             Content_Type => 'form-data',
  30             Content      => [
  31                              output => 'xml',
  32                              uploaded_file => [$ARGV[0]],
  33                             ]
  34            )->as_string;
  35