[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";
-
-