代码搜索:cgi

找到约 10,000 项符合「cgi」的源代码

代码结果 10,000
www.eeworm.com/read/280804/10291497

cgi setting.cgi

# 基本設置 $ver = '2.73'; #遊戲版本 $title = '網路航海時代'; # 遊戲標題(上部) $adps = '0123'; # 管理者密碼(※必須更改) $usrdir = 'usrdir'; # 玩家帳戶資料存放目錄(※必須更改) $datadir = 'data'; # 遊戲資料存放目錄(※必須更改) $citydir = 'city'; # 城
www.eeworm.com/read/280804/10291501

cgi city.cgi

# Sub City # sub city_top { require 'csys.cgi'; &get_city('read'); if ($F{'cmode'} == 1) { &make_city; return } $demand = $money > 10000000 ? int($money * 0.15) : $newcity; if ($no_city) {
www.eeworm.com/read/280804/10291504

cgi cadmin.cgi

# Sub City Admin # sub cadmin_dis { &form_table('up','100%',1); &reload; print
www.eeworm.com/read/280804/10291510

cgi citem.cgi

# Sub Buy Item Display # sub buy_item_dis { print qq|財寶|; &reload; my @citem_ind = split(/△/,$citem); foreach (0 .. $#citem_ind) { ($sellitem,$price) = split(/,/,$citem_ind[$_]); $check
www.eeworm.com/read/280804/10291512

cgi yard.cgi

# Sub Shipyard # sub shipyard { if ($F{'yard'} == 1) { &yard_buy; return } if ($F{'yard'} == 2) { &yard_sell; return } if ($F{'yard'} == 3) { &yard_rep; return } print
www.eeworm.com/read/280804/10291514

cgi new.cgi

#!/usr/bin/perl # 鈫戙偟銉笺儛銇
www.eeworm.com/read/280804/10291515

cgi sea.cgi

#!/usr/bin/perl # 鈫戙偟銉笺儛銇
www.eeworm.com/read/280804/10291516

cgi ctrade.cgi

@sp_ship = ("ship.gif150010008大和200000001.5", "galleass.gif12004002巨型炮艦・海賊仕様100000001", "frigate.gif30010014武裝快船・改80000001"); $min_demand = 50000000;
www.eeworm.com/read/280804/10291803

cgi admin.cgi

#!/usr/bin/perl # 鈫戙偟銉笺儛銇
www.eeworm.com/read/280804/10291807

cgi csys.cgi

# Sub Get City # sub get_city { $CityFile = new Nfile("$citydir/$port\.dat",'save'); ($cityline) = $CityFile->read; if ($cityline eq "Read Error") { &check_city; } if ($no_city) { return }