#!/usr/bin/env perl use strict; use CGI qw/:standard/; use File::Spec::Functions; use File::Basename; use lib (dirname($0).'/../lib'); use vCard; my $committerStoreFolder = '/usr/local/apache2/store/committer'; my $vc = vCard->new(Store => $committerStoreFolder); my $user = $ENV{'REMOTE_USER'}; $user =~ s/\@apache.org//; print header; $vc->readParseFile($user); print < ASF Asylum: Committer Information for $user
The Apache Software Foundation

ASF Asylum: Committer Information for $user

EOF $vc->writeForm(); print < EOF print "

", submit, "

", end_form, end_html;
ASF ID $user