1 #!perl
\r#
\r# ICDumpMap
\r# --- Dump suffix mappings from your Internet Config extension.
\r#
\r# iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>
\r#
\r\ruse Mac::InternetConfig;
\r\ropen MAP, ">AppleVolumes";
\rprintf MAP "%-9s \"%4s\" \"%4s\" %-30s %-25s %-15s\n\n",
\r".", "TEXT", "ttxt", "ASCII Text", "SimpleText", "text/plain";
\rprint MAP "\# The following lines are extracted from Internet Config Preference.\n\n";
\rfor my $entry (keys %InternetConfigMap) {
\r next unless $entry->extension =~ /^\./;
\r $_ = sprintf "%-9s \"%4s\" \"%4s\" %-30s %-25s %-15s",
\r $entry->extension, $entry->file_type, $entry->file_creator,
\r $entry->entry_name, $entry->creator_app_name,
\r $entry->MIME_type;
\r s/\s*$/\n/;
\r print MAP;
\r}
\rclose MAP;
\r