Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- require LWP::UserAgent;
- my $server = "127.0.0.1:8000";
- my $titletext = "your alternate title here";
- $titletext =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
- my $ua = LWP::UserAgent->new;
- $ua->timeout(10);
- $ua->env_proxy;
- $ua->agent('Mozilla/5.0');
- my $i = 1;
- while ($i == 1) {
- my $url2 = "http://".$server."/admin.cgi?pass=<passwordhere>&mode=updinfo&song=".$titletext;
- $ua->get($url2);
- sleep 120;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement