<br><br><div><span class="gmail_quote">On 2/9/07, <b class="gmail_sendername"><a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br</a></b> &lt;<a href="mailto:glasswalk3r@yahoo.com.br">glasswalk3r@yahoo.com.br
</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Solli Honorio shonorio em <a href="http://gmail.com">gmail.com</a> wrote:
<br><br>&gt; Grande Alceu, fico muito contente em vê-lo tão ativo e agora escrevendo o<br>&gt; teu nome no santo repositório. Só faltou o nome do módulo, e quando não<br>foi<br>&gt; a minha surpresa que o cara já começou com um namespace completo ! O DTS
<br>&gt; &#39;pertence&#39; ao sr. Alceu :)<br><br>Obrigado Solli. Mas eu ainda não estou certo sobre o namespace &quot;pertencer&quot;<br>a mim: eu ainda não recebi um email com aprovação formal da escolha do<br>namespace. Como eu esperei quase uma semana depois de fazer o pedido antes
<br>de publicar o módulo e o próprio PAUSE incentivar a publicação do módulo,<br>eu resolvi arriscar.</blockquote><div><br>Sem querer ser&nbsp; bicudo, e já sendo, existe a possibilidade de vc mudar o namespace para MSSQL::DTS ? Assim eu poderia ajudar com os outros caras de SQL que eu tenho, o MSSQL::Jobs, MSSQL::Table, MSSQL::Index, MSSQL::Database.
<br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">&gt; Acho interessante abstrair toda esta complexidade, ao contrário do grande
<br>&gt; Nelson.<br><br>Foi com essa intenção que eu resolvi escrever o módulo. Internamente ele<br>faz todas as chamadas via Win32::OLE. Usando essa API eu consegui fazer<br>testes unitários de pacotes com poucas linhas de código, como o exemplo
<br>abaixo:<br><br>use DTS::Application;<br>use Test::More tests =&gt; 6;<br>use XML::Simple;<br><br>my $xml = XML::Simple-&gt;new();<br>my $config = $xml-&gt;XMLin(&#39;test-config.xml&#39;);<br><br>my $app = DTS::Application-&gt;new($config-&gt;{credential});
<br><br>my $package =<br>&nbsp;&nbsp;$app-&gt;get_db_package( { name =&gt; $config-&gt;{package} } );<br><br>ok( !$package-&gt;log_to_server, &#39;Log to SQL Server should be disable&#39; );<br>ok( defined( $package-&gt;get_log_file ), &#39;Log to flat file is enable&#39; );
<br>ok( !$package-&gt;use_event_log,<br>&nbsp;&nbsp;&nbsp;&nbsp;&#39;Write completation status on Event log should be disable&#39; );<br>ok(<br>&nbsp;&nbsp;&nbsp;&nbsp;$package-&gt;use_explicit_global_vars,<br>&nbsp;&nbsp;&nbsp;&nbsp;&#39;Global variable are explicit declared&#39;
<br>);<br>cmp_ok( $package-&gt;count_connections, &#39;&gt;=&#39;, 2,<br>&nbsp;&nbsp;&nbsp;&nbsp;&#39;Package must have at least two connections&#39; );<br>cmp_ok( $package-&gt;count_datapumps, &#39;&gt;=&#39;, 1,<br>&nbsp;&nbsp;&nbsp;&nbsp;&#39;Package must have at least one datapump task&#39; );
<br><br>Claro que as regras de testes são específicas. Não creio que seja possível<br>fazer testes genéricos, você teria que planejar com antecedência como o<br>pacote DTS deveria ser desenvolvido.<br><br>&gt; Este cara não pode ser executado via SQL ? Eu não tenho certeza, mas
<br>quando<br>&gt; eu estava desenvolvendo uns scripts de monitoramento de SQL, eu traduzi<br>&gt; todas API acessíveis via OLE para os comandos SQLs do MS SQL Server.<br>Talvez<br>&gt; seja possível fazer o mesmo com o DTS, e com isto portável !
<br><br>Sim, é possível executar pacotes DTS via procedures do SQL Server. Mas não<br>sei se é possível obter informações, alterar ou até mesmo criar em memória<br>um pacote DTS inteiro.</blockquote><div><br>Vou dar uma pequena olhada nisto este final de semana, se eu conseguir lhe aviso.
<br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Se isso for possível, então realmente isso pode se tornar portável. Mas eu<br>
não sei responder se o uso de COM não dá mais controle do que via<br>procedures (provavelmente sim, eu arriscaria dizer).<br><br>Esse aqui é um artigo bastante interessante sobre uso de Perl + DTS:<br><a href="http://www.oreillynet.com/pub/a/databases/2006/12/21/dts-imports.html">
http://www.oreillynet.com/pub/a/databases/2006/12/21/dts-imports.html</a>.<br><br>[]&#39;s<br>Alceu<br><br>--------------------------------------------------------------------<br><a href="http://mail2web.com">mail2web.com
</a> - Microsoft&reg; Exchange solutions from a leading provider -<br><a href="http://link.mail2web.com/Business/Exchange">http://link.mail2web.com/Business/Exchange</a><br><br><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br>