[vhffs-dev] [1498] removed useless make_release{,2} files

[ Thread Index | Date Index | More vhffs.org/vhffs-dev Archives ]


Revision: 1498
Author:   gradator
Date:     2009-08-02 17:43:49 +0200 (Sun, 02 Aug 2009)

Log Message:
-----------
removed useless make_release{,2} files

Removed Paths:
-------------
    trunk/make_release
    trunk/make_release2


Deleted: trunk/make_release
===================================================================
--- trunk/make_release	2009-08-02 15:20:55 UTC (rev 1497)
+++ trunk/make_release	2009-08-02 15:43:49 UTC (rev 1498)
@@ -1,79 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use IO::Handle;
-
-my $version = "4.0-RC5";
-my @files_to_delete = qw(backup.sh fixperm.sh);
-my @files_to_package = qw( TODO Makefile Changelog AUTHORS vhffs-api vhffs-backend vhffs-doc vhffs-intl vhffs-listengine vhffs-panel vhffs-robots vhffs-shells debian vhffs-tools);
-
-sub treat_dir
-{
-	my $direct = shift;
-
-	opendir( DIR , $direct );
-	my $file;
-	my @files = readdir( DIR );
-	foreach $file ( @files)
-	{
-		next if( ( $file eq "." ) || ( $file eq "..") );
-		my $complete = $direct."/".$file;
-
-		if( -f $complete )
-		{
-			if( $file =~ /.*~$/)
-			{
-				unlink( $complete );
-			}
-
-			foreach( @files_to_delete )
-			{
-				if( $file eq $_ )
-				{
-					unlink( $file );
-				}
-			}
-		}
-	
-		if( -d $complete )
-		{
-			foreach( @files_to_delete )
-			{
-				if( $file eq $_ )
-				{
-					system("rm -rf $complete");
-				}
-			}
-
-			if( $file eq "CVS" )
-			{
-					system("rm -rf $complete");
-			}
-			else
-			{
-				treat_dir( $complete );
-			}
-		}
-	}
-
-	closedir( DIR );
-}
-
-sub tar_distro
-{
-	my $output_file = "vhffs".$version.".tgz";
-	my $files;
-	foreach( @files_to_package )
-	{
-		$files .= " $_";
-	}
-	my $commande = "tar cvvfz";
-	my $total = $commande." ".$output_file." ".$files ." 1>/dev/null 2>/dev/null";
-	system( $total );
-}
-
-my $directory = ".";
-
-treat_dir( $directory );
-tar_distro( $directory );
-

Deleted: trunk/make_release2
===================================================================
--- trunk/make_release2	2009-08-02 15:20:55 UTC (rev 1497)
+++ trunk/make_release2	2009-08-02 15:43:49 UTC (rev 1498)
@@ -1,145 +0,0 @@
-#!/usr/bin/perl -w
-
-#Script to build VHFFS release
-
-use strict;
-use File::Copy;
-use IO::Handle;
-
-my $VERSION = "4.0.0";
-my @files_to_delete = qw(backup.sh fixperm.sh make_release make_release2 svn-commit);
-my @files_to_package = qw( AUTHORS Changelog COPYING INSTALL Makefile README Releases.note vhffs-api vhffs-backend vhffs-doc vhffs-forum vhffs-intl vhffs-irc vhffs-jabber vhffs-listengine vhffs-packages vhffs-panel vhffs-rfc vhffs-robots vhffs-shells vhffs-tools );
-
-my $VERBOSE = 1;
-
-sub treat_dir
-{
-	my $direct 		= shift;
-	my $work 		= shift;
-	my $include;
-	opendir( DIR , $direct );
-	my $file;
-	my @files = readdir( DIR );
-	foreach $file ( @files)
-	{
-		$include = 1;
-		next if( ( $file eq "." ) || ( $file eq "..") );
-		my $complete = $direct."/".$file;
-
-		if( -f $complete )
-		{
-			if( $file =~ /.*~$/)
-			{
-				print "does not include $complete\n" if( $VERBOSE == 1 );
-				$include = 0;
-			}
-
-			foreach( @files_to_delete )
-			{
-				if( ( $file =~ /$_/ ) )
-				{
-					print "does not include $complete\n" if( $VERBOSE == 1 );
-					$include = 0;
-				}
-			}
-
-			if( $include == 1 )
-			{
-				copy( $complete , $work."/".$file );
-			}
-		}
-	
-		if( -d $complete )
-		{
-			foreach( @files_to_delete )
-			{
-				if( $file eq $_ )
-				{
-					$include = 0;
-					print "does not include $complete\n" if( $VERBOSE == 1 );
-				}
-			}
-
-			if( $file eq "CVS" or $file eq ".svn")
-			{
-				$include = 0;
-				print "does not include $complete\n" if( $VERBOSE == 1 );
-			}
-			else
-			{
-				if( $include == 1)
-				{
-					print "Entering dir $complete\n" if( $VERBOSE == 1 );
-					mkdir( $work."/".$file );
-					treat_dir( $complete , $work."/".$file )
-				}
-			}
-		}
-	}
-
-	closedir( DIR );
-}
-
-sub tar_distro
-{
-	my $work	= 	shift;
-	my $tmp		=	shift;
-	my $output_file = $tmp."/vhffs-".$VERSION.".tar.gz";
-	my $files;
-	foreach( @files_to_package )
-	{
-		$files .= " $_";
-	}
-	my $commande = "tar cvvfz";
-	my $total = $commande." ".$output_file." vhffs-".$VERSION." 1>/dev/null 2>/dev/null";
-	system( "cd ".$work." && cd .. && " . $total );
-	system( "rm -rf $work");
-	return $output_file;
-}
-
-
-sub create_workdir
-{
-	my $tmp;
-
-	if( defined $ENV{'TMP'} )
-	{
-		$tmp = ( $ENV{'TMP'}."/"."vhffs-".$VERSION."/");
-	}
-	$tmp = ("/tmp/"."vhffs-".$VERSION."/");
-
-	system("rm -rf $tmp");
-	mkdir( $tmp ) if( ! -d $tmp );
-	return( $tmp );
-}
-
-
-##################
-# Main program
-#################
-
-my $directory = ".";
-my $ofile;
-
-my $tmpdir;
-
-if( defined $ENV{'TMP'} )
-{
-	$tmpdir = $ENV{'TMP'};
-}
-else
-{
-	$tmpdir = "/tmp/";	
-}
-
-my $sourcesdir = ".";
-
-my $workdir = create_workdir();
-
-unlink( $sourcesdir ."/debian/files") if( -f $sourcesdir."/debian/files");
-treat_dir( $sourcesdir , $workdir );
-$ofile = tar_distro( $workdir , $tmpdir );
-
-print "VHFFS distribution available in: " . $ofile . "\n";
-
-


Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/