[Spacewalk-list] Issues with binary files and createorupdatepath API call

[James Fillman]

I've written a  perl script that syncs RHN Sat server config channels to spacewalk and it's not handling binary files properly. The Spacewalk createOrUpdatePath API call keeps creating txt files rather than binary.

Here's the relevant code. Does anyone have an suggestions?!

                my $file_info = $rhn_client->call('configchannel.lookupFileInfo', $rhn_session, $channel, ["$rhn_file->{'path'}"]);
                my %new_file;
                $new_file{'permissions'} = $spw_client->string($file_info->[0]->{'permissions_mode'});
                $new_file{'owner'} = $spw_client->string($file_info->[0]->{'owner'});
                $new_file{'group'} = $spw_client->string($file_info->[0]->{'group'});
                $new_file{'revision'} = $spw_client->int($file_info->[0]->{'revision'});

                if ($file_info->[0]->{'type'} eq 'symlink')
                {
                        my %symlink_info;
                        $symlink_info{'target_path'} = $spw_client->string($file_info->[0]->{'target_path'});
                        $symlink_info{'revision'} = $spw_client->int($file_info->[0]->{'revision'});
                        $spw_client->call('configchannel.createOrUpdateSymlink', $spw_session, $channel, $file_info->[0]->{'path'}, \%symlink_info);
                }
                elsif ("$file_info->[0]->{'type'}" eq 'directory')
                {
                        $spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, $file_info->[0]->{'path'}, $spw_client->string(1), \%new_file);
                }
                else
                {
                        if ($file_info->[0]->{'binary'}->value == 1)
                        {
                                my $base64_file = $rhn_client->call('configchannel.getEncodedFileRevision', $rhn_session, $channel, "$rhn_file->{'path'}", $file_info->[0]->{'revision'});
                                $new_file{'contents'} = $base64_file->{'contents'};
                                $new_file{'contents_enc64'} = $spw_client->boolean(1);
                                $spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, $base64_file->{'path'}, $spw_client->string(0), \%new_file);
                        }
                        else
                        {
                                $new_file{'contents'} = $file_info->[0]->{'contents'};
                                $new_file{'macro-start-delimiter'} = $spw_client->string($file_info->[0]->{'macro-start-delimiter'});
                                $new_file{'macro-end-delimiter'} = $spw_client->string($file_info->[0]->{'macro-end-delimiter'});
                                $spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, $file_info->[0]->{'path'}, $spw_client->string(0), \%new_file);
                        }
                }


Thanks,
--james

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://listman.redhat.com/archives/spacewalk-list/attachments/20121024/3fe22ca8/attachment.htm>