Alterando o To para o email do From voce estara enviando um email para quem recomendou o site assim voce pode enviar um email de agradecimento.
$email_admin = 'seusite@voce.com.br';
$assunto = "Coloque aqui o assunto da mensagem";
print MAIL "To: $eu\n";
print MAIL "From: $email_admin\n";
print MAIL "Subject: $assunto\n";
print MAIL "Content-Type: text/html\n\n";
print MAIL "<html><br>\n";
print MAIL "Viemos atravez deste agradecer a voce pode ter recomendado o nosso site. <br>Obrigado, $fields{send_name}<br><br>\n\n";
prix's Content
There have been 110 items by prix (Search limited from 05/06/2023)
#561596 Recomenda (birdcast.cgi) Ajuda Para
Posted by
on 30/03/2005, 08:57
in
Dúvidas sobre Scripts Prontos de CGI/Perl
#560834 Radio Ao Vivo - De Verdade ( Colocar Na Net )
Posted by
on 28/03/2005, 21:21
in
Dúvidas Gerais
Você pode fazer um servidor usando o winamp:OLá amigos ,
bom , tenho que colocar uma radio de verdade na internet.. ja sei que tenho que usar o canal de entrada da placa de som - eu so nao sei como eu faço par ao media player fazer o "servidor".. se alguem poder me ajudar.. ou entao outra tecnologia.. bom quem poder me ajudar.. me de um toque..
a radio tem conexao 2 horas com velox 768 - tem 256kbs de upload
http://www.shoutcast.com/download/
eh bem simples.
nesses endereço teram 3 opcoes,
be a listener = seja um ouvinte
be a dj = seja um reprodutor
be a server = seja um servidor
ele faz tudo como vc quer inclusive monta um pagina em html na porta q vc quiser falando o q ta rolando e com um link para abrir direto em algum player nao sei se eh so no winamp q abre mas acho q abre no media player tb
#560897 Radio Ao Vivo - De Verdade ( Colocar Na Net )
Posted by
on 29/03/2005, 00:27
in
Dúvidas Gerais
vc testou abrir o link do server no media player ou so leu o q eu escrevi ?
#637376 QueryString
Posted by
on 11/09/2005, 21:51
in
Artigos, Dicas e Tutoriais de CGI/Perl
eh so vc usar o codigo acima postado e pela url acessar o endereço index.cgi?pagina=cgi q ela ira abrir a nome.htm
sendo que o nome eh o que vem depois de pagina=
sendo que o nome eh o que vem depois de pagina=
#637685 QueryString
Posted by
on 12/09/2005, 16:26
in
Artigos, Dicas e Tutoriais de CGI/Perl
tem.
mude isso
if ($paginas eq "cgi") { # faz as comparações
open(A,"$paginas.html");
@pagina = <A>;
close(A);
print "@pagina";
para
if ($paginas eq "perl") { # faz as comparações
open(A,"cgi.html");
@pagina = <A>;
close(A);
print "@pagina";
mude isso
if ($paginas eq "cgi") { # faz as comparações
open(A,"$paginas.html");
@pagina = <A>;
close(A);
print "@pagina";
para
if ($paginas eq "perl") { # faz as comparações
open(A,"cgi.html");
@pagina = <A>;
close(A);
print "@pagina";
#637393 QueryString
Posted by
on 11/09/2005, 22:13
in
Artigos, Dicas e Tutoriais de CGI/Perl
nao entendi o que voce quis dizer tenta explicar um pouco melhor ou dar um exemplo do que quer.
#637352 QueryString
Posted by
on 11/09/2005, 21:04
in
Artigos, Dicas e Tutoriais de CGI/Perl
#!/usr/bin/perl
use CGI; # Carrega modulo cgi
$query = NEW CGI; # Cria a variavel do modulo
$paginas=$query->param('pagina'); # Cria a variavel
print "Content-type: text/html\n\n"; # Impressão
if ($paginas eq "cgi") { # faz as comparações
open(A,"$paginas.html");
@pagina = <A>;
close(A);
print "@pagina";
}elsif ($paginas eq "dicas") {
open(A,"$paginas.html");
@pagina = <A>;
close(A);
print "@pagina";
}else{ # Caso não digite nada
print " Por favor, escolha uma pagina!!!";
}
#568025 Problema Com Activeperl
Posted by
on 13/04/2005, 06:07
in
CGI/Perl
perguntas:
1. Por acaso voce tem algum firewall e/ou anti-virus rodando na maquina ?(ate mesmo o firewall to winxp ativo)
2. ja tentou instalar pelo modo de linha de comando(dos) ?
ref -> http://aspn.activest...20configuration
3. ja tentou atualizar o "Windows Installer 2.0+" ?
ref -> http://www.activeper...x?id=ActivePerl
1. Por acaso voce tem algum firewall e/ou anti-virus rodando na maquina ?(ate mesmo o firewall to winxp ativo)
2. ja tentou instalar pelo modo de linha de comando(dos) ?
ref -> http://aspn.activest...20configuration
3. ja tentou atualizar o "Windows Installer 2.0+" ?
ref -> http://www.activeper...x?id=ActivePerl
#577105 Preciso Ser Root?
Posted by
on 02/05/2005, 10:57
in
CGI/Perl
pra compilar seria gcc
gcc --help
gcc --help
#578917 Permições
Posted by
on 04/05/2005, 23:31
in
Servidores Linux
creio q isso seja devido ao apache usar um unico usuario nao tendo configurado suexec para os seus virtuais host.
ai ele faz o upload como o user e grupo do apache.
o certo seria dar cada virtual host com um user e grupo do proprio usuario.
creio possa ser isso.
ai ele faz o upload como o user e grupo do apache.
o certo seria dar cada virtual host com um user e grupo do proprio usuario.
creio possa ser isso.
#570940 Pegar O Que Tiver No Meio
Posted by
on 19/04/2005, 22:25
in
CGI/Perl
bom utilizando:
foreach $linhas (@dados) {
$linhas =~ s/<[a-zA-Z0-9=" ]+>//g;
$linhas =~ s/<\/[a-zA-Z0-9="]+>//g;
$linhas =~ s/\s+//;
print "$linhas\n";
}
voce consegue a impressao sem os inicios <> </> acho q dai da pra vc fazer o resto.
foreach $linhas (@dados) {
$linhas =~ s/<[a-zA-Z0-9=" ]+>//g;
$linhas =~ s/<\/[a-zA-Z0-9="]+>//g;
$linhas =~ s/\s+//;
print "$linhas\n";
}
voce consegue a impressao sem os inicios <> </> acho q dai da pra vc fazer o resto.
#571107 Pegar O Que Tiver No Meio
Posted by
on 20/04/2005, 11:30
in
CGI/Perl
pode se fazer assim tambem:
($conteudo) = ( $linhas =~ />(.*?)</ );
ou
($conteudo) = ( $linhas =~ />(.*?)<\/td>/ );
ele ira pegar o q tiver entre ><
creio q o segundo eh melhor pois restringe ao q finaliza com </td>
vc pode adicionar /i tb se preciso.
($conteudo) = ( $linhas =~ />(.*?)</ );
ou
($conteudo) = ( $linhas =~ />(.*?)<\/td>/ );
ele ira pegar o q tiver entre ><
creio q o segundo eh melhor pois restringe ao q finaliza com </td>
vc pode adicionar /i tb se preciso.
#586218 Pegando Dados Do Computador......
Posted by
on 19/05/2005, 12:28
in
PHP
o cadastro do ip so eh relacionado ao provedor no momento mas eles ja estao implementando, algumas classes por exemplo da aol, a aol nao fornece a localidade por questao etica entao ele pega somente de onde o link sai, ou seja de qual provedor da aol ele sai.
dando assim a localidade erronea.
Mas os liberados a cadastro na maioria das vezes exibe seu dados corretos.
dando assim a localidade erronea.
Mas os liberados a cadastro na maioria das vezes exibe seu dados corretos.
#586059 Pegando Dados Do Computador......
Posted by
on 19/05/2005, 01:42
in
PHP
Nao exatamente, os ips saem de um classe q eh de autonomia de um provedor o q o sistema faz eh cadastrar a base e relacionar ao provedore tendo a localidade entao o maximo q pode acontecer eh de o ip estar relacionado a um localidade erronea.Se não está imprimindo nada, talvez o seu ip não esteja no banco de dados do sistema.
O fato é que não existe maneira de se saber o pais de origem de um ip de forma automática. Então é criado um banco, onde se cadastram ip's e paises relacionados, porém nem todos os ips estão lá (alias, do Brasil, até onde eu vi a um tempo atrás, tem bem pouco).
O que dá pra fazer realmente é ter informações do browser do usuário, como versão, idioma, etc.
Mas todos sao cadastrados !
#637404 Pedido De Tutorial
Posted by
on 11/09/2005, 22:49
in
Artigos, Dicas e Tutoriais de CGI/Perl
------ Adicionar
------ Alterar
------ Ler
------ Apagar
#!/usr/bin/perl
require 'lib.pl';
print "Content-Type: text/html\n\n";
$nome = 'Jaum da roça';
&conectar;
$sth = $dbh->prepare(q{
INSERT INTO usuarios (nome) VALUES
});
$ref = $sth->execute($nome) || die print('Não foi possivel adicionar o usuário.');
&desconectar;
if ($ref == 1) {
print "usuario adicionado com sucesso";
} else {
print "não foi possivel adicionar o usuario";
}
------ Alterar
#!/usr/bin/perl
require 'lib.pl';
print "Content-Type: text/html\n\n";
$id = '00000001';
$nome_novo = 'Jaum da roça';
&conectar;
$sth = $dbh->prepare(q{
UPDATE usuarios SET nome = ? WHERE id = ? LIMIT 1
});
$ref = $sth->execute($nome_novo,$id) || die print('Não foi possivel alterar o usuário.');
&desconectar;
if ($ref == 1) {
print "usuario alterado com sucesso";
} else {
print "não foi possivel alterar o usuario";
}
------ Ler
#!/usr/bin/perl
require 'lib.pl';
print "Content-Type: text/html\n\n";
$id = '00000001';
&conectar;
$sth = $dbh->prepare(q{
SELECT nome FROM usuarios WHERE id = ?
});
$sth->execute($id) || die print('Não foi possivel conectar ao banco de dados para listar o usuario.');
$ref = $sth->fetch;
$nome = $ref->[0];
$sth->finish;
if ($nome ne '') {
print "$nome";
} else {
print "Usuario não existe ou id incorreta.";
}
print "<br><br><br>Ou<br><br><br>";
$sth = $dbh->prepare(q{
SELECT nome FROM usuarios ORDER BY id DESC
});
$sth->execute || die print('Não foi possivel conectar ao banco de dados para listar o usuario.');
$conta = 0;
while($ref = $sth->fetchrow_hashref()){
print "$ref->{'nome'}";
$conta++;}
if ($conta == 0) { print "Sem usuarios"; }
&desconectar;
------ Apagar
#!/usr/bin/perl
require 'lib.pl';
print "Content-Type: text/html\n\n";
$id = '00000001';
&conectar;
$sth = $dbh->prepare(q{
DELETE FROM usuarios WHERE id = ?
});
$ref = $sth->execute($id) || die print('Não foi possivel apagar o usuário.');
&desconectar;
if ($ref == 1) {
print "usuario apagado com sucesso";
} else {
print "não foi possivel apagar o usuario";
}
#637402 Pedido De Tutorial
Posted by
on 11/09/2005, 22:48
in
Artigos, Dicas e Tutoriais de CGI/Perl
Bom aqui nao eh bem um forum para fazer pedidos de tutoriais nao era mais para que os usuarios criarem e adicionarem aqui tutoriais. mas ai vai:
Acho que esses 2 arquivos abaixo não precisam de introdução neh ?
Acho que esses 2 arquivos abaixo não precisam de introdução neh ?
$database = 'nome_do_banco_de_dados';
$db_host = 'endereço_do_host_do_mysql';
$db_admin = 'nome_do_usuario_que_se_conecta_ao_banco_de_dados';
$db_senha = 'a_senha_do_usuario_acima_dito';
use DBI;
require 'db.pl';
sub conectar {
$dbh = DBI->connect("DBI:mysql:database=$database;host=$db_host","$db_admin","$db_senha")
|| die print('Não foi possivel abrir a conexão.');
}
sub desconectar {
$dbh->disconnect || die print('Não foi possivel terminar a conexão.');
}
#637466 Pedido De Tutorial
Posted by
on 12/09/2005, 09:23
in
Artigos, Dicas e Tutoriais de CGI/Perl
$sth = $dbh->prepare(q{
INSERT INTO usuarios (nome,email,cachorrinho,mulher) VALUES (?, ?, ?, ?)
});
sempre que criar uma tabela, adicione um campo a mais e sempre no 1 campo coloque o nome de id ou codigo ou algo do genero.
crie o primeiro campo como INT 5, unsigned zerofill, auto increment, primary key.
pois assim para todos os novos usuarios cadastrados uma nova ID sera gerada. e ela sera considera primaria.
-----------
nome, serva para voce adicionar o nome neh ?? como voce cria ou adiciona algo novo se nao tiver as informações para adicionar ??
$ref = $sth->execute($nome) || die print('Não foi possivel adicionar o usuário.');
no caso acima voce colocaria:
$ref = $sth->execute($nome,$email,$cachorrinho,$mulher) || die print('Não foi possivel adicionar o usuário.');
INSERT INTO usuarios (nome,email,cachorrinho,mulher) VALUES (?, ?, ?, ?)
});
sempre que criar uma tabela, adicione um campo a mais e sempre no 1 campo coloque o nome de id ou codigo ou algo do genero.
crie o primeiro campo como INT 5, unsigned zerofill, auto increment, primary key.
pois assim para todos os novos usuarios cadastrados uma nova ID sera gerada. e ela sera considera primaria.
-----------
nome, serva para voce adicionar o nome neh ?? como voce cria ou adiciona algo novo se nao tiver as informações para adicionar ??
$ref = $sth->execute($nome) || die print('Não foi possivel adicionar o usuário.');
no caso acima voce colocaria:
$ref = $sth->execute($nome,$email,$cachorrinho,$mulher) || die print('Não foi possivel adicionar o usuário.');
#653607 Passo A Passo Para Criar Um Sistema De Login
Posted by
on 22/10/2005, 22:20
in
CGI/Perl
se o seu cgi-bin eh um diretorio protegido mova os arquivos para la.
Como vou saber se o meu cgi-bin eh protegido ? envie um arquivo para la, e digite, www.seusite.com/cgi-bin/arquivo.zip e tente baixar o arquivo caso você nao consiga o seu cgi-bin eh protegido.
E como alguem vai fazer download entao ?
Simples faça o script renomear o arquivo e move-lo para uma pasta que o download funciona.
Faça o arquivo ficar la por tanto tempo.
E depois apague o arquivo.
Assim somente aquela pessoa sabera qual o nome do arquivo, e logo depois ele nao mais existira.
Acesso 1 ou 0 caso seja 1 o cara tem acesso aos downloads caso seja 0 ele nao tem.
O que eh o timestamp ?
timestamp eh o modo que o computador grava um evento sua data e hora
ex: 1130029823
Como gravar no banco de dados o ultimo valor em timestamp.
No codigo que você utiliza adicione na linha onde voce salva o banco de dados o seguinte:
$nome|$user|$pass|$acesso|$timestamp
E antes da linha que abre o banco de dados adicione:
$timestamp = time;
pS: como você esta neste exemplo utilizando TXT como banco de dados recomendo que mude para MYSQL ou que atribua para cada usuario uma ID e crie outro arquivo para salvar os dados de acesso para gerar a lista de usuarios online.
Pois se você tiver um numero de acesso muito grande isso pode destruir o seu banco de dados.
Como vou saber se o meu cgi-bin eh protegido ? envie um arquivo para la, e digite, www.seusite.com/cgi-bin/arquivo.zip e tente baixar o arquivo caso você nao consiga o seu cgi-bin eh protegido.
E como alguem vai fazer download entao ?
Simples faça o script renomear o arquivo e move-lo para uma pasta que o download funciona.
Faça o arquivo ficar la por tanto tempo.
E depois apague o arquivo.
Assim somente aquela pessoa sabera qual o nome do arquivo, e logo depois ele nao mais existira.
Gabriel|gabriel|password|acesso|timestamp
Nao sei quem|nao|sei|acesso|timestamp
Hahahaah|haha|uia|acesso|timestamp
Acesso 1 ou 0 caso seja 1 o cara tem acesso aos downloads caso seja 0 ele nao tem.
O que eh o timestamp ?
timestamp eh o modo que o computador grava um evento sua data e hora
ex: 1130029823
Como gravar no banco de dados o ultimo valor em timestamp.
No codigo que você utiliza adicione na linha onde voce salva o banco de dados o seguinte:
$nome|$user|$pass|$acesso|$timestamp
E antes da linha que abre o banco de dados adicione:
$timestamp = time;
#!/usr/bin/perl
open(USER, "users.dat");
@user=<USER>;
close(USER);
$u_online = 0;
$tempo = 500; # 500 significa o tempo em segundos, quem estiver inativo por mais de 500 segundos ira sair da listagem de usuarios online. voce pode alterar para o tempo q desejar.
foreach $usuarios (@user) {
($nome,$usuario,$senha,$acesso,$online) = split(/\|/,$usuarios);
chomp $online;
$diferenca = time-$online;
if (($diferenca < $tempo) && ($diferenca > 0)) { $u_online++; }
}
if ($u_online > 1) { $s = 's'; }
print "Content-Type: text/html\n\n";
print "Tempos um total de $u_online usuário$s online\n";
pS: como você esta neste exemplo utilizando TXT como banco de dados recomendo que mude para MYSQL ou que atribua para cada usuario uma ID e crie outro arquivo para salvar os dados de acesso para gerar a lista de usuarios online.
Pois se você tiver um numero de acesso muito grande isso pode destruir o seu banco de dados.
#654423 Passo A Passo Para Criar Um Sistema De Login
Posted by
on 25/10/2005, 16:14
in
CGI/Perl
corrigindo o amigo jgclnuma lan house, se duas pessoas entrarem nesse site, vão estar com o mesmo login, pois estão em uma rede com internet compartilhada, saca???
Eu entendi o caso do time, é uma boa e to pensando em implementar.teria uma pequena falha, pois se a pessoa estiver numa lan house como fica ? adiciona somente 1 pessoa?
entende ?
teria que ser por id ou nome do usuario para distinguir quem esta logado.
Mas eu não entendi sobre a lan house...como assim ?
O Script verifica se existe o usuario numa lista de usuarios...e existindo o usuario nessa lista, cria-se um segundo arquivo, contendo os usuários logados com seus ips.
então tem de alterar seu script pra destinguir as pessoas...
flw!!
numa lan house, se duas pessoas entrarem nesse site, vão estar com o mesmo login, pois estão em uma rede com internet compartilhada, saca???
Elas estarão com o mesmo IP
Entao se em vez de gravar o ip e no seu sistema onde você grava o usuario
você tivesse algo como o ID no inicio seria de mais facil controle em varios casos.
EXEMPLO:
arquivo de usuarios
ID|Hahahaah|haha|uia|acesso
OUTRAID|Hahahaah3|haha|uia|acesso
OUTRAID|Hahahaah4|haha|uia|acesso
arquivo de ultimos acessos
id|ip_do_usuario|acesso_total|timestamp
O que são as IDs ?
é um valor usado pra identificar ou interligar alguem ou alguma coisa a este valor.
Você pode usar o que quiser como id.
O mais padrão em uso em ids são numeros sequenciais.
exemplo
0000001|Hahahaah|haha|uia|acesso
0000002|Hahahaah|haha|uia|acesso
0000003|Hahahaah|haha|uia|acesso
0000004|Hahahaah|haha|uia|acesso
0000005|Hahahaah|haha|uia|acesso
0000006|Hahahaah|haha|uia|acesso
0000007|Hahahaah|haha|uia|acesso
Não esqueça que para o usuário continuar como online você tera que fazer um script para sempre que ele acessar ou atualizar uma pagina ele atualize o timestamp do arquivo em que grava os ultimos acessos
E você continua podendo manter o IP mantendo o ip você tem acesso a saber se ouve algum acesso irregular.
#654578 Passo A Passo Para Criar Um Sistema De Login
Posted by
on 26/10/2005, 01:22
in
CGI/Perl
nao interessa se eh lan house vc nao entendeu.
se do meu computador eu acessar 2 usuarios diferentes eu vou ter acesso.
no caso você teria que fazer um filtro e somente 1 ip poderia acessar por usuário e ai se vc tiver 2 usuarios diferentes usando 1 computador ao mesmo tempo, voce tem algo que não funcionaria como devido !
nao precisa do refresh basta colocar o codigo em cada script assim se ele estiver na pagina acessando outros locais ele aparece online se ele ficar inativo voce tira ele da lista ate ele acessar algo, e quando ele acessar ele volta na ativa.
se alguem fechar o navegador usando o X voce nao ira detectar.
o refresh nao ira ser efetuado.
se tiver algo que esteja em load constante em seu site java scripts nao irao funcionar para detectar o click no X de fechar e por ai vai.
Seria mais simples usar id, sessões e o ip. para ter segurança.
se do meu computador eu acessar 2 usuarios diferentes eu vou ter acesso.
no caso você teria que fazer um filtro e somente 1 ip poderia acessar por usuário e ai se vc tiver 2 usuarios diferentes usando 1 computador ao mesmo tempo, voce tem algo que não funcionaria como devido !
nao precisa do refresh basta colocar o codigo em cada script assim se ele estiver na pagina acessando outros locais ele aparece online se ele ficar inativo voce tira ele da lista ate ele acessar algo, e quando ele acessar ele volta na ativa.
se alguem fechar o navegador usando o X voce nao ira detectar.
o refresh nao ira ser efetuado.
se tiver algo que esteja em load constante em seu site java scripts nao irao funcionar para detectar o click no X de fechar e por ai vai.
Seria mais simples usar id, sessões e o ip. para ter segurança.
#653979 Passo A Passo Para Criar Um Sistema De Login
Posted by
on 24/10/2005, 13:10
in
CGI/Perl
teria uma pequena falha, pois se a pessoa estiver numa lan house como fica ? adiciona somente 1 pessoa?
entende ?
teria que ser por id ou nome do usuario para distinguir quem esta logado.
entende ?
teria que ser por id ou nome do usuario para distinguir quem esta logado.
#695762 O Que Significa O "-x" ?
Posted by
on 28/01/2006, 01:51
in
CGI/Perl
-x[directory] strip off text before #!perl line and perhaps cd to directory
em outras palavras pega o texto colocado (em e/ou antes) #! e entra no diretorio
coloquei em e/ou antes mas creio que seja exatamente o texto colocado em #! exemplo #!c:/teste
perl -h = mostra as opções que voce tem e o que fazem
em outras palavras pega o texto colocado (em e/ou antes) #! e entra no diretorio
coloquei em e/ou antes mas creio que seja exatamente o texto colocado em #! exemplo #!c:/teste
perl -h = mostra as opções que voce tem e o que fazem
#724545 Nome Para Site De Um Jogo De Crimes
Posted by
on 28/03/2006, 11:50
in
BrainStorm Desenvolvimento
osprocurados
hauhauahuahu
hauhauahuahu
#578265 Mysql
Posted by
on 03/05/2005, 21:45
in
PHP
Posto Fabrica
'Posto Fabrica' <= 10
tem espaço ... entao creio q vc tem q fazre assim ou colocar numa variavel
$z = 'Posto Fabrica';
$y = mysql_query("SELECT * FROM Tabela WHERE ($z <= 10)");
'Posto Fabrica' <= 10
tem espaço ... entao creio q vc tem q fazre assim ou colocar numa variavel
$z = 'Posto Fabrica';
$y = mysql_query("SELECT * FROM Tabela WHERE ($z <= 10)");
#672109 Localização Do Perl No Script
Posted by
on 13/12/2005, 17:49
in
CGI/Perl
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
