#!/usr/bin/perl
sub print_help{
print <<helpvege;
Usage: cvs_status [optons...] 

A parancs lefuttat egy cvs status -t, és alapból csak jelenti, hogy
mi nem up-to-date.

Options:
-a --ask          Megkérdezi, hogy futtasson-e cvs diff -t a fájlra, vagy hogy
                    behívja-e vim-be.
-h --help         Ez a help.

helpvege
exit;
}

$param_ask=0;
for($i=0;$i<@ARGV;$i++){
  $param=$ARGV[$i];
  do{print_help();next;} if ($param=~/--help$/i||$param=~/-h$/i);
  do{$param_ask=1;next} if ($param=~/--ask$/ || $param=~/-a$/);
}

open(IN,"cvs -Q status|");
$utolso_status="";
while(<IN>){
   if (/^File: (.*)\s+Status: (.*)/){
      $utolso_status=$2;
   }
   if (/Working revision:\s*(\d.*?)\s+/){
      $working_revision=$1;
   }
   if (/Repository revision:\s*(\d.*?)\s*(\/.*)/){
      $repository_revision=$1;
      $utolso_file=$2;
      $utolso_file=~s/.mnt.exports.cvs.//;
      $utolso_file=~s/,v//;
      if ($utolso_status ne "Up-to-date"){
        $file=$utolso_file;
        $file=~s/^ipe2\///;
        $file=~s/^projects\/[^\/]+\///;
        $message="$utolso_status ($working_revision/$repository_revision): $file\n";
         if ($param_ask == 0){
            print $message;
         }else{
            $tovabb=1;
            while($tovabb){
              print $message;
              print "Nyomj meg egy gombot: cvs (d)iff, (v)im, (s)kip, (u)pdate, (c)ommit (q)uit: ";
              system("stty raw");
              $in=getc(STDIN);
              system("stty -raw");
              print " ";
              if ($in eq 'v'){
                system("vim","$file");
              }
              if ($in eq 'd'){
                system("cvs","diff",$file);
              }
              if ($in eq 'u'){
                $tovabb=0;
                print "\n";
                system("cvs","update",$file);
              }
              if ($in eq 'c'){
                $tovabb=0;
                print "\nCommit megjegyzes: ";
                $message=<STDIN>;
                system("cvs","commit","-m",$message,$file);
              }
              if ($in eq 's'){
                $tovabb=0;
              }
              if ($in eq 'q'){
                close(IN);
                print "Exiting...\n";
                exit;
              }
              print "\n";
            }
         }
      }
   }
}