#!/usr/bin/perl # # 2002/06/22 # muwi v0.4, the Mutella Web Interface # ======================================= # # Copyright (C) 2002, M.R. Pape # S. Ritterbusch # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # Find out about mutella at http://mutella.sourceforge.net/ # BEGIN { eval "use CGI::Carp qw(fatalsToBrowser)" if( $ENV{'REQUEST_METHOD'} ); } ######################################################################### # # include Configuration-File # ######################################################################### do "/var/www/.mutella/mutelladrc" or die "Can't read config file\n"; ######################################################################### # # NO NEED TO CHANGE ANYTHING BELOW # ######################################################################### # define Version my $Version="v0.4"; # get program name to use it later in the urls $0 =~ s|.*/||; use strict; use IO::Socket; use vars qw( $SockFile $FaviconPath $DownloadPath $ShowEvents $RepeatCommand $RepeatTime $PageBGColor $MenuBGColor $MenuBrdColor $CmdColor $LineColor1 $LineColor2 $SectionColor $TotalColor ); my $CMD; my $CmdOptions; # needed for "list -empty" or "list -auto" my %QS; my $LineColor = $LineColor1; my @ResponseFromMutella; if( ! $ENV{'REQUEST_METHOD'} ) { # Terminal $CMD = "@ARGV"; # show info if no CMD is given $CMD = "info" if ( ! $CMD ); &FullHelp if ( $CMD eq "fullhelp" ); &BuildOutput($CMD,0); } else { # Browser my $Data; # Read QUERY_STRING from GET or POST if( $ENV{'REQUEST_METHOD'} eq "GET" ) { $Data = $ENV{'QUERY_STRING'}; } else { read(STDIN, $Data, $ENV{'CONTENT_LENGTH'}); } # this is a typical request that the browser send #http://xxx/cgi-bin/muwi?query=something&minsize=100M&abssize=0&btn=Find #http://xxx/cgi-bin/muwi?query=something&btn=Command&minsize=0&abssize=0 # split QUERY_STRING Data and build the command my @KeyValuePair = split(/&/, $Data); foreach (@KeyValuePair) { my ($Key, $Value) = split(/=/, $_, 2); $Key =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; $Key =~ s/^[\s]*//; # strip leading spaces $Key =~ s/[\s]+$//; # strip spaces at the end $Value =~ tr/+/ /; $Value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; $Value =~ s///g; $Value =~ s/^[\s]*//; # strip leading spaces $Value =~ s/[\s]+$//; # strip spaces at the end # put QUERY_STRING in Hash %QS $QS{$Key} = $Value; } # generate $CMD which will be send to mutella. if( exists $QS{"CMD"} ) { $CMD = $QS{"CMD"}; # A link was pressed. $CMD .= " " .$QS{"nr"} if( exists $QS{"nr"} ); } else { if( $QS{"btn"} eq "Find" ) # The "Find" button was pressed. { $CMD = "find "; if( $QS{"query"} ne "" ) { $CMD .= $QS{"query"}; # There was something in the query. if ( $QS{"abssize"} eq "0" ) # Add "min:" or "size:" if requested. { $CMD .= " min:". $QS{"minsize"} if ( $QS{"minsize"} ne "0" ); } else { $CMD .= " size:". $QS{"abssize"}; } } else { $CMD="list"; # Find requests with empty query return list. } } elsif( $QS{"btn"} eq "Command" ) # The "Command" button was pressed. { $CMD = $QS{"query"}; } elsif( $QS{"btn"} eq "Move" ) # edit up/downloads in list. { $CMD = "move " . $QS{"nr"} ." ". $QS{"query"}; } elsif( $QS{"btn"} eq "Edit" ) { $CMD = "edit " . $QS{"nr"} ." ". $QS{"query"}; } elsif( $QS{"btn"} eq "Set" ) { $CMD = "set " . $QS{"var"} ." ". $QS{"query"}; } elsif( $QS{"btn"} eq "Dset" ) { $CMD = "dset " . $QS{"var"} ." ". $QS{"query"}; } else { $CMD = $QS{"query"}; } } # Browser # print goes to STDOUT, that means to the Browser # print html header print "Content-type: text/html\n\n" ,"\n" ,"\n" ,"Mutella Web Interface\n" ; print ''."\n" if ( $FaviconPath ); print "\n" ,"\n" ,"\n" ,"\n" ,"

Mutella Web Interface:

