├── chshm ├── Makefile └── chshm.c ├── scripts ├── monitor_winshare_diskusage.py ├── sort_ip.pl ├── progressbar.py ├── au.pac ├── print_env.sh ├── fail2ban-stat.pl ├── sum_size.pl ├── download_book.py ├── who_attach_shm.pl ├── tcurl.pl ├── smart_kill.pl ├── bomcheck.pl ├── monitor_fs.py ├── find.pl ├── udp_drop.pl ├── webrobot.pl ├── trace_call.pl ├── install-kernel-dev.sh └── xmysqldump.pl ├── ActionCenter ├── web │ └── actioncenter │ │ ├── logout.php │ │ ├── images │ │ ├── button-bg.png │ │ └── login-page-bg.jpg │ │ ├── check_login.inc.php │ │ ├── config.php │ │ ├── main.php │ │ ├── index.php │ │ ├── nav.php │ │ ├── css │ │ ├── style1.css │ │ └── style.css │ │ ├── action_list.php │ │ ├── action_do.php │ │ ├── action_status.php │ │ ├── User.php │ │ └── login.php ├── actiond.cfg ├── Readme.txt ├── actiond.init ├── ActionCenter.sql └── actiond ├── README.md ├── c ├── send_udp.c ├── qdisc_stats.c └── ptyexec.c └── LICENSE /chshm/Makefile: -------------------------------------------------------------------------------- 1 | all: 2 | cc -o chshm chshm.c 3 | -------------------------------------------------------------------------------- /scripts/monitor_winshare_diskusage.py: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/curu/linuxplayer/HEAD/scripts/monitor_winshare_diskusage.py -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/logout.php: -------------------------------------------------------------------------------- 1 | 8 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/images/button-bg.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/curu/linuxplayer/HEAD/ActionCenter/web/actioncenter/images/button-bg.png -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/images/login-page-bg.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/curu/linuxplayer/HEAD/ActionCenter/web/actioncenter/images/login-page-bg.jpg -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | linuxplayer 2 | =========== 3 | 4 | Curu Wong's programming scripts, technical documents and notes on linux. 5 | 6 | Most of the code/doc here is referred to on my blog http://linuxplayer.org 7 | 8 | -------------------------------------------------------------------------------- /ActionCenter/actiond.cfg: -------------------------------------------------------------------------------- 1 | db_user = 'actionadmin' 2 | db_pass = 'the.passwd*_*' 3 | db_name = 'action_center' 4 | 5 | #where action scripts are kept 6 | script_path = '/usr/local/actioncenter' 7 | 8 | #mail configuration, error message will be sent out by email 9 | fromAddr = 'actioncenter@localhost' 10 | fromName = 'ActionCenter' 11 | toAddr = 'root' 12 | subject = 'Action executing error' 13 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/check_login.inc.php: -------------------------------------------------------------------------------- 1 | 10 | if(window.top != window.self){ 11 | window.top.location.href = location 12 | } 13 | 14 | EOF; 15 | die('ACCESS DENIED!'); 16 | } 17 | 18 | ?> 19 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/config.php: -------------------------------------------------------------------------------- 1 | 14 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/main.php: -------------------------------------------------------------------------------- 1 | 7 | 8 | 9 | 10 |


11 | realname ? $user->realname : $user->username; 14 | echo "Welcome, $who !"; 15 | ?> 16 |

17 | 18 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/index.php: -------------------------------------------------------------------------------- 1 | 10 | 11 | 12 | Action Center 13 | 14 | 15 | 18 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /scripts/sort_ip.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | 3 | #Two way to sort IP address 4 | 5 | my @ip = qw(192.168.100.1 192.168.1.100 192.168.1.254 8.8.8.8); 6 | # 1st way 7 | sub by_ip{ 8 | pack('C4'=> (split /\./, $a)) 9 | cmp 10 | pack('C4'=> (split /\./, $b)); 11 | } 12 | my @ip_sorted = sort by_ip @ip; 13 | 14 | print "using pack function:\n"; 15 | print join("\n", @ip_sorted),"\n\n"; 16 | 17 | # 2nd way 18 | use Socket; 19 | @ip_sorted = sort { inet_aton($a) cmp inet_aton($b) } @ip; 20 | 21 | print "using inet_aton:\n"; 22 | print join("\n", @ip_sorted),"\n"; -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/nav.php: -------------------------------------------------------------------------------- 1 | 4 | 5 | 6 | 20 | 21 |
22 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /scripts/progressbar.py: -------------------------------------------------------------------------------- 1 | #!/usr/bin/python 2 | ########################################## 3 | # a very simple console progress bar 4 | # Author: Curu Wong 5 | # Date: 2012-11-08 6 | # License: GPL V2 7 | ########################################## 8 | import sys 9 | import time 10 | 11 | class ProcessBar: 12 | def __init__(self, bar_width=70): 13 | self.bar_width = bar_width 14 | 15 | def show_progress(self, progress): 16 | prog_width = int(progress*self.bar_width) 17 | prog_format = "%3d%% [%-" + str(self.bar_width) + "s]" 18 | sys.stdout.write(chr(0x0d)) 19 | sys.stdout.write(prog_format % (int(progress*100), prog_width *'=')) 20 | sys.stdout.flush() 21 | 22 | if __name__ == "__main__": 23 | bar = ProcessBar(30); 24 | print "caculating, please wait..." 25 | for i in range(100): 26 | progress = i / (100 - 1.0) 27 | bar.show_progress(progress) 28 | time.sleep(0.01) 29 | print 30 | -------------------------------------------------------------------------------- /ActionCenter/Readme.txt: -------------------------------------------------------------------------------- 1 | ActionCenter 2 | let non-technical user take the action, set sys administrators free from trivia 3 | 4 | by Curu Wong, originally wrote for Pineapple Design Limited 5 | 6 | system structure: 7 | * A web interface, enable user to submit action task to the database 8 | * A daemon running in the background, query the database frequently to fetch new task. 9 | 10 | files: 11 | actiond: the daemon 12 | actiond.init: sys-v init script to start/stop the daemon 13 | ActionCenter.sql: database structure 14 | web/actioncenter: frontend web interface 15 | 16 | Install: 17 | 1. install the daemon 18 | mkdir /usr/local/actioncenter 19 | chmod +x actiond 20 | cp actiond* /usr/local/actioncenter 21 | chmod +x actiond.init 22 | cp actiond.init /etc/init.d/actiond 23 | 24 | 2. install the interface 25 | cp -a web/actioncenter /var/www/html/actioncenter 26 | 27 | 3. create database and user 28 | then import ActionCenter.sql to the db 29 | 30 | Configuration: 31 | for daemon, edit actiond.cfg 32 | for web interface, edit config.php 33 | 34 | -------------------------------------------------------------------------------- /scripts/au.pac: -------------------------------------------------------------------------------- 1 | var proxy = "192.168.1.254:3128"; 2 | 3 | //[network, netmask] 4 | var networks = [ 5 | ['192.168.1.0', '255.255.255.0'] 6 | ]; 7 | 8 | var domains = [ 9 | '.facebook.com', 10 | '.fbcdn.net', 11 | 'twitter.com', 12 | '.twimg.com', 13 | '.mail-archive.com', 14 | '.blogspot.com', 15 | '.google.com', 16 | '.google.com.hk', 17 | '.googleusercontent.com', 18 | '.feedburner.com' 19 | ]; 20 | 21 | function FindProxyForURL(url, host) { 22 | 23 | // If URL has no dots in host name, send traffic direct. 24 | if (isPlainHostName(host)) 25 | return "DIRECT"; 26 | 27 | // proxy by IP address 28 | var targetIP = dnsResolve(host); 29 | for(var i =0; i < networks.length; i++){ 30 | if(isInNet(targetIP, networks[i][0], networks[i][1])){ 31 | return "PROXY " + proxy; 32 | } 33 | } 34 | // proxy by domain name 35 | for (var i = 0; i < domains.length; i++){ 36 | if(dnsDomainIs(host, domains[i])){ 37 | return "PROXY " + proxy; 38 | } 39 | } 40 | return "DIRECT"; 41 | 42 | } 43 | 44 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/css/style1.css: -------------------------------------------------------------------------------- 1 | * { margin: 0; padding: 0; } 2 | body { font-family: Georgia, serif; background: url(../images/login-page-bg.jpg) top center no-repeat #c4c4c4; color: #3a3a3a; } 3 | 4 | .clear { clear: both; } 5 | 6 | form { width: 406px; margin: 170px auto 0; } 7 | 8 | legend { display: none; } 9 | 10 | fieldset { border: 0; } 11 | 12 | label { width: 115px; text-align: right; float: left; margin: 0 10px 0 0; padding: 9px 0 0 0; font-size: 16px; } 13 | 14 | input { 15 | width: 220px; 16 | display: block; 17 | padding: 4px; 18 | margin: 0 0 10px 0; 19 | font-size: 18px; 20 | color: #3a3a3a; 21 | font-family: Georgia, serif; 22 | } 23 | input[type=checkbox]{ width: 20px; margin: 0; display: inline-block; } 24 | 25 | .button { background: url(images/button-bg.png) repeat-x top center; border: 1px solid #999; 26 | -moz-border-radius: 5px; padding: 5px; color: black; font-weight: bold; 27 | -webkit-border-radius: 5px; font-size: 13px; width: 70px; } 28 | .button:hover { background: white; color: black; } 29 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/css/style.css: -------------------------------------------------------------------------------- 1 | @CHARSET "UTF-8"; 2 | 3 | body { 4 | font-family: Georgia, serif; 5 | } 6 | 7 | .login_bg { 8 | background: url(../images/login-page-bg.jpg) top center no-repeat #c4c4c4; 9 | color: #3a3a3a; 10 | } 11 | 12 | .record_table { 13 | font-family: Arial, sans-serif; 14 | font-size: 12px; 15 | margin: 10px; 16 | text-align: left; 17 | border-collapse: collapse; 18 | border: 1px solid #69c; 19 | } 20 | 21 | .record_table th { 22 | text-align: left; 23 | padding: 5px; 24 | font-weight: normal; 25 | font-size: 14px; 26 | color: #039; 27 | border-bottom: 1px dashed #69c; 28 | } 29 | 30 | .record_table td { 31 | padding: 5px; 32 | color: #669; 33 | border-left: 1px solid #69c; 34 | border-collapse: collapse; 35 | } 36 | .record_table td.first-child { 37 | font-style: bold; 38 | } 39 | .record_table tbody tr:hover td { 40 | color: #339; 41 | background: #d0dafd; 42 | } 43 | 44 | label.error { 45 | font-style: italic; 46 | color: red; 47 | } 48 | 49 | input.error { 50 | border: 1px dotted red; 51 | } 52 | 53 | .text_guide { 54 | padding: 5px; 55 | } 56 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/action_list.php: -------------------------------------------------------------------------------- 1 | 8 | 9 | 10 | Action Center - Action list 11 | 12 | 13 | 14 | num_rows == 0): ?> 15 |

No action available to you

16 | 17 | 18 | 19 | 20 | 21 | 22 | fetch_assoc ()) != false ) : 24 | printf("\n"); 25 | printf('', $row['name']); 26 | printf('', $row['description']); 27 | printf('', $row['id']); 28 | printf("\n\n"); 29 | endwhile; 30 | ?> 31 | 32 |
ActionDescriptionExecute
%s%sExecute
33 | 34 | 35 | -------------------------------------------------------------------------------- /scripts/print_env.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | ########################################## 3 | # print_env.sh: print environment variable of a running process 4 | # 5 | # note: 6 | # this script requires glibc debug symbol, so you need either: 7 | # * for static built binary, need to compile with glibc debug info 8 | # * for dynamic link binary, need to install glibc-debuginfo 9 | # 10 | # Author: Curu Wong 11 | # Date: 2016-05-07 12 | ########################################## 13 | pid=$1 14 | if [[ -z "$pid" ]]; then 15 | echo "Usage: $0 pid" 16 | exit 1 17 | fi 18 | gdb_output=$( 19 | gdb -q -p $pid 2>/dev/null <<'EOF' 20 | set $i=0 21 | define print_env 22 | while 1 23 | if environ[$i] == 0 24 | loop_break 25 | else 26 | if $i == 0 27 | printf "\n==BEGIN\n" 28 | end 29 | printf "%s\n", environ[$i] 30 | end 31 | set $i = $i + 1 32 | end 33 | end 34 | print_env 35 | printf "==END\n" 36 | EOF 37 | ) 38 | 39 | echo "$gdb_output" | sed -ne '/==BEGIN/,/==END/ p' | sed -re '/BEGIN|END/ d' 40 | -------------------------------------------------------------------------------- /ActionCenter/actiond.init: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # chkconfig: 35 99 1 3 | # description: ActionCenter Daemon 4 | # processname: actiond 5 | # pidfile: /var/run/actiond.pid 6 | 7 | #source function library 8 | . /etc/init.d/functions 9 | 10 | prog=actiond 11 | script_path="/usr/local/actioncenter/" 12 | pidfile=/var/run/$prog.pid 13 | 14 | start() { 15 | echo -n "Starting $prog: " 16 | cd $script_path 17 | daemon $prog 18 | RETVAL=$? 19 | echo 20 | [ $RETVAL -eq 0 ] && touch /var/lock/subsys/$prog 21 | return $RETVAL 22 | } 23 | 24 | stop() { 25 | echo -n "Stoping $prog: " 26 | killproc -p $pidfile $prog 27 | RETVAL=$? 28 | echo 29 | [ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/$prog 30 | return $RETVAL 31 | } 32 | 33 | reload(){ 34 | echo -n "Reloading $prog: " 35 | killproc -p $pidfile $prog -HUP 36 | RETVAL=$? 37 | echo 38 | return $RETVAL 39 | } 40 | 41 | case "$1" in 42 | start) 43 | start 44 | ;; 45 | stop) 46 | stop 47 | ;; 48 | status) 49 | status -p $pidfile $prog 50 | ;; 51 | reload) 52 | reload 53 | ;; 54 | restart) 55 | stop 56 | start 57 | ;; 58 | *) 59 | echo "Usage: $prog {start|stop|status|reload|restart}" 60 | exit 1 61 | ;; 62 | esac 63 | 64 | exit $? 65 | 66 | -------------------------------------------------------------------------------- /scripts/fail2ban-stat.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ############################################### 3 | # fail2ban-stat.pl Display fail2ban statistics 4 | # by Curu Wong http://www.linuxplayer.org 5 | ############################################### 6 | use strict; 7 | use warnings; 8 | 9 | my $ban_logfile = "/var/log/fail2ban.log"; 10 | open(my $LOG_FILE, "<", $ban_logfile) or die "Failed to open file '$ban_logfile' : $!"; 11 | my %ban = (); 12 | while(my $line = <$LOG_FILE>){ 13 | next unless $line =~ /\bBan\b/; 14 | chomp($line); 15 | my @fields = split /\s+/, $line; 16 | my $date = $fields[0]; 17 | my $time = (split /,/,$fields[1])[0]; 18 | (my $filter = $fields[4]) =~ s/^\[|\]$//g; 19 | my $service = (split /-/, $filter)[0]; 20 | my $ip = $fields[$#fields]; 21 | $ban{$date}{$service} = [] unless defined($ban{$date}{$service}); 22 | push(@{$ban{$date}->{$service}},$ip); 23 | } 24 | 25 | close($LOG_FILE); 26 | my $indent = " " x 4; 27 | for my $date (sort keys %ban){ 28 | my @services = sort keys %{$ban{$date}}; 29 | print "$date\n"; 30 | for my $s (@services){ 31 | my @ip = @{$ban{$date}->{$s}}; 32 | print $indent; 33 | printf "%s: %d IP banned\n", $s, scalar @ip; 34 | for my $ip (@ip){ 35 | print $indent x 2; 36 | print "$ip\n"; 37 | } 38 | } 39 | } 40 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/action_do.php: -------------------------------------------------------------------------------- 1 | num_rows){ 12 | $error_msg = "

