[prev in list] [next in list] [prev in thread] [next in thread]
List: spacewalk-list
Subject: [Spacewalk-list] Issues with binary files and createorupdatepath API call
From: James Fillman <jfillman () central1 ! com>
Date: 2012-10-24 23:18:33
Message-ID: 4470426D5F017A46BE3A83292FD5D2B54AB4BAB8CA () EVS1 ! cs ! ad ! central1 ! com
[Download RAW message or body]
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
[Attachment #3 (text/html)]
<html xmlns:v="urn:schemas-microsoft-com:vml" \
xmlns:o="urn:schemas-microsoft-com:office:office" \
xmlns:w="urn:schemas-microsoft-com:office:word" \
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" \
xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type \
content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 14 \
(filtered medium)"><style><!-- /* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Arial","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link=blue vlink=purple><div \
class=WordSection1><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'>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.<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'>Here’s the relevant \
code. Does anyone have an suggestions?!<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
my $file_info = $rhn_client->call('configchannel.lookupFileInfo', $rhn_session, \
$channel, ["$rhn_file->{'path'}"]);<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
my %new_file;<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
$new_file{'permissions'} = \
$spw_client->string($file_info->[0]->{'permissions_mode'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
$new_file{'owner'} = \
$spw_client->string($file_info->[0]->{'owner'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
$new_file{'group'} = \
$spw_client->string($file_info->[0]->{'group'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
$new_file{'revision'} = \
$spw_client->int($file_info->[0]->{'revision'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
if ($file_info->[0]->{'type'} eq 'symlink')<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
{<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
my %symlink_info;<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$symlink_info{'target_path'} = \
$spw_client->string($file_info->[0]->{'target_path'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$symlink_info{'revision'} = \
$spw_client->int($file_info->[0]->{'revision'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$spw_client->call('configchannel.createOrUpdateSymlink', $spw_session, $channel, \
$file_info->[0]->{'path'}, \%symlink_info);<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
}<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
elsif ("$file_info->[0]->{'type'}" eq \
'directory')<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
{<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, \
$file_info->[0]->{'path'}, $spw_client->string(1), \
\%new_file);<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
}<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
else<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
{<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
if \
($file_info->[0]->{'binary'}->value == 1)<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
{<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
my $base64_file = $rhn_client->call('configchannel.getEncodedFileRevision', \
$rhn_session, $channel, "$rhn_file->{'path'}", \
$file_info->[0]->{'revision'});<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$new_file{'contents'} = $base64_file->{'contents'};<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$new_file{'contents_enc64'} = $spw_client->boolean(1);<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, \
$base64_file->{'path'}, $spw_client->string(0), \
\%new_file);<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
}<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
else<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
{<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$new_file{'contents'} = $file_info->[0]->{'contents'};<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$new_file{'macro-start-delimiter'} = \
$spw_client->string($file_info->[0]->{'macro-start-delimiter'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$new_file{'macro-end-delimiter'} = \
$spw_client->string($file_info->[0]->{'macro-end-delimiter'});<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
$spw_client->call('configchannel.createOrUpdatePath', $spw_session, $channel, \
$file_info->[0]->{'path'}, $spw_client->string(0), \
\%new_file);<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> &nbs \
p; \
}<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'> \
}<o:p></o:p></span></p><p class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'>Thanks,<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'>--james<o:p></o:p></span></p><p \
class=MsoNormal><span \
style='font-size:12.0pt;font-family:"Arial","sans-serif"'><o:p> </o:p></span></p></div></body></html>
_______________________________________________
Spacewalk-list mailing list
Spacewalk-list@redhat.com
https://www.redhat.com/mailman/listinfo/spacewalk-list
--===============8544840068984895588==--
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic