1 files changed, 131 insertions, 0 deletions
diff --git a/misc/upload.pl b/misc/upload.pl
new file mode 100755
index 000000000..8a87dea16
--- /dev/null
+++ b/misc/upload.pl
@@ -0,0 +1,131 @@
+#!/usr/bin/perl
+#
+# upload.pl - upload files to the xine "Download" page
+#
+# usage: upload.pl [-y] [-r<release-version>] [-s<section>] <file> [...]
+#
+# OPTIONS: release-version: the version number of this file. If omitted, the
+#                           newest version on the page is used.
+#                           Only the last -r option counts.
+#
+#          section: the heading under which this file should appear. If
+#                   omitted, we'll try to autodetect it from the file suffix:
+#                   .rpm    => "RPMs"
+#                   .tar.gz => "source tarball"
+#                   .deb    => "Debian"
+#                   .dsc    => "Debian"
+#
+#          -y: don't ask for upload confirmation
+#
+# EXAMPLE:
+# ./upload.pl -r1.0 xine_1.0_i386.deb -sSlackware xine-1.0.tar.gz
+#
+
+## begin configuration ######################################################
+
+$UPLOAD_HOST  = "xine.sourceforge.net";
+$UPLOAD_PATH  = "/home/groups/xine/htdocs";
+$INDEX_FILE   = "download.html";
+$FILE_SUBDIR  = "files";
+$TMP_DIR      = "/tmp/xine-upload.$$";
+$PROGRAM_NAME = "xine";
+$LINK_FONT    = '<font face="Verdana,Helvetica,Arial" size=4>';
+$END_FONT     = '</font>';
+
+## end of configuration #####################################################
+
+mkdir $TMP_DIR, 0755 || die "could not mkdir $TMP_DIR";
+mkdir "$TMP_DIR/$FILE_SUBDIR", 0755;
+
+print "fetching old Download page...\n";
+system ("scp $UPLOAD_HOST:$UPLOAD_PATH/$INDEX_FILE $TMP_DIR");
+open(IN, "$TMP_DIR/$INDEX_FILE") || die "unable to open $TMP_DIR/$INDEX_FILE";
+if (!read(IN, $thepage, 409600)) {
+  die "unable to read $TMP_DIR/$INDEX_FILE";
+} 
+close(IN);
+
+if ($thepage =~ /<h1>\s*$PROGRAM_NAME\s+(\S+)\s*<\/h1>/si) {
+  $current_release=$1;
+  print "current release is $current_release.\n";
+}
+else {
+  $current_release="(unknown version)";
+  print "WARNING: could not find current release in download page.\n";
+}
+
+## parse command line
+$section  = "source tarball";
+$release  = $current_release;
+%files    = ();
+$yes      = 0;
+
+foreach (@ARGV) {
+  if (/^\-r/) {
+    $release = $_;
+    $release =~ s/\-r//;
+  }
+  elsif (/^\-s/) {
+    $section = $_;
+    $section =~ s/\-s//;
+  }
+  elsif (/^\-y/) {
+    $yes = 1;
+  }
+  else {
+    die "$_: no such file" unless -f $_;
+    $filen = $_;
+    $filen =~ s/^.*?([^\/]*)$/\1/;
+    $files{$section} .= " $filen"; 
+    print "will add $filen to section $section.\n"; 
+    system("cp $_ '$TMP_DIR/$FILE_SUBDIR'");
+ }
+}
+print "using release id $release.\n";
+
+## add new files to the page
+sub ensureSection() { #$section, $release 
+  $rel = $thepage;
+  $rel =~ s/^.*<h1>\s*$PROGRAM_NAME\s+$release\s*<\/h1>//si;
+  $rel =~ s/<h1>.*$//si;
+  if ($rel =~ /<h2>\s*$section\s*<\/h2>/si) {
+    return;
+  }
+  else {
+    print "creating new section \"$section\" for release $release.\n";
+    unless ($thepage =~ /<h1>\s*$PROGRAM_NAME\s+$release\s*<\/h1>/si) {
+      $thepage = "<h1>$PROGRAM_NAME $release</h1>\n" . $thepage;
+    }
+    $newSection = "<h2>$section</h2>\n\n$LINK_FONT\n$END_FONT\n\n\n";
+    $thepage =~ /^(.*<h1>\s*$PROGRAM_NAME\s+$release\s*<\/h1>.*?)(<h1>.*)$/is;
+    $thepage = $1.$newSection.$2;
+    return;
+  }
+}
+
+print "editing Download page...\n";
+foreach (keys(%files)) {
+  $section = $_; 
+  ensureSection();
+  $newLinks = $files{$section};
+  print "file list for \"$section\": $newLinks\n";
+  $newLinks =~ s/ (\S*)/<a href=\"$FILE_SUBDIR\/\1\">\1<\/a> <br>\n/sg;
+  $thepage =~ /^(.*<h1>\s*$PROGRAM_NAME\s+$release\s*<\/h1>.*?<h2>\s*$section\s*<\/h2>.*?)($END_FONT.*)$/is;
+  $thepage = $1 . $newLinks . $2;
+}
+
+open(OUT, ">$TMP_DIR/$INDEX_FILE");
+print OUT $thepage;
+close(OUT);
+
+unless ($yes) {
+  print "\nAre you sure you want to upload files? [no] ";
+  $answer = <STDIN>;
+  $yes = 1 if $answer =~ /^y/i;
+}
+
+if ($yes) {
+  system("scp -r '$TMP_DIR/$INDEX_FILE' '$TMP_DIR/$FILE_SUBDIR' '$UPLOAD_HOST:$UPLOAD_PATH'");
+}
+
+system("rm -r $TMP_DIR");