Contents of /rpms/netatalk/sme7/ICDumpSuffixMap

#!perl
#
# ICDumpMap
#     ---  Dump suffix mappings from your Internet Config extension.
#
# iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>
#

use Mac::InternetConfig;

open MAP, ">AppleVolumes";
printf MAP "%-9s \"%4s\"  \"%4s\"      %-30s %-25s %-15s\n\n",
".", "TEXT", "ttxt", "ASCII Text", "SimpleText", "text/plain";
print MAP "\# The following lines are extracted from Internet Config Preference.\n\n";
for my $entry (keys %InternetConfigMap) {
   next unless $entry->extension =~ /^\./;
   $_ = sprintf "%-9s \"%4s\"  \"%4s\"      %-30s %-25s %-15s",
      $entry->extension, $entry->file_type, $entry->file_creator,
      $entry->entry_name, $entry->creator_app_name,
      $entry->MIME_type;
   s/\s*$/\n/;
   print MAP;
}
close MAP;
1	#!perl
2	#
3	# ICDumpMap
4	# --- Dump suffix mappings from your Internet Config extension.
5	#
6	# iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>
7	#
8
9	use Mac::InternetConfig;
10
11	open MAP, ">AppleVolumes";
12	printf MAP "%-9s \"%4s\" \"%4s\" %-30s %-25s %-15s\n\n",
13	".", "TEXT", "ttxt", "ASCII Text", "SimpleText", "text/plain";
14	print MAP "\# The following lines are extracted from Internet Config Preference.\n\n";
15	for my $entry (keys %InternetConfigMap) {
16	next unless $entry->extension =~ /^\./;
17	$_ = sprintf "%-9s \"%4s\" \"%4s\" %-30s %-25s %-15s",
18	$entry->extension, $entry->file_type, $entry->file_creator,
19	$entry->entry_name, $entry->creator_app_name,
20	$entry->MIME_type;
21	s/\s*$/\n/;
22	print MAP;
23	}
24	close MAP;