Difference between revisions of "User:John64/Hacky Scrtipts"

From CDOT Wiki
Jump to: navigation, search
(New page: Here are my hacky scripts. They aren't great they may not even be useful to you.)
 
Line 1: Line 1:
 
Here are my hacky scripts.  They aren't great they may not even be useful to you.
 
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>

Revision as of 12:21, 19 October 2008

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. 

#!/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}

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 

#!/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>";
Retrieved from "https://wiki.cdot.senecapolytechnic.ca/w/index.php?title=User:John64/Hacky_Scrtipts&oldid=19546"