a89f0a64f0
Former-commit-id:d537df4ab0[formerly4453ad2d10] [formerly65e1e4ee0b] [formerlyd537df4ab0[formerly4453ad2d10] [formerly65e1e4ee0b] [formerlyea1c82452b[formerly65e1e4ee0b[formerly 56068aa96fa6daf113861476bf4b7aebe2021ca4]]]] Former-commit-id:ea1c82452bFormer-commit-id:69f4822ad1[formerly9f6780c4dd] [formerly e63dac039e52161602915d3cf34685762acd5d9e [formerly7f1b468010]] Former-commit-id: ed7bf459df1503ce7bd9500dc984c56a535b768f [formerlydafb6b18d8] Former-commit-id:bb662ca175
17 lines
419 B
Perl
17 lines
419 B
Perl
#!/usr/bin/perl
|
|
#File: extractTag.pl
|
|
|
|
# This is a utility script that will extract the tag name from a
|
|
# Subversion URL / Location.
|
|
|
|
if (($#ARGV + 1) != 1)
|
|
{
|
|
print "Usage: extractSite.pl 'Localization Directory'\n";
|
|
exit;
|
|
}
|
|
$localizationDirectory = $ARGV[0];
|
|
@svn_dir_split = split(/\./, $localizationDirectory);
|
|
$numElements = scalar (@svn_dir_split);
|
|
$site = @svn_dir_split[$numElements - 1];
|
|
|
|
print "$site\n";
|