[packages/netatalk.git] / ICDumpSuffixMap

#!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