Index: /trunk/PS-IPP-Metadata-Config/Build.PL =================================================================== --- /trunk/PS-IPP-Metadata-Config/Build.PL (revision 5200) +++ /trunk/PS-IPP-Metadata-Config/Build.PL (revision 5201) @@ -15,3 +15,7 @@ 'Parse::RecDescent' => '1.94', }, + script_files => [qw( + scripts/mdc-dump + )], + )->create_build_script; Index: /trunk/PS-IPP-Metadata-Config/scripts/mdc-dump =================================================================== --- /trunk/PS-IPP-Metadata-Config/scripts/mdc-dump (revision 5201) +++ /trunk/PS-IPP-Metadata-Config/scripts/mdc-dump (revision 5201) @@ -0,0 +1,136 @@ +#!/usr/bin/env perl + +# Copyright (C) 2005 Joshua Hoblitt +# +# $Id: mdc-dump,v 1.1 2005-09-30 01:32:02 jhoblitt Exp $ + +use strict; +use warnings FATAL => qw( all ); + +use vars qw( $VERSION ); +$VERSION = '0.02'; + +use Data::Dumper qw( Dumper ); +use PS::IPP::Metadata::Config; + +use Getopt::Long qw( GetOptions :config auto_help auto_version ); +use Pod::Usage qw( pod2usage ); + +my ( $file, $overwrite ); +GetOptions( + 'file=s' => \$file, + 'overwrite' => \$overwrite, +) || pod2usage( 2 ); + +pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; + +# open STDIN if no file was specified +$file = '-' unless $file; + +my $md_parser = PS::IPP::Metadata::Config->new; + +if ( $overwrite ) { + $md_parser->overwrite( 1 ); +} else { + $md_parser->overwrite( 0 ); +} + +open( my $md, $file ) or die "can't open file: $!"; + +my $data = $md_parser->parse( do { local $/; <$md> } ); + +close( $md ); + +if ( $data ) { + print Dumper( $data ); +} else { + warn "Invalid Syntax, Parse failed.\n"; + exit 1; +} + +__END__ + +=pod + +=head1 NAME + +mddump.pl - validate psMetadataConfig files + +=head1 SYNOPSIS + + mddump.pl [--overwrite] --file + + or + + cat | mddump.pl [--overwrite] + + or + + mddump.pl [--help | -h | -? | --version] + +=head1 DESCRIPTION + +Parses psMetadataConfig formatted text either from a file or STDIN and prints a +Perl data structure that represents the metadata. + +=head1 OPTIONS + +=over 4 + +=item * --file | -f + +Accepts the name of a file to use as input. If this option is omitted the +STDIN will be read from. + +=item * --overwrite | -o + +A flag that turns L's overwrite behavior on. +Overwrite is always off unless this flag is specified. + +=item * --help | -h | -? + +Prints usage information. + +=item * --version + +Prints the version. + +=back + +=head1 CREDITS + +Just me, myself, and I. + +=head1 SUPPORT + +Please contact the author directly via e-mail. + +=head1 AUTHOR + +Joshua Hoblitt + +=head1 COPYRIGHT + +Copyright (C) 2004 Joshua Hoblitt. All rights reserved. + +This program 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 program 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 program; if not, write to the Free Software Foundation, Inc., 59 Temple +Place - Suite 330, Boston, MA 02111-1307, USA. + +The full text of the license can be found in the L Pod as supplied +with Perl 5.8.1 and later. + +=head1 SEE ALSO + +L + +=cut Index: unk/PS-IPP-Metadata-Config/scripts/mddump.pl =================================================================== --- /trunk/PS-IPP-Metadata-Config/scripts/mddump.pl (revision 5200) +++ (revision ) @@ -1,136 +1,0 @@ -#!/usr/bin/env perl - -# Copyright (C) 2005 Joshua Hoblitt -# -# $Id: mddump.pl,v 1.2 2005-05-04 22:14:18 jhoblitt Exp $ - -use strict; -use warnings FATAL => qw( all ); - -use vars qw( $VERSION ); -$VERSION = '0.02'; - -use Data::Dumper qw( Dumper ); -use PS::IPP::Metadata::Config; - -use Getopt::Long qw( GetOptions :config auto_help auto_version ); -use Pod::Usage qw( pod2usage ); - -my ( $file, $overwrite ); -GetOptions( - 'file=s' => \$file, - 'overwrite' => \$overwrite, -) || pod2usage( 2 ); - -pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; - -# open STDIN if no file was specified -$file = '-' unless $file; - -my $md_parser = PS::IPP::Metadata::Config->new; - -if ( $overwrite ) { - $md_parser->overwrite( 1 ); -} else { - $md_parser->overwrite( 0 ); -} - -open( my $md, $file ) or die "can't open file: $!"; - -my $data = $md_parser->parse( do { local $/; <$md> } ); - -close( $md ); - -if ( $data ) { - print Dumper( $data ); -} else { - warn "Invalid Syntax, Parse failed.\n"; - exit 1; -} - -__END__ - -=pod - -=head1 NAME - -mddump.pl - validate psMetadataConfig files - -=head1 SYNOPSIS - - mddump.pl [--overwrite] --file - - or - - cat | mddump.pl [--overwrite] - - or - - mddump.pl [--help | -h | -? | --version] - -=head1 DESCRIPTION - -Parses psMetadataConfig formatted text either from a file or STDIN and prints a -Perl data structure that represents the metadata. - -=head1 OPTIONS - -=over 4 - -=item * --file | -f - -Accepts the name of a file to use as input. If this option is omitted the -STDIN will be read from. - -=item * --overwrite | -o - -A flag that turns L's overwrite behavior on. -Overwrite is always off unless this flag is specified. - -=item * --help | -h | -? - -Prints usage information. - -=item * --version - -Prints the version. - -=back - -=head1 CREDITS - -Just me, myself, and I. - -=head1 SUPPORT - -Please contact the author directly via e-mail. - -=head1 AUTHOR - -Joshua Hoblitt - -=head1 COPYRIGHT - -Copyright (C) 2004 Joshua Hoblitt. All rights reserved. - -This program 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 program 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 program; if not, write to the Free Software Foundation, Inc., 59 Temple -Place - Suite 330, Boston, MA 02111-1307, USA. - -The full text of the license can be found in the L Pod as supplied -with Perl 5.8.1 and later. - -=head1 SEE ALSO - -L - -=cut