← Back to branch summary

~ubuntu-branches/ubuntu/precise/netatalk/precise

« back to all changes in this revision

Viewing changes to contrib/ICDumpSuffixMap

  • Committer: Bazaar Package Importer
  • Author(s): Sebastian Rittau
  • Date: 2004-01-19 12:43:49 UTC
  • Revision ID: james.westby@ubuntu.com-20040119124349-es563jbp0hk0ae51
Tags: upstream-1.6.4
Import upstream version 1.6.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/ICDumpSuffixMap
 
1
#!perl
 
 
b'#'
 
 
b'# ICDumpMap'
 
 
b'#     ---  Dump suffix mappings from your Internet Config extension.'
 
 
b'#'
 
 
b'# iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>'
 
 
b'#'
 
 
b'use Mac::InternetConfig;'
 
 
b'open MAP, ">AppleVolumes";'
 
 
b'printf MAP "%-9s \\"%4s\\"  \\"%4s\\"      %-30s %-25s %-15s\\n\\n",'
 
 
b'".", "TEXT", "ttxt", "ASCII Text", "SimpleText", "text/plain";'
 
 
b'print MAP "\\# The following lines are extracted from Internet Config Preference.\\n\\n";'
 
 
b'for my $entry (keys %InternetConfigMap) {'
0
2
  next unless $entry->extension =~ /^\./;
1
3
  $_ = sprintf "%-9s \"%4s\"  \"%4s\"      %-30s %-25s %-15s",
2
4
     $entry->extension, $entry->file_type, $entry->file_creator,
3
5
     $entry->entry_name, $entry->creator_app_name,
4
6
     $entry->MIME_type;
5
7
  s/\s*$/\n/;
6
8
  print MAP;
 
 
b'}'
 
 
b'close MAP;'
 
 
b'\\ No newline at end of file'