1
edit
Changes
no edit summary
Here are my hacky scripts. They aren't great they may not even be useful to you.
==Create JBossAS tarball==
This script checks out JBoss from the subversion. It is broken right now, as it doesn't copy the tarball back to the initial pwd.
<pre>
#!/bin/sh
# Check out JBoss sources from their subversion server.
# This script creates a temporary directory, checks the
# code out then tars it and moves the tarball to where
# the script was invoked.
# Store where the result should end up
TARGETDIR=`pwd`
# This is the version tag for releases
SVNVERSION="5_0_0_CR2"
# This is the version to use for the folder and archive
# name
PLAINVERSION="5.0.0"
# This is the command to make the temporary directory
TEMPDIR=`mktemp -d`
## Check out source
cd ${TEMPDIR}
svn export http://anonsvn.jboss.org/repos/jbossas/tags/JBoss_${SVNVERSION} --quiet
mv JBoss_${SVNVERSION} jboss-${PLAINVERSION}
tar jcf jboss-${PLAINVERSION}.tar.bz2 jboss-${PLAINVERSION}
cp jboss-${PLAINVERSION}.tar.bz2 ${TARGETDIR}
rm -rf ${TEMPDIR}
</pre>
== Dependency Generation ==
This perl script reads the output of "find .m2/repository-name "*.jar" through standard input and formats it into a general HTML table. It is not complete and it is not accurate. This was used as a first pass so i didn't have to write the table from scratch
<pre>
#!/usr/bin/perl
use strict;
use warnings;
print "<html>\n<body>\n<table>\n";
print " <thead>\n";
print " <td>Provider</td>\n";
print " <td>Package</td>\n";
print " <td>Version</td>\n";
print " <td>Source</td>\n";
print " <td>In Fedora</td>\n";
print " </thead>\n";
while( <STDIN> ) {
#do something with $_
#$_;
if(not $_ =~ m/-sources.jar$/){
$_ =~ /^[.](.*[\/])(.*?)-(.*?)[.]jar$/;
if(defined($1) && defined($2) && defined($3)){
my $provider = $1;
my $package = $2;
my $version = $3;
$provider =~ s/^\///;
$provider =~ s/\/$//;
#$provider =~ s/\/[\w\_\-.]\/[\w\_\-.]$/*/;
$provider =~ s/[\/]/\./g;
$provider =~ s/^\.//;
print " <tr>\n";
print " <td>$provider</td>\n";
print " <td>$package</td>\n";
print " <td>$version</td>\n";
print " <td>???</td>\n";
print " <td>???</td>\n";
print " </tr>\n\n"
} else {
print "*Check this line: $_";
}
}
}
print "</table>\n</body>\n</html>";
</pre>
