"Fossies" - the Fresh Open Source Software Archive

Member "namefix.pl/libs/cli/print.pm~" (12 Sep 2009, 2438 Bytes) of package /linux/privat/old/namefix.pl_4.0.2.tar.gz:

    1 use strict;
    2 use warnings;
    3 
    4 #--------------------------------------------------------------------------------------------------------------
    5 # cli print
    6 #--------------------------------------------------------------------------------------------------------------
    7 
    8 sub cli_print
    9 {
   10 	my $s1 = shift;
   11 	my $s2 = shift;
   12 
   13 	if(!$s2) { $s2 = $s1; }
   14 
   15 	my $art = "";
   16 	my $tit = "";
   17 	my $tra = "";
   18 	my $alb = "";
   19 	my $com = "";
   20 	my $gen = "";
   21 	my $year = "";
   22 
   23 	my $newart = "";
   24 	my $newtit = "";
   25 	my $newtra = "";
   26 	my $newalb = "";
   27 	my $newcom = "";
   28 	my $newgen = "";
   29 	my $newyear = "";
   30 
   31 	my $tmp = "";
   32 
   33 	&plog(3, "sub cli_print: \"$s1\", \"$s2\"");
   34 
   35 	if($s2 eq "<MSG>")
   36 	{
   37 		for(split(/\n/, $s1)
   38 		{
   39 			print "*** $_\n";
   40 		}
   41 		&html("<TR><TD colspan=4>$s1</TD></TR>");
   42 		return 1;
   43 	}
   44 
   45 	if($main::id3_mode == 1)
   46 	{
   47 		$art = shift;
   48 		$tit = shift;
   49 		$tra = shift;
   50 		$alb = shift;
   51 		$com = shift;
   52                 $gen = shift;
   53                 $year = shift;
   54 	}
   55 
   56 	# When renaming or previewing in id3 mode we will be sent the "after" id3 tags
   57 	if($main::id3_mode == 1 && $main::LISTING == 0) 
   58 	{
   59 		$newart = shift;
   60 		$newtit = shift;
   61 		$newtra = shift;
   62 		$newalb = shift;
   63 		$newcom = shift;
   64 		$newgen = shift;
   65 		$newyear = shift;
   66 	}
   67 
   68 	# normal listing
   69 
   70 	if(!$main::id3_mode)
   71 	{
   72 		print "old> $s1\nnew> $s2\n\n";
   73 		&html("<TR><TD  colspan=2 nowrap>$s1</TD><TD  colspan=2 nowrap>$s2</TD></TR>");
   74 		return 1;
   75 	}
   76 	else
   77 	{
   78 		print 	"old>\"$s1\"\nnew>\"$s2\"\n",
   79 			"\told-artist>$art\n\tnew-artist>$newart\n",
   80 			"\told-title>$tit\n\tnew-title>$newtit\n",
   81 			"\told-track>$tra\n\tnew-track>$newtra\n",
   82 			"\told-album>$alb\n\tnew-album>$newalb\n",
   83 			"\told-comment>$com\n\tnew-comment>$newcom\n",
   84 			"\told-genre>$gen\n\tnew-genre>$newgen\n",
   85 			"\told-year>$year\n\tnew-year>$newyear\n\n";
   86 
   87 $tmp="
   88 <TR>
   89 	<TD colspan=2 nowrap>$s1</TD>
   90 	<TD colspan=2 nowrap>$s2</TD></TR>
   91 <TR>
   92 	<TD>Artist</TD><TD>$art</TD>
   93 	<TD colspan=2>$newart</TD>
   94 </TR>
   95 <TR>
   96 	<TD>Title</TD><TD>$tit</TD>
   97 	<TD colspan=2>$newtit</TD>
   98 </TR>
   99 <TR>
  100 	<TD>Track</TD><TD>$tra</TD>
  101 	<TD colspan=2>$newtra</TD>
  102 </TR>
  103 <TR>
  104 	<TD>Album</TD><TD>$alb</TD>
  105 	<TD colspan=2>$newalb</TD>
  106 </TR>
  107 <TR>
  108 	<TD>Comment</TD><TD>$com</TD>
  109 	<TD colspan=2>$newcom</TD>
  110 </TR>
  111 <TR>
  112 	<TD>Genre</TD><TD>$gen</TD>
  113 	<TD colspan=2>$newgen</TD>
  114 </TR>
  115 <TR>
  116 	<TD>Year</TD><TD>$year</TD>
  117 	<TD colspan=2>$newyear</TD>
  118 </TR>
  119 <TR>
  120 	<TD colspan=4 align=center>***********</TD>
  121 </tr>
  122 ";
  123 
  124 		&html($tmp);
  125 
  126 		return 1;
  127 	}
  128 	return;
  129 
  130 }
  131 
  132 1;