Source
1
+
#!/usr/bin/perl
2
+
3
+
###
4
+
### uses cgi-bin/casa-version
5
+
###
6
+
$limit='';
7
+
$version='';
8
+
$svn='';
9
+
10
+
foreach ( @ARGV ) {
11
+
-- (?: )?| && ( $limit = 'version', next ); |^
12
+
-- (?: )?| && ( $limit = 'revision', next ); |^
13
+
}
14
+
15
+
open( $info, "curl --silent https://svn.cv.nrao.edu/cgi-bin/casa-version |" );
16
+
$value = <$info>;
17
+
close( $info );
18
+
die "received bad version information: $value" unless $value =~ |^(\+\.\+\.\+)\+(\+)$|;
19
+
$version = $1;
20
+
$svn = $2;
21
+
22
+
unless ( $limit ) {
23
+
print "$version $svn\n";
24
+
} elsif ( $limit eq 'version' ) {
25
+
print "$version\n";
26
+
} elsif ( $limit eq 'revision' ) {
27
+
print "$svn\n";
28
+
} else {
29
+
die "internal error...";
30
+
}
31
+
exit(0);