X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/ba4363aba91d75e08819c7e1e422582c4919496e..9332d4fcd5f086b70aadd7d7e97c24e45e889c48:/selfforum-cgi/user/fo_view.pl?ds=inline diff --git a/selfforum-cgi/user/fo_view.pl b/selfforum-cgi/user/fo_view.pl index 42e6153..c185dd3 100644 --- a/selfforum-cgi/user/fo_view.pl +++ b/selfforum-cgi/user/fo_view.pl @@ -4,7 +4,7 @@ # # # File: user/fo_view.pl # # # -# Authors: André Malo , 2001-04-01 # +# Authors: André Malo # # # # Description: display the forum main file or a single posting # # # @@ -49,9 +49,15 @@ use CGI qw( header ); +################################################################################ +# # Version check # -$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +# last modified: +# $Date$ (GMT) +# by $Author$ +# +sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} print header( -type => 'text/html',