← Back to branch summary

~ubuntu-branches/debian/jessie/openchange/jessie

« back to all changes in this revision

Viewing changes to libmapi/conf/mparse.pl

  • Committer: Package Import Robot
  • Author(s): Jelmer Vernooij
  • Date: 2014-04-24 00:29:19 UTC
  • mfrom: (1.2.8) (4.1.6 experimental)
  • Revision ID: package-import@ubuntu.com-20140424002919-96es5uhyy3jjzgid
Tags: 1:2.1-1
* New upstream release.
 + Stop removing broken manpages, upstream on longer installs them.
* Add upstream signing key.
* Run test suite during build.
 + Add dependency on python-twisted-core for trial and python-testtools.
 + Add fix-tests patch, cherry-picked from upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
libmapi/conf/mparse.pl
777
777
        }
778
778
    }
779
779
 
 
780
    mparse q|{ "C",                             "C",               0x0409, 1252, CP_WESTERN_EUROPE_AND_US },|;
780
781
    mparse "{ NULL, NULL, 0, 0, 0 }";
781
782
    deindent;
782
783
    mparse "};";
1182
1183
    mparse sprintf "";
1183
1184
 
1184
1185
    for my $key (sort(keys %oleguid)) {
1185
 
        my $value = $oleguid{$key};
 
1186
        my $value = $oleguid{$key};
1186
1187
 
1187
 
        mparse sprintf "dn: CN=%s,CN=default", $value;
1188
 
        mparse sprintf "cn: %s", $value;
1189
 
        mparse sprintf "name: %s", $key;
1190
 
        mparse sprintf "oleguid: %s", $value;
1191
 
        mparse "";
 
1188
        mparse sprintf "dn: CN=%s,CN=default", $value;
 
1189
        mparse sprintf "cn: %s", $value;
 
1190
        mparse sprintf "name: %s", $key;
 
1191
        mparse sprintf "oleguid: %s", $value;
 
1192
        mparse "";
1192
1193
    }
1193
1194
 
1194
1195
    @lines = split(/\n/, $contents);
1195
1196
    foreach $line (@lines) {
1196
 
        $line =~ s/^\#+.*$//;
1197
 
        if ($line) {
1198
 
            @prop = split(/\s+/, $line);
1199
 
            if ($prop[5] eq "MNID_ID" && $prop[7]) {
1200
 
                mparse sprintf "dn: CN=%s,CN=%s,CN=default", $prop[2], $oleguid{$prop[6]};
1201
 
                mparse sprintf "objectClass: %s", $prop[5];
1202
 
                mparse sprintf "cn: %s", $prop[2];
1203
 
                mparse sprintf "canonical: %s", $prop[0];
1204
 
                mparse sprintf "oleguid: %s", $oleguid{$prop[6]};
1205
 
                mparse sprintf "mappedId: %d", hex($prop[7]);
1206
 
                mparse sprintf "propId: %d", hex($prop[2]);
1207
 
                mparse sprintf "propType: %s", $prop_names{$prop[4]};
1208
 
                mparse sprintf "oom: %s", $prop[1];
1209
 
                mparse sprintf "";
1210
 
            } elsif ($prop[5] eq "MNID_STRING" && $prop[7]) {
1211
 
                mparse sprintf "dn: CN=%s,CN=%s,CN=default", $prop[3], $oleguid{$prop[6]};
1212
 
                mparse sprintf "objectClass: %s", $prop[5];
1213
 
                mparse sprintf "cn: %s", $prop[3];
1214
 
                mparse sprintf "canonical: %s", $prop[0];
1215
 
                mparse sprintf "oleguid: %s", $oleguid{$prop[6]};
1216
 
                mparse sprintf "mappedId: %d", hex($prop[7]);
1217
 
                mparse sprintf "propId: 0";
1218
 
                mparse sprintf "propType: %s", $prop[4];
1219
 
                mparse sprintf "propName: %s", $prop[3];
1220
 
                mparse sprintf "";
1221
 
            }
1222
 
        }
 
1197
        $line =~ s/^\#+.*$//;
 
1198
        if ($line) {
 
1199
            @prop = split(/\s+/, $line);
 
1200
            if ($prop[5] eq "MNID_ID" && $prop[7]) {
 
1201
                mparse sprintf "dn: CN=%s,CN=%s,CN=default", $prop[2], $oleguid{$prop[6]};
 
1202
                mparse sprintf "objectClass: %s", $prop[5];
 
1203
                mparse sprintf "cn: %s", $prop[2];
 
1204
                mparse sprintf "canonical: %s", $prop[0];
 
1205
                mparse sprintf "oleguid: %s", $oleguid{$prop[6]};
 
1206
                mparse sprintf "mappedId: %d", hex($prop[7]);
 
1207
                mparse sprintf "propId: %d", hex($prop[2]);
 
1208
                mparse sprintf "propType: %s", $prop_names{$prop[4]};
 
1209
                mparse sprintf "oom: %s", $prop[1];
 
1210
                mparse sprintf "";
 
1211
            } elsif ($prop[5] eq "MNID_STRING" && $prop[7]) {
 
1212
                mparse sprintf "dn: CN=%s,CN=%s,CN=default", $prop[3], $oleguid{$prop[6]};
 
1213
                mparse sprintf "objectClass: %s", $prop[5];
 
1214
                mparse sprintf "cn: %s", $prop[3];
 
1215
                mparse sprintf "canonical: %s", $prop[0];
 
1216
                mparse sprintf "oleguid: %s", $oleguid{$prop[6]};
 
1217
                mparse sprintf "mappedId: %d", hex($prop[7]);
 
1218
                mparse sprintf "propId: 0";
 
1219
                mparse sprintf "propType: %s", $prop[4];
 
1220
                mparse sprintf "propName: %s", $prop[3];
 
1221
                mparse sprintf "";
 
1222
            }
 
1223
        }
1223
1224
    }
1224
1225
    return $ret;
1225
1226
}