You don't have right to execute this action!

"; 13 | } 14 | //submit action 15 | $sql_submit = sprintf('INSERT INTO `history` (`action_id`, `user_id`) ' 16 | . 'VALUES (%d, %d )', $action_id, $_SESSION['uid']); 17 | $result = mysqli_query ( $GLOBALS ['mysqli'], $sql_submit ); 18 | if(!$result){ 19 | $error_msg = "

Action submit failed: DB error

"; 20 | }else{ 21 | $task_id = mysqli_insert_id($GLOBALS['mysqli']); 22 | header("Location: action_status.php?taskid=$task_id"); 23 | } 24 | ?> 25 | 26 | 27 | Action Center - Execute action 28 | 29 | 30 | 31 | 32 |
33 | 34 | 35 | -------------------------------------------------------------------------------- /scripts/sum_size.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ######################################################################### 3 | ##sum_size.pl: caculate the total size of the files/directories from STDIN 4 | ## or command line 5 | ##usage: find /data -iname '*.tmp' | sum_size.pl 6 | ## sum_size.pl /usr/share/man* 7 | ##Author: Curu Wong 8 | ##Date: 2012-01-06 9 | ##License: GPL v2 10 | ######################################################################### 11 | use File::Find; 12 | 13 | sub beauty_size{ 14 | my $size = shift; 15 | my $k = 2**10; 16 | my $m = 2**20; 17 | my $g = 2**30; 18 | my $r; 19 | if($size >= $g ){ 20 | $r = sprintf "%.2fG", $size /$g; 21 | }elsif($size >= $m){ 22 | $r = sprintf "%.2fM", $size /$m; 23 | }elsif($size >= $k){ 24 | $r = sprintf "%.2fK", $size /$k; 25 | }else{ 26 | $r = $size; 27 | } 28 | return $r; 29 | } 30 | 31 | sub sum_dir{ 32 | my $dir = shift; 33 | my $total; 34 | my %options = (no_chdir => 1 , 35 | wanted => sub { $total += ( -s $_ )} 36 | ); 37 | find(\%options, $dir); 38 | return $total; 39 | } 40 | 41 | my $total = 0; 42 | 43 | if(@ARGV){ 44 | for my $file (@ARGV){ 45 | next unless -e $file; 46 | if(-d $file){ 47 | $total += sum_dir($file); 48 | }else{ 49 | my $size = -s $file; 50 | $total += $size; 51 | } 52 | } 53 | } 54 | else{ 55 | while(my $file = <>){ 56 | chomp $file; 57 | next unless -e $file; 58 | my $size = -s $file; 59 | $total += $size; 60 | } 61 | } 62 | printf "size total: %s\n",beauty_size($total); 63 | 64 | 65 | -------------------------------------------------------------------------------- /scripts/download_book.py: -------------------------------------------------------------------------------- 1 | #!/usr/bin/python 2 | import os,sys,time 3 | import lxml.html 4 | import urlparse 5 | 6 | time_start = time.time() 7 | book_url = 'http://www.xysa.com/xysafz/book/quansongci/t-index.htm' 8 | save_dir = 'book' 9 | 10 | if not os.path.exists(save_dir): 11 | os.mkdir(save_dir) 12 | 13 | html = lxml.html.parse(book_url) 14 | authors = html.xpath('//table[@id="table3"]/tr/td/a') 15 | i = 0 16 | for author in authors: 17 | name = author.text.encode('utf-8') 18 | url = author.attrib['href'] 19 | url = urlparse.urljoin(book_url, url) 20 | #remove posible / from filename 21 | name = name.replace('/','_') 22 | i+=1 23 | f_name = os.path.join(save_dir,'%04d_%s.txt' % (i,name)) 24 | if os.path.exists(f_name): 25 | continue 26 | try: 27 | f = open(f_name, 'w') 28 | print "Downloading article of %s from %s" % (name, url) 29 | author_html = lxml.html.parse(url) 30 | content = author_html.xpath('//table[@id="table4"]/tr/td')[0] 31 | for c in content: 32 | if c.text: 33 | text = c.text.encode('utf-8').strip() 34 | f.write(text) 35 | if text != '': f.write('\n\n') 36 | if c.tail: 37 | text = c.tail.encode('utf-8').strip() 38 | f.write(text) 39 | if text != '': f.write('\n') 40 | f.close() 41 | except IOError as (errno,errstr): 42 | sys.stderr.write('error downloading %s: %s\n' %(f_name,errstr)) 43 | 44 | time_end = time.time() 45 | print "*" * 80 46 | print "%d files downloaded in total,time spent %d seconds" % (len(authors),time_end - time_start) 47 | print "*" * 80 48 | -------------------------------------------------------------------------------- /c/send_udp.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | #include 5 | #include 6 | #include 7 | #include 8 | #include 9 | #include 10 | #include 11 | 12 | int main(int argc, char **argv) 13 | { 14 | int pkt_size = 1024; 15 | uint32_t pkt_count, time_cost; 16 | int sockfd, ret; 17 | struct sockaddr_in servaddr; 18 | struct timeval t_begin, t_end; 19 | 20 | 21 | char *pkt; 22 | 23 | if (argc < 5) 24 | { 25 | printf("Usage: %s \n", argv[0]); 26 | exit(1); 27 | } 28 | 29 | sockfd=socket(AF_INET,SOCK_DGRAM,0); 30 | bzero(&servaddr,sizeof(servaddr)); 31 | servaddr.sin_family = AF_INET; 32 | servaddr.sin_addr.s_addr=inet_addr(argv[1]); 33 | servaddr.sin_port=htons(strtoul(argv[2], 0,0)); 34 | 35 | pkt_size = strtoul(argv[3], 0, 0); 36 | pkt_size = pkt_size ? pkt_size : 1; 37 | pkt = malloc(pkt_size); 38 | 39 | pkt_count = strtoul(argv[4], 0, 0); 40 | 41 | printf("Sending %u package of size %d to %s:%s\n", 42 | pkt_count, pkt_size, argv[1], argv[2]); 43 | 44 | gettimeofday(&t_begin, NULL); 45 | int i = 0; 46 | while (i < pkt_count) 47 | { 48 | ret = sendto(sockfd,pkt,pkt_size,0, (struct sockaddr *)&servaddr,sizeof(servaddr)); 49 | if (ret < 0){ 50 | perror("Error: sendto"); 51 | break; 52 | } 53 | i++; 54 | 55 | } 56 | free(pkt); 57 | gettimeofday(&t_end, NULL); 58 | 59 | time_cost = (t_end.tv_sec*1000000 + t_end.tv_usec) - (t_begin.tv_sec*1000000 + t_begin.tv_usec); 60 | printf("Sent %u packet in %d.%d seconds\n", i, 61 | time_cost/1000000, 62 | time_cost%1000000); 63 | } 64 | -------------------------------------------------------------------------------- /scripts/who_attach_shm.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ################################################################### 3 | #who_attach_shm.pl: list shared memory keys and attaching program 4 | # 5 | #Author: Curu Wong 6 | #Date: 2013-04-04 7 | #License: GPL v3 8 | ################################################################### 9 | use strict; 10 | use warnings; 11 | 12 | use File::Glob ':glob'; 13 | 14 | our %process_of_shm = (); 15 | our %shm_of_process = (); 16 | 17 | #parse /prc/[pid]/maps for shm usage 18 | for my $proc_map (bsd_glob('/proc/[1-9]*/maps')){ 19 | my $pid = (split /\//, $proc_map )[2]; 20 | open(my $fh, "<", $proc_map) or die "unable to open '$proc_map':$!"; 21 | while(<$fh>){ 22 | my $shm_key = $1 if $_ =~ m:\s+/SYSV(\S+):; 23 | if($shm_key){ 24 | $shm_key = "0x$shm_key"; 25 | my $exec = readlink("/proc/$pid/exe"); 26 | push @{ $process_of_shm{$shm_key} }, $exec; 27 | } 28 | } 29 | close($fh); 30 | } 31 | 32 | print "#" x 80, "\n"; 33 | print "shm attach process list, group by shm key\n"; 34 | print "#" x 80, "\n\n"; 35 | for my $shm (sort {hex($a) <=> hex($b) } keys %process_of_shm){ 36 | print "$shm: "; 37 | my @processes = @{$process_of_shm{$shm}}; 38 | 39 | my %seen; #you know, for uniq 40 | for my $p (sort @processes){ 41 | if (!$seen{$p}++){ 42 | print "$p " ; 43 | push @{ $shm_of_process{$p} }, $shm; 44 | } 45 | } 46 | print "\n"; 47 | } 48 | 49 | print "\n\n","#" x 80, "\n"; 50 | print "process shm usage\n"; 51 | print "#" x 80, "\n"; 52 | for my $process (sort keys %shm_of_process){ 53 | print "$process "; 54 | my @shm = sort { hex($a) <=> hex($b) } @{ $shm_of_process{$process} }; 55 | print "[" ,scalar @shm, "]: "; 56 | print "@shm", "\n"; 57 | } 58 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/action_status.php: -------------------------------------------------------------------------------- 1 | num_rows){ 15 | $error_msg = "

You don't have right to query status of this action!

"; 16 | }else{ 17 | $row = $result->fetch_assoc (); 18 | $status = $row['status']; 19 | } 20 | ?> 21 | 22 | 23 | 24 | 25 | 26 | Action Center - Action list 27 | 28 | 29 | 30 | 31 |
32 | Failed"; 43 | break; 44 | case 'SUCCESS': 45 | $status_msg = "Finished successfully"; 46 | break; 47 | default: 48 | $status_msg = "This should never happen."; 49 | } 50 | ?> 51 |

Action status:

