mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-08-17 00:28:29 +00:00
16 lines
432 B
Perl
Executable File
16 lines
432 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
open (IN, "< lib/Mail/SpamAssassin.pm")
|
|
or die "cannot open lib/Mail/SpamAssassin.pm\n";
|
|
while (<IN>) {
|
|
($VERSION) = /^\s*\$VERSION\s*=\s*\"(\S+)\"\;/ unless ( $VERSION );
|
|
($EXTRA) = /^\s*\@EXTRA_VERSION\s*=\s*q\w\((\S+?)\)/ unless ( $EXTRA );
|
|
($DEVEL) = /^\s*\$IS_DEVEL_BUILD\s*=\s*(1);/ unless ( $DEVEL );
|
|
}
|
|
close IN;
|
|
|
|
print $VERSION;
|
|
print "-$EXTRA" if ( $EXTRA );
|
|
print "-svn" if ( $DEVEL );
|
|
print "\n";
|