#!/usr/local/bin/perl # # print out commercial support list $dbfile = "supportdb.txt"; print < Companies and Contractors Providing Commercial Support for Apache

Companies and Contractors Providing Commercial Support for Apache

Below is a table of companies and consultants who provide commercial support, in one form or another, for Apache. Being mentioned here is not an indication of official "endorsement" by the Apache Group, but is instead provided as a public service. If you would like to be added to this list, or removed, please contact apache\@apache.org.

EOM open(DB, $dbfile) || die "Warning: $!\n"; print "" . "" . "" . "" . "" . "\n"; foreach $_ (sort ()) { next if (/^#/); ($type, $who, $url, $email, $phone, $fax, $loc, $comment) = split(/\t/); if ($type eq "Comp") { my(@eddresses) = split(m:,\s*:, $email); my(@list, $eddress); foreach $eddress (@eddresses) { push(@list, "$eddress"); } print "" . "" . "" . "" . "" . "\n"; } else { push(@contractors, $_); } } print "" . "" . "" . "" . "" . "\n"; foreach $_ (sort (@contractors)) { next if (/^#/); ($type, $who, $url, $email, $phone, $fax, $loc, $comment) = split(/\t/); my(@eddresses) = split(m:,\s*:, $email); my(@list, $eddress); foreach $eddress (@eddresses) { push(@list, "$eddress"); } if ($type eq "Cont") { print "" . "" . "" . "" . "" . "\n"; } } print "
Company (E-mail)Phone
Fax		LocationComments
$who (" . join(", ", @list) . ")$phone 
$fax 		$loc $comment 
Contractor (E-mail)   
$who (" . join(", ", @list) . ")$phone 
$fax 		$loc $comment 
\n";