52 |
53 |
task id: last update time:
54 | 57 | 58 | -------------------------------------------------------------------------------- /scripts/tcurl.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | # By Curu Wong 3 | # Test use of libcurl/WWW:Curl 4 | use warnings; 5 | use strict; 6 | 7 | use WWW::Curl::Easy; 8 | 9 | my $url = 'http://search.cpan.org/CPAN/authors/id/L/LO/LORN/LWP-Curl-0.09.tar.gz'; 10 | my $filename = $1 if $url =~ /([^\/]+)$/; 11 | my $resp_body; 12 | 13 | #Get file length via HTTP HEAD request 14 | my $length; 15 | my $curl = WWW::Curl::Easy->new(); 16 | $curl->setopt(CURLOPT_URL, $url); 17 | #follow redirect 18 | $curl->setopt(CURLOPT_FOLLOWLOCATION, 1); 19 | #inlcude header in response 20 | $curl->setopt(CURLOPT_HEADER, 1); 21 | #do not include body in response 22 | $curl->setopt(CURLOPT_NOBODY, 1); 23 | $curl->setopt(CURLOPT_WRITEDATA,\$resp_body); 24 | my $retcode = $curl->perform(); 25 | if($retcode == 0){ 26 | print "header:$resp_body\n"; 27 | print "*" x 80,"\n"; 28 | $length = $curl->getinfo(CURLINFO_CONTENT_LENGTH_DOWNLOAD); 29 | if($length == -1 ){ 30 | print "content length not available\n"; 31 | } 32 | else { 33 | print "length: $length\n"; 34 | } 35 | }else{ 36 | print "error happened:$retcode " . $curl->strerror($retcode) ." | " 37 | . $curl->errbuf ."\n"; 38 | exit 1; 39 | } 40 | 41 | #if content length is larger than local, resume download 42 | my $local_size = -s $filename; 43 | if($local_size < $length){ 44 | print "resume download from: $local_size\n"; 45 | open(my $f, ">>", $filename) or die "unable to open $filename : $1"; 46 | $curl->setopt(CURLOPT_HEADER, 0); 47 | $curl->setopt(CURLOPT_NOBODY, 0); 48 | $curl->setopt(CURLOPT_RESUME_FROM, $local_size); 49 | $curl->setopt(CURLOPT_WRITEDATA,$f); 50 | $retcode = $curl->perform(); 51 | if($retcode == 0){ 52 | print "Transfer OK\n"; 53 | my $resp_code = $curl->getinfo(CURLINFO_HTTP_CODE); 54 | print $resp_code,"\n"; 55 | }else{ 56 | print "error happened:$retcode" . $curl->strerror($retcode) ." " 57 | . $curl->errbuf ."\n"; 58 | } 59 | close($f); 60 | } 61 | else { 62 | print "no need to download\n"; 63 | } 64 | 65 | -------------------------------------------------------------------------------- /c/qdisc_stats.c: -------------------------------------------------------------------------------- 1 | #include 2 | #include 3 | #include 4 | #include 5 | #include 6 | #include 7 | #include 8 | 9 | void err_exit(char *msg){ 10 | fprintf(stderr, msg); 11 | exit(1); 12 | } 13 | int main(void){ 14 | char *iface = "eth1"; 15 | struct nl_sock *sock; 16 | struct nl_cache *link_cache, *qdisc_cache; 17 | struct rtnl_link *eth1; 18 | struct rtnl_qdisc *qdisc; 19 | int ifindex, txqueuelen, drops, requeues; 20 | int ret; 21 | 22 | //create and connect netlink socket 23 | sock = nl_socket_alloc(); 24 | ret = nl_connect(sock, NETLINK_ROUTE); 25 | if(ret < 0 ) 26 | err_exit("error connect to netlink_route\n"); 27 | 28 | //find link 29 | if (rtnl_link_alloc_cache(sock, AF_UNSPEC, &link_cache) < 0) 30 | err_exit("error alloc link cache\n"); 31 | ifindex = rtnl_link_name2i(link_cache, iface); 32 | if(!ifindex) 33 | err_exit("error get interface index\n"); 34 | eth1 = rtnl_link_get(link_cache, ifindex); 35 | txqueuelen = rtnl_link_get_txqlen(eth1); 36 | rtnl_link_put(eth1); 37 | 38 | //get root qdisc 39 | if (rtnl_qdisc_alloc_cache(sock, &qdisc_cache) < 0) 40 | err_exit("error alloc qdisc cache\n"); 41 | qdisc = rtnl_qdisc_get(qdisc_cache, ifindex, TC_HANDLE(0,0)); 42 | if (!qdisc) 43 | err_exit("no qdisc found for eth1\n"); 44 | //get qdisc stats 45 | drops = rtnl_tc_get_stat(TC_CAST(qdisc), RTNL_TC_DROPS); 46 | requeues = rtnl_tc_get_stat(TC_CAST(qdisc), RTNL_TC_DROPS); 47 | rtnl_qdisc_put(qdisc); 48 | 49 | printf("%s txqueuelen:%d drops:%d requeues:%d\n", 50 | iface, txqueuelen, drops, requeues); 51 | nl_socket_free(sock); 52 | 53 | return 0; 54 | } 55 | 56 | -------------------------------------------------------------------------------- /scripts/smart_kill.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ############################################################## 3 | # kill program if its mtime is later than proces start time 4 | # 5 | # Author: Curu Wong 6 | # Date: 2013-05-08 7 | # License: GPL v3 8 | # ############################################################# 9 | use strict; 10 | use warnings; 11 | 12 | use File::Basename; 13 | use File::Glob ':glob'; 14 | use File::stat; 15 | use POSIX; 16 | 17 | #get_start_time($pid) 18 | sub get_start_time{ 19 | my $pid = shift; 20 | my $clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK ); 21 | #get system uptime 22 | my $c; 23 | local($/); 24 | open(my $fh1, "<", "/proc/uptime") or die "unable to get uptime"; 25 | $c = <$fh1>; 26 | close($fh1); 27 | my $uptime = (split /\s+/, $c)[0]; 28 | #get process start time tick since boot 29 | my $proc_stat = "/proc/$pid/stat"; 30 | open(my $proc_fh, "<", $proc_stat) or die "unable to get proc stat"; 31 | $c = <$proc_fh>; 32 | close($proc_fh); 33 | my $run_ticks = (split /\s+/, $c)[21]; 34 | my $real_start_time = time() + $run_ticks/$clock_ticks - $uptime; 35 | 36 | return $real_start_time; 37 | } 38 | 39 | my ($exe_prefix) = @ARGV; 40 | if(!$exe_prefix){ 41 | print STDERR "smart_kill.pl: kill process if program changed after start\n\n"; 42 | print STDERR "Usage: smart_kill.pl \n"; 43 | print STDERR "eg:\n smart_kill.pl /usr/local/app\n"; 44 | exit(1); 45 | } 46 | 47 | my %process_to_kill; 48 | for my $proc_exe (bsd_glob('/proc/[1-9]*/exe')){ 49 | my $pid = $1 if $proc_exe =~ /(\d+)/; 50 | my $exe = readlink($proc_exe); 51 | next unless $exe && $exe =~ /^\Q$exe_prefix\E/; 52 | $exe =~ s/ \(deleted\)$//; #remove trailing possible '(deleted)' string 53 | my $exe_name = basename($exe); 54 | next if $process_to_kill{$exe_name}; 55 | 56 | my $exe_mtime = lstat($exe)->mtime; 57 | my $start_time = get_start_time($pid); 58 | if($start_time < $exe_mtime){ 59 | print "'$exe' changed after start, about to kill\n"; 60 | $process_to_kill{$exe_name}++; 61 | } 62 | } 63 | my @to_kill = keys %process_to_kill; 64 | qx(killall -9 @to_kill) if @to_kill; 65 | 66 | 67 | -------------------------------------------------------------------------------- /scripts/bomcheck.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ######################################################################## 3 | #bomcheck.pl: check file for UTF-8 Byte-Order-Mark, optionally remove it 4 | #Author: Curu Wong 5 | #Date: 2012-06-07 6 | #License: GPL v2 7 | ######################################################################## 8 | use File::Find; 9 | 10 | use Getopt::Long; 11 | 12 | my ($opt_fix, $opt_include); 13 | my $BOM = "\xEF\xBB\xBF"; 14 | our $file_re; 15 | 16 | sub usage{ 17 | print <", $filename) 48 | or warn "unable to open '$filename' to write $!"; 49 | print {$fh} $content; 50 | print "Removed BOM from '$filename'\n"; 51 | } 52 | close($fh); 53 | return 1; 54 | } 55 | else{ 56 | close($fh); 57 | return 0; 58 | } 59 | } 60 | 61 | sub wanted { 62 | return if -d $File::Find::name; 63 | if($opt_include && !/$file_re/){ 64 | return 65 | } 66 | checkbom($File::Find::name, $opt_fix); 67 | } 68 | 69 | GetOptions( 70 | 'h|help' => sub { usage(); exit(0) }, 71 | 'f|fix' => \$opt_fix, 72 | 'i|include=s' => \$opt_include, 73 | ) or usage() && exit(1); 74 | 75 | my @path; 76 | for my $p (@ARGV){ 77 | if(! -e $p){ 78 | print STDERR "WARN: '$p' does not exist\n"; 79 | } 80 | else{ 81 | push @path, $p; 82 | } 83 | } 84 | if(!@path){ 85 | usage(); 86 | exit(1); 87 | } 88 | if($opt_include){ 89 | $file_re = qr/$opt_include/i; 90 | } 91 | find({wanted=>\&wanted, no_chdir => 1}, @path); 92 | -------------------------------------------------------------------------------- /scripts/monitor_fs.py: -------------------------------------------------------------------------------- 1 | #!/usr/bin/python 2 | ############################################################################ 3 | #monitor_fs.py: a simple script to monitor directory for file change events. 4 | ############################################################################ 5 | import os, sys, time 6 | import pyinotify 7 | 8 | def log_msg(msg): 9 | now = time.strftime("%F %T") 10 | print "[%s]: %s" %( now, msg) 11 | sys.stdout.flush() 12 | 13 | def stat(path): 14 | stat = os.stat(path) 15 | print path 16 | print "Acess Time:\t%s" % time.strftime("%F %T %z", time.localtime(stat.st_atime)) 17 | print "Change Time:\t%s" % time.strftime("%F %T %z", time.localtime(stat.st_ctime)) 18 | print "Modify Time:\t%s" % time.strftime("%F %T %z", time.localtime(stat.st_mtime)) 19 | print 20 | sys.stdout.flush() 21 | 22 | 23 | 24 | class EventHandler(pyinotify.ProcessEvent): 25 | def __init__(self, watchManager, mask): 26 | self.wm = watchManager 27 | self.mask = mask 28 | 29 | def process_default(self, event): 30 | log_msg("event: %s" % event.maskname) 31 | filename = event.pathname 32 | if event.mask & pyinotify.IN_ISDIR: 33 | #add watch on new directory 34 | if event.mask & pyinotify.IN_CREATE: 35 | log_msg("created new dir:'%s'" % filename) 36 | self.wm.add_watch(filename, mask, rec=True) 37 | #remove watch on deleted directory 38 | elif event.mask & pyinotify.IN_DELETE: 39 | log_msg("deleted dir:'%s'" % filename) 40 | self.wm.del_watch(self.wm.get_wd(event.pathname)) 41 | else: 42 | if not (event.mask & pyinotify.IN_DELETE): 43 | try: 44 | stat(filename) 45 | except OSError,e: 46 | log_msg(e) 47 | 48 | if __name__ == '__main__': 49 | wm = pyinotify.WatchManager() # Watch Manager 50 | mask = pyinotify.IN_CREATE | pyinotify.IN_CLOSE_WRITE | \ 51 | pyinotify.IN_MOVED_TO | pyinotify.IN_DELETE | pyinotify.IN_ONLYDIR 52 | handler = EventHandler(wm, mask) 53 | notifier = pyinotify.Notifier(wm, handler) 54 | d = '/release/special' 55 | log_msg("watching %s" % d) 56 | wdd = wm.add_watch(d, mask, rec=True) 57 | 58 | notifier.loop() 59 | -------------------------------------------------------------------------------- /scripts/find.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ################################################ 3 | #find.pl: very simple find script that support 4 | #find files modified N seconds ago 5 | # 6 | #Author: Curu Wong 7 | #Date: 2012-11-07 8 | ################################################ 9 | use strict; 10 | use warnings; 11 | 12 | use File::Find; 13 | use Getopt::Long; 14 | use File::stat; 15 | 16 | my($opt_msec, $opt_iname, $opt_name, $opt_type); 17 | our $name_pattern; 18 | sub usage{ 19 | print qq(Usage: 20 | $0 [options] Directory ... 21 | 22 | Options: 23 | --msec +|-N modified less(-) or more(+) than N seconds 24 | --name PATTERN name match PATTERN(case sensitive) 25 | --iname PATTERN name match PATTERN(case insensitive) 26 | --type f|d type is d(directory) or f(file) 27 | ); 28 | } 29 | 30 | 31 | sub wanted{ 32 | #check file type 33 | if($opt_type){ 34 | return if ($opt_type eq "f" && (! -f $File::Find::name)); 35 | return if ($opt_type eq "d" && (! -d $File::Find::name)); 36 | } 37 | #check file name 38 | if($name_pattern){ 39 | return unless /$name_pattern/; 40 | } 41 | #check msec 42 | if($opt_msec){ 43 | my $stat = stat($File::Find::name) 44 | or print STDERR "failed to stat $File::Find::name :$!"; 45 | my $now = time(); 46 | if($opt_msec < 0 ){ 47 | return unless $now - $stat->mtime < abs($opt_msec); 48 | }else{ 49 | return unless ($now - $stat->mtime) >= $opt_msec 50 | } 51 | } 52 | print $File::Find::name,"\n"; 53 | 54 | } 55 | GetOptions( 56 | 'h|help' => sub { usage; exit(0)}, 57 | 'name=s' => \$opt_name, 58 | 'iname=s' => \$opt_iname, 59 | 'msec=i' => \$opt_msec, 60 | 'type=s' => \$opt_type, 61 | ); 62 | #check options 63 | if($opt_name && $opt_iname){ 64 | print STDERR "--iname and --name can't be used together\n"; 65 | exit(1); 66 | } 67 | if($opt_type && ($opt_type ne "f" and $opt_type ne "d")){ 68 | print STDERR "unsupported type '$opt_type'\n"; 69 | exit(1); 70 | } 71 | if($opt_name){ 72 | $name_pattern = qr/$opt_name/; 73 | } 74 | elsif($opt_iname){ 75 | $name_pattern = qr/$opt_iname/; 76 | } 77 | if(!@ARGV){ 78 | push @ARGV, "."; 79 | } 80 | 81 | find({wanted => \&wanted, no_chdir => 1}, @ARGV ); 82 | -------------------------------------------------------------------------------- /ActionCenter/ActionCenter.sql: -------------------------------------------------------------------------------- 1 | -- 2 | -- Table structure for table `action` 3 | -- 4 | 5 | DROP TABLE IF EXISTS `action`; 6 | CREATE TABLE `action` ( 7 | `id` int(10) unsigned NOT NULL auto_increment, 8 | `name` varchar(45) NOT NULL, 9 | `command` varchar(255) NOT NULL, 10 | `description` varchar(45) default NULL, 11 | PRIMARY KEY (`id`), 12 | UNIQUE KEY `name_UNIQUE` (`name`) 13 | ) ENGINE=InnoDB AUTO_INCREMENT=9 DEFAULT CHARSET=latin1; 14 | 15 | -- 16 | -- Table structure for table `history` 17 | -- 18 | 19 | DROP TABLE IF EXISTS `history`; 20 | CREATE TABLE `history` ( 21 | `id` int(10) unsigned NOT NULL auto_increment, 22 | `action_id` int(10) unsigned NOT NULL, 23 | `user_id` int(10) unsigned NOT NULL, 24 | `submit_time` timestamp NOT NULL default CURRENT_TIMESTAMP, 25 | `last_update` timestamp NULL default NULL, 26 | `status` enum('NEW','PROCESSING','SUCCESS','FAIL') NOT NULL default 'NEW', 27 | `stdout` text, 28 | `stderr` text, 29 | PRIMARY KEY (`id`), 30 | KEY `h_fk_user` (`user_id`), 31 | KEY `h_fk_action` (`action_id`), 32 | CONSTRAINT `h_fk_action` FOREIGN KEY (`action_id`) REFERENCES `action` (`id`) ON DELETE NO ACTION ON UPDATE NO ACTION, 33 | CONSTRAINT `h_fk_user` FOREIGN KEY (`user_id`) REFERENCES `user` (`id`) ON DELETE NO ACTION ON UPDATE NO ACTION 34 | ) ENGINE=InnoDB AUTO_INCREMENT=357 DEFAULT CHARSET=latin1 COMMENT='action history'; 35 | 36 | -- 37 | -- Table structure for table `user` 38 | -- 39 | 40 | DROP TABLE IF EXISTS `user`; 41 | CREATE TABLE `user` ( 42 | `id` int(10) unsigned NOT NULL auto_increment, 43 | `login` varchar(50) NOT NULL, 44 | `password` varchar(50) NOT NULL, 45 | `name` varchar(50) default NULL, 46 | `email` varchar(100) default NULL, 47 | `is_active` tinyint(1) NOT NULL default '1', 48 | PRIMARY KEY (`id`), 49 | UNIQUE KEY `login_UNIQUE` (`login`) 50 | ) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARSET=latin1; 51 | 52 | -- 53 | -- Table structure for table `user_action` 54 | -- 55 | 56 | DROP TABLE IF EXISTS `user_action`; 57 | CREATE TABLE `user_action` ( 58 | `user_id` int(10) unsigned NOT NULL, 59 | `action_id` int(10) unsigned NOT NULL, 60 | PRIMARY KEY (`user_id`,`action_id`), 61 | KEY `fk_user` (`user_id`), 62 | KEY `fk_action` (`action_id`), 63 | CONSTRAINT `fk_action` FOREIGN KEY (`action_id`) REFERENCES `action` (`id`) ON DELETE CASCADE ON UPDATE CASCADE, 64 | CONSTRAINT `fk_user` FOREIGN KEY (`user_id`) REFERENCES `user` (`id`) ON DELETE CASCADE ON UPDATE CASCADE 65 | ) ENGINE=InnoDB DEFAULT CHARSET=latin1; 66 | -------------------------------------------------------------------------------- /scripts/udp_drop.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env perl 2 | ###################################### 3 | # find udp packet drop port 4 | # 5 | # Author: Curu Wong 6 | # Date: 2014-10-20 7 | ###################################### 8 | use strict; 9 | use warnings; 10 | 11 | use Time::HiRes qw(time sleep); 12 | use POSIX qw(strftime); 13 | 14 | 15 | our $freq = 10; 16 | 17 | #m_time() 18 | #return current time str with millisecond 19 | sub m_time{ 20 | my $t = time(); 21 | my $t_str = strftime("%H:%M:%S", localtime($t)); 22 | my $t_ms = sprintf(".%03d", ($t - int($t))*1000); 23 | return $t_str . $t_ms; 24 | } 25 | 26 | 27 | #kernel_support() 28 | #check if kernel support udp socket drop counter 29 | sub kernel_support{ 30 | my $udp_file = '/proc/net/udp'; 31 | open(my $fh, "<", $udp_file) or die "unable to open $udp_file:$!"; 32 | my $head = <$fh>; 33 | close($fh); 34 | return $head =~ / drops /; 35 | } 36 | 37 | #get_udp_stat() 38 | #return current udp socket queue length and udp drop count 39 | sub get_udp_stat{ 40 | my $udp_file = "/proc/net/udp"; 41 | open(my $fh, "<", $udp_file) or die "unable to open $udp_file:$!"; 42 | my @lines = <$fh>; 43 | close($fh); 44 | shift @lines; #discard head line 45 | my %stat = (); 46 | 47 | for my $line(@lines){ 48 | $line =~ s/^\s+|\s+$//g; #remove extra blank 49 | my @r = split /[: ]+/, $line; 50 | my($local_port, $st, $recv_queue, $inode, $udp_drop) = @r[2,5,7,13,16]; 51 | next if $st ne "07"; #skip non listen socket 52 | $local_port = hex($local_port); 53 | #append inode number to port, avoid port reuse problem 54 | $local_port = sprintf "%d(inode:%s)", $local_port, $inode; 55 | $stat{$local_port} = [$recv_queue, $udp_drop]; 56 | } 57 | return \%stat; 58 | } 59 | 60 | #main 61 | if (! kernel_support() ){ 62 | print STDERR "kernel not supported, must be 2.6.29 or newer\n"; 63 | exit(1); 64 | } 65 | 66 | my $last_stat = get_udp_stat(); 67 | while(1){ 68 | sleep(1/$freq); 69 | my $cur_stat = get_udp_stat(); 70 | my $ts = m_time(); 71 | for my $port ( keys %$cur_stat){ 72 | #skip socket not listen anymore 73 | next unless exists $last_stat->{$port}; 74 | my $last_drop = $last_stat->{$port}->[1]; 75 | my $cur_drop = $cur_stat->{$port}->[1]; 76 | my $cur_q_len = hex($cur_stat->{$port}->[0]); 77 | my $drop_inc = $cur_drop - $last_drop; 78 | if ($drop_inc > 0){ 79 | printf "[%s]port:%s recv_queue_len:%s udp_drop:%s\n", 80 | $ts, $port, $cur_q_len, $drop_inc; 81 | } 82 | } 83 | $last_stat = $cur_stat; 84 | } 85 | -------------------------------------------------------------------------------- /scripts/webrobot.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ## 3 | #Visit website with REAL browser, use the Selenium Web Automation framework 4 | ## 5 | use strict; 6 | use warnings; 7 | 8 | use POSIX; 9 | use WWW::Selenium; 10 | use Getopt::Long; 11 | 12 | $| = 1; #enable autoflush 13 | 14 | #url to fetch 15 | my $url; 16 | #complete the task in how many minutes 17 | my $minutes = 4 * 60 ; 18 | #Do this how many times 19 | my $num = 100; 20 | #how many days 21 | my $days = 1; 22 | #where Selenium Server is running 23 | my $sel_host = "192.168.9.106"; 24 | #time precision, for efficiency,default to 20 seconds 25 | my $precision = 20; 26 | GetOptions('url=s' => \$url, 27 | 'minutes=i' => \$minutes, 28 | 'num=i' => \$num, 29 | 'days=i' => \$days, 30 | 'help|?' => \&usage); 31 | 32 | sub usage{ 33 | print "Usage:\n"; 34 | print "$0 --url= --minutes= --num=<# of times> --days=<# of days>\n"; 35 | print "eg: \n"; 36 | print " $0 --url=http://www.google.com --minutes=180 --num=50 -days=5\n"; 37 | print " will access google.com 50 times in 3 hours,do it for 5 days\n"; 38 | exit(1); 39 | } 40 | unless($url){ 41 | usage(); 42 | } 43 | 44 | sub time2str; 45 | sub visit_with_firefox; 46 | 47 | #connect to Selenium Server 48 | my $sel = WWW::Selenium->new( host => $sel_host, 49 | port => 4444, 50 | browser => "*firefox", 51 | browser_url => $url 52 | ); 53 | 54 | BEGIN: 55 | $sel->start; 56 | #timeout 1 minutes 57 | $sel->set_timeout(60*1000); 58 | my $start_time = int(time()/$precision); 59 | printf "Started at %s\n", time2str($start_time); 60 | my %seen; 61 | #get $num unique time point in $munutes 62 | my $total_time_point = $minutes*60/$precision; 63 | while (1) { 64 | my $t = int(rand($total_time_point)); 65 | $seen{$t} = 1; 66 | last if keys(%seen) == $num; 67 | } 68 | my @check_points = sort { $a<=>$b} keys %seen; 69 | @check_points = map { $_ + $start_time } @check_points; 70 | print "Time to check:\n"; 71 | for my $c (@check_points){ 72 | print time2str($c),"\n"; 73 | } 74 | print "\n"; 75 | #check if it's time to do a task, then sleep 30 seconds, wake up and check 76 | #again. stop when there's no more task 77 | while(1){ 78 | my $remain = @check_points; 79 | last unless $remain; #we have finished 80 | my $next_check = $check_points[0]; 81 | my $now = int(time()/$precision); 82 | printf "now: %s\n", time2str($now); 83 | printf "next check: %s\n", time2str($next_check); 84 | if($now >= $next_check){ 85 | print "Checking...\n"; 86 | visit_with_firefox(); 87 | shift @check_points; 88 | } 89 | sleep($precision/2); 90 | } 91 | 92 | $sel->stop(); 93 | $days--; 94 | #do it tomorrow 95 | print "Today's work is done, see you tomorrow\n\n"; 96 | if($days){ 97 | sleep(86400 - $minutes * 60); 98 | goto BEGIN; 99 | } 100 | print "All done!\n"; 101 | 102 | sub visit_with_firefox{ 103 | print "Visiting $url\n"; 104 | eval '$sel->open($url)'; warn $@ if $@; 105 | print "Clearing cookies\n"; 106 | $sel->delete_all_visible_cookies(); 107 | } 108 | 109 | sub time2str { 110 | my $t = shift; 111 | strftime('%H:%M:%S',localtime($t * $precision)); 112 | } 113 | -------------------------------------------------------------------------------- /scripts/trace_call.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ############################################################################## 3 | #trace_call.pl: trace and log command call chain. 4 | #Usage: 5 | # 1. create a directory to hold your original command($orig_dir) 6 | # mkdir /usr/local/orig_bin 7 | # 2. copy the program you want to trace call to $orig_dir, eg: 8 | # cp -a /bin/date /usr/local/orig_bin 9 | # 3. overrite the program with trace_call.pl, eg: 10 | # cp /path/to/trace_call.pl /bin/date 11 | # chmod +x /bin/date 12 | # 13 | # Author : Curu Wong 14 | # Date : 2012-11-21 15 | # License: GPL V2 16 | ################################################################################ 17 | use strict; 18 | use warnings; 19 | use Cwd qw(getcwd); 20 | use File::Basename; 21 | use POSIX qw(strftime); 22 | 23 | my $orig_dir = "/usr/local/orig_bin"; 24 | my $trace_log = "/tmp/trace_call.log"; 25 | 26 | #get_cmdline($pid) 27 | #return an array contain the cmdline of $pid 28 | sub get_cmdline{ 29 | my $pid = shift; 30 | open(my $proc, "<", "/proc/$pid/cmdline") or die "unable to read cmdline for pid $pid :$!"; 31 | local $/; #slurp mode 32 | chomp(my $cmdline = <$proc>); 33 | close($proc); 34 | my @cmd = split /\0/, $cmdline; 35 | return \@cmd; 36 | } 37 | 38 | #my_getppid($pid) 39 | #return ppid of $pid via looking at /proc filesystem 40 | sub my_getppid{ 41 | my $pid = shift; 42 | open(my $proc_stat, "<", "/proc/$pid/stat") or die "unable to read stat for pid $pid :$!"; 43 | local $/; #slurp mode 44 | chomp(my $stat = <$proc_stat>); 45 | close($proc_stat); 46 | #some variable not used now... 47 | my($my_pid, $comm, $state, $ppid) = split /\s+/, $stat; 48 | return int($ppid); 49 | } 50 | 51 | #get_call_tree($pid, \@call_tree) 52 | #return a call tree for $pid in @call_tree; 53 | sub get_call_tree{ 54 | my $pid = shift; 55 | my $call_tree = shift; 56 | if ($pid == 1){ 57 | return undef; 58 | } 59 | unshift @{$call_tree}, [$pid, get_cmdline($pid)]; 60 | get_call_tree(my_getppid($pid), $call_tree); 61 | } 62 | 63 | #main 64 | my $pid = $$; 65 | #open log file 66 | $| = 1; #enable auto flush 67 | open(my $log_fh, ">>", $trace_log) or die "unable to open '$trace_log' to write: $!"; 68 | my $now_time = strftime("%F %T", localtime()); 69 | my @call_tree; 70 | get_call_tree($pid, \@call_tree); 71 | 72 | my $self_cmd = $0; 73 | $self_cmd = "$self_cmd " . (join " ", @ARGV) if @ARGV; 74 | my $self_cwd = getcwd(); 75 | 76 | print {$log_fh} "=" x 80,"\n"; 77 | printf {$log_fh} "$now_time\n"; 78 | printf {$log_fh} "[call cmd]: %s\n", $self_cmd; 79 | printf {$log_fh} "[call cwd]: %s\n", $self_cwd; 80 | printf {$log_fh} "[call tree]: \n"; 81 | printf {$log_fh} "pid\tcmdline\n"; 82 | my $indent = 0; 83 | for my $call (@call_tree){ 84 | my ($the_pid, $cmdline) = @{$call}; 85 | my @cmdline = map { "'$_'"} @{$cmdline}; 86 | my $cmd= join(" ", @cmdline); 87 | printf {$log_fh} ("%d\t%s%s\n", $the_pid, " " x (++$indent), $cmd); 88 | } 89 | print {$log_fh} "=" x 80,"\n\n"; 90 | close($log_fh); 91 | #execute the original cmd 92 | my $orig_cmd = "$orig_dir/" . basename($0); 93 | exec $orig_cmd,@ARGV or die "failed to execute original cmd $orig_cmd':$!"; 94 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/User.php: -------------------------------------------------------------------------------- 1 | uid = NULL; 10 | $this->fields = array('username'=>'', 11 | 'realname'=>'', 12 | 'password'=>'', 13 | 'email'=>'', 14 | 'isActive'=>true 15 | ); 16 | } 17 | 18 | public function __get($field){ 19 | if($field == 'uid'){ 20 | return $this->uid; 21 | }else{ 22 | return $this->fields[$field]; 23 | } 24 | } 25 | 26 | public function __set($field,$value){ 27 | if(array_key_exists($field,$this->fields)){ 28 | $this->fields[$field] = $value; 29 | } 30 | } 31 | 32 | public static function validateUsername($username){ 33 | return preg_match('/^[a-z0-9]{2,50}$/i',$username); 34 | } 35 | 36 | public static function validateEmail($email){ 37 | return filter_var($email,FILTER_VALIDATE_EMAIL); 38 | } 39 | 40 | public static function getByID($uid){ 41 | $user = new User(); 42 | $query = sprintf("SELECT `login`,`name`,`password`,`email`,`is_active`". 43 | " FROM `user` WHERE `id` = %d",$uid); 44 | $result = mysqli_query($GLOBALS['mysqli'],$query); 45 | if($result->num_rows){ 46 | $row = $result->fetch_assoc(); 47 | $user->username = $row['login']; 48 | $user->realname = $row['name']; 49 | $user->password = $row['password']; 50 | $user->email = $row['email']; 51 | $user->isActive = $row['is_active']; 52 | $user->uid = $uid; 53 | 54 | $result->free(); 55 | } 56 | return $user; 57 | } 58 | 59 | public static function getByUsername($username){ 60 | $user = new User(); 61 | $query = sprintf("SELECT `id`,`name`,`password`,`email`,`is_active`". 62 | " FROM `user` WHERE `login` = '%s'",$username); 63 | $result = mysqli_query($GLOBALS['mysqli'],$query); 64 | if($result->num_rows){ 65 | $row = $result->fetch_assoc(); 66 | $user->uid = $row['id']; 67 | $user->realname = $row['name']; 68 | $user->password = $row['password']; 69 | $user->email = $row['email']; 70 | $user->isActive = $row['is_active']; 71 | $user->username = $username; 72 | 73 | $result->free(); 74 | } 75 | return $user; 76 | } 77 | 78 | //save record to database 79 | public function save(){ 80 | if($this->uid){ 81 | $query = sprintf('UPDATE `user` SET `login` = "%s",'. 82 | '`name` = "%s",`password` = "%s", `email` = "%s",'. 83 | '`is_active` = %d WHERE `id` = %d', 84 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->username), 85 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->realname), 86 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->password), 87 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->email), 88 | $this->isActive, 89 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->uid)); 90 | 91 | return mysqli_query($GLOBALS['mysqli'],$query); 92 | }else{ 93 | $query = sprintf('INSERT INTO user(`login`,`name`,`password`,'. 94 | '`email`,`is_active`) VALUES("%s","%s","%s","%s",%d)', 95 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->username), 96 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->realname), 97 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->password), 98 | mysqli_real_escape_string($GLOBALS['mysqli'],$this->email), 99 | $this->isActive); 100 | if(mysqli_query($GLOBALS['mysqli'],$query)){ 101 | $this->uid = mysqli_insert_id($GLOBALS['mysqli']); 102 | return true; 103 | }else{ 104 | return false; 105 | } 106 | 107 | } 108 | } 109 | 110 | public static function delete($uid){ 111 | $query = sprintf('DELETE FROM `user` WHERE `id` = %d',$uid); 112 | return mysqli_query($GLOBALS['mysqli'],$query); 113 | } 114 | 115 | public function setActive(){ 116 | $this->isActive = true; 117 | $this->save(); 118 | } 119 | 120 | public function setInactive(){ 121 | $this->isActive = false; 122 | $this->save(); 123 | } 124 | 125 | 126 | 127 | } 128 | 129 | ?> -------------------------------------------------------------------------------- /chshm/chshm.c: -------------------------------------------------------------------------------- 1 | /*********************************************************************** 2 | * chshm: A tool to change shared memory ownership and permission 3 | * 4 | * Author: Curu Wong 5 | * Date: 2013-04-18 6 | ********************************************************************** 7 | This program is free software: you can redistribute it and/or modify 8 | it under the terms of the GNU General Public License as published by 9 | the Free Software Foundation, either version 3 of the License, or 10 | (at your option) any later version. 11 | 12 | This program is distributed in the hope that it will be useful, 13 | but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | GNU General Public License for more details. 16 | 17 | You should have received a copy of the GNU General Public License 18 | along with this program. If not, see . 19 | 20 | */ 21 | 22 | #include 23 | #include 24 | #include 25 | #include 26 | #include 27 | #include 28 | #include 29 | #include 30 | #include 31 | #include 32 | 33 | void print_usage(char *prog_name){ 34 | fprintf(stderr, "Usage: %s [Options] shmid ...\n", prog_name); 35 | fprintf(stderr, "Options:\n"); 36 | fprintf(stderr, " -u|--user change owner to \n"); 37 | fprintf(stderr, " -g|--group change group to \n"); 38 | fprintf(stderr, " -m|--mode change mode to in octal\n"); 39 | fprintf(stderr, "\neg:\n"); 40 | fprintf(stderr, " %s -u nobody -m 0660 65535 \n", prog_name); 41 | fprintf(stderr, " This will change shm id 65535's owner to nobody, mode to 0660\n"); 42 | } 43 | 44 | int chshm(int shmid, uid_t uid, gid_t gid, int mode) 45 | { 46 | int ret; 47 | struct shmid_ds buf; 48 | 49 | //save current stat 50 | ret = shmctl(shmid, IPC_STAT, &buf); 51 | if(ret == -1 ){ 52 | perror("error get shared memory info"); 53 | return -1; 54 | } 55 | 56 | // if uid or gid is -1, it will not be changed 57 | if( uid != -1 ){ 58 | buf.shm_perm.uid = uid; 59 | } 60 | if( gid != -1 ){ 61 | buf.shm_perm.gid = gid; 62 | } 63 | 64 | if(mode != -1){ 65 | buf.shm_perm.mode = mode; 66 | } 67 | 68 | ret = shmctl(shmid, IPC_SET, &buf); 69 | if( ret == -1){ 70 | perror("error: unable to change owner"); 71 | return -1; 72 | } 73 | return 0; 74 | } 75 | 76 | int main(int argc, char *argv[]) 77 | { 78 | uid_t uid = -1; 79 | gid_t gid = -1; 80 | mode_t mode = -1; 81 | int shmid; 82 | struct group *grent; 83 | struct passwd *pwent; 84 | 85 | int c; 86 | static int help_flag = 0; 87 | while (1){ 88 | static struct option long_options[] = { 89 | {"help", no_argument, &help_flag, 1}, 90 | {"user", required_argument, 0, 'u'}, 91 | {"group", required_argument, 0, 'g'}, 92 | {"mode", required_argument, 0, 'm'}, 93 | {0, 0, 0, 0 } 94 | }; 95 | int option_index = 0; 96 | c = getopt_long (argc, argv, "hu:g:m:", 97 | long_options, &option_index); 98 | if (c == -1){ 99 | break; 100 | } 101 | switch(c) { 102 | case 'u': 103 | errno = 0; 104 | pwent = getpwnam(optarg); 105 | if(pwent != NULL){ 106 | uid= pwent->pw_uid; 107 | }else{ 108 | if(errno){ 109 | perror("getpwnam"); 110 | }else{ 111 | fprintf(stderr, "no such user '%s'\n", optarg); 112 | } 113 | exit(EXIT_FAILURE); 114 | } 115 | break; 116 | case 'g': 117 | errno = 0; 118 | grent = getgrnam(optarg); 119 | if(grent != NULL){ 120 | gid= grent->gr_gid; 121 | }else{ 122 | if(errno){ 123 | perror("getgrnam"); 124 | }else{ 125 | fprintf(stderr, "no such group '%s'\n", optarg); 126 | } 127 | exit(EXIT_FAILURE); 128 | } 129 | break; 130 | case 'm': 131 | mode = strtoul(optarg, NULL, 8); 132 | break; 133 | case 'h': 134 | help_flag = 1; 135 | break; 136 | default: 137 | print_usage(argv[0]); 138 | exit(EXIT_FAILURE); 139 | 140 | } 141 | 142 | } 143 | 144 | if(optind >= argc || help_flag ){ 145 | print_usage(argv[0]); 146 | exit(0); 147 | } 148 | while(optind < argc){ 149 | shmid = strtoul(argv[optind], NULL, 10); 150 | if (chshm(shmid, uid, gid, mode) == -1 ){ 151 | exit(EXIT_FAILURE); 152 | } 153 | optind++; 154 | } 155 | return 0; 156 | } 157 | -------------------------------------------------------------------------------- /c/ptyexec.c: -------------------------------------------------------------------------------- 1 | /*************************************************************** 2 | * ptyexec: exec cmd in pty 3 | * prevent process from being killed by SIGHUP when pty closed 4 | * 5 | * author: Curu Wong 6 | * date: 2015-07-18 7 | * License: GPL v3 8 | ************************************************************** 9 | */ 10 | #include 11 | #include 12 | #include 13 | #include 14 | #include 15 | #include 16 | #include 17 | #include 18 | #include 19 | #include 20 | 21 | #ifndef epoll_pwait 22 | int epoll_pwait(int epfd, struct epoll_event *events, 23 | int maxevents, int timeout, 24 | const sigset_t *sigmask){ 25 | int ready; 26 | sigset_t origmask; 27 | sigprocmask(SIG_SETMASK, sigmask, &origmask); 28 | ready = epoll_wait(epfd, events, maxevents, timeout); 29 | sigprocmask(SIG_SETMASK, &origmask, NULL); 30 | return ready; 31 | } 32 | #endif 33 | 34 | static int exit_status = -1; 35 | 36 | void child_handler(int signum) 37 | { 38 | int status; 39 | wait(&status); 40 | if (WIFEXITED(status)){ 41 | exit_status = WEXITSTATUS(status); 42 | }else{ 43 | //maybe killed 44 | exit_status = 1; 45 | } 46 | } 47 | 48 | int pty_exec(int use_shell, char * const* argv){ 49 | int timeout = 50; 50 | char buf[BUFSIZ]; 51 | pid_t pid; 52 | int master_fd, slave_fd, epfd, nfds; 53 | int ret,flags, status; 54 | struct epoll_event ev, events[1]; 55 | ssize_t nread; 56 | 57 | sigset_t mask; 58 | sigemptyset(&mask); 59 | sigaddset(&mask, SIGCHLD); 60 | 61 | ret = openpty(&master_fd, &slave_fd, NULL, NULL, NULL); 62 | if ( ret == -1){ 63 | perror("openpty"); 64 | return 1; 65 | } 66 | 67 | //fork to exec cmd and monitor output 68 | pid = fork(); 69 | if ( pid > 0 ){ 70 | //***parent: read and print child output*** 71 | close(slave_fd); 72 | //handle child exit 73 | signal(SIGCHLD, child_handler); 74 | 75 | //set pty fd to non blocking mode 76 | flags = fcntl(master_fd, F_GETFL, 0); 77 | fcntl(master_fd, F_SETFL, flags | O_NONBLOCK); 78 | 79 | //read cmd output with epoll 80 | epfd = epoll_create(1); 81 | if(epfd == -1 ){ 82 | perror("epoll_create"); 83 | return(1); 84 | } 85 | ev.events = EPOLLIN | EPOLLHUP; 86 | ev.data.fd = master_fd; 87 | epoll_ctl(epfd, EPOLL_CTL_ADD, master_fd, &ev); 88 | 89 | while(1){ 90 | if(exit_status != -1){ 91 | break; //child exited 92 | } 93 | nfds = epoll_pwait(epfd, events, 1, timeout, &mask); 94 | if(nfds < 0){ 95 | if (errno == EINTR){ 96 | continue; //interrupted by signal etc... 97 | } 98 | perror("epoll_wait"); 99 | exit(1); 100 | } 101 | if (nfds == 0 ){ 102 | continue; //time out , nothing to read 103 | } 104 | if(events[0].events & EPOLLIN){ 105 | nread = read(events[0].data.fd, buf, BUFSIZ); 106 | if (nread == -1){ 107 | perror("read"); 108 | break; 109 | } 110 | write(1, buf, nread); 111 | } 112 | if(events[0].events & EPOLLHUP){ 113 | //pty slave closed 114 | break; 115 | } 116 | } 117 | if(exit_status == -1){ 118 | //SIGCHLD maybe lost, collect status. 119 | if (wait(&status) != -1 ) 120 | exit_status = WEXITSTATUS(status); 121 | } 122 | return exit_status; 123 | }else{ 124 | /*child: redirect stdin, stdout, and stderr to slave_fd 125 | * I am child of old session, impossible to be session leader. 126 | * so when pty is closed, no HUP will be sent to me 127 | */ 128 | close(master_fd); 129 | dup2(slave_fd, 1); 130 | dup2(slave_fd, 2); 131 | if(use_shell){ 132 | ret = execlp("sh", "sh", "-c", argv[0], NULL); 133 | 134 | }else{ 135 | ret = execvp(argv[0], argv); 136 | } 137 | if (ret == -1 ){ 138 | perror("exec"); 139 | exit(1); 140 | } 141 | } 142 | return 0; 143 | } 144 | 145 | void print_usage(const char *prog) 146 | { 147 | fprintf(stderr, "Usage:\n\t%s cmd args...\n", prog); 148 | fprintf(stderr, "\t%s -c 'shell cmd string'\n", prog); 149 | } 150 | 151 | int main(int argc, char **argv){ 152 | int use_shell = 0; 153 | char * const* cmd; 154 | 155 | //argument parsing 156 | if (argc < 2){ 157 | print_usage(argv[0]); 158 | return 1; 159 | } 160 | if (*(argv[1]) == '-'){ 161 | switch( *(argv[1] + 1) ){ 162 | case 'h': 163 | print_usage(argv[0]); 164 | return 0; 165 | case 'c': 166 | use_shell = 1; 167 | if(argc < 3 || strlen(argv[2]) < 1){ 168 | print_usage(argv[0]); 169 | return 1; 170 | } 171 | break; 172 | default: 173 | fprintf(stderr, "ERROR: invalid option '%s'\n", argv[1]); 174 | print_usage(argv[0]); 175 | return 1; 176 | } 177 | 178 | } 179 | 180 | cmd = argv + 1; 181 | if(use_shell){ 182 | cmd += 1; 183 | } 184 | return pty_exec(use_shell, cmd); 185 | } 186 | 187 | -------------------------------------------------------------------------------- /ActionCenter/web/actioncenter/login.php: -------------------------------------------------------------------------------- 1 | uid && !$user->isActive){ 14 | die("Account disabled!"); 15 | } 16 | if($user->uid && $user->password == md5($password)){ 17 | $_SESSION['uid'] = $user->uid; 18 | header("Location: index.php"); 19 | //exit(); 20 | } 21 | else { 22 | $msg = 'Username or Password is incorrect'; 23 | } 24 | } 25 | } 26 | ?> 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | -- pineapple design limited client login --- Web Project Action Center 37 | 38 | Action Center - login 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 73 | 74 | 75 | 125 |
copyright 2010 pineapple design limited 126 | 127 |
128 | 129 |
130 | 131 | 132 | -------------------------------------------------------------------------------- /scripts/install-kernel-dev.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | # Install the headers/makefiles etc for building modules against 3 | # It functions like kernel-devel package in RHEL/fedora or 4 | # linux-headers package in Debian/Ubuntu 5 | # 6 | # 7 | # $$$$$$$$ By Curu Wong http://www.linuxplayer.org $$$$$$$$$ 8 | # Part of this script is copied and modified from 9 | # fedora's kernel.srpm spec file 10 | # 11 | # This all looks scary, but the end result is supposed to be: 12 | # * all arch relevant include/ files 13 | # * all Makefile/Kconfig files 14 | # * all script/ files 15 | usage(){ 16 | echo "Usage:" 17 | echo "INSTALL_PATH=/some/place $0" 18 | echo "or" 19 | echo "export INSTALL_PATH=/some/place" 20 | echo "$0" 21 | } 22 | 23 | if [ -z "$INSTALL_PATH" ]; then 24 | echo "INSTALL_PATH is not set" 25 | usage 26 | exit 1 27 | fi 28 | if [ \! -d "$INSTALL_PATH" ]; then 29 | echo "INSTALL_PATH '$INSTALL_PATH' is not a directory" 30 | usage 31 | exit 1 32 | fi 33 | 34 | if [ \! -f .missing-syscalls.d ]; then 35 | echo "Sorry, but you are not running me in kernel build directory," 36 | echo "or you haven't built your kernel" 37 | echo "Please cd to it and then run me there, thanks!" 38 | exit 1 39 | fi 40 | 41 | KernelVer=`make -s kernelrelease` 42 | KbuildDir=`pwd` 43 | #the path of kernel-dev packages 44 | #on Ubuntu, can be set to something like 45 | #DevelDir="/usr/src/linux-headers-$KernelVer" 46 | DevelDir="/usr/src/kernels/$KernelVer" 47 | #if this directory is generated with make O=xxx option 48 | if [ -h "source" ]; then 49 | out_tree="yes" 50 | fi 51 | 52 | echo "This may take a while, please wait..." 53 | rm -f $INSTALL_PATH/lib/modules/$KernelVer/build 54 | rm -f $INSTALL_PATH/lib/modules/$KernelVer/source 55 | mkdir -p $INSTALL_PATH/lib/modules/$KernelVer/build 56 | (cd $INSTALL_PATH/lib/modules/$KernelVer ; ln -s build source) 57 | # dirs for additional modules per module-init-tools, kbuild/modules.txt 58 | mkdir -p $INSTALL_PATH/lib/modules/$KernelVer/extra 59 | mkdir -p $INSTALL_PATH/lib/modules/$KernelVer/updates 60 | # first copy everything 61 | if [ -z $out_tree ]; then 62 | cp --parents `find -type f -name "Makefile*" -o -name "Kconfig*"` $INSTALL_PATH/lib/modules/$KernelVer/build 63 | else 64 | (cd source; cp --parents `find -type f -name "Makefile*" -o -name "Kconfig*"` $INSTALL_PATH/lib/modules/$KernelVer/build) 65 | fi 66 | cp Module.symvers $INSTALL_PATH/lib/modules/$KernelVer/build 67 | cp System.map $INSTALL_PATH/lib/modules/$KernelVer/build 68 | if [ -s Module.markers ]; then 69 | cp Module.markers $INSTALL_PATH/lib/modules/$KernelVer/build 70 | fi 71 | # then drop all but the needed Makefiles/Kconfig files 72 | rm -rf $INSTALL_PATH/lib/modules/$KernelVer/build/Documentation 73 | rm -rf $INSTALL_PATH/lib/modules/$KernelVer/build/scripts 74 | rm -rf $INSTALL_PATH/l ib/modules/$KernelVer/build/include 75 | cp .config $INSTALL_PATH/lib/modules/$KernelVer/build 76 | 77 | ### copy scripts ### 78 | #change to the source directory if we build outside source tree 79 | if [ -n "$out_tree" ]; then cd source; fi 80 | cp -a scripts $INSTALL_PATH/lib/modules/$KernelVer/build 81 | #copy architecture specific scripts 82 | for arch_scripts in arch/*/scripts; do 83 | cp -a --parents $arch_scripts $INSTALL_PATH/lib/modules/$KernelVer/build/ 84 | done 85 | #copy architecture specific *lds files 86 | for arch_lds in arch/*/*lds; do 87 | cp -a --parents $arch_lds $INSTALL_PATH/lib/modules/$KernelVer/build/ 88 | done 89 | #cd back to build dir 90 | if [ -n "$out_tree" ]; then 91 | cd $KbuildDir 92 | #also copy scripts in build dir 93 | cp -a scripts/ $INSTALL_PATH/lib/modules/$KernelVer/build 94 | fi 95 | #clean object files 96 | rm -f $INSTALL_PATH/lib/modules/$KernelVer/build/scripts/*.o 97 | rm -f $INSTALL_PATH/lib/modules/$KernelVer/build/scripts/*/*.o 98 | # prune junk 99 | find $INSTALL_PATH/lib/modules/$KernelVer/build/ -name ".*.cmd" -o -name "modules.order" -exec rm -f {} \; 100 | 101 | ###copy the kernel headers### 102 | #change to the source directory if we build outside source tree 103 | if [ -n "$out_tree" ]; then cd source; fi 104 | #architecture specific headers 105 | for arch_include in arch/*/include; do 106 | cp -a --parents $arch_include $INSTALL_PATH/lib/modules/$KernelVer/build/ 107 | done 108 | cp -a include $INSTALL_PATH/lib/modules/$KernelVer/build/include 109 | #cd back to build dir 110 | if [ -n "$out_tree" ]; then 111 | cd $KbuildDir 112 | #also copy include in build dir 113 | cp -a include $INSTALL_PATH/lib/modules/$KernelVer/build/ 114 | fi 115 | 116 | # Make sure the Makefile and version.h have a matching timestamp so that 117 | # external modules can be built 118 | touch -r $INSTALL_PATH/lib/modules/$KernelVer/build/Makefile $INSTALL_PATH/lib/modules/$KernelVer/build/include/linux/version.h 119 | touch -r $INSTALL_PATH/lib/modules/$KernelVer/build/.config $INSTALL_PATH/lib/modules/$KernelVer/build/include/linux/autoconf.h 120 | # Copy .config to include/config/auto.conf so "make prepare" is unnecessary. 121 | cp $INSTALL_PATH/lib/modules/$KernelVer/build/.config $INSTALL_PATH/lib/modules/$KernelVer/build/include/config/auto.conf 122 | # Move devel headers out of module path 123 | mkdir -p `dirname $INSTALL_PATH/$DevelDir` 124 | mv $INSTALL_PATH/lib/modules/$KernelVer/build $INSTALL_PATH/$DevelDir 125 | ln -sf ../../..$DevelDir $INSTALL_PATH/lib/modules/$KernelVer/build 126 | 127 | echo "Installed to $INSTALL_PATH" 128 | 129 | -------------------------------------------------------------------------------- /ActionCenter/actiond: -------------------------------------------------------------------------------- 1 | #!/usr/bin/env python 2 | import logging,os,re,signal,sys,time 3 | import smtplib,subprocess 4 | import MySQLdb 5 | import imp 6 | 7 | #read the config file 8 | imp.load_source('cfg' ,'actiond.cfg') 9 | from cfg import * 10 | 11 | pid_file = '/var/run/actiond.pid' 12 | log_file = '/var/log/actiond.log' 13 | log_level = logging.INFO 14 | 15 | def daemon(stdin='/dev/null', stdout='/dev/null', stderr='/dev/null'): 16 | try: 17 | pid = os.fork() 18 | if pid > 0: 19 | #parent exit 20 | os._exit(0) 21 | except OSError, e: 22 | sys.stderr.write("fork #1 failed: (%d) %s\n" % (e.errno, e.strerror)) 23 | os._exit(1) 24 | #detach from terminal 25 | os.chdir('/') 26 | os.setsid() 27 | os.umask(0) 28 | 29 | #fork again, ensure not be session leader 30 | try: 31 | pid = os.fork() 32 | if pid > 0: 33 | os._exit(0) # exit parent 34 | except OSError, e: 35 | sys.stderr.write("fork #2 failed: (%d) %s\n" % (e.errno, e.strerror)) 36 | os._exit(1) 37 | #close all open file descriptors 38 | import resource 39 | maxfd = resource.getrlimit(resource.RLIMIT_NOFILE)[1] 40 | if(maxfd == resource.RLIM_INFINITY): 41 | maxfd = 1024 42 | for fd in range(0,maxfd): 43 | try: 44 | os.close(fd) 45 | except OSError: # not open, ignore 46 | pass 47 | #redirect standard file descriptors 48 | si = file(stdin, 'r') 49 | so = file(stdout, 'a+', 1) 50 | se = file(stderr,'a+', 0) 51 | os.dup2(si.fileno(), sys.stdin.fileno()) 52 | sys.stdout = so 53 | sys.stderr = se 54 | 55 | def sendmail(msg): 56 | header = "From: %s<%s>\r\n" % (fromName, fromAddr) 57 | header += "To: %s\r\n" % toAddr 58 | header += "Subject: %s\r\n\r\n" % subject 59 | 60 | msg = header + msg 61 | 62 | smtp = smtplib.SMTP() 63 | smtp.connect() 64 | smtp.sendmail(fromAddr, toAddr, msg) 65 | smtp.quit() 66 | 67 | def get_tasklist(conn): 68 | try: 69 | cursor = conn.cursor() 70 | sql = 'SELECT `id`,`action_id`,`user_id` FROM `history` WHERE `status` = %s' 71 | cursor.execute(sql,'NEW') 72 | task = list() 73 | row = cursor.fetchone() 74 | while row: 75 | (id,action_id,user_id) = row 76 | #get action name and command 77 | c = conn.cursor() 78 | c.execute('SELECT `name`,`command` FROM `action` WHERE `id` = %s', action_id) 79 | (action_name,action_command) = c.fetchone() 80 | #get user login 81 | c.execute('SELECT `login` FROM `user` WHERE `id` = %s', user_id) 82 | (login,) = c.fetchone() 83 | 84 | task.append((id,login,action_name,action_command)) 85 | row = cursor.fetchone() 86 | cursor.close() 87 | return task 88 | except MySQLdb.DatabaseError, e: 89 | logger.error('getting task from database: %s' % e) 90 | def update_task_status(conn, id, status, output=None, error=None): 91 | try: 92 | c = conn.cursor() 93 | sql_update = """UPDATE `history` SET `status` = %s, `last_update` = NOW(), 94 | `stdout` = %s, `stderr` = %s WHERE `id` = %s""" 95 | c.execute(sql_update,(status, output, error, id)) 96 | c.close() 97 | except MySQLdb.DatabaseError, e: 98 | logger.error('update task status: %s' % e) 99 | 100 | def do_task(task, conn): 101 | id,login,action_name,action_command = task 102 | logger.info('executing action [%s] task id [%d] for user [%s]' % (action_name,id,login)) 103 | #mark task status as processing 104 | update_task_status(conn,id,'PROCESSING') 105 | task_log_file = '/tmp/actiond_%s_%d.log' % (action_name, id) 106 | try: 107 | task_log = open(task_log_file,'w',0); 108 | proc = subprocess.Popen(action_command, shell=True, 109 | stdout=task_log, stderr=subprocess.PIPE) 110 | exitcode = proc.wait() 111 | task_log.close() 112 | 113 | if exitcode == 0: 114 | logger.info('task id [%d] finished successfully' % id) 115 | logger.info('check "%s" for more info' % task_log_file) 116 | update_task_status(conn, id, 'SUCCESS') 117 | else: 118 | logger.error('task id [%d] failed:' % id) 119 | update_task_status(conn,id,'FAIL') 120 | errormsg = proc.stderr.read() 121 | logger.error(errormsg) 122 | sendmail('Error executing action [%s]\n%s' % (action_name, errormsg)) 123 | except IOError, e: 124 | logger.error('IOError: %s' % e) 125 | except OSError, e: 126 | logger.error('OSError: %s' % e) 127 | 128 | def sigHandler(signum, frame): 129 | if signum == signal.SIGTERM: 130 | logger.info('caught TERM signal, exiting...') 131 | os.unlink(pid_file) 132 | logger.info('action daemon stopped!') 133 | sys.exit(0) 134 | 135 | def work(): 136 | #create pid file 137 | pidHandle = open(pid_file, 'w') 138 | pidHandle.write('%s\n' % os.getpid()) 139 | pidHandle.close() 140 | 141 | logger.info('action daemon started!') 142 | 143 | #monitoring... 144 | try: 145 | conn = MySQLdb.connect(db=db_name, user=db_user, passwd=db_pass) 146 | conn.autocommit(1) 147 | except MySQLdb.DatabaseError, e: 148 | logger.error('connect to database: %s' % e) 149 | return 150 | while 1: 151 | tasks = get_tasklist(conn) 152 | for task in tasks: 153 | do_task(task, conn) 154 | time.sleep(2) 155 | 156 | if __name__ == "__main__": 157 | #become a daemon 158 | daemon(stderr=log_file) 159 | #install signal handler 160 | signal.signal(signal.SIGTERM, sigHandler) 161 | #setup logger 162 | logger = logging.getLogger('actiond') 163 | logger.setLevel(log_level) 164 | handler = logging.StreamHandler() 165 | handler.setLevel(log_level) 166 | formatter = logging.Formatter("%(asctime)s %(levelname)s: %(message)s", "%F %T") 167 | handler.setFormatter(formatter) 168 | logger.addHandler(handler) 169 | if os.path.isdir(script_path): 170 | os.chdir(script_path) 171 | work() 172 | -------------------------------------------------------------------------------- /scripts/xmysqldump.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | ######################################################################## 3 | # mysqldump extractor: 4 | # extract specified databases or tables from mysqldump file(sql format) 5 | # Author: Curu Wong 6 | # Date: 2012-06-01 7 | # License: GPL v2 8 | ######################################################################## 9 | use strict; 10 | use warnings; 11 | 12 | use File::Path; 13 | use File::Spec; 14 | use Getopt::Long; 15 | use POSIX; 16 | 17 | my $version = "1.1"; 18 | my($opt_h,$opt_list, $opt_separate, $opt_v, $opt_all, $opt_dir); 19 | my(@opt_databases, @opt_tables); 20 | our $debug = 0; 21 | 22 | sub usage { 23 | print "Usage:\n"; 24 | print " $0 -h|--help\n"; 25 | print " This page\n"; 26 | print "\n"; 27 | print " $0 -l|--list [file.sql ...]\n"; 28 | print " List databases and tables\n"; 29 | print "\n"; 30 | print " $0 -a|--all-tables [file.sql ...]\n"; 31 | print " split to one .sql file per table\n"; 32 | print "\n"; 33 | print " $0 [-s|--separate] -d|--databases db1,dbn... [file.sql ...]\n"; 34 | print " Extract selected databases:\n"; 35 | print "\n"; 36 | print " $0 [-s|--separate] -t|--tables tbl1,... [file.sql ...]\n"; 37 | print " Extract selected tables(the first table name match):\n"; 38 | print "\n"; 39 | print " $0 [-s|--separate] -t|--tables db1.tbl1,db2.tbln,... [file.sql ...]\n"; 40 | print " Extract selected tables(full qualified):\n"; 41 | print "\n"; 42 | print "Options:\n"; 43 | print " --debug print some debug information to STDERR\n"; 44 | print " -o|--output-dir directory to output sql files\n"; 45 | print " -s|--separate output separate sql files named like DB.TBL.sql\n"; 46 | print " -v|--version show program version\n"; 47 | print "NOTE: \n"; 48 | print " This program requires running myqldump with --comments option(eanbled by default)\n"; 49 | print " If no source sql file specified, it will read from stdin\n"; 50 | } 51 | 52 | sub log_msg { 53 | my $now=strftime('%F %T',localtime()); 54 | print STDERR "[$now]: @_\n" if $debug; 55 | } 56 | 57 | sub get_true_item{ 58 | my $hash = shift; 59 | for my $key (keys %{$hash}){ 60 | return $key if $hash->{$key}; 61 | } 62 | return undef; 63 | } 64 | 65 | 66 | sub create_file{ 67 | my $filename = shift; 68 | if($opt_dir){ 69 | mkpath($opt_dir) unless -d $opt_dir; 70 | $filename = File::Spec->catfile($opt_dir, $filename); 71 | } 72 | log_msg "create file '$filename'"; 73 | open(my $handle, ">", $filename) or 74 | die "unable to open '$filename' to write"; 75 | return $handle; 76 | } 77 | 78 | GetOptions( 79 | 'h|help' => \$opt_h, 80 | 'debug' => \$debug, 81 | 'a|all-tables' => \$opt_all, 82 | 'd|databases=s' => \@opt_databases, 83 | 't|tables=s' => \@opt_tables, 84 | 'l|list' => \$opt_list, 85 | 'o|output-dir=s'=> \$opt_dir, 86 | 's|separate' => \$opt_separate, 87 | 'v|version' => \$opt_v, 88 | ); 89 | 90 | my $DB_RE_CAP = qr/^-- Current Database: .(\w+)./; 91 | my $TBL_RE_CAP = qr/^-- Table structure for table .(\w+)./; 92 | 93 | #check option 94 | if($opt_v){ 95 | print "xmysqldump.pl v$version, by Curu Wong\n"; 96 | print "extract datatases/tables from mysqldump\n"; 97 | exit(0); 98 | } 99 | 100 | #list all databases and tables 101 | if($opt_list){ 102 | while(my $line = <>){ 103 | if ($line =~ $DB_RE_CAP){ 104 | print "$1\n"; 105 | next; 106 | 107 | } 108 | if ($line =~ $TBL_RE_CAP) { 109 | print "\t$1\n"; 110 | } 111 | } 112 | exit(0) 113 | } 114 | 115 | if($opt_h || !(@opt_databases || @opt_tables || $opt_all)){ 116 | usage(); 117 | exit(0); 118 | } 119 | if(@opt_databases && @opt_tables){ 120 | print STDERR "Sorry, but you can't extract database and tables at the same time\n"; 121 | exit(1) 122 | } 123 | 124 | #extract selected databases 125 | if(@opt_databases){ 126 | my @databases = split(/,/,join(',',@opt_databases)); 127 | my $db_cnt = scalar @databases; 128 | my $end_cnt = 0; 129 | my $in_header = 1; 130 | my $dump_header = ""; 131 | 132 | my %in_db; 133 | my ($cur_db,$prev_db); 134 | my $out_handle; 135 | 136 | for my $db (@databases){ 137 | $in_db{$db} = 0; 138 | } 139 | 140 | line: while(<>){ 141 | $prev_db = get_true_item(\%in_db); 142 | 143 | if(eof() && $prev_db){ 144 | log_msg "End DB [eof] '$prev_db'"; 145 | last; 146 | } 147 | 148 | if(/$DB_RE_CAP/){ 149 | $in_header = 0; 150 | $cur_db = $1; 151 | 152 | my $found = 0; 153 | if($prev_db){ 154 | $found = 1; 155 | $end_cnt++; 156 | log_msg "End DB '$prev_db'"; 157 | $in_db{$prev_db} = 0; 158 | } 159 | 160 | if (exists($in_db{$cur_db})){ 161 | $found = 1; 162 | log_msg "Found DB '$cur_db'"; 163 | $in_db{$cur_db} = 1; 164 | if($opt_separate){ 165 | my $out_file = "$cur_db.sql"; 166 | my $handle = create_file($out_file); 167 | select $handle if $handle; 168 | close($out_handle) if $out_handle; 169 | $out_handle = $handle; 170 | } 171 | print $dump_header; 172 | } 173 | log_msg "$_" if $found; 174 | 175 | } 176 | $dump_header .= $_ if($in_header); 177 | 178 | $prev_db = get_true_item(\%in_db); 179 | print if $prev_db; 180 | 181 | #if all requested databases extracted, we are done 182 | if($end_cnt == $db_cnt){ 183 | last line; 184 | } 185 | } 186 | close($out_handle) if $out_handle; 187 | exit(0); 188 | } 189 | 190 | #extract selected tables 191 | if(@opt_tables || $opt_all){ 192 | my @tables = split(/,/,join(',',@opt_tables)); 193 | my $table_cnt = scalar @tables; 194 | my $end_cnt = 0; 195 | 196 | my $in_header = 1; 197 | my $dump_header = ""; 198 | my (%in_db, %in_table); 199 | my ($cur_db, $cur_table); 200 | my ($prev_db, $prev_table); 201 | my $out_handle; 202 | 203 | for my $table (@tables){ 204 | my ($db_name, $tbl_name) = split /\./, $table; 205 | #if it's not in db.name format 206 | if($tbl_name){ 207 | $in_db{$db_name} = 0; 208 | } 209 | $in_table{$table} = 0; 210 | } 211 | 212 | while(<>){ 213 | $prev_table = get_true_item(\%in_table); 214 | $prev_db = get_true_item(\%in_db); 215 | 216 | #end of file, just for debug purpose 217 | if(eof()){ 218 | if($prev_table){ 219 | log_msg "End Table [eof] '$prev_table'"; 220 | print "-- End table '$prev_table'\n\n"; 221 | } 222 | 223 | log_msg "End DB [eof] '$prev_db'" if $prev_db; 224 | last; 225 | } 226 | 227 | #locate database 228 | if(/$DB_RE_CAP/){ 229 | $in_header = 0; 230 | $cur_db = $1; 231 | 232 | my $found = 0; 233 | if($prev_table){ 234 | log_msg "End Table '$prev_table'"; 235 | print "-- End table '$prev_table'\n\n"; 236 | $in_table{$prev_table} = 0; 237 | $prev_table = undef; 238 | $end_cnt++; 239 | $found = 1; 240 | } 241 | if($prev_db){ 242 | $found = 1; 243 | log_msg "End DB '$prev_db'"; 244 | $in_db{$prev_db} = 0; 245 | } 246 | 247 | if (exists($in_db{$cur_db})){ 248 | $found = 1; 249 | log_msg "Found DB '$cur_db'"; 250 | $in_db{$cur_db} = 1; 251 | } 252 | log_msg "$_" if $found; 253 | next; 254 | 255 | } 256 | $dump_header .= $_ if($in_header); 257 | 258 | #locate table 259 | if(/$TBL_RE_CAP/){ 260 | $in_header = 0; 261 | $cur_table = $1; 262 | $cur_table = ($cur_db && exists $in_table{"$cur_db.$cur_table"}) ? "$cur_db.$cur_table" : "$cur_table"; 263 | my $found = 0; 264 | if($prev_table){ 265 | $found++; 266 | $end_cnt++; 267 | $in_table{$prev_table} = 0; 268 | log_msg "End Table '$prev_table'"; 269 | 270 | #output table end 271 | print "-- End table '$prev_table'\n\n"; 272 | } 273 | if(exists($in_table{$cur_table}) || $opt_all){ 274 | $found++; 275 | $in_table{$cur_table} = 1; 276 | log_msg "Found table '$cur_table'"; 277 | 278 | if ($opt_separate || $opt_all){ 279 | ##output table start 280 | my $out_file = "$cur_table.sql"; 281 | my $handle = create_file($out_file); 282 | select $handle if $handle; 283 | close($out_handle) if $out_handle; 284 | $out_handle = $handle; 285 | } 286 | print $dump_header; 287 | print $_; 288 | 289 | 290 | } 291 | log_msg "$_" if $found; 292 | }else{ 293 | my $in_table = get_true_item(\%in_table); 294 | print if($in_table) 295 | 296 | } 297 | 298 | #if all requested databases extracted, we are done 299 | if(!$opt_all && ($end_cnt == $table_cnt)){ 300 | log_msg "End DB [last tbl]'$prev_db'" if $prev_db; 301 | log_msg "Done"; 302 | last; 303 | } 304 | } 305 | close($out_handle) if $out_handle; 306 | } 307 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 3, 29 June 2007 3 | 4 | Copyright (C) 2007 Free Software Foundation, Inc. 5 | Everyone is permitted to copy and distribute verbatim copies 6 | of this license document, but changing it is not allowed. 7 | 8 | Preamble 9 | 10 | The GNU General Public License is a free, copyleft license for 11 | software and other kinds of works. 12 | 13 | The licenses for most software and other practical works are designed 14 | to take away your freedom to share and change the works. By contrast, 15 | the GNU General Public License is intended to guarantee your freedom to 16 | share and change all versions of a program--to make sure it remains free 17 | software for all its users. We, the Free Software Foundation, use the 18 | GNU General Public License for most of our software; it applies also to 19 | any other work released this way by its authors. You can apply it to 20 | your programs, too. 21 | 22 | When we speak of free software, we are referring to freedom, not 23 | price. Our General Public Licenses are designed to make sure that you 24 | have the freedom to distribute copies of free software (and charge for 25 | them if you wish), that you receive source code or can get it if you 26 | want it, that you can change the software or use pieces of it in new 27 | free programs, and that you know you can do these things. 28 | 29 | To protect your rights, we need to prevent others from denying you 30 | these rights or asking you to surrender the rights. Therefore, you have 31 | certain responsibilities if you distribute copies of the software, or if 32 | you modify it: responsibilities to respect the freedom of others. 33 | 34 | For example, if you distribute copies of such a program, whether 35 | gratis or for a fee, you must pass on to the recipients the same 36 | freedoms that you received. You must make sure that they, too, receive 37 | or can get the source code. And you must show them these terms so they 38 | know their rights. 39 | 40 | Developers that use the GNU GPL protect your rights with two steps: 41 | (1) assert copyright on the software, and (2) offer you this License 42 | giving you legal permission to copy, distribute and/or modify it. 43 | 44 | For the developers' and authors' protection, the GPL clearly explains 45 | that there is no warranty for this free software. For both users' and 46 | authors' sake, the GPL requires that modified versions be marked as 47 | changed, so that their problems will not be attributed erroneously to 48 | authors of previous versions. 49 | 50 | Some devices are designed to deny users access to install or run 51 | modified versions of the software inside them, although the manufacturer 52 | can do so. This is fundamentally incompatible with the aim of 53 | protecting users' freedom to change the software. The systematic 54 | pattern of such abuse occurs in the area of products for individuals to 55 | use, which is precisely where it is most unacceptable. Therefore, we 56 | have designed this version of the GPL to prohibit the practice for those 57 | products. If such problems arise substantially in other domains, we 58 | stand ready to extend this provision to those domains in future versions 59 | of the GPL, as needed to protect the freedom of users. 60 | 61 | Finally, every program is threatened constantly by software patents. 62 | States should not allow patents to restrict development and use of 63 | software on general-purpose computers, but in those that do, we wish to 64 | avoid the special danger that patents applied to a free program could 65 | make it effectively proprietary. To prevent this, the GPL assures that 66 | patents cannot be used to render the program non-free. 67 | 68 | The precise terms and conditions for copying, distribution and 69 | modification follow. 70 | 71 | TERMS AND CONDITIONS 72 | 73 | 0. Definitions. 74 | 75 | "This License" refers to version 3 of the GNU General Public License. 76 | 77 | "Copyright" also means copyright-like laws that apply to other kinds of 78 | works, such as semiconductor masks. 79 | 80 | "The Program" refers to any copyrightable work licensed under this 81 | License. Each licensee is addressed as "you". "Licensees" and 82 | "recipients" may be individuals or organizations. 83 | 84 | To "modify" a work means to copy from or adapt all or part of the work 85 | in a fashion requiring copyright permission, other than the making of an 86 | exact copy. The resulting work is called a "modified version" of the 87 | earlier work or a work "based on" the earlier work. 88 | 89 | A "covered work" means either the unmodified Program or a work based 90 | on the Program. 91 | 92 | To "propagate" a work means to do anything with it that, without 93 | permission, would make you directly or secondarily liable for 94 | infringement under applicable copyright law, except executing it on a 95 | computer or modifying a private copy. Propagation includes copying, 96 | distribution (with or without modification), making available to the 97 | public, and in some countries other activities as well. 98 | 99 | To "convey" a work means any kind of propagation that enables other 100 | parties to make or receive copies. Mere interaction with a user through 101 | a computer network, with no transfer of a copy, is not conveying. 102 | 103 | An interactive user interface displays "Appropriate Legal Notices" 104 | to the extent that it includes a convenient and prominently visible 105 | feature that (1) displays an appropriate copyright notice, and (2) 106 | tells the user that there is no warranty for the work (except to the 107 | extent that warranties are provided), that licensees may convey the 108 | work under this License, and how to view a copy of this License. If 109 | the interface presents a list of user commands or options, such as a 110 | menu, a prominent item in the list meets this criterion. 111 | 112 | 1. Source Code. 113 | 114 | The "source code" for a work means the preferred form of the work 115 | for making modifications to it. "Object code" means any non-source 116 | form of a work. 117 | 118 | A "Standard Interface" means an interface that either is an official 119 | standard defined by a recognized standards body, or, in the case of 120 | interfaces specified for a particular programming language, one that 121 | is widely used among developers working in that language. 122 | 123 | The "System Libraries" of an executable work include anything, other 124 | than the work as a whole, that (a) is included in the normal form of 125 | packaging a Major Component, but which is not part of that Major 126 | Component, and (b) serves only to enable use of the work with that 127 | Major Component, or to implement a Standard Interface for which an 128 | implementation is available to the public in source code form. A 129 | "Major Component", in this context, means a major essential component 130 | (kernel, window system, and so on) of the specific operating system 131 | (if any) on which the executable work runs, or a compiler used to 132 | produce the work, or an object code interpreter used to run it. 133 | 134 | The "Corresponding Source" for a work in object code form means all 135 | the source code needed to generate, install, and (for an executable 136 | work) run the object code and to modify the work, including scripts to 137 | control those activities. However, it does not include the work's 138 | System Libraries, or general-purpose tools or generally available free 139 | programs which are used unmodified in performing those activities but 140 | which are not part of the work. For example, Corresponding Source 141 | includes interface definition files associated with source files for 142 | the work, and the source code for shared libraries and dynamically 143 | linked subprograms that the work is specifically designed to require, 144 | such as by intimate data communication or control flow between those 145 | subprograms and other parts of the work. 146 | 147 | The Corresponding Source need not include anything that users 148 | can regenerate automatically from other parts of the Corresponding 149 | Source. 150 | 151 | The Corresponding Source for a work in source code form is that 152 | same work. 153 | 154 | 2. Basic Permissions. 155 | 156 | All rights granted under this License are granted for the term of 157 | copyright on the Program, and are irrevocable provided the stated 158 | conditions are met. This License explicitly affirms your unlimited 159 | permission to run the unmodified Program. The output from running a 160 | covered work is covered by this License only if the output, given its 161 | content, constitutes a covered work. This License acknowledges your 162 | rights of fair use or other equivalent, as provided by copyright law. 163 | 164 | You may make, run and propagate covered works that you do not 165 | convey, without conditions so long as your license otherwise remains 166 | in force. You may convey covered works to others for the sole purpose 167 | of having them make modifications exclusively for you, or provide you 168 | with facilities for running those works, provided that you comply with 169 | the terms of this License in conveying all material for which you do 170 | not control copyright. Those thus making or running the covered works 171 | for you must do so exclusively on your behalf, under your direction 172 | and control, on terms that prohibit them from making any copies of 173 | your copyrighted material outside their relationship with you. 174 | 175 | Conveying under any other circumstances is permitted solely under 176 | the conditions stated below. Sublicensing is not allowed; section 10 177 | makes it unnecessary. 178 | 179 | 3. Protecting Users' Legal Rights From Anti-Circumvention Law. 180 | 181 | No covered work shall be deemed part of an effective technological 182 | measure under any applicable law fulfilling obligations under article 183 | 11 of the WIPO copyright treaty adopted on 20 December 1996, or 184 | similar laws prohibiting or restricting circumvention of such 185 | measures. 186 | 187 | When you convey a covered work, you waive any legal power to forbid 188 | circumvention of technological measures to the extent such circumvention 189 | is effected by exercising rights under this License with respect to 190 | the covered work, and you disclaim any intention to limit operation or 191 | modification of the work as a means of enforcing, against the work's 192 | users, your or third parties' legal rights to forbid circumvention of 193 | technological measures. 194 | 195 | 4. Conveying Verbatim Copies. 196 | 197 | You may convey verbatim copies of the Program's source code as you 198 | receive it, in any medium, provided that you conspicuously and 199 | appropriately publish on each copy an appropriate copyright notice; 200 | keep intact all notices stating that this License and any 201 | non-permissive terms added in accord with section 7 apply to the code; 202 | keep intact all notices of the absence of any warranty; and give all 203 | recipients a copy of this License along with the Program. 204 | 205 | You may charge any price or no price for each copy that you convey, 206 | and you may offer support or warranty protection for a fee. 207 | 208 | 5. Conveying Modified Source Versions. 209 | 210 | You may convey a work based on the Program, or the modifications to 211 | produce it from the Program, in the form of source code under the 212 | terms of section 4, provided that you also meet all of these conditions: 213 | 214 | a) The work must carry prominent notices stating that you modified 215 | it, and giving a relevant date. 216 | 217 | b) The work must carry prominent notices stating that it is 218 | released under this License and any conditions added under section 219 | 7. This requirement modifies the requirement in section 4 to 220 | "keep intact all notices". 221 | 222 | c) You must license the entire work, as a whole, under this 223 | License to anyone who comes into possession of a copy. This 224 | License will therefore apply, along with any applicable section 7 225 | additional terms, to the whole of the work, and all its parts, 226 | regardless of how they are packaged. This License gives no 227 | permission to license the work in any other way, but it does not 228 | invalidate such permission if you have separately received it. 229 | 230 | d) If the work has interactive user interfaces, each must display 231 | Appropriate Legal Notices; however, if the Program has interactive 232 | interfaces that do not display Appropriate Legal Notices, your 233 | work need not make them do so. 234 | 235 | A compilation of a covered work with other separate and independent 236 | works, which are not by their nature extensions of the covered work, 237 | and which are not combined with it such as to form a larger program, 238 | in or on a volume of a storage or distribution medium, is called an 239 | "aggregate" if the compilation and its resulting copyright are not 240 | used to limit the access or legal rights of the compilation's users 241 | beyond what the individual works permit. Inclusion of a covered work 242 | in an aggregate does not cause this License to apply to the other 243 | parts of the aggregate. 244 | 245 | 6. Conveying Non-Source Forms. 246 | 247 | You may convey a covered work in object code form under the terms 248 | of sections 4 and 5, provided that you also convey the 249 | machine-readable Corresponding Source under the terms of this License, 250 | in one of these ways: 251 | 252 | a) Convey the object code in, or embodied in, a physical product 253 | (including a physical distribution medium), accompanied by the 254 | Corresponding Source fixed on a durable physical medium 255 | customarily used for software interchange. 256 | 257 | b) Convey the object code in, or embodied in, a physical product 258 | (including a physical distribution medium), accompanied by a 259 | written offer, valid for at least three years and valid for as 260 | long as you offer spare parts or customer support for that product 261 | model, to give anyone who possesses the object code either (1) a 262 | copy of the Corresponding Source for all the software in the 263 | product that is covered by this License, on a durable physical 264 | medium customarily used for software interchange, for a price no 265 | more than your reasonable cost of physically performing this 266 | conveying of source, or (2) access to copy the 267 | Corresponding Source from a network server at no charge. 268 | 269 | c) Convey individual copies of the object code with a copy of the 270 | written offer to provide the Corresponding Source. This 271 | alternative is allowed only occasionally and noncommercially, and 272 | only if you received the object code with such an offer, in accord 273 | with subsection 6b. 274 | 275 | d) Convey the object code by offering access from a designated 276 | place (gratis or for a charge), and offer equivalent access to the 277 | Corresponding Source in the same way through the same place at no 278 | further charge. You need not require recipients to copy the 279 | Corresponding Source along with the object code. If the place to 280 | copy the object code is a network server, the Corresponding Source 281 | may be on a different server (operated by you or a third party) 282 | that supports equivalent copying facilities, provided you maintain 283 | clear directions next to the object code saying where to find the 284 | Corresponding Source. Regardless of what server hosts the 285 | Corresponding Source, you remain obligated to ensure that it is 286 | available for as long as needed to satisfy these requirements. 287 | 288 | e) Convey the object code using peer-to-peer transmission, provided 289 | you inform other peers where the object code and Corresponding 290 | Source of the work are being offered to the general public at no 291 | charge under subsection 6d. 292 | 293 | A separable portion of the object code, whose source code is excluded 294 | from the Corresponding Source as a System Library, need not be 295 | included in conveying the object code work. 296 | 297 | A "User Product" is either (1) a "consumer product", which means any 298 | tangible personal property which is normally used for personal, family, 299 | or household purposes, or (2) anything designed or sold for incorporation 300 | into a dwelling. In determining whether a product is a consumer product, 301 | doubtful cases shall be resolved in favor of coverage. For a particular 302 | product received by a particular user, "normally used" refers to a 303 | typical or common use of that class of product, regardless of the status 304 | of the particular user or of the way in which the particular user 305 | actually uses, or expects or is expected to use, the product. A product 306 | is a consumer product regardless of whether the product has substantial 307 | commercial, industrial or non-consumer uses, unless such uses represent 308 | the only significant mode of use of the product. 309 | 310 | "Installation Information" for a User Product means any methods, 311 | procedures, authorization keys, or other information required to install 312 | and execute modified versions of a covered work in that User Product from 313 | a modified version of its Corresponding Source. The information must 314 | suffice to ensure that the continued functioning of the modified object 315 | code is in no case prevented or interfered with solely because 316 | modification has been made. 317 | 318 | If you convey an object code work under this section in, or with, or 319 | specifically for use in, a User Product, and the conveying occurs as 320 | part of a transaction in which the right of possession and use of the 321 | User Product is transferred to the recipient in perpetuity or for a 322 | fixed term (regardless of how the transaction is characterized), the 323 | Corresponding Source conveyed under this section must be accompanied 324 | by the Installation Information. But this requirement does not apply 325 | if neither you nor any third party retains the ability to install 326 | modified object code on the User Product (for example, the work has 327 | been installed in ROM). 328 | 329 | The requirement to provide Installation Information does not include a 330 | requirement to continue to provide support service, warranty, or updates 331 | for a work that has been modified or installed by the recipient, or for 332 | the User Product in which it has been modified or installed. Access to a 333 | network may be denied when the modification itself materially and 334 | adversely affects the operation of the network or violates the rules and 335 | protocols for communication across the network. 336 | 337 | Corresponding Source conveyed, and Installation Information provided, 338 | in accord with this section must be in a format that is publicly 339 | documented (and with an implementation available to the public in 340 | source code form), and must require no special password or key for 341 | unpacking, reading or copying. 342 | 343 | 7. Additional Terms. 344 | 345 | "Additional permissions" are terms that supplement the terms of this 346 | License by making exceptions from one or more of its conditions. 347 | Additional permissions that are applicable to the entire Program shall 348 | be treated as though they were included in this License, to the extent 349 | that they are valid under applicable law. If additional permissions 350 | apply only to part of the Program, that part may be used separately 351 | under those permissions, but the entire Program remains governed by 352 | this License without regard to the additional permissions. 353 | 354 | When you convey a copy of a covered work, you may at your option 355 | remove any additional permissions from that copy, or from any part of 356 | it. (Additional permissions may be written to require their own 357 | removal in certain cases when you modify the work.) You may place 358 | additional permissions on material, added by you to a covered work, 359 | for which you have or can give appropriate copyright permission. 360 | 361 | Notwithstanding any other provision of this License, for material you 362 | add to a covered work, you may (if authorized by the copyright holders of 363 | that material) supplement the terms of this License with terms: 364 | 365 | a) Disclaiming warranty or limiting liability differently from the 366 | terms of sections 15 and 16 of this License; or 367 | 368 | b) Requiring preservation of specified reasonable legal notices or 369 | author attributions in that material or in the Appropriate Legal 370 | Notices displayed by works containing it; or 371 | 372 | c) Prohibiting misrepresentation of the origin of that material, or 373 | requiring that modified versions of such material be marked in 374 | reasonable ways as different from the original version; or 375 | 376 | d) Limiting the use for publicity purposes of names of licensors or 377 | authors of the material; or 378 | 379 | e) Declining to grant rights under trademark law for use of some 380 | trade names, trademarks, or service marks; or 381 | 382 | f) Requiring indemnification of licensors and authors of that 383 | material by anyone who conveys the material (or modified versions of 384 | it) with contractual assumptions of liability to the recipient, for 385 | any liability that these contractual assumptions directly impose on 386 | those licensors and authors. 387 | 388 | All other non-permissive additional terms are considered "further 389 | restrictions" within the meaning of section 10. If the Program as you 390 | received it, or any part of it, contains a notice stating that it is 391 | governed by this License along with a term that is a further 392 | restriction, you may remove that term. If a license document contains 393 | a further restriction but permits relicensing or conveying under this 394 | License, you may add to a covered work material governed by the terms 395 | of that license document, provided that the further restriction does 396 | not survive such relicensing or conveying. 397 | 398 | If you add terms to a covered work in accord with this section, you 399 | must place, in the relevant source files, a statement of the 400 | additional terms that apply to those files, or a notice indicating 401 | where to find the applicable terms. 402 | 403 | Additional terms, permissive or non-permissive, may be stated in the 404 | form of a separately written license, or stated as exceptions; 405 | the above requirements apply either way. 406 | 407 | 8. Termination. 408 | 409 | You may not propagate or modify a covered work except as expressly 410 | provided under this License. Any attempt otherwise to propagate or 411 | modify it is void, and will automatically terminate your rights under 412 | this License (including any patent licenses granted under the third 413 | paragraph of section 11). 414 | 415 | However, if you cease all violation of this License, then your 416 | license from a particular copyright holder is reinstated (a) 417 | provisionally, unless and until the copyright holder explicitly and 418 | finally terminates your license, and (b) permanently, if the copyright 419 | holder fails to notify you of the violation by some reasonable means 420 | prior to 60 days after the cessation. 421 | 422 | Moreover, your license from a particular copyright holder is 423 | reinstated permanently if the copyright holder notifies you of the 424 | violation by some reasonable means, this is the first time you have 425 | received notice of violation of this License (for any work) from that 426 | copyright holder, and you cure the violation prior to 30 days after 427 | your receipt of the notice. 428 | 429 | Termination of your rights under this section does not terminate the 430 | licenses of parties who have received copies or rights from you under 431 | this License. If your rights have been terminated and not permanently 432 | reinstated, you do not qualify to receive new licenses for the same 433 | material under section 10. 434 | 435 | 9. Acceptance Not Required for Having Copies. 436 | 437 | You are not required to accept this License in order to receive or 438 | run a copy of the Program. Ancillary propagation of a covered work 439 | occurring solely as a consequence of using peer-to-peer transmission 440 | to receive a copy likewise does not require acceptance. However, 441 | nothing other than this License grants you permission to propagate or 442 | modify any covered work. These actions infringe copyright if you do 443 | not accept this License. Therefore, by modifying or propagating a 444 | covered work, you indicate your acceptance of this License to do so. 445 | 446 | 10. Automatic Licensing of Downstream Recipients. 447 | 448 | Each time you convey a covered work, the recipient automatically 449 | receives a license from the original licensors, to run, modify and 450 | propagate that work, subject to this License. You are not responsible 451 | for enforcing compliance by third parties with this License. 452 | 453 | An "entity transaction" is a transaction transferring control of an 454 | organization, or substantially all assets of one, or subdividing an 455 | organization, or merging organizations. If propagation of a covered 456 | work results from an entity transaction, each party to that 457 | transaction who receives a copy of the work also receives whatever 458 | licenses to the work the party's predecessor in interest had or could 459 | give under the previous paragraph, plus a right to possession of the 460 | Corresponding Source of the work from the predecessor in interest, if 461 | the predecessor has it or can get it with reasonable efforts. 462 | 463 | You may not impose any further restrictions on the exercise of the 464 | rights granted or affirmed under this License. For example, you may 465 | not impose a license fee, royalty, or other charge for exercise of 466 | rights granted under this License, and you may not initiate litigation 467 | (including a cross-claim or counterclaim in a lawsuit) alleging that 468 | any patent claim is infringed by making, using, selling, offering for 469 | sale, or importing the Program or any portion of it. 470 | 471 | 11. Patents. 472 | 473 | A "contributor" is a copyright holder who authorizes use under this 474 | License of the Program or a work on which the Program is based. The 475 | work thus licensed is called the contributor's "contributor version". 476 | 477 | A contributor's "essential patent claims" are all patent claims 478 | owned or controlled by the contributor, whether already acquired or 479 | hereafter acquired, that would be infringed by some manner, permitted 480 | by this License, of making, using, or selling its contributor version, 481 | but do not include claims that would be infringed only as a 482 | consequence of further modification of the contributor version. For 483 | purposes of this definition, "control" includes the right to grant 484 | patent sublicenses in a manner consistent with the requirements of 485 | this License. 486 | 487 | Each contributor grants you a non-exclusive, worldwide, royalty-free 488 | patent license under the contributor's essential patent claims, to 489 | make, use, sell, offer for sale, import and otherwise run, modify and 490 | propagate the contents of its contributor version. 491 | 492 | In the following three paragraphs, a "patent license" is any express 493 | agreement or commitment, however denominated, not to enforce a patent 494 | (such as an express permission to practice a patent or covenant not to 495 | sue for patent infringement). To "grant" such a patent license to a 496 | party means to make such an agreement or commitment not to enforce a 497 | patent against the party. 498 | 499 | If you convey a covered work, knowingly relying on a patent license, 500 | and the Corresponding Source of the work is not available for anyone 501 | to copy, free of charge and under the terms of this License, through a 502 | publicly available network server or other readily accessible means, 503 | then you must either (1) cause the Corresponding Source to be so 504 | available, or (2) arrange to deprive yourself of the benefit of the 505 | patent license for this particular work, or (3) arrange, in a manner 506 | consistent with the requirements of this License, to extend the patent 507 | license to downstream recipients. "Knowingly relying" means you have 508 | actual knowledge that, but for the patent license, your conveying the 509 | covered work in a country, or your recipient's use of the covered work 510 | in a country, would infringe one or more identifiable patents in that 511 | country that you have reason to believe are valid. 512 | 513 | If, pursuant to or in connection with a single transaction or 514 | arrangement, you convey, or propagate by procuring conveyance of, a 515 | covered work, and grant a patent license to some of the parties 516 | receiving the covered work authorizing them to use, propagate, modify 517 | or convey a specific copy of the covered work, then the patent license 518 | you grant is automatically extended to all recipients of the covered 519 | work and works based on it. 520 | 521 | A patent license is "discriminatory" if it does not include within 522 | the scope of its coverage, prohibits the exercise of, or is 523 | conditioned on the non-exercise of one or more of the rights that are 524 | specifically granted under this License. You may not convey a covered 525 | work if you are a party to an arrangement with a third party that is 526 | in the business of distributing software, under which you make payment 527 | to the third party based on the extent of your activity of conveying 528 | the work, and under which the third party grants, to any of the 529 | parties who would receive the covered work from you, a discriminatory 530 | patent license (a) in connection with copies of the covered work 531 | conveyed by you (or copies made from those copies), or (b) primarily 532 | for and in connection with specific products or compilations that 533 | contain the covered work, unless you entered into that arrangement, 534 | or that patent license was granted, prior to 28 March 2007. 535 | 536 | Nothing in this License shall be construed as excluding or limiting 537 | any implied license or other defenses to infringement that may 538 | otherwise be available to you under applicable patent law. 539 | 540 | 12. No Surrender of Others' Freedom. 541 | 542 | If conditions are imposed on you (whether by court order, agreement or 543 | otherwise) that contradict the conditions of this License, they do not 544 | excuse you from the conditions of this License. If you cannot convey a 545 | covered work so as to satisfy simultaneously your obligations under this 546 | License and any other pertinent obligations, then as a consequence you may 547 | not convey it at all. For example, if you agree to terms that obligate you 548 | to collect a royalty for further conveying from those to whom you convey 549 | the Program, the only way you could satisfy both those terms and this 550 | License would be to refrain entirely from conveying the Program. 551 | 552 | 13. Use with the GNU Affero General Public License. 553 | 554 | Notwithstanding any other provision of this License, you have 555 | permission to link or combine any covered work with a work licensed 556 | under version 3 of the GNU Affero General Public License into a single 557 | combined work, and to convey the resulting work. The terms of this 558 | License will continue to apply to the part which is the covered work, 559 | but the special requirements of the GNU Affero General Public License, 560 | section 13, concerning interaction through a network will apply to the 561 | combination as such. 562 | 563 | 14. Revised Versions of this License. 564 | 565 | The Free Software Foundation may publish revised and/or new versions of 566 | the GNU General Public License from time to time. Such new versions will 567 | be similar in spirit to the present version, but may differ in detail to 568 | address new problems or concerns. 569 | 570 | Each version is given a distinguishing version number. If the 571 | Program specifies that a certain numbered version of the GNU General 572 | Public License "or any later version" applies to it, you have the 573 | option of following the terms and conditions either of that numbered 574 | version or of any later version published by the Free Software 575 | Foundation. If the Program does not specify a version number of the 576 | GNU General Public License, you may choose any version ever published 577 | by the Free Software Foundation. 578 | 579 | If the Program specifies that a proxy can decide which future 580 | versions of the GNU General Public License can be used, that proxy's 581 | public statement of acceptance of a version permanently authorizes you 582 | to choose that version for the Program. 583 | 584 | Later license versions may give you additional or different 585 | permissions. However, no additional obligations are imposed on any 586 | author or copyright holder as a result of your choosing to follow a 587 | later version. 588 | 589 | 15. Disclaimer of Warranty. 590 | 591 | THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY 592 | APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT 593 | HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY 594 | OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, 595 | THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 596 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM 597 | IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF 598 | ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 599 | 600 | 16. Limitation of Liability. 601 | 602 | IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 603 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS 604 | THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY 605 | GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE 606 | USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF 607 | DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD 608 | PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), 609 | EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF 610 | SUCH DAMAGES. 611 | 612 | 17. Interpretation of Sections 15 and 16. 613 | 614 | If the disclaimer of warranty and limitation of liability provided 615 | above cannot be given local legal effect according to their terms, 616 | reviewing courts shall apply local law that most closely approximates 617 | an absolute waiver of all civil liability in connection with the 618 | Program, unless a warranty or assumption of liability accompanies a 619 | copy of the Program in return for a fee. 620 | 621 | END OF TERMS AND CONDITIONS 622 | 623 | How to Apply These Terms to Your New Programs 624 | 625 | If you develop a new program, and you want it to be of the greatest 626 | possible use to the public, the best way to achieve this is to make it 627 | free software which everyone can redistribute and change under these terms. 628 | 629 | To do so, attach the following notices to the program. It is safest 630 | to attach them to the start of each source file to most effectively 631 | state the exclusion of warranty; and each file should have at least 632 | the "copyright" line and a pointer to where the full notice is found. 633 | 634 | 635 | Copyright (C) 636 | 637 | This program is free software: you can redistribute it and/or modify 638 | it under the terms of the GNU General Public License as published by 639 | the Free Software Foundation, either version 3 of the License, or 640 | (at your option) any later version. 641 | 642 | This program is distributed in the hope that it will be useful, 643 | but WITHOUT ANY WARRANTY; without even the implied warranty of 644 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 645 | GNU General Public License for more details. 646 | 647 | You should have received a copy of the GNU General Public License 648 | along with this program. If not, see . 649 | 650 | Also add information on how to contact you by electronic and paper mail. 651 | 652 | If the program does terminal interaction, make it output a short 653 | notice like this when it starts in an interactive mode: 654 | 655 | Copyright (C) 656 | This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 657 | This is free software, and you are welcome to redistribute it 658 | under certain conditions; type `show c' for details. 659 | 660 | The hypothetical commands `show w' and `show c' should show the appropriate 661 | parts of the General Public License. Of course, your program's commands 662 | might be different; for a GUI interface, you would use an "about box". 663 | 664 | You should also get your employer (if you work as a programmer) or school, 665 | if any, to sign a "copyright disclaimer" for the program, if necessary. 666 | For more information on this, and how to apply and follow the GNU GPL, see 667 | . 668 | 669 | The GNU General Public License does not permit incorporating your program 670 | into proprietary programs. If your program is a subroutine library, you 671 | may consider it more useful to permit linking proprietary applications with 672 | the library. If this is what you want to do, use the GNU Lesser General 673 | Public License instead of this License. But first, please read 674 | . 675 | --------------------------------------------------------------------------------