CONFECOM aprova bandeiras históricas por consenso

A 1ª Conferência Nacional de Comunicação (Confecom) aprovou uma série de resoluções que se constituíram como bandeiras históricas das organizações e movimentos sociais ligados à luta pelo direito à comunicação e a democratização da mídia. Estas propostas se tornaram resolução ao receber mais de 80% de aprovação dos delegados em Grupos de Trabalho. Algumas aprovações chegam a surpreender, por serem pautas tradicionalmente rechaçadas pelo empresariado.

Veja algumas das propostas aprovadas:


- Criação de um Conselho Nacional de Comunicação com funções de monitoramento e também de deliberação acerca das políticas públicas do setor.
- Divisão do espectro radioelétrico obedecendo a proporção de 40% para o sistema público, 40% para o sistema privado e 20% para o sistema estatal.
- Reconhecimento do direito humano à comunicação como direito fundamental na Constituição Federal.
- Criação do Conselho Nacional de Comunicação, bem como dos conselhos estaduais, distrital e municipais, que funcionem com instâncias de formulação, deliberação e monitoramento de políticas de comunicações no país. Conselhos serão formados com garantia de ampla participação de todos os setores.
- Instalação de ouvidorias e serviços de atendimento ao cidadão por todos os concessionários.
- Incentivo à criação e manutenção de observatórios de mídia dentro das universidades públicas.
- Criação de fundo público para financiamento da produção independente, educacional e cultural.
- Estabelecimento de um marco civil da internet.
- Fundo de apoio às rádios comunitárias.
- Criminalização do "jabá".
- Criação de um operador de rede digital para as emissoras públicas gerido pela EBC.
- Estabelecer mecanismos de gestão da EBC que contem com uma participação maior da sociedade.
- Proibição da publicidade dirigida a menores de 12 anos.
- Desburocratização dos processos de autorização para rádios comunitárias.
- Que a Empresa Brasileira de Correios ofereça tarifas diferenciadas para pequenas empresas de comunicação.
- Garantir emissoras públicas que estão na TV por assinatura em canais abertos.
- Fim dos pacotes fechados na TV por assinatura.
- Manutenção de cota de telas para filmes nacionais.
- Adoção de critérios de mídia técnica para a divisão da publicidade governamental nas três esferas.
- Inclusão digital como política pública de Estado, que garanta acesso universal.
- Buscar a volta da exigência do diploma para exercício de jornalismo.
- Criação de Observatório de Mídia da Igualdade Racial.
- Aperfeiçoar as regras da classificação indicativa.

Da Redação, com informações do Observatório da Imprensa


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: CONFECOM aprova bandeiras históricas por consenso" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1000.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: CONFECOM aprova bandeiras históricas por consenso" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: CONFECOM aprova bandeiras históricas por consenso" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1000.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 %>