[Mud-builder-commits] r264 - trunk/lib/MUD www/pod www/pod/MUD www/pod/MUD/Fetch www/pod/XML

jaffa at garage.maemo.org jaffa at garage.maemo.org
Thu Jan 22 00:48:33 EET 2009


Author: jaffa
Date: 2009-01-22 00:48:32 +0200 (Thu, 22 Jan 2009)
New Revision: 264

Added:
   trunk/lib/MUD/ExtrasEntry.pm
   www/pod/MUD/ExtrasEntry.html
Modified:
   trunk/lib/MUD/Build.pm
   trunk/lib/MUD/Package.pm
   www/pod/MUD/Build.html
   www/pod/MUD/Config.html
   www/pod/MUD/Fetch/Base.html
   www/pod/MUD/Fetch/Command.html
   www/pod/MUD/Fetch/Debian.html
   www/pod/MUD/Fetch/Tarball.html
   www/pod/MUD/Package.html
   www/pod/XML/Simple.html
   www/pod/index.html
Log:
Add build and model support for copying additional files into source tree, and adding install lines to debian/rules

Modified: trunk/lib/MUD/Build.pm
===================================================================
--- trunk/lib/MUD/Build.pm	2009-01-20 14:58:09 UTC (rev 263)
+++ trunk/lib/MUD/Build.pm	2009-01-21 22:48:32 UTC (rev 264)
@@ -30,6 +30,7 @@
 use File::Basename;
 use File::Path;
 use File::Spec;
+
 use MUD::Config;
 use MUD::Package;
 
@@ -229,6 +230,30 @@
     my $append = $self->{data}->{data}->{build}->{'configure-append'} || '';
     print "+++ Appending [$append] to configure.\n";
     $rules =~ s/([\b\s]\.\/configure[\b\s].*?)([\r\n]+?\s*[\r\n]+?)/$1 $append$2/sg if $append;
+    
+    # -- Copy in any extra files and install...
+    #
+    if (my @extras = $self->{data}->extras) {
+      mkdir $MUD::ExtrasEntry::SOURCE_DIR;
+      my @install = ();
+      my ($dir) = $rules =~ /^install:.*?# Add here commands to install the package into (.*?)\.$/ms; 
+      
+      foreach my $file (@extras) {
+        File::Copy::copy($file->source, $MUD::ExtrasEntry::SOURCE_DIR);
+        my $target = $file->target;
+        next unless $target;
+        
+        $target =~ s!^/!!;
+        
+        push @install, 'install -D -m '.$file->mode.
+                                 ' -o '.$file->owner.
+                                 ' -g '.$file->group.
+                                 ' "'.$MUD::ExtrasEntry::SOURCE_DIR.'/'.basename($file->source).'"'.
+                                 ' "'.$dir.'/'.$target.'"';
+      }
+      
+      $rules =~ s{^\tdh_installdirs\n$}{ "$&\t".join("\n\t", @install)."\n" }gme;
+    }
 
     # -- Write back debian/rules...
     #

