source: spip-zone/_dev_/bin_svn/archive.pl @ 815

Last change on this file since 815 was 815, checked in by fil@…, 15 years ago

script de creation des archives sur le serveur trac

  • Property svn:executable set to *
File size: 506 bytes
Line 
1#!/usr/bin/perl
2
3$SOURCE="/home/svn/checkout/".$ARGV[0];
4$DEST="/var/www/shim/fil/Web/files/".$ARGV[0];
5
6mkdir $DEST || die("impossible creer $DEST");
7
8open (FILE, "<$ARGV[1]");
9
10while(<FILE>) {
11        chomp;
12        s@\.\./@@; # securite : supprimer les ../
13        ($dir,$archive) = split(';',$_,2);
14        chdir "$SOURCE/$dir";
15        `zip -9 "$DEST/$archive.zip" -r . -x .svn -x _REGLES_DE_COMMIT.txt;`;
16#       chdir "$SOURCE/$dir";
17#       `tar --exclude ".svn" --exclude "_REGLES_DE_COMMIT.txt" -zcf "$DEST/$archive.tgz" ./;`;
18}
Note: See TracBrowser for help on using the repository browser.