#!/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 Software Foundation, but is instead provided as a public service. This list is in no way a complete listing of the many organizations providing either free or for cost support for ASF projects. 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";