Added: trunk/lib/MUD/ExtrasEntry.pm
===================================================================
--- trunk/lib/MUD/ExtrasEntry.pm	                        (rev 0)
+++ trunk/lib/MUD/ExtrasEntry.pm	2009-01-21 22:48:32 UTC (rev 264)
@@ -0,0 +1,195 @@
+
+=head1 NAME
+
+MUD::ExtrasEntry - definition of file to be copied to mud-extras, and
+                   possibly auto-installed.
+
+=head1 DESCRIPTION
+
+This class encapsulates the information on files which should be copied
+to C<mud-extras> in the source tree of a package. These files are then
+available to C<debian/rules>, and other build scripts, to do with as
+they please.
+
+One typical use is to add new files which should be installed alongside
+the package, for example icons; launch scripts; desktop files and services.
+
+=head1 METHODS
+
+=over 12
+
+=cut 
+
+package MUD::ExtrasEntry;
+
+use strict;
+use Carp;
+use vars qw(@ISA $VERSION $SOURCE_DIR);
+
+ at ISA        = qw();
+$VERSION    = '0.10';
+$SOURCE_DIR = 'mud-extras';
+
+
+=item new( FILE, [ METADATA ] )
+
+Create a new instance of a file which should be copied to the
+source tree. C<FILE> should be an absolute path, and 
+C<METADATA> is an optional hash of data to define
+destination mode, location etc.
+
+C<METADATA> can contain:
+
+=over 10
+
+=item path
+
+Destination path in the target package. Required if the
+file is to be auto-added to C<debian/rules:install>.
+
+=item mode
+
+Target file mode. See L</mode> for more information.
+Defaults to C<auto>.
+
+=item owner
+
+User ID for the target file. Defaults to C<root>.
+
+=item group
+
+Group for the target file. Defaults to C<root>.
+
+=back
+
+=cut
+
+sub new {
+  my $that = shift;
+  $that = ref($that) || $that;
+
+  my $self = bless {}, $that;
+  ($self->{file}, $self->{data}) = @_;
+  $self->_init();
+
+  return $self;
+}
+
+
+=item _init
+
+Check that the given file exists and load any additional
+meta-data. Private method.
+
+=cut
+
+sub _init {
+  my $self = shift;
+
+  croak "Unable to find file [$self->{file}]" unless -f $self->{file};
+  $self->{data}->{mode}  ||= 'auto';
+  $self->{data}->{owner} ||= 'root';
+  $self->{data}->{group} ||= 'root';
+  return $self;
+}
+
+
+=item source
+
+Return the absolute file which is the source of the file
+to be copied.
+
+=cut
+
+sub source {
+  my $self = shift;
+  return $self->{file};
+}
+
+
+=item target( [FILE] )
+
+Set or return the path which the file should be installed to on
+the target system.
+
+If not explicitly called, this will be auto-determined from
+the information given at construction.
+
+If I<undef> if returned, this file should not be auto-installed, just
+copied to C<mud-extras>.
+
+=cut
+
+sub target {
+  my $self = shift;
+  my ($file) = @_;
+
+  $self->{target}   = $file if defined($file);
+  $self->{target} ||= $self->{data}->{path};
+  return $self->{target};
+}
+
+
+=item mode
+
+Return the mode for the target file. This should be in the format
+C<0644>, suitable for passing to L<install(1)>.
+
+The default is I<auto>, which means C<0644> unless the file starts
+with the bytes C<#!> - in which case C<0755> is used.
+
+=cut
+
+sub mode {
+  my $self = shift;
+
+  if ($self->{data}->{mode} eq 'auto') {
+    my $mode = '0644';
+    open my $fh, "<$self->{file}" or die "Unable to read [$self->{file}]: $!\n";
+    my $bytes;
+    read $fh, $bytes, 2;
+    close $fh;
+
+    $mode = '0755' if $bytes eq '#!';
+    $self->{data}->{mode} = $mode;
+  }
+
+  return $self->{data}->{mode};
+}
+
+
+=item owner
+
+Return the user ID for the target file.
+
+=cut
+
+sub owner {
+  my $self = shift;
+  
+  return $self->{data}->{owner};
+}
+
+
+=item group
+
+Return the group ID for the target file.
+
+=cut
+
+sub group {
+  my $self = shift;
+  
+  return $self->{data}->{group};
+}
+
+
+=head1 COPYRIGHT
+
+(c) Andrew Flegg 2007 - 2009. Released under the Artistic Licence:
+L<http://www.opensource.org/licenses/artistic-license-2.0.php>
+
+=head1 SEE ALSO
+
+L<MUD::Package/extraFiles>
+L<http://mud-builder.garage.maemo.org/>

Modified: trunk/lib/MUD/Package.pm
===================================================================
--- trunk/lib/MUD/Package.pm	2009-01-20 14:58:09 UTC (rev 263)
+++ trunk/lib/MUD/Package.pm	2009-01-21 22:48:32 UTC (rev 264)
@@ -18,7 +18,7 @@
     my $controlFields = $pkg->controlFields;
     my $section       = $pkg->section;
     my $version       = $pkg->version;
