[Tora-cvs] SF.net SVN: tora: [1981] trunk/tora/setlicense.pl

[<nn...@us...>]

Revision: 1981
Author:   nneul
Date:     2006-03-14 15:24:54 -0800 (Tue, 14 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/tora/?rev=1981&view=rev

Log Message:
-----------
remove an unused script

Removed Paths:
-------------
    trunk/tora/setlicense.pl
Deleted: trunk/tora/setlicense.pl
===================================================================
--- trunk/tora/setlicense.pl	2006-03-14 23:23:56 UTC (rev 1980)
+++ trunk/tora/setlicense.pl	2006-03-14 23:24:54 UTC (rev 1981)
@@ -1,119 +0,0 @@
-#!/usr/bin/perl
-
-#####
-#
-# TOra - An Oracle Toolkit for DBA's and developers
-# Copyright (C) 2003-2005 Quest Software, Inc
-# Portions Copyright (C) 2005 Other Contributors
-# 
-# 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;  only version 2 of
-# the License is valid for this program.
-# 
-# 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.
-#
-#      As a special exception, you have permission to link this program
-#      with the Oracle Client libraries and distribute executables, as long
-#      as you follow the requirements of the GNU GPL in regard to all of the
-#      software in the executable aside from Oracle client libraries.
-#
-#      Specifically you are not permitted to link this program with the
-#      Qt/UNIX, Qt/Windows or Qt Non Commercial products of TrollTech.
-#      And you are not permitted to distribute binaries compiled against
-#      these libraries without written consent from Quest Software, Inc.
-#      Observe that this does not disallow linking to the Qt Free Edition.
-#
-#      You may link this product with any GPL'd Qt library such as Qt/Free
-#
-# All trademarks belong to their respective owners.
-#
-#####
-
-use strict;
-
-my $license=<<__EOT__;
-//***************************************************************************
-/*
- * TOra - An Oracle Toolkit for DBA\'s and developers
- * Copyright (C) 2003 Quest Software, Inc
- * 
- * 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;  only version 2 of
- * the License is valid for this program.
- * 
- * 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.
- *
- *      As a special exception, you have permission to link this program
- *      with the Oracle Client libraries and distribute executables, as long
- *      as you follow the requirements of the GNU GPL in regard to all of the
- *      software in the executable aside from Oracle client libraries.
- *
- *      Specifically you are not permitted to link this program with the
- *      Qt/UNIX, Qt/Windows or Qt Non Commercial products of TrollTech.
- *      And you are not permitted to distribute binaries compiled against
- *      these libraries without written consent from Quest Software, Inc.
- *      Observe that this does not disallow linking to the Qt Free Edition.
- *
- * All trademarks belong to their respective owners.
- *
- ****************************************************************************/
-
-__EOT__
-
-use File::Copy;
-
-for my $file (@ARGV) {
-    print "Fixing $file\n";
-    if (!move($file,$file.".bak")) {
-	print "Couldn't move $file to $file.bak\n";
-    } elsif (open(FILE,"<$file.bak")) {
-	if (open(OUTFILE,">$file")) {
-	    my $top=1;
-	    while($top) {
-		if (!($_=<FILE>)) {
-		    last;
-		}
-		if (/\*\//) {
-		    $top=0;
-		} elsif (!/\*/&&/\S/) {
-		    last;
-		}
-	    }
-	    if ($top&&!open(FILE,"<$file.bak")) {
-		print "Couldn't open $file.bak for writing\n";
-	    }
-	    print OUTFILE $license;
-	    while(<FILE>) {
-		if (!/^\s*$/) {
-		    last;
-		}
-	    }
-	    print OUTFILE;
-	    while(<FILE>) {
-		print OUTFILE;
-	    }
-	    close FILE;
-	    close OUTFILE;
-	} else {
-	    print "Couldn't open $file.bak for writing\n";
-	}
-    } else {
-	print "Couldn't open $file.bak for reading\n";
-    }
-}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.