new replay name shorthand 'Nxxnxn' for date prefix of N days ago
[perl/schtarr.git] / new
1 #!/bin/sh
2
3 cd /var/log/pvpgn/reports
4 ls -tgG | head -n 5 | tail -n 4
5 read -ep 'report: ' report
6 if [ ! "$report" ]; then
7         report=$(ls -t | head -n 1)
8         echo "Report file unspecified; using $report"
9 fi
10 if [ ! -r "$report" ]; then
11         echo "Report file $report not found"
12 fi
13 cd - > /dev/null
14 echo
15
16 read -p 'replay name: ' name
17 if [ ! "$name" ]; then name=1x2; fi
18 case "$name" in
19 [0-9]*[a-z][a-z][1-9]x[1-9])
20         ago=${name:0:1}
21         name=${name:${#ago}}
22         name=$(date +%Y%m%d -d "$ago day ago")"$name"
23         echo "Only postfix specified; using $name"
24         ;;
25 [1-9]x[1-9])
26         name=$(date +%Y%m%d)"bn$name"
27         echo "Only postfix specified; using $name"
28         ;;
29 esac
30 echo
31
32 REPLAYPSET='shiar@shiar.demon.nl:sc.rep/replays/'
33 echo $REPLAYPSET
34 read -p 'replay location: ' replay
35 case "$replay" in
36 *.rep) ;;
37 1 | '')
38         replay="$REPLAYPSET/$name.rep"
39         echo "Using preset replay location $replay"
40         ;;
41 *)
42         replay="$replay/$name.rep"
43         echo Not ending in .rep; using $replay
44         ;;
45 esac
46 echo
47
48 cp -ip "/var/log/pvpgn/reports/$report" "../replay/$name.txt" || exit 1
49 case "$replay" in
50 http:*)
51         wget "$replay" -O "../replay/$name.rep"
52         ;;
53 *@* | *:*)
54         scp -p "$replay" "../replay/$name.rep" || exit 1
55         ;;
56 *)
57         cp -p "$replay" "../replay/$name.rep" || exit 1
58         ;;
59 esac
60
61 ./pvpgnreport ../replay/$name
62 ./screpextract ../replay/$name.rep | ./screp -a ../replay/$name.apm
63 read -p 'retype replay id? ' gameid
64 ./screpextract ../replay/$name.rep | ./screp -d $gameid
65
66 # UPDATE game SET speed = frames*.042 / extract('epoch' FROM COALESCE(duration, durationguess - '15 sec'));
67