-    my $extraFiles    = $pkg->extraFiles;
+    my @extras        = $pkg->extras;
     
     MUD::Package::setField($controlData, 'Section', 'user/network');
     my @values = MUD::Package::parseField($controlData, 'Section');
@@ -49,6 +49,7 @@
 use File::Temp qw(tempfile);
 use File::Copy;
 use Carp;
+use MUD::ExtrasEntry;
 
 @ISA     = qw();
 $VERSION = '0.20';
@@ -328,22 +329,22 @@
 }
 
 
-=item extraFiles
+=item extras
 
-Return a hash reference of extra files to be installed. These
-take the form of C<TARGET =E<gt> SOURCE>, which allows multiple
-copies of the same source file to be included in the package in
-multiple locations.
+Return an array of L<MUD::ExtrasEntry>s which should be 
+copied into C<mud-extras> in the source tree, and made available
+to the build scripts.
 
-If no extra files are to be installed, an empty hash reference
-is returned.
+If no extra files are to be installed, an empty list is returned.
 
 =cut
 
-sub extraFiles {
+sub extras {
   my $self = shift;
   
-  return {}; # TODO
+  return (); #TODO
+  #new MUD::ExtrasEntry('/etc/debian_version', { path => '/etc/debian_version.host'}),
+  #new MUD::ExtrasEntry('/etc/profile', { path => '/etc/profile.host'})
 }
 
 

Modified: www/pod/MUD/Build.html
===================================================================
--- www/pod/MUD/Build.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Build.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options

Modified: www/pod/MUD/Config.html
===================================================================
--- www/pod/MUD/Config.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Config.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options

Added: www/pod/MUD/ExtrasEntry.html
===================================================================
--- www/pod/MUD/ExtrasEntry.html	                        (rev 0)
+++ www/pod/MUD/ExtrasEntry.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -0,0 +1,205 @@
+<html><head><title>MUD::ExtrasEntry</title>
+<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >
+<link rel="stylesheet" title="black with blue on white" type="text/css" href="../_black_with_blue_on_white.css" media="all" >
+<link rel="alternate stylesheet" title="black with magenta on white" type="text/css" href="../_black_with_magenta_on_white.css" media="all" >
+<link rel="alternate stylesheet" title="black with cyan on white" type="text/css" href="../_black_with_cyan_on_white.css" media="all" >
+<link rel="alternate stylesheet" title="white with purple on black" type="text/css" href="../_white_with_purple_on_black.css" media="all" >
+<link rel="alternate stylesheet" title="white with navy blue on black" type="text/css" href="../_white_with_navy_blue_on_black.css" media="all" >
+<link rel="alternate stylesheet" title="grey with green on black" type="text/css" href="../_grey_with_green_on_black.css" media="all" >
+<link rel="alternate stylesheet" title="white with green on grey" type="text/css" href="../_white_with_green_on_grey.css" media="all" >
+<link rel="alternate stylesheet" title="black with green on grey" type="text/css" href="../_black_with_green_on_grey.css" media="all" >
+<link rel="alternate stylesheet" title="grey with green on white" type="text/css" href="../_grey_with_green_on_white.css" media="all" >
+<link rel="alternate stylesheet" title="indexless black with blue on white" type="text/css" href="../_indexless_black_with_blue_on_white.css" media="all" >
+<link rel="alternate stylesheet" title="indexless white with purple on black" type="text/css" href="../_indexless_white_with_purple_on_black.css" media="all" >
+<link rel="alternate stylesheet" title="indexless white with green on grey" type="text/css" href="../_indexless_white_with_green_on_grey.css" media="all" >
+<link rel="alternate stylesheet" title="indexless grey with green on white" type="text/css" href="../_indexless_grey_with_green_on_white.css" media="all" >
+
+<script type="text/javascript" src="../_podly.js"></script>
+
+</head>
+<body class='pod'>
+<!--
+  generated by Pod::Simple::HTML v3.03,
+  using Pod::Simple::PullParser v2.02,
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
+
+ If you want to change this HTML document, you probably shouldn't do that
+   by changing it directly.  Instead, see about changing the calling options
+   to Pod::Simple::HTML, and/or subclassing Pod::Simple::HTML,
+   then reconverting this document from the Pod source.
+   When in doubt, email the author of Pod::Simple::HTML for advice.
+   See 'perldoc Pod::Simple::HTML' for more info.
+
+-->
+
+<!-- start doc -->
+<p class="backlinktop"><b><a name="___top" href="../index.html" accesskey="1" title="All Documents">&lt;&lt;</a></b></p>
+
+<div class='indexgroup'>
+<ul   class='indexList indexList1'>
+  <li class='indexItem indexItem1'><a href='#NAME'>NAME</a>
+  <li class='indexItem indexItem1'><a href='#DESCRIPTION'>DESCRIPTION</a>
+  <li class='indexItem indexItem1'><a href='#METHODS'>METHODS</a>
+  <li class='indexItem indexItem1'><a href='#COPYRIGHT'>COPYRIGHT</a>
+  <li class='indexItem indexItem1'><a href='#SEE_ALSO'>SEE ALSO</a>
+  <li class='indexItem indexItem1'><a href='#POD_ERRORS'>POD ERRORS</a>
+</ul>
+</div>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="NAME"
+>NAME</a></h1>
+
+<p>MUD::ExtrasEntry - definition of file to be copied to mud-extras,
+and possibly auto-installed.</p>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="DESCRIPTION"
+>DESCRIPTION</a></h1>
+
+<p>This class encapsulates the information on files which should be copied to <code>mud-extras</code> in the source tree of a package.
+These files are then available to <code>debian/rules</code>,
+and other build scripts,
+to do with as they please.</p>
+
+<p>One typical use is to add new files which should be installed alongside the package,
+for example icons; launch scripts; desktop files and services.</p>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="METHODS"
+>METHODS</a></h1>
+
+<dl>
+<dt><a name="new(_FILE,_[_METADATA_]_)"
+>new( FILE,
+[ METADATA ] )</a></dt>
+
+<dd>
+<p>Create a new instance of a file which should be copied to the source tree.
+<code>FILE</code> should be an absolute path,
+and <code>METADATA</code> is an optional hash of data to define destination mode,
+location etc.</p>
+
+<p><code>METADATA</code> can contain:</p>
+
+<dl>
+<dt><a name="path"
+>path</a></dt>
+
+<dd>
+<p>Destination path in the target package.
+Required if the file is to be auto-added to <code>debian/rules:install</code>.</p>
+
+<dt><a name="mode"
+>mode</a></dt>
+
+<dd>
+<p>Target file mode.
+See <a href="#mode" class="podlinkpod"
+>&#34;mode&#34;</a> for more information.
+Defaults to <code>auto</code>.</p>
+
+<dt><a name="owner"
+>owner</a></dt>
+
+<dd>
+<p>User ID for the target file.
+Defaults to <code>root</code>.</p>
+
+<dt><a name="group"
+>group</a></dt>
+
+<dd>
+<p>Group for the target file.
+Defaults to <code>root</code>.</p>
+</dd>
+</dl>
+
+<dt><a name="_init"
+>_init</a></dt>
+
+<dd>
+<p>Check that the given file exists and load any additional meta-data.
+Private method.</p>
+
+<dt><a name="source"
+>source</a></dt>
+
+<dd>
+<p>Return the absolute file which is the source of the file to be copied.</p>
+
+<dt><a name="target(_[FILE]_)"
+>target( [FILE] )</a></dt>
+
+<dd>
+<p>Set or return the path which the file should be installed to on the target system.</p>
+
+<p>If not explicitly called,
+this will be auto-determined from the information given at construction.</p>
+
+<p>If <i>undef</i> if returned,
+this file should not be auto-installed,
+just copied to <code>mud-extras</code>.</p>
+
+<dt><a name="mode"
+>mode</a></dt>
+
+<dd>
+<p>Return the mode for the target file.
+This should be in the format <code>0644</code>,
+suitable for passing to <a>install(1)</a>.</p>
+
+<p>The default is <i>auto</i>,
+which means <code>0644</code> unless the file starts with the bytes <code>#!</code> - in which case <code>0755</code> is used.</p>
+
+<dt><a name="owner"
+>owner</a></dt>
+
+<dd>
+<p>Return the user ID for the target file.</p>
+
+<dt><a name="group"
+>group</a></dt>
+
+<dd>
+<p>Return the group ID for the target file.</p>
+</dd>
+</dl>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="COPYRIGHT"
+>COPYRIGHT</a></h1>
+
+<p>(c) Andrew Flegg 2007 - 2009.
+Released under the Artistic Licence: <a href="http://www.opensource.org/licenses/artistic-license-2.0.php" class="podlinkurl"
+>http://www.opensource.org/licenses/artistic-license-2.0.php</a></p>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="SEE_ALSO"
+>SEE ALSO</a></h1>
+
+<p><a href="../MUD/Package.html#extraFiles" class="podlinkpod"
+>&#34;extraFiles&#34; in MUD::Package</a> <a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
+>http://mud-builder.garage.maemo.org/</a></p>
+
+<h1><a class='u' href='#___top' title='click to go to top of document'
+name="POD_ERRORS"
+>POD ERRORS</a></h1>
+
+<p>Hey!
+<b>The above document had some coding errors,
+which are explained below:</b></p>
+
+<dl>
+<dt><a name="Around_line_187:"
+>Around line 187:</a></dt>
+
+<dd>
+<p>You forgot a &#39;=back&#39; before &#39;=head1&#39;</p>
+</dd>
+</dl>
+<p class="backlinkbottom"><b><a name="___bottom" href="../index.html" title="All Documents">&lt;&lt;</a></b></p>
+
+<!-- end doc -->
+
+</body></html>

Modified: www/pod/MUD/Fetch/Base.html
===================================================================
--- www/pod/MUD/Fetch/Base.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Fetch/Base.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options

Modified: www/pod/MUD/Fetch/Command.html
===================================================================
--- www/pod/MUD/Fetch/Command.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Fetch/Command.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options
@@ -61,9 +61,9 @@
 name="SEE_ALSO"
 >SEE ALSO</a></h1>
 
-<p><a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
->http://mud-builder.garage.maemo.org/</a> <a href="../../MUD/Fetch/Base.html" class="podlinkpod"
->MUD::Fetch::Base</a></p>
+<p><a href="../../MUD/Fetch/Base.html" class="podlinkpod"
+>MUD::Fetch::Base</a> <a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
+>http://mud-builder.garage.maemo.org/</a></p>
 <p class="backlinkbottom"><b><a name="___bottom" href="../../index.html" title="All Documents">&lt;&lt;</a></b></p>
 
 <!-- end doc -->

Modified: www/pod/MUD/Fetch/Debian.html
===================================================================
--- www/pod/MUD/Fetch/Debian.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Fetch/Debian.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options
@@ -61,7 +61,8 @@
 name="SEE_ALSO"
 >SEE ALSO</a></h1>
 
-<p><a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
+<p><a href="../../MUD/Fetch/Base.html" class="podlinkpod"
+>MUD::Fetch::Base</a> <a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
 >http://mud-builder.garage.maemo.org/</a></p>
 <p class="backlinkbottom"><b><a name="___bottom" href="../../index.html" title="All Documents">&lt;&lt;</a></b></p>
 

Modified: www/pod/MUD/Fetch/Tarball.html
===================================================================
--- www/pod/MUD/Fetch/Tarball.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Fetch/Tarball.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options
@@ -61,7 +61,8 @@
 name="SEE_ALSO"
 >SEE ALSO</a></h1>
 
-<p><a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
+<p><a href="../../MUD/Fetch/Base.html" class="podlinkpod"
+>MUD::Fetch::Base</a> <a href="http://mud-builder.garage.maemo.org/" class="podlinkurl"
 >http://mud-builder.garage.maemo.org/</a></p>
 <p class="backlinkbottom"><b><a name="___bottom" href="../../index.html" title="All Documents">&lt;&lt;</a></b></p>
 

Modified: www/pod/MUD/Package.html
===================================================================
--- www/pod/MUD/Package.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/MUD/Package.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:02 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options
@@ -69,7 +69,7 @@
     my $controlFields = $pkg-&#62;controlFields;
     my $section       = $pkg-&#62;section;
     my $version       = $pkg-&#62;version;
-    my $extraFiles    = $pkg-&#62;extraFiles;
+    my @extras        = $pkg-&#62;extras;
     
     MUD::Package::setField($controlData, &#39;Section&#39;, &#39;user/network&#39;);
     my @values = MUD::Package::parseField($controlData, &#39;Section&#39;);</pre>
@@ -172,13 +172,14 @@
 <p>Set or return the version number which should be used for this package. Setting the version number can be done by sub-classes of <a href="../MUD/Fetch.html" class="podlinkpod"
 >MUD::Fetch</a>, if they have managed to work out the version number from (say) an upstream URL. However, this can <i>always</i> be overridden by specifying the version in the <code>deb</code> section of the package XML.</p>
 
-<dt><a name="extraFiles"
->extraFiles</a></dt>
+<dt><a name="extras"
+>extras</a></dt>
 
 <dd>
-<p>Return a hash reference of extra files to be installed. These take the form of <code>TARGET =&#62; SOURCE</code>, which allows multiple copies of the same source file to be included in the package in multiple locations.</p>
+<p>Return an array of <a href="../MUD/ExtrasEntry.html" class="podlinkpod"
+>MUD::ExtrasEntry</a>s which should be copied into <code>mud-extras</code> in the source tree, and made available to the build scripts.</p>
 
-<p>If no extra files are to be installed, an empty hash reference is returned.</p>
+<p>If no extra files are to be installed, an empty list is returned.</p>
 
 <dt><a name="parseField(_FIELD,_DATA_)"
 >parseField( FIELD, DATA )</a></dt>

Modified: www/pod/XML/Simple.html
===================================================================
--- www/pod/XML/Simple.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/XML/Simple.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -21,7 +21,7 @@
 <!--
   generated by Pod::Simple::HTML v3.03,
   using Pod::Simple::PullParser v2.02,
-  under Perl v5.010000 at Mon Jan 19 16:42:03 2009 GMT.
+  under Perl v5.010000 at Wed Jan 21 22:47:35 2009 GMT.
 
  If you want to change this HTML document, you probably shouldn't do that
    by changing it directly.  Instead, see about changing the calling options

Modified: www/pod/index.html
===================================================================
--- www/pod/index.html	2009-01-20 14:58:09 UTC (rev 263)
+++ www/pod/index.html	2009-01-21 22:48:32 UTC (rev 264)
@@ -28,6 +28,7 @@
 <dd>
   <a href="./MUD/Build.html">MUD::Build</a>&nbsp;&nbsp;
   <a href="./MUD/Config.html">MUD::Config</a>&nbsp;&nbsp;
+  <a href="./MUD/ExtrasEntry.html">MUD::ExtrasEntry</a>&nbsp;&nbsp;
   <a href="./MUD/Fetch/Base.html">MUD::Fetch::Base</a>&nbsp;&nbsp;
   <a href="./MUD/Fetch/Command.html">MUD::Fetch::Command</a>&nbsp;&nbsp;
   <a href="./MUD/Fetch/Debian.html">MUD::Fetch::Debian</a>&nbsp;&nbsp;
@@ -44,6 +45,6 @@
 
 
 <p class='contentsfooty'>Generated by Pod::Simple::HTMLBatch v3.02 under Perl v5.010000
-<br >At Mon Jan 19 16:42:02 2009 GMT, which is Mon Jan 19 16:42:02 2009 local time.</p>
+<br >At Wed Jan 21 22:47:35 2009 GMT, which is Wed Jan 21 22:47:35 2009 local time.</p>
 
 </body></html>



More information about the Mud-builder-commits mailing list