[Pkg-xfce-commits] r155 - scripts
Emanuele Rocca
ema@costa.debian.org
Sat, 21 May 2005 16:16:06 +0000
Author: ema
Date: 2005-05-21 16:16:05 +0000 (Sat, 21 May 2005)
New Revision: 155
Added:
scripts/desktop-sources.txt
scripts/get-sources.pl
Removed:
scripts/get-goodies.pl
Log:
- get-goodies.pl renamed to get-sources.pl since now supports both
goodies and desktop
- desktop-sources.txt added, pointing to huggie's website
- some changes in get-goodies.pl
Added: scripts/desktop-sources.txt
===================================================================
--- scripts/desktop-sources.txt 2005-05-21 15:41:00 UTC (rev 154)
+++ scripts/desktop-sources.txt 2005-05-21 16:16:05 UTC (rev 155)
@@ -0,0 +1,23 @@
+dbh http://www.us.xfce.org/archive/xfce-4.2.2/src/dbh-1.0.24.tar.gz
+gtk-xfce-engine http://www.us.xfce.org/archive/xfce-4.2.2/src/gtk-xfce-engine-2.2.7.tar.gz
+libxfce4mcs http://www.us.xfce.org/archive/xfce-4.2.2/src/libxfce4mcs-4.2.2.tar.gz
+libxfce4util http://www.us.xfce.org/archive/xfce-4.2.2/src/libxfce4util-4.2.2.tar.gz
+libxfcegui http://www.us.xfce.org/archive/xfce-4.2.2/src/libxfcegui4-4.2.2.tar.gz
+xfcalendar http://www.us.xfce.org/archive/xfce-4.2.2/src/xfcalendar-4.2.2.tar.gz
+xfce-mcs-manager http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce-mcs-manager-4.2.2.tar.gz
+xfce-mcs-plugins http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce-mcs-plugins-4.2.2.tar.gz
+xfce-utils http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce-utils-4.2.2.tar.gz
+xfce4-appfinder http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-appfinder-4.2.2.tar.gz
+xfce4-icon-theme http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-icon-theme-4.2.2.tar.gz
+xfce4-iconbox http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-iconbox-4.2.2.tar.gz
+xfce4-mixer http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-mixer-4.2.2.tar.gz
+xfce4-panel http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-panel-4.2.2.tar.gz
+xfce4-session http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-session-4.2.2.tar.gz
+xfce4-systray http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-systray-4.2.2.tar.gz
+xfce4-toys http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-toys-4.2.2.tar.gz
+xfce4-trigger-launcher http://www.us.xfce.org/archive/xfce-4.2.2/src/xfce4-trigger-launcher-4.2.2.tar.gz
+xfdesktop http://www.us.xfce.org/archive/xfce-4.2.2/src/xfdesktop-4.2.2.tar.gz
+xffm http://www.us.xfce.org/archive/xfce-4.2.2/src/xffm-4.2.2.tar.gz
+xfprint http://www.us.xfce.org/archive/xfce-4.2.2/src/xfprint-4.2.2.tar.gz
+xfwm http://www.us.xfce.org/archive/xfce-4.2.2/src/xfwm4-4.2.2.tar.gz
+xfwm4-themes http://www.us.xfce.org/archive/xfce-4.2.2/src/xfwm4-themes-4.2.2.tar.gz
Deleted: scripts/get-goodies.pl
===================================================================
--- scripts/get-goodies.pl 2005-05-21 15:41:00 UTC (rev 154)
+++ scripts/get-goodies.pl 2005-05-21 16:16:05 UTC (rev 155)
@@ -1,69 +0,0 @@
-#!/usr/bin/perl
-# Copyright (C) 2005 Emanuele Rocca <ema@debian.org>
-# This code is released under the terms of the GNU GPL
-#
-# vim:textwidth=0
-
-use strict;
-use warnings;
-use File::Basename;
-
-my $debug = 0;
-if ($debug) {
- print "WARNING: Debug mode. Change the \$debug variable to 0 if you want to really do something.\n";
-}
-
-my $debian_dirs = "../goodies";
-my $tarballs_dir = "$debian_dirs/tarballs";
-my $sources_file = "goodies-sources.txt";
-
-! -d $tarballs_dir and print STDERR "No tarballs dir found. Exiting.\n" and exit 1;
-
-if (! -f $sources_file or ! open SOURCES, "< $sources_file") {
- print STDERR "No sources file found. Exiting.\n";
- exit 1;
-}
-
-while(<SOURCES>) {
- chop;
- my ($pkg, $tarball) = split;
- ! -d "$debian_dirs/$pkg" and next;
- my $wget_command = "";
- my $filename = basename($tarball);
-
- $filename =~ /(.*)-/;
- my $orig_tarball_name = $1;
-
- my $debian_filename = $filename;
- $debian_filename =~ s/-(\d)/_$1/;
-
- # if the original tarball name is different from our package name, it is necessary to rename it
- # TODO We should also change the directory name
- if($orig_tarball_name !~ $pkg) {
- print "The original tarball name ($orig_tarball_name) doesn't match the Debian one ($pkg)\n";
- $debian_filename =~ s/^\w*_/${pkg}_/;
- }
-
- if($filename !~ /tar\.gz/) {
- # assuming bzip2
- my $decompressed_filename = $filename;
-
- $debian_filename =~ s/.tar.bz2/.orig.tar.gz/;
-
- $decompressed_filename =~ s/tar.bz2/tar/;
-
- $wget_command = "cd $tarballs_dir && wget $tarball && bunzip2 $filename && gzip -9 $decompressed_filename && mv $decompressed_filename.gz $debian_filename";
- }
- else {
- # tar.gz
- $debian_filename =~ s/.tar.gz/.orig.tar.gz/;
- $wget_command = "cd $tarballs_dir && wget $tarball && mv $filename $debian_filename";
- }
-
- # wget & stuff
- if ( ! -f "$tarballs_dir/$debian_filename" ) {
- print "Trying the following command:\n$wget_command\n";
- system($wget_command) if not $debug;
- }
- else { print $pkg."'s tarball already present. Skipping\n"; }
-}
Added: scripts/get-sources.pl
===================================================================
--- scripts/get-sources.pl 2005-05-21 15:41:00 UTC (rev 154)
+++ scripts/get-sources.pl 2005-05-21 16:16:05 UTC (rev 155)
@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+# Copyright (C) 2005 Emanuele Rocca <ema@debian.org>
+# This code is released under the terms of the GNU GPL
+#
+# vim:textwidth=0
+
+use strict;
+use warnings;
+use File::Basename;
+
+(!$ARGV[0] || $ARGV[0] !~ /goodies|desktop/) and print "Usage: $0 (goodies|desktop)\n" and exit 1;
+
+my $debug = 0;
+if ($debug) {
+ print "W: Debug mode. Change the \$debug variable to 0 if you want to really do something.\n";
+}
+
+my ($debian_dirs, $sources_file) = ("", "");
+
+if($ARGV[0] =~ /goodies/) {
+ $debian_dirs = "../goodies";
+ $sources_file = "goodies-sources.txt";
+}
+elsif($ARGV[0] =~ /desktop/) {
+ $debian_dirs = "../desktop/trunk";
+ $sources_file = "desktop-sources.txt";
+}
+else {
+ print STDERR "E: Something REALLY weird happened";
+ exit 1;
+}
+my $tarballs_dir = "$debian_dirs/tarballs";
+
+! -d $tarballs_dir and print STDERR "E: No tarballs dir found. Exiting.\n" and exit 1;
+
+if (! -f $sources_file or ! open SOURCES, "< $sources_file") {
+ print STDERR "E: No sources file found. Exiting.\n";
+ exit 1;
+}
+
+while(<SOURCES>) {
+ chop;
+ my ($pkg, $tarball) = split;
+ ! -d "$debian_dirs/$pkg" and next;
+ my $wget_command = "";
+ my $filename = basename($tarball);
+
+ $filename =~ /(.*)-/;
+ my $orig_tarball_name = $1;
+
+ my $debian_filename = $filename;
+ $debian_filename =~ s/-(\d)/_$1/;
+
+ # if the original tarball name is different from our package name, it is necessary to rename it
+ # TODO We should also change the directory name
+ if($orig_tarball_name !~ $pkg) {
+ print "W: The original tarball name ($orig_tarball_name) doesn't match the Debian one ($pkg)\n";
+ $debian_filename =~ s/^\w*_/${pkg}_/;
+ }
+
+ if($filename !~ /tar\.gz/) {
+ # assuming bzip2
+ my $decompressed_filename = $filename;
+
+ $debian_filename =~ s/.tar.bz2/.orig.tar.gz/;
+
+ $decompressed_filename =~ s/tar.bz2/tar/;
+
+ $wget_command = "cd $tarballs_dir && wget $tarball && bunzip2 $filename && gzip -9 $decompressed_filename && mv $decompressed_filename.gz $debian_filename";
+ }
+ else {
+ # tar.gz
+ $debian_filename =~ s/.tar.gz/.orig.tar.gz/;
+ $wget_command = "cd $tarballs_dir && wget $tarball && mv $filename $debian_filename";
+ }
+
+ # wget & stuff
+ if ( ! -f "$tarballs_dir/$debian_filename" ) {
+ print "Trying the following command:\n$wget_command\n";
+ system($wget_command) if not $debug;
+ }
+ else { print "W: ${pkg}'s tarball already present. Skipping\n"; }
+}
Property changes on: scripts/get-sources.pl
___________________________________________________________________
Name: svn:executable
+ *