\n"; # the form things in a table print "
\n" ,'',"\n" ,'' ,'',"\n" ,'\n" ,"\n" ,'',"\n" ,'\n" ,"\n" ,"
' ,'' ,"
Filesize: min: ' ,'\n abs: " ,' bytes.' , '' ,"
\n" ," "; # define the Menu, use it later my $Menu=''."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" .''."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" ."\n" .''."\n" ."\n" ."
infoinfo downloadslibrarypartial downloadslow trafficsethelp 
searchesuser searchessearch hitsfinished downloadshigh trafficdsetfull help 
\n" ." \n"; print $Menu; print ''."\n"; # if CMD is empty make it to "info" to get some info! :) if ( ! $CMD ) { $CMD = "info"; } # catch "system" calls. DANGER. mutella's system command is not secure!!! # catch "color" cmds also. elsif ( $CMD =~ /^[\s]*\!/ || $CMD =~ /^[\s]*sy/ || $CMD =~ /\|/ || $CMD =~ /^[\s]*co/ ) { # show executed command in a colored line and a info msg print "\n" ,"\n" ,"\n"; $CMD=""; } # create "edit search in list" and "move up/download to new name" page elsif ( ( $QS{"CMD"} =~ /^ed/ || $QS{"CMD"} =~ /^m/ ) && exists $QS{"nr"} && exists $QS{"text"} ) { &ShowEditPage("search string","nr","text"); } # create "set" and "dset" change setting page elsif ( $QS{"CMD"} =~ /^[d]*set/ && exists $QS{"var"} && exists $QS{"val"} ) { &ShowEditPage("value","var","val"); } # Change 'list -empty' or 'list -auto' back to 'list', because we need the # right numbers when we prepend the commands in list -empty or -auto mode. # Later we have to do a regexp for auto|empty on QS{"query"} elsif ( $CMD =~ /^(?:l|li|lis|list) (-auto|-empty)/ ) { $CMD = "list"; $CmdOptions = $1; } # parse some user defined commands $CMD = "system ls -lhAto $DownloadPath/" if ( $CMD eq "showfinished" ); $CMD = "system ls -lhAS $DownloadPath/part" if ( $CMD eq "showpartial" ); $CMD = "set MaxConnections 3" if ( $CMD eq "lowtraffic" ); $CMD = "set MaxConnections 10" if ( $CMD eq "hightraffic" ); &FullHelp if ( $CMD eq "fullhelp" ); # do normal conversation with mutella &BuildOutput($CMD,0); # add suitable output to quite silent commands &BuildOutput("info",0) if ( $CMD =~ /^g/); # get file &BuildOutput("info",1) if ( $CMD =~ /^clo/); # close connection &BuildOutput("info",1) if ( $CMD =~ /^st/); # stop download &BuildOutput("info",1) if ( $CMD =~ /^k/); # kill download, erase file &BuildOutput("info",2) if ( $CMD =~ /^o/); # open connections &BuildOutput("info",0) if ( $CMD =~ /^m/); # move downloads &BuildOutput("info",0) if ( $CMD =~ /set MaxConnections/); &BuildOutput("info",5) if ( $CMD =~ /restart/); &BuildOutput("list",0) if ( $CMD =~ /^ed/); # edit search kriteria &BuildOutput("list",0) if ( $CMD =~ /^de/ ); # delete query &BuildOutput("list",5) if ( $CMD =~ /^f/ ); # find an query &BuildOutput("system df $DownloadPath",0) if ( $CMD =~ /^system ls -lh/ ); # print footer print "
$CMD

" 
           ,"Sorry. This command is not allowed in Muwi!" 
           ,"
 
\n" ,$Menu ,"
\n" ,"

\n" ,"This is $0 $Version. For comments or ideas contact " ,"muwi\@mr-pape.de
\n" ,"Get Mutella from " ,"http://mutella.sourceforge.net/.\n" ,"

\n" ,"
\n" ,"\n" ,""; } ############################################################################### # Subroutines ############################################################################### sub ShowEditPage { my $Subject = shift; my $Var = shift; my $Val = shift; $CMD = $QS{"CMD"}; print "$CMD\n" ; print "" ,"

Please change the $Subject in the entry.

\n" ,"

The old is: '"; if ( $CMD =~ /^([d])*set/ ) { print $QS{$Var} . " = " . $QS{$Val}; # set and dset } else { print $QS{$Val}; # move and edit } print "'
\n"; print "\n" ,''."\n" ,'\n" ,'\n" ,"

 \n"; print " \n"; $CMD=""; $CMD = $1 . "help " . $QS{$Var} if ( $QS{"CMD"} =~ /^([d])*set/ ); } sub FullHelp { # build list of commands to get help on, using "help" and "set" my @CommandList; foreach my $Cmd ("help", "set" , "dset") { # get response and parse it @ResponseFromMutella = &Response($Cmd); for ( my $i = 2; $i < $#ResponseFromMutella; $i++ ) { # here we need no colors! we just want the text! $_ = &RemoveAnsiColor($ResponseFromMutella[$i]); next if ( $_ =~ /========/ ); next if ( $Cmd eq "help" && $_ =~ /:/ ); # ignore xyz: lines next if ( $Cmd =~ /set/ && $_ =~ /\[/ ); # ignore [ xyz ] lines last if ( $_ =~ /^Event/ && $ShowEvents eq "false"); if ( $_ =~ /^[\s]*([\d\w!?]+) / ) { if ( $Cmd eq "dset" ) { push(@CommandList, "dhelp $1"); } else { push(@CommandList, "help $1"); } } else { last; } } } # display "fullhelp" head line if( ! $ENV{'REQUEST_METHOD'} ) { # Terminal print " fullhelp Here are the commands you can use with muwi & mutellad. dset Set the settings of mutellad. Use it like mutella's 'set'. dhelp Show some help on the the settings of mutellad. Use it like 'help'. fullhelp This shows help on all available commands from mutella and mutellad. Including set an dset. restart This restarts the mutellad. "; } else { # Browser print "fullhelp\n"; print "
