Governo pretende liberar cópia de músicas e de livros

Ainda não divulgada, a nova lei de Direitos Autorais, redigida pelo Ministério da Cultura, vai autorizar, pelo menos, duas práticas usuais dos jovens brasileiros. Pretende permitir, por exemplo, que os interessados em realizar fotocópias de um livro o façam da publicação completa e não apenas de pequenos trechos, como é hoje. Também vai criar uma forma legal de autorizar a cópia de músicas para aparelhos de MP3, o que hoje é ilegal e considerado pirataria.

Em entrevista ao iG, o diretor de Direitos Intelectuais do Ministério da Cultura, Marcos Alves, antecipou que o texto vai buscar o equilíbrio entre a proteção aos titulares das obras e o direito do cidadão de ter acesso à cultura. “Temos uma lei muito restritiva hoje e precisamos mudar isso”, afirma. “Um universitário que quer copiar um livro acaba incorrendo em crime se xeroca a publicação inteira”, avalia. Pela proposta, será permitida a cópia de livros e a livre utilização, desde que essa cópia seja para fins educacionais, não para a utilização econômica.

“O mesmo vale para alguém que comprar um CD de algum artista e o copia para MP3. Mesmo se a pessoas pagou pelo produto, se copiar a música na íntegra é pirata”, completa. Em ambos os casos, a solução apontada pelo Ministério da Cultura é semelhante. A ideia é fazer um fundo de reserva de recursos alimentado com taxação dos produtos. Ou seja, um percentual pago à copiadora iria para um fundo destinado a reembolsar os autores e as editoras.

O mesmo argumento serve para quem abastece os aparelhos de MP3. “Esses aparelhos servem principalmente para quem baixa músicas. Então podemos pensar em cobrar uma taxa em cada venda que serviria para os direitos autorais dos artistas e gravadoras”, afirma. De acordo com ele, as duas medidas necessitam de regulamentação específica, mas não devem onerar a venda dos produtos de forma significativa.

Para a Maria Cristina Barbato, da Ordem dos Músicos do Brasil (OMB), a proposta é positiva. “É fato que o músico não pode mais perder como ocorre hoje cada vez mais”, afirma. A OMB representa, apenas no estado de São Paulo, 50 mil músicos. “Hoje não há controle algum e cada um faz o que quer.”

A nova lei de Direitos Autorais está sendo elaborada desde 2007 e, nas próximas semanas, deve entrar em consulta pública antes de ser encaminhado ao Congresso. Havia a expectativa de que o texto fosse apresentado durante o 3º Congresso de Direito de Autor e Interesse Público, que ocorreu esta semana em São Paulo. Mas o governo manteve o suspense. “Estamos com os pontos centrais já bem costurados e devemos divulgá-lo em breve”, garante Alves.

No encontro, apenas um item ficou claro a todos. O Estado quer voltar a interferir no processo e vai criar o Instituto Brasileiro de Direito Autoral, espécie de agência reguladora que teria o poder de fiscalizar, por exemplo, o Escritório Central de Arrecadação e Distribuição (Ecad), que distribuiu, em 2008, R$ 270 milhões em direitos autorais.

Fonte: iG


ENVIE A MATÉRIA:

<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Governo pretende liberar cópia de músicas e de livros" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc911.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Pochmann: Governo pretende liberar cópia de músicas e de livros" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Governo pretende liberar cópia de músicas e de livros" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc911.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %>
<% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>
Seu nome:
Seu e-mail:
Para:
 
<% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>

Sua mensagem foi enviada com sucesso. <% End Sub %>