Put license in POD

1 files changed, 19 insertions, 26 deletions

diff --git a/gendistrib b/gendistrib
index f113771..36fe4dd 100755
--- a/gendistrib
+++ b/gendistrib
@@ -2,22 +2,6 @@
 
 (our $VERSION) = q$Id$ =~ /(\d+\.\d+)/;
 
-#- Copyright (C) 1999-2005 Mandrakesoft
-#-
-#- 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, 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.
-
 use strict;
 use Cwd;
 use URPM;
@@ -73,7 +57,7 @@ if (defined($urpmfiles{mediacfg})) {
     $distrib->parse_mediacfg || $distrib->parse_hdlists or die "Can't read the dsitrib config\n";
 }
 
-my $destinfodir = $destdir ? 
+my $destinfodir = $destdir ?
     $destdir . '/' . $distrib->getpath(undef, "infodir") :
     $distrib->getfullpath(undef, "infodir");
 
@@ -82,7 +66,7 @@ my %default_urpmfiles = (
     provides => $destinfodir . "/provides",
     compss =>   $destinfodir . "/compss",
     version =>  $destdir ?
-        $destdir . $distrib->getpath(undef, "VERSION") : 
+        $destdir . $distrib->getpath(undef, "VERSION") :
         $distrib->getfullpath(undef, "VERSION"),
     md5sum =>   $destinfodir . "/MD5SUM",
 );
@@ -98,7 +82,7 @@ my @media_mising_dirs;
 foreach ($distrib->listmedia) {
     $distrib->getvalue($_, 'askmedia') || $distrib->getvalue($_, 'suppl') and next;
 
-    
+
     if (! -d ($distrib->getfullpath($_, 'path'))) {
         if ($skipmissingdir) {
             printf(STDERR
@@ -142,9 +126,9 @@ foreach ($distrib->listmedia) {
 # if there is result here, $skipmissingdir is not set and there is errors:
 if (@media_mising_dirs) {
     foreach my $media (@media_mising_dirs) {
-        printf(STDERR  
-            "Missing dir '%s' for media '%s'\n", 
-            $distrib->getpath($media, 'path'), 
+        printf(STDERR
+            "Missing dir '%s' for media '%s'\n",
+            $distrib->getpath($media, 'path'),
             $distrib->getvalue($media, 'name')
         ) unless $nooutput;
     }
@@ -206,7 +190,7 @@ foreach (0..$#hdlists) {
     } else {
 	push @files, glob("$r/$e->{dir}/*.rpm");
     }
-    @files or do { 
+    @files or do {
         print STDERR "unable to find rpm files in $e->{dir}\n" unless $nooutput;
         next;
     };
@@ -220,7 +204,7 @@ foreach (0..$#hdlists) {
     );
     # TODO if @headers is empty ?
     $e->{headers} = \@headers;
-    
+
     if (!$blind) {
         # checking if hdlist rebuild is need
         print STDERR "Checking if hdlist need to be rebuild for media $e->{descr}\n" unless $nooutput;
@@ -277,7 +261,7 @@ foreach (0..$#hdlists) {
     my $e = $hdlists[$_];
 
     if ($e->{headers}) { # We have rpms in this media
-    
+
     print STDERR qq(parsing headers for "$e->{descr}"\n) unless $nooutput;
     my ($start, $end) = $urpm->parse_headers(dir     => $headers_dir,
 					     headers => $e->{headers},
@@ -291,7 +275,7 @@ foreach (0..$#hdlists) {
         # No media change, nothing to write
         next;
     }
-    
+
     print STDERR qq(building hdlist for medium "$e->{descr}"\n) unless $nooutput;
     unlink $temp_hdlist;
     $urpm->build_hdlist(start  => $start,
@@ -560,4 +544,13 @@ it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2, 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.
+
 =cut