"
           ,"muwi & mutellad internal commands
\n" ,"
"
           ,"dset\n"
           ,"    Set the settings of mutellad. Use it like mutella's \"set\".\n"
           ,"dhelp\n"
           ,"    Show some help on the the settings of mutellad. Use it like \"help\".\n\n"
           ,"fullhelp\n"
           ,"    shows help on all commands from mutella's \"help\" and \"set\".\n\n"
           ,"restart\n"
           ,"    restarts the mutellad\n"
           ,"
\n" ," \n"; } # request help .... on each element of the CommandList and parse it. for ( my $i; $i < $#CommandList; $i++ ) { &BuildOutput($CommandList[$i],0); # send request } $CMD = $CommandList[$#CommandList]; # send last command from list } sub Response { # do communication with mutella and return the answer my $CMD = shift; # CMD to send to mutella &OpenSocket; # call OpenSocket-Subroutine. print SOCKET "$CMD\n"; # send request return @ResponseFromMutella = ; # get response and return it close (SOCKET); } sub BuildOutput { my $CMD = shift; # CMD to send to mutella my $Sec = shift; # Give mutella some time to collect infos sleep $Sec if ( $Sec > 0); return if ( ! $CMD ); @ResponseFromMutella = &Response($CMD); # version of mutella from the first line of response my $MutellaVersion = shift @ResponseFromMutella || " "; chomp $MutellaVersion; # build output if( ! defined($ENV{'REQUEST_METHOD'}) ) { # Terminal # print response, version is allready stripped foreach (@ResponseFromMutella) { print $_; } print "\n"; } else { # Browser # go from line to line in the ResponseFromMutella. # version is allready stripped. my $Section; my $LastLineColor; my $comment=""; for (my $i=0; $i<=$#ResponseFromMutella; $i++) { # do all work on $_. The $_ line gets printed at end of routine. $_ = &RewriteColorAndChars($ResponseFromMutella[$i]); next if ( $_ =~ /----/ || $_ =~ /=====/ ); # ignore some lines last if ( $_ =~ /^Event/ && $ShowEvents eq "false"); $_ =~ s/\[|\]//g if ( $_ =~ /\[/ && $CMD !~ /set/ ); if ( $i == 0 ) { # show executed command in a colored line and set a anchor with the # first word of the command (for now only used at results) $_ =~ / ([^ ]*).*$/ ; print "" ,"$_ $CmdOptions\n"; next; } # if $_ isn't defined print white line. Not in fullhelp if ( ! $_ ) { next if ( $QS{"CMD"} =~ /set/ ); print " \n" if ( $QS{"CMD"} !~ /help/ ); next; } my $row; # text to show in a additional row my $inrow; # text to show in the actual row like "close" # color should only be changed for new section, number, etc. ###################################################################### # define different sections so they can be colorized if ( $_ =~ /^(network) horizon/ || # info $_ =~ /^(sockets)/ || # info $_ =~ /^(bandwidth)/ || # info $_ =~ /^gnutella network (connections)/ || # info $_ =~ /^(uploads):/ || # info $_ =~ /^(downloads):/ || # info $_ =~ /(Searches) in progress/ || # info $_ =~ /Current search (results)/ || # result $_ =~ /^(shared)/ || # library $_ =~ /^(Event)/ || $_ =~ /(\[ )/ # set ) { $Section = $1; $LineColor = $SectionColor; } # define some footer so they can be colorize with TotalColor elsif ( $_ =~ /total.*: / || $_ =~ /count:/ ) { $LineColor = $TotalColor; } # Show events in different color elsif( $Section eq "Event" && $_ !~ /^Event/ ) { $LineColor = $LineColor2; } # See if we are in a section that does't uses numbered lines. elsif( ( $Section eq "network" && $_ !~ /^network horizon/ ) || ( $Section eq "sockets" && $_ !~ /^sockets/ ) || ( $Section eq "bandwidth" && $_ !~ /^bandwidth/ ) || ( $Section eq "Event" && $_ !~ /^Event/ ) || ( $Section eq "[ " && $_ !~ /\[ / ) ) { &SwitchLineColor if ( $LastLineColor eq $LineColor ); } # See if we are in a section that uses numbered lines. Use them # to build links with commands, i.e. search " x)" elsif ( $_ =~ /^[\s]*(\d+)\)/ ) { my $Nr = $1; $_ =~ />[ `]*(.*)stop"; } elsif ( $Section eq "downloads" ) { # kill, stop, move $row = "" ."kill" ."stop"; if ( $MutellaVersion gt "0.3.3" ) { $row .= 'move"; } } elsif ( $Section eq "connections" ) { # close $inrow='close"; } elsif ( $Section eq "Searches" ) { # anchor, results, clear, edit, delete $row = "" .'results" .'clear"; if ( $MutellaVersion gt "0.3.3" ) { $row .= 'edit"; } $row .= 'delete"; } elsif ( $Section eq "results" ) { # get $inrow = 'get "; } } # add help to the "set" and "dset" commands for each entry if ( $CMD =~ /^(d)*set/ && $_ !~ /\[ / && # $Section ne "Event" && ! $QS{"btn"} # don't appy this if the (d)setbtn was pressed ) { my $d = $1; $_ =~ /[^>]*>\s*([a-zA-Z0-9]+) (?: # nicht lesende Gruppierung, zaehlt nicht als $2 <[^>]*> # matcht genau ein Tag ) # hier endet die Gruppierung ? # 0 oder 1 mal treffen. \s=\s(?:[^>]*>)?[`']*(.[^'<]*)/x ; # help, set, dhelp, dset $inrow = '". $d . "help" .'". $d . "set "; # $inrow .= "'$&'"; # $& shows the match !!! } # print the $_ line in the defined LineColor print ""; if ( $row ) { # test if given command was list -auto or list -empty, we then have # to output only the HITS or not the AUTOGET lines if ( ( $CmdOptions eq "-empty" && $ResponseFromMutella[$i+1] =~ /NO HITS/ ) or ( $CmdOptions eq "-auto" && $ResponseFromMutella[$i+1] =~ /SIZE:/ ) ) { $i++; undef $row; next; } # print commands in a extra row print "$row\n" if ( $row ); print "
$_
\n"; } elsif ( $inrow ) { # print with inrow $_ =~ s/ / /g; $_ =~ s/$inrow$_\n"; } else { # print normal rows print "
$_
\n"; } undef $row; undef $inrow; $LastLineColor = $LineColor; } # print empty line to split composed commands print " \n"; } } sub RewriteColorAndChars { $_ = shift; chomp $_; # remove return, because of 
   
   $_ =~ s/\/\>\;/g;         # change > to html >
   $_ =~ s/ä/\ä\;/g;
   $_ =~ s/Ä/\&Äuml\;/g;
   $_ =~ s/ö/\ö\;/g;
   $_ =~ s/Ö/\Ö\;/g;
   $_ =~ s/ü/\ü\;/g;
   $_ =~ s/Ü/\Ü\;/g;
   $_ =~ s/ß/\ß\;/g;
   
   
   $_ = "" . $_ . ""; 
   $_ =~ s/\x1b\[2;37;0m/<\/font>/g;
   $_ =~ s/\x1b\[31m/<\/font>/g;
   $_ =~ s/\x1b\[32m/<\/font>/g;
   $_ =~ s/\x1b\[33m/<\/font>/g;
   $_ =~ s/\x1b\[34m/<\/font>/g;
   $_ =~ s/\x1b\[35m/<\/font>/g;
   $_ =~ s/\x1b\[36m/<\/font>/g;  # darker cyan
   
   $_ =~ s/<\/font>//g;
   $_ =~ s/(.*?)<\/font>/$1/g;
   $_ =~ s/([ ]*)<\/font>/$1/g;
 
   $_ =~ s/\x1b\[1m(.*)/$1/g;
   $_ =~ s/\x1b\[1m//g;

   return $_;
}     


sub RemoveAnsiColor
{
   $_ = shift;
   $_ =~ s/\x1b\[[;\d\w]+?m//g; # remove ansi color from output
   return $_;
}


sub OpenSocket
{
   # Open SOCKET 
   socket(SOCKET, PF_UNIX, SOCK_STREAM, 0) 
      or die "\n$0 Can't connect to Socket\n";
   connect(SOCKET, sockaddr_un($SockFile)) 
      or die  "Bind to Socket failed\n";
   # TODO Change die Msg if htmloutput

   # unbuffered output of SOCKET
   select(SOCKET); $| = 1;
   select(STDOUT);
}  


sub SwitchLineColor
{
   if ( $LineColor eq $LineColor1 )
   {
      $LineColor = $LineColor2;
   }
   else
   {
      $LineColor = $LineColor1